Web sayfasını word dosyası olarak kaydetme.

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Web sayfasını word dosyası olarak kaydetme.

Mesaj gönderen ender_arslanturk »

Web sayfasını word dosyası olarak kaydetmek için altta ki kodu kullanabilirsiniz.

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;

Kullanımı :

Kod: Tümünü seç

begin
       WebSayfasiniWordeKaydet(WebBrowser1 , 'Sayfam');
end;
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: Web sayfasını word dosyası olarak kaydetme.

Mesaj gönderen SimaWB »

Teşekkürler...
There's no place like 127.0.0.1
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: Web sayfasını word dosyası olarak kaydetme.

Mesaj gönderen mrmarman »

Dosya içeriğine baktığınızda aslında HTML olarak kaydettiğini, sadece Uzantısı DOC yaptığınız için MS-WORD tarafından yorumlandığını farkettiniz mi :roll:
Resim
Resim ....Resim
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Re: Web sayfasını word dosyası olarak kaydetme.

Mesaj gönderen ender_arslanturk »

Dikkat etmemiştim Hocam :)
Cevapla