Programación General > Visual Basic 6.0 e inferiores

 Visual Basic

(1/3) > >>

riciar:
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

cpmario:
En este enlace encuentras un ejemplo de código fuente:

http://www.planet-source-code.com/vb/scrip...=28551&lngWId=1

Y la DLL que hace el trabajo en este otro enlace:

http://www.kamilche.com/files/converter.dll

 :hola:


---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6, con diccionario propio.

http://consultapractica.aztecaonline.net/index2.html

riciar:
Gracias CPMARIO, voy a probar que puedo hacer.

Cyclop:
Porque no usas la libraria FreeImage.Dll es gratis y puedes convertir de muchos formatos a muchos formatos. Lo malo es que pesa como 2MB

Salu2

Cyclopz

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


--- Código: Text ---SavePicture Picture1.Image, "C:\tmp.bmp" 
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:


--- Código: Text ---Private Declare Function DIWriteJpg Lib "DIjpg.dll" (ByVal DestPath As String, ByVal quality As Long, ByVal progressive As Long) As Long 
Es Function porque devuelve un valor y se debe utilizar asi ya sea en un command o cuando quieras capturar tu figurita:  :)


--- Código: Text ---Dim var As LongDim loadStr As StringloadStr = App.Path & "\test.jpg"var = DIWriteJpg(loadStr, 100, 1) 
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:


--- Código: Text ---Private Declare Function DIWriteJpg Lib "c:\ejemplo\DIjpg.dll" (ByVal DestPath As String, ByVal quality As Long, ByVal progressive As Long) As Long 
Espero que te pueda servir de Guia.. :)   :hola:  bye y mucha suerte!.. ;)

Navegación

[0] Índice de Mensajes

[#] Página Siguiente