Netzwerkfehler beim versenden von Strings
Verfasst: 29.08.2013 19:32
Hey,
habe PB 5.20 Beta 14 (Ubuntu 13.04).
Suche gerade einen Bug in der Beta und denke ich habe ihn gefunden.
Der Client schickt immer alle Pakete (per SendNetworkString) zurück die er bekommt.
Der Server schickt als erstes eine "1". wenn er die "1" wieder zurückbekommt erhöht er die Zahl auf 2 und schickt sie wiederum an den Client...
Das Problem ist, das der Client die "2" nichtmehr empfängt (siehe Debug Ausgabe). Ist das bei euch (Linux) auch so?
Server:
Client:
habe PB 5.20 Beta 14 (Ubuntu 13.04).
Suche gerade einen Bug in der Beta und denke ich habe ihn gefunden.
Der Client schickt immer alle Pakete (per SendNetworkString) zurück die er bekommt.
Der Server schickt als erstes eine "1". wenn er die "1" wieder zurückbekommt erhöht er die Zahl auf 2 und schickt sie wiederum an den Client...
Das Problem ist, das der Client die "2" nichtmehr empfängt (siehe Debug Ausgabe). Ist das bei euch (Linux) auch so?
Server:
Code: Alles auswählen
InitNetwork()
*Buffer = AllocateMemory(1000)
CreateNetworkServer(0, 9000)
Repeat
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
Select SEvent
Case #PB_NetworkEvent_Connect
Debug "connect"
Delay(5000)
SendNetworkString(ClientID, "1")
Debug "sent 1"
Case #PB_NetworkEvent_Data
RcvBytes = ReceiveNetworkData(ClientID, *Buffer, 12000)
NWData$ = PeekS(*Buffer, RcvBytes)
Delay(500)
SendNetworkString(ClientID, Str((Val(NWData$)+1)), 0)
Debug "sent: "+Str((Val(NWData$)+1))
EndSelect
EndIf
Until Quit = 1 Code: Alles auswählen
InitNetwork()
ConnectionID = OpenNetworkConnection("xxxxxxxxxxxxx", 9000)
Repeat
ServerID = NetworkClientEvent(ConnectionID)
Select ServerID
Case #PB_NetworkEvent_Data
*Buffer = AllocateMemory(1024)
RcvBytes = ReceiveNetworkData(ConnectionID, *Buffer, 1024)
NWData$ = PeekS(*Buffer, RcvBytes)
Debug "empfangen: "+NWData$
Delay(500)
Debug SendNetworkString(ConnectionID, NWData$)
EndSelect
ForEver 
