• 0
oleja

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

Вопросы

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

 

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

 

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

 

 

 

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

10 ответов на этот вопрос

  • 0

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

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

 

 

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

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

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

 

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
3 часа назад, SlonicUs сказал:

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

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу