Htmlcode aus TWebbrowser auslesen

[FAlter]

Hi,

Ich habe mal nach einem Code gesucht und bei swissdelphicentergefunden. Für meinen erweiterten TWebBrowser abgewandelt habe ich:

Delphi-Quellcode:

function TFAWebBrowser.GetSource: String;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  //s: string;
begin
  //Result := OleObject.Document.Body.InnerHtml;
  //Result := OleObject.Document.Body.OuterHtml;
  ps := Document as IPersistStreamInit;
  ss := TStringStream.Create('');
  try
    sa := TStreamAdapter.Create(ss) as IStream;
    if Succeeded(ps.Save(sa, True)) then
        Result := ss.DataString;
  finally
    ss.Free;
  end;
end;