以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]网页可以打开ftp,可以看见内容,但是升级失败  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119511)

--  作者:81538475
--  发布时间:2018/5/26 1:29:00
--  [求助]网页可以打开ftp,可以看见内容,但是升级失败
网页可以打开ftp,可以看见内容,但是升级失败
按照这个设置的。http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1
foxtable里面提示

图片点击可在新窗口打开查看此主题相关图片如下:2018_05_26_01_31.31.bmp
图片点击可在新窗口打开查看


用这个代码测试可以下载
Network.DownloadFile("ftp://h…:……b@3*.1**.**.59/update/update1.zip", "d:\\a.zip", "", "", True, 10000, True)



升级代码是这个
try
    UpdatePath ="ftp://h**:6******@3**.**.***.*/update"
    Network.DownloadFile(updatePath & "update.txt", projectPath & "temp/update.txt" ,"" ,"" ,True, 100000, True) \'下载update.txt文件
    Dim ud() As String = FileSys.ReadAllText(projectPath & "temp/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
        msgbox("大版本")
        Network.DownloadFile(updatePath & "update2.zip", projectPath & "temp/update2.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = projectPath & "temp/"
        Syscmd.Project.Update(False,False)
    ElseIf Sdate1 > Cdate1 Then
        msgbox("小版本")
        Network.DownloadFile(updatePath & "update1.zip", projectPath & "temp/update1.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = projectPath & "temp/"
        Syscmd.Project.Update(False,False)
    End If
    
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try

[此贴子已经被作者于2018/5/26 1:42:45编辑过]

--  作者:有点蓝
--  发布时间:2018/5/26 9:06:00
--  
项目属性里设置的升级地址是不是:ftp://h…:……b@3*.1**.**.59/update/

升级代码是放在afteropenproject吗?

--  作者:81538475
--  发布时间:2018/5/26 10:49:00
--  
项目属性是这个,代码放在aferteropenproject里面,替代之前的系统升级代码。
--  作者:有点蓝
--  发布时间:2018/5/26 10:58:00
--  
单独运行这两句有没有问题?

Network.DownloadFile(updatePath & "update2.zip", projectPath & "temp/update2.zip" ,"" ,"" ,True, 100000, True)

Network.DownloadFile(updatePath & "update1.zip", projectPath & "temp/update1.zip" ,"" ,"" ,True, 100000, True)

--  作者:81538475
--  发布时间:2018/5/26 11:22:00
--  
哦,好像是在代码里面的路径少了一个/导致合成路径又问题。 另外想问下,大版本号是不是只能发不完了以后手动修改txt文件。有没有办法发布的之后就是正确的呢
[此贴子已经被作者于2018/5/26 11:24:38编辑过]

--  作者:有点蓝
--  发布时间:2018/5/26 11:43:00
--  
以下是引用81538475在2018/5/26 11:22:00的发言:
大版本号是不是只能发不完了以后手动修改txt文件。有没有办法发布的之后就是正确的呢

没看懂这句话的意思!再说明一下
--  作者:81538475
--  发布时间:2018/5/26 12:15:00
--  
发布版本之后,update.TXT的 后面的日期总是3月9日,这个日期,在foxtable里面如何修改,让他发布的版本中update.txt的日期是上次发布的日期呢
2018-05-26 00:51:00|2018-3-9  就是后面这个日期,在foxtable中在哪里设置
[此贴子已经被作者于2018/5/26 12:27:25编辑过]

--  作者:有点蓝
--  发布时间:2018/5/26 14:15:00
--  
这个日期无法设置,是Foxtable本身的版本号。Foxtable有更新,才会更新大版本

只能手工更改update.TXT

--  作者:81538475
--  发布时间:2018/5/26 14:46:00
--  
哦,不管我加入文件还是修改代码,都属于小版本更新是吧
--  作者:有点蓝
--  发布时间:2018/5/26 15:14:00
--  
是的。只要Foxtable没有更新,正常都属于小版本更新