> 後でインストールして再度兆戦してみます.
インストールして,先のサンプル[774....]テストしました.
OKですね.
あと,今気づいたところでは,OnWorkとOnWorkBeginイベントの引数が
違っています.この修正が必要ですね.手動で書き換えて構いません.
多分OnWorkEndも同じでしょう.
Int64にしたのはおそらく大きなサイズのダウンロードやアップに耐える
ようにしたということかも知れません(2GB以上).
Ver 10.1.5
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
Ver 10.2.3
AWorkCountの前のconstがなく,Int64になっている
procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
|