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