Foxtable(狐表)用户栏目专家坐堂 → 自己编写的库,如何使用FoxTable的自动更新?


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

主题:自己编写的库,如何使用FoxTable的自动更新?

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


加好友 发短信
等级:幼狐 帖子:99 积分:1700 威望:0 精华:0 注册:2017/3/30 14:00:00
自己编写的库,如何使用FoxTable的自动更新?  发帖心情 Post By:2019/4/14 15:44:00 [只看该作者]

程序做的是web的自动更新 , 自己编写的dll发现有问题  ,  如何需要更新

我改了update.txt 里面第二个时间  ,  发现每次打开都会更新

应该怎么更新自己的dll呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/14 16:50:00 [只看该作者]

方法一:直接拷贝过去,如

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116384&skin=0

 

方法二:自己比较update.txt的日期值,然后做自己需要的操作

 

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
    Dim ud() As String = FileSys.ReadAllText("d:\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 '如果服务器程序发布日期大于客户端发布日期(大升级)
        '升级代码
    ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
        '升级代码
    End If
catch ex As exception
    msgbox("下载失败")
End try

[此贴子已经被作者于2019/4/14 16:50:32编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
jeeter
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:99 积分:1700 威望:0 精华:0 注册:2017/3/30 14:00:00
  发帖心情 Post By:2019/4/14 18:39:00 [只看该作者]

嗯,谢谢 , 我目前采用的方法和第二种类似 , 好像也 只能这么处理 , 要不就得自己写一个独立的更新程序了

 回到顶部