(Resolvido) HTML em um MEMO

hunter2017 · Maio 29, 2017

Olá pessoal, sou iniciante em programação delphi e queria saber como incorporar alguns elementos de uma página html em um memo, dá para fazer isso? Lembrando que se for declarar a uses URLmon; no meu está dando erro.

**Jhonas** · Maio 29, 2017

queria saber como incorporar alguns elementos de uma página html em um memo

que informação da pagina voce esta querendo ?

hunter2017 · Maio 30, 2017

Estou programando com html de uma página de bate papo e queria os links de todas as salas junto com o css em um memo.
<ul>
	<li class="amizade"><a href="http://click.uol.com.br/?rf=bpb_menu1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6094">Amizade</a></li>
	<li class="cidades"><a href="http://click.uol.com.br/?rf=bpb_menu2&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6096">Cidades</a></li>
	<li class="encontros"><a href="http://click.uol.com.br/?rf=bpb_menu3&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6099">Encontros</a></li>
	<li class="idade"><a href="http://click.uol.com.br/?rf=bpb_menu4&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6101">Idade</a></li>
	<li class="namoro"><a href="http://click.uol.com.br/?rf=bpb_menu5&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6103">Namoro</a></li>
	<li class="religioes"><a href="http://click.uol.com.br/?rf=bpb_menu6&u=http://bpbol.uol.com.br/bytheme.html?nodeid=8320">Religiões</a></li>
	<li class="webcam"><a href="http://click.uol.com.br/?rf=bpb_menu7&u=http://bpbol.uol.com.br/bytheme.html?nodeid=7890">Webcam</a></li>
	<li class="outros_temas"><a href="http://click.uol.com.br/?rf=bpb_menu8&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6107">Outros temas</a></li>
	<li class="sexo"><a href="http://click.uol.com.br/?rf=bpb_menu9&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6105">Sexo</a></li>
	<li class="img_eroticas"><a href="http://click.uol.com.br/?rf=bpb_menu10&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6109">Imagens eróticas</a></li>
	<li class="img_outras"><a href="http://click.uol.com.br/?rf=bpb_menu11&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6111">Outras imagens</a></li>
	<li class="publico"><a href="http://click.uol.com.br/?rf=bpb_menu12&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">Salas do público</a></li>							
	<li class="todas"><a href="http://click.uol.com.br/?rf=bpb_menu14&u=http://tc.bpbol.uol.com.br/todassalas.jhtm">Todas as salas</a></li>
</ul>

**Jhonas** · Maio 30, 2017

qual a versão do seu delphi ?

qual o erro da uses URLmon ?

quer usar o webbrowser ?

qual o endereço da pagina que voce quer ?

hunter2017 · Maio 30, 2017

vamos por partes..

Versão : delphi 7 enterprise

Erro :[Error]Unit1.pas(1):Declaration expected but identifier 'URLmon' found
[Fatal Error]Project.dpr(4): Could not compile used unit 'Unit1.pas'

WEBBROSER : chromium

http://bpbol.uol.com.br/bytheme.html?nodeid=6101

Mas pelo webbrowser vai pegar a página inteira, eu quero somente os links de acesso as salas que na verdade são os ID..é que eu estou fazendo uma aplicação delphi para acessar salas de bate papo via socket client e socket servidor.

Editado Maio 30, 2017 por hunter2017

**Jhonas** · Maio 30, 2017

Erro :[Error]Unit1.pas(1):Declaration expected but identifier 'URLmon' found

depois do Implementation voce coloca

uses URLMON;

===============================================

Veja se é isso que voce esta querendo

usei o componente IdHTTP da paleta Indy

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i : integer; Texto : TMemo;
Begin
   Memo1.Lines.Clear;
   Memo1.Width := 593;
   Memo1.ScrollBars := ssVertical;
   Memo1.Lines.Append(trim(IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6101')));

   for i := 1 to memo1.Lines.Count do
      begin
         if pos('bytheme.html?',memo1.Lines.Strings[i]) > 0 then
            memo2.Lines.Append(trim(copy(memo1.Lines.Strings[i],1,250)));
      end;
end;

end.

resultado no Memo

Memo2
href="http://click.uol.com.br/?rf=bpb_menusup1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">crie sua
href="http://click.uol.com.br/?rf=bpb_menu1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6094">Amizade</a></li>
href="http://click.uol.com.br/?rf=bpb_menu2&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6096">Cidades</a></li>
href="http://click.uol.com.br/?rf=bpb_menu3&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6099">Encontros</a></l
href="http://click.uol.com.br/?rf=bpb_menu4&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6101">Idade</a></li>
href="http://click.uol.com.br/?rf=bpb_menu5&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6103">Namoro</a></li>
href="http://click.uol.com.br/?rf=bpb_menu6&u=http://bpbol.uol.com.br/bytheme.html?nodeid=8320">Religiões</a></li
href="http://click.uol.com.br/?rf=bpb_menu7&u=http://bpbol.uol.com.br/bytheme.html?nodeid=7890">Webcam</a></li
href="http://click.uol.com.br/?rf=bpb_menu8&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6107">Outros
href="http://click.uol.com.br/?rf=bpb_menu9&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6105">Sexo</a></li>
href="http://click.uol.com.br/?rf=bpb_menu10&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6109">Imagens
href="http://click.uol.com.br/?rf=bpb_menu11&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6111">Outras
href="http://click.uol.com.br/?rf=bpb_menu12&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">Salas do
<th><a href="http://bpbol.uol.com.br/bytheme.html?nodeid=7520">18 a 20
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7520"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7541">20 a 30 anos</a></th>
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7541"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7562">30 a 40 anos</a></th>
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7562"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7583">40 a 50 anos</a></th>
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7583"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7604">50 a 60 anos</a></th>
href="http://bpbol.uol.com.br/bytheme.html?nodeid=7604"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"
href="http://bpbol.uol.com.br/bytheme.html?nodeid=74994">60 a 70 anos</a></th>
href="http://bpbol.uol.com.br/bytheme.html?nodeid=74994"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"
href="http://bpbol.uol.com.br/bytheme.html?nodeid=75005">Mais de 70 anos</a></th>
href="http://bpbol.uol.com.br/bytheme.html?nodeid=75005"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png"

outro exemplo em video aula

Com base no exemplo da video aula

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i : integer; pagina, lista : string;
Begin
   memo1.Lines.Clear;
   pagina := IdHTTP1.Get('http://bpbol.uol.com.br/#rmcl');

   lista := copy(pagina,pos('<li class="amizade">',pagina),length(pagina));
   lista := copy(lista,1,pos('>Todas as salas</a></li>',lista));

   memo1.Lines.Append(lista);

end;

end.

Resultado no Memo

<li class="amizade"><a href="http://click.uol.com.br/?rf=bpb_menu1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6094">Amizade</a></li>
<li class="cidades"><a href="http://click.uol.com.br/?rf=bpb_menu2&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6096">Cidades</a></li>
<li class="encontros"><a href="http://click.uol.com.br/?rf=bpb_menu3&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6099">Encontros</a></li>
<li class="idade"><a href="http://click.uol.com.br/?rf=bpb_menu4&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6101">Idade</a></li>
<li class="namoro"><a href="http://click.uol.com.br/?rf=bpb_menu5&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6103">Namoro</a></li>
<li class="religioes"><a href="http://click.uol.com.br/?rf=bpb_menu6&u=http://bpbol.uol.com.br/bytheme.html?nodeid=8320">Religiões</a></li>
<li class="webcam"><a href="http://click.uol.com.br/?rf=bpb_menu7&u=http://bpbol.uol.com.br/bytheme.html?nodeid=7890">Webcam</a></li>
<li class="outros_temas"><a href="http://click.uol.com.br/?rf=bpb_menu8&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6107">Outros temas</a></li>
<li class="sexo"><a href="http://click.uol.com.br/?rf=bpb_menu9&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6105">Sexo</a></li>
<li class="img_eroticas"><a href="http://click.uol.com.br/?rf=bpb_menu10&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6109">Imagens eróticas</a></li>
<li class="img_outras"><a href="http://click.uol.com.br/?rf=bpb_menu11&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6111">Outras imagens</a></li>
<li class="publico"><a href="http://click.uol.com.br/?rf=bpb_menu12&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">Salas do público</a></li>		
<li class="todas"><a href="http://click.uol.com.br/?rf=bpb_menu14&u=http://tc.bpbol.uol.com.br/todassalas.jhtm">

abraço

hunter2017 · Maio 31, 2017

Eu vi o vídeo mas o codigo a compilação não ficou visualmente como mostra o vídeo, só fica apenas texto embaralhado e não é bem isso que eu quero, acho que vou ter que usar o webbrowser mesmo mas configurar o html para mostrar somente a lista de salas pelo chromium isso requer um pouco de conhecimento em css3, eu gostaria de saber se tem como trocar a barra do scrollbar do chromium ou usar um scrollbar do próprio delphi para funcionar em webbrowser..

hunter2017 · Maio 31, 2017

Eu gostaria que ficasse em minha aplicação dessa forma.

**Jhonas** · Maio 31, 2017

queria os links de todas as salas junto com o css em um memo.

voce mostrou de um jeito no seu 2º post ... e te mostrei como conseguir esse resultado no programa.

agora voce esta mostrando de outra maneira ...voce tem que ser mais explicito nas suas idéias.

se voce olhou a video aula, no tempo de 09:41 voce vai ter exatamente essa saida..

basta seguir exatamente como mostrado no video.

OBS: aquele texto embaralhado que voce viu, tem que ser jogado em um componente TWebBrowser para ficar do jeito que voce esta querendo.

abraço

hunter2017 · Maio 31, 2017

Já tentei fazer igual no vídeo mas não deu certo, porque aquele cara é um fdp..e não postou o código, só quer likes nos vídeos e não ajuda ngm e fazer somente olhando é muito difícil, eu não sei se ele colocou o código dentro do webbrowser porque o cara não mostrou onde ele colocou esses parêmetros.

**Jhonas** · Maio 31, 2017

Já tentei fazer igual no vídeo mas não deu certo, porque aquele cara é um ***.e não postou o código

meu amigo, não seja injusto .... o cara colocou sim o código, mas voce é que não entendeu

copiei o codigo dele e coloquei aqui para voce ver.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var pagina, lista : string;
    arquivo : TStrings;
begin
   pagina := IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6143');
   lista := copy(pagina,pos('<table id="tb_salas"',pagina),length(pagina));
   lista := copy(lista,1,pos('</table>',lista)+length('</table>')-1);
   //Memo1.Lines.Text := lista;

   arquivo := TstringList.create;
   arquivo.Text := lista;
   arquivo.SaveToFile('C:\Temp.html');

   WebBrowser1.Navigate('C:\Temp.html');
end;

end.

OBS: depois que ele mostra o resultado em um Memo, ele tira esse codigo, salva em um arquivo html no disco ( C:\Temp.html ) e depois pega esse arquivo e joga dentro de um WebBrowser para mostrar exatamente o que voce está querendo.

imagem.JPG.9e421ffefbf514f12b4c81c682cfd8a2.JPG

abraço

hunter2017 · Junho 1, 2017

8 horas atrás, Jhonas disse:
Já tentei fazer igual no vídeo mas não deu certo, porque aquele cara é um ***.e não postou o código

meu amigo, não seja injusto .... o cara colocou sim o código, mas voce é que não entendeu

copiei o codigo dele e coloquei aqui para voce ver.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var pagina, lista : string;
    arquivo : TStrings;
begin
   pagina := IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6143');
   lista := copy(pagina,pos('<table id="tb_salas"',pagina),length(pagina));
   lista := copy(lista,1,pos('</table>',lista)+length('</table>')-1);
   //Memo1.Lines.Text := lista;

   arquivo := TstringList.create;
   arquivo.Text := lista;
   arquivo.SaveToFile('C:\Temp.html');

   WebBrowser1.Navigate('C:\Temp.html');
end;

end.
OBS: depois que ele mostra o resultado em um Memo, ele tira esse codigo, salva em um arquivo html no disco ( C:\Temp.html ) e depois pega esse arquivo e joga dentro de um WebBrowser para mostrar exatamente o que voce está querendo.

abraço

var pagina, lista : string;
    arquivo : TStrings;
begin
   pagina := IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6143');
   lista := copy(pagina,pos('<table id="tb_salas"',pagina),length(pagina));
   lista := copy(lista,1,pos('</table>',lista)+length('</table>')-1);
   //Memo1.Lines.Text := lista;

   arquivo := TstringList.create;
   arquivo.Text := lista;
   arquivo.SaveToFile('C:\Temp.html');

   WebBrowser1.Navigate('C:\Temp.html');
end;

end.

Esse codigo acima eu coloco a onde? é no webbrowser, no memo, ou na unit1? você não falou onde coloca esse código e nem o cara do vídeo.

Ta dando erro undeclarado de idhttp1; a mesma falha quando tentei declarar URLmon; e toda vez que vou declarar algo na uses dá esse erro.

**Jhonas** · Junho 1, 2017

Esse codigo acima eu coloco a onde?

você não falou onde coloca esse código e nem o cara do vídeo.

voce tem que olhar o nome da procedure que esta no código ( evento OnCreate do Form )

procedure TForm1.FormCreate(Sender: TObject);

Ta dando erro não declarado de idhttp1;

voce tem que colocar o componente TIdHTTP da paleta Indy Clients e o componente TWebBrowser da paleta Internet no Form

OBS: O código está completo e funcionando .... voce tem que abrir uma nova aplicação e no Form voce coloca o componente Tidhttp e o componente twebbrowser

o codigo voce coloca no evento OnCreate do Form

procedure TForm1.FormCreate(Sender: TObject);
var pagina, lista : string;
    arquivo : TStrings;
begin
   pagina := IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6143');
   lista := copy(pagina,pos('<table id="tb_salas"',pagina),length(pagina));
   lista := copy(lista,1,pos('</table>',lista)+length('</table>')-1);
   //Memo1.Lines.Text := lista;

   arquivo := TstringList.create;
   arquivo.Text := lista;
   arquivo.SaveToFile('C:\Temp.html');

   WebBrowser1.Navigate('C:\Temp.html');
end;

esse código não utiliza a uses URLMON.

abraço

hunter2017 · Junho 1, 2017

Sim jhonas, funcionou!! Agora tem a segunda dúvida, eu tenho um painel de login com 2 combobox, um botão "Entrar", um botão "Desconectar" e um botão "Sair", eu preciso conectar esse painel em no servidor com o auxílio de dois sockets, um para client e outro para servidor no qual o endereço ip dele é 200.147.3.199, eu algum tempo atrás eu tava quase conseguindo mas desisti porque pensei que estava errado mas eu estava no caminho certo, porém, não me lembro como fiz, a única coisa que me lembro foi de ter programado os parâmetros de programação no botão "Entrar" e esse botão ficou com a borda mais "grossa" se isso te faz lembrar de como é feito essa conexão socket no servidor, me dê uma idéia, porque o que eu necessito é de uma line.string em que o servidor possa verificar se o email e senha estão corretos para poder conectar, caso contrário o login será cancelado pelo servidor.

Olhe o meu form..

São 2 edits, mas imagine que seja combobox.

Editado Junho 1, 2017 por hunter2017

**Jhonas** · Junho 1, 2017

o que eu necessito é de uma line.string em que o servidor possa verificar se o email e senha estão corretos para poder conectar,

no combobox voce pode colocar os nomes e no edit voce digita a senha

como é feito essa conexão socket no servidor, me dê uma idéia

exemplo:

http://www.planetadelphi.com.br/download/1805/arquivo/sockets

caso voce queira pesquisar sobre o assunto

https://www.google.com.br/?gws_rd=ssl#q=socket+delphi+exemplo

abraço

hunter2017 · Junho 1, 2017

Obrigado, Jhonas!

hunter2017 · Junho 2, 2017

Esses posts que você me passou não tem o que eu preciso porque não diz nada relacionado a LineStrings ou algo do tipo, acho que vou ter que abrir um novo post em um outro site.

**Jhonas** · Junho 2, 2017

que eu saiba no delphi não tem isso ( a não ser que seja Memo.Lines.String )...

hunter2017 · Junho 2, 2017

É um parâmetro que envia dados de login e senha por socket para o servidor fazer a verificação do login se está correto ou não, talvez eu tenha confundido o nome, mas é mais ou menos isso.

**Jhonas** · Junho 2, 2017

ok... veja esse exemplo

http://www.unidev.com.br/index.php?/topic/45516-tela-de-logon-em-socket/

ou

https://www.google.com.br/?gws_rd=ssl#q=login+senha+socket+delphi+

abraço

hunter2017 · Junho 3, 2017

O que é uma variável global e qual forma de se declarar uma variável global, Jhonas?

**Jhonas** · Junho 3, 2017

Em programação, uma variável global é uma variável acessível em todos os escopos de um programa de computador. O mecanismo de interação com variáveis globais é chamada ambiente global. Em contraste o ambiente local é um mecanismo no qual as variáveis são locais (conceito básico de variável local) e sem memória compartilhada.

O uso de variáveis globais é geralmente considerado inadequado pois seu conteúdo pode ser potencialmente modificado de qualquer local, e qualquer parte de um código pode depender dela. A técnica possui o potencial de criar dependências mútuas, o que aumenta a complexidade e dificuldade de leitura de um código. Entretanto, para alguns casos seu uso pode ser adequado; um exemplo é a passagem frequente de variáveis continuamente por diversas funções.

Em programação concorrente, variáveis globais são bastante usadas para passar informações entre seções de código que não compartilham relação, como threads concorrentes e em programação de sinais.

exemplo

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    num1 : integer; // variavel global dentro da aplicação
  end;

var
  Form1: TForm1;
  num : integer = 2; // variavel global dentro do form
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var num2 : integer; // variavel local dentro da procedure
begin
  num2 := 10;
  num := num * num2;
  num1 := 3;

  showmessage(inttostr(num2));
  showmessage(inttostr(num));
  showmessage(inttostr(num1));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  num1 := num1 + num1;

  showmessage(inttostr(num1));
end;

end.

OBS: clicando no botão1 o resultado será 10 , 20 e 3 respectivamente .. veja que a variavel num1 recebe o valor = 3 nesse instante. quando voce clica no botão2 o resultado é 6, pois o valor é passado para toda a aplicação

mais informações sobre o assunto:

https://www.google.com.br/?gws_rd=ssl#q=declarar+variavel+global+delphi+7

abraço

hunter2017 · Junho 4, 2017

Assim está o meu comando, agora preciso colocar no edit1 e edit 2 um receive.text para receber o que foi digitado no edit, mas não sei como fazer isso.

procedure TForm1.btn02Click(Sender: TObject);
begin
if servidor1.Active = True then begin
servidor1.active := False;
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if servidor1.Active = False then begin
servidor1.active := True;
end;
end;

procedure TForm1.edit1Change(Sender: TObject);
begin

end;

end.

**Jhonas** · Junho 4, 2017

já te passei um exemplo completo .... use esse exemplo ou estude o código e faça as modificações no seu.

http://www.planetadelphi.com.br/download/1805/arquivo/sockets

preciso colocar no edit1 e edit 2 um receive.text para receber o que foi digitado no edit

outro exemplo mais simples

http://www.devmedia.com.br/forum/senha-por-sockets/170200

abraço

hunter2017 · Junho 10, 2017

Ainda tenho dúvidas sobre esse post, eu queria saber como pegar pedaços de uma página da web e exibí-la em um memo da mesma forma como fez no webbrowser.

**Jhonas** · Junho 11, 2017

eu queria saber como pegar pedaços de uma página da web e exibí-la em um memo da mesma forma como fez no webbrowser.

no webbrowser aparece a execução do código, no memo vai aparecer somente o código.

o código é o mesmo que aparece no arquivo 'C:\Temp.html'

abraço

Entrar

(Resolvido) HTML em um MEMO

Pergunta

Link para o comentário

Compartilhar em outros sites

Top Posters For This Question

Dias Populares

Top Posters For This Question

Dias Populares

Posted Images

53 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns