项目定义了在线升级地址 怎么实现先判断在线升级地址是否可以正常使用 在进行系统升级,升级完后自动重新启动系统!
当服务器关闭的时候会提示如下:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:在线升级失败!
详细错误信息:
无法连接到远程服务器
由于连接方在一段时间后没有正确答复或连接的主机没有反应,连接尝试失败。 192.168.110.235:8088
有没有办法 用代码判断呢?
当在线升级地址无法链接的时候就不升级 反之就升级
当前在项目启动完后的代码如下:没有达到预期
Dim ipFile As String = ProjectPath & "\Attachments\ip.txt"
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
If TryConnectHost(ip) = True Then
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
MainTable=Tables("表a")
TableCaptionVisible = False
Forms("会议系统").open
Else '如果升级成功
Syscmd.Project.Open(ProjectFile)
End If
End If
End If