| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何在打开项目前判断是否有更新？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=187339) |
| -- 作者：xluoping -- 发布时间：2023/7/10 19:08:00 -- 如何在打开项目前判断是否有更新？ 打开项目后再判断更新，但如果表很多，生成表即使不加载数据也是很慢的？ 那么如何在打开项目前，生成表和加载数据前判断是否有更新？ 如有更新，那么直接自动升级。如何写代码？
|
| -- 作者：有点蓝 -- 发布时间：2023/7/10 20:33:00 -- 如果使用Foxtable自己的自动更新功能，没有办法在生成表和加载数据前进行升级。 判断倒是可以，在beforeopenproject写代码下载update.txt和当前版本进行比较即可。 |
| -- 作者：xluoping -- 发布时间：2023/7/10 20:52:00 -- 在beforeopenproject写代码下载update.txt 但是在 beforeopenproject如何获取当前版本信息？ 在 beforeopenproject 是无法获取：PublishDate 、ProjectPath？
|
| -- 作者：有点蓝 -- 发布时间：2023/7/10 21:32:00 -- 发布前把版本号写入数据库，或者一个配置文件比如文本文件中。通过查数据库，或者读配置文件的方式获取 |
| -- 作者：xluoping -- 发布时间：2023/7/11 13:19:00 -- 具体如何操作？ “”发布前把版本号写入数据库，或者一个配置文件比如文本文件中。通过查数据库，或者读配置文件的方式获取“” 这不就是updata.txt 的作用吗？
|
| -- 作者：有点蓝 -- 发布时间：2023/7/11 13:41:00 -- 也可以把updata.txt放一个到项目目录里，然后下载升级地址里的updata.txt获取版本号进行比对。大概 If FileSys.FileExists(projectpath & "update.txt") Then Dim s As string = FileSys.ReadAllText(projectpath & "update.txt") Network.DownloadFile("http://www.abc.com/download/update.txt", projectpath & "updatenew.txt") If FileSys.FileExists(projectpath & "updatenew.txt") Then Dim s2 As string = FileSys.ReadAllText(projectpath & "updatenew.txt") if s <> s2 then Messagebox.Show("需要升级！","提示") else Messagebox.Show("不需要升级！","提示") endif Else Messagebox.Show("不需要升级！","提示") End If Else
Messagebox.Show("不需要升级！","提示") End If |