Отображение IPv4 и IPv6 адресов в Delphi: совместимость с Windows XP

Delphi , ОС и Железо , Windows

Вопрос пользователя связан с реализацией аналога утилиты netstat для Delphi, который бы отображал информацию о TCP-соединениях, включая IPv4 и IPv6 адреса. Пользователь предоставил исходный код программы, который на данный момент не полностью функционален, так как отсутствуют методы безопасного различения IPv4 и IPv6 адресов, а также корректного отображения удаленных адресов в формате, совместимом с Windows XP.

Решение проблемы

Отличие IPv4 от IPv6

Для различения IPv4 и IPv6 адресов в функции GetExtendedTcpTable необходимо использовать соответствующие константы AF_INET для IPv4 и AF_INET6 для IPv6. В зависимости от переданной семьи протоколов, функция вернет таблицу с адресами соответствующей семьи.

if GetExtendedTcpTable(nil, @TableSize, False, AF_INET, TCP_TABLE_OWNER_PID_ALL, 0) <> ERROR_INSUFFICIENT_BUFFER then Exit;
GetMem(TCPTable, TableSize); // для IPv4
// или
if GetExtendedTcpTable(nil, @TableSize, False, AF_INET6, TCP_TABLE_OWNER_PID_ALL, 0) <> ERROR_INSUFFICIENT_BUFFER then Exit;
GetMem(TCPTable, TableSize); // для IPv6

Отображение удаленных адресов

Для отображения удаленных адресов в правильном формате, можно использовать следующие функции:

function AddrStr(Addr: Cardinal): string;
var
  P: PAnsiChar;
begin
  P := inet_ntoa(PInAddr(@Addr)^);
  SetLength(Result, StrLen(P));
  StrCopy(Result, P);
end;

function Addr6Str(const Addr: IN6_ADDR): string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to 7 do
  begin
    if Result <> '' then
      Result := Result + ':';
    Result := Result + IntToHex(Addr.Word[I], 2);
  end;
  Result := '[' + Result + ']';
end;

Эти функции можно использовать для преобразования адресов в строку. В случае с Windows XP, функция inet_ntop не доступна, поэтому для IPv4 можно использовать inet_ntoa, а для IPv6 - написать собственную функцию преобразования, как показано в примере для Addr6Str.

Пример использования

for I := 0 to TCPTable^.dwNumEntries - 1 do
begin
  if lAf = AF_INET then
    AddrStr(TCPTable^.Table[I].RemoteAddr.s6_bytes);
  else if lAf = AF_INET6 then
    Addr6Str(TCPTable^.Table[I].RemoteAddr);
end;

Совместимость с Windows XP

Для обеспечения совместимости с Windows XP, следует использовать функции, доступные в этой операционной системе, и избегать функций, введенных позже, например, inet_ntop.

Заключение

В данной статье были рассмотрены основные моменты, связанные с отображением IPv4 и IPv6 адресов в Delphi, а также методы обеспечения совместимости с Windows XP. Приведенные примеры кода помогут в реализации аналога утилиты netstat на языке Object Pascal.

Создано по материалам из источника по ссылке.

Вопрос пользователя касается реализации функции отображения TCP-соединений в Delphi, поддерживающей IPv4 и IPv6 адреса с совместимостью с Windows XP.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::