delphi - IOHandler.ReadStream の進行状況バー

Question

IOHandler.ReadStream に進行状況バーを作成する方法はありますか?

AStream := TFileStream.Create(dlFile, fmCreate + fmShareDenyNone); AContext.Connection.IOHandler.ReadStream(AStream, -1, false);

多分何かのような

一方、AStream.onProgress は

始める

//プログレスバー用

終わり;

また

繰り返す

AContext.Connection.IOHandler.ReadStream(AStream, 4, false);

Progressbar1.Position:=Progressbar1.Position+4;

AStream.size = maxSize; まで。