B4J Question [Solved] Client.RemotePort

[Star-Dust]

In the Network Client section there is RemoteAddress to know the ip address of the connected device, how can you also retrieve the port of the connected device?

 

[Star-Dust]

It also works for B4A

Dim MySocket As Socket
' ......
Dim Sock As Reflector
Sock.Target=MySocket
Dim sor As JavaObject = Sock.GetField("socket")
remotePort=sor.RunMethod("getPort",Null)
remoteAddress=sor.RunMethod("getRemoteSocketAddress",Null)
' Address="/192.168.1.1:61061" ---
Address=Address.Replace("/","")
Address=Regex.Split(":",Address)(0)