Code: Select all
For y=1 To 8192
Code: Select all
For y=1 To 8193
i try with following
Code: Select all
af = CreateUDPObject(Nil, 12345)
DebugPrint(GetLocalPort(af, #NETWORKUDP))
InstallEventHandler({onreceiveudpdata = Function(msg)
DebugPrint("received")
data$,ip$,port = ReceiveUDPData(af,4096)
data2$ ,ip$,port = ReceiveUDPData(af,4096)
data$=data$..data2$
data2$ ,ip$,port = ReceiveUDPData(af,4096)
data$=data$..data2$
DebugPrint("size is "..StrStr(StrLen(data$)))
DebugPrint("data "..data$)
EndFunction})
Repeat
WaitEvent
Forever
using the follwing client test code (see i send 10000 bytes)
Code: Select all
CreateUDPObject(1)
For i=1 To 5
For y=1 To 10000
data$ = data$.. ByteChr(i)
Next
Next
InstallEventHandler({onkeyup = Function(msg)
;SendUDPData(1, msg.key, "127.0.0.1", 12345)
SendUDPData(1,data$, "127.0.0.1", 12345)
EndFunction})
Repeat
WaitEvent
Forever
thanx