如何在程序启动时检测网络连接?(50分)

  • 主题发起人 主题发起人 jnbyte
  • 开始时间 开始时间
J

jnbyte

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在程序启动时检测网络连接?
 
Delphi+Linux+informix
工作站端用delphi开发,在程序程序启动时需要判断是否和后台informix数据库连接,
然后才开始数据处理。请高手帮助。
 
设一个超时啊
 
老兄!你能不能给我一个详细的代码,先谢啦!

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2025776
 
uses WinInet;
//函数定义
function GetOnlineStatus : Boolean;
var ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;


--------------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
if not GetOnlineStatus then ShowMessage('计算机没有连接网络!')
else
ShowMessage(' 计算机处于网络状态!');
end;
 
后退
顶部