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;