Graphics 400,200,16,2
SetBuffer BackBuffer()

svrGame=CreateTCPServer(8080)
AppTitle "Server"

IF svrGame<>0 THEN
   PRINT "Server erfolgreich gestartet"
Else
   PRINT "Server konnte nicht gestartet werden"
   END
End If

Global Bytes

WHILE Not KEYHIT(1)

   If Not strStream Then strStream = AcceptTCPStream(svrGame)
   
   
   If strStream <> 0 Then


    B = ReadInt(strStream)

   If B > 0 Then
   AppTitle "Sende"

   file = OpenFile("1.mp3")

   SeekFile(file, B)

      For X = 0 To 10240
      
         WriteByte(strStream,ReadByte(file))

      Next

    B = 0
   AppTitle "Server"

   CloseFile(file)
    strStream = 0
   End If
   
   Else
    strStream = 0
   End If

  Text 10,50,Bytes
 
Flip
Cls

Wend
CloseTCPServer(svrGame)
End()

Global B=1,Bytes = 10240


While Not Ende
 Cls
 Text 10,10,Bytes


 If KeyHit(57) Or W = 1 Then
   strmGame = OpenTCPStream ("127.0.0.1",8080)
   
   
If strmGame<>0 THEN
 WriteInt(strmGame,Bytes) :Anf = 1 : W = 0
Else
   PRINT "Konnte keine Verbindung herstellen"
   WaitKey()
   End
End If
   
   
 End If


 
 
 If Anf = 1 Then
 
If B = 1 Then
file2 = WriteFile("Buffer/1.mp3")
Else
file2 = WriteFile("Buffer/2.mp3")
End If

For X = 0 To 10240

WriteByte(file2,ReadByte(strmGame))
Bytes = Bytes + 1

Next


CloseFile(File2)


If B = 1 Then
S = LoadSound("Buffer/1.mp3") : C = PlaySound(S) : B = 2
Else
S = LoadSound("Buffer/2.mp3") : C = PlaySound(S) : B = 1
End If

;If ChannelPlaying(C) = 0 Then
; If B = 1 Then B = 2 Else B = 1
;End If

Anf = 0
W = 1
 
End If
 
 
 If KeyHit(1) Then Ende = 1

Wend
CloseTCPStream strmGame
End

WriteByte(file2,ReadByte(strmGame))