Class: | FTP_SERVICE |
Description: | Send native FTP command to FTP server |
Type | Character |
Direction | Input |
Type | Integer |
Direction | Input |
Optional |
Value | Description |
FTP_TRANSFER_TYPE_ASCII | ASCII mode |
FTP_TRANSFER_TYPE_BINARY | Binnary mode. |
Type | Integer |
Direction | Input |
Optional |
Type | Integer |
By reference | |
Direction | Input/Output |
Optional |
LPARAMETERS INP lcCommand,INP liFlags,OPT_INP liContext,OPT_CHNGREF lihFTP LOCAL fResult liFlags=IIF(PCOUNT()<2,FTP_TRANSFER_TYPE_BINARY,m.liFlags) liContext=IIF(PCOUNT()<3,0,m.liContext) lihFTP=IIF(ISNULL(m.lihFTP),-1,0) lcCommand = m.lcCommand + cNULL =This.BeforeFTPCommand(@m.lcCommand, m.liFlags, m.liContext,m.lihFTP) fResult = FtpCommand(This.nConnect_Handle, IIF(m.lihFTP=-1,0,1), m.liFlags, @m.lcCommand,m.liContext,@m.lihFTP) =This.GetExtendedError() =This.AfterFTPCommand(@m.lcCommand, m.liFlags, m.liContext,m.lihFTP,m.fResult) =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection()) && Close FTP Handle RETURN m.fResult = 1