网络高手~~~(如何实时监测网络连接状态??)

尘竹 2003-03-25 04:45:43
求助:
我用InternetGetConnectedState(,)
和getsystemmetrics(SM_NETWORK)AND $0001 =$0001 不能时实得到网络连接状态;
由那位大虾给以指点,谢谢了。
(就是不能象网络连接图表指示的一样来显示网络连接状态)

只要初始未在连接状态,断开后还是未连接状态~~~~
...全文
174 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
尘竹 2003-03-26
  • 打赏
  • 举报
回复
我自己用了个如下方法也可判断连接状态:
procedure TForm1.Button3Click(Sender: TObject);
var
wsdata:TWSAData ;
name,ss:string ;
Host:pHostent ;
sIP:Pchar ;
begin
WSAStartup ($0101, wsdata);
gethostname(Pchar(Name),Sizeof(Name));
Host:= GetHostByName(Pchar(Name));
sIP:=Host^.h_addr_list(in_addr inet_ntoa
ss:=Format('%d.%d.%d.%d',[Byte(sIp[0]),Byte(sIp[1]),Byte(sIp[2]),Byte(sIp[3])]) ;
Edit3.text:=ss ;
WSACleanUP ;
end;
Thankx ,naughtyboy(一切都是为了明天)

结贴了
naughtyboy 2003-03-25
  • 打赏
  • 举报
回复

function IsOnline(const Url: String):Boolean;
var
ConnectState,StateSize:DWORD;
begin
Result:=False;
if not InternetCheckConnection(pchar(Url),1,0) then
Exit;
ConnectState:=0;
StateSize:=SizeOf(ConnectState);
if InternetQueryOption(nil,INTERNET_OPTION_CONNECTED_STATE,@ConnectState,StateSize) then
if (ConnectState and INTERNET_STATE_DISCONNECTED)<>2 then
Result:=True;
end;

你找一个比较稳定的url去验证,比如说www.163.com等
yhtang 2003-03-25
  • 打赏
  • 举报
回复

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧