Ich bastel gerade an einen kleinen Prog, welches eine einzelne Datei in ein bestimmtes Verz. von zwei DBox2 uploaden soll.
Dabei wird die IP der DBox angegeben und man soll mittels eines Buttons testen können, ob die FTP-Verbindung steht (Box eingeschaltet und bereit).
Ich habs mit folgendem Code versucht, allerdings klappts irgendwie nicht.
Hat einer eine Idee, was ich falsch mache?
Code: Alles auswählen
Procedure TestFTP()
#INTERNET_SERVICE_FTP=1
#INTERNET_OPEN_TYPE_DIRECT=1
#FTP_PORT=21
#FTP_TRANSFER_ASCII=1
#FTP_TRANSFER_BINARY=2
Proxy.s=""
ProxyBypass.s=""
ServerName.s="192.168.2.111"
UserName.s="dbox2"
Password.s="dbox"
localfile.s="iptext.txt"
remotefile.s="iptext.txt"
hInternet=InternetOpen_("FTP",#INTERNET_OPEN_TYPE_DIRECT,Proxy,ProxyBypass,0)
If hInternet
hConnect=InternetConnect_(hInternet,ServerName,#FTP_PORT,UserName,Password,#INTERNET_SERVICE_FTP,0,0)
If hConnect
MessageRequester("FTP", "Verbindung aufgebaut",0)
Else
MessageRequester("FEHLER", "Keine Verbindung möglich!",0)
EndIf
InternetCloseHandle_(hInternet)
Else
MessageRequester("FEHLER", "Netzwerk nicht erreichbar!",0)
EndIf
EndProcedure