Не могу передать строку в функцию

[Никки]

Здравствуйте. Весь вечер мучаюсь, просто не знаю как правильно...

вот что есть:

function WebGet(Host: string; Request: String): integer;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  WSAData1: TWSAData;
  Socket1: integer;
  SockAddr1:TSockAddr;
  Buffer1, ip:string;
  phe: PHostEnt;
  pptr: PaPInAddr;
  r: integer;
begin
  if WSAStartup(MAKEWORD(2,2), WSAData1)=0 then begin
    Socket1:=Socket(AF_INET,SOCK_STREAM,0);
    if Socket1<>INVALID_SOCKET then begin
      SockAddr1.sin_family:=AF_INET;
      phe := GetHostByName(PAnsiChar('ya.ru')); // так всё работает
      //phe := GetHostByName(PAnsiChar(Host)); // так не резолвится
      pPtr := PaPInAddr(phe^.h_addr_list);
      ip:= inet_ntoa(pptr^[0]^);
      SockAddr1.sin_addr.S_addr:=inet_addr(PAnsiChar(127.0.0.1)); // тут тоже работает
      //SockAddr1.sin_addr.S_addr:=inet_addr(PAnsiChar(ip)); // а так нет
      SockAddr1.sin_port:=htons(80);
      if Connect(Socket1,SockAddr1,SizeOf(SockAddr1))<>0 then begin
        Buffer1:='GET '+Request+' HTTP/1.1'#13#10+
          'host: '+Host+''#13#10+
          'Connection: close'#13#10+
          #13#10;
        if send(Socket1,Buffer1[1],Length(Buffer1),0)<>SOCKET_ERROR then r:= 1;
      end else r:= -3;
    end else r:= -2;
  end else r:= -1;

  if r>0 then result:= 0
  else result:= WSAGetLastError();

end;

как правильно передать строку в функции GetHostByName и inet_addr?

Больше спасибо за помощь.

[Selestis]

Какая у вас версия Дельфи? Просто в новых строки по умолчанию юникодовские, может, в этом проблема.

[Никки]

у меня 2010 RAD Studio... что делать то?

[Selestis]

Смените string на ansistring

[Никки]

Большое спасибо! Всё получилось