极点博客 网络软件、编程技术博客

查询是否连接上网络

新建一个工程,主窗体命名为FrmCheckOnline,在窗体中添加 TAnimate,Tbutton和 TGroupBox 组件


自定一个函数测试连接状态




 



  1. function TFrmCheckOnline.CheckOffline: boolean;

  2. var

  3.   ConnectState: DWORD;

  4.   StateSize: DWORD;

  5. begin

  6.   ConnectState:= 0;

  7.   StateSize:= SizeOf(ConnectState);

  8.   InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize);

  9.   if (ConnectState and INTERNET_STATE_DISCONNECTED) =

  10.   INTERNET_STATE_DISCONNECTED then

  11.     result:= true

  12.   else

  13.     result:= false;

  14. end;

  15. procedure TFrmCheckOnline.BtnCheckClick(Sender: TObject);

  16. begin

  17.   ani.Visible:=true;

  18.   if CheckOffline then

  19.   begin

  20.     ani.Active:=false;

  21.     showmessage('没在线!');

  22.   end

  23.   else

  24.   begin

  25.     ani.Active:=true;

  26.     showmessage('在线!');

  27.   end;

  28. end;







 

标签: 网络技术

作者:xtpyeihc 分类:先前文章 浏览:84 评论:0
留言列表
发表评论
来宾的头像