Certa vez tive a curiosidade de saber se era possível recuperar
o código HTML a partir do TWebBrowser.
Felizmente sim, é possível!
Veja o código fonte:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | function GetBrowserHtml(const webBrowser: TWebBrowser): String; var strStream: TStringStream; adapter: IStream; browserStream: IPersistStreamInit; begin strStream := TStringStream.Create(''); try browserStream := webBrowser.Document as IPersistStreamInit; adapter := TStreamAdapter.Create(strStream, soReference); browserStream.Save(adapter, true); Result := strStream.DataString; finally strStream.Free(); end; end; |
Exemplo de uso:
1 2 3 4 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage( GetBrowserHtml(WebBrowser1) ); end; |
