Public Sub Initialize (server As FTPServer, socket As Socket, DataPort As Int)
mServer = server
#If B4A
Dim r As Reflector
r.Target = socket
Dim jo As JavaObject = r.GetField("socket")
#Else
Dim jo As JavaObject = socket
jo = jo.GetField("socket")
#End If
jo = jo.RunMethod("getLocalAddress", Null) 'InetAddress
IPAddress = jo.RunMethod("getHostAddress", Null)
#if debug
Log(IPAddress)
#end if
mDataPort = DataPort