Трафик

[Witaliy]

Мне нужна узнать, сколька съело трафика за некоторое время.
Помогите кто может!!!

[eoln]

Если имеется ввиду через сокеты, то http://programmersforum.ru/showthread.php?t=17999

[Witaliy]

А как узнать, сколько ч накачял за день и в своей проге и в чужых?

[eoln]

сколько ч накачял за день и в своей проге и в чужых

Если надо время, то вот процедура проверки подключения к инету, но как сказано, "локальное соединение также учитывается".

...
const cERROR_BUFFER_TOO_SMALL = 603;
      cRAS_MaxEntryName       =  256;
      cRAS_MaxDeviceName      =  128;
      cRAS_MaxDeviceType      =  16;
...
type ERasError = class(Exception);
    HRASConn = DWord;
    PRASConn = ^TRASConn;
    TRASConn = record
    dwSize: DWORD;
    rasConn: HRASConn;
    szEntryName: Array[0..cRAS_MaxEntryName] Of Char;
    szDeviceType : Array[0..cRAS_MaxDeviceType] Of Char;
    szDeviceName : Array [0..cRAS_MaxDeviceName] of char;
end;
TRasEnumConnections = function (RASConn: PrasConn; { buffer to receive Connections data }
    var BufSize: DWord;    {size in bytes of buffer }
    var Connections: DWord {number of Connections written to buffer }): LongInt; stdcall;
...
function RasConnectionCount : Integer;
var RasDLL : HInst;
    Conns : Array[1..4] of TRasConn;
    RasEnums : TRasEnumConnections;
    BufSize : DWord;
    NumConns : DWord;
    RasResult : Longint;
begin    
    Result := 0;    //Load the RAS DLL
    RasDLL := LoadLibrary('rasapi32.dll');
    if RasDLL = 0 then exit;
    try
        RasEnums := GetProcAddress(RasDLL,'RasEnumConnectionsA');
        if @RasEnums = nil then
        raise ERasError.Create('RasEnumConnectionsA not found in rasapi32.dll');
        Conns[1].dwSize := Sizeof (Conns[1]);
        BufSize := SizeOf(Conns);
        RasResult := RasEnums(@Conns, BufSize, NumConns);
        If (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result := NumConns;
    finally
        FreeLibrary(RasDLL);
    end;
end;