svrGame=CreateTCPServer(8080)

If svrGame<>0 Then
Print "Start erfolgreicht."
Else
Print "Start fehlerhaft"
End
End If


While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
nachricht$=ReadString$(strStream)
Print nachricht$
EndIf

If KeyHit(57) Then
tex$=Input("")

strmGame=OpenTCPStream("IP ADRESSE",8080)
WriteString strmGame,tex$
EndIf

Delay 1000
Wend

svrGame=CreateTCPServer(8080)

If svrGame<>0 Then
Print "Start erfolgreicht."
Else
Print "Start fehlerhaft"
End
End If


While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
feund_adresse=strStream
EndIf

If KeyHit(57) Then
tex$=Input("")

WriteString freund_adresse,tex$
EndIf
;auselesen vopm freund
if readavail(freund_adresse)>0
print readline(freund_adresse)
endif
Delay 1000
Wend

;Client:
strmGame=OpenTCPStream("192.168.1.33",8080)
If strmGame<>0 Then
   Print "Client erfolgreich verbunden"
Else
   Print "Konnte keine Verbindung herstellen"
   WaitKey()
   End
End If

WriteString strmGame,"TEEEEST"
Print "Daten gesendet..."
Delay 1000
Print ReadString$(strmGame)+"<---"
Delay 100
WriteString strmGame,"TEEEEST22222" ;<--- das kommt dann schon nicht an
Print "noch mal"
Delay 1000
While Not KeyDown(1)

Wend
CloseTCPStream strmGame
End

;server
svrGame=CreateTCPServer(8080)
If svrGame<>0 Then
   Print "Server erfolgreich gestartet"

Else
   Print "Server konnte nicht gestartet werden"
   End
End If

While Not KeyDown(1)
strStream=AcceptTCPStream(svrGame)
   If strStream Then
      Print ReadString$(strStream)   
      Delay 1000

      WriteString (strStream,"OKAY!")
   Else
      Print "Keine Daten mehr..."
      Delay 1000
   EndIf
Wend
CloseTCPServer svrGame
WaitKey()
End

;Client:
strmGame=OpenTCPStream("192.168.1.33",8080)
If strmGame<>0 Then
   Print "Client erfolgreich verbunden"
Else
   Print "Konnte keine Verbindung herstellen"
   WaitKey()
   End
End If

WriteString strmGame,"TEEEEST"
Print "Daten gesendet..."
Delay 1000
Print ReadString$(strmGame)+"<---"
Delay 100
strmGame=OpenTCPStream("192.168.1.33",8080)
WriteString strmGame,"TEEEEST22222" ;<--- das kommt dann schon nicht an
Print "noch mal"
Delay 1000
While Not KeyDown(1)

Wend
CloseTCPStream strmGame
End

server = CreateTCPServer(9090)

If server = 0
   Print "Server konnte nicht gestartet werden"
   WaitKey
   End
EndIf


;In diesem Type werden die einzelnen Clients die
;verbunden sind gespeichert.
Type client
   Field stream
End Type



Print "Server gestartet"

While Not KeyDown(1)

   ;Nach neuen Clients ausschau halten
   stream = AcceptTCPStream(server)
   
   ;Neuer Client vorhanden
   If stream <> 0
      ;Client in eine Liste (Types) eintragen
      Print "Client verbunden"
      my.client = New client
      my\stream = stream
   EndIf

   ;Alle Clients in der Liste durchgehen
   For my.client = Each client
   
      ;Prüfen ob noch eine Verbindung existiert, wenn nicht
      ;wird der Stream geschlossen und der Client gelöscht.
      If Eof(my\stream) = -1 Or Eof(my\stream) = 1
         Print "Client hat die Verbindung getrennt"
         CloseTCPStream(my\stream)
         Delete my
      EndIf

      ;Wenn der Client noch existiert (bzw. verbunden ist)...
      If my <> Null
      
         ;... und Daten verfügbar sind...
         If ReadAvail(my\stream)
            ;Daten auslesen und eine Antwort schicken
            txt$ = ReadLine(my\stream)
            Print "Client: " + txt$
            WriteLine(my\stream, "Nachricht erhalten")
         EndIf
         
      EndIf
   Next

   Delay 50

Wend




;Bei allen verbunden Clients, die Verbindung trennen
;Und aus der Liste löschen
For my.client = Each client
   CloseTCPStream(my\stream)
   Delete my
Next

;Server beenden
CloseTCPServer(server)

Print "Server beendet"
WaitKey

End

client = OpenTCPStream("localhost", 9090)

If client = 0
   Print "Verbindung zum Server fehlgeschlagen"
   WaitKey
   End
EndIf

Print "Erfolgreich verbunden"

While Not KeyHit(1)

   ;Keine Verbindung mehr...
   If Eof(client) = -1 Or Eof(client) = 1
      Print "Verbindung mit dem Server verloren"
      CloseTCPStream(client)
      client = 0
      Exit
   EndIf

      
   ;Wenn Daten verfügbar sind...
   If ReadAvail(client)
      ;Daten lesen und ausgeben
      txt$ = ReadLine(client)
      Print "Server: " + txt$
   EndIf
   
   ;Leertaste gedrückt?
   If KeyHit(57)
      WriteLine(client, "Test-Nachricht")
   EndIf

   Delay 50
      
Wend

;Noch verbunden?
If client <> 0
   ;Stream schliessen
   CloseTCPStream(client)

   Print "Verbindung getrennt"
EndIf

WaitKey

End