フリーソフト

« [Delphi] 仮想キーコードで英数字を扱うには | トップページ | [BCB] フォントのスタイルを設定する »

[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;
}
//-----------------------------------------------------------------

« [Delphi] 仮想キーコードで英数字を扱うには | トップページ | [BCB] フォントのスタイルを設定する »

C++Builder」カテゴリの記事

ネットワーク関連」カテゴリの記事

コメント

この記事へのコメントは終了しました。