Как определить все IP и порты на моем компьютере?
Материал из DRKB
Функции GetTcpTable, GetUdpTable.
Импорт 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+}
Author: Spawn
Source: http://forum.vingrad.ru
ID: 03339