程式使用了一些ado連接控制元件，及一個timer控制元件（每幾秒的間隔），正常情況開者并登陸內網程式的電腦，正常，但一旦局域網斷，或者電腦拔掉網線，程式就會不停跳出“連接失敗”的表單。太煩人，如何只條一次“連接失敗”的表單（或者干脆斷網后也不跳）？
uj5u.com熱心網友回復：
你可以檢測一下網路是否連接,如果不連接就把timer設定成falseuj5u.com熱心網友回復：
程式自己寫的，去掉個框不難吧……uj5u.com熱心網友回復：
能否給個例子，甚謝，本人愚笨，新手
uj5u.com熱心網友回復：
用Try陳述句。在Timer事件中加上Try，如果有例外，就將Timer設定成False。
uj5u.com熱心網友回復：
好像不行哦，代碼如下：if not Form1.ABC.Connected then
begin
Timer1.enabled:=false;
end
else
begin
Timer1.enabled:=true;
end;
或
if not adoquery1.active then
begin
Timer1.enabled:=false;
end
else
begin
Timer1.enabled:=true;
end;
好像不管用！！！！！！
uj5u.com熱心網友回復：
還是繼續跳“連接失敗”視窗。uj5u.com熱心網友回復：
一句話判斷網路是否聯通
uses WinInet;
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetGetConnectedState(nil, 0) then ShowMessage('已連接');
end;
uj5u.com熱心網友回復：
樓主注意結貼率，提高大家回答問題的積極性轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/110216.html
標籤：語言基礎/算法/系統設計