lc_bcb_108.txt

c++ builder 的一些txt文档

取得本地internet机器的名字及IP地址
取得本地internet机器的名字及IP地址
一、下面的例子使用 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();
 }