[DarkMoth]

Собственно задача в том, что бы проверить, есть ли связь с интернетом на мобильном устройстве. Судя по форумам, проблема актуальная.

Ping чего-либо не вариант. Попробовать с чем-то соединиться в прицепе заканчивается фатальной ошибкой.

Скорее всего я не знаю какой-нибудь хитрой функции какого-нибудь компонента (ftp, http, icmp результатов не дали)
Вот прям код не прошу, хотя бы подскажите где копать.

Да, если есть знатоки работы с API (iOS, Android). Это тоже вариант, но сам с API никогда не работал.

[NumLock]

В первый раз слышу что это актуальная проблема даже на мобильных устройствах в настоящее время. Просто постоянно им пользуюсь последние года два. Но если все-таки нужно, то можно пойти по пути Microsoft: делать запрос на их сервер. Как это сделать было на форуме. Мне сейчас с iPhone искать несподручно

[DarkMoth]

Речь идёт о POST/GET запросе через http?

[NumLock]

Да, самый достоверный способ проверить работу интернета это сделать запрос GET/POST на заведомо работающий сервер, не принадлежащий провайдеру.

[DarkMoth]

Не выходит
мобилка всё равно вылетает.

Напишите пожалуйста код для get запрса который чекает соединение с интернетом.


Сейчас это выглядит так

Код:

procedure Form.Button1Click(Sender: TObject);
begin
 try
 memo2.Text := idhttp.Get('http://google.com');
 servstat.FontColor := TAlphaColorRec.green;
 except
 servstat.FontColor := TAlphaColorRec.Red
 end;
 idHttp.Free;
 end;

[Alegun]

Как навязывают проверять в майкрософт (для D7)

Код:

function Form.IsConnect: boolean;
var
 http: TIdHTTP;
begin
 http:= TIdHTTP.Create(Self);
 try
  http.Get('http://www.msftncsi.com/ncsi.txt');
  if http.ResponseCode = 200 then 
   Result:= true;
 except
  Result:= false;
  end;
 http.Free;
end;

под виндой работает без ошипок