Foxtable(狐表)用户栏目专家坐堂 → [求助]Network.DownloadFile有无下载结果判断?


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

主题:[求助]Network.DownloadFile有无下载结果判断?

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


加好友 发短信
等级:一尾狐 帖子:466 积分:3382 威望:0 精华:0 注册:2016/12/21 22:58:00
[求助]Network.DownloadFile有无下载结果判断?  发帖心情 Post By:2023/4/22 16:11:00 [只看该作者]

原贴
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39419&authorid=0&page=0&star=2#editform

狐狸爸爸在12楼处的回复

你那个图片有问题,dpi是1,其他图片是96,一定要正常显示的话,这样改代码:

 

If e.Col.Name = "第二列" Then
    If e.Row.IsNull("第一列") = False Then
        If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then
            Network.DownloadFile(e.Row("第一列"), ProjectPath  & e.Row("_Identify") & ".jpg", "", "", False, 6000, True)

            '发现如果HTTP网络服务器(第3方服务器,非自己的,所以无法判断文件是否存在)的文件不存在,即可能是已被删除,调用Network.DownloadFile 来下载时,就会出错,导致DrawCell无法执行,整个表显示出错。故在此处可有下载是否存在或下载成功与否的逻辑判断,以便跳过不存在的文件,继续执行,如不存在的话,就可以用如IF语句,让其显示为固定带_Identify的其它图片等?

        End If
        e.StartDraw
        Dim img As Image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")
        e.Graphics.DrawImage(img, e.x, e.y,e.Width,e.Height)
        e.EndDraw
    End If
End If




[此贴子已经被作者于2023/4/22 16:12:06编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/22 17:06:00 [只看该作者]

        If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then
            Network.DownloadFile(e.Row("第一列"), ProjectPath  & e.Row("_Identify") & ".jpg", "", "", False, 6000, True)

            If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then return ‘再判断一次文件是否存在

        End If


 回到顶部