在线等待 如何得到TWebBrowser当前的下载速度?(200分)

在线等待 如何得到TWebBrowser当前的下载速度?

用
OnDownloadBegin
OnProgressChange
OnDownloadComplete
似乎难以计算速度.

我想你能不能根据已下载数据量和所耗时间算一个大致的出来

加一个TGauge,并在ProgressChange的事件里.写如下码即可.
procedure TFrmRSFZ.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
Gauge1.MaxValue:=ProgressMax;
Gauge1.Progress:=Progress;
end;

非常准确...