Wininet code in Server 2003

[white605]

The following Code runs well in W2k but Fails in server2003. Is there some sort of default security setting in server that stops this code?

 *TEST FOR INTERNET CONNCETION
Declare Integer InternetCheckConnection In wininet;
	STRING lpszUrl, Integer dwFlags, Integer dwReserved

 #Define FLAG_ICC_FORCE_CONNECTION  1
lResult=(InternetCheckConnection("[URL unfurl="true"]http://smtp.DIRECWAY.COM",[/URL] FLAG_ICC_FORCE_CONNECTION, 0)=1)

  If .Not. lResult
    Wait Window [no internet connection - CANNOT SEND EMAIL]
    RETURN
  Else
    *DO NOTHING - CONTINUE SENDING EMAIL
  Endif

Thanks,
wjwjr

 

[bborissov]

That works for me:

 *TEST FOR INTERNET CONNCETION
Declare Integer InternetCheckConnection In wininet;
    STRING lpszUrl, Integer dwFlags, Integer dwReserved

 #Define FLAG_ICC_FORCE_CONNECTION  1
lResult=(InternetCheckConnection("[URL unfurl="true"]http://www.google.com",[/URL] FLAG_ICC_FORCE_CONNECTION, 0)=1)

  If .Not. lResult
    Wait Window [no internet connection - CANNOT SEND EMAIL]
    RETURN
  Else
    *DO NOTHING - CONTINUE SENDING EMAIL
    ? [WE HAVE CONNECTION]
  Endif

Borislav Borissov
VFP9 SP1, SQL Server 2000/2005.
MVP VFP

 

[white605]

Wonder if the IE security on server messes with it?