Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) HTML em um MEMO


hunter2017

Pergunta

  • Respostas 53
  • Created
  • Última resposta

Top Posters For This Question

Posts Recomendados

  • 0
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>

 

Link para o comentário
Compartilhar em outros sites

  • 0

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 por hunter2017
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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..

Link para o comentário
Compartilhar em outros sites

  • 0

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

 

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

 

Link para o comentário
Compartilhar em outros sites

  • 0
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.

imagem.JPG.9e421ffefbf514f12b4c81c682cfd8a2.JPG

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

 

 

 

Link para o comentário
Compartilhar em outros sites

  • 0

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.

 

Print.sockets.PNG

Editado por hunter2017
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

imagem.JPG

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.




  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...