Type

Type TClient
   Field ID
   Field IP, Port
   Field stream 
End Type

Const MaxClient = 16
Dim Clients.TClient( MaxClient-1 )

Null

;Server
; verwaltet Clients per Type
; aus BB Hilfe abgeleitet


Graphics 400,300,0,2 
Global Timer = CreateTimer(15) 
AppTitle "Server" 

; Server eröffnen 
Local Stream = CreateTCPServer( 12345 ) ;Port 12345
Color 160, 160, 160 
Print "Server eröffnet" 

Local NewClient,client.TClient ;ein Client für temp. Einsatz vorbereiten

Type TClient ; Für jeden Client ein Type
	Field Stream ; WICHTIG
	Field IP$,Port,txt$,msgCount ; beliebige Clientspezifische Zusatzinfos
	Field ID ; ebenfalls irgendne Zusatzinfo -- hier um die Clients zu unterscheiden
End Type

While Not KeyHit(1) 
   ; Client verbinden lassen 
	NewClient = AcceptTCPStream( Stream ) 
	If NewClient 
		client.TClient=New TClient ; Neuen Client in die Liste(Type) einfügen
		client\Stream=NewClient  ; Jetzt im Type das Handle speichern -- WICHTIG!
		client\IP=DottedIP(TCPStreamIP(client\Stream)) ; Irgendein blabla, das dich vllt. interessiert
		client\Port=TCPStreamPort(client\Stream)
		client\ID=ID
		ID=ID+1
		Color 160, 160, 160 
		Print "Client verbunden: " + client\ID
	EndIf 
    
	; Alle Clients im TYPE durchgehen
	For client.TClient=Each TClient
		While ReadAvail( client\Stream )  ; Solange nachrichten ankommen
			; Empfangene Nachricht ausgeben 
			Color 0, 255, 0 
			Print CurrentTime() +", Empfange: " +ReadLine( client\Stream )+" von "+client\ID   ; Readline liest den übertragenen Text aus 
			; und antworten 
			client\txt$ = "Antwort Nr. " +client\msgCount 
			client\msgCount = client\msgCount +1 
			
			WriteLine client\Stream, client\txt$   ; WriteLine überträgt den Text 
			Color 0, 0, 255 
			Print CurrentTime() +", Sende: " +client\txt$ 
		Wend 
	Next
	
	WaitTimer(Timer) 
Wend 

; Streams schliessen 
For client.TClient=Each TClient
	CloseTCPStream( client\Stream ) 
Next
CloseTCPServer( Stream ) 
End 

; Client 
; 

Graphics 400,300,0,2 
Global Timer = CreateTimer(15) 
AppTitle "Client" 

; Zum Server verbinden 
Local Stream = OpenTCPStream( "127.0.0.1", 12345 ) 
If Not Stream Then RuntimeError "Verbindung konnte nicht hergestellt werden." 

Color 160, 160, 160 
Print "Verbinde..." 

Local MsgCount = 1, MsgSendTime = MilliSecs() +2000 
Local txt$ 

While Not KeyHit(1) 
   ; Im Sekundetakt eine Nachricht schreiben 
	If MilliSecs() > MsgSendTime 
		txt$ = "Nachricht Nr. " +MsgCount 
		MsgCount = MsgCount +1 
		
		WriteLine Stream, txt$   ; WriteLine überträgt den Text 
		Color 0, 0, 255 
		Print CurrentTime() +", Sende: " +txt$ 
		
		MsgSendTime = MilliSecs() +2000 
	EndIf 
	
   ; Antworten auslesen 
	While ReadAvail( Stream ) 
      ; Empfangene Nachricht ausgeben 
		Color 0, 255, 0 
		Print CurrentTime() +", Empfange: " +ReadLine( Stream )   ; ReadLine liest den übertragenen Text aus 
	Wend 
    
	WaitTimer(Timer) 
Wend 

; Stream schliessen 
CloseTCPStream( Stream ) 
End