Class: | FTP_SERVICE |
Value | Description |
-1 | Unknown Error. |
0 | Internet is connected. |
1 | Internet is disconnected. |
LOCAL loFTP, liState SET PROCEDURE TO ftp.prg ADDITIVE loFTP=CREATEOBJECT('ftp_service') liState=loFTP.IsglobalOffline() DO CASE CASE liState=-1 ?"Unknown error" CASE liState=0 ?"Internet is connected" CASE liState=1 ?"Internet is disconnected" ENDCASE RELEASE PROCEDURE ftp.prg
LOCAL liState liState = 0 lnState = 4 IF InternetQueryOption(0, INTERNET_OPTION_CONNECTED_STATE, @liState, @lnSize) RETURN IIF(BITTEST(liState,4)=1,0,1) ENDIF RETURN -1