Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想问下，狐表自带的系统升级功能，那个触发Update1.zip下载是通过什么底层方法？


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

主题：我想问下，狐表自带的系统升级功能，那个触发Update1.zip下载是通过什么底层方法？
帅哥哟，离线，有人找我吗？
chen37280600
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		我想问下，狐表自带的系统升级功能，那个触发Update1.zip下载是通过什么底层方法？  发帖心情 Post By：2022/4/2 17:21:00 [只看该作者]

我想问下，狐表自带的系统升级功能，那个触发Update1.zip下载是通过什么底层方法？
我在网络严格的国企服务器里，部署了一个Nginx网站，开通好tcp端口，可以通过浏览器访问update.txt，可以下载update1.zip

用狐表检查升级，WebRequest请求可以打开update.txt
但是Syscmd.Project.Update()是没效果，没看到下载update1.zip或者update2.zip的进度条

我在感觉Syscmd.Project.Update()并不是通过Http协议去访问下载的，但也绝对不是FTP。难道是狐表自己写原生的socket协议？

想问下有人重写过自己的升级方法的代码吗？分享下帖子

====================================================

以下是我用的升级代码，这些代码在普通阿里云服务器都正常，已经用过60多个项目了
'联网检测更新---
If User.Type <> UserTypeEnum.Developer Then'根据是否开发者,再检查升级
    Try
        Dim req = System.Net.WebRequest.Create(PublicUpdatePath & "/update.txt") 'PublicUpdatePath是自己定义的升级网址
        Dim pos = req.GetResponse
        Dim stm As System.IO.Stream = pos.GetResponseStream()
        Dim reader As New System.IO.StreamReader(stm)
        Dim str As String = reader.ReadToEnd
        pos.Close
        stm.Close
        reader.close
        
        Dim ary() As String = str.split("|")
        Dim d As Date = ary(0)
        Dim dv As Date = ary(1)
        If PublishDate < d Then
            If MessageBox.show("发现新版本{" & d & "},是否升级?","在线升级提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                '备份一下Config文件夹--
                Dim now As String = Format(Date.now, "yyyyMMddHHmmss")
                If FileSys.DirectoryExists(ProjectPath & "Config") Then
                    FileSys.CopyDirectory (ProjectPath & "Config",ProjectPath & "Config备份_" & now, True)
                End If
                '备份一下Config文件夹--
                
                If dv > ApplicationVertion Then
                    MessageBox.show("本次升级内容较多,请耐心等待" & vbcrlf & vbcrlf & "升级后需要【手动启动软件】!","升级重要提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
                End If
                If Syscmd.Project.Update(False,False) =True Then
                    If dv <= ApplicationVertion Then '小版本更新,可以用自动重启,大版本绝对不能用,会无限升级!
                        Application.ReStart  '升级成功后重启项目
                    End If
                End If
                Return ""
            Else
                MessageBox.show("旧版程序运行过程中,可能会有报错,请尽快升级","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            End If
        Else '无需升级,正常启动
            '继续执行Try组合后的代码
        End If
    Catch ex As exception
        'MessageBox.Show("联网检测更新失败,将以当前版本运行")
    End Try
End If
'联网检测更新---
[此贴子已经被作者于2022/4/2 17:21:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
chen37280600
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2022/4/6 9:22:00 [只看该作者]

顶一下这个问题，遇到麻烦

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


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

已反馈

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


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/6 10:57:00 [只看该作者]

升级用的其实是这里的功能：http://www.foxtable.com/webhelp/topics/1402.htm，开发人员说其实也是使用的.net的那套东西，并没有自己写socket。

我使用DownloadFile测试了一下，
Network.DownloadFile("http://aaa.bbb.com/update/update.txt", "c:\update.txt")
下载update.txt返回这样的内容
<html>
<head><title>301 Moved Permanently</title></head>
<body>
<center><h1>301 Moved Permanently</h1></center>
<hr><center>nginx/1.21.6</center>
</body>
</html>

应该是nginx里做了转发到https导致的。网上查了一下，需要直接使用https，DownloadFile默认情况下使用https会出错，这样用就正常了
Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11 
Network.DownloadFile("https://aaa.bbb.com/update/update.txt", "c:\update.txt")

于是测试了一下升级这样用：
Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls11 
Syscmd.Project.Update()

结果可以正常升级，楼主试试
 回到顶部
帅哥哟，离线，有人找我吗？
chen37280600
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2022/4/21 11:24:00 [只看该作者]

oh~我发现啥问题了，自己的错，用了新的升级路径变量，却忘了覆盖给狐表的升级方法里。补上下面红色这句，不是https的问题，谢谢官方的关心



'联网检测更新---
If User.Type <> UserTypeEnum.Developer Then'根据是否开发者,再检查升级
    Try
        Dim req = System.Net.WebRequest.Create(PublicUpdatePath & "/update.txt")
        Dim pos = req.GetResponse
        Dim stm As System.IO.Stream = pos.GetResponseStream()
        Dim reader As New System.IO.StreamReader(stm)
        Dim str As String = reader.ReadToEnd
        pos.Close
        stm.Close
        reader.close
        
        Dim ary() As String = str.split("|")
        Dim d As Date = ary(0)
        Dim dv As Date = ary(1)
        If PublishDate < d Then
            If MessageBox.show("发现新版本{" & d & "},是否升级?","在线升级提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                '备份一下Config文件夹--
                Dim now As String = Format(Date.now, "yyyyMMddHHmmss")
                If FileSys.DirectoryExists(ProjectPath & "Config") Then
                    FileSys.CopyDirectory (ProjectPath & "Config",ProjectPath & "Config备份_" & now, True)
                End If
                '备份一下Config文件夹--
                
                If dv > ApplicationVertion Then
                    MessageBox.show("本次升级内容较多,请耐心等待" & vbcrlf & vbcrlf & "升级后需要【手动启动软件】!","升级重要提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
                End If
                UpdatePath = PublicUpdatePath '把自己定义的升级路径变量,覆盖给狐表的升级路径变量,才能开始做升级处理
                If Syscmd.Project.Update(False,False) =True Then
                    If dv <= ApplicationVertion Then '小版本更新,可以用自动重启,大版本绝对不能用,会无限升级!
                        Application.ReStart  '升级成功后重启项目
                    End If
                End If
                Return ""
            Else
                MessageBox.show("旧版程序运行过程中,可能会有报错,请尽快升级","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            End If
        Else '无需升级,正常启动
            '继续执行Try组合后的代码
        End If
    Catch ex As exception
        'MessageBox.Show("联网检测更新失败,将以当前版本运行")
    End Try
End If
'联网检测更新---
 回到顶部
帅哥哟，离线，有人找我吗？
肥肥记
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：361 积分：3027 威望：0 精华：0 注册：2016/9/15 11:50:00 		  发帖心情 Post By：2022/9/5 22:55:00 [只看该作者]

'小版本更新,可以用自动重启,大版本绝对不能用,会无限升级!。。。。。。。。。。。总算明白了，大升级会替换 入口程序 导致升级失败 而后无限升级

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 4 次数据查询