Public Sub Initialize (server As FTPServer, socket As Socket, DataPort As Int)
'... some code ...
Dim r As Reflector
r.Target = socket
r.Target = r.GetField("socket")
' ... more code ...
Public Sub Initialize (server As FTPServer, socket As Socket, DataPort As Int)
'... some code ...
Dim jo AsJavaObject = socket
jo = jo.GetField("socket")
'... more code...
Throws
java.lang.RuntimeException: Field: socket not found in: anywheresoftware.b4a.objects.SocketWrapper