- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]配置远程自动升级，检查不到升级文件启动特慢 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150924)
-- 发布时间：2020/6/11 9:49:00
-- [求助]配置远程自动升级，检查不到升级文件启动特慢
老师我在“AfterOpenProject”加入以下代码：
If TryConnectHost("www.ts1978.com") Then \'判断服务器的地址是否可以解析
If Network.Ping("www.ts1978.com") Then \'判断指定的地址服务器是否可以连通
Syscmd.Project.Update(False,True)\'如果有可用升级提醒用户进行升级
End If
Else
End If
测试时故意在升级服务器上没有放置“升级包”文件。（假设服务器上文件丢失等极端事情发生）
启动系统时完全没有反应：
此主题相关图片如下：微信图片_20200611094811.png
等大概5分钟左右，弹出如下“升级失败”窗口，关闭此窗口，系统正常启动。
此主题相关图片如下：微信图片_20200611094941.png
如何修改一下代码？如果找不到升级文件，就直接启动系统。
[此贴子已经被作者于2020/6/11 9:52:00编辑过]
-- 发布时间：2020/6/11 9:55:00
--
ftp升级？还是http升级？
-- 发布时间：2020/6/11 10:05:00
-- 回复：（有点蓝）ftp升级？还是http升级？
http升级
-- 发布时间：2020/6/11 10:13:00
--
使用HttpClient判断文件是否存在
Dim htc As new HttpClient("http://www.foxtable.com/bbs/images/foxtable666.gif")
Dim s As String = htc.GetData(True)
Output.Show(s)
If s > "" Then
msgbox("有文件")
Else
msgbox("无文件")
End If
-- 发布时间：2020/6/11 10:25:00
-- 回复：（有点蓝）使用HttpClient判断文件是否存在Dim ...
知道了，蓝老师。
执行了以上代码，系统还是卡死了。
[此贴子已经被作者于2020/6/11 10:27:03编辑过]
-- 发布时间：2020/6/11 10:28:00
--
AfterOpenProject事件完整代码发上来看看
-- 发布时间：2020/6/11 10:31:00
-- 回复：（有点蓝）AfterOpenProject事件完整代码发上来...
命令窗口执行以下代码，卡死：
Dim htc As new HttpClient("http://www.ts1978.com/Update/update.txt")
Dim s As String = htc.GetData(True)
Output.Show(s)
-- 发布时间：2020/6/11 10:52:00
--
估计是这个原因导致的，
此主题相关图片如下：1.png
其它网站我测试都很快，比如
Dim htc As new HttpClient("http://www.baidu.com/Update/update.txt")
Dim s As String = htc.GetData(True)
Output.Show(s)
-- 发布时间：2020/6/11 10:55:00
-- 回复：（有点蓝）估计是这个原因导致的，[upload=png,...
原来如此，知道了。我以为只要不通，就会立马返回值。
[此贴子已经被作者于2020/6/11 12:01:08编辑过]
-- 发布时间：2020/6/11 12:01:00
-- 回复：（有点蓝）估计是这个原因导致的，[upload=png,...
Dim htc As new HttpClient("http://www.baidu.com/Update/update.txt")
Dim s As String = htc.GetData(True)
执行了以上判断，下面的判断是否就没有必要了？
TryConnectHost("www.ts1978.com") Then \'判断服务器的地址是否可以解析
Network.Ping("www.ts1978.com") Then \'判断指定的地址服务器是否可以连通
Network.Ping("www.ts1978.com") Then \'判断指定的地址服务器是否可以连通