Поиск сообщества
Показаны результаты для тегов 'наличие интернет'.
Найдено: 1 результат
-
Здравствуйте. В приложении android делаю проверку наличия интернет соединения: function CheckInternetConnection(Host: string='google.com'; Port: Integer = 80; Timeout: Integer = 5000): Boolean; var TCP: TIdTCPClient; begin TCP := TIdTCPClient.Create(nil); try TCP.Host := Host; TCP.Port := Port; TCP.ConnectTimeout := Timeout; try TCP.Connect; Result := TCP.Connected; except Result := False; end; finally TCP.Free; end; end; В режиме Debug все работает нормально. В режиме Release функция перестает работать на строке: TCP.Connect; В чем проблема?
