(دلفي) مثال على تنزيل ملفات الشبكة

FTP Download: http://www.7880.com/info/article-19938be0.html

http://community.csdn.net/expert/topic/3300/3300012.xml؟temp=5.028933e-02

تحميل FTP: Tidftp Control (Delphi7 Indy)

HTTP Download: (Delphi7) استخدم التحكم في التصميم لتنزيل ملفات الشبكة //////////////////

إضافة عناصر التحكم في النموذج 1:

اثنين من عناصر التحكم indy: idantifreleze1 ، idhttp1 ؛

زر: button1 ؛

شريط التقدم: يعرض ProgressBar1 سرعة التنزيل

الإجراء tform1.button1click (المرسل: tobject) ؛

var

mystream: tmemorystream ؛

يبدأ

idantifreeze1.Onlywhenidle: = false ؛ // تعيين لجعل البرنامج رد فعل.

mystream: = tmemorystream.create ؛

يحاول

idhttp1.get ('http://www.appcontrols.com/demos/exe/httpdemo.exe'،mystream) ؛

يستثني

ShowMessage ("لا تنزيل ناجح!") ؛

mystream.free ؛

مخرج؛

نهاية؛

mystream.savetofile (extractFilePath (paramstr (0))+'httpdemo.zip') ؛

mystream.free ؛

ShowMessage ('ok') ؛

نهاية؛

الإجراء tform1.IDHTTP1Workbegin (المرسل: tobject ؛ aworkmode: tworkmode ؛

const aworkcountmax: integer) ؛

يبدأ

// قبل بدء التنزيل ، قم بتعيين أقصى قيمة لـ ProgressBar1 على حجم البيانات الذي يجب استلامه.

ProgressBar1.Max: = aworkcountmax ؛

ProgressBar1.min: = 0 ؛

ProgressBar1.Position: = 0 ؛

نهاية؛

الإجراء tform1.IDHTTP1 (المرسل: tobject ؛ aworkmode: twoorkmode ؛

const aworkcount: عدد صحيح) ؛

يبدأ

// عند تلقي البيانات ، سيتم عرض التقدم في ProgressBar1.

ProgressBar1.Position: = ProgressBar1.position+aworkcount ؛

نهاية؛