Bajar la resolucion y el tamaño a un .Jpg

[pampitasnowman]

Hola! Me acabo de inscribir en este foro y soy un usuario, bajo-intermedio, con la programacion en delphi. Necesito le puedo bajar la resolucion y el tamaño a un archivo .Jpg. Muchas gracias.

[delphi.com.ar]

No voy a darte la solución, pero te voy a contar como hacerlo:

Cargas tu archivo de cualquier tipo en un TPicture, calculas el tamaño en que lo quieres dejar, creas un TBitmap y le das el tamaño calculado, luego haces Bitmap.Canvas.StretchDraw( Rect(datos calculados), Picture.Graphic), luego creas un TJpegImage, le asignas el Bitmap y luego le pones el CompressionQuality que tu desees.
Creo que no se me olvidó ningún paso, espero que te siva y lee la Guía de Estilo (http://www.clubdelphi.com/users/llsoft/Docs/GuiaEstilo.php)

Saludos!

[pampitasnowman]

Muchas gracias! Voy a intentar de la manera que me dijiste, para ver si lo puedo hacer. Y gracias, también por la recomendacion de leer las reglas del foro.

[madman]

Aki tienes un ejemplo mas ejemplificado... :rolleyes:

http://www.clubdelphi.com/foros/showthread.php?s=&threadid=794


Saludos!

[pampitasnowman]

Ahora si, mucha gracias a los dos por responder. El tema del tamaño, ya lo solucione, pero el problema que tengo ahora es que cuando yo creo el TBitmap, al parecer lo crea siempre, con 72 de resolucion. (El tamaño de lo doy yo, pero la resolucion, la pone en 72). Hay alguna forma de cambiar manualmente la resolucion de una imagen?. Desde ya muchas Gracias.