delphi 웹 페이지 저장

2339 단어 Delphi
. html

uses ActiveX;


procedure TForm1.Button1Click(Sender: TObject);
var
  persist :IPersistfile;
begin
  persist := (webbrowser1.document as ipersistfile);
  persist.save( 'c:\a.html',false);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate( 'abc.com');
end;












 IPersistFile = interface(IPersist)
    [ '{0000010B-0000-0000-C000-000000000046}']
     function IsDirty: HResult; stdcall;
     function Load(pszFileName: POleStr; dwMode: Longint): HResult;
      stdcall;
     function Save(pszFileName: POleStr; fRemember: BOOL): HResult;
      stdcall;
     function SaveCompleted(pszFileName: POleStr): HResult;
      stdcall;
     function GetCurFile(out pszFileName: POleStr): HResult;
      stdcall;
   end;
   {$EXTERNALSYM IPersistFile}
   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IPersistFile)'}

Wiz
첨부 파일 목록

좋은 웹페이지 즐겨찾기