Italian [risolto] B4J - Progettare un sistema modulare tipo plug-ins

Sub addPlugIns(Cb As ComboBox)

    If File.Exists(File.DirApp,"_PlugIns") = False Then
        Main.ToastMessage(Main.menusx,"Add-ons folder not found")
        Return
    End If
    
    Dim value As String = File.ListFiles(File.Combine(File.DirApp,"_PlugIns"))
    value = value.Replace("(ArrayList)","").Replace("[","").Replace("]","")
    Dim values() As String = Regex.Split(",",value)

    For i=0 To values.Length-1
        Dim m As Map
        m.Initialize
        Dim lbPlugins As Label
        lbPlugins.Initialize("plugins" )
        lbPlugins.Text=values(i).Replace(".jar","")
        m.Put("kay","plugins") '0 index non l'ho utilizzato al momento
        m.Put("name",values(i).Replace(".jar","")) '1 index nome del file senza estensione da pubblicare nel menù, combobox o ciò che desideriamo
        m.Put("file",values(i).Replace(" ",""))'2 index nome del file jar che dobbiamo eseguire
        m.Put("dir",File.Combine(File.DirApp,"_PlugIns"))'3 index folder dove si colloca il plugins da lanciare
        m.Put("db",File.Combine(File.DirApp,"lavagna.sqlite"))'4 index path del database in questione
        m.Put("idlogin",Main.idlogin)'5 index id di chi sta usando il software per la raccolta dati nel database multi utente
        m.Put("Key","+1234567890") '6 index key per la verifica se il plugins è nostro
        lbPlugins.Tag = m
        Cb.Items.Add(lbPlugins)
    Next
  
End Sub

Private Sub plugins_ValueChanged (Value As Object)
    
    Dim lb As Label = Value
    Dim shl As Shell
    Dim m As Map =  lb.Tag
    Dim Args() As String = Array As String("-cp", m.GetValueAt(2), "b4x.plugins.ivanomonti.main", m.GetValueAt(4), m.GetValueAt(5), m.GetValueAt(6)) ' argomenti che passo
    shl.Initialize("shl", "java", Args) comando linea
    shl.WorkingDirectory = m.GetValueAt(3) ' path del plugins
    shl.Run(-1) ' senza timeout 
    
End Sub

Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    If Success And ExitCode = 0 Then
        Log("Success")
        Log(StdOut)
    Else
        Log("Error: " & StdErr)
    End If
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    
    
    
    MainForm = Form1
    MainForm.RootPane.LoadLayout("ChartLayout")
    MainForm.Title="Module Chart v 1.0.0"
    MainForm.Stylesheets.Add(File.GetUri(File.DirAssets,"css-33.css"))
    MainForm.Show
    
    DatePicker1.DateFormat="yyyy-MM-dd"
    DateTime.DateFormat="yyyy-MM-dd"
    
'    If debugMode= False Then
'        If Args.Length > 0 Then
'            If Args(0) <> "xxxxxx" Then 'key che valida il nostro plugins, in caso di assenza si chiude il jar,, avviamente non ho messo il codice perchè lascio libera la vostra fantasia
'                'fx.Msgbox(MainForm,"Module for Lavagna","Error system message")
'                'MainForm.close
'            Else
'                path=Args(1)
'                idlogin=Args(2)
'                'fx.Msgbox(MainForm, Args(0) & Chr(10) & Args(1) & Chr(10) & Args(2),"")
'            End If
'        End If
'    End if
        
End Sub

Dim Args() As String = Array As String("-cp", m.GetValueAt(2), "b4x.plugins.ivanomonti.main", m.GetValueAt(4), m.GetValueAt(5), m.GetValueAt(6)) ' argomenti che passo
shl.Initialize("shl", "java", Args) comando linea
shl.WorkingDirectory = m.GetValueAt(3) ' path del plugins