取得本地internet机器的名字及IP地址
2008-03-08 12:48:19 来源:WEB开发网核心提示:一、下面的例子使用 Winsock API 取得本地主机的名字及地址void __fastcall TForm1::Button1Click(TObject *Sender){hostent *p;char s[128];char *p2;//Get the computer namegethostname(s, 12
一、下面的例子使用 Winsock API 取得本地主机的名字及地址
void __fastcall TForm1::Button1Click(TObject *Sender)
{
hostent *p;
char s[128];
char *p2;
//Get the computer name
gethostname(s, 128);
p = gethostbyname(s);
Memo1->Lines->Add(p->h_name);
//Get the ipAddress
p2 = inet_ntoa(*((in_addr *)p->h_addr));
Memo1->Lines->Add(p2);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Word wVersionRequested;
WSADATA wsaData;
//Start up WinSock
wVersionRequested = MAKEWORD(1, 1);
WSAStartup(wVersionRequested, &wsaData);
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
WSACleanup();
}
[]
- ››Internet Explorer 无法打开
- ››本地行业网站细分化将网站做强
- ››本地智慧:我奋斗了五年不是为了做垃圾站长
- ››Internet Explorer 9 Platform 1.9.7916.6000 Pre...
- ››取得android中linux的内核版本号
- ››本地网站迁移至虚拟主机的教程
- ››Internet Explorer 8 语言包 For XP/2003
- ››Internet Explorer 8最值得使用的新功能
- ››Internet Explorer 8 简体中文正式版下载
- ››本地安装PW论坛后,后台不显示验证码
- ››本地磁盘无法修改卷标的解决方法
- ››Internet Explorer 8 RC1新功能:加速器
更多精彩
赞助商链接