調用那個函數得到本機的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應該也能用  
 


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