Push-Text aus WebBrowser auslesen

[r29d43]

Vielleicht noch eine minimale Ergänzung für Leute die diese Frage auch mal haben werden.


Dieser jeweils neue aktualisierte HTML-(Push)Text ist im document.body.innerHTML zu finden:

Delphi-Quellcode:

function TPlatowBuyHelperForm.GetBrowserHtml2(const webBrowser: TWebBrowser): String;
// by 'http://www.cryer.co.uk/brian/delphi/twebbrowser/get_HTML.htm'
var document : IHTMLDocument2;
begin
  document := webBrowser.Document as IHTMLDocument2;
  result := document.body.innerHTML;
end;

Er ist NICHT zu finden mittels dieser Funktion, die zwecks HTML-Text-Sichtung bestimmt auch einige benutzen:

Delphi-Quellcode:

function TPlatowBuyHelperForm.GetBrowserHtml(const webBrowser: TWebBrowser): String;
// by 'http://www.cryer.co.uk/brian/delphi/twebbrowser/get_HTML.htm'
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;