FDELPHI 16
/RE:01469 RE:HttpClientでのプログレス表示

　ＴＮ さんが美しいサンプルクラスを提示されているので、とりあえず動くと
いった程度の泥臭い方法をアップさせていただきます。
OnWork と OnWorkEnd のイベントハンドラを設定しておいてください。

<<HTTPClient>><<ProgressBar>><<途中経過>>

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    IdAntiFreeze1: TIdAntiFreeze; // ←これは必要なのかなぁ？
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
  end;

var
  Form1: TForm1;
  Strm: TFileStream;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Strm := TFileStream.Create('D:\test\testfile.txt',
                                fmOpenRead or fmShareDenyWrite);
  try
                 // URLは適当につくった文字列
    IdHTTP1.Head('http://www.addr.com/testfile.txt');
    ProgressBar1.Max := IdHTTP1.Response.ContentLength;
    IdHTTP1.Get('http://www.addr.com/testfile.txt',Strm);
  finally
    Strm.Free;
  end;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := Strm.Position;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Position := Strm.Position;
end;

end.

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき