Xailer & OZ Software

Vi que en el otro foro , buscas como comprobar la conexión 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...

Muchas gracias Martí­n
Casi habí­a llegado a lo mismo pero es muy lento en chequear cuando no
hay conexión no te parece?
Esta es mi versión.
//Comprobar la conexión a Internet
Function IsInternet(lMessage)
Local lOk:=.F.
Default lMessage To .F.
WaitOn("Conectado a Internet.......")
WITH OBJECT TInternet():New( )
lOK:=:CheckConnection("http://www.google.es")
End
WaitOff()
If lMessage .And. !lOk
MsgStop("No tiene activa la conexión a Internet necesaria para
este cometido, conectese a Internet y pruebe de nuevo.")
Endif
Return lOk

Bingen Ugaldebere wrote:
> Muchas gracias Martí­n
>
> Casi habí­a llegado a lo mismo pero es muy lento en chequear cuando no
> hay conexión no te parece?
>
> Esta es mi versión.
>
> //Comprobar la conexión a Internet
> Function IsInternet(lMessage)
> Local lOk:=.F.
>
> Default lMessage To .F.
>
> WaitOn("Conectado a Internet.......")
> WITH OBJECT TInternet():New( )
> lOK:=:CheckConnection("http://www.google.es")
> End
> WaitOff()
>
> If lMessage .And. !lOk
> MsgStop("No tiene activa la conexión a Internet necesaria para
> este cometido, conectese a Internet y pruebe de nuevo.")
> Endif
>
> Return lOk
>
>
Hola Bingen.
ya probaste la función que te mande.
a mi me funciona muy rápido , casi instantaneamente.
De hecho esta funcionando en varios programas y no he tenido queja alguna.
hice varias pruebas antes de implementarla y me funciona perfecto.
Saludos...