FTPCommand Method
Class: FTP_SERVICE
Object.FTPCommand
Parameter
lcCommand
Type Character
Direction Input
liFlags
Type Integer
Direction Input
liContext
Type Integer
Direction Input
lihFTP
Type Integer
By reference  
Direction Input/Output
See also
Expand/Collapse source code of procedure FTPCommand Source Code
      LPARAMETERS lcCommand, liFlags, liContext,lihFTP
      LOCAL fResult
      IF This.OpenFTPConnection(This.cStartupFolder)     && Open an FTP Handle
         liFlags=IIF(PCOUNT()<2,FTP_TRANSFER_TYPE_BINARY,liFlags)
         liContext=IIF(PCOUNT()<3,0,liContext)
         lihFTP=IIF(ISNULL(lihFTP),-1,0)

         lcCommand = lcCommand + cNULL
         =This.BeforeFTPCommand(lcCommand, liFlags, liContext)
         fResult = FtpCommand(This.nConnect_Handle, IIF(lihFTP=-1,0,1), liFlags, @lcCommand,liContext,@lihFTP)

         =This.GetExtendedError()
         =This.AfterFTPCommand(lcCommand, liFlags, liContext,lihFTP,fResult)

         =IIF(This.lMultiOperations,.T.,This.CloseFTPConnection())   && Close FTP Handle
         RETURN  fResult = 1
      ENDIF
      RETURN .F.