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

Question

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

Answer 1

用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

Answer 2

To darkmoon: 你的方法似乎不能用URL，好像只能用来读取硬盘的吧？To NowCan: Inet控件到底在那个库里面，如果我是在写DLL，我该如何应用他？

Answer 3

写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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

我在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