Delphi xe 7+android+GPS закрывается приложение

[oleja]

Решил написать программку условно говоря навигатор (трекер).

 

получаю координаты сохраняю, пока все.

 

Проблема следующая приложение получает координаты (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.

 

 

 

 

[VladimirS]

А если тестировать из-под отладки?

[Равиль Зарипов (ZuBy)]

установи Delphi XE8 в семерке проблема с ним

[oleja]

А если тестировать из-под отладки?

выяснилось что отладка не работает, разбираюсь в чем дело.

 

 

установи Delphi XE8 в семерке проблема с ним

нет. Delphi XE 7 c семеркой 64 бит

[oleja]

Кстати Delphi XE 8 на восьмерке таже картина , приложение  вылетает.

отладку не пробовал.

[Равиль Зарипов (ZuBy)]

у меня родная демка на устройстве работает как надо, может проблема в девайсе

[oleja]

у меня родная демка на устройстве работает как надо, может проблема в девасе

родная демка  вообще не собралась, ошибки не помню какие. Может и в девайсе проблема , но в чем конкретно? куда копать? идеи ?

[Равиль Зарипов (ZuBy)]

копать в сторону сенсоров скорей всего, где то в инете был код который перебирал доступные сенсоры (GPS,ГЛОНАСС,Мобильный сенсор)

а разрешения стоят у приложения?

[oleja]

копать в сторону сенсоров скорей всего, где то в инете был код который перебирал доступные сенсоры (GPS,ГЛОНАСС,Мобильный сенсор)

а разрешения стоят у приложения?

 

тоже встречал такой код, но не пробовал. разрешения и ставил и снимал эффекта ноль.

[SlonicUs]

Так и не победили проблему?

Такая же фигня под ХЕ10.1 

[#WAMACO]

3 часа назад, SlonicUs сказал:

Так и не победили проблему?

Такая же фигня под ХЕ10.1 

попробуйте версию по свежее...