显示进度.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 12 行

如果你是用Tidftp的控件的话，Tidftp的size方法可以得到传输的文件的大小，如下
  iSize := idFtp1.Size('image.jpg');  //传入要下载的文件名，得到文件大小
 if (iSize <> -1) and (iSize < GetDiskSpace('D:')) then //得到大小后判断是否小于磁盘的剩余空间 
 idFtp1.Get('image.jpg', 'd:tempimage.jpg', True);  //开始下载

在Tidftp的onwork事件的workcount参数即为已传输的大小，在这里你可以处理进度条的进度，
和剩余时间，，，
Tidftp的onworkend表示文件传输完毕。。。

可在IDFTP控件的OnWorkBegin事件中设置进度条的Max属性为AWorkCountMax
在OnWork事件中设置进度条的Position属性为AWorkCount，这样进度条就可
以出现了