Sockets Streams and if Readavail

BlitzMax Forums/BlitzMax Beginners Area/Sockets Streams and if Readavail

BeardKingX

(Posted 2013) [#1]

So I have a server created and am trying to read incoming lines.

SuperStrict

Global Player_list:TList = CreateList()
Type Player
	Field name$
	Field stream:TSocketStream
End Type

Global server:Tsocket = CreateTCPSocket()
BindSocket(server, 8080)
SocketListen(server)
Print "Server Up,"

While Not KeyHit(1)
	tcp_in()
Wend

Function tcp_in()
	Local socket:Tsocket = SocketAccept(server)
	If socket
		Local new_player:player = New player
			new_player.name$ = "guest"
			new_player.stream:TSocketStream = CreateSocketStream(socket)
		player_list.AddLast(new_player)
				Print "a new player has connected."
				WriteLine(new_player.stream, "hello!")
	End If
	
	Local this_player:player = EachIn player_list
	 '???
		'if readavail(this_player\stream%) > 0
			'msg$ = readline$(this_player\stream%)
			'print msg$
		'end if
	Next
End Function

in old blitz where the "???" is in the code above I could easily check to see if the player had sent anything by simply doing:

if readvail(this_player\stream) > 1

In Blitzmax there does not seem to be an equivalent and I have been unable to get socketreadavail to work in any fashion.

BeardKingX

(Posted 2013) [#2]

this works... sort of, it only reads every other line sent for some reason

SuperStrict

Global Player_list:TList = CreateList()
Type Player
	Field name:String
	Field stream:TSocketStream
End Type

Global server:Tsocket = CreateTCPSocket()
BindSocket(server, 8080)
SocketListen(server)
Print "Server Up,"

While Not KeyHit(1)
	tcp_in()
Wend

Function tcp_in()
	Local socket:Tsocket = SocketAccept(server)
		If socket
			Local new_player:player = New player
				new_player.name = "guest"
				new_player.stream:TSocketStream = CreateSocketStream(socket)
			player_list.AddLast(new_player)
				Print "a new player has connected."
				WriteLine(new_player.stream, "hello!")
		End If
		
		For Local this_player:player = EachIn player_list
			If Len(ReadLine$(this_player.stream)) > 0
				Local msg:String = ReadLine$(this_player.stream)
				Print msg
			End If
		Next
End Function

Floyd

(Posted 2013) [#3]

You are calling ReadLine$(this_player.stream) twice. I think you want something like

Local msg:String = ReadLine$(this_player.stream)
If Len(msg) > 0
   Print msg
End If

BeardKingX

(Posted 2013) [#4]

Thanks works perfectly. I probably should have caught that =P