Foxtable(狐表) → 用户栏目 → 专家坐堂 → 远程升级下载问题


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

主题：远程升级下载问题
帅哥哟，离线，有人找我吗？
happyft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		远程升级下载问题  发帖心情 Post By：2015/10/14 22:07:00 [显示全部帖子]



图片点击可在新窗口打开查看此主题相关图片如下：360截图20151014220449423.jpg
图片点击可在新窗口打开查看

如上图，远程升级时总是停在那个界面不动，ftp地址测试过都是没有问题的，请问是什么原因？
谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/14 22:44:00 [显示全部帖子]

用下面的可以下载到指定目录下
Network.DownloadFile("ftp://ftp_XXX:ftp-XXX@XXXXXXXX/Update/Update1.zip","D:\data\Update1.zip")


但用下面的就在弹出“正在下载----” 那个对话框就一直停在那里了
Network.DownloadFile("ftp://ftp_XXX:ftp-XXX@XXXXXXXX/Update/Update1.zip","D:\data\Update1.zip","" ,"" ,True, 100000, True)

这是为什么叱？
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/14 22:53:00 [显示全部帖子]

Syscmd.Project.Update(False,True) 
那这句代码要怎么写才不会出现这个问题叱？
还有就是白天在公司内部的局域网中又可以自动升级，（ftp地址是自动切换为内部局域网的IP地址的）。
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/14 23:00:00 [显示全部帖子]

4楼将true改为false的可以，但是我自动升级那里就是用
Syscmd.Project.Update(False,True)，要怎么改才能自动下载升级完成后又可以重新打开项目呢 ？
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/15 8:47:00 [显示全部帖子]

但是同样的代码，在局域网内升级就可以，不管怎么说，请反馈一下本月要发布的更新能否修改一下呢？谢谢！

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


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/15 12:03:00 [显示全部帖子]

我是不太理解，在局域网内部就可以正常下载升级，我的ftp服务器地址是在打开项目时根据内外网自动生成不同的，比如外网是固定IP如：218.207.21.66,内网就是192.168.1.162这样的，其他的帐户和密码，ftp端口号都的相同。现在只是外网使用时升级就不行。

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


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/19 22:09:00 [显示全部帖子]

改用Serv-U重新搭建ftp仍然是相同的问题。后来只好改用老师说的方法，在afteropenproject中更改了下面的代码

If ftp.Download("\Update\Update.Txt","D:\UpdateTemporary\Update.Txt") = True Then '如果下载升级日期文件成功
    Dim ud() As String = FileSys.ReadAllText("D:\UpdateTemporary\Update.Txt").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 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
        If ftp.Download("\Update\Update2.Zip","D:\UpdateTemporary\Update2.Zip") = True Then '如果下载程序文件成功
            UpdatePath = "D:\UpdateTemporary"
            If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户
                Return '升级完成后必须先中止后面的代码,否则会出错
            End If
        End If
    ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
        If ftp.Download("\Update\Update1.Zip","D:\UpdateTemporary\Update1.Zip") = True Then '如果下载程序文件成功
            UpdatePath = "D:\UpdateTemporary"
            If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户
                Return '升级完成后必须先中止后面的代码,否则会出错
            End If
        End If
    End If
End If

上面的代码如果是非foxtable的小版本升级均正常提示升级，但我故意将update文本中的第二个日期改为2014-12-11，大于原来的程序版本2014-11-11，运行结果就是会下载update2.zip文件，却不会提示是否要升级，结果在原来安装的程序目录下多了一个“update_Fox_Path”目录，里面存放着解压的update2.zip文件的所有内容，这是怎么回事？如果真的有foxtable的程序版本升级时要怎么处理才正确？
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/19 22:40:00 [显示全部帖子]

但在原来的安装目录确实已经存在了update-Fox_Path,只是不能提示是否要升级。


图片点击可在新窗口打开查看此主题相关图片如下：360截图20151019222912875.jpg
图片点击可在新窗口打开查看

你是指我现在的开发版本是2014-11-11的，我人为把那个版本的升级日期改为2014-12-11没有用的，foxtable真正升级了程序版本时就可以自动升级了是吗？
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/28 18:35:00 [显示全部帖子]

今天安装了2016测试版本的发布了新的更新包，结果升级过程都提示正确，但是却没有覆盖安装目录下的原文件，是哪里的问题？

If ftp.Connect Then '如果FTP没有连接,用备用域名连接
    If ftp.Download("\Update\Update.Txt","D:\UpdateTemporary\Update.Txt") = True Then '如果下载升级日期文件成功
        Dim ud() As String = FileSys.ReadAllText("D:\UpdateTemporary\Update.Txt").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 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
            If ftp.Download("\Update\Update2.Zip","D:\UpdateTemporary\Update2.Zip") = True Then '如果下载程序文件成功
                UpdatePath = "D:\UpdateTemporary"
                If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户
                    Return '升级完成后必须先中止后面的代码,否则会出错
                End If
            End If
        ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
            If ftp.Download("\Update\Update1.Zip","D:\UpdateTemporary\Update1.Zip") = True Then '如果下载程序文件成功
                UpdatePath = "D:\UpdateTemporary"
                If Syscmd.Project.Update(False,True) = True Then '发现新版本时提示用户
                    Return '升级完成后必须先中止后面的代码,否则会出错
                End If
            End If
        End If
    End If
End If

大升级不能自动替换掉原来安装目录下的文件，而是在本地的更新目录下新增了一个文件夹update_Fox_Path，应该要用这个目录下的文件自动覆盖原来的文件才正确。是什么原因？

图片点击可在新窗口打开查看此主题相关图片如下：360截图20151028182719405.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2015/10/28 20:11:00 [显示全部帖子]

没有啊，24楼下面那个截图就是发布后的项目的安装目录更新过后的状况，所以导致每次打开时都提示更新，更新完成却没有覆盖。

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