How do I load an image from the web into a picture box :[

[Kyo #3]

I need it for bot Dx. I've been doing my googleing and its only bringing up stuff for VB.net. I'm on VB6.

I noticed my wrapper has a GetImage thing, but I'm not sure how to use it. =F

[second2none]

Just download the image and load it into the picture box. There is a download function somewhere

[Kyo #3]

Originally Posted by second2none

Just download the image and load it into the picture box. There is a download function somewhere

I guess that will work ^_^ Thanks Kane.

[Lord Kyo]

...Kane is unbanned.
WTF GUYS?!

Well, yeah just right click o the image and hit save as.

[Kyo #3]

I need to program to do it.]

I'll google download functions.

[|G3|]

Well I know doctor knows how to do it.
I have an example that he done but it's for autoit D:

I'll help you find a way though.

[Fewmitz again]

Originally Posted by |G3|

Well I know doctor knows how to do it.
I have an example that he done but it's for autoit D:

I'll help you find a way though.

That's not a fair answer, because AutoIt is just plain better than VB >_>

Anyway, I have no idea either, not on the downloading part of it at least, so sadly the best I can do is wish you luck.

[second2none]

Autoit isn't better then VB by a long shot.

Public Function StripHeaders(strHTML As String) As String
Dim strParts() As String
'Split at the two line break
strParts = Split(strHTML, vbCrLf & vbCrLf, 2)
StripHeaders = strParts(1) 'return the body
End Function


Public Function DownloadFile(URL As String, Path As String)
Dim Filenum As Integer, strHTML As String
If CheckForFile(Path) = True Then
Kill Path
End If
Filenum = FreeFile
strHTML = StripHeaders(GetWrapper(URL, LastPage))
Open Path For Output As Filenum
Print #Filenum, strHTML
Close Filenum
End Function

You just call it like

Call DownloadFile(URL OF IMAGE, App.Path & "/Image.Extension")

Pretty sure. Haven't used it in a while.
And then you just load it from your file to picture box

LoadPicture Picture1.Picture App.Path & "/Image.Extension"

If its a .png you will need a special module called. modPNG I think just google it. And yeah. That should work.

Thats for VB6.

[|G3|]

This is what I pm'd him.

Private Sub Command2_Click()
Dim URL As String
Dim b() As Byte
URL = "http://www.google.com/intl/en_ALL/images/logo.gif"
b() = Inet1.OpenURL(URL, icByteArray)
Do Until Inet1.StillExecuting = False
      If Status = "Timeout" Then
         Status = ""
         Inet1.Cancel
      End If
      DoEvents
   Loop

Dim f As Long
f = FreeFile
Open App.Path & "\logo.gif" For Binary Access Write As #f
Put #f, , b()
Close #f

Image1.Picture = LoadPicture(App.Path & "\logo.gif")
Kill App.Path & "\logo.gif"
End Sub

[second2none]

well mine works with HTTPwrapper... (not that I made it, i was referring to my post)
and yeah.. can be customized for other wrappers..

I dont really like Inet. but what works, works I guess.