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?