Function GET_FILE_FROM_WEB(server$,port%,file_server$,file_hdd$)
   Local a_header$[50]

   stream=OpenTCPStream(server$,port%)
   If stream<>0 Then
      WriteLine stream,"GET "+file_server$+" HTTP/1.1"
      WriteLine stream,"Host: "+server$
      WriteLine stream,Chr$(10)     
       
datei=WriteFile(file_hdd$)


      status=1
      ende=0
      tmp$=""
      ;Kopf auslesen
      steps=1
      Repeat
         txt$=Trim(ReadLine(stream))
         a_header[steps]=txt$
         steps=steps+1
      Until txt$=""

      For steps=1 To 50
         ;If a_header[steps]<>"" Then Print a_header[steps]
         If Upper(Mid(a_header[steps],1,16))="CONTENT-LENGTH: " Then
            tmp_length=Int(Mid(a_header[steps],17,-1))
             
         End If
      Next

     
       
      ;Rest in file schreiben
      bytes=0
      tmp_steps=0
      Repeat
         txt$=Trim(ReadByte(stream))
         WriteByte datei,txt$
         bytes=bytes+1
         tmp_steps=tmp_steps+1
         
         If 1000=1000 Then
            tmp_steps=0
            Cls
            Text 10,15,"Download: "+(bytes/1000)+"Kb / "+(tmp_length/1000)+"Kb"
         End If

   
Until  Eof(stream)

      CloseFile datei
      CloseTCPStream stream