Проблемы с GetHostByName

[Djanius]

Нужна помощь. Есть функция которая показывает IP адрес по имени хоста. Работала она отлично, но в delphi 2010 не хочет, так как GetHostByName больше не работает с PChar, только с PAnsiChar, но при этом выдает неправильный результат. Подскажите пожалуйста, что можно с этим сделать? Заранее премного благодарен.

function getIPFromHost(const HostName: string): string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
i: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := '';
phe := GetHostByName(PChar(HostName));
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pPtr^[i] <> nil do
begin
Result := inet_ntoa(pptr^[i]^);
Inc(i);
end;
WSACleanup;
end;

[Djanius]

Все, в ответе не нуждаюсь, разобрался сам. Кому будет интересно и на будущее, вдруг кому нить пригодиться. Изменить тип константы в объявлении функции со String на PAnsiChar. А в GetHostByName убрать PChar.

function getIPFromHost(const HostName: PAnsiChar): string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var

...

phe := GetHostByName(HostName);

...

end;
WSACleanup;
end;

[GunSmoker]

function getIPFromHost(const HostName: AnsiString): string;

...

phe := GetHostByName(PAnsiChar(HostName));

...