检测并显示已发送的已接收无线活动

时间:2017-04-14 19:41:10

标签: delphi-7

我正在使用Delphi 7.任何人都可以帮我检索数据连接的发送/接收统计数据,如下图所示?

Detect And Show Sent Received Wireless Activity

我想在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统计数据?

0 个答案:

没有答案