怎么监视网络流量?

Question

你要监视的是下载的流量吧？
下载的字节数你是可以得到的，除以下在时间就是在一小段时间的平均流量
要限制流量的话，就把ftp或者是http下载线程暂时挂起

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
var
 usage,usage1:integer;
begin
 with TRegistry.Create do
 begin
  RootKey:=HKEY_DYN_DATA;
  OpenKey('PerfStats\StatData',false);
  ReadBinaryData('Dial-Up Adapter\TotalBytesRecvd',usage,sizeof(usage));
  ReadBinaryData('Dial-Up Adapter\TotalBytesXmit',usage1,sizeof(usage1));
  Caption:=IntToStr(usage)+','+IntToStr(usage1);
  CloseKey;
  Free;
 end;
end;