Kod: Tümünü seç
Function WebSayfasiniWordeKaydet(Browser:TWebBrowser; DosyaAdi:String):Boolean;
var
HTMLDocument:IHTMLDocument2;
PersistFile:IPersistFile;
s:WideString;
begin
s:=ExtractFilePath(Application.ExeName)+DosyaAdi+'.doc';
HTMLDocument := Browser.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr(s), System.True);
Form1.DosyaAc(s);
end;
Kod: Tümünü seç
begin
WebSayfasiniWordeKaydet(WebBrowser1 , 'Sayfam');
end;