TWebbrowser.document in Variable sichern

[marabu]

Hi,

so könnte es funktionieren:

Delphi-Quellcode:

uses
  ActiveX,
  SysUtils,
  SHDocVw,
  MSHTML;

procedure SaveDocument(doc: IDispatch; const fn: TFileName);
var
  pf: IPersistFile;
begin
  if doc.QueryInterface(IPersistFile, pf) = 0 then
    pf.Save(PWideChar(fn), false);
end;

procedure TDemoForm.SaveButtonClick(Sender: TObject);
begin
  SaveDocument(WebBrowser.Document, 'c:\inetpub\wwwroot\marabu.html');
end;

Grüße vom marabu