Hab ein kleines Problem. Ich hab eine Homepage und möchte über ein PB Programm eine Datei uploaden.
Funktioniert mit dem vorgefertigten Programm aus dem Archiv wunderbar! Hier nochmal der CODE:
Code: Alles auswählen
#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="www.homepage.de"
UserName.s="user"
Password.s="passw"
localfile.s="loc.html"
remotefile.s="rem.html"
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
If FtpPutFile_(hConnect,localfile,remotefile,#FTP_TRANSFER_ASCII,0)
MessageRequester("","File has been sent",0)
Else
MessageRequester("Error", "Failure while sending file...",0)
EndIf
Else
MessageRequester("Error", "Couldn't get a connection to the server!",0)
EndIf
InternetCloseHandle_(hInternet)
Else
MessageRequester("Error", "Internet isn't reachable.",0)
EndIf
ftp://www.homepage.de/uploads/
Könnt Ihr mir evtl. helfen.
Danke schon im Voraus!
