Sub onCAENRFIDNotifyTag_Event (MethodName As String, Args() As Object) As Object
Dim results As JavaObject = Args(0)
Dim nTag As Int
Try
Dim CAENRFIDNotifyList As List = results.RunMethod("getData",Null)
For Each CAENRFIDNotify As JavaObject In CAENRFIDNotifyList
'Todo something with the JavaObject CAENRFIDNotify'
nTag = nTag + 1
Log("Number of Tags received: " & nTag)
Next
Return Null
Catch
Return Null
Log(LastException)
End Try
End Sub
speaking for myself, it would be much easier if you could post the actual json string or the url where i can get it myself. i know we have a json pretty print, but it's not something i use.
you say "it goes wrong", but you didn't say if you got an error. did you? what was it? you might want to wrap your get() call in a try/catch block, and if you get an error, see what it is. i think your "Dim TagID_0 As Byte" declaration should be another (java)object. the java code itself, seems relatively clear enough for someone familiar with CAENRFIDN, which, regrettably, excludes me. sorry.