delphi - 发送流时如何查看Indy tcpserver的进度

Question

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

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

我可以轻松确定进度。但是在服务器端..我该怎么做？

Answer 1

完全相同的方法-使用OnWork事件。您只需要在代码中手动分配事件处理程序，例如在服务器的OnConnect事件中，或者仅在读取流时分配：

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