Foxtable(狐表)用户栏目专家坐堂 → 关于在线升级的判断


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

主题:关于在线升级的判断

帅哥哟,离线,有人找我吗?
zhsenchzhi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:423 积分:3196 威望:0 精华:0 注册:2013/5/10 10:01:00
关于在线升级的判断  发帖心情 Post By:2016/10/27 23:06:00 [只看该作者]

在一个项目中,设置了通过互联网升级,在线升级路径也设置成功,但是由于某种原因,在线升级路径和文件不可访问了,导致在线升级出现错误,

现在想做一个判断,如果在线升级路径和文件存在,则进行升级,如果不存在,则不升级,请问,该怎样判断,才能最优,也就是效率最高

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110553 积分:562655 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/27 23:16:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zhsenchzhi
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:423 积分:3196 威望:0 精华:0 注册:2013/5/10 10:01:00
  发帖心情 Post By:2016/10/28 9:31:00 [只看该作者]

请问   TryConnectHost("www.egridsoft.com")  这样的用法,是否适用文件的判断? 比如   TryConnectHost("http:\\www.egridsoft.com\aaa\aaa.txt")   或者  TryConnectHost("http:\\www.egridsoft.com\aaa\aaa.htm")

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110553 积分:562655 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/28 9:56:00 [只看该作者]

不能的

可以用DownloadFile试着下载这个文件,执行完毕后看下载目录是否有这个文件
try
    Network.DownloadFile("http://wechat.foxtable.com/FoxWeChat/kk.txt", "f:\kk.txt")
catch ex As Exception
    msgbox("没有文件")
End try

http://www.foxtable.com/webhelp/scr/1402.htm

 回到顶部
帅哥哟,离线,有人找我吗?
zhsenchzhi
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:423 积分:3196 威望:0 精华:0 注册:2013/5/10 10:01:00
  发帖心情 Post By:2016/10/29 17:17:00 [只看该作者]

目前 放置升级程序的网站有问题,客户在使用程序时,每次启动时总是报错,做以下代码测试,仍然报错

try
     Syscmd.Project.Update(False,True)
catch ex As Exception
    MessageBox.Show("fafdfdfdsfff")
End try

报错信息如下


图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

详细信息如下

图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看

我想请教的是, 如何  在执行  Syscmd.Project.Update(False,True)  时,不报以上的弹出窗口错误,执行执行  catch  里面  的代码?


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110553 积分:562655 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/29 17:28:00 [只看该作者]

try
    Network.DownloadFile("http://www.xxxx.com/Update/update.txt", "f:\
update
.txt")
catch ex As Exception
    msgbox("没有文件")
return
End try
Syscmd.Project.Update(False,True)

或者自己下载文件进行升级

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=90233
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82266&replyID=572809&skin=1

 回到顶部