ошибка сегментации класса (11)

Question

Пожалуйста, выполните следующие действия:

1. Создать новую Firemonkey Moblie Application
2. Добавить TGeustureManager компонент в форме

3. Добавить 2 TButton компоненты в форме

   • Button1.Text: «Button1: Сделайте что-нибудь ...»
   • Button2.Text: «Butt on2: Выход приложения ...»

   

4. Двойной щелчок по Button2 компонент и написать следующий код для OnClick Событие:

   procedure TForm1.Button2Click(Sender: TObject); 
   begin 
       if MessageDlg('Are you sure you want to Exit?', TMsgDlgType.mtWarning, 
         [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrYes then 
       SharedActivity.finish; 
   end; 
   

5. Запуск приложения в режиме отладки.

6. на устройстве, нажмите кнопку 2, затем нажмите «Да», чтобы выскочить. Исключение появится:

   

Почему возникает это исключение?

Я думал, что это связано с неиспользованным компонентом TGeustureManager. но НЕТ это НЕ:

1. Если открыть Location демонстрационный проект, который поставляется с Delphi xe5.
2. Добавить TButton компонент в Location этикетки, как показано на изображении ниже:
3. Добавьте один и тот же код, как и выше, чтобы OnClick Event.
4. Запустите приложение и нажмите кнопку Button5, вы получите то же исключение.

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

Answer 1

Возможно, вы убиваете деятельность, которая работает, до того, как поток ее выполнения исчерпан, тем самым вызывая проблемы. Очень похоже на освобождение формы в форме метода ....

Что произойдет, если вы замените:

SharedActivity.finish

с:

uses 
    FMX.Helpers.Android; 
... 
CallOnUIThread(procedure begin SharedActivity.finish end); 

[Набрали из памяти, так что, возможно, потребуется перенастройка]

Answer 2

, если вы только хотите, чтобы закрыть приложение un может попробовать следующее:

case MessageDlg('Close Application?', System.UITypes.TMsgDlgType.mtInformation, 
    [ 
     System.UITypes.TMsgDlgBtn.mbYes, 
     System.UITypes.TMsgDlgBtn.mbNo 
    ], 0) of 
    { Detect which button was pushed and show a different message } 
    mrNo: 
     showmessage(''); 
    mrYes: 
     halt; 
    end; 

Answer 3

Я связался с Embarcadero по этой проблеме.

Они сказали, что это потому, что TApplication.Terminate еще не реализована на платформе FireMonkey для мобильных устройств.

Они открывают билет для реализации TApplication.Terminate в nex hot fix.

Будем надеяться, что это не займет много времени.

Answer 4

Я только что испытал нечто похожее, очень маленькое приложение с небольшим кодом, дающим эту же ошибку (ошибка сегментации 11) каждый раз, когда я ухожу из приложения на Android-устройстве (Galaxy Note 2 в моем случае).

Для чего это проблема, проблема исчезла, когда я пошел в Stylebook, который я ранее надел форму и очистил ее. Я думаю, что раньше я скопировал этот Stylebook из другого тестового модуля.

Майк

Answer 5

У меня такая же ошибка на очень простое Расположение тестового приложения, это происходит при установке текста на этикетке. Ярлык был установлен на автоматический размер, и когда я изменил его на статический размер, ошибка исчезла.

Delphi XE6, строка 681 в FMX.TextLayout.GPU

Я использую телефон Samsung S4.

procedure TForm_StayTogether.LocationSensor1LocationChanged(Sender: TObject; 
    const OldLocation, NewLocation: TLocationCoord2D); 
begin 
    DistLabel.Text:= FloatToStr(LocationSensor1.Distance); 
    AccLabel.Text:= FloatToStr(LocationSensor1.Accuracy); 
    LatLabel.Text:= FloatToStr(NewLocation.Latitude); 
    LonLabel.Text:= FloatToStr(NewLocation.Longitude); 
end;