开源（Free）：下载网页中的图片到窗体中（API函数）

Question

[email protected]可不可以不下载,直接浏览

Answer 1

to xghim(小飞)    世上没有万能的，动态生成的图片如果路径不变，而且是原有文件名，是没有问题的。

Answer 2

to  hank212(超越无极限)    因为这种方式不是基于浏览器的，所以将网络中的图片显示到应用程序中，就必须下载。你可以在此程序上进行改进，达到你的要求！

Answer 3

to xghim(小飞)     我的目的不是如何捕获动态图片，如果要捕获动态生成的图片也不会用这样的方式。我只是将如何从网站中的图片读入应用程序中，和大家共享。

Answer 4

to thirdapple(.:RNPA:.陨落雕 - 敢问路在何方)     不知道你使用的是什么传感器！

Answer 5

to thirdapple(.:RNPA:.陨落雕 - 敢问路在何方)    传感器是关键，因为它主要是进行识别和数据采集。到上位机中，只要分析数据和存储就可以了！

Answer 6

没有那么麻烦，
一个API 
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef RIID As TGUID, ByRef ppvRet As IPicture) As Long 就搞定！

Answer 7

使用OleLoadPicturePath的例子：
Private Type TGUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
    Public Function LoadPicture(ByVal strFileName As String) As Picture
    Dim IID  As TGUID
        With IID
            .Data1 = &H7BF80980
            .Data2 = &HBF32
            .Data3 = &H101A
            .Data4(0) = &H8B
            .Data4(1) = &HBB
            .Data4(2) = &H0
            .Data4(3) = &HAA
            .Data4(4) = &H0
            .Data4(5) = &H30
            .Data4(6) = &HC
            .Data4(7) = &HAB
        End With
    On Error GoTo ERR_LINE
        OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
        Exit Function
ERR_LINE:
        Set LoadPicture = VB.LoadPicture(strFileName)
End Function
Private Sub Form_Load()
    Me.Show
    Set Me.Picture = LoadPicture("http://www.foyi.cn/bbs/UploadFile/2004-8/2004826163544314.gif")
End Sub