在InstallShield中引用WINSOCK 的示例代码-巨人网络通讯

通过以下示例，InstallShield可以用WINSOCK获取IP地址，可将以下文件保存为tcpip.rul
#define WSADESCRIPTION_LEN      256
#define WSASYS_STATUS_LEN       128
typedef
WSAData
  begin
        INT                    wVersion;
        INT                    wHighVersion;
        char                   szDescription[WSADESCRIPTION_LEN+1];
        char                    szSystemStatus[WSASYS_STATUS_LEN+1];
        short                    iMaxSockets;
        short                  iMaxUdpDg;
        POINTER                lpVendorInfo;
end;
WSAData structWSAData;
WSAData POINTER pWSAData;
typedef  HostEnt
begin
        POINTER    ph_name;
        POINTER    ph_aliases;
        short      h_addrtype;
        short      h_length;
        POINTER    ph_addr_list;
end;
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;
typedef IPName
begin
STRING szIPAddr[100];
end;
IPName LocalIPName;
IPName  POINTER pLocalIPName;
typedef IPAddrList
begin
POINTER pIPAddr;
end;
IPAddrList  structIPAddrList;
IPAddrList  POINTER pIPAddrList;
typedef IPAddPtr
begin
LONG nIPAddr;
end;
IPAddPtr  structIPAddPtr;
IPAddPtr  POINTER pIPAddPtr;
POINTER pIN_Addr_Struct;
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 (   );
program
pWSAData = structWSAData;
nRC = UseDLL ("wsock32.dll");
pWSAData -> wHighVersion = 1;
pWSAData -> wVersion     = 1;
nVersion =  0x02000002;   // 0x01000001
pWinSockReturn = WSAStartup(nVersion, pWSAData);
pWinSockReturn = gethostname(szHostName,100);
pHostEnt       = gethostbyname(szHostName);
nlen         = pHostEnt   -> h_length;
pIPAddPtr    = pHostEnt    -> ph_addr_list;
pIPAddPtr   = *pIPAddPtr;
nIPNetAddr  = *pIPAddPtr;
// nIPNetAddr  = pIPAddPtr  -> nIPAddr;
pLocalIPName =  inet_ntoa( nIPNetAddr );
szMYIPAddr   =  pLocalIPName -> szIPAddr;
MessageBox(szMYIPAddr, INFORMATION);
WSACleanup();
exit;

您可能感兴趣的文章:

C语言WinSock学习笔记
winsockfix网络协议修复工具
WinSock Expert v0.6 beta1 汉化版下载
c语言网络编程-标准步骤(比较简单)
c语言网络编程-标准步骤(改进版)
c# socket网络编程接收发送数据示例代码
C#开发之Socket网络编程TCP/IP层次模型、端口及报文等探讨
Windows网络编程之winsock实现文件传输示例

标签：济源安徽泰安汕头济宁台州武威广东

巨人网络通讯声明：本文标题《在InstallShield中引用WINSOCK 的示例代码》，本文关键词在,InstallShield,中,引用,WINSOCK,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。

在InstallShield中引用WINSOCK 的示例代码

四合一精品企业网站建设

¥888元限时抢购

立即咨询快速购买

企业400电话

合计11份范本：公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

在线咨询