怎么看印tcpserver的进度使用OnWork事件发送流

Question

当在客户端：

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

我可以很容易地确定进度。但在服务器端，我该怎么做？

Answer 1

完全相同的方式 - 使用OnWork事件。你只需要手动分配事件处理程序中的代码，如在服务器的OnConnect事件，或者只是当你正在阅读流：

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