|
var
SaveDlg: TSaveDialog;
Doc: IHTMLDocument2;
PersistFile: IPersistFile;
begin
SaveDlg := TSaveDialog.Create(Self);
SaveDlg.FileName := 'default.html';
SaveDlg.Filter := 'HTML Files (*.htm,*.html)|*.htm;*.html';
SaveDlg.Title := 'Saving HTML Code to file';
IF SaveDlg.Execute THEN
begin
Doc := Browser.Document as IHTMLDocument2;
PersistFile := Doc as IPersistFile;
PersistFile.Save(StringToOleStr(SaveDlg.FileName),True);
end;
|