TActionList di Delphi memiliki tindakan standar TDownLoadURL, yang menggunakan URLDownloadToFile secara internal. Saat mengunduh file, ia akan menghasilkan acara OnDownloadProgress secara teratur, sehingga dapat ditampilkan dengan bilah kemajuan.
Artikel ini menjelaskan bagaimana Delphi menggunakan TActionList untuk mendownload file. Kode implementasinya adalah sebagai berikut:
menggunakan Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir, Dialog, ExtActns, ActnList, StdCtrls, ComCtrls; ketik TForm1 = class(TForm) Button1: TButton; : TObject); prosedur pribadi { Deklarasi pribadi } URL_OnDownloadProgress (Pengirim: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) ; public { Deklarasi publik } end; ;mulai ProgressBar1.Max:= ProgressBar1.Posisi:= Kemajuan;akhir; prosedur TForm1.Button1Click(Pengirim: TObject);mulai dengan TDownloadURL.Create(self) coba URL:='//www.VeVB.COm/images/logo.gif'; '; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil) ; akhirnya Gratis berakhir; ProgressBar1.Max := 0;akhir;