Public Sub Initialize (Client As FTPClient, Server As FTPServer, port As Int)
'ssocket.Initialize(port, "ssocket")
InitializeWithIp(ssocket, "ssocket", 51041, "192.168.43.1")
ssocket.Listen
mClient = Client
mServer = Server
RETRTimer.Initialize("RETRTimer", 30)
End Sub
Sub InitializeWithIp(Server As ServerSocket, EventName As String, Port As Int, ip As String)
Server.Initialize(0, EventName)
Dim ia As JavaObject
ia = ia.InitializeStatic("java.net.InetAddress").RunMethod("getByName", Array(ip))
Dim s As JavaObject = Server
Dim socket As JavaObject
socket.InitializeNewInstance("java.net.ServerSocket", Array(Port, 50, ia))
s.SetField("ssocket", socket)
End Sub