Question

以下代码返回计算机的第一个TCP / IP连接的IP地址。

uses WinSock;

// ...
function GetLocalIP() : String;
var
    addr: TSockAddrIn;
    phe: PHostEnt;
    szHostName: array[0..128] of Char;
    socketData: TWSADATA;
begin
    Result := '127.0.0.1';

    // Initialize the socket API
    if (WSAStartup($101, socketData) = 0) then
        begin
        // Get local machine name
        if (GetHostName(szHostName, 128) = SOCKET_ERROR) then
            Exit;

        // Use name to find IP address
        phe := GetHostByName(szHostName);
        if (phe = nil) then
            Exit;

        addr.sin_addr.S_addr := Longint(PLongint(phe^.h_addr_list^)^);

        // Convert IP address to PChar format
        Result := inet_ntoa(addr.sin_addr);
        end;
end;

// ...
Label1.Caption :=  GetLocalIP();

我需要做哪些修改才能获得所有TCP / IP网络连接的IP地址（有多个连接）？

我在这篇相关文章中偶然发现了这一点： Get information about the installed network adapters 似乎使用Windows API＆＃34; GetAdaptersInfo＆＃34;使用不同的技术......这是要走的路吗？

Answer 1

如果要枚举本地计算机的当前可用IP地址，请使用GetAdaptersInfo()或GetAdaptersAddresses()。

如果要枚举本地计算机当前活动的TCP / IP套接字连接，请使用GetTcpTable()或GetTcpTable2()进行IPv4连接，使用GetTcp6Table()或GetTcp6Table2()进行IPv6连接

获取Delphi中所有连接的IP地址

1 个答案: