Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Internet - Web Sayfasını Kaydetmek  (Okunma sayısı 2443 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Internet - Web Sayfasını Kaydetmek
« : 23 Ekim 2005 02:21:03 »
Kod:  (Unknown Language)
  1. Uses ActiveX;
  2.  
  3.  
  4.  
  5. Procedure WB_SaveAs_HTML(WB: TWebBrowser; Const FileName: String);
  6.  
  7. Var
  8.  
  9.   PersistStream: IPersistStreamInit;
  10.  
  11.   Stream: IStream;
  12.  
  13.   FileStream: TFileStream;
  14.  
  15.  
  16.  
  17. Begin
  18.  
  19.   if not Assigned(WB.Document) then
  20.  
  21.   begin
  22.  
  23.     ShowMessage('Document not loaded!');
  24.  
  25.     Exit;
  26.  
  27.   end;
  28.  
  29.  
  30.  
  31.   PersistStream := WB.Document as IPersistStreamInit;
  32.  
  33.   FileStream := TFileStream.Create(FileName, fmCreate);
  34.  
  35.   try
  36.  
  37.     Stream := TStreamAdapter.Create(FileStream, soReference)
  38.  
  39.               as IStream;
  40.  
  41.     if Failed(PersistStream.Save(Stream, True)) then
  42.  
  43.       ShowMessage('SaveAs HTML fail!');
  44.  
  45.   finally
  46.  
  47.     FileStream.Free;
  48.  
  49.   end;
  50.  
  51. End;










Kullanım Şekli

Kod:  (Unknown Language)
  1. WB_SaveAs_HTML(WebBrowser1, 'C:\cmnsoft.html');
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

Çevrimdışı sadik12

  • Delphi 2 Level 3
  • ***
  • İleti: 79
  • Rep: +0/-1
Ynt: Internet - Web Sayfasını Kaydetmek
« Yanıtla #1 : 31 Ağustos 2008 15:23:51 »
teşşekkürler bilader de ama webbsitedeki resimleri nasıl kaydedebiliriz resimler gözükmüyo

şimdiden teşekkürler
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »