lMultiOperations Property
Class: FTP_SERVICE
The early version open and close FTP session for each operation. This way is very slow. Therefore new version don't close automaticaly FTP Session. Only one method, FTP_SERVICE::GetFTPDirectoryArray(), is exception which close FTP connection after reading files from remote directory.
Object.lMultiOperations
=
Value
lMultiOperations
Type Boolean
Direction In- and Output
This property is sign if all FTP operations use one FTP connection.
Example
LOCAL loFTP,liT1,liT2
LOCAL ARRAY laFolders(1)
#INCLUDE "ftp.h"
SET PROCEDURE TO ftp.prg ADDITIVE 
loFTP=CREATEOBJECT('ftp_service') 

IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")

*   loFTP.lMultiOperations=.T.
   liT1=SECO()
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   liT2=SECO()
   ?"Multi operations: Yes", liT2-liT1


   loFTP.lMultiOperations=.F.
   liT1=SECO()
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   =loFTP.GetFTPFile("any.txt","local.txt")   
   liT2=SECO()
   ?"Multi operations: No", liT2-liT1

   =loFTP.CloseInternet() 
ENDIF
RELEASE PROCEDURE ftp.prg
See also