项目定义了在线升级地址怎么实现先判断在线升级地址是否可以正常使用在进行系统升级，升级完后自动重新启动系统！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 项目定义了在线升级地址怎么实现先判断在线升级地址是否可以正常使用在进行系统升级，升级完后自动重新启动系统！

共有5244人关注过本帖树形打印复制链接主题：项目定义了在线升级地址怎么实现先判断在线升级地址是否可以正常使用在进行系统升级，升级完后自动重新启动系统！

cnsjroom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

项目定义了在线升级地址怎么实现先判断在线升级地址是否可以正常使用在进行系统升级，升级完后自动重新启动系统！ 发帖心情

Post By：2022/5/11 9:56:00 [只看该作者]

项目定义了在线升级地址怎么实现先判断在线升级地址是否可以正常使用在进行系统升级，升级完后自动重新启动系统！

当服务器关闭的时候会提示如下：

.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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111418 积分：567166 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/11 10:35:00 [只看该作者]

Dim ipFile As String = ProjectPath & "\Attachments\ip.txt"

dim up as boolean
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
If TryConnectHost(ip) = True Then

up = Syscmd.Project.Update(False,False)
End If
End If

If up = False Then '如果没有升级
            MainTable=Tables("表a")
            TableCaptionVisible = False
            Forms("会议系统").open
        End If

没有办法自动重新启动，也不建议自己写代码重启

cnsjroom

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）Dim ipFile As String = ProjectPath... 发帖心情

Post By：2022/5/11 11:16:00 [只看该作者]

提示：

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：在线升级失败！
详细错误信息：
远程服务器返回错误: (400) 错误的请求。

ip.text文件内容：192.168.3.239

cmd运行结果：

Microsoft Windows [版本 10.0.19041.1]
(c) 2019 Microsoft Corporation。保留所有权利。

C:\Users\Administrator>ping 192.168.3.239

正在 Ping 192.168.3.239 具有 32 字节的数据:
来自 192.168.3.239 的回复: 字节=32 时间<1ms TTL=64
来自 192.168.3.239 的回复: 字节=32 时间<1ms TTL=64
来自 192.168.3.239 的回复: 字节=32 时间<1ms TTL=64
来自 192.168.3.239 的回复: 字节=32 时间<1ms TTL=64

192.168.3.239 的 Ping 统计信息:
数据包: 已发送 = 4，已接收 = 4，丢失 = 0 (0% 丢失)，
往返行程的估计时间(以毫秒为单位):
最短 = 0ms，最长 = 0ms，平均 = 0ms

C:\Users\Administrator>ping http://192.168.3.239:8088
Ping 请求找不到主机 http://192.168.3.239:8088。请检查该名称，然后重试。