Leere Stream

[Mike2K]

Habe dieses Forum schon mehrfach nach folgender Problemlösung durchsucht aber nix gefunden, geht um TWebBrowser und Quelltext. Benutze die untenstehende Function, beim ersten Mal enthält der Stream auch Daten. Wenn ich dann weiter auf der gleichen Page bleibe wird nur noch ein leerer Stream erzeugt. Woran kann es liegen ? Bin am verzweifeln.

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;