Delphi 如何查看indy tcpserver'；发送流时的进度

在使用OnWork事件的客户端中：

Speed := (count / (stoptick -starttick ))/1024; //in mb

---

我可以很容易地确定进展情况。但是在服务器端。。我如何才能做到这一点？

完全相同的方法-使用

OnWork

事件。您只需在代码中手动分配事件处理程序，例如在服务器的

OnConnect

事件中，或者在读取流时：

AContext.Connection.OnWorkBegin := MyWorkBeginHandler; 
AContext.Connection.OnWork := MyWorkHandler;
AContext.Connection.OnWorkEnd := MyWorkEndHandler;

---

我应该注意到。。谢谢你，伙计。。你又一次拯救了我