Class: | FTP_SERVICE |
Value | Description |
INTERNET_CONNECTION_MODEM | Local system uses a modem to connect to the Internet. |
INTERNET_CONNECTION_LAN | Local system uses a local area network to connect to the Internet. |
INTERNET_CONNECTION_PROXY | Local system uses a proxy server to connect to the Internet. |
INTERNET_CONNECTION_MODEM_BUSY | No longer used. |
INTERNET_RAS_INSTALLED | Local system has RAS installed. |
INTERNET_CONNECTION_OFFLINE | Local system is in offline mode. |
INTERNET_CONNECTION_CONFIGURED | Local system has a valid connection to the Internet, but it might or might not be currently connected. |
LOCAL loFTP, liState,liCID SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') liState=loFTP.GetConnectedState() && Check Connected state IF liState=-1 ?loFTP.GetExtendedErrorCode(),loFTP.GetExtendedErrorMsg() ELSE IF BITTEST(liState,0) && INTERNET_CONNECTION_MODEM ?"Use modem" ENDIF IF BITTEST(liState,1) && INTERNET_CONNECTION_LAN ?"Use LAN" ENDIF IF BITTEST(liState,2) && INTERNET_CONNECTION_PROXY ?"Use proxy" ENDIF IF BITTEST(liState,3) && INTERNET_CONNECTION_MODEM_BUSY ?"Modem busy" ENDIF IF BITTEST(liState,4) && INTERNET_RAS_INSTALLED ?"RAS installed" ENDIF IF BITTEST(liState,5) && INTERNET_CONNECTION_OFFLINE ?"Offline mode" ENDIF IF BITTEST(liState,6) && INTERNET_CONNECTION_CONFIGURED ?"Valid connection, but not cennected" ENDIF ENDIF RELEASE PROCEDURE ftp.prg
LOCAL fResult, lnConnectionState IF This.LoadAPIFuncs() != ERROR_SUCCESS RETURN -1 ENDIF lnConnectionState = 0 =This.BeforeGetConnectedState() fResult = InternetGetConnectedState(@lnConnectionState, 0) =This.GetExtendedError() =This.AfterGetConnectedState(fResult,lnConnectionState) RETURN IIF(fResult = 0,-1,lnConnectionState)