IOHandler.ReadStream中的进度条

Question

无论如何在IOHandler.ReadStream中创建一个进度条？

  

AStream：= TFileStream.Create（dlFile，fmCreate + fmShareDenyNone）;   AContext.Connection.IOHandler.ReadStream（AStream，-1，false）;

可能像

  

而AStream.onProgress做

     

开始

     

// for progressbar

     

端;

或

  

重复

     

AContext.Connection.IOHandler.ReadStream（AStream，4，false）;

     

Progressbar1.Position：= Progressbar1.Position + 4;

     

直到AStream.size = maxSize;