Also wenn man aus einem TWebBrowser den Quelltext der Seite speichern will, dann geht das so:
Delphi-Quellcode:
//Code auslesen:
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;
Vielleicht kannst du ja den Code entsprechend abändern... Hoffe es bringt dich weiter.