怎么用VB从一个Internet URL上将一个图片读成二进制流？（100分）

[GBlueMan]

假设现已知Url如下：
http://localhost/somepic.jpg

怎么用VB编程把此幅图片读成二进制流的形式存入一个字符串变量（PicStr）？

用InternetReadFile吗？各位兄弟帮个忙，麻烦给出例子！

[darkmoon]

set rs=Server.CreateObject("ADODB.Stream")
rs.Open
rs.LoadFromFile ("http://localhost/somepic.jpg")
PicStr = Space(rs.Size)
rs.WriteText PicStr

[superlly]

好象还得把这个图片转化一下
然后保存到数据库

[NowCan]

用Inet控件，特别简单。
Private Sub Form_DblClick()
Inet1.AccessType = icUseDefault
Dim b() As Byte
Dim strURL As String

' Presuming this is still a valid URL.
strURL = "ftp://ftp.microsoft.com/" & _
"developr/drg/Win32/Autorun.zip"

' Retrieve the file as a byte array.
b() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\Temp\Autorun.zip" For Binary Access _
Write As #1
Put #1, , b()
Close #1
MsgBox "Done"
End Sub

[GBlueMan]

To darkmoon: 你的方法似乎不能用URL，好像只能用来读取硬盘的吧？

To NowCan: Inet控件到底在那个库里面，如果我是在写DLL，我该如何应用他？

[GBlueMan]

我现在是在做ActiveX组件（*.DLL），你们给的都是用控件，我怎么引用？麻烦高速小弟一声！

[hengxin54]

写dll的话也是一样，直接引用这个控件就可以了，即找这个控件的位置后引用。
其实用winsock也可以完成
private sub command1_click()
winsock1.connect "www.xxxxx.xxx",80
end sub
private sub winsock1_connect()
winsock1.senddata "Get http://localhost/somepic.jpg HTTP/1.0" & vbcrlf & "Accept */*" & vbcrlf & vbcrlf
end sub
private sub winsock1_dataarrival(bytestotle as long)
dim a() as byte
winsock1.getData a,vbbyte
end sub

[chinayang]

菜单project->components打到Microsoft internet transfer controls

[守城小轩]

关注
======================QQYY_sj==========================

[GBlueMan]

有没有谁知道用InternetOpen() ,InternetOpenUrl(),InternetReadFile()这三个API怎么读？不胜感激！

[GBlueMan]

我在ActiveX组件中这样使用Inet控件，运行时都没有问题，但停止后将VB6环境关闭后就出现VB6环境非法出错的对话框，为什么？我下面的代码有问题吗？

Public Function getImage(PictureURL As String) As Variant
Dim objInet As Object
Set objInet = CreateObject("InetCtls.Inet.1")
getImage = objInet.OpenURL(PictureURL, 1)
Set objInet = Nothing '释放对象
End Function

[深渊的水影]

其他的我不知道
我看到过！好象是在VB编程乐园上看到的！