Aender Soto
05 de Mayo del 2004

Tengo un programa en donde utilizo una picture box en el cual pinto con lineas (line). Nesecito guardar la imagen en formato de JPG o GIF por q en BMP es muy grande. Lo q pasa es q el programa automaticamente depues de haber recibido algunos valores pinta sobre el Picture box, y luego guarda la imagen. Yo utilizo el Save Picture, pero esta funcion guarda la imagen en formato BMP, yo necesito guardar la imagen en GIF o JPG para no llenar el disco duro de la PC tan rapido ( cada BMP q guardo tiene un tamaño de 0.5 Mb). Si me pueden ayudar....muchas gracias...

sdemingo
05 de Mayo del 2004

Hola,

lo que se me ocurre que puedes hacer es lo siguiente:

1- Salva la imagen como bmp
2- A través del FileSystemObject copia la imagen bmp con formato jpg así:
dim fs as object
set fs = createobject("FileSystemObject")
fs.CopyFile "tuRutanombreImagen.bmp" "tuRutanombreImagen.jpg"
3- Borras el archivo bmp:
fs.DeleteFile "tuRutanombreImagen.bmp"

Un saludo
sdemingo

Baltasar
05 de Mayo del 2004

Mucho más sencillo habría sido usar NAME "rutaimagen.bmp" as "rutaimagen.jpg" , pero con esto lo único que conseguirías es cambiar la extensión del fichero, no convertirlo en un JPG.

sdemingo
05 de Mayo del 2004

Hice la prueba a pelo creándome una imagen bmp y luego renombrándola. Al parecer funcionaba bien y me lo abría como jpg, pero el problema del tamaño sigue ahí.

Un saludo
sdemingo

Juan
05 de Mayo del 2004

Perdona que te corrija sdemingo, pero con eso lo único
que consigues es cambiar la extensión del archivo,
no su formato.

Lo cierto es que VB sólo guarda en formato BMP. Si quieres
que guarde en otro formato tendrás que buscar algún
control ActiveX o alguna DLL.

También es posible encontrar documentación sobre
la estructura interna de esos formatos, incluso código
fuente de algoritmos para guardar en GIF o JPG. Pero
eso si, la documentación seguramente estará en inglés
y el código fuente en C o Pascal.

juan
05 de Mayo del 2004

mira en esta pagina, ami me funciona, pero tengo problemas con el tamaño de las imagenes a guardar, porque para imagenes pequeñas no hay problema, pero para imagenes grandes (casi iguales a A4) me cierra todo y no funciona.
http://www.telecable.es/personales/jrubi/index.htm?trucos/tip00279.htm
ya me contaras como te fue

GoroAlbo
05 de Mayo del 2004

SavePicture image.Picture, "c:auto.jpeg"

Eso guarda lo que tenes en un image