如何计算网络流量(200分)

Q

qis2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #1

delphi战友：
我想用delphi写一个计算网络流量的程序，用来计费，不知要如何实现，请多指教！
谢谢!

 

Q

qis2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #2

11

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #3

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;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #4

你可以看看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2632983
你只要把程序稍做改动（不提取包的内容，只根据IP记录包的大小），并把程序运行在网关机器上就可以了。

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #5

to cwmdelpher:
不错，这个办法巧妙。[]
表面上看只能拿到一个接口的流量吧，还有就是别的机器的流量在注册表里也有吗？

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #6

这只是一个取得自己机器流量的程序，至于怎么象专业管理软件那样得到所有机器的流量
还是听专家的教导。

 

Q

qis2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #7

貼了半年多了,兩位老師還能如此指導,非常感動,非常感謝!
以后還請多多幫助,謝謝!