habe es auch hiermit versucht...aber damit werden meine veränderungen überhaupt nicht mitgespeichert, die formatierung ist damit allerdings in ordnung...
Delphi-Quellcode:
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
// vTemp : variant;
begin
// vTemp := Form1.WebBrowser1.Document;
// Form1.memo1.text := vTemp.dokument.innerHTML;
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;