关于判断网络的问题请教？？？？？

Question

我最近在做一个POS前台，要求在网络断开和连接是都能干活，
如果网络连接，则连接后台的SQL2000库，如果断开，则读本地的DBASE表，
问题是我怎样在程序执行中判断网络是否连接着呢？？？
谢谢…………

Answer 1

你可以使用：
    InternetGetConnectedState函数来取得本机的连接状态，比如：
function GetInternetState();
var
  dwFlags:DWORD;
begin
  InternetGetConnectedState(@dwFlags,0);//dwFlags是该函数返回的结果
  //然后将dwFlags与INTERNET_LAN、INTERNET_CONNECTIONG_MODEM
  、INTERNET_CONNEDTION_PROXY、INTERNET_OFFLINE、
  INTERNET_CONNECTION_MODEM_BUSY分别进行“与’操作，如果结果为1，说明当前的连接状态为“与dwFlags进行与操作的常量的字面意思”。
end;

Answer 2

再说明一下：在你这儿，只要根据dwFlags与INTERNET_CONNECTION_OFFLINE
进行与操作后的结果就可判断出当前网络是否处于连接状态。

Answer 3

在connection的事件中有一个afterconnection
在那里判断就可以了.
查一下帮助就知道怎么用了.
我以前就是这样实现的.很简单.