Как оперделить IP-Адреса и порты всех установленных соединений на моем компьютере.

GetTcpTable, GetUdpTable

Это сообщение отредактировал(а) <Spawn> - 14.3.2003, 00:34

Импорт GetTcpTable

Код

unit TcpTable; interface type PDWord=^Longword; PMIB_TCPROW=^TMIB_TCPROW; TMIB_TCPROW=record  dwState:LongWord;  dwLocalAddr:LongWord;  dwLocalPort:LongWord;  dwRemoteAddr:LongWord;  dwRemotePort:LongWord; end; PMIB_TCPTABLE=^TMIB_TCPTABLE; TMIB_TCPTABLE=record  dwNumEntries:LongWord;  table:array[0..0] of TMIB_TCPROW; end; function GetTcpTable(var TcpTable:PMIB_TCPTABLE;var Size:PDWord;bOrder:Boolean):LongWord;stdcall implementation function GetTcpTable;     external 'Iphlpapi.dll' name 'GetTcpTable'; end.

Вызов GetTcpTable

Код

{$R-}    Entries:=16;    Sz:=SizeOf(TMIB_TCPTABLE)+SizeOf(TMIB_TCPROW)*(Entries-1);    pMibTable:=nil;    try     repeat       ReallocMem(pMibTable,Sz);       Res:=GetTcpTable(pMibTable^,Sz,False);     until Res <> ERROR_INSUFFICIENT_BUFFER;     if Res <> NO_ERROR then      begin       ShowMessage(SysErrorMessage(Res));       exit;      end;     for Entries:=0 to pMibTable.dwNumEntries-1 do      begin         <Делать что-то>      end;    finally     FreeMem(pMibTable);    end;   {$R+}

Почему-то данный код неработает...

Во-первых SizeOF() - возвращает значение типа Integer, хотя переменная Sz типа ^LongWord.
Во-вторых при экспортировании ф-ции GetTcpTable необходим pMibTable, тогда почему при ее вызове используется указатель "pMibTable^"
Вообщем я неразобрался... если кто-может то хотелось-бы чтобы объснили..

Цитата(nJIaKca @ 14.3.2003, 20:25)

Почему-то данный код неработает... Во-первых SizeOF() - возвращает значение типа Integer, хотя переменная Sz типа ^LongWord. Во-вторых при экспортировании ф-ции GetTcpTable необходим pMibTable, тогда почему при ее вызове используется указатель "pMibTable^" Вообщем я неразобрался... если кто-может то хотелось-бы чтобы объснили..

Res:DWORD;
Sz:DWord;
pMibTable:PMIB_TCPTABLE;

Ты такие переменные задал?

Переменные то те, а вот здесь

Цитата

Res:=GetTcpTable(pMibTable^,Sz,False);

Компилятор выдает 2 ошибки:
1 - pMibTable^ - [Error] Unit1.pas(44): Types of actual and formal var parameters must be identical
т.e. работает если использовать pMibTable без"^"
2 - Sz [Error] Unit1.pas(44): Types of actual and formal var parameters must be identical
а вот здесь что делать неясно... т.к. при использовании PDWord(Sz) компиляция проходит нормально, но при обращении

Цитата

for Entries:=0 to pMibTable.dwNumEntries-1 do     begin         <Делать что-то>     end;

ошибка read of address FFFFFFFF т.е. pMibTable.dwNumEntries- nil
В чем я опять ошибся?