TActionList no Delphi possui uma ação padrão TDownLoadURL, que usa URLDownloadToFile internamente. Ao baixar um arquivo, ele gerará um evento OnDownloadProgress regularmente, para que possa ser exibido com uma barra de progresso.
Este artigo descreve como o Delphi usa TActionList para baixar arquivos. O código de implementação é o seguinte:
usa Windows, Mensagens, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários, Diálogos, ExtActns, ActnList, StdCtrls, ComCtrls; tipo TForm1 = class(TForm) Button1: TButton1: TActionList; : TObject); procedimento private {declarações privadas} URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) ; public { Declarações públicas } end var Form1: TForm1; ;início ProgressBar1.Max:= ProgressMax; ProgressBar1.Position:= Progresso;fim; procedimento TForm1.Button1Click(Sender: TObject);comece com TDownloadURL.Create(self) tente URL:='//www.VeVB.COm/images/logo.gif'; ';OnDownloadProgress := URL_OnDownloadProgress; ProgressBar1.Max := 0;fim;