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