TActionList ใน Delphi มีการดำเนินการมาตรฐาน TDownLoadURL ซึ่งใช้ URLDownloadToFile ภายใน เมื่อดาวน์โหลดไฟล์ มันจะสร้างเหตุการณ์ OnDownloadProgress เป็นประจำ เพื่อให้สามารถแสดงพร้อมกับแถบความคืบหน้าได้
บทความนี้จะอธิบายวิธีที่ Delphi ใช้ TActionList เพื่อดาวน์โหลดไฟล์ โค้ดการใช้งานมีดังนี้:
ใช้ Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, ExtActns, ActnList, StdCtrls, ComCtrls; พิมพ์ TForm1 = class (TForm) Button1: TButton; ActionList1: TActionList; : TObject); ขั้นตอน { การประกาศส่วนตัว } URL_OnDownloadProgress (ผู้ส่ง: TDownLoadURL; ความคืบหน้า, ProgressMax: พระคาร์ดินัล; StatusCode: TURLDownloadStatus; StatusText: สตริง; var ยกเลิก: บูลีน) ; สาธารณะ { ประกาศสาธารณะ } สิ้นสุด; ;เริ่มต้น ProgressBar1.Max:= ProgressMax; ProgressBar1.Position:= ความคืบหน้า;สิ้นสุด; ขั้นตอน TForm1.Button1Click(Sender: TObject);เริ่มต้นด้วย TDownloadURL.Create(self) ลองใช้ URL:='//www.VeVB.COm/images/logo.gif'; '; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(ไม่มี); ProgressBar1.Max := 0;สิ้นสุด;