- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]版本级升级包update2.zip下载后未释放 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140714)
-- 发布时间：2019/9/11 22:45:00
-- [求助]版本级升级包update2.zip下载后未释放
版本升级后，制作的升级包，在升级过程中，进度条显示即将结束时，弹出“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编辑过]
-- 发布时间：2019/9/12 9:25:00
--
应该是update2没有下载成功导致的，update2文件达到了53M之多，建议减减肥。Foxtable的下载不支持续传的功能，如果网络不稳定，或者其它原因导致下载失败就这样。