同一LAN内のIPAdressやMacAdressを取得するには？ (ID:22444)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

設定を正しくして
動作させてください。

function GetHostName(Ip : String) : String;
var
  PH : PHostEnt;
  InAddr: TInAddr;
  WSADATA : TWSADATA;
begin
  Result := '';
  if Ip = '' then exit;
  InAddr.S_addr := inet_addr(PChar(Ip));
  WSAStartup(MakeWord(1,1) , WSADATA);  //MakeWord(1,1)=$0101

PH := gethostbyaddr(@InAddr,4,PF_INET);

if PH = nil then Exit;
  Result := string(ph^.h_name);
  WSACleanup;
end;

function GetIpAddress(HostName : String) : String;
var
  PH : PHostEnt;
  InAddr: TInAddr;
  WSADATA : TWSADATA;
begin
  Result := '';
  if HostName = '' then exit;
  WSAStartup(MakeWord(1,1), WSADATA);

PH := gethostbyname(PChar(HostName));

if PH = nil then Exit;
  InAddr := PInAddr(ph^.h_addr_list^)^;
  Result := inet_ntoa(InAddr);
  WSACleanup;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Memo1.Lines.Add( GetHostName('127.0.0.1') );
  Memo1.Lines.Add( GetIpAddress(GetHostName('127.0.0.1')) );
  Memo1.Lines.Add( GetIpAddress('www.yahoo.co.jp') );
end;

参考
[Delphi-ML:33669] Re: IP アドレス(?) からの変換
http://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=33669

こける Wired-Winsockを使ってみようぜ-3.住所と氏名 '97/11/23
http://www.asahi-net.or.jp/~nk2w-ishr/winsock3.htm

←解決時は質問者本人がここをチェックしてください。

戻る