IsGlobalOffline Method
Class: FTP_SERVICE
Description:Return if is internet offline
This method return if is internet offline.
Note
Assumed from MSDN.
=
Object.IsGlobalOffline
()
Return value Numeric
ValueDescription
-1Unknown Error.
0Internet is connected.
1Internet is disconnected.
Example
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
See also
Expand/Collapse source code of procedure IsGlobalOffline Source Code
      LOCAL liState
      liState = 0
      lnSize = 4

      IF This.LoadAPIFuncs() != ERROR_SUCCESS
         RETURN -1
      ENDIF    

      IF InternetQueryOption(0, INTERNET_OPTION_CONNECTED_STATE, @m.liState, @m.lnSize)
         * disconnect status      
         * INTERNET_STATE_DISCONNECTED_BY_USER OR INTERNET_STATE_DISCONNECTED
         RETURN IIF(BITTEST(m.liState,4) OR BITTEST(m.liState,1),1,0)
      ENDIF
      RETURN  -1