如何实时监测网络连接状态?(100分)

  • 主题发起人 主题发起人 guowzgyc
  • 开始时间 开始时间
G

guowzgyc

Unregistered / Unconfirmed
GUEST, unregistred user!
如IE任务条上的网络连接标志?
 
uses
wininet



var
flags:dword;
begin

if InternetGetConnectedState(@flags, 0) then
begin
trayicon.Hint :='Internet连接中';
end
else
begin
trayicon.Hint :='Internet未连接';
end;
end;
 
楼上,我要求的不只是Internet连接,而是网络连接,如我将网线拔下,网络中断的消息等
 
那你可以ping一个固定网址,这个控件很多的,ping不到了就断了:)
 
楼上,哪里有你说的控件?
 
上面两人都是我,我帮你找找看啊:)
 
谢谢,等待中
 
你的DELPHI版本是多少?
 
我用的D7,估计D6里也有,在INTERNET里有个TCPCLIENT控件

TcpClient1.RemoteHost := 'www.sina.com.cn';
TcpClient1.RemotePort := '80';
if TcpClient1.Connect then
showmessage('连接中')
else
showmessage('连接断开')
end;
 
一个监视网络流量的API函数 使用了 iphlpapi.dll
使用IphlpApi.dll中的函数GetIfTable来监视网络数据流量,全部用Delphi编写

http://61.132.118.185:8080/dispdocnew.php?id=4498
 
还有,最后要关闭连接
 
多人接受答案了。
 
后退
顶部