IdHttp の OnWork と DoWork

Delphi Indy の TIdHttpクラスで、経過状態を取得できる Workイベント

view plainprint?

1. procedure OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);  
2. procedure DoWork(AWorkMode: TWorkMode; const AWorkCount: Int64);  

        procedure OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
        procedure DoWork(AWorkMode: TWorkMode; const AWorkCount: Int64);

OnWork イベントの AWorkCount は、積算値
DoWork メソッドの AWorkCount は、部分値

だった...