TCP

Blitz3D Forums/Blitz3D Programming/TCP

Nike	(Posted 2009) [#1]

I am making a chatroom in tcp where there is three different kinds of windows. The server window, the talking window, and the viewing window. Only certian people can download the talking window, but anyone can download the viewing window. The talkers must have a talking and viewing window in order to talk on my chat room and I run the server on my computer.
How would I forword the messages that come to the server from the talkers into the viewer?

AJ00200

(Posted 2009) [#2]

Keep an IP list of connected chatters, and send a TCP message to every IP.
EG:
[code]
PeopleInRoom=<UPDATE WITH PEOPLE IN ROOM EVERY LOOP>
Dim IPs(<MAX ALLOWED PEOPLE-1)
For i=0 to PeopleInRoom-1
sendIM(IPs(i),<MESSAGES>)
Next
function sendIM(IP, text$)
<TCP CODE>
end function

Nike	(Posted 2009) [#3]

Tried to use it but it wont work. Here is my code if it could help

Client


name$ = Input("")
Print "Hello " + name$ + "."
Delay 2000
Cls

Global msg$
Global strmGame = OpenTCPStream("192.168.1.101",80800) 


FlushKeys()

While Not KeyHit(1)

	If KeyHit(28)
	FlushKeys()
		msg$ = Input("Message: ")

		WriteLine strmGame,name$ + ": " + msg$
		
	FlushKeys()
	EndIf
	
Wend

Viewer


Global svrGame = OpenTCPStream("192.168.1.101",80800) 

While Not KeyHit(1)

		If ReadAvail(svrGame) > 0 Then
			Print ReadLine(svrGame)
		EndIf 
		
Wend

Server


Type user
	Field id
End Type

Global svrGame = CreateTCPServer(80800)

While Not KeyHit(1)
	Local connect = AcceptTCPStream(svrGame)
	If connect Then 
		u.user = New user
		u\id = connect
		Print "New Connection: " + connect 
	EndIf 
	
	For u.user = Each user
		If ReadAvail(u\id) > 0 Then
			Print ReadLine$(u\id)
			WriteLine svrGame,u\id
		EndIf
	Next
Wend