IdTCPServer在传送文件的时候如何显示进度？

Question

IdTCPServer在传送文件的时候如何显示进度？
IdTCPClient有onwork事件，可以实现，现在是IdTCPServer端不知道如何显示文件传输的进度。
还有一个问题，我的
procedure TForm1.TCPClientWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;
为什么AWorkCountMax老为0，不过我通过server在发送文件前writeln一个字节数过来了，所以这个问题如果不知道还可以跳过去。

Answer 1

你是要在IdTCPServer这端显示进度吗？你自己把文件切割成小块发送吧，这样就可以控制进度了。