Compresion de un jpg
estoy intentando comprimir un jpg con ayuda de TJpegImage y no consigo resultados. El código, compilado en Delphi 6 es el siguiente
fotografia := TJPegImage.Create; fotografia.LoadFromfile('c:\sincomprimir.jpg); fotografia.CompressionQuality := 30; fotografia.Compress; fotografia.SaveToFile('c:\comprimido.jpg); fotografia.Free; al ejecutarlo, el fichero comprimido.jpg ocupa 0 kb. Si prescindo de la orden compress lo crea bien, pero del mismo tamaño del anterior. ¿¿que estoy haciendo mal?? |
El formato jpg ya está comprimido :confused: :confused:
|
cierto...
perdón
me referia a la disminución de la calidad (que repercuta en el tamaño final del fichero). Por defecto la calidad es de 90, y se puede poner en un rango de 0 a 100, pero al ejecutar la instruccion fotografia.compress es cuando no me da el resultado esperado. aprovechando...¿es posible disminuir el tamaño en pixeles de la imagen? veo las propiedades pixelformat y scale, pero no encuentro en ningún lado documentación para utilizarlas gracias |
aver si entiendo lo que quieres.
es que en la visualizacion de la imagen esta te salga del tamaño que tu quieres sim perder la nitidez. es eso??? Bueno te pongo el codigo que yo uso para ver imagenes aver si te sirve Código:
procedure CargaJPGProporcionado( Fichero: string; const QueImage: TImage); a los cual les doy las gracias Espero que te sea util |
¡¡muchísimas gracias!!
justo lo que necesitaba |
La franja horaria es GMT +2. Ahora son las 05:23:58. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi