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;