Information générale
Catégorie:
Applications Internet
All,
I want to FTP some XML file to Taiwan everyday. But I get fail when doing "FtpPutFile".
What is my stort in my code?
Give me your suggestion.
***************************************************************
DECLARE Integer InternetOpen IN WinInet String @lpcAgent, Integer nAccessType, String @lpcProxyName, ;
String @lpcProxyBypass, Integer nFlags
DECLARE Integer InternetConnect IN WinInet ;
Integer nInet_Handle, String @lpcServer, Short nPort, String @cUserName, String @cPassword, Integer ;
nService, Integer nFlags, Integer nContext
DECLARE Integer FtpPutFile IN WinInet Integer FtpHandle, String @NewFile, String @RemoteFile, Integer ;
nFlags, Integer nContext
#DEFINE cNull CHR(0)
**
cHostName = "888.88.8.8" + cNull
cUserName = "ftpuser" + cNull
cPassWord = "ftpuser" + cNull
FtpAgent = "FTP Agent by me"
InternetHandle = InternetOpen((FtpAgent), 1, cNull, cNull, 0)
FtpHandle = InternetConnect(InternetHandle, (cHostName), 21, (cUserName), (cPassword), 1, 0, 0)
localFile = "c:\2.txt" + cNull
RemoteFile = "/SSIS/2.txt" + cNull
nResult = FtpPutFile(FtpHandle, @localFile, @RemoteFile, 2, 0)
IF nResult = 1
=messagebox("OK!")
else
=messagebox("Fail!")
endif
Ricky
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement