フリーソフト

ネットワーク関連

[BCB] ローカルホスト名とIPアドレスの取得

#include <System.hpp>
#include <IdWinsock.hpp>

//-----------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 WORD wVersionRequested;
 TWSAData wsaData;

 wVersionRequested = MAKEWORD(1,1);
 WSAStartup(wVersionRequested,&wsaData);
}
//-----------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 WSACleanup;
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 char Buf[256];
 PHostEnt p;

 p=gethostbyname(Buf);

 //IPアドレス
 Label1->Caption=(inet_ntoa)(*((PInAddr)p->h_addr_list[0]));
 //ローカルホスト名
 Label2->Caption=p->h_name;
}
//-----------------------------------------------------------------