DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

How to get url image using Visual Basic 6.0 dekstop application?

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jul 2008

Posts: 9

Reputation: sutanu_halder is an unknown quantity at this point

Solved Threads: 0

sutanu_halder sutanu_halder is offline

Offline

Newbie Poster

How to get url image using Visual Basic 6.0 dekstop application?

Jul 26th, 2008

How to get url images in picture box/image box using Visual Basic 6.0 dekstop application?

Plz Help me.....

•

Join Date: Aug 2006

Posts: 51

Reputation: dmf1978 is an unknown quantity at this point

Solved Threads: 7

dmf1978

Offline

Junior Poster in Training

Re: How to get url image using Visual Basic 6.0 dekstop application?

Jul 26th, 2008

Hi,
Can you give us more details about it?

-- Martín

•

Join Date: Jul 2008

Posts: 4

Reputation: chid_ is an unknown quantity at this point

Solved Threads: 1

chid_

Offline

Newbie Poster

Re: How to get url image using Visual Basic 6.0 dekstop application?

Jul 26th, 2008

By URL images I understand you mean pictures uploaded onto the web? :s so like. "http://www.google.com.au/intl/en_au/images/logo.gif"

Seems Like I hard one, using winsock, and saving to file, easily doable,

if you need help with the code, I can help

•

Join Date: Jul 2008

Posts: 1

Reputation: bhererros is an unknown quantity at this point

Solved Threads: 0

bhererros

Offline

Newbie Poster

Re: How to get url image using Visual Basic 6.0 dekstop application?

Jul 28th, 2008

try this code using the windows API:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DownloadFile = True
End Function
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then DownloadFile = True
End Function