delphi – indy GET下载速度

欢迎,

我必须使用indy http get compontent在我的应用程序中创建有关下载速度的信息的标题.

在我看来,我找到了简单的解决方案

在onwork活动中,我将获得下载(大小)的实际进度,并将其与之前的阅读进行比较. (例如每5秒钟). curent size减去之前的(5秒钟,存储在全局变量中)除以5秒* 8,我将获得速度.
如果实际尺寸等于之前,则速度始终为0.

所以我想开始编码,但我发现了一个叫做odwork的简单功能问题.

procedure TForm1.HttpWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
  begin
    showmessage('hello im herre');
end;  

问题是,该功能不被称为……
我不知道为什么.

我正在下载100 MB的文件,我看不到任何showmessage …

有什么想法吗？
问候

解决方法

只有在事先调用了连接的BeginWork()方法时才会触发OnWork …事件. Indy的许多读/写方法都不会自动调用它.但是,TIdHTTP使用TStream对象读/写请求/响应正文数据,并且连接的读/写TStream方法在内部调用BeginWork(),因此您肯定会在HTTP操作期间触发OnWork …事件.