求助各位大侠：图片控件里怎样调用网络图片？

夯歌炜 · 发表于 2017-2-12 10:58

我电脑上怎么没反应，加载不了图片

wyzc2005 · 发表于 2018-8-7 12:40

小fisher 发表于 2016-2-1 16:01
3楼代码已经修改好了（改动的部分用#####标出），主要是有些图片的ResponseHeader中不包含"Content-Length" ...

#####标记的位置在哪里？
高人！
可以保存png格式的吗？

wyzc2005 · 发表于 2018-8-7 13:28

小fisher 发表于 2016-2-4 08:54
这个问题可能与网站有关吧，请把相应的图片网址发过来。
要保存文件，只需要把bufferBytes里的字节以二 ...

Open后面的文件名如何写呢？

bokk123 · 发表于 2018-11-6 14:44

小fisher 发表于 2016-2-4 08:54
这个问题可能与网站有关吧，请把相应的图片网址发过来。
要保存文件，只需要把bufferBytes里的字节以二 ...

问下，用这个API方法加载的图片，怎么调整图片的大小？
因为image控件大小不能变，所以只好调图片了。

bokk123 · 发表于 2018-11-14 01:10

小fisher 发表于 2016-1-29 22:05
分享一个加载网络图片的通用函数

能改写成64位的吗？声明直接加PtrSafe没用，有些函数会类型不匹配。
在线等。

lcjy11185 · 发表于 2018-11-14 09:15

学习并收藏,加载网络图片

peter-chen · 发表于 2018-11-22 15:44

学习并收藏,加载网络图片

luxev · 发表于 2021-10-21 02:22

先 Mark 了，这个学习就真的要一阵子时间了 ……
用下载的范例文件打开，提示类型不匹配

dongdonggege · 发表于 2021-12-2 18:50

小fisher 发表于 2016-1-29 22:05
分享一个加载网络图片的通用函数

不用这么麻烦，我用的是VBScipt改编的。

Sub test()
Dim url As String
url1 = "http://b.hiphotos.baidu.com/image/pic/item/908fa0ec08fa513d17b6a2ea386d55fbb2fbd9e2.jpg"
url2 = "http://g.hiphotos.baidu.com/image/pic/item/e824b899a9014c0870b4e6910f7b02087bf4f473.jpg"
url3 = "http://d.hiphotos.baidu.com/image/pic/item/6159252dd42a28346729f83f5eb5c9ea15cebf73.jpg"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET", url1, 0 '下载地址
xPost.send
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open
sGet.Write (xPost.responseBody)
Dim fname As String
fname = "C:\tupian.jpg"
sGet.SaveToFile fname, 2 '保存文件的路径和文件名
Image1.Picture = LoadPicture(fname)
End Sub

复制代码

这样，行吗？

		自动登录	找回密码
密码			免费注册

[求助] 求助各位大侠：图片控件里怎样调用网络图片？