IsGlobalOffline Method
Class: FTP_SERVICE
This method return if is internet offline.
Note
Assumed from MSDN.
=
Object.IsGlobalOffline
()
Return value Numeric
ValueDescription
-1 Unknown Error.
0 Internet is connected.
1 Internet 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
      lnState = 4

      IF InternetQueryOption(0, INTERNET_OPTION_CONNECTED_STATE, @liState, @lnSize)
         RETURN IIF(BITTEST(liState,4)=1,0,1)
      ENDIF
      RETURN  -1