Получить IP адрес домена

[zver777]

Всем привет.

Есть функция для получения ip адреса домена

function HostToIP(name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

В D7 работает отлично, но в D2010 не могу заставить работать.
Выдаёт
[DCC Error] Unit1.pas(206): E2010 Incompatible types: 'Array' and 'PAnsiChar'
[DCC Error] Unit1.pas(208): E2010 Incompatible types: 'Array' and 'PAnsiChar'
[DCC Error] Unit1.pas(211): E2010 Incompatible types: 'AnsiChar' and 'Char'

Помогите пожалуйста.

[p51x]

В D7 работает отлично, но в D2010 не могу заставить работать.

Потому что теперь Char != AnsiChar, Char != Byte

[zver777]

Сообщение от p51x

Потому что теперь Char != AnsiChar, Char != Byte

Я знаю, что тут с типами что-то не то, но понятия не имею как исправить.

[p51x]

Ну как минимум заменить Char -> AnsiChar, PChar -> PAnsiChar

[zver777]

p51x спасибо.
Рабочий в D2010 вариант

function HostToIP(name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [0..255] of AnsiChar;
  hostEnt : PHostEnt;
  addr : PAnsiChar;
begin
  WSAStartup ($0101, wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^;
        if Assigned (addr) then begin
          IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
          Result := True;
        end
        else
          Result := False;
      end
      else
        Result := False
    else begin
      Result := False;
    end;
  finally
    WSACleanup;
  end
end;

[xoodoo]

p адреса домена

У домена нет ip-адреса.
ip-адрес есть у хоста с неким доменным именем, о чем, кстати, говорит хотя бы название содранной тобой откуда-то ф-ции - HostToIP()