TCP Network Server / Client

Monkey Forums/Monkey Programming/TCP Network Server / Client

Kaltern

(Posted 2014) [#1]

Sorry sorry... I know this has been done to death here, but I simply can't get my head around it :(

I've checked out the udpechoserver code, and I can't seem to figure out how to make even a simple connection from one Monkey App to another one running a server.

I simply need to have a client connect to the server, exchange information and that's it. UDP so I can have many connections without long delays, although it isn't time-critical I suppose.

I know it's probably asking a lot, but could I please get a little help? :)

Oh, and I need to have it on GFWL, Android and iOS if possible - I think that's easy enough using BRL...

nikoniko

(Posted 2014) [#2]

Get example, cut server side code to one app, client code to another. Change IP address/ Port settings and start debug. :)

Kaltern

(Posted 2014) [#3]

So the server only code is this?

Import mojo

Import brl

Class UdpServer Implements IOnSendToComplete, IOnReceiveFromComplete

	Method New( port:Int )
		_socket=New Socket( "datagram" )
		If Not _socket.Bind( "",port ) Error "Bind failed"
		_socket.ReceiveFromAsync _data,0,_data.Length,_address,Self
	End
		
	Private
	
	Field _socket:Socket
	Field _data:=New DataBuffer( 1024 )
	Field _address:=New SocketAddress
	
	Method OnSendToComplete:Void( data:DataBuffer,offset:Int,count:Int,address:SocketAddress,source:Socket )
		_socket.ReceiveFromAsync data,0,data.Length,address,Self
	End
	
	Method OnReceiveFromComplete:Void( data:DataBuffer,offset:Int,count:Int,address:SocketAddress,source:Socket )
		_socket.SendToAsync data, offset, count, address, Self
	End
	
End

nikoniko

(Posted 2014) [#4]

Import mojo

Import brl.socket

Class UdpEchoServer Implements IOnSendToComplete,IOnReceiveFromComplete

	Method New( port:Int )
		_socket=New Socket( "datagram" )
		If Not _socket.Bind( "",port ) Error "Bind failed"
		_socket.ReceiveFromAsync _data,0,_data.Length,_address,Self
	End
	
	Private
	
	Field _socket:Socket
	Field _data:=New DataBuffer( 1024 )
	Field _address:=New SocketAddress
	
	Method OnSendToComplete:Void( data:DataBuffer,offset:Int,count:Int,address:SocketAddress,source:Socket )
		_socket.ReceiveFromAsync data,0,data.Length,address,Self
	End
	
	Method OnReceiveFromComplete:Void( data:DataBuffer,offset:Int,count:Int,address:SocketAddress,source:Socket )
		_socket.SendToAsync data,offset,count,address,Self
	End
	
End

Class MyApp Extends App 

	Field _server:UdpEchoServer
	Method OnCreate()
	

		_server=New UdpEchoServer( 12344 )
		
		SetUpdateRate 60
	End
	
	Method OnUpdate()
		UpdateAsyncEvents
	End
	
	Method OnRender()
		Cls
		DrawText "UDP Server is working...",0,0
	End
	

End

Function Main()

	New MyApp
	
End

Kaltern

(Posted 2014) [#5]

Hmm I'm getting there, just trying to figure out how to reply to client data received.... Thanks for the help :)

Kaltern

(Posted 2014) [#6]

(done it :D Now to write the next million lines of code... :| )

Kaltern

(Posted 2014) [#7]

Ok, if anyone could shed some light on how to trap a client disconnect I'd be eternally grateful...

Getting TRANS FAILED: Error executing 'MonkeyGame', return code=-1073741819 as an error as soon as a client drops ungracefully.

Tried various Try/Catch exceptions, but none seem to work.

I'm using the TCP code instead of UDP as it seems easier to work with (although that might just be me), so I'm using SendAsync/ReceiveAsync stuff.

If I close the client gracefully with a _socket.Close() then all is good.

Kaltern

(Posted 2014) [#8]

Never mind... caffeine prevails once again.. damn this network code is fiddly!

navyRod

(Posted 2014) [#9]

Kaltern -- can you share with what you've got so far :) -- thanks

navyRod

(Posted 2014) [#10]

@nikoniko -- thanks for your post , your last code post looks to be the server side app but I do not see a complete code app for the client or am I missing it

Thanks,
Rod

nikoniko

(Posted 2014) [#11]

Kaltern wrote:

how to trap a client disconnect

No pings from client - client is disconnected

navyRod wrote:

but I do not see a complete code app for the client

For client remove line _server=New UdpEchoServer( 12344 ) (and/or server's class definition).

If you will build 2way communication based on UDP you have to implement server and client in an one application (as the udp echo example).

Kaltern

(Posted 2014) [#12]

Bear in mind I am 100% new to Monkey, so this code is guaranteed to be not very useful...

Client Code

Field _socket:Socket
Field _data:=New DataBuffer( 1024 )
Field _strs:=New StringList

Method OnUpdate()
	UpdateAsyncEvents
	...
End

Method SendMore:Void()
	If _strs.IsEmpty
		_socket.Close()
		Return
	EndIf
				
	Local n:= _data.PokeString(0, _strs.RemoveFirst())
	_socket.SendAsync _data, 0, n, Self
End

Method OnConnectComplete:Void( connected:Bool,source:Socket )
	If Not connected Error "Error connecting"
	SendMore()
End

Method OnSendComplete:Void( data:DataBuffer,offset:Int,count:Int,source:Socket )
	_socket.ReceiveAsync _data, 0, _data.Length, Self
End

Method OnReceiveComplete:Void( data:DataBuffer,offset:Int,count:Int,source:Socket )
	Local _recv:string[] = data.PeekString(offset, count).Split("|")
		
	If _recv.Length = 1 Then
		SendMore()
	Return
	End If
	
	Select _recv[0]
	Case "%"
		...
	Case "@"
		...
	End
End
	
Method SendServerMessage:Void(_string:String)
	_socket = New Socket("stream")
	_socket.ConnectAsync "localhost", 12344, Self
	_strs.AddLast = _string
End
[/Codebox]

And my server code...
[codebox]
Class TcpServer Implements IOnAcceptComplete
	Method New( port:Int )
		_socket=New Socket( "server" )
		If Not _socket.Bind( "",port ) Error "Bind failed"
		_socket.AcceptAsync( Self )
	End

	Private

	Field _socket:Socket

	Method OnAcceptComplete:Void( socket:Socket,source:Socket )
		If Not socket Error "Accept error"
		Local client:= New TcpServerClient(socket)
		_socket.AcceptAsync( Self )
	End
End

Class TcpServerClient Implements IOnSendComplete, IOnReceiveComplete

	Method New(socket:Socket)
		_socket=socket
		_socket.ReceiveAsync _data,0,_data.Length,Self
	End

	Private

	Field _socket:Socket
	Field _data:=New DataBuffer( 1024 )
	Field _command:String
	
	Method OnReceiveComplete:Void(data:DataBuffer, offset:Int, count:Int, source:Socket)
			
		If Not count
			_socket.Close()
			Return
		EndIf
		
		'Read incoming datastream
                _command = data.PeekString(offset, count)
			
		'This command is to split the incoming packet into data type, and data.
                'I could combine it into one line, but It looks better to me :P
                Local _cmd:String[] = _command.Split("|")
		
		If _cmd.Length = 1 Then
			WriteNewLine(_command) ' writing to log
		Else
			Local _ClientID:String = _cmd[0]
			
			WriteNewLine(_cmd[0] + " " + _cmd[1])
			' Client Requests go here.
			
			Select _cmd[1]
			Case "*"
				...
                                'Send Datastream
				Local n:= _data.PokeString(0, "%|" + String("Stuff To Send")
				_socket.SendAsync _data, 0, n, Self
			End
		Endif
	End

	Method OnSendComplete:Void(data:DataBuffer, offset:Int, count:Int, source:Socket)	
	End
End

Class Game Extends App

Field _server:TcpServer
Field _socket:Socket
Field _data:=New DataBuffer( 1024 )
Field _strs:= New StringList

	Method OnCreate()
		 _server = New TcpServer(12344)
		 SetUpdateRate(30)
	End

	Method OnUpdate()
		UpdateAsyncEvents
	End

	Method OnRender()
		Cls
		DrawText("Server Is Running",0,0)
	End	
End

Function Main()
	New Game()
End

Now, like I said, I am reasonably good with VB, and I used to use Blitz3D, and also I've never had to deal with TCP networking before, so this code may be totally useless. It seems to work more or less, although I am struggling to handle many datapackets at once on the client side - but that's probably down to the parsing code I've written.

If anyone finds any problems with the above code... please be nice? lol