Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 3352

Permalink

Jul 26th, 2008

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

Expand Post »

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

Plz Help me.....

sutanu_halder

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Jul 2008

Permalink

Jul 26th, 2008

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

Hi,
Can you give us more details about it?

dmf1978

Reputation Points: 18

Solved Threads: 7

Junior Poster in Training

Offline

51 posts
since Aug 2006

Permalink

Jul 26th, 2008

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

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

chid_

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

4 posts
since Jul 2008

Permalink

Jul 28th, 2008

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

try this code using the windows API:

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

Last edited by Tekmaven; Jul 28th, 2008 at 3:35 pm. Reason: Code tags

bhererros

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Jul 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Vertical Scroll Bar In Form

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: reading and found matching display in VB

DaniWeb Message

Cancel Changes

User Name
Password