Android Question Application_Error does not fire in resumable subs

[Blueforcer]

It took me hours to figure it out:
Application_Error does not fire in resumable subs

Test:

Private Sub Button1_Click
    Wait For (crash) Complete (success As Boolean)
End Sub

Sub crash As ResumableSub
    Sleep(5000)
    Dim i As Int = "kjhlkJ"
    Return True
End Sub

I found a 4 years old post from Erel. I guess he forgot to fix it.
Is there a workaround or when we can expect a fix?

Application_Error don´t fire on an CustomListView_ItemClick

I have the Application_Error Sub, in the Starter Service. I have an activity with a CustomListView and a button. On this Activity (on release mode) Doing Dim i as int ="abc" to force an error, in the button_click, the Starter Service Application_Error is fired. Doing Dim i as int...

www.b4x.com

i tried to implement my own UncaughtExceptionHandler wich fires the handlecrash event even in resumable subs, unfortunally im unable to show any gui object like a msgbox in my handlecrash sub (wich works in Application_Error).
i assume the looper of the UI thread crashed

#If Java
import java.lang.Thread;
import java.lang.Thread.UncaughtExceptionHandler;
import anywheresoftware.b4a.BA;

public static void setExceptionHandler() {
    Thread.setDefaultUncaughtExceptionHandler(new UncaughtExceptionHandler() {
        @Override
        public void uncaughtException(Thread t, Throwable e) {
            String message = e.getMessage();
            String stack = android.util.Log.getStackTraceString(e);
                BA ba = processBA;
                if (ba.subExists("handlecrash")) {
                    android.util.Log.e("CrashHandler", "UncaughtException ausgelöst");
                    android.util.Log.e("CrashHandler", "Fehlermeldung: " + message);
                      ba.raiseEvent(this, "handlecrash",message, stack);
                }
        }
    });
}
#End If

Any ideas?
Cheers

 

[Blueforcer]

As one workaround i managed to start a new activity. This is fine for my purpose.
You can also start another app

#If Java
import java.lang.Thread;
import java.lang.Thread.UncaughtExceptionHandler;
import android.content.Intent;
import anywheresoftware.b4a.BA;

public static void setExceptionHandler() {
    Thread.setDefaultUncaughtExceptionHandler(new UncaughtExceptionHandler() {
        @Override
        public void uncaughtException(Thread t, Throwable e) {
            String message = e.getMessage();
            String stack = android.util.Log.getStackTraceString(e);

            Intent i = new Intent(BA.applicationContext, de.dinotec.netplus.crashreporter.class);
            i.addFlags(Intent.FLAG_ACTIVITY_NEW_TASK);
            i.putExtra("msg", message);
            i.putExtra("stack", stack);
            BA.applicationContext.startActivity(i);

            System.exit(1);
        }
    });
}
#End If

Crashreporter Activity:

Sub Activity_Create(FirstTime As Boolean)
    Dim Intent_ As Intent = Activity.GetStartingIntent
    Dim msg As String =Intent_.GetExtra("msg")
    Dim stack As String = Intent_.GetExtra("stack")
end sub

 

[mzelecom]

i need to set error handler for all aplication.
i write this class

Sub Class_Globals
    Private jo As JavaObject
End Sub

Public Sub Initialize
    jo.InitializeNewInstance("b4a.example.errorhandle", Null)
    jo.RunMethod("install",Null)
End Sub

Public Sub handlecrash(args() As Object)
    Dim message As String = args(0)
    Dim stack As String = args(1)

    Log("💥 CRASH 💥")
    Log(message)
    Log(stack)
End Sub



#If Java
import java.lang.Thread;
import java.lang.Thread.UncaughtExceptionHandler;
import anywheresoftware.b4a.BA;
import anywheresoftware.b4a.keywords.Common;


public void install() {
    final BA bas = this.ba;

    Thread.setDefaultUncaughtExceptionHandler(new UncaughtExceptionHandler() {
        @Override
        public void uncaughtException(Thread t, Throwable e) {
            String message = e.getMessage();
            if (message == null) message = "No error message";

            String stack = android.util.Log.getStackTraceString(e);

            
            bas.LogError("❌ Error2: " + message);

            bas.raiseEvent(this, "handlecrash",message, stack);
        }
    });
}
#End If

and in starter

Sub Service_Create
    Dim err As errorhandle
    err.Initialize()
    
End Sub

this line run
bas.LogError(" Error2: " + message);

but handlecrash not fire.

how to fix it?