Rusland

ZuBy, подозреваю, что первый сенсор потребляет больше энергии чем второй В стандартном примере есть код: function TfrmAboutSensors.GetInfoAboutMotion(ASensor: TCustomSensor): string; var ls : TCustomMotionSensor; LValues : string; LProp : TCustomMotionSensor.TProperty; begin LValues := ''; ls := TCustomMotionSensor(ASensor); if not ls.Started then ls.Start; for LProp in ls.AvailableProperties do begin case LProp of TCustomMotionSensor.TProperty.AccelerationX: LValues := LValues + ToFormStr('AccelerationX', ls.AccelerationX); TCustomMotionSensor.TProperty.AccelerationY: LValues := LValues + ToFormStr('AccelerationY', ls.AccelerationY); TCustomMotionSensor.TProperty.AccelerationZ: LValues := LValues + ToFormStr('AccelerationZ', ls.AccelerationZ); TCustomMotionSensor.TProperty.AngleAccelX: LValues := LValues + ToFormStr('AngleAccelX', ls.AngleAccelX); TCustomMotionSensor.TProperty.AngleAccelY: LValues := LValues + ToFormStr('AngleAccelY', ls.AngleAccelY); TCustomMotionSensor.TProperty.AngleAccelZ: LValues := LValues + ToFormStr('AngleAccelZ', ls.AngleAccelZ); TCustomMotionSensor.TProperty.Motion: LValues := LValues + ToFormStr('Motion', ls.Motion); TCustomMotionSensor.TProperty.Speed: LValues := LValues + ToFormStr('Speed', ls.Speed); end; end; Result := GetFullInfo( GetSensorCategoryName(ASensor.Category), GetTypeNameMotion(ls.SensorType), ls.ClassName, LValues ) ; end; Получаю данные о AccelerationX, AccelerationY, AccelerationZ и больше ничего. Что нужно чтобы получать данные Motion? В телефоне должен быть специальный датчик движения?

Например, синхронизировать время

Можно ли как-то задавать timeout для NetHTTPClient? Если можно, то какой максимальный таймаут на чтение? (не на коннект)

Просто замените AnsiString на String

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

Вместо GPS не приспособить, интересно совместить... если телефон не используется, то программа "засыпает", а если сработал этот датчик движения, то просыпается и начинает передавать координаты. Когда телефон просто лежит на столе LocationSensor продолжает получать данные со спутника. Думаю с помощью MotionSensor можно включать LocationSensor когда он действительно нужен, тем самым экономя заряд батареи.

Такое случается и при создании процедур через Events инспектора объектов

Как узнать точное время со спутника?

beklexx, не разобрались?

В этой теме как раз код для отлавливания нажатия кнопки. Используется IFMXVirtualKeyboardService в FormKeyUp. Через дебагер посмотрите что там отлавливается при нажатии Done.

Запускайте Android Device Monitor Путь примерно такой (в зависимости от версии): C:\Users\All Users\Documents\Embarcadero\Studio\17.0\PlatformSDKs\android-sdk-windows\tools\monitor.bat

Тут если только смотреть ваш проект, иначе получится просто гадание. Выложите, чтобы участники форума могли вам помочь. Можно накидать небольшой примерчик с изменением отображения контролов (я так понимаю меняется их положение при поворотах), в котором воспроизводится эта проблема.

Сысоев Максим, спасибо, проблема с https://ya.ru решилась. Сейчас пытаюсь подключится через NetHTTPClient к локальному серверу с авторизацией (через IdHTTP кстати работает), но тут нарываюсь на ошибку в System.Net.URLClient.pas в строке 859 if PosScheme = -1 then raise ENetURIException.CreateResFmt(@SNetUriInvalid, [AURIStr]); в какой-то момент AURIStr становиться пустым (уже в DecomposeURI она приходит пустая) и вылезает сообщение Project Test.exe raised exception class ENetHTTPClientException with message 'Invalid URL: ""'. Все, решил проблему. Это была моя ошибка с авторизацией. Вообще крайне мало информации по этому компоненты. Если кто-то решит использовать этот компонент, то прочтите здесь (фактически единственный источник информации). Вы правы, dll-ки не нужны PS. Кстати, кто-нибудь подскажет как узнать код ответа (200, 404 итп) при использовании NetHTTPClient?

Вот пожалуйста https://yadi.sk/d/X2zfmhAxo9ZF2 Адрес там на свой подправите LocationSensorPatch2.zip

Как я понял, Ярослав сказал что сервис не поддерживает визуальных компонент. Нет? Martifan, я только что проверил с NetHTTPClient - все работает. var Ss: TStringStream; S:String; begin Ss:=TStringStream.Create('', TEncoding.UTF8); NetHTTPClient1.Get('http://cbr.ru/',Ss); s:=Ss.DataString; // результат end; PS. Проверьте что в uses не осталось ничего от Indy, типа IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP

Если вы (или кто-нибудь) сильны в английском, то задайте вопрос на stackoverflow.com почему в сервисе возникает проблема с IdHTTP и как ее обойти. Уверен Remy Lebeau поможет справиться с этой бедой и будет всем счастье. У меня к сожалению не очень с английским

Эх, снова недоделки. Ну что ж, подождем версию Delphi 11 Houston

Вроде с XE8 этот нативный компонент. Тут подробности о том как его использовать

Точно, нельзя, там вызывается Activity, которого в сервисе нет... Используйте NetHTTPClient... хотя если у вас используется шифрование SSL, то возможны проблемы (видимо компонент сыроват)

Тогда через IdHTTP открывайте адрес с параметрами... типа http://mysite.com/?lat=50.123456&long=48.123456

Про отправку через Intent рассказано здесь

Исходники есть здесь http://fire-monkey.ru/topic/2242-poluchenie-gps-koordinat-iz-servisa/ Вариант 1 рабочий, вам нужно только организовать запись в файл

Так как не получается работать с IdHTTP в сервисе, решил попробовать компонент NetHTTPClient. Бросил NetHTTPClient1 на форму. Хочу открыть адрес https://ya.ru В папку \Win32\Debug положил libeay32.dll и ssleay32.dll (они рабочие, проверены с IdHTTP) Код (пока тестирую на обычном приложении, а не в сервисе): Получаю access violation в System.Net.HTTPClient в строке 1965 if (Result.Value.Chars[0] = '"') and (Result.Value[High(Result.Value)] = '"') then видимо из-за того что Result.Value пустой. А если попробовать открыть https://mail.ru такого не происходит и страница нормально скачивается. В чем проблема?

Можно ли как-то определить количество видимых спутников? Программа Статус GPS как то это делает https://play.google.com/store/apps/details?id=com.eclipsim.gpsstatus2&hl=ru