Para Bingen Ugaldebere
Publicado: Lun Jun 08, 2009 6:06 pm
Veo que en el otro foro , buscas como compropar la conexion a Internet
Checa esta función
FUNCTION HAY_INTERNET()
LOCAL hData,retval:=.t.
LOCAL cData
WITH OBJECT TInternet():New( )
IF :Open()
IF !Empty( hData := :OpenURL( "http://www.google.com" ) )
:CloseURL( hData )
retval:=.t.
ELSE
retval:=.F.
ENDIF
:Close()
ENDIF
END
RETURN retval
Saludos...
Checa esta función
FUNCTION HAY_INTERNET()
LOCAL hData,retval:=.t.
LOCAL cData
WITH OBJECT TInternet():New( )
IF :Open()
IF !Empty( hData := :OpenURL( "http://www.google.com" ) )
:CloseURL( hData )
retval:=.t.
ELSE
retval:=.F.
ENDIF
:Close()
ENDIF
END
RETURN retval
Saludos...