我正在使用Delphi 7.任何人都可以帮我检索数据连接的发送/接收统计数据,如下图所示?
我想在TEdit
。
我尝试了以下代码,但它仅适用于RAS连接,不适用于NDIS连接。
begin
newname := MagRasCon.GetConnection;
if newname = '' then
begin
if ConnHandle = 0 then Exit;
ConnHandle := 0;
Exit;
end;
if ConnHandle <> MagRasCon.CurRASConn then begin
ConnHandle := MagRasCon.CurRASConn ;
ConnName := MagRasCon.CurConnName ;
MagRasPer.ResetPerfStats ;
if MagRasOSVersion >= OSW2K then
MagRasPer.PerfRasConn [1] := ConnHandle ;
LastXmit := MagRasPer.PerfXmitCur [0] ;
LastRecv := MagRasPer.PerfRecvCur [0] ;
LastTime := GetTickCount ;
lblTotalUP.Caption := '0'; lblTotalDL.Caption := '0';
end ;
MagRasCon.CurrentStatusEx (ConnHandle, 0) ;
if (MagRasCon.ConnectState = RASCS_Connected) then begin
MagRasPer.GetPerfStats ;
curxmit := MagRasPer.PerfXmitCur[0] - LastXmit ;
currecv := MagRasPer.PerfRecvCur[0] - LastRecv ;
LastXmit := MagRasPer.PerfXmitCur[0] ;
LastRecv := MagRasPer.PerfRecvCur[0] ;
LastTime := GetTickCount ;
//Received Sent Data Connection
edtSpeedUP.Text := LastXmit;
edtSpeedDL.Text := LastRecv;
我仍然可以使用这样的代码,还是我必须以另一种方式检测NDIS统计数据?