- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 下载update.txt卡住 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160944)
-- 发布时间：2021/2/27 10:30:00
-- 下载update.txt卡住
个别电脑客户端登录时下载更新文件正常，更新完之后下载update.txt进行版本对比的时候就卡住了，防火墙杀毒软件都关闭，这是什么情况？别的电脑都没有这个问题。
此主题相关图片如下：113.png
-- 发布时间：2021/2/27 10:53:00
--
自己写代码下载文件的？使用了什么代码？
改一下上面第一个文件夹名称，去掉空格试试
-- 发布时间：2021/6/16 11:46:00
--
之前的问题还是没有解决，大多数电脑都可以正常下载，少数电脑卡死在下载界面。
代码是放在登录窗口确认按钮里的。
Network.DownloadFile("ftp://XX.XX.XX.XX/update/Management/Update/update.txt", "D:\\update.txt" ,"XX" ,"XX" ,True, 100000, True)
Dim str As String = publishdate
Dim strs As String = FileSys.ReadAllText("D:\\update.txt" )
Dim index As Integer = str.lastindexof(":")
Dim s As String = str.remove(Index)
Dim index1 As Integer = strs.lastindexof("|")
Dim s1 As String = strs.remove(Index1)
If s1 <> s
messagebox.show("检测到目前程序版本不是最新版本,请升级后再试!")
Syscmd.Project.Exit()
End If
[此贴子已经被作者于2021/6/16 11:46:22编辑过]
-- 发布时间：2021/6/16 11:53:00
--
把地址、用户名和密码发给客服测试一下
-- 发布时间：2021/6/16 12:11:00
--
Dim ftp1 As new ftpclient
ftp1.host="xx.xx.xx.xx"
ftp1.Account = "xxx"
ftp1.password = "xxx"
If ftp1.Download("\\update\\Management\\Update\\update.txt","D:\\update.txt") = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
这么写就可以正常下载
-- 发布时间：2021/6/16 13:38:00
--
可能Network.DownloadFile的问题，不过我在客户端测试Network.DownloadFile阿里云服务器ftp的update.txt却没有问题。
最好是提供地址给客服那边测试一下，看能不能找到原因