delphi中用Socket取得本机的IP地址

 function GetLocalAddr: string;
var
  szName: array [0..254] of char;
  host: Phostent;
  addr: in_addr;
begin
  Result := '';
  ZeroMemory(@szName, 255);
  if gethostname(szName, 255) <> SOCKET_ERROR then
  begin
    host := gethostbyname(szName);
    if host.h_addr_list^ <> nil then
    begin
      MoveMemory(@addr, host.h_addr_list^,4);
      Result := inet_ntoa(addr);
    end;
  end;
end;