SoloCodigo

Hola a todos, alguien sabe como puedo salvar una imagen contenida en un .picture o .image en formato JPG y no en tipo BMP.
gracias

Gracias CPMARIO, voy a probar que puedo hacer.

Hola riciar..  ..mira..para gravar una imagen de un Picture o de un Image pues lo que tienes que poner es:


O cualquier ruta que quieras..
Ahora si quieres guardarlo en jpg y que te ocupe menos espacio pues puedes utilizar una librería muy buena llamada DIjpg.dll que te la adjunto a continuación
Y para utilizarla primero en la parte general debes de declarar el procedimiento de Dll asi:


Es Function porque devuelve un valor y se debe utilizar asi ya sea en un command o cuando quieras capturar tu figurita:  


ahora ..donde guardarás la librería? pues de forma predeterminada visual Basic la buscará donde tienes el .exe o en la carpeta en uso ..asi que la puedes poner ahí..o sino puedes definir como constante la ruta donde se encuentra la librería después de la palabra Lib en la parte de la declaración  por ejemplo ..si la pones en c:\ejemplo entonces:


Espero que te pueda servir de Guia..    bye y mucha suerte!..

 hola riciar ..tienes razón..faltaba esa parte.. mira se tiene que crear un bmp temporal ...para que la dll lo coja de memoria temporal...puedes darle cualquier nombre por ejemplo:


   ahora...si var es 1 ..todo está bien..caso contrario pudo haber ocurrido algún error...
   el segundo parámetro de la función DIWriteJpg que en este caso es 100.. es un parámetro de calidad....lo puedes variar y la calidad disminuirá..al mismo tiempo que tambien disminuirá el peso del grafico...

Bueno.. Mucha suerte...espero que te te haya podido servir de ayuda.. nos vemos..bye..y nos cuentas como te fue..

ALGO MUCHO MAS SENCILLO QUE NO TOMA MAS DE 1 UN MINUTO

AGREGA EL COMPONENTE microsoft comon dialog control en  VISUAL BASIC

luego agregalo a tu form  agrega una image y una caja de texto llamala "nombre"

pega este codigo en el click de tu image


Private Sub Image1_Click()
CommonDialog1.Filter = "Fotografia (*.JPG)|*.JPG"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
nombre.Text = CommonDialog1.FileTitle
End Sub



SI NECESITAS EL CODIGO PARA GUARDARLA EN UNA BASE DE DATOS MYSQL POR EJEMPLO AVISAME



LISTO

Buenas...
Eliza pruebo el codigo que pasaste utilizando la dll que adjuntaste, pero la funcion DIWriteJpg me devuelve 2 (y no 1 como cuando indica que salio todo bien), y por lo que veo no me crea el archivo test.jpg.


El codigo que tengo es el sgte:


    Dim var As Long
    Dim loadStr As String
   
    'Guardamos la imagen
    CD.Filter = "*.jpg;*.jpeg;*.bmp"
    CD.ShowSave
   
    loadStr = App.Path & "test.jpg"

    SavePicture Picture1.Image, CD.FileName & ".bmp"
   
    'Para guardar  JPEG
    var = DIWriteJpg(loadStr, 100, 1) 'Aca me devuelve 2'
   
    'esto es para remover el archivo temporal
    Kill CD.FileName & ".bmp"


Otra pregunta, esto que va como parámetro a la funcion:   loadStr = App.Path & "test.jpg"    me va a crear el archivo test.jpg???? o ya tiene que existir.

Desde ya muchas gracias.
Saludos

Chaja