|
|
 |
 |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
 |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
09-08-2003
|
|||
|
|||
Bajar la resolucion y el tamaño a un .Jpg
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.
|
|
#2
09-08-2003
|
||||
|
||||
|
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 Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. 
Última edición por delphi.com.ar fecha: 09-08-2003 a las 01:42:35.
|
|
#3
11-08-2003
|
|||
|
|||
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.
|
|
#4
11-08-2003
|
||||
|
||||
|
Aki tienes un ejemplo mas ejemplificado...
 http://www.clubdelphi.com/foros/show...=&threadid=794 Saludos!
__________________
Guía de Estilo.
|
|
#5
11-08-2003
|
|||
|
|||
|
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.
__________________
Tome Pin y haga Pum!
|
|
|
|
 |
|
Mode Lineal
