des kommt bei mir irgendwie jetzt ständig....so schaut mein code aus
Code: Alles auswählen
NewList Client.l()
InitNetwork()
CreateNetworkServer(598)
Repeat
Buffer = AllocateMemory(2000)
SEvent.l=NetworkServerEvent()
ClientID = NetworkClientID()
Select SEvent
Case 1
AddElement (Client())
Client()=ClientID
Case 2
ReceiveNetworkData(ClientID , Buffer , 1000)
MessageRequester("Online",PeekS(Buffer))
Case 3
;nix
Case 4
EndSelect
FreeMemory(Buffer)
ForEver