Is there a way i can reference a picture box or image placeholder to load up a picture from the internet eg:
Any ideas would be very appreciated
Any ideas would be very appreciated
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Pulling an image from the web 8
- Thread starter Niphyr
- Start date
-
4
- #3
And here you go. The example requires a form with a picturebox and a command button.
Note that there's an even easier way of doing this if you are happy to use an OLE type library (I use Edanmo's OLE Interfaces for Implements type library, available here: I'll post that solution next)
[tt]
Option Explicit
Public Enum CBoolean
CFalse = 0
CTrue = 1
End Enum
Private Type GUID
dwData1 As Long
wData2 As Integer
wData3 As Integer
abData4(7) As Byte
End Type
Private Const S_OK = 0
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Private Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Private Declare Function GetTempPath Lib "kernel32" _
Alias "GetTempPathA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function GetTempFileName Lib "kernel32" _
Alias "GetTempFileNameA" (ByVal lpszPath As String, _
ByVal lpPrefixString As String, ByVal wUnique As Long, _
ByVal lpTempFileName As String) As Long
Private Declare Function CreateStreamOnHGlobal Lib "ole32" _
(ByVal hGlobal As Long, _
ByVal fDeleteOnRelease As CBoolean, _
ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" _
(pStream As Any, _
ByVal lSize As Long, _
ByVal fRunmode As CBoolean, _
riid As GUID, _
ppvObj As Any) As Long
Private Const GMEM_MOVEABLE = &H2
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Sub Command1_Click()
Picture1.Picture = GetPicFromHTTP(" '("End Sub
Private Function GetPicFromHTTP(strURL As String) As StdPicture
Dim bytearray() As Byte
bytearray() = Inet1.OpenURL(strURL, icByteArray)
Set GetPicFromHTTP = PictureFromBits(bytearray)
End Function
' Adapted from some code from Brad Martinez at MVPS
Public Function PictureFromBits(abPic() As Byte) As IPicture
Dim nLow As Long
Dim cbMem As Long
Dim hMem As Long
Dim lpMem As Long
Dim IID_IPicture As GUID
Dim istm As stdOLE.IUnknown ' lazy way to get IStream
Dim ipic As IPicture
On Error GoTo Out ' Set up cheap and cheerful error handling
' Get the size of the picture's bits
'nLow = LBound(abPic)
cbMem = (UBound(abPic) - nLow) + 1
' Allocate a global memory object
hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
If hMem Then
' Lock the memory object and get a pointer to it.
lpMem = GlobalLock(hMem)
If lpMem Then
' Copy the picture bits to the memory pointer and unlock the handle.
MoveMemory ByVal lpMem, abPic(nLow), cbMem
Call GlobalUnlock(hMem)
' Create an ISteam from the pictures bits
If (CreateStreamOnHGlobal(hMem, CTrue, istm) = S_OK) Then
If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
' Create IPicture from IStream
OleLoadPicture ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, PictureFromBits
End If
End If
End If
Call GlobalFree(hMem)
End If
Out: ' cheap and cheerful error handling...
On Error GoTo 0
End Function
Note that there's an even easier way of doing this if you are happy to use an OLE type library (I use Edanmo's OLE Interfaces for Implements type library, available here: I'll post that solution next)
[tt]
Option Explicit
Public Enum CBoolean
CFalse = 0
CTrue = 1
End Enum
Private Type GUID
dwData1 As Long
wData2 As Integer
wData3 As Integer
abData4(7) As Byte
End Type
Private Const S_OK = 0
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Private Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Private Declare Function GetTempPath Lib "kernel32" _
Alias "GetTempPathA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function GetTempFileName Lib "kernel32" _
Alias "GetTempFileNameA" (ByVal lpszPath As String, _
ByVal lpPrefixString As String, ByVal wUnique As Long, _
ByVal lpTempFileName As String) As Long
Private Declare Function CreateStreamOnHGlobal Lib "ole32" _
(ByVal hGlobal As Long, _
ByVal fDeleteOnRelease As CBoolean, _
ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" _
(pStream As Any, _
ByVal lSize As Long, _
ByVal fRunmode As CBoolean, _
riid As GUID, _
ppvObj As Any) As Long
Private Const GMEM_MOVEABLE = &H2
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Sub Command1_Click()
Picture1.Picture = GetPicFromHTTP(" '("End Sub
Private Function GetPicFromHTTP(strURL As String) As StdPicture
Dim bytearray() As Byte
bytearray() = Inet1.OpenURL(strURL, icByteArray)
Set GetPicFromHTTP = PictureFromBits(bytearray)
End Function
' Adapted from some code from Brad Martinez at MVPS
Public Function PictureFromBits(abPic() As Byte) As IPicture
Dim nLow As Long
Dim cbMem As Long
Dim hMem As Long
Dim lpMem As Long
Dim IID_IPicture As GUID
Dim istm As stdOLE.IUnknown ' lazy way to get IStream
Dim ipic As IPicture
On Error GoTo Out ' Set up cheap and cheerful error handling
' Get the size of the picture's bits
'nLow = LBound(abPic)
cbMem = (UBound(abPic) - nLow) + 1
' Allocate a global memory object
hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
If hMem Then
' Lock the memory object and get a pointer to it.
lpMem = GlobalLock(hMem)
If lpMem Then
' Copy the picture bits to the memory pointer and unlock the handle.
MoveMemory ByVal lpMem, abPic(nLow), cbMem
Call GlobalUnlock(hMem)
' Create an ISteam from the pictures bits
If (CreateStreamOnHGlobal(hMem, CTrue, istm) = S_OK) Then
If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
' Create IPicture from IStream
OleLoadPicture ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, PictureFromBits
End If
End If
End If
Call GlobalFree(hMem)
End If
Out: ' cheap and cheerful error handling...
On Error GoTo 0
End Function
The following example assumes that you have a reference set to Edanmo's OLE Interfaces and Functions library. As with the previous example, you need a form with a picturebox and a command button:
[tt]
Option Explicit
Private Sub Command1_Click()
Picture1.Picture = GetPicFromHTTP(" '("End Sub
Private Function GetPicFromHTTP(strURL As String) As StdPicture
Dim bytearray() As Byte
bytearray() = Inet1.OpenURL(strURL, icByteArray)
Set GetPicFromHTTP = LoadImage(bytearray)
End Function
Public Function LoadImage( _
ImageBytes() As Byte) As StdPicture
Dim oPersist As IPersistStream
Dim oStream As IStream
Dim lSize As Long
' Calculate the array size
lSize = UBound(ImageBytes) - LBound(ImageBytes) + 1
' Create a stream object
' in global memory
Set oStream = CreateStreamOnHGlobal(0, True)
' Write the header to the stream
oStream.Write &H746C&, 4&
' Write the array size
oStream.Write lSize, 4&
' Write the image data
oStream.Write ImageBytes(LBound(ImageBytes)), lSize
' Move the stream position to
' the start of the stream
oStream.Seek 0, STREAM_SEEK_SET
' Create a new empty picture object
Set LoadImage = New StdPicture
' Get the IPersistStream interface
' of the picture object
Set oPersist = LoadImage
' Load the picture from the stream
oPersist.Load oStream
' Release the streamobject
Set oStream = Nothing
End Function
[tt]
Option Explicit
Private Sub Command1_Click()
Picture1.Picture = GetPicFromHTTP(" '("End Sub
Private Function GetPicFromHTTP(strURL As String) As StdPicture
Dim bytearray() As Byte
bytearray() = Inet1.OpenURL(strURL, icByteArray)
Set GetPicFromHTTP = LoadImage(bytearray)
End Function
Public Function LoadImage( _
ImageBytes() As Byte) As StdPicture
Dim oPersist As IPersistStream
Dim oStream As IStream
Dim lSize As Long
' Calculate the array size
lSize = UBound(ImageBytes) - LBound(ImageBytes) + 1
' Create a stream object
' in global memory
Set oStream = CreateStreamOnHGlobal(0, True)
' Write the header to the stream
oStream.Write &H746C&, 4&
' Write the array size
oStream.Write lSize, 4&
' Write the image data
oStream.Write ImageBytes(LBound(ImageBytes)), lSize
' Move the stream position to
' the start of the stream
oStream.Seek 0, STREAM_SEEK_SET
' Create a new empty picture object
Set LoadImage = New StdPicture
' Get the IPersistStream interface
' of the picture object
Set oPersist = LoadImage
' Load the picture from the stream
oPersist.Load oStream
' Release the streamobject
Set oStream = Nothing
End Function
- Thread starter
- #9
Thanks guys, very appreciated. All working and good, another star strongm.
- Thread starter
- #10
I found another way, use the microsoft internet control, and simply navigate the browser control to the picture, and its done!, served my purposes anyway. Still, thanks all
-
4
- #11
While browsing the past posts, I found this thread for loading pictures from internet.
Below is an extremely handy method to do this, without using a temp file/inet control or type library. Only a single API call does the magic and I thought I should post this here (although it is probably too late).
___
[tt][ignore]
Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public Function LoadPictureFromURL(ByVal url As String) As Picture
Dim IPic(15) As Byte 'holds the IPicture interface
CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
, IPic(0)
OleLoadPicturePath StrPtr(url), 0&, 0&, 0&, IPic(0), LoadPictureFromURL
End Function
Private Sub Form_Load()
Me.Picture = LoadPictureFromURL("End Sub[/ignore][/tt]
___
Besides that, the code provided by strongm in his first post is also very smart!
Below is an extremely handy method to do this, without using a temp file/inet control or type library. Only a single API call does the magic and I thought I should post this here (although it is probably too late).
___
[tt][ignore]
Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public Function LoadPictureFromURL(ByVal url As String) As Picture
Dim IPic(15) As Byte 'holds the IPicture interface
CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
, IPic(0)OleLoadPicturePath StrPtr(url), 0&, 0&, 0&, IPic(0), LoadPictureFromURL
End Function
Private Sub Form_Load()
Me.Picture = LoadPictureFromURL("End Sub[/ignore][/tt]
___
Besides that, the code provided by strongm in his first post is also very smart!
Yes Hypetia, that does deserve a star... thank you for that. StrongM, your code does as well...
![[fish]](/data/assets/smilies/fish.gif "[fish] [fish]")
No Dolphins were harmed in the posting of this message... Dolphin Friendly Tuna!
Ever feel like you're banging your head against a tree? I did, so I cut down the tree.
No Dolphins were harmed in the posting of this message... Dolphin Friendly Tuna! Ever feel like you're banging your head against a tree? I did, so I cut down the tree.
chelseatech
Instructor
Hi guys, Thanks for an excellent thread. You both deserve a bunch of stars for your solutions here.
Editor and Publisher of Crystal Clear
Editor and Publisher of Crystal Clear
Hi,
I tried all the examples. The problem is with Inet. If you create an activex control using the inet, you will get something weird.
For example, you enter the following values for the accessing the picture.
Inet1.UserName = "demouser"
Inet1.Password = "password123"
Inet1.URL = "You will get the following.
Inet1.UserName = "demouser"
Inet1.Password = "password123"
Inet1.URL = "
The program added the username and password to the URL. When I try to download the picture, I will get malformed URL or someting to that effect.
Johnnie
I tried all the examples. The problem is with Inet. If you create an activex control using the inet, you will get something weird.
For example, you enter the following values for the accessing the picture.
Inet1.UserName = "demouser"
Inet1.Password = "password123"
Inet1.URL = "You will get the following.
Inet1.UserName = "demouser"
Inet1.Password = "password123"
Inet1.URL = "
The program added the username and password to the URL. When I try to download the picture, I will get malformed URL or someting to that effect.
Johnnie
Worth pointing out the Edanmo has rearranged his pages at mvps (and abandoned VB6), so the link I gave to his OLE type libraries is no longer valid. They can now be found here:
>The problem is with Inet
And I should point out that there is no problem with Inet accessing password protected resources. You just have to understand how it works (the help files show you). Essentially, you just have to modify the GetPicFromHTTP routine to something like:
Be warned that this only works with sites using a websote's built-in authentication methods(e.g. it won't work against sites using script-based security solutions) and that the example here makes no allowance for a persistant session (try and login to a site with which you have already established a session and the code as given will fail).
And I should point out that there is no problem with Inet accessing password protected resources. You just have to understand how it works (the help files show you). Essentially, you just have to modify the GetPicFromHTTP routine to something like:
Code:
[blue]Private Function GetPicFromHTTP(strURL As String, Optional Username As String, Optional Password As String) As StdPicture
Dim bytearray() As Byte
Inet1.URL = strURL
Inet1.Username = Username
Inet1.Password = Password
bytearray() = Inet1.OpenURL(, icByteArray)
Set GetPicFromHTTP = LoadImage(bytearray)
End Function[/blue]Be warned that this only works with sites using a websote's built-in authentication methods(e.g. it won't work against sites using script-based security solutions) and that the example here makes no allowance for a persistant session (try and login to a site with which you have already established a session and the code as given will fail).
- Status
Similar threads
- Locked
- Question
- Question