+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أحفظ صفحة الأنترنت (/showthread.php?tid=2030)
كيف أحفظ صفحة الأنترنت - كريم زياني - 22-05-2010
السلام عليكم ورحمة الله تعالى وبركاته
كيف أجعل المتصفح يحفظ صفحة الأنترنت إلى القرص الصلب عن طريق savedialog
كيف أحفظ صفحة الأنترنت - AvimimuS - 22-05-2010
وعليكم السلام ورحمة الله تعلي وبركاته
الحفظ بصيغة 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') ;
كيف أحفظ صفحة الأنترنت - كريم زياني - 22-05-2010
شكرا جزيلا لك أخي لكن أين أضع هذا الكود?
كيف أحفظ صفحة الأنترنت - AvimimuS - 22-05-2010
إقتباس :شكرا جزيلا لك أخي لكن أين أضع هذا الكود?اخي الكريم راجع هذا الدرس وستفهم ماتريد
[دورة دلفي للعرب] الدرس الثالث : الإجراءات و الدوال