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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2020, 14:37   #1
АНАТОЛИЙ249
Пользователь
 
Регистрация: 05.02.2007
Сообщений: 91
По умолчанию Андроид Delphi xe

Вопрос такой , может кто сталкивался , есть сервер написан на IDtspserver VCL , и на андроид idtcpclient , всё работает нормально ,пока включен сервер. если сервер отключен то программа вылетает при conect. как можно обойти эту проблему , если клиент написан на VCL то там всё нормально.

Код:
function checkNetwork: Boolean;
var
  TCP: TIdTCPClient;
begin
  Application.ProcessMessages;
  TCP := TIdTCPClient.Create(nil);
  try
    TCP.ReadTimeout := 2000;
    TCP.ConnectTimeout := 2000;
    TCP.Port := 80;
    TCP.Host := 'google.com';
    TCP.Connect;
    TCP.Disconnect;
    Result := True;
  except
    Result := False;
    TCP.Free;
  end;
end;
эта функция работает пока есть интернет , если интернета нет , то программа вылетает на телефоне под андроид , как можно избежать вылета программы ?.

Спасибо.

Последний раз редактировалось АНАТОЛИЙ249; 15.03.2020 в 18:42.
АНАТОЛИЙ249 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi 10 под андроид FirrtTrojan Общие вопросы Delphi 4 02.10.2018 19:27
Delphi и андроид Shevalye Помощь студентам 1 20.02.2018 03:53
Delphi XE Андроид [Exec Error] EasyDelphi Общие вопросы Delphi 0 31.12.2016 01:04
Можно ли написать веб сервер на Яве для клиента на Андроид,имея под рукой только телефон на том самом андроид? Nevesel Помощь студентам 10 07.06.2016 02:29