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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2017, 20:05   #1
АНАТОЛИЙ249
Пользователь
 
Регистрация: 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, как переделать что бы заработало .

Спасибо.
АНАТОЛИЙ249 вне форума Ответить с цитированием
Старый 16.01.2017, 20:57   #2
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Код:
Function HostResolve(const Host: AnsiString):  integer;
Var
P: PHostEnt;
Begin
Result: =inet_addr(PAnsiChar(Host));
If dword(result) =dword(INADDR_NONE) then
P: =gethostbyname(PAnsiChar(Host));
If p <>nil then
Result: =PInteger(p^.h_addr_list^)^;
 End;
End;
Вот мой код работает и в xe
Использовать так

Sin_addr.s_addr:= HostResolve(адрес);

В вашем примере нужно вместо string в address поменять на AnsiString

Последний раз редактировалось Aliens_wolfs; 17.01.2017 в 14:01.
Aliens_wolfs вне форума Ответить с цитированием
Старый 17.01.2017, 18:25   #3
АНАТОЛИЙ249
Пользователь
 
Регистрация: 05.02.2007
Сообщений: 91
По умолчанию

Спасибо огромное за помощь.
АНАТОЛИЙ249 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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