Class: | FTP_SERVICE |
Type | Numeric |
Direction | Input |
Value | Description |
_FTPS_Option_CurrentDir | Current folder on FTP session. |
_FTPS_Option_DLL_Loaded | Flag. |
_FTPS_Option_Inet_Handle | Internet handle. |
_FTPS_Option_Connect_Handle | FTP session handle. |
_FTPS_Option_IPAddress | IP adress of FTP Server. |
_FTPS_Option_UserName | User name. |
_FTPS_Option_Password | Password. |
_FTPS_Option_Port | FTP port. |
_FTPS_Option_UseProxy | Flag of using proxy settings. |
LOCAL loFTP, liState,liResult SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') IF loFTP.OpenInternet("ABONNE", "PWD", "10.10.10.10", "21") ?loFTP.GetSystemOption(_FTPS_Option_Inet_Handle) =loFTP.CloseInternet() ENDIF RELEASE PROCEDURE ftp.prg
LPARAMETERS INP liOption DO CASE CASE liOption=_FTPS_Option_CurrentDir RETURN This.cCurrentDir CASE liOption=_FTPS_Option_DLL_Loaded RETURN This.lDLL_Loaded CASE liOption=_FTPS_Option_Inet_Handle RETURN This.nInet_Handle CASE liOption=_FTPS_Option_Connect_Handle RETURN This.nConnect_Handle CASE liOption=_FTPS_Option_IPAddress RETURN This.cIPAddress CASE liOption=_FTPS_Option_UserName RETURN This.cUserName CASE liOption=_FTPS_Option_Password RETURN This.cPassword CASE liOption=_FTPS_Option_Port RETURN This.cPort CASE liOption=_FTPS_Option_UseProxy RETURN This.lUseProxy OTHERWISE RETURN .NULL. ENDCASE