Installshield脚本获取本地IP

最新推荐文章于 2025-08-13 14:11:28 发布

weixin_30834783

最新推荐文章于 2025-08-13 14:11:28 发布

阅读量112

点赞数

CC 4.0 BY-SA版权

文章标签：网络

原文链接：http://www.cnblogs.com/solo/archive/2009/06/18/1505502.html

本文介绍了一个使用TCP/IP函数获取本地主机IP地址的实现方法。通过调用WSAStartup初始化Winsock，gethostname获取主机名，再利用gethostbyname将主机名解析为IP地址，并最终通过inet_ntoa函数将网络字节序的IP转换为可读字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Code
///////////////////////////////////////////////////////////////////////////////
//
// Tcp/Ip function
//
// By: Les Smith
// edit:haozes@gmail.com
//
///////////////////////////////////////////////////////////////////////////////

#define WSADESCRIPTION_LEN      256
#define WSASYS_STATUS_LEN       128

typedef
WSAData
  begin
        INT                    wVersion;
        INT                    wHighVersion;
        string                   szDescription[WSADESCRIPTION_LEN+1];
        string                    szSystemStatus[WSASYS_STATUS_LEN+1];
        short                    iMaxSockets;
        short                  iMaxUdpDg;
        POINTER                lpVendorInfo;
end;
////////////////////
typedef  HostEnt
begin
        POINTER    ph_name;           /* official name of host */
        POINTER    ph_aliases;        /* alias list */
        short      h_addrtype;        /* host address type */
        short      h_length;          /* length of address */
        POINTER    ph_addr_list;      /* list of addresses */
end;

//////////////////
typedef IPName
begin
STRING szIPAddr[100];
end;
/////////////

typedef IPAddrList
begin
POINTER pIPAddr;
end;

/////////////

typedef IPAddPtr
begin
LONG nIPAddr;
end;
/////////////

prototype POINTER wsock32.gethostbyname(BYREF STRING);
prototype POINTER wsock32.gethostname(BYREF STRING, NUMBER);
prototype POINTER wsock32.WSAStartup(INT, POINTER);
prototype POINTER wsock32.inet_ntoa( NUMBER);
prototype POINTER wsock32.WSACleanup();
prototype int     wsock32.WSAGetLastError ();
prototype STRING GetLocalIP();

function STRING GetLocalIP()
WSAData structWSAData;
WSAData POINTER pWSAData;
//
IPName LocalIPName;
IPName  POINTER pLocalIPName;
//
IPAddrList  structIPAddrList;
IPAddrList  POINTER pIPAddrList;
IPAddPtr  structIPAddPtr;
IPAddPtr  POINTER pIPAddPtr;

POINTER pIN_Addr_Struct;
HostEnt structHostEnt;
HostEnt POINTER pHostEnt;
SHORT nlen;
NUMBER nIPNetAddr;

NUMBER nVersion;
STRING szMsg;
STRING szDefault;
STRING szURL;
STRING szPath;
NUMBER nRC;
NUMBER nRC2;
STRING szHostName;
STRING szMYIPAddr;
POINTER pWinSockReturn;

begin
    pWSAData = &structWSAData;

    nRC = UseDLL ("wsock32.dll");
    pWSAData -> wHighVersion = 1;
    pWSAData -> wVersion     = 1;
    nVersion =  0x02000002;   // can be 0x01000001 for Windows NT but Windows 95 requires the version 2 settings

    pWinSockReturn = WSAStartup(nVersion, pWSAData);
    pWinSockReturn = gethostname(szHostName,100);
    pHostEnt       = gethostbyname(szHostName);

    nlen         = pHostEnt   -> h_length;   // debug check (should be 4)
    pIPAddPtr    = pHostEnt    -> ph_addr_list;
    pIPAddPtr   = *pIPAddPtr;
    nIPNetAddr  = *pIPAddPtr;
    // nIPNetAddr  = pIPAddPtr  -> nIPAddr;
    pLocalIPName =  inet_ntoa( nIPNetAddr );
    szMYIPAddr   =  pLocalIPName -> szIPAddr;
    WSACleanup();
    UnUseDLL("wsock32.dll");
    return   szMYIPAddr;
end;

转载于:https://www.cnblogs.com/solo/archive/2009/06/18/1505502.html