Лидеры

подсказка на будущее 1) кидаем компонент на форму 2) откомпилим 3) смотрим какие модули добавились (правда не все нужны, но методом тыка убираем ненужные) важный блок в таких модулях initialization, там обычно регистрируются сервисы и прочие плюшки для работы. ошибка показала что у вас не инициализировались нужные интерфейсы initialization PeerFactory.RegisterPeer(IPImpId, IIPHTTP, TIdHTTPPeer); PeerFactory.RegisterPeer(IPImpId, IIPTCPClient, TIdTCPClientPeerIP); PeerFactory.RegisterPeer(IPImpId, IIPBasicAuthentication, TIdBasicAuthenticationPeer); PeerFactory.RegisterPeer(IPImpId, IIPURI, TIdURIPeerFactory); PeerFactory.RegisterPeer(IPImpId, IIPHashMessageDigest5, TIdHashMessageDigest5Peer);

Если знать как определяются координаты (по ЖПС или по сотовым вышкам), то можно выбирать какие координаты использовать, а какие отбрасывать... Узнать тип сенсора можно вот так function getLocationSensorType(const ASensor : TLocationSensor) : String; begin with ASensor do case Sensor.SensorType of TLocationSensorType.GPS: result := 'GPS'; TLocationSensorType.Static: result := 'Static'; TLocationSensorType.Lookup: result := 'Lookup'; TLocationSensorType.Triangulation: result := 'Triangulation'; TLocationSensorType.Broadcast: result := 'Broadcast'; TLocationSensorType.DeadReckoning: result := 'DeadReckoning'; TLocationSensorType.Other: result := 'Other'; else result := 'Unknown'; end; end; procedure TFrmMain.LocationSensorLocationChanged(Sender: TObject; const [Ref] OldLocation, NewLocation: TLocationCoord2D); var Lat,Lon:String; lSensorType : String; begin Lat:=Format('%2.6f',[NewLocation.Latitude]); Lon:=Format('%2.6f',[NewLocation.Longitude]); lSensorType := GetLocationSensorType(LocationSensor); Memo1.Lines.Add('Lat='+Lat+' Lon='+Lon+' lSensorType='+lSensorType); end; однако он мне выдает lSensorType=GPS всегда, даже в случае отключения GPS на устройстве... не знаю почему

Добрый день! Ситуация следующая есть сервис который работает в фоне. Он каждых 10 секунд обращается на сервер и забирает данные через TidUDPServer. Если устройство разблокировано, то все нормально каждые 10 сек идет обмен данными, если устройство заблокировать через кнопку Power то первые 20 сек все работает нормально, потом просто напросто пакеты начинают ходить каждые 1-2 минуты, иногда дольше иногда быстрее. Предполагаю что когда телефон блокируется он переходит в состояние экономии энергии, но телефонная звонилка нормально живет и остальные приложения тоже, хотя наверно там немного другая организация. Вопрос у меня такой: можно ли повысить уровень приоритета сервиса, или еще каким нибудь способом заставить его нормально работать, и не тормозить на токае длительное время. Спасибо.

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

Понятно. короче проще не заморачиваться с мобильным приложением а просто с телефона в браузере открывать. Можешь выслать свои приложения, может разберусь что там к чему. у меня код состоит только из разбора json'a который формируется на сервере. весь парсинг написан на php, по нескольким причинам: 1) всегда есть доступ к файлам чтобы отредактировать, если на сайте изменился дизайн или что-то изменили. 2) без надобности перекомпилировать приложение в делфи 3) не нужно заморачиваться с ssl т.к. на андроид 6 не работает ssl да и таскать с собой либы на айос не вариант offtop: не делайте через TWebBrowser, это глупо. какой смысл тогда от приложения? можно сделать закладку и вытащить её на раб. стол... p.s. приложения написанные для личного использования, потому что некоторые компании не хотят создавать приложения для удобства пользователям приходится самому решать

Приостановить (поставить на паузу) сервис нельзя, для остановки сервиса используйте метод stopSelf, пример тут: C:\Users\Public\Documents\Embarcadero\Studio\17.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\AndroidNotificationServiceDemo\NotificationService\

Я тоже сделал свой подкласс для TForm, только aProc не в Show а прямо в Create получается аналог ShowModal(proc...() begin end) с небольшими нюансами Но в целом идея аналогична

Enabling C++ Applications for Unicode: http://docwiki.embarcadero.com/RADStudio/Seattle/en/Enabling_C%2B%2B_Applications_for_Unicode String constants, such as "string constant", are still narrow (char*), so you cannot pass them to functions of RAD Studio frameworks and libraries that take PChar as you did before. You can pass the constant to functions of RAD Studio frameworks and libraries with a PChar parameter if you prefix the constant with L, as in: L"string constant"

Да. Только Upd1. Он исправляет утечку памяти при которой после некоторого времени работы со студией она начинает безбожно тормозить.

Попробуй движок Shadow Engine для Firemonkey, FPS впечатляет. https://www.youtube.com/watch?v=w6lGasU61HQ Gihub: https://github.com/dimsa/ShadowEngine