FTP ดาวน์โหลด: 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 ดาวน์โหลด: (delphi7) ใช้การออกแบบ Indy Control เพื่อดาวน์โหลดไฟล์เครือข่าย /////////////////////////////////////////////////////
เพิ่มการควบคุมในรูปแบบ 1:
การควบคุมแบบอินดี้สองครั้ง: Idantifreeze1, Idhttp1;
ปุ่ม: ปุ่ม 1;
แถบความคืบหน้า: ProgressBar1 แสดงความเร็วในการดาวน์โหลด
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
วาจา
Mystream: TMemorystream;
เริ่ม
Idantifreeze1.onlywenidle: = 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 ('ตกลง');
จบ;
โพรซีเดอร์ TFORM1.IDHTTP1WORKBEGIN (ผู้ส่ง: TOBJECT; AWORKMODE: TWORKMODE;
Const AworkCountMax: จำนวนเต็ม);
เริ่ม
// ก่อนเริ่มดาวน์โหลดให้ตั้งค่าสูงสุดของ ProgressBar1 เป็นขนาดข้อมูลที่ต้องได้รับ
progressbar1.max: = aworkcountmax;
ProgressBar1.min: = 0;
ProgressBar1.Position: = 0;
จบ;
โพรซีเดอร์ TFORM1.IDHTTTP1WORK (ผู้ส่ง: TOBJECT; AWORKMODE: TWORKMODE;
const Aworkcount: จำนวนเต็ม);
เริ่ม
// เมื่อได้รับข้อมูลความคืบหน้าจะปรากฏใน ProgressBar1
ProgressBar1.Position: = ProgressBar1.Position+AworkCount;
จบ;