获取ip地址

Question

我想用API函数gethostbyname通过计算机名获得局域网中的计算机IP地址,看起来很简单可一运行发现输入我的计算机名能够获取到IP地址，但不能根据局域网中计算机名获取相应的IP地址，这是为啥？请各位大虾不吝赐教

Answer 1

一个函数
function GetLocalIP: string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe               : PHostEnt;
  pptr              : PaPInAddr;
  Buffer            : array[0..63] of char;
  I                 : Integer;
  GInitData         : TWSADATA;
begin
  WSAStartup($101, GInitData);
  Result := '';
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pptr := PaPInAddr(Phe^.h_addr_list);
  I := 0;
  while pptr^[I] <> nil do
  begin
    result := StrPas(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;