delphi4arab منتديات دلفي للعرب

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

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

الحفظ بصيغة 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

كريم زياني

AvimimuS