TActionList в Delphi имеет стандартное действие TDownLoadURL, которое внутренне использует URLDownloadToFile. При загрузке файла он регулярно генерирует событие OnDownloadProgress, чтобы его можно было отобразить с помощью индикатора выполнения.
В этой статье описывается, как Delphi использует TActionList для загрузки файлов. Код реализации выглядит следующим образом:
использует Windows, сообщения, SysUtils, варианты, классы, графику, элементы управления, формы, диалоговые окна, ExtActns, ActnList, StdCtrls, ComCtrls; тип TForm1 = class(TForm) Button1: TButton; ActionList1: ProgressBar1: TProgressBar процедура Button1Click(Sender; : TObject); частная {частная декларация} процедура URL_OnDownloadProgress (Отправитель: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) ; public {публичные объявления } end; var Form1: TForm1; реализация {$R *.dfm} процедуры Tform1.URL_OnDownloadProgress ;begin ProgressBar1.Max:= ProgressBar1.Position:=; Прогресс;конец; процедура TForm1.Button1Click(Sender: TObject);начните с TDownloadURL.Create(self) попробуйте URL:='//www.VeVB.COm/images/logo.gif'; FileName := 'logo.gif'; '; OnDownloadProgress: = URL_OnDownloadProgress; ExecuteTarget (ноль); наконец, конец; showMessage ('ОК'); ProgressBar1.Max := 0;конец;