🎓 Урлов Егор Сергеевич | Группа 12002531 | НИУ БелГУ, 2026

# Лабораторная работа №4 ## Навигационное Android-приложение с GPS и картографией --- ## 🎯 Постановка задачи Спроектировать и реализовать мобильное приложение, определяющее текущее положение пользователя на карте с помощью GPS-модуля смартфона. Разработка ведётся под ОС Android в среде RAD Studio. --- ## 🛠 Особенности технической реализации В связи с тем, что актуальные версии **RAD Studio 13** прекратили поддержку C++ Builder для платформы Android, данная работа выполнена на объектном **Pascal (Delphi)** с применением кроссплатформенного фреймворка **FireMonkey (FMX)**. В процессе были решены следующие инженерные задачи: 1. **Динамический запрос разрешений (Runtime Permissions):** Начиная с Android 6.0, декларации в манифесте недостаточно. Реализован программный запрос `ACCESS_FINE_LOCATION` и `ACCESS_COARSE_LOCATION` через `PermissionsService`. 2. **Обход ограничений Google Maps (intent-схема):** в качестве картографической подложки задействован `OpenStreetMap`. 3. **Потоковая безопасность:** результат работы `TGeocoder` приходит в фоновом потоке. Обновление UI-элементов обёрнуто в `TThread.Queue` для исключения блокировки главного потока Android. --- ## 🧱 Задействованные компоненты FMX * `TLocationSensor` — получение географических координат устройства (широта, долгота). * `TWebBrowser` — отображение веб-карты OpenStreetMap. * `TLabel` (×2) — вывод числовых значений координат и текстового адреса. * `TGeocoder` (из `System.Sensors`) — обратное геокодирование (координаты → почтовый адрес). --- ## 💻 Ключевой фрагмент кода Обработчик события смены геопозиции (`OnLocationChanged`): ```pascal procedure TForm1.LocationSensor1LocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D); var Lats, Longs: string; FS: TFormatSettings; begin // Форматирование с точкой — требование API карт FS := TFormatSettings.Create('en-US'); Lats := FloatToStr(NewLocation.Latitude, FS); Longs := FloatToStr(NewLocation.Longitude, FS); // Отображение координат Label1.Text := Format('Широта: %s Долгота: %s', [Lats, Longs]); // Загрузка картографического слоя URL := Format( 'https://www.openstreetmap.org/?mlat=%s&mlon=%s#map=16/%s/%s', [Lats, Longs, Lats, Longs]); WebBrowser1.Navigate(URL); // Обратное геокодирование if not Assigned(FGeocoder) then begin if Assigned(TGeocoder.Current) then begin FGeocoder := TGeocoder.Current.Create; FGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent; end; end; if Assigned(FGeocoder) and not FGeocoder.Geocoding then FGeocoder.GeocodeReverse(NewLocation); end; ``` --- ## 📸 Результаты ![Скриншот с телефона](Screenshot_2026-05-04-22-42-00-44_57c6440c5213b5e28772eea05054fe6f.jpg) ![Окно разработки](image.png) ---