Hi Jack.
Much appreciated. In the meantime I found the following.
It seems to do the job
Local iMsg,iConf
Declare SHORT InternetGetConnectedState In wininet.Dll;
INTEGER @lpdwFlags, Integer dwReserved
lConnect=displayState()
IF !lConnect
Messagebox("There is no internet connection at the moment"+CHR(13)+;
"Please check your network or Wifi settings",0,'Sorry')
trcask399=.f. &&public variable
ELSE
WAIT WINDOW NOWAIT 'You have internet connection'
ENDIF
Procedure displayState
Local lConnected
lConnected = .F.
lpdwFlags = 0
If InternetGetConnectedState (@lpdwFlags, 0) = 1
lConnected = .T.
Endif
Return lConnected
Endproc
On Wed, Mar 12, 2014 at 11:25 AM, Jack Skelley <[email protected]
> wrote:
> Sytze
> I have a function that I wrote that will return the status of the internet
> connection. I use it with our scouting system to see if data can be sent
> from the machine.
> You are welcome to if you give me an email address so I can send it to you.
> Best regards,
>
> Jack Skelley
>
>
> Jack Skelley
> Senior Director, Programming/Computer Operations
> New Jersey Devils
> (973)757-6164
> [email protected] ________________________________________
> From: ProfoxTech [[email protected]] on behalf of Sytze de
> Boer [[email protected]]
> Sent: Tuesday, March 11, 2014 6:09 PM
> To: [email protected]
> Subject: Do i have internet
>
> Hi gang
>
> I have a small application that runs on a windows tablet, and emails
> information
> On a number of occasions, the network connection is down or otherwise not
> connected to the Wifi system.
>
> Is there a quick way to determine if I have internet connection ?
>
> --
> Kind regards
> Sytze de Boer
> Kiss Software
>
>
> --- StripMime Report -- processed MIME parts ---
> multipart/alternative
> text/plain (text body -- kept)
> text/html
> ---
>
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/CAG1nNy8utaCW2NUVpt=nkqhk4tz_5kv9fjaf2vuzv87crdu...@mail.gmail.com
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
