Webbrowser quelltext auslesen

[marabu]

Hallo,

einfacher als über das HTML-DOM kann man das geladene Dokument über die IPersistStream-Schnittstellen auslesen, die von fast allen MS-Komponenten unterstützt werden. Die Prozedur DocToStrings() liefert den HTML-Quelltext als StringList, aber auch die Rückgabe als String sollte mit ein paar minimalen Änderungen kein Problem darstellen:

Delphi-Quellcode:

function DocToString(doc: IDispatch): string;
var
  ps: IPersistStreamInit;
  sa: IStream;
  s: TStringStream;
begin
  if Succeeded(doc.QueryInterface(IPersistStreamInit, ps)) then
  begin
    s := TStringStream.Create('');
    sa := TStreamAdapter.Create(s, soReference) as IStream;
    if Succeeded(ps.Save(sa, True))
      then Result := s.DataString
      else Result := '';
    s.Free;
  end;
end;

Grüße vom marabu