Como ler o conteúdo de um site por um Memo?

[Matheus Lacombe]

EDIT: "Poxa pessoal, ninguém pode dar uma força?

Como ler o conteúdo de um site por um Memo?

tentei pegar o código-fonte desta forma, mas parece que nem tudo que está escrito na página fica ali.. E o que eu queria era justamente ler a página.

Fiz dessa forma:

unit Farejador;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Button1: TButton;
    XPManifest1: TXPManifest;
    procedure WebBrowser1Enter(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WebBrowser1Enter(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.com.br');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
oStringList: TStringList;
begin
oStringList := TStringList.Create;
try
oStringList.Text := WebBrowser1.OleObject.document.Body.InnerHTML;
Memo1.text:=oStringList.text; 
finally
oStringList.Free;
end;

end;
end.

Se nem todos os textos de uma página ficam no codigo-fonte, como faço para ler tudo o que está está escrito nela?

[Matheus Lacombe]

Pessoal, alguém sabe? Por favor?

Pergunta boba: não teria como fazer o delphi selecioinar o WebBrowser e dar um Ctrl+A e copiar tudo para o memo?

[Will702]

Olha o mais próximo que acredito poder faxer é carregar todo o HTML da página em um TMemo.

Teria que baixar a página e depois usar o Lines.LoadFromFile para pegar do arquivo o texto.

Mas desta forma seria todo o HTML da página.

[Matheus Lacombe]

Oi Will702!! Tentei fazer isso.. Porém apenas algumas páginas, quando vou em (Arquivo>Salvar como>Página completa) apenas em alguns sites o html parece "completo"..

Fiz errado? E, como poderia fazer para o Delphi baixar o HTML completo, sem ser manualmente..?

ENCONTREI ISSO, não entendi como uso esse procedimento, por favor ajuda alguém ai:

procedure TForm2.Buscar(WB: TWebBrowser; Text: string);
var
  tr: IHTMLTxtRange;
  documento: IHTMLDocument2;
  index: OleVariant;
  frame_dispatch: IDispatch;
  framewnd: IHTMLWindow2;
  framedoc: IHTMLDocument2;
begin
  documento := WebBrowser1.Document as IHTMLDocument2;
  index := 0;
  frame_dispatch := documento.Frames.Item(index);
  if Assigned(frame_dispatch) then
  begin
    framewnd := frame_dispatch as IHTMLWindow2;
    framedoc := framewnd.document;
    framedoc.Get_body.Get_outerText;
   if Assigned(WB.Document) then
   begin
      tr := ((framedoc AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
     if tr.findText(Text, 1, 0) then
     begin
        ShowMessage('achou');
     end;
   end;
   end;

[C.J.]

você quer carregar o codigo fonte da pagina? ou apenas exibi-la? se for so exibir é so usar o TBrowser.

se for carregar o fonte responde ai que te explico..

Abraços

[Matheus Lacombe]

Na verdade quero apenas poder copiar tudo o que está escrito em um site (a parte visível à qualquer usuário) e colocar isso, em forma de texto, dentro de um Memo. Logo, pouco importa se vou fazer isso copiando o código fonte HTML, ou de outro jeito qualquer..

O problema é que não dá de baixar o código fonte completo de muitos sites... E é aí que parece complicar.

Então, caso você ou alguém aqui saiba alguma forma de se fazer isso, pra mim qualquer uma vale.

Valeu? Abraços!

[jhonbackster]

Consegui obter o conteúdo de uma pagina utilizando o seguinte:

 

Incluí está classe:

Uses URLmon;

 

e utilizei essa função:

URLDownloadToFile(nil,pchar(link),pchar(destino),0,nil);

 

onde link é o endereço da página e destinos é o patch + o nome do arquivo.

 

para puxar para o Memo use o seguinte:

 

Memo1.Lines.LoadFromFile(destino);

 

Uso Delphi 7 e precisei utilizar isso para pegar o conteúdo de uma página gerada dinamicamente.

 

Comigo está funcionando. Abraços!