- 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=126049)
-- 发布时间：2018/10/12 17:40:00
-- [求助]请问如何获取网页上图片的文件大小？
请问如何获取网页上图片的文件大小（即图片文件的容量）？
-- 发布时间：2018/10/12 17:47:00
--
下载下来才知道
Dim hc As New HttpClient("http://www.foxtable.com/lib/images/bottomlogo.gif")
If hc.GetFile("d:\\123.jpg") Then
MessageBox.show("文件下载成功","提示")
Dim f As new FileInfo("d:\\123.jpg")
msgbox(f.Length)
Else
MessageBox.show("文件下载失败","提示")
End If
-- 发布时间：2018/10/12 18:11:00
--
Network.DownloadFile(
"https://www.baidu.com/img/bd_logo1.png", "c:\\1.png ,"" ,"" ,false, 100000, false)
不覆盖会报错
-- 发布时间：2018/10/12 18:14:00
--
用2楼，或者改成下面
Network.DownloadFile("https://www.baidu.com/img/bd_logo1.png", "c:\\1.png" ,"" ,"" ,false, 100000, true)
-- 发布时间：2018/10/12 20:27:00
--
这样可以，但这样就会如果下载的图片已存在时，就会无视继续下载，我是想如果存在就不下载，这样可以减少下载时间
-- 发布时间：2018/10/12 20:31:00
--
先判断再下载：http://www.foxtable.com/webhelp/scr/0337.htm
-- 发布时间：2018/10/14 20:37:00
--
如果要下载的图片不存在时，如何不弹出 系统那个错误提示，直接弹出提示“下载失败”的提示呢？
此主题相关图片如下：qq图片20181014203510.png
-- 发布时间：2018/10/14 20:48:00
--
我这样测试没问题
Dim hc As New HttpClient("http://www.foxtable.com/lib/images/bottomlogo.gif")
If hc.GetFile("d:\\123.jpg") Then
MessageBox.show("文件下载成功","提示")
Dim f As new FileInfo("d:\\123.jpg")
msgbox(f.Length)
Else
MessageBox.show("文件下载失败","提示")
End If
-- 发布时间：2018/10/14 20:55:00
--
捕捉报错，参考
Dim image_address As String = "http://www.foxtable.com/lib/images/bottomlogo1.gif"
try
Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)
Dim res As system.net.WebResponse= wr.GetResponse
Dim bmp As New Bitmap(res.GetResponseStream)
bmp.save("d:\\333.jpg")
msgbox("ok")
catch ex As exception
msgbox(ex.message)
msgbox("abc")
End try
-- 发布时间：2018/10/14 21:25:00
--
下面代码无法捕获，应该怎么改呢？
Dim hc As New HttpClient("http://www.foxtable.com/lib/images/bottomlogo1.gif")
try
If hc.GetFile("d:\\123.jpg") Then
MessageBox.show("文件下载成功","提示")
Else
MessageBox.show("文件下载失败","提示")
End If
catch ex As exception
MessageBox.show("文件下载失败2","提示")
End try