Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2014, 11:17   #1
azarine
Новичок
Джуниор
 
Регистрация: 27.04.2014
Сообщений: 1
По умолчанию Где ошибка в коде? Помогите исправить.

Доброго времени суток. Помогите найти ошибку в коде. Ну, и соответственно помогите её исправить.
Сам код:

Код:
function IPAddrToName(IPAddr: string): string;
var
 SockAddrIn: TSockAddrIn;
 HostEnt: PHostEnt;
 WSAData: TWSAData;
begin
 WSAStartup($101, WSAData);
 SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IPAddr));  //При запуске в этой строке находит ошибку. (не пойму в чём?) далее //
 HostEnt:=GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
 if HostEnt<>nil
 then Result:=StrPas(Hostent^.h_name)
 else Result:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption:='Name: '+IPAddrToName(Edit1.Text);
end;
Спасибо.
Изображения
Тип файла: jpg Ошибка в коде.jpg (55.1 Кб, 141 просмотров)

Последний раз редактировалось Stilet; 27.04.2014 в 13:07.
azarine вне форума Ответить с цитированием
Старый 27.04.2014, 12:00   #2
Lardes
Форумчанин
 
Аватар для Lardes
 
Регистрация: 19.08.2011
Сообщений: 329
По умолчанию

Замените PChar на PAnsiChar
Lardes вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка в коде,помогите исправить. spectrum988 Помощь студентам 5 26.02.2014 01:10
где ошибка в коде? tfbro Помощь студентам 5 31.12.2013 18:18
Где ошибка в этом исходном коде на языке Си? Или ошибка в Excel? ArchiCurtis Помощь студентам 2 07.04.2012 14:16
Помогите разобраться в коде не погу понять где ошибка wagonwils Общие вопросы C/C++ 0 23.12.2009 21:02
Ошибка в коде Сортировщика! Ргается! помогите исправить! sting Помощь студентам 2 24.11.2008 23:21