取得本地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();

}