Delphi の TActionList には、内部で URLDownloadToFile を使用する標準アクション TDownLoadURL があり、ファイルをダウンロードするときに OnDownloadProgress イベントを定期的に生成して、進行状況バーを表示できます。
この記事では、Delphi が TActionList を使用してファイルをダウンロードする方法について説明します。実装コードは次のとおりです。
Windows、メッセージ、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、ダイアログ、ExtActns、ActnList、StdCtrls、ComCtrls を使用します; type TForm1 = class(TForm) Button1: TButton: ProgressBar1: TProgressBar; : TObject); private { プライベート宣言 } プロシージャURL_OnDownloadProgress (送信者: TDownLoadURL; Progress、ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) ; public { パブリック宣言 } end; var Form1: TForm1; プロシージャ Tform1.URL_OnDownloadProgress ;begin ProgressBar1.Max:= ProgressBar1.Position:=進行;終了;プロシージャ TForm1.Button1Click(Sender: TObject);TDownloadURL.Create(self) で開始します URL:='//www.VeVB.COm/images/logo.gif'; '; OnDownloadProgress := URL_OnDownloadProgress; 最後に showMessage('OK'); ProgressBar1.Max := 0;end;