Profox > Forum

Forum Home

Visual FoxPro

Aplicatii Web

Log...

Log

5/11/2011 2:50:50 PM

savadumitru

12 posts

Log
(Romania)

Buna ziua.

Are cineva (pls) un exemplu de cod care sa intoarca (intr-o variabila, eventual) daca un calculator este conectat la internet? Multumesc.

5/12/2011 3:27:36 AM

Dumitru

172 posts

Re: Log
(N/A) Modified By Dumitru on 5/12/2011 3:29:59 AM)

FUNCTION checkNet
PARAMETERS cLink
   DECLARE Long InternetCheckConnection IN Wininet.dll String Url, Long dwFlags, Long Reserved
   IF InternetCheckConnection(cLink, 1, 0) != 0
      RETURN .T.
   ELSE
      RETURN .F.
   ENDIF
ENDFUNC

? checkNet("http://www.google.com")

Pentru mai multe cauta cu Google "vfp verify internet connection"

5/12/2011 5:58:04 AM

Daniel Buduru

2334 posts

Re: Log
(N/A) Modified By Daniel Buduru on 5/12/2011 6:02:34 AM)

Functia urmatoare returneaza true daca exista o conexiune la internet, dar nu verifica daca se poate accesa o anume adresa, asa cum face functia data de Dumitru:

Function InternetConnected
Declare Integer InternetGetConnectedState In WinInet ;
integer @lpdwFlags, Integer dwReserved

Local lnSuccess, lnFlags, lnReserved
lnFlags=0
lnReserved=0
lnSuccess=InternetGetConnectedState(@lnFlags,lnReserved)
Return lnSuccess=1
Endfunc

Daniel Buduru

Page 1 of 1

Visual FoxPro

Aplicatii Web

Log...