كيف أحفظ صفحة الأنترنت

[كريم زياني]

السلام عليكم ورحمة الله تعالى وبركاته
كيف أجعل المتصفح يحفظ صفحة الأنترنت إلى القرص الصلب عن طريق savedialog

[AvimimuS]

وعليكم السلام ورحمة الله تعلي وبركاته

الحفظ بصيغة Html

PHP كود :

uses ActiveX;
 ...
 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 *) 

Usage sample:

 //first navigate
 WebBrowser1.Navigate('http://www.delphi4arab.net') ;
 
 //then save
 WB_SaveAs_HTML(WebBrowser1,'c:\WebBrowser1.html') ; 


[كريم زياني]

شكرا جزيلا لك أخي لكن أين أضع هذا الكود?

[AvimimuS]

شكرا جزيلا لك أخي لكن أين أضع هذا الكود?

اخي الكريم راجع هذا الدرس وستفهم ماتريد
[دورة دلفي للعرب] الدرس الثالث : الإجراءات و الدوال