;--> Local-Variablen
   Local Returns$
   Local Returnb
   Local Puffer
   
   ;--> Wird gerade etwas heruntergeladen?
   If DownloadFile = Null Then
      ;--> Nächste Datei ermitteln
      For DF.DownloadFiles = Each DownloadFiles
         If Not DF\Finish Then            
            ;--> Bank zum zwischenspeichern erstellen
            DownloadAmongStream = CreateBank(DownloadPufferSize)

            ;--> Stream erstellen
            DownloadTCPStream = OpenTCPStream(DF\WEB, DF\Port)
   
            ;--> Erfolgreich?
            If DownloadTCPStream = 0 Then
               Delete DF
               Return
            EndIf
   
            ;--> Header schicken
            WriteLine DownloadTCPStream, "GET "+DF\File+" HTTP/1.0"
            WriteLine DownloadTCPStream, "Host: "+DF\WEB
            WriteLine DownloadTCPStream, ""
   
            ;--> Pausieren
            Delay 1

            ;--> Antwort
            Returns = ReadLine(DownloadTCPStream)
            
            ;--> Länge auf 0 setzten
            DownloadStreamLength = 0
            
            While (Returns <> "")
               If Upper(Left(Returns, 16)) = "CONTENT-LENGTH: "
                  DownloadStreamLength = Mid(Returns, 17, Len(Returns)-16)
               EndIf
      
               Returns = ReadLine(DownloadTCPStream)
            Wend

            ;--> Stream für die Datei auf dem PC erstellen   
            DownloadDestStream = WriteFile(DF\Dest)
   
            Returnb = ReadByte(DownloadTCPStream)
            If DownloadDestStream Then
               WriteByte DownloadDestStream, Returnb
            EndIf
            
            ;--> Auswählen
            DownloadFile = DF
         EndIf
      Next
   EndIf

   ;--> Download Routine
   If DownloadFile <> Null Then
      ;--> Bytes auslesen
      DownloadRest = ReadAvail(DownloadTCPStream)
         
      ;--> Noch Bytes vorhanden?
      If DownloadRest > 0 Then
         If DownloadRest < DownloadPufferSize Then
            DownloadPufferSize = DownloadRest
         End If
         
         ;--> Bytes auslesen
         Puffer = ReadBytes(DownloadAmongStream, DownloadTCPStream, 0, DownloadPufferSize)
         
         ;--> Bytes schreiben
         WriteBytes (DownloadAmongStream, DownloadDestStream, 0, DownloadPufferSize)
         
         ;--> Berechnen...
         DownloadKiloBytes = DownloadKiloBytes + DownloadPufferSize
         DownloadTMPKiloBytes = DownloadTMPKiloBytes + DownloadPufferSize
         DownloadPercent = ((DownloadKiloBytes / DownloadStreamLength ) * 100)
         zeitDifferenz = MilliSecs() - DownloadTime
            
         ;--> Pausieren         
         Delay 10
         
         ;--> Geschwindigkeit berechnen (5 mal pro sec)
         If zeitDifferenz > 200 Then 
            DownloadSpeed = DownloadTMPKiloBytes / zeitDifferenz
            DownloadTMPKiloBytes = 0
            DownloadTime = MilliSecs()
         End If
      EndIf