İnternet Sayfasını kaydetme (Çözüldü)

[kahraman1285]

Malumunuz İnternet Explorer ile açtığımız sayfayı Dosya>Farklı Kaydet diyerek kaydedebiliyoruz.

Bu kaydettiğim sayfayı daha sonra offline olarak web browser ile gösteriyorum.

İnternet sayfasını kaydetme işini Delphi 7 ile nasıl yapabilirim.Web Browserda denedim ama olmadı.Kaydedemiyorum.

İ.E. nasıl komut gönderipde çalıştırabiliriz(Farklı kaydet yapabiliriz).

Sayfayı kaydetmeden önce O internet sayfasının internete yükenme tarihini daha doğrusu son değişiklik tarihini nasıl anlayabilirim.

Teşekkürler...

[kahraman1285]

http://delphi.about.com/od/internetintr ... 62904a.htm

sayfasında gayet güzel açıklanmış.sadece internet sayfasının webbrowsera yüklenmesi için biraz beklemek gerekiyor ben bunu sleep komutuyla yaptım.

Kod: Tümünü seç

procedure WB_SaveAs_HTML
(WB:TWebBrowser; const FileName : string);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  FileStream: TFileStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;

  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TFileStream.Create(FileName, fmCreate);
  try
    Stream := TStreamAdapter.Create(FileStream, soReference)
              as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('SaveAs HTML fail!');
  finally
    FileStream.Free;
  end;
end; (* WB_SaveAs_HTML *)

kulanımında

Kod: Tümünü seç

 WebBrowser1.Navigate('http://www.mynet.com');

sleep(5500);


 WB_SaveAs_HTML(WebBrowser1,'c:\WebBrowser1.html');

[shadowmann]

Hocam ben de bu linki ve içeriğini kopyala yapıştır yapmıştım bir türlü nedense mesajı gönderemedim. Neyse yine aynı yeri bulmuşsun.

[mrmarman]

sadece internet sayfasının webbrowsera yüklenmesi için biraz beklemek gerekiyor ben bunu sleep komutuyla yaptım.

WebBrowser'in readystate özelliğinin True olup olmadığını takibe alırsan gereğinden fazla sleep yapma ihtimalin ortadan kalkar.

Ref : viewtopic.php?t=6612#36828

[kahraman1285]

Hocam sizin örneğinizi inceledim fakat harddiske kaydettiğim sayfa açılmıyor.

(İnternet bağlantısı koptuğunda)

Ve sürekli printerda bişeyler yazdırmaya çalışıyor.

[mrmarman]

@kahraman1285

Verdiğim örnekteki odaklanılması gereken konu, navigasyonun bittiği anı yakalamak için yapılacak döngü idi. HTML kaynağının hard diskte olması refere edilen başlık için bir örnektir.

- Bir web sayfasındaki HTML text'i TWebBrowser ile almak için yazdığın örneği biraz modifiye ettim, aşağıdaki kodu kullanabilirsin.

- İki türlü fonksiyonel yaptım beğendiğin şekilde kullan.
1.

Kod: Tümünü seç

WB_SaveAs_HTML( WebBrowser1, 'http://www.google.com.tr', 'c:\deneme.htm');

şeklinde TWebBrowser, web adres ve dosya adı her üçünü de verirsen, verdiklerini kullanarak browse işlemini verdiğin webbrowser ile yaparak html kaynağını dosya adıyla kaydeder.

2.

Kod: Tümünü seç

WB_SaveAs_HTML( WebBrowser1, '', 'c:\deneme.htm');

dersen, yani 1. ile aynı fakat URL belirtmezsen, eğer verdiğin WebBrowser daha önce navigate edilmiş sayfa varsa onu verdiğin dosya ismiyle saklar.

Kod: Tümünü seç

procedure WB_SaveAs_HTML(WB:TWebBrowser; const URL, FileName : string);
var
  Liste : TStringList;
begin
  If URL <> '' then
  begin // URL Navigate edilecek
    WB.Navigate(Url);
    While WB.ReadyState <> READYSTATE_COMPLETE
      do Application.ProcessMessages; // sayfa bitmesini beklemedeyiz..
  end else
  begin // Navigate edilmiş bir URL varsa Text olarak kaydedilecek.
    if not Assigned(WB.Document) then
    begin
      ShowMessage('Document not loaded!');
      Exit;
    end;
  end;
  Liste := TSTringList.Create;
  Liste.Text := WB.OleObject.Document.Body.InnerHTML;
  Liste.SaveToFile( FileName );
  Liste.Free;
end;

[kahraman1285]

Hocam bu kadar hızlı cevap alabileceğimi zannetmiyordum.

Teşekkür ederim...

Son olarak şu konudada fikrinizi almak istiyorum.Ben sayfayı harddiske kaydettikten sonra tekrar webbrowserda navigate yaptığımda .swf ve .png uzantılı resim ve flashlar olmuyor bunları göstermek için bu nesneleri sayfayı kaydetmeden önce ayrıca download edip kaydetmek mi gerek?

[tuanna]

çok sağlıklı olmayacak bu yöntem...