หลายวิธีในการใช้ Delphi เพื่อให้ได้การดาวน์โหลดไฟล์

ใช้ urlmon;

ฟังก์ ชั่นดาวน์โหลดไฟล์ (แหล่งที่มา, dest: string ): บูลีน;

เริ่ม

พยายาม

ผลลัพธ์: = urldownloadtofile ( nil , pchar (แหล่งที่มา), pchar (dest), 0, nil ) = 0;

ยกเว้น

ผลลัพธ์: = เท็จ ;

จบ ;

จบ ;

ถ้า downloadfile ('http://www.borland.com/delphi6.zip,' c:/kylix.zip ') จากนั้น

ShowMessage ('ดาวน์โหลดประสบความสำเร็จ')

Else ShowMessage ('ดาวน์โหลดไม่ได้รับ')

ใช้ urlmon, shellapi;

ฟังก์ชั่นดาวน์โหลดไฟล์ (SourceFile, DestFile: String): Boolean;

เริ่ม

พยายาม

ผลลัพธ์: = urldownloadtofile (nil, pchar (sourcefile), pchar (destfile), 0, nil) = 0;

ยกเว้น

ผลลัพธ์: = เท็จ;

จบ;

จบ;

ขั้นตอน tform1.button1.click (ผู้ส่ง: tobject);

const

// ตำแหน่ง URL

SourceFile: = ' http://www.google.com/intl/de/images/home_title.gif';

// จะบันทึกไฟล์ได้ที่ไหน

DestFile: = 'C: /temp/google-image.gif';

เริ่ม

ถ้า ดาวน์โหลดไฟล์ (SourceFile, destFile) แล้ว

เริ่ม

ShowMessage ('ดาวน์โหลดประสบความสำเร็จ!');

// แสดงภาพที่ดาวน์โหลดในเบราว์เซอร์ของคุณ

Shellexecute (application.handle, pchar ('open'), pchar (destfile), pchar (''), nil , sw_normal)

จบ

อื่น

ShowMessage ('ข้อผิดพลาดขณะดาวน์โหลด' + SourceFile)

จบ ;

NMHTTP1.InputFileMode: = ความจริง;

nmhttp1.body: = 'ชื่อไฟล์ท้องถิ่น';

nmhttp1.header: = 'head.txt';

NMHTTP1.OUTPUTFILEMODE: = FALSE ;

nmhttp1.reportlevel: = status_basic;

nmhttp1.proxy: = 'ที่อยู่ IP ของพร็อกซีเซิร์ฟเวอร์';

nmhttp1.proxyport: = 'หมายเลขพอร์ตของพร็อกซีเซิร์ฟเวอร์';

ด้วย nmhttp1.headerinfo do

เริ่ม

คุกกี้: = '';

LocalMailaddress: = '';

localprogram: = '';

ผู้อ้างอิง: = '';

userId: = 'ชื่อผู้ใช้';

รหัสผ่าน: = 'รหัสผ่านผู้ใช้';

จบ ;

nmhttp1.get (' http://www.abcdefg.com/software/a.zip');

ใช้ urlmon;

-

Olecheck (urldownloadtofile ( nil , 'url', 'ชื่อไฟล์', 0, nil ));

วาจา

ดาวน์โหลดไฟล์: tfilestream;

ค่าเริ่มต้น

downloadfile: = tfilestream.create ('c: /aa.rar', fmcreate);

idhttp1.get ('http://www.sina.com.cn/download/aa.rar', downloadfile);

downloadloadfile.free;

จบ ;

-