3

我用wininet的一些功能下载文件：

 Url := source_file;

 destinationfilename := destination_file;
 hInet := InternetOpen(PChar(application.title), INTERNET_OPEN_TYPE_PRECONFIG,
   nil, nil, 0);
 hFile := InternetOpenURL(hInet, PChar(Url), nil, 0,
   INTERNET_FLAG_NO_CACHE_WRITE, 0);

 if Assigned(hFile) then
 begin
   AssignFile(localFile, destinationfilename);
   Rewrite(localFile, 1);
   repeat
     InternetReadFile(hFile, @Buffer, SizeOf(Buffer), bytesRead);
     BlockWrite(localFile, Buffer, bytesRead);
     current_size := current_size + bytesRead;
   until (bytesRead = 0) OR (terminated = True);
   CloseFile(localFile);
   InternetCloseHandle(hFile);
 end;
 InternetCloseHandle(hInet);

我试图确定下载速度，但得到一些奇怪的值：

   ...
   repeat
     QueryPerformanceFrequency(iCounterPerSec);
     QueryPerformanceCounter(T1);

     InternetReadFile(hFile, @Buffer, SizeOf(Buffer), bytesRead);
     BlockWrite(localFile, Buffer, bytesRead);
     current_size := current_size + bytesRead;
     QueryPerformanceCounter(T2);

     _speed := round((bytesRead / 1024) / ((T2 - T1) / iCounterPerSec));

     download_speed := inttostr(_speed) + ' kbps';
   until (bytesRead = 0) OR (terminated = True);
   ...

所以问题是我如何确定以 kbps 为单位的下载速度？提前感谢您的回答！

4

1 回答 1

6

除了缩写kbps是千位而不是千字节之外，您的代码对我来说看起来不错。您有传输的千字节数，您有传输时间，然后将这两个值相除。

这些数字会随着时间而波动。为了使数字平滑，您可能希望使用移动平均线。

有多种因素会影响您的测量。例如，有多个有效缓冲层。如果 Delphi 文件缓冲区很大，那么一些对 的调用BlockWrite将简单地将内存从Buffer为 维护的内部缓冲区中复制localFile，而其他调用将包括将缓冲区刷新到磁盘。同样，操作系统可能有文件缓冲区，有时只会被写入。因此，您不仅要测量下载速度，还要测量磁盘 I/O 速度。增加 的大小Buffer将减少影响，因为您更有可能在每次迭代时耗尽文件缓冲区。移动平均线将抵消由累积和刷新缓冲区引入的变化。

服务器或您与服务器之间的某些路由器可能会限制速度，这可以解释为什么即使存在其他并发网络流量，您似乎也能获得相同的测量结果。

于 2012-12-18T15:14:34.197 回答