|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.01.2017, 20:05 | #1 |
Пользователь
Регистрация: 05.02.2007
Сообщений: 91
|
Проект с Delphi7 на Delphi xe
Есть функция :
c 7 delphi function ResolveAddress(Address: String): TInAddr; var Host: PHostEnt; begin Result.S_addr := inet_addr({PChar}pansichar(Address) ); if Result.S_addr = INADDR_NONE then begin Host := gethostbyname({PChar}pansichar(Addr ess)); if Host <> nil then Result := PInAddr(Host.h_addr_list^)^; end; end; ругался на PCHAR заменил на PANSICHAR ,не ругается но и не работает это во всех проектах где используется PCHAR, как переделать что бы заработало . Спасибо. |
16.01.2017, 20:57 | #2 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Код:
Использовать так Sin_addr.s_addr:= HostResolve(адрес); В вашем примере нужно вместо string в address поменять на AnsiString Последний раз редактировалось Aliens_wolfs; 17.01.2017 в 14:01. |
17.01.2017, 18:25 | #3 |
Пользователь
Регистрация: 05.02.2007
Сообщений: 91
|
Спасибо огромное за помощь.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi7, Работа с текстом - Delphi | Zurs | Помощь студентам | 3 | 11.05.2016 15:50 |
Проект в Delphi7 | pavel08 | Общие вопросы Delphi | 13 | 29.03.2013 09:31 |
Программист Delphi который поможет доделать проект на Delphi XE3 | BukTop2009 | Фриланс | 3 | 26.10.2012 23:51 |
Переделать чат Delphi7 > Delphi 2010 | Gulik | Фриланс | 6 | 04.07.2011 19:16 |
Где найти исходники на Java( 1 проект - больше 1000 классов, 2 проект - больше 100, 3 проект - больше 10) | Pti44ka | Общие вопросы по Java, Java SE, Kotlin | 2 | 09.09.2010 21:31 |