Статистика работы сетевого адаптера , Статистика работы сетевого адаптера

Как получить статистику работы сетевого адаптера, как то: время работы, скорость подключения, общий объем отправленных и полученных данных в байтах?

FAQ: Мониторинг сетей

Rouse_ у меня вопрос, в стуктуре MibIfRow, wszName это имя чего, и как его получить ?

String(Table.Table[i].wszName)// возвращает ' ';

Это имя сетевого интерфейса (не путать с описанием). Если оно не заполняется при вызове GetIfTable (нет времени проверить), то попробуй через GetIfEntry.

var
  Table1:PMibIfRow;
  Table2:TMibIfTable;
  size:integer;
begin
Size:=SizeOf(Table2);
GetIfTable(@Table2,@Size,false);
if Table2.dwNumEntries>0 then begin
 GetIfEntry(Table1);
 Table1.dwIndex:=1;
 memo1.lines.add(Table2.Table[1].bDescr+' name: '+ Table2.Table[1].wszName);
 memo1.lines.add(Table1.bDescr+' name: '+ Table1.wszName);//всё время выдает - МsC name: ?B????
end;

А как получить имя соединения ?

Я вечерком гляну, чичас просто времени нет разбираться...

Rouse_ ок, ждем-с

P.O.D, хм, ну я короче фиг его знает какое там имя должно писаться, ничего не заполняется и в MSDN по этому поводу тихо.
Кстати вызывать нужно вот так:

procedure TMainForm.Button1Click(Sender: TObject);
var
  Table1:TMibIfRow;
begin
  ZeroMemory(@Table1, SizeOf(TMibIfRow));
  Table1.dwIndex := 1; // Номер интерфейса
  GetIfEntry(@Table1);
  memo1.lines.add(Table1.bDescr + ' name: ' + Table1.wszName);
end;

Вообще имя виртуального устройства можно получить вот так:

const
  MAX_ADAPTER_NAME       = 255;
type
  PIP_ADAPTER_INDEX_MAP = ^IP_ADAPTER_INDEX_MAP;
  IP_ADAPTER_INDEX_MAP = record
     Index: DWORD;
     Name: array [0..MAX_ADAPTER_NAME-1] of WideChar;
  end;
 
  PIP_INTERFACE_INFO = ^IP_INTERFACE_INFO;
  IP_INTERFACE_INFO = record
     NumAdapters: Longint;
     Adapter: array [0..0] of IP_ADAPTER_INDEX_MAP;
  end;
 
  function GetIfEntry(pIfRow: PMibIfRow): DWORD; stdcall external 'iphlpapi.dll';
  function GetNumberOfInterfaces(var pdwIntf: DWORD): DWORD; stdcall; external 'iphlpapi.dll';
  function GetInterfaceInfo(pIfTable: PIP_INTERFACE_INFO; var dwOutBufLen:DWORD): DWORD;
    stdcall; external 'iphlpapi.dll';
  function GetAdapterIndex(AdapterName: PWideChar; var IfIndex: DWORD): DWORD;
    stdcall; external 'iphlpapi.dll';
 
procedure TMainForm.Button1Click(Sender: TObject);
var
  I, pdwIntf, dwOutBufLen, IfIndex: DWORD;
  lpInfo: PIP_INTERFACE_INFO;
  mirIfDescr: TMibIfRow;
begin
  //if GetNumberOfInterfaces(pdwIntf) = NO_ERROR then
  //begin
    GetInterfaceInfo(nil, dwOutBufLen);
    GetMem(lpInfo, dwOutBufLen);
    try
      if GetInterfaceInfo(lpInfo, dwOutBufLen) = NO_ERROR then
      begin
        for I := 0 to lpInfo^.NumAdapters - 1 do
        begin
          Memo1.Lines.Add('AdapterName: ' + lpInfo^.Adapter[I].Name);
          if GetAdapterIndex(lpInfo^.Adapter[I].Name, IfIndex) = NO_ERROR then
            Memo1.Lines.Add('AdapterIndex: ' + IntToStr(IfIndex))
          else
            RaiseLastOSError;
          ZeroMemory(@mirIfDescr, SizeOf(TMibIfRow));
          mirIfDescr.dwIndex := IfIndex;
          if GetIfEntry(@mirIfDescr) = NO_ERROR then
            Memo1.Lines.Add('AdapterDescription: ' + mirIfDescr.bDescr)
          else
            RaiseLastOSError;
        end;
      end
      else
        RaiseLastOSError;
    finally
      FreeMem(lpInfo);
    end;
  end
  //else
    //RaiseLastOSError;
end;

Добавлено 26.05.05, 08:00

Цитата P.O.D @ 24.05.05, 10:54

А как получить имя соединения ?

Через RasEnumDevices + RasEnumConnections и там сводить...

Цитата Rouse_ @ 26.05.05, 07:26

и там сводить...

так в томт то всё и дело - как свети.
мне бы хотелось получить траффик (GetIfTable) для соед. с нормальным именем, а не с дискрипшенном.

Цитата P.O.D @ 26.05.05, 16:44

так в томт то всё и дело - как свети.

По структурам, там есть места связки. Чичас нет времени на демку, но на след неделе постараюсь нарисовать примерчик (в районе среды, если не забуду...)

Rouse_ да примерчик я и сам думаю смогу, через какие стуртуры можно связаться ?

ТАм глянь в MSDN по поводу Remote Access Service Reference. Я сегодня глядел там через несколько вызовов по структурам можно связать. Функции навскидку не вспомню...