Set before connect to internet
LOCAL loFTP
SET PROCEDURE TO ftp.prg ADDITIVE
loFTP=CREATEOBJECT('ftp_service')
loFTP.aIOptions(INTERNET_OPTION_CONNECT_TIMEOUT)=7200*1000
loFTP.aIOptions(INTERNET_OPTION_RECEIVE_TIMEOUT)=7200*1000
loFTP.aIOptions(INTERNET_OPTION_SEND_TIMEOUT)=7200*1000
loFTP.aIOptions(INTERNET_OPTION_CONNECT_RETRIES)=10
IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
IF loFTP.GetFTPFile("any.txt","local.txt")
?STRTRAN("File %File% downloaded","%File%","local.txt")
ELSE
?loFTP.GetExtendedErrorCode(),loFTP.GetExtendedErrorMsg()
ENDIF
=loFTP.CloseInternet()
ENDIF
RELEASE PROCEDURE ftp.prg
Set after connect to internet
LOCAL loFTP
LOCAL ARRAY laSet(INTERNET_OPTION_MAXFLAG)
SET PROCEDURE TO ftp.prg ADDITIVE
loFTP=CREATEOBJECT('ftp_service')
IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21")
laSet(INTERNET_OPTION_CONNECT_TIMEOUT)=7200*1000
laSet(INTERNET_OPTION_RECEIVE_TIMEOUT)=7200*1000
laSet(INTERNET_OPTION_SEND_TIMEOUT)=7200*1000
laSet(INTERNET_OPTION_CONNECT_RETRIES)=10
loFTP.WinInetSetOptions(@laSet)
IF loFTP.GetFTPFile("any.txt","local.txt")
?STRTRAN("File %File% downloaded","%File%","local.txt")
ELSE
?loFTP.GetExtendedErrorCode(),loFTP.GetExtendedErrorMsg()
ENDIF
=loFTP.CloseInternet()
ENDIF
RELEASE PROCEDURE ftp.prg