also ich benutz das jetzt so:
Delphi-Quellcode:
function TForm1.getHTMLCode(WebBrowser: TWebBrowser; ACode: TStringList): Boolean;
var ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
Delphi-Quellcode:
getHTMLCode(WebBrowser1,aktqt);
ListBox1.Items.AddStrings(aktqt);
aber alles kommt in einer spalte mit "||" dazwischen, wo ein enter sein sollte...