Перейти к содержанию
  • Регистрация

Поиск сообщества

Показаны результаты для тегов 'Delphi xe 7+android+GPS'.

  • Поиск по тегам

    Введите теги через запятую.
  • Поиск по автору

Тип контента


Форумы

  • Общие вопросы
    • Анимация
    • Графика
    • Стили
    • Базы данных и REST
    • Компоненты
    • Положение, размеры, выравнивание
    • Работа с текстом
    • Приложение и формы
    • Отладка
    • Развертывание приложений
    • Вопросы по языку Object Pascal и RTL
    • Общая информация о TControl
    • События
    • Прочие вопросы
  • Вопросы по платформам
  • Вопросы по использованию RAD Studio
  • Native FGX
  • Обучение
  • Поиск специалистов по FireMonkey
  • Дополнительные ресурсы по FireMonkey
  • Организация работы данного форума
  • Видеокурсы

Поиск результатов в...

Поиск контента, содержащего...


Дата создания

  • Начало

    Конец


Дата обновления

  • Начало

    Конец


Фильтр по количеству...

Регистрация

  • Начало

    Конец


Группа


AIM


MSN


Сайт


ICQ


Yahoo


Jabber


Skype


StackOverflow


Защита от ботов


Город


Интересы

Найдено: 1 результат

  1. Решил написать программку условно говоря навигатор (трекер). получаю координаты сохраняю, пока все. Проблема следующая приложение получает координаты (1 раз) и вылетает - закрывается. однажды удалось сохранить цепочку координат и тоже вылетело. тестировал на улице. Запустил Navitel на устройстве поймал спутники, запустил программу вылетела. Без навитела тоже самое, в общем что не делал результат оди и тот же. HELP !! HELP !! HELP !! unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, System.Sensors, System.Sensors.Components, FMX.Layouts, FMX.Memo, System.IOUtils, FMX.WebBrowser, FMX.Controls.Presentation, FMX.Edit; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Memo1: TMemo; Button3: TButton; Button4: TButton; LocationSensor1: TLocationSensor; Switch1: TSwitch; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Label4: TLabel; procedure LocationSensor1LocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Switch1Switch(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} {$R *.NmXhdpiPh.fmx ANDROID} procedure TForm1.Button3Click(Sender: TObject); begin memo1.Lines.SaveToFile(TPath.GetTempPath+PathDelim+'GPS_data.txt'); end; procedure TForm1.Button4Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.LocationSensor1LocationChanged(Sender: TObject; const OldLocation, NewLocation: TLocationCoord2D); begin label1.text:=NewLocation.Latitude.ToString; label2.Text:=NewLocation.Longitude.ToString; Memo1.Lines.Add('В-'+NewLocation.Latitude.ToString+' Ш-'+NewLocation.Longitude.ToString); end; procedure TForm1.Switch1Switch(Sender: TObject); begin LocationSensor1.Accuracy:=StrToInt(Edit1.Text); {пробывал разные значения} LocationSensor1.Distance:=StrToInt(Edit2.Text); {пробывал разные значения} LocationSensor1.Active:=Switch1.IsChecked; end; end.
×
×
  • Создать...