Programita para Bajar imagenes

lesthat
22 de Diciembre del 2003
Tengan todos un Feliz día

Estoy sufriendo para hacer un programita que baje imagenes de una Url y las guarde en disco.

He estado usando un Internet Transfer Control, con openURL en Binario despues guardo con Open, Put, Close, pero algunas de las imagenes no bajan completas (se completa con gris) o desordenas, es decir no quedan bien.

Nadie sabe de alguito mejor?????

Yo creo que la mejor forma es abriendo la URL en un picturebox o un image, y despues hacer un SavePicture, pero no puedo cargarle la URL en tiempo de Ejecucion al objeto picturebox con LoadPicture =(

Si alguien sabe como cargar una imagen desde internet en un PictureBox o Image en tiempo de ejecucion, se los AGRADECERE TODA LA VIDA!!!!

Saludos
Lesthat

Heber
22 de Diciembre del 2003
Bájate el Visor.exe de mi sitio

http://www.geocities.com/hjmelgar

lesthat
22 de Diciembre del 2003
Que tal Heber!

Gracias, pero necesito el codigo, porque la finalidad del asunto es bajar imagenes que tengan nombres correlativos, es decir que un Do While o algo parecido bajarme al disco las imagenes de un directorio http que tengan nombres con correlativos, como imagen1.jpg, imagen2.jpg, imagen3.jpg...

Gracias de cualquier modo =)

Heber
22 de Diciembre del 2003
Explicate algo mas y te mando el fuente adecuado a tu proyecto.

lesthat
22 de Diciembre del 2003
GRACIAS!!!!

Bueno, el asunto es el siguiente:
}Hacer un programita para bajar imaganes desde internet (http) sin tener que abrirlas en el iexplorer darles guardar como, etc...

lo intente con el contro webbrowser, abres la imagen perfecto, pero no hay ninguna forma automatica de guardarla, hay que darle boton derecho, guardar imagen como, etc...

Despues lo hice con el control Internet Transfer Control, este obtiene la Url y baja el archivo en binario y lo guardo, pero alunas imagenes se guardan incompletas, aqui esta ese código:

Dim b() As Byte
Dim strURL As String
strURL = "http://216.157.139.155/hfd/gallery/typ/babes/1/" & Arch & ".jpg"
Inet1.AccessType = icUseDefault
' Obtiene el archivo como una matriz de bytes.
b() = Inet1.OpenURL(strURL, icByteArray)
' Abre el archivo
Open "C:imagenes" & Arch & ".jpg" For Binary Access Write As #1
Put #1, , b()
Close #1

Leyendo en las ayudas y los libros en pantalla, vi que la mejor forma de guardar una imagen es ponerla en un PictureBox o un Image y despues un SavePicture

cualquier otra cosa me preguntas =)

Saludos