المسيلة M'sila 28 لكل الجزائريين و العرب
 
الرئيسيةالتسجيلالأعضاءس .و .جمكتبة الصوردخول

شاطر | 
 

 Download file from internet in Delphi

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ouali
مدير منتدى المسيلة
مدير منتدى المسيلة
avatar

الجزائر : الجـزائـــــــــر
ذكر عدد الرسائل : 2372
تاريخ الميلاد تاريخ الميلاد : 24/12/1982
العمر : 34
الموقع : http://msila.sd.ma
المزاج : الحمد لله
الدولة : الجزائر
نقاط : 39701
تقييم الاعضاء لك : 56
تاريخ التسجيل : 30/08/2007

مُساهمةموضوع: Download file from internet in Delphi   الجمعة يونيو 13, 2008 11:58 am

الكود:
uses
URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
// موقع الملف على الانترنت
SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
//أين ستحفظ الملف
DestFile = 'c:\temp\google-image.gif';
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage('Download succesful!');
// فتح الملف الذي تم تحميله
ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Error while downloading ' + SourceFile)
end;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://msila.4umer.net
 
Download file from internet in Delphi
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» Internet Speedster v1.1 Build 242 يسرع التصفح بشكل خطير ... طريقته هي حفظ الصور وملفات الملتيميديا بشكل عام للمواقع اللي تزورها دائما
» REAL PLAYER (English) - Jar File - 208 KB
» تحميل اخر اصدارات برنامج كاسبر سكاي Kaspersky Internet Security 2010 V9 بالباتش لكى يعمل مدى الحياة
» ملك الحماية بلا منافس ! ..2010 BitDefender Internet Security +شرح عربي كامل ! ] ?
» كيفية تركيبpes6 - option file - (شرح بصور + فيديو )

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
المسيلة 28 لكل الجزائريين و العرب m'sila 28 :: ¤®§(§ منتدى البرامج والبرمجة §)§®¤ :: قسم البرمجة :: لغة دلفى delphi-
انتقل الى: