GetNameInfo() выдает мусор вместо IP хоста (инфа от GetAdaptersAddresses())

[malor]

Почему содержимое в виде иероглифов внутри переменной `host` ?

Код: (Delphi)

function GetAdaInfo2(out AInfoStr: AnsiString; const AOnlyMac: Boolean):Boolean;
NI_MAXHOST = 1025;
NI_MAXSERV = 32;
NI_NUMERICHOST = $2;
NI_NUMERICSERV = $8;

var
  i: Integer;
  bf: Cardinal;
  LpAdapterAddresses: PIP_ADAPTER_ADDRESSES;

  //*********************
  host, serv: String;
  hostlen, servlen: integer;
  r: integer;
  m_data: WSADATA;
begin
  if WSAStartup($0202, m_data) <> 0 then
    Exit;

  bufferSize := sizeof(text);

  Result := True;
  AInfoStr := '';
  try
    bf := 0;
    if GetAdaptersAddresses(0, 0, nil, nil, @bf) <> ERROR_BUFFER_OVERFLOW then Abort;
    try
      GetMem(LpAdapterAddresses, bf);
      if GetAdaptersAddresses(0, 0, nil, LpAdapterAddresses, @bf) <> ERROR_SUCCESS then Abort;

      while LpAdapterAddresses <> nil do
      begin
        try

            //********************************************************************

            hostlen := NI_MAXHOST;     // 1025
            servlen := NI_MAXSERV;     // 32
            setlength(host, hostlen);
            setlength(serv, servlen);

            r := GetNameInfo(LpAdapterAddresses.FirstUnicastAddress.Address.lpSockaddr,
                             LpAdapterAddresses.FirstUnicastAddress.Address.iSockaddrLength,
                             PWideChar(host), hostlen,
                             PWideChar(serv), servlen, NI_NUMERICHOST);  // NI_NUMERICSERV


            //********************************************************************

        finally
          LpAdapterAddresses := LpAdapterAddresses^.Next;
        end;
      end;
    finally
      FreeMem(LpAdapterAddresses, bf);
    end;
  except
    Result := False;
  end;

  WSACleanup;

end;

Delphi XE / Windows 7 SP1 64-bit

[zubr]

Как у тебя определена GetNameInfo?

[malor]

Заработала при таком написании:

Код: (Delphi)

  host, serv: WideString;
  hostlen, servlen: integer;
  r: integer;

  IP: WideString;
...............
...............

          r :=  GetNameInfoW(LpAdapterAddresses.FirstUnicastAddress.Address.lpSockaddr,
                              LpAdapterAddresses.FirstUnicastAddress.Address.iSockaddrLength,
                              PWideChar(host), hostlen,
                              PWideChar(serv), servlen, NI_NUMERICHOST);  // NI_NUMERICSERV

          if r = 0 then
            IP := PWideChar(host);

Определена в разделе type сейчас как:
  function  GetNameInfoW(sa: PSockAddr; salen: DWORD; host: PChar; hostlen: DWORD; serv: PChar; servlen: DWORD; flags: Integer): Integer; stdcall; external 'ws2_32.dll' name 'GetNameInfoW';

[v2]

Для XE+

Note: The default string type is UnicodeString. WideString is provided to be compatible with the COM BSTR type. You should generally use UnicodeString for non-COM applications; for most purposes UnicodeString is the preferred type. The type string is an alias for UnicodeString.

-> для winapi xxxW функций.
 WideString -> UnicodeString -> String
 PWideChar -> PChar
-> для winapi xxxА функций.
 AnsiString
 PAnsiChar

ЗЫ.
В XE+ в объявлении некоторых winapiA встречаются ошибки -> остался старый PChar, который забыли заменить на PAnsiChar.
А в XE2+ (64bit) в объявлении некоторых winapi остался DWORD/Cardinal/Integer там где нужно NativeUInt/NativeInt