[...]
               Case "PACKAGE"
               Local filename:String = c.stream.ReadLine()
               For Local f:TFileTransfer = EachIn FileTransferList
                  Local size:Int = c.stream.ReadInt()
                  Local container:Byte[size]
                  
                                                '//PAKET EMPFANGEN
                  For Local i:Int = 0 To size - 1
                        container[i] = c.stream.ReadByte()
                        'WriteStdout(Chr(container[i]))
                  Next
                  

                                                '//PAKET AN ALLE WEITERVERSENDEN
                  For Local c2:TClient = EachIn f.clients
                        c2.stream.WriteLine("PACKAGE")
                        c2.stream.WriteLine("f" + filename)
                        c2.stream.WriteInt(size)
                        For Local i:Int = 0 To size - 1
                           c2.stream.WriteByte(container[i])
                        Next
                        c2.stream.SendMsg()   
                  Next
[...]

While Stream.RecvMsg() ; Wend
...
While Stream.SendMsg() ; Wend

SuperStrict

Import Vertex.BNetEx


AppTitle = "Host"
Graphics 320,200

Local timer:TTimer = CreateTimer(10, Null)

Const MODE_START:Int = 1
Const MODE_OPEN:Int = 2
Global mode:Int = MODE_START
Global server:TTCPStream
Global client:TTCPStream
Global msg:String
Repeat

   Cls
   
   Select mode
      Case MODE_START
      
         DrawText ">LEERTASTE< startet den Server",10,10
         If KeyHit(KEY_SPACE) Then startServer()
         
      Case MODE_OPEN
   
         DrawText ">E< beendet den Server",10,10
         updateServer()
         If KeyHit(KEY_E) Then stopServer()
   End Select
   
   DrawText msg, 10, 100
   
   Flip 0
   WaitTimer timer

Until KeyHit(KEY_ESCAPE) Or AppTerminate()

Function startServer()
   
   server = New TTCPStream
   
   If Not server.init() Then
      msg = "init failed"
      Return
   ElseIf Not server.SetLocalPort( 8000 ) Then
      msg = "port 8000 in use"
      Return
   ElseIf Not server.listen() Then
      msg = "listen failed"
      Return
   EndIf
   msg = "server open"
   mode = MODE_OPEN
   
End Function

Function stopServer()
   If client <> Null Then
      client.close()
      client = Null
   EndIf
   server.close()
   msg = "server stopped"
   server = Null
   mode = MODE_START
End Function

Function updateServer()
   Local tmp:TTCPStream
   
   If server = Null Then Return
   
   'Neuling da? ab in die temp-liste
   tmp = server.Accept()
   If tmp <> Null Then
      client = tmp
      msg = "client connected"
   EndIf

   If client <> Null Then
      
      If client.getState() < 1 Then
         msg = "client has quit"
         client.close()
         client = Null
      Else
      
         While client.RecvMsg() ; Wend
         While Not client.Eof() ; client.ReadByte(); Wend

      EndIf
   EndIf
   
End Function

SuperStrict

Import Vertex.BNetEx


AppTitle = "Client"
Graphics 320,200

Local timer:TTimer = CreateTimer(10, Null)

Const MODE_START:Int = 1
Const MODE_CONNECTED:Int = 2
Global mode:Int = MODE_START

Global server:TTCPStream
Global msg:String
Repeat

   Cls
   
   Select mode
      Case MODE_START
      
         DrawText ">LEERTASTE< verbindet Server",10,10
         If KeyHit(KEY_SPACE) Then connectToServer()
      
      Case MODE_CONNECTED
   
         DrawText ">E< trennt die verbindung",10,10
         updateClient()
         If KeyHit(KEY_E) Then disconnect()
   End Select
   
   DrawText msg, 10, 100
   
   Flip 0
   WaitTimer timer

Until KeyHit(KEY_ESCAPE) Or AppTerminate()

Function connectToServer()
   server = New TTCPStream
   
   If Not server.init() Then
      msg = "init failed"
      Return
   ElseIf Not server.SetLocalPort() Then
      msg = "cannot reserve port"
      Return
   EndIf
   
   server.SetRemoteIP( TNetwork.IntIP("127.0.0.1") )
   server.SetRemotePort( 8000 )

   If Not server.connect() Then
      msg = "connect failed"
      Return
   EndIf
   
   msg = "connected to server"
   mode = MODE_CONNECTED
   
End Function

Function disconnect()
   If server = Null Then Return
   server.close()
   server = Null
   mode = MODE_START
   msg = "disconnected"
End Function

Function updateClient()
   Local tmp:TTCPStream
   
   If server = Null Then Return
   
   If server.getState() < 1 Then
      server = Null
      msg = "server was closed"
      mode = MODE_START
   Else
   
      While server.RecvMsg() ; Wend
      While Not server.Eof() ; server.ReadByte(); Wend

   EndIf
   
End Function

void closesocket_( int s ){
#if _WIN32
   closesocket( s );
#else
   close( s );
#endif
}

Const SO_REUSEPORT_ : Int = $0200
Local reuse : Int = True
setsockopt_(Stream.Socket, SOL_SOCKET_, SO_REUSEPORT_, Varptr(reuse), 4)