Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private TerminalFactory, tf As JavaObject
Private lst As List
Private ComboBox1 As ComboBox
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
tf=TerminalFactory.InitializeStatic("javax.smartcardio.TerminalFactory")
End Sub
public Sub getReaderList As Map
Dim mp As Map
mp.Initialize
tf= TerminalFactory.RunMethod("getInstance",Array("PC/SC",Null))
Try
lst= tf.RunMethodJO("terminals",Null).RunMethod("list",Null)
If lst.Size >0 Then
For i =0 To lst.Size -1
mp.Put(lst.Get(i),i)
Next
mp.Put("count",mp.Size)
mp.Put("errcode",0)
mp.Put("errdesc","success")
End If
Return IIf(mp.Size>0 ,mp,Null)
Catch
mp.Put("count",0)
mp.Put("errcode",-1)
mp.Put("errdesc","no readers avaible")
Log(LastException)
End Try
Return mp
End Sub
Sub Button1_Click
Dim mp As Map = getReaderList
If mp.Size >0 Then
ComboBox1.Items.Add( mp.GetKeyAt(0))
End If
End Sub