Print FileSize("file")+(2^32)

;Commandline Parameter splitten
cmdline$=CommandLine()
break=Instr(cmdline$,"|")
break2=Instr(cmdline$,"|",break+1)

name$= Mid(cmdline$,2,break-2)
port= Mid(cmdline$,break+1,break2)
ip$  = Mid(cmdline$,break2+1)



;GUI initialisieren
Windowmain=CreateWindow("Downloading "+name$,600,0,200,100,Desktop(),1)
progbar=CreateProgBar(0,0,200,20,Windowmain)

;Stream mit Commandline Parametern öffnen
stream=OpenTCPStream(ip$,port)
file=WriteFile(name$)


;Die grösse der Empfangenen Datei aus dem Stream lesen (von tcpsend.exe)
filesz=ReadLine(stream)

;Bank erstellen für spätere Verwendung von Write/Readbytes
bnk = CreateBank(4096)

;Contentlenght=was wir vorher ermittelt haben
conlen=filesz

;CRC32 Checksumme auslesen (von tcpsend.exe)
crc32=ReadLine(stream)

;Wenn es keine Ungültige ist
If crc32<>123123123
   ;Wenn schon ein crc32 File da war löschen
   DeleteFile(name$+".crc32")
   Delay(1)
   crcfile=WriteFile(name$+".crc32") ;Neues anlegen
   WriteLine crcfile,crc32           ;Checksumme reinschreiben
   SetFileAttribut(name$+".crc32",2) ;File Attribut "Hidden" setzen
EndIf
CloseFile(crcfile)

;Infos über den Transfer..
remaining=CreateLabel("Bytes remaining: "+(conlen-pos)+Chr$(13),0,40,200,20,Windowmain)

;Start Zeit speichern
start=MilliSecs()

While Not Eof(stream)
   counter=counter+1
         avail = conlen - pos  ; Was noch kommt an bytes ist die Gesamtlänge minus was wir schon bekommen haben
         If avail > 4096 Then  ; Grosses Pack
            ReadBytes bnk, stream, 0, 4096
            WriteBytes bnk, file, 0, 4096
            pos = pos + 4096
         Else                 ; Letzes Package
            ReadBytes bnk, stream, 0, avail
            WriteBytes bnk, file, 0, avail
            pos=pos+avail
            Exit
         EndIf

   ;Speed Berechnung
   If MilliSecs()>time+1000  ;jede Sekunde
      time=MilliSecs()
      tpos=pos-spos          ;Alles was diese Sekunde versandt wurde an Bytes zusammenzählen
      spos=pos
      tpos=tpos/1024/1024    ; In MB/S umrechnen
   EndIf


   If counter=200             ;Bei 200 durchgängen
      counter=0
      SetGadgetText(remaining,"Bytes remaining: "+(conlen-pos)+"  "+tpos+" MB/s")  ;GUI Updaten
      If PeekEvent() Then a=WaitEvent()  ; Sodass das die EXE noch mit Windows kommuniziert und keine "Reagiert nicht mehr" Meldung kommt
      If a=$803 ; Wenn es ein "X" schliessen war dann tschüss
         CloseFile(file)
         CloseTCPStream(stream)
         End
      EndIf
      prog#=(100/(Float(conlen)/Float(pos)))/100 ;Progbar wert berechnen
      UpdateProgBar(progbar,prog#)
   EndIf
Wend


endt=MilliSecs()
tot=endt-start
tot=tot/1000 ;Gesamtzeit ausrechnen

If crc32<>123123123 ;Falls es checksumme gab die uns vom server mitgeteilt wurde
   gcrc=ExecFile("gcrc32.exe "+name$) ;gcrc32.exe aufrufen welche die vom server mit einer aus dem downgeloadeten file erstellte crc32 vergleicht
EndIf

Notify "Download complete ,"+tot+" s"+"  "+(endt-start)+" gcrc:"+gcrc ;Alles gut und alle sind happy + infos

AppTitle "tcpsend.exe"


;Commandline Parameter splitten
cmdline$=CommandLine()
break=Instr(cmdline$,"|")
break2=Instr(cmdline$,"|",break+1)
break3=Instr(cmdline$,"|",break2+1)

path$= Mid(cmdline$,2,break-2)
port= Mid(cmdline$,break+1,break2)
ip$  = Mid(cmdline$,break2+1,break3)
crc32$  = Mid(cmdline$,break3+1)


;Verbindung aufbauen
srv=CreateTCPServer(port)
If srv=0 RuntimeError("TCP Server could not be started!")

;Zusendendes File öffnen (pfad aus Commandline())
stream=OpenFile(path$)


If stream=0 RuntimeError("File could not be opend - "+path$)

;Startzeit
st=MilliSecs()

;Auf Client warten
While client=0
   newclient= AcceptTCPStream(srv)
   If newclient<>0
      client=newclient
   EndIf
   If client=0 And MilliSecs()>st+500 RuntimeError("Client tcprecive not responding") ; Wenn der Client zu lange hatte dies mitteilen und abbrechen
Wend


; Filesize ermitteln |Funktioniert nur bei > 2GB !
conlen=FileSize(path$)
WriteLine client,conlen ;Die Grösse des Files an tcprecive übergeben
WriteLine client,crc32$ ;Die vom Server ermittelte crc32 checksumme des Files übergeben (tcprecive)

;Bank erstellen für Write/Readbytes
bnk = CreateBank(4096)

;Solange wir noch Daten haben
While Not Eof(stream)


            avail = conlen - pos ;Was wir noch senden müssen = gesamtlänge minus was wir schon gesendet haben
            If avail > 4096 Then
               ReadBytes bnk, stream, 0, 4096
               WriteBytes bnk, client, 0, 4096
               pos = pos + 4096 -53
            Else
               ReadBytes bnk, stream, 0, avail
               WriteBytes bnk, client, 0, avail
               Exit
            EndIf
Wend
 

Delay(500)


;Tschüss
CloseTCPStream(newclient)
CloseTCPServer(srv)
CloseFile(stream)
End