Problem with Server / Client code?

Blitz3D Forums/Blitz3D Programming/Problem with Server / Client code?

Guy Fawkes (Posted 2012) [#1]

Hi all. I've been working on a Server / 3D Client for a few days now. I've gotten it to the point where it can transfer data, but for some reason, I'm having a small problem with it. That problem is that for some reason, when it tries to send the packet or receive the packet, it loses the Player's connection completely. What am I doing wrong in here? Server.bb: ;*************************************************************************************************** ;Server-code ;*************************************************************************************************** ;Set application title AppTitle "Server" ;Setup window size Graphics3D 600, 200, 0, 2 ;Setup the player-instance Type TPlayer Field Name$ ;The name of the player Field stream ;The stream-handle for this player (all messages sent to / received from this player use this TCP-stream) Field xpos# ;The streamed X Position for this player Field ypos# ;The streamed Y Position for this player Field zpos# ;The streamed Z Position for this player End Type ;Define a global variable that declares the port-number on which tcp-streams are sent and received Global Port = 9876 ;Create a TCP-server on the given port Global Server = CreateTCPServer(Port) ;Check if the server was created successfully or not If Server <> 0 Then ;If the server was created successfully, print it on the screen Print "Server started successfully: " + Str$(Server) Else ;If the server couldn't be created, print it on the screen Print "Server failed to start." ;Add 1 second delay Delay 1000 ;And end the program End EndIf ;Main loop While Not KeyHit(1) Local msg$ ;A variable used to read the data sent by a player Local stream = AcceptTCPStream(Server) ;Check if a new TCPstream has been found (new player requests a connection with the server) ;If a new connection has been found If stream Then ;Create a new TPlayer instance Player.TPlayer = New TPlayer ;Read the name of the player from the stream Player\Name$ = ReadString$(stream) ;Save the stream-handle in the TPlayer instance Player\stream = stream ;Print the new playername to the screen Print "Player: " + Player\Name$+" has come Online" ;======================================================== ;################# READ THE 3D DATA HERE ################ ;======================================================== ;Then grab the player's 3D coordinates Player\xpos# = ReadFloat(stream) Player\ypos# = ReadFloat(stream) Player\zpos# = ReadFloat(stream) ;And print out the player's 3D coordinates Print "X: " + Player\xpos# +" | " + "Y: " + Player\ypos# + " | " + "Z: " + Player\zpos# ;======================================================== ;################# READ THE 3D DATA HERE ################ ;======================================================== EndIf ;Process all players For Player.TPlayer = Each TPlayer ;If data was received from this player If ReadAvail(Player\stream) Then ;Read the integer value that was sent from the player's client to the server msg$ = ReadString$(Player\stream) ;Print the message onscreen that was sent by the player Print "Message " + Chr$(34) + msg$ + Chr$(34) + " sent by " + Player\Name$ EndIf ;Check if the client disconnected Select Eof(Player\stream) Case 1 ;Player disconnected nicely ;Print a message in the server-window to indicate which player disconnected Print "Player " + Player\Name$ + " has logged out" ;Delete the TPlayer instance (the server would otherwise continue to send messages to this player) Delete Player Case -1 ;Player Connection lost ;Print a message in the server-window to indicate which player disconnected Print "Player " + Player\Name$ + " has lost the connection unexpectedly" ;Delete the TPlayer instance (the server would otherwise continue to send messages to this player) Delete Player End Select Next ;Wait 2ms (don't let the server-program use up all processor-power) Delay 2 Wend ;End the server End Client.bb: ;*************************************************************************************************** ;Client-code ;*************************************************************************************************** ;Setup window size Graphics3D 800, 600, 0, 2 Type player Field player% Field xpos# Field ypos# Field zpos# Field xrot# Field yrot# Field zrot# Field xscale# Field yscale# Field zscale# Field hp% Field maxhp% Field mp% Field maxmp% End Type ;Declare port and IP-adress of the server Global Port = 9876 Global IP$ = "127.0.0.1" ;Setup a global variable that holds the TCP-stream handle (used to talk to the server) Global stream ;A global timer to time some events (used to send a message every second) Global Timer = MilliSecs() ;Seed the random number generator SeedRnd MilliSecs() ;Try to connect to server While stream = 0 If KeyDown(1) Then End ;Wait 1 second Delay 1000 ;Use a counter to count the number of tries Counter = Counter + 1 ;Try to open a TCP-stream to the server on the given port and IP-address stream = OpenTCPStream(IP$, Port) ;Let the user know that the client is trying to connect to the server Cls Text GraphicsWidth()/2, GraphicsHeight()/2, "Connecting to server...", 1, 1 Flip Delay 1000 Cls Text GraphicsWidth()/2, GraphicsHeight()/2, "on IP$: " + IP$ + ", using port " + Str$(Port), 1, 1 Flip Delay 1000 Cls ;Connection Established Successfully! If stream <> 0 Then connectmsg$ = "Connected to Server Successfully!" If stream = 0 Then connectmsg$ = "Could not connect to Server..." Text GraphicsWidth()/2, GraphicsHeight()/2, connectmsg$, 1, 1 Flip Delay 1000 Cls ;If the counter reached 5, Then the client tried 5 times To connect To the server, but wasn't able To connect -> generate an error If Counter = 5 Then RuntimeError "Cannot find server on IP: " + IP$ Wend ;Create a Player name Name$ = "Player 1" ;Send the Player name to the Server WriteString stream, Name$ ;Set application title AppTitle "Client for: " + Name$ Global camera = CreateCamera() PositionEntity camera, 0, 1, 0 AmbientLight 255, 255, 255 Global p.player = New player p\player = CreateCube() CameraRange camera, .1, 50000 Global sky = CreateCube() EntityColor sky, 68, 207, 252 ScaleEntity sky, 10000, 10000, 10000 FlipMesh sky Global ground = CreatePlane() EntityColor ground, 0, 64, 0 ;Main loop While Not KeyDown(1) For p.player = Each player MoveEntity p\player, 0, 0, (KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*1 TurnEntity p\player, 0, (KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*1, 0 Next Local msg$ ;Variable used to read messages sent by the server ;Check if the server has sent a response (or some other message) If ReadAvail(stream) Then ;======================================== ;HERE IS WHERE WE SEND 3D DATA ;======================================== For p.player = Each player xpos# = EntityX#(p\player) ypos# = EntityY#(p\player) zpos# = EntityZ#(p\player) WriteFloat stream, xpos# WriteFloat stream, ypos# WriteFloat stream, zpos# Next ;======================================== ;HERE IS WHERE WE SEND 3D DATA ;======================================== EndIf ;======================================== ;HERE IS WHERE WE UPDATE EACH PLAYER ;======================================== For p.player = Each player PositionEntity p\player, xpos#, ypos#, zpos# Next ;======================================== ;HERE IS WHERE WE UPDATE EACH PLAYER ;======================================== UpdateWorld() RenderWorld() ;Set the Font Color to White Color 0, 0, 0 ;Check if the connection hasn't been lost Select Eof(stream) Case 1 ;Server has been closed ;Print it to the screen Text GraphicsWidth()/2, GraphicsHeight()/2, "Server has been shutdown for repairs...", 1, 1 Flip ;Wait 1 second Delay 1000 ;End the client program End Case -1 ;Connection lost ;Print it to the screen Text GraphicsWidth()/2, GraphicsHeight()/2, "Server has lost the connection unexpectedly...", 1, 1 Flip ;Wait 1 second Delay 1000 ;End the client program End End Select Flip Wend ;End the client program End Function die(msg$) Return api_MessageBox(0, msg$, msg$, 0) End Function Any help is greatly appreciated! Thanks! :) Last edited 2012