[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.

[Goras]

А что, разве можно после коннекта поставить?

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

на дельфи сейчас много чего пишется и не всегда все сразу работает. Тем более если прототип. пару лет назад писал софт для сервиса одного, продажа и аренда яхт и катеров. Но магазин у них на опенкарте естественно и вот заявки клиентов не проходили ввиду того что пислись они на английском языке. И надо было делать приложение как раз на дельфи. Написали, проверили все - работает. Пока свзяали с основным магазином - коннект пропал. Несовместимость какая то непонятная. Тогда написали приложение на яве и под андроид и айос пришлось отдельно все прописывать. Опенкарт старая версия была, обновление не стали ставить вот и получился такой геморой

[lmikle]

Поставить то можно, вот только толку...

[UFO 007]

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

Код:

xxx.ReadTimeout := 3000; // 3 sec

Connect.

А если батарейка заряжается раз-эдак в 100 дольше (или дежурный электрик будет только утром)? Вопрос-то про try/except...