Перейти к содержанию
Fire Monkey от А до Я

oleja

Пользователи
  • Постов

    5
  • Зарегистрирован

  • Посещение

Достижения oleja

  1. тоже встречал такой код, но не пробовал. разрешения и ставил и снимал эффекта ноль.
  2. родная демка вообще не собралась, ошибки не помню какие. Может и в девайсе проблема , но в чем конкретно? куда копать? идеи ?
  3. Кстати Delphi XE 8 на восьмерке таже картина , приложение вылетает. отладку не пробовал.
  4. выяснилось что отладка не работает, разбираюсь в чем дело. нет. Delphi XE 7 c семеркой 64 бит
  5. Решил написать программку условно говоря навигатор (трекер). получаю координаты сохраняю, пока все. Проблема следующая приложение получает координаты (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.
×
×
  • Создать...