Foxtable(狐表)用户栏目专家坐堂 → [求助]版本级升级包update2.zip下载后未释放


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

主题:[求助]版本级升级包update2.zip下载后未释放

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


加好友 发短信
等级:五尾狐 帖子:1140 积分:11255 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]版本级升级包update2.zip下载后未释放  发帖心情 Post By:2019/9/11 22:45:00 [只看该作者]

版本升级后,制作的升级包,在升级过程中,进度条显示即将结束时,弹出“Central dir not found”。
经过几次测试,在弹出上述信息后,update2.zip的升级包实际上已经完整下载到project目录下,但是没有释放覆盖原目录。手动解压后,运行是正常的。
update1.zip升级中是正常的。杀软已关闭、winzip最新。
但是在测试到20次时,成功升级1次;卸载重装低版本,再升级又不行了。
这种情况怎样处理?


图片点击可在新窗口打开查看此主题相关图片如下:录制_2019_09_12_08_00_39_114.gif
图片点击可在新窗口打开查看
 
代码是:
try   
Network.DownloadFile("http://xxx.xx.2.32/update/update.txt", ProjectPath & "update.txt")
Dim str As String = FileSys.ReadAllText(ProjectPath & "update.txt")
Dim ud() As String = str.Split("|") '获取文件内容

Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
Dim Cdate1 As Date = PublishDate '客户端发布日期
Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期

If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
    PopMessage("有新版本,正在下载更新!请稍候......","提示", PopIconEnum.ok, 5)
    Syscmd.Project.Update(False,False)  '静默升级代码
End If
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try


[此贴子已经被作者于2019/9/12 8:33:41编辑过]

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


加好友 发短信
等级:超级版主 帖子:107744 积分:548059 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/12 9:25:00 [只看该作者]

应该是update2没有下载成功导致的,update2文件达到了53M之多,建议减减肥。Foxtable的下载不支持续传的功能,如果网络不稳定,或者其它原因导致下载失败就这样。

 回到顶部