[UFO 007]

Доброго всем времени суток!
Почему в этой ветке: Андрюха - тоже ОС (балшой паласатый мух) ...
А присказка такова - в ХЕ8 такое:

Код:

procedure TForm1.FormShow(Sender: TObject);
var
  recievemessage, tmp: string;
begin
  try
    IdTCPClient1.Connect;
    IdTCPClient1.Socket.WriteLn('Get_Data');
    recievemessage:= IdTCPClient1.Socket.ReadLn;
    IdTCPClient1.Disconnect;
  except
    on E:Exception do
    begin
      Showmessage('Не удалось установить соединение');
      exit
    end;
  end; 
//   как-то обрабатываем recievemessage...
end;

вызывает зависание и парадокс в том, что виснет только тел (РедМи4 с Андрюхой 6.0), а под эмулятором (МЕМУ с Андрюхой 5.1.1) прога пускается и очень даже работает... Как это врачевать - ни кто не в курсе?
З.Ы. И стрелка "назад" не выходит из проги ни в теле, ни в эмуляторе.
Заранее благодарен

[lmikle]

Ну, для начала, поставить Timeout в какое-то разумное значение.
Во вторых, проверить запрашиываемые программой доступы и добавить доступ к инету, если не указан.

[UFO 007]

Сообщение от lmikle

Ну, для начала, поставить Timeout в какое-то разумное значение.

А какое из них разумное (я так понимаю - там mS) - 10? 20? 50?

Сообщение от lmikle

Во вторых, проверить запрашиываемые программой доступы и добавить доступ к инету, если не указан.

... доступ к инету мне покуда и даремно не надь: сервер ещё не написан - тут другое: try/except - если в евентах формы убрать FormShow (или закоментить 3 строки с упоминанием Клиента), то прога нормально работает и на теле, а в данной ипостаси - только под эмулятором (делает

Код:

Showmessage('Не удалось установить соединение');

) при чём хоть Хонор и ругается, что прога откомпилена для старой версии Андроида но виснет наглухо а Редми (без FormShow, но при нажатии "Отправить") манипуляциями рабочий стол-диспетчер задач-туда-сюда-обратно удаётся вывести из висюка и табслайдить все имеющиеся листбоксы, едиты и т. д.
Центральный вопрос: почему под эмулятором try/except (без которого и эмулятор вис) всё очень даже работает, а в тЕлах - висюк? Неужто "китайфоны" не подозревают, что существуют такие вещи как исключения?

[UFO 007]

Вот и дошёл ход - сервер написан (пока - прототип на Дельфи) и всё очень даже работает самым чудным образом: клиент в телефоне собирает с ТЕдитов строку и отправляет серверу, который (пока) заполняет ею одноимённые ТЕдиты. Но стоит сэмулировать ситуацию: у сервера села батарейка (ну, или автомат выбило) - нажимаем крестик справа вверху и при нажатии "Отправить" тЕлы виснут... Как врачевать?

[lmikle]

Еще раз - там тайм-аут надо ставить.
Попробуй что-то типа того:

Код:

xxx.ReadTimeout := 3000; // 3 sec

Надо смотреть что в компоненте используется. Да, ставить таймаут надо до Connect.