Netzwerkfehler beim versenden von Strings

[Joel]

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:

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 

Client:

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  

[Kevin]

SendNetworkString(ClientID, Str((Val(NWData$)+1)), 0) ?

mfg kevin

[Joel]

Oh shit

Hab ich mir schon gedacht, das es ein Layer-8 Problem war!