Трафик

[newerow1989]

Здравствуйте!

Дан фрагмент

type
  TMibIfRow = packed record
    wszName:array[0..255] of WideChar;
    dwIndex:DWORD;
    dwType:DWORD;
    dwMtu:DWORD;
    dwSpeed:DWORD;
    dwPhysAddrLen:DWORD;
    bPhysAddr:array[0..7] of Byte;
    dwAdminStatus:DWORD;
    dwOperStatus:DWORD;
    dwLastChange:DWORD;
    dwInOctets:DWORD;
    dwInUcastPkts:DWORD;
    dwInNUCastPkts:DWORD;
    dwInDiscards:DWORD;
    dwInErrors:DWORD;
    dwInUnknownProtos:DWORD;
    dwOutOctets:DWORD;
    dwOutUCastPkts:DWORD;
    dwOutNUCastPkts:DWORD;
    dwOutDiscards:DWORD;
    dwOutErrors:DWORD;
    dwOutQLen:DWORD;
    dwDescrLen:DWORD;
    bDescr:array[0..255] of Char;
  end;
  PTMibIfTable = array[0..512] of TMibIfRow;
  TMibIfTable = packed record
    dwNumEntries:DWORD;
    Table:PTMibIfTable;
  end;

function GetIfTable(pIfTable:PTMibIfTable;pdwSize:PULONG;bOrder:boolean):
   DWORD; stdcall; external 'IPHLPAPI.DLL';
...

var MibIf:PTMibIfTable;
    P:Pointer;
    i,j,l,c:integer;
    s:string;
begin
   c:=sizeof(MibIf);
   P:=@MibIf;
   If GetIfTable(MibIf,@c,false)<>0 then
      Exit;
   c:=TMibIfTable(P^).dwNumEntries;//всего 47 подключений
   For i:=0 to c-1 do
   begin
      ...  
   end;
end;

С помощью кода я подсчитываю трафик на делфи.
Почему функция GetIfTable работает медленно (примерно 0,5-1 сек)? Есть ли способ устранить такое "зависание"? Или посоветуйте какой-нибудь другой аналогичный код.

Заранее спасибо!

[Источник: http://iantonov.me/page/pishem-programmu-dlja-podscheta-trafika-na-delphi]

[Stilet]

А ты уверен что проблема именно в ней? Ты замерял тики?

[newerow1989]

Уверен! Сначала пошагово обнаружил, потом измерял

[Stilet]

Ну... Я думаю никак, можешь разве что потоки использовать и вместо StringGrid подключить DrawGrid, чтоб не переобновлять весь грид, а только его видимую часть.

[newerow1989]

StringGrid обновляется около 0,01 сек. - не то!
GetIfTable долго работает! - эту часть надо как-то ускорить!

[min@y™]

Этож системная DLL.

137.png

Обратись в microsoft с претензиями.

[Stilet]

эту часть надо как-то ускорить!

Я бы на твоем месте в MSDN поискал функцию из той группы, которая возвращает данные по конкретному интерфейсу, указав его номер. Тогда бы сделал треаду, в которой грид бы построчно обновлял. может так будет быстрее, всетки GetIfTable() собирает всю инфу.