调用那个函数得到本机的ip (2000年8月15日).txt

delphi 编程技巧

调用那个函数得到本机的IP (2000年8月15日) 

本站更新  分类:   作者:zsm (嘎子)  推荐:   阅读次数:785  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
struct hostent *thisHost; 
struct in_addr in; 
char MyName[80]; 
char *IP,*ptr; 

if(gethostname (MyName,80)==SOCKET_ERROR) 
return NULL; 
if(!(thisHost = gethostbyname(MyName))) 
return NULL; 
memset((void *)&in,sizeof(in),0); 
in.s_addr=*((unsigned long *)thisHost->h_addr_list[0]); 
if(!(ptr = inet_ntoa(in))) 
return NULL; 
IP = new char[strlen(ptr)+1], 
strcpy(IP,ptr); 
return IP; 




是在vc下编的，而这两个函数是api函数，delphi应该也能用  
 


--------------------------------------------------------------------------------