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

oleja

Пользователи
 Профиль  Обзор контента

  • Постов

    5

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

  • Посещение

 Тип контента 

Сообщения, опубликованные oleja

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

    в Прочие вопросы

    Опубликовано

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

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

     

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

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

    в Прочие вопросы

    Опубликовано

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

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

    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.

     

     

     

     

×
×
  • Создать...