IsInternet() is failing to recognise internet sometimes

[RAMESHBABU]

Hi Friends,

Our product support executive are complaining that, some times our applications are
not recognising internet, through every thing is fine there with all internet
activities.

I am checking the internet connection initially with ISINTERNET(), before I proceed
with my functionality. Almost, every time it is working correctly, But some times
it is not giving the correct result .

Anybody has experience this behaviour ? if so, any solution ?

Regards,

- Ramesh Babu P

[lucasdebeltran]

Hello,

Fivewin Internet functions sometimes fail.

You can try this way:

Code: Select all  Expand view

//

   PROCEDURE Main
      LOCAL pSocket

      INetInit()

      pSocket := INetConnect( "www.hotmail.com", 80 )

      ? INetAddress( pSocket )  

      INetClose( pSocket )
      INetCleanUp()
   RETURN

[RAMESHBABU]

Hello Mr.Lucas,

Thank you very much for your response.

I have tried exactly the way you have tried as under:

Let me check the results, tommorrow.

-Ramesh Babu P

Code: Select all  Expand view

   FUNCTION Is_Internet()

      LOCAL pSocket, lOk := .F.

      INetInit()

      pSocket := INetConnect( "www.google.com", 80 )

      IF INetAddress( pSocket ) = 0
         lOk := .T.
      ENDIF  

      INetClose( pSocket )
      INetCleanUp()
 
 RETURN lOk