Android Question B4A Pages SMB Filetransfer

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    Public smbContext As JavaObject
    Public smbBenutzer As String = "________"
    Public smbPasswort As String = "*******"
End Sub

Sub Service_Create
    Log("🔧 Starter.Service_Create")
    ' Kein automatischer Aufruf hier!
End Sub

Sub Service_Start (StartingIntent As Intent)
    Log("ℹ️ Starter.Service_Start")
    Service.StopAutomaticForeground
End Sub

' Wird z. B. über Button in MainPage aufgerufen
Public Sub StarteSMBKontextThread
    Log("▶️ Starte SMB-Kontext-Thread")

    Dim joMe As JavaObject = Me
    Dim runnable As Object = joMe.CreateEvent("java.lang.Runnable", "SMBKontextRunnable", Null)
    Dim t As JavaObject
    t.InitializeNewInstance("java.lang.Thread", Array(runnable))
    t.RunMethod("start", Null)
End Sub

Sub SMBKontextRunnable_Event  ' ❗ KEIN Parameter erlaubt
    Try
        Log("🔧 SMBKontextRunnable: Aufbau startet...")

        Dim baseContext As JavaObject
        baseContext.InitializeStatic("jcifs.context.BaseContext")

        Dim config As JavaObject
        config.InitializeNewInstance("jcifs.config.PropertyConfiguration", Array(Null))

        Dim credentials As JavaObject
        credentials.InitializeNewInstance("jcifs.smb.NtlmPasswordAuthenticator", Array(smbBenutzer, smbPasswort))
        Dim instance As JavaObject = baseContext.RunMethod("getInstance", Null)
        Dim context As JavaObject = instance.RunMethod("withCredentials", Array(credentials))
        smbContext = context

        Log("✅ SMB-Kontext aufgebaut.")
        CallSubDelayed2(Me, "ErzeugeSMBKontextFertig", True)

    Catch
        Log("❌ Fehler beim SMB-Kontextaufbau: " & LastException)
        CallSubDelayed2(Me, "ErzeugeSMBKontextFertig", False)
    End Try
End Sub

Public Sub ErzeugeSMBKontextFertig(success As Boolean)
    If success Then
        Log("📦 SMB-Kontext wurde erfolgreich aufgebaut.")
    Else
        Log("⚠️ SMB-Kontext-Aufbau fehlgeschlagen.")
    End If
End Sub