Class: | FTP_SERVICE |
Type | Character |
Direction | Input |
Type | Character |
Direction | Input |
LOCAL loFTP SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") IF loFTP.PutFTPFile("any.txt","local.txt") ?STRTRAN("File %File% uploaded","%File%","local.txt") ELSE ?loFTP.nExtended_Result,loFTP.cExtended_Message ENDIF =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg
LPARAMETERS lcRemoteFile, lclocalFile LOCAL fResult IF EMPTY(lcRemoteFile) OR EMPTY(lcLocalFile) RETURN .F. ENDIF IF This.OpenFTPConnection(This.cStartupFolder) && Open an FTP Handle lcRemoteFile = lcRemoteFile + cNULL lcLocalFile = lcLocalFile + cNULL =This.BeforePutFTPFile(lcRemoteFile, lclocalFile) fResult = FtpPutFile(This.nConnect_Handle, @lcLocalFile, @lcRemoteFile, ; FTP_TRANSFER_TYPE_BINARY, 0) =This.GetExtendedError() =This.AfterPutFTPFile(lcRemoteFile, lclocalFile,fResult) =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle RETURN fResult = 1 ENDIF RETURN .F.