;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