有没有这样的源码!??

Question

各位大虾好！！！小弟想实现在上网的时候获取像拔号软件那样的上行流量和下行流量效果，不知道哪里有这样的源码啊，在网上搜了一下，没有找到，正痛苦ing啊，如哪位大虾有的话请分享一下，谢谢！！！还想问一下，怎样知道一个IP是服务器还是单机，这几天不开浏览器（什么上网的软件都没有开）也有流量通过，知道IP，但不知道是来自Http服务器的还是个人PC的，好烦啊，还请各位大虾帮助一下，谢谢！！！

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;这只是一个取得自己机器流量的程序

Answer 2

HKEY_DYN_DATA 是 win9x下的
HKEY_PERFORMANCE_DATA 是 nt 下的

Answer 3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=393121
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=352316
--------------------------------------------------
来自：左轻侯, 时间：2000-10-1 1:16:00, ID：354046 
一刀兄，你真是雪中送炭啊！搞定！ 顺便把详细的实现方法附上，以供其他朋友参考：函数声明：
RasGetConnectionStatistics: Function (    //  W2K only
  hrasconn: HRasConn;
   lpStatistics: PTRas_Stats  // buffer to receive statistics
    ): DWORD; stdcall;实现部分在RASAPI32.DLL中，使用的时候用GetProcAddress动态加载。参数结构：
    PTRas_Stats = ^TRas_Stats ;
    TRas_Stats = Record
    dwSize,
    dwBytesXmited,
    dwBytesRcved,
    dwFramesXmited,
    dwFramesRcved,
    dwCrcErr,
    dwTimeoutErr,
    dwAlignmentErr,
    dwHardwareOverrunErr,
    dwFramingErr,
    dwBufferOverrunErr,
    dwCompressionRatioIn,
    dwCompressionRatioOut,
    dwBps,
    dwConnectDuration: DWORD ;
    end ;使用：
var
    RasStatistics: TRas_Stats;
    ConnSpd: Integer;
begin
        RasStatistics.dwSize := sizeof(TRas_Stats);
        RasGetConnectionStatistics(fCurRASConn,@RasStatistics);
        ConnSpd := RasStatistics.dwBps;
end;
啥都可以得到，不过只能在w2k下运行。

Answer 4

非常感谢楼上各位大虾的回复！！！回复“konhon(优华)”大虾：访问注册表的方法可以实现实时的获取吗！？？就像MyIE那样，不知道MyIE是不是也用访问注册表的办法啊！？？有没有大虾知道第二个问题，没有人回呀，是不是没有注意啊，谢谢！！！