Foxtable(狐表) → 用户栏目 → 专家坐堂 → 网络或ftp服务器不通时如何快速提示？（未解决）


  共有4039人关注过本帖树形打印复制链接

主题：网络或ftp服务器不通时如何快速提示？（未解决）
帅哥哟，离线，有人找我吗？
zpx_2012
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00 		网络或ftp服务器不通时如何快速提示？（未解决）  发帖心情 Post By：2014/6/5 19:26:00 [显示全部帖子]

为了实现打开项目时自动升级，用了如下代码：
'连接FTP服务器
Dim ftp As New FTPClient
ftp.Host = "x.x.213.82"
ftp.Account = "xxx"
ftp.Password = "jxxxx"
ftp.RootDir = "\Update" '设置目录路径.
If ftp.Connect Then '如果FTP连接成功
   。。。自动升级的代码
end  if
。。。继续打开项目

现在问题是如果ftp服务器连接不上，则要等很久至少十几二十秒才会继续执行后面的代码，有没有办法用时间控制，如果5秒连接不上就不升级，ftp就跳过自动执行后面的代码。

这个问题在打开项目时也同样会出现，如果数据源连接不上也要等很久才跳出错误框，能否5秒连接不上就提示网络不通，过会儿再联系，用帮肋中的TryConnectHost，NetworkAddressChanged，NetworkAvailabilityChanged
三个事件测试都无法达到这种效果，有没有其他办法？

谢谢！
[此贴子已经被作者于2014-6-7 10:51:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zpx_2012
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00 		  发帖心情 Post By：2014/6/5 19:47:00 [显示全部帖子]

谢谢，那打开项目连接数据源时怎么样才能设置呢，象3楼所述有的服务器是禁用ping的，有没有其他办法，这个问题因扰了好久。

 回到顶部
帅哥哟，离线，有人找我吗？
zpx_2012
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00 		  发帖心情 Post By：2014/6/5 20:00:00 [显示全部帖子]

好的，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
zpx_2012
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00 		  发帖心情 Post By：2014/6/7 9:28:00 [显示全部帖子]

按有点甜老师所述加了timeout,但ftp服务器不通时测试了下要等21秒才能继续，为什么不起作用？谢谢！

'连接FTP服务器
Dim ftp As New FTPClient
ftp.Host = "x.x.213.82"
ftp.Account = "xxx"
ftp.Password = "jxxxx"
ftp.TimeOut = 3000  '默认秒
ftp.RootDir = "\Update" '设置目录路径.
If ftp.Connect Then '如果FTP连接成功
   。。。自动升级的代码
end  if
。。。继续打开项目
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询