WSAAddressToString: несоответствие параметров ? E2033 : Ругается компилятор.

[malor]

В код добавил строчку

WSAAddressToStringW(LpAdapterAddres ses^.FirstUnicastAddress.Address.lp Sockaddr,
LpAdapterAddresses^.FirstUnicastAdd ress.Address.iSockaddrLength,
@protocolInfo, @text, bufferSize);

с целью получения IP в привычном виде (т.е., например, 192.168.50.200).

function GetAdaInfo2(out AInfoStr: AnsiString; const AOnlyMac: Boolean):Boolean;
const
  cntAdaCount=2;
  cntAdaTypesInt: array[0..cntAdaCount] of Cardinal = ($6, $47, $90);
  cntAdaTypesDef: array[0..cntAdaCount] of AnsiString =
                 ('Ethernet Network Adapter',
                  'Wireless Network Adapter',
                  'FireWire Network Adapter');
var
  i: Integer;
  bf: Cardinal;
  LqFind: Boolean;
  LsMac: AnsiString;
  LpAdapterAddresses: PIP_ADAPTER_ADDRESSES;

    text : array[1..46] of WideChar;
    bufferSize :DWORD;
  protocolInfo: WSAPROTOCOL_INFO;
begin

  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
          // Определяем тип адаптера
          LqFind := False;
          for i := 0 to cntAdaCount do
            if LpAdapterAddresses^.IfType = cntAdaTypesInt[i] then
            begin
              LqFind := True;
              Break;
            end;

          if not LqFind then Continue;

          //собираем информацию об устройстве
          if not AOnlyMac then
            AInfoStr := Format('%s%s (%s)'#13#10'%s'#13#10,
                             [AInfoStr, LpAdapterAddresses^.FriendlyName,
                              LpAdapterAddresses^.Description, cntAdaTypesDef[i]]);

            WSAAddressToStringW(LpAdapterAddresses^.FirstUnicastAddress.Address.lpSockaddr,
                               LpAdapterAddresses^.FirstUnicastAddress.Address.iSockaddrLength,
                               @protocolInfo, @text,  bufferSize);

          LsMac := '';
          if LpAdapterAddresses^.PhysicalAddressLength = 0 then Continue;

          for i := 0 to LpAdapterAddresses^.PhysicalAddressLength - 1 do
            LsMac := LsMac + IntToHex(LpAdapterAddresses^.PhysicalAddress[i], 2) + '-';
          SetLength(LsMac, Length(LsMac) - 1);
          AInfoStr := Format('%s%s'#13#10#13#10, [AInfoStr, LsMac]);
        finally
          LpAdapterAddresses := LpAdapterAddresses^.Next;
        end;
      end;
    finally
      FreeMem(LpAdapterAddresses, bf);
    end;
  except
    Result := False;
    AInfoStr := '';
  end;
end;

Компилятор выдает:
[DCC Error] UMain.pas(88): E2033 Types of actual and formal var parameters must be identical



Что не так ?

Delphi XE

[calypso]

Такая же проблема:

buf: array [0..MAX_PATH] of WideChar;
dlina:DWORD;
...
pUnicast:= pCurrAddresses.FirstUnicastAddress;
WSAAddressToStringW(pUnicast.Address.lpSockaddr, pUnicast.Address.iSockaddrLength,  nil, buf, dlina);

Ругается на несоответствие параметров. Причем на C++ таких проблем нет:

 DWORD length = 256;
 WCHAR buf[MAX_PATH];
...
pUnicast = pCurrAddresses->FirstUnicastAddress;
WSAAddressToStringW(pUnicast->Address.lpSockaddr, pUnicast->Address.iSockaddrLength, NULL, buf, &length);

[p51x]

---

[Пепел Феникса]

а точный текст ошибки засекречен?

[calypso]

E2033 Types of actual and formal var parameters must be identical
Какой именно параметр ему не нравится, компилятор почему-то указать не считает нужным. Видимо, пользователь должен одеть телепатический шлем и сам догадаться

[calypso]

Победил эту заразу, вот так надо делать:

WSAAddressToStringW(PSOCKADDR(pUnicast.Address.lpSockaddr)^,
	pUnicast.Address.iSockaddrLength, nil , @buf, dlina);
myIPadress:=buf;
Memo1.Lines.Add('IP адрес сетевой карты: '+myIPadress);

Для тех, кто так и не въехал, почему ничего не работало, всё просто: первый параметр преобразуем из PSockAddr в SOCKADDR.

[phomm]

Первую ссылку в гугле (delphi WSAAddressToStringW) смотрели http://www.cyberforum.ru/delphi-netw...ead673969.html ?

Какой именно параметр, можно узнать либо по курсору, куда он встанет (не строка а именно курсор), если он не встаёт (возможно, зависит от дельфи), то каждый параметр на новую строку, тогда точно увидите.

[calypso]

Не знаю, у меня вообще жутко кривая Делфи ХЕ8, там даже красным подсвечивается совсем не те строки, где ошибка. И вообще очень много глюков, иногда намертво зависает. То ли она на Windows 8.1 себя неадекватно ведёт, то версия такая кривожопая