WinSock.gethostbyname правильно передать строку.

[Человек_Борща]

Доброго времени суток!

Прежде всего: проблема никак не связана с работой в сети. С работой в сети проблем нет, по сему тема в этом разделе.

Далее, есть функция gethostbyname в WinSock2(в Winsock) она тоже есть.

Передаю туда строку: 10.1.0.100

  pSckHost: PHostEnt;
 ....
  ps:PAnsiChar;
begin
  Result := False;
  try
...
    if not Boolean(sckError) then
    begin
      ps:=PAnsiChar(aAddress);
      pSckHost := GetHostbyName(ps);//gethostbyname(PAnsiChar(aAddress));

в переменой ps поселяет содержимое: 1
а должно быть 10.1.0.100

Результатом будет негование сокетов.

Фигня, статически задаю значение ps.

ps:='10.1.0.100';

В ps ложится: 10.1.0.100 и все работает.

Проблема:
Почему для gethostbyname не работает приведение типов string => PAnsiChar ? Можно как-то по другому?

Delphi XE2.

[veniside]

ps:=PAnsiChar(AnsiString(aAddress));

[Tip.the.besT]

Сообщение от Человек_Борща

Доброго времени суток!

Прежде всего: проблема никак не связана с работой в сети. С работой в сети проблем нет, по сему тема в этом разделе.

Далее, есть функция gethostbyname в WinSock2(в Winsock) она тоже есть.

Передаю туда строку: 10.1.0.100

  pSckHost: PHostEnt;
 ....
  ps:PAnsiChar;
begin
  Result := False;
  try
...
    if not Boolean(sckError) then
    begin
      ps:=PAnsiChar(aAddress);
      pSckHost := GetHostbyName(ps);//gethostbyname(PAnsiChar(aAddress));

в переменой ps поселяет содержимое: 1
а должно быть 10.1.0.100

Результатом будет негование сокетов.

Фигня, статически задаю значение ps.

ps:='10.1.0.100';

В ps ложится: 10.1.0.100 и все работает.

Проблема:
Почему для gethostbyname не работает приведение типов string => PAnsiChar ? Можно как-то по другому?

Delphi XE2.

Только вчера с этим маялся, тоже тему создавал Предыдущий оратор ответил абсолютно верно!

[GunSmoker]

Почему для gethostbyname не работает приведение типов string => PAnsiChar ?

Оно работает, но не так, как ты ожидаешь.

[Tip.the.besT]

Вот здесь народ объесняет, почему так, а не эдак - Тац

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

я не до конца объяснил.