Delphi: Android Ausnahme schließt meine App

Question

Ich habe ein Problem in den Anwendungen, ich benutze Delphi XE7 und laufe Anwendungen auf Android 6.0 oder höher, aber wenn es einen Fehler präsentiert, schließt es die Anwendung, anstatt den Fehler zu behandeln und anzuzeigen Botschaft. Ich bin mir bereits bewusst, dass ich mein Delphi aktualisieren sollte, damit meine Anwendungen auf Versionen von Android 6.0 oder höher funktionieren. Aber ich wollte mit Delphi XE7 umgehen können, indem ich versuchte, dieses Problem "zu umgehen", so dass ich nicht die Unannehmlichkeit haben müsste, Delphi Berlin zum Beispiel zu installieren.

Wer hat eine Idee eine Lösung das Problem?

Answer 1

müssen Sie die Ausnahme in der Application.OnException := MyExceptionHandler verfolgen. Dies ist nur für den Haupt-Thread, nachdem Sie dasselbe im Hintergrund-Thread tun müssen. Exzellente Artikel hier: https://blog.grijjy.com/2017/02/21/build-your-own-error-reporter-part-2-android/

Answer 2

Wenn Sie Ihren Code zwischen Try..Except Blöcke setzen können Sie fechten App brach, und die Nachrichteninhalte lesen, mit Struktur oben:

Try 
    Your code here 
Except 
on E:Exception do 
    Showmessage('Error in module {your modulename}'+E.Message); 
end; 

Das Problem ist, Sie tun müssen, Es in vielen Teilen oder Modulen Ihrer App. Vergessen Sie jedoch nicht, dass dies die beste Vorgehensweise ist.

Eine andere Alternative, können Sie Ihre Anwendung für Windows zuerst kompilieren und debuggen mit Breakpunkten.

Wenn Sie zum Beispiel einen Code nur auf Android funktioniert haben,

den Code zwischen Richtlinien setzen

{$IFDEF ANDROID} 
{$ENDIF} 

Zum Beispiel kann ein Fragment meiner SQLConection diese Idee

try 
DataModule.Connection1.Params.Values['DriverID'] := 'SQLite'; 
    {$IFDEF MSWINDOWS} 
    DataModule2.Connection1.Params.Values['Database'] := 'C:/Data/test_DATABASE.sql'; 
    {$ENDIF} 

    {$IFDEF ANDROID} 
    DataModule2.Connection1.Params.Values['Database'] := GetHomePath + PathDelim + 'DATABASE.sql'; 
    {$ENDIF} 
Except 
    on E:Exception do 
     Showmessage('Error on dataload ...'+E.Message); 
    end;