TActionList en Delphi tiene una acción estándar TDownLoadURL, que utiliza URLDownloadToFile internamente. Cuando descarga un archivo, generará un evento OnDownloadProgress regularmente, para que pueda mostrarse con una barra de progreso.
Este artículo describe cómo Delphi usa TActionList para descargar archivos. El código de implementación es el siguiente:
utiliza Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios, Diálogos, ExtActns, ActnList, StdCtrls, ComCtrls tipo TForm1 = clase(TForm) Botón1: TButton1: TActionList1: TProgressBar procedimiento Button1Click; : TObject); procedimiento privado { Declaraciones privadas } URL_OnDownloadProgress (Remitente: TDownLoadURL; Progreso, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) público {Declaraciones públicas} var Form1: TForm1; procedimiento de implementación {$R *.dfm} Tform1.URL_OnDownloadProgress; ;comenzar ProgressBar1.Max:= ProgressMax; ProgressBar1.Position:= Progreso; finalizar; procedimiento TForm1.Button1Click (Remitente: TObject); comenzar con TDownloadURL.Create(self) intente URL: ='//www.VeVB.COm/images/logo.gif'; '; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil); finalmente Libre; ProgressBar1.Max:= 0;fin;