Code: Select all
IPString(GetClientIP(clientID))
Code: Select all
IPString(GetClientIP(clientID))
Code: Select all
If CreateNetworkServer(0, 12345, #PB_Network_IPv4|#PB_Network_UDP, "127.0.0.1")
*Buffer = AllocateMemory(1024)
Repeat
ServerEvent = NetworkServerEvent()
If ServerEvent
ClientID = EventClient()
Select ServerEvent
Case #PB_NetworkEvent_Data
Len = ReceiveNetworkData(ClientID, *Buffer, MemorySize(*Buffer))
Rcv$ = PeekS(*Buffer, Len, #PB_UTF8|#PB_ByteLength)
Msg$ = "Client " + ClientID + " has send a packet !" + #LF$
Msg$ + "IP: " + IPString(GetClientIP(ClientID)) + ":" + Str(GetClientPort(ClientID)) + #LF$
Msg$ + "Received: " + Rcv$
MessageRequester("Info", Msg$)
If Rcv$ = "quit"
Quit = #True
EndIf
EndSelect
EndIf
Until Quit
EndIf
Code: Select all
Con = OpenNetworkConnection("127.0.0.1", 12345, #PB_Network_IPv4|#PB_Network_UDP)
If Con
SendNetworkString(Con, "quit", #PB_UTF8)
CloseNetworkConnection(Con)
EndIf
But why have I to write the test code?Client 37488632 has send a packet !
IP: 127.0.0.1:52018
Received: quit
Code: Select all
If CreateNetworkServer(0, 500, #PB_Network_UDP)
*Buffer = AllocateMemory(1024)
Repeat
ServerEvent = NetworkServerEvent()
If ServerEvent
ClientID = EventClient()
; << <here is where I attempt grab the IP...
On a win10 pb 6.01x64 system, it's always empty for UDP. (0.0.0.0 for tcp/disconnect)