;is jetzt nur ein kleines Beispiel.
;kann nur eine bestimmte Datei runterladen, für mehr brauchte ich
;das damals, als ich es gemacht habe, nicht  ;)
;aber is ja leicht auszubauen...


Graphics 640,480,0,2
SetBuffer BackBuffer()

Global port, ip$,tcp,daten
Dim pos(6)

time = MilliSecs()
tcp = OpenTCPStream ("server.de",21);ftp server

nachricht$ = ReadLine(tcp)
Print nachricht


;Anmeldung
WriteLine tcp,"USER "+"loginname"  ;ftp loginname
nachricht$ = ReadLine(tcp)
Print nachricht

WriteLine tcp,"PASS "+"passwort"  ;ftp passwort
nachricht$ = ReadLine(tcp)
Print nachricht

WriteLine tcp,"TYPE I" ;binär Modus!
nachricht$ = ReadLine(tcp)
Print nachricht

WriteLine tcp, "PASV" ;passiver Transfermodus
nachricht$ = ReadLine(tcp)
IP_PORT(nachricht$) ;2. ip aus nachricht holen



daten = OpenTCPStream (ip$,port)
file$ ="datei.**" ;zieldatei, die du runterladen willst

WriteLine tcp,"RETR "+file$
nachricht$ = ReadLine(tcp)
Print nachricht


datei = WriteFile(file$)
bank=CreateBank(10000)      

Repeat
   anz=ReadBytes(bank,daten,0,10000)
   WriteBytes bank,datei,0,anz         
Until anz<>10000

FreeBank bank
CloseFile datei


CloseTCPStream daten

nachricht$ = ReadLine(tcp)
Print nachricht

Print "Downloadzeit: " + (MilliSecs()-time) +" Millisekunden."

WaitKey
End


;empfangene Ip für den Download umwandeln.
Function IP_PORT(nachricht$)
ip$ =""
port = 0
punkt$ ="."

pos(0) = (Instr(nachricht$,"(")+1)

For i = 1 To 4
 pos(i) = Instr(nachricht$,",",pos(i-1)+1)
 If i > 1 Then t = 1
 stelle$ = Mid(nachricht,pos(i-1)+t,pos(i)-pos(i-1)-t)
 If i = 4 Then punkt$ =""
 ip$ = ip$ + stelle$ + punkt$
Next

pos(5) = Instr(nachricht$,",",pos(4)+1)
zahl1  = Mid(nachricht,(pos(4)+1),pos(5)-(pos(4)+1))

pos(6) = Instr(nachricht$,")",pos(5)+1)
zahl2  = Mid(nachricht,(pos(5)+1),pos(6)-(pos(5)+1))

port = zahl1*256 + zahl2

Print "IP: " + ip$
Print "PORT: " +port
End Function