Cargar imagen desde internet

[CBBzun]

Hola..

Tengo un objeto Image en un Form... normalmente uno hace

Image1.Picture = LoadPicture("C:\image.jpg")

pero en mi caso quiero cargar esa imagen desde internet.. tengo una página de una librería con portadas, y la idea es que se pueda desde el programa revisar si la portada existe y cargar la imagen en el Form de Visual Basic pero cargar desde internet.. claro, yo probé poniendo la ruta "http...." perio no funcionó.. que podría utilizar? gracias!!

[LeandroA]

Hola primero deves vajar la imagen i luego la lees te paso un ejemplo

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 Sub Command1_Click()
DownloadFile "http://usuarios.lycos.es/palaceofexile/Imagenes/jim31.jpg", App.Path + "\Imagen.jpg"
Image1 = LoadPicture(App.Path + "\imagen.jpg")
End Sub

[CBBzun]

Gracias.. voy a probarlo! :)

[Sinnerenecia]

Muchas gracias! Me habeis salvado de un gran problema

Pero tengo otro problemilla. Necesito la accion del Command click se realiza sola, es decir, que no haga falta darle para que se baje la imagen. Algo así como programar la acción para que ocurra cada X tiempo.

Muchas gracias otra vez!

[Sinnerenecia]

He encontrado esto en el foro

Private Sub Timer1_Timer()
Image1.Visible = Not (Image1.Visible)
Image1.Image1 = loadImage1("c:\imagen.jpg")
End Sub

Pero el problema es que esto recarga la imagen, pero no la descarga de la web.

Y otra pregunta, como puedo hacer que la imagen nueva que baja, se renombre con el mismo nombre siempre? Es decir, que cada nueva captura que bajo, se llame Imagen.jpg, y se vaya actualizando?


Muchas gracias nuevamente, estoy aprendiendo un monton gracias a vosotr@s

[Sinnerenecia]

Aps! Error de compilacion

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 Sub Command1_Click()
DownloadFile "http://www.xxx.com/mapa.jpg", "c:\Imagen.jpg"
Image1 = LoadPicture("C:\imagen.jpg")
End Sub

Private Sub Form_Click()
Unload Me
End Sub



Private Sub Timer1_Timer()
Image1.Visible = Not (Image1.Visible)
Image1.Image1 = LoadImage1("c:\imagen.jpg")
End Sub



Error " No se ha definido Sub o Function"


Entonces solo me falta saber el porque de ese error y automatizar la descarga de la imagen!

[Sinnerenecia]

Bien! Creo que ya la tengo!

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 Sub Form_Load()
If App.PrevInstance Then Unload Me
DownloadFile "http://www.xxx.commapa.jpg", "c:\Imagen.jpg"
Image1 = LoadPicture("C:\imagen.jpg")
End Sub

Private Sub Form_Click()
Unload Me
End Sub


Private Sub Timer1_Timer()
Image1.Visible = Not (Image1.Visible)
Image1.Image1 = loadImage1("c:\imagen.jpg")
End Sub

Sugerencia para los novatos (como yo) No pregunteis por preguntar, intentar hacerlo por vosotros mismos. Se aprende un montón!

Solo tengo una duda ahora, se cargará la imagen automaticamente cada vez que actualicen el jpg en el servidor?

[Sinnerenecia]

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReservd 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 Sub Form_Load()
DownloadFile "http://www.xxx.com/mapa.jpg", "c:\Imagen.jpg"
Image1 = LoadPicture("C:\imagen.jpg")
If App.PrevInstance Then Unload Me
End Sub
Private Sub Form_Click()
Unload Me
End Sub


He conseguido reducir el codigo hasta esto. Lo que pasa que cuando depuro se me queda pillado en el Private Sub Form_Load

Sin embargo, cambio el Form_Load por Form_Long y entonces me funciona. Porque?? Llevó desde anoche con esto del Visual Basic...no me entero de mucho

Si lo dejo asi
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReservd 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 Sub Form_Long()
DownloadFile "http://www.meteoclimatic.com/bot/mapa.jpg", "c:\Imagen.jpg"
Image1 = LoadPicture("C:\imagen.jpg")
If App.PrevInstance Then Unload Me
End Sub

Private Sub Form_Click()
Unload Me
End Sub


Se me queda pillado en el Ultimo Private sub. Tiene narices la cosa

Gracias!

[Sinnerenecia]

Vaya...con el Long no carga la imagen...

Entonces, puede ser que en el formulario me falte definir la variable?

Pongo Dim As Long?

[CBBzun]

Disculpa.. no había entrado hace tiempo y vi que has puesto muchas respuestas a este tema.. lograste solucionar el problema?.. voy a ponerme a revisar eso y cualquier cosa pongo alguna respuesta!.

chao.

[David]

Iniciado por Sinnerenecia

Vaya...con el Long no carga la imagen...

Entonces, puede ser que en el formulario me falte definir la variable?

Pongo Dim As Long?

El Form no tiene ningún evento Long...