Class: | FTP_SERVICE |
Type | Number |
Direction | In- and Output |
LOCAL loFTP,lcPom #INCLUDE "ftp.h" SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") =loFTP.SetCachingMethod(INTERNET_FLAG_MUST_CACHE_REQUEST+INTERNET_FLAG_RELOAD) =loFTP.GetFTPFile("any.txt","local.txt") ?loFTP.GetCachingMethod() loFTP.ResetCachingMethod() ?loFTP.GetCachingMethod() =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg