cambiar tamaño de imagen jpg
hola amigos
Tengo una form donde cargo una imagen en un DBImage, anteriormente habia preguntado como cargar un jpg ahora lo que necesito es saber como redimensionar este jpg o sea cambiar el tamaño de la imagen en pixeles ejemplo de 800x600 a 100x100 y el tamaño en fisico ejemplo de 500 Kb a 150Kb. les dejo el código para que le hechen un ojo Gracias de antemano Código:
|
Te pongo código a ver qué tal, ahí se ve como redimensionar una imagen y como comprimirla para reducir su tamaño, (aunque si la reduces de dimensiones, por lógica también reduce su tamaño).
Código:
//Usamos el bmp para redimensionar el jpg |
Gracias _cero_ el código me funcionó perfecto
|
Aquí les dejo el código completo por si a alguien le hace falta
Código:
void __fastcall TForm3::Button1Click(TObject *Sender) |
Cita:
|
solo un detalle y que me corrijan si me equivoco. StretchDraw hacia que la imagen perdiera mucha calidad y en su momento, cuando yo me interesé por ese tema, me indicaron otro metodo usando las apis de windows pero ahora mismo no recuerdo como era y tendria que buscar el codigo.
|
StretchDraw tenia un problema, restaba mucha calidad a las imagenes. En su tiempo, cuando yo me interesé por el tema, me ayudaron a hacerlo de otra forma. Os pongo un enlace con la prueba que hice donde, ademas de poder redimensionarla, tambien se puede exportar a jpg y ademas se puede arrastrar la imagen en el TImage para desplazarnos por ella sin necesidad de scrollbars. Espero que te sirva.
Enlace: https://mega.co.nz/#!NhNBXbKK!mkkwV4...EBErPlElWT0DY8 |
una cosa mas, creo recordar que el objeto TJPEJImage tiene una funcion para redimensionar el jpg (creo que era resize o algo asi) pero ya para para hacerlo por tamaño en bytes no se.
|
Ya que se reabre este tema, voy a aportar una solución usando GDI+ que no tiene el inconveniente de la pérdida de calidad clásica de Stretch y usa HBITMAP con lo que se puede usar con cualquier formato de compresión. Podéis ver el código en C y delphi en este enlace: Redimensionar una imagen con GDI+ flat API.
Saludos. |
Gracias por compartirlo ^\||/
|
muy interesante el aporte. Hace mucho tiempo usé gdi+ para capturar parte de un form y guardarlo en bmp y me fue imposible porque tenia que capturar la imagen de un componente de visual basic y no se porque me creaba la imagen vacia. Como digo, me volvi loco y no lo consegui. A ver si mañana pruevo tu codigo a ver si me funciona. Una pregunta ¿Tu metodo da mas calidad que el que yo he mandado? Otra cosa, dices que hay que inicializar el gdi+ y finalizarlo al terminar ¿Como haces eso? Y por ultimo ¿No seria mejor crear una clase para hacer mas facil su uso con los metodos de inicializar, dibujar, redimensionar, y destruir?
|
Cita:
Cita:
Código:
// Inicializar GDI+. Cita:
Saludos. |
Amigo tengo un problema, haces un #pragma link "Gdiplus.lib" pero al compilar me dice que no encuentra "Gdiplus.lib" ¿como soluciono eso?
|
Usa IMPLIB.EXE contra gdiplus.dll para crear gdiplus.lib.
También puedes importar dinámicamente las APIs Gdiplus que uses. Saludos. |
Ok ya lo conseguí.
En un rato adjunto un mini proyecto con esto. |
Aqui el enlace: chrome://mega/content/secure.html#!lpNiRRKY!4McmohxnApGh4xX1NYL0cvWoIw7__NQ2Eu-Qa5J4xhA
Ahora tengo varias dudas: 1. La aplicación usa la dll del GDI+ instalado en mi pc ya que no he instalado nada ahora y al añadir el .h y el .lib y sin colocar la dll en el directorio del proyecto ni ningun sitio el programa funciona correctamente. ¿de donde lee la dll? 2. La ruta al .h no está entre comillas y por lo tanto no es leido del directorio del proyecto ¿donde está ese archivo de cabecera? Lo he buscado por los directorios del C++Builder 6 y no lo veo. 3. ¿Como puedo hacer para que, adjuntando al proyecto la dll que tengo funcione usando esa dll para que no dependa de que tengan o no instalado gdi+? ¿me podeis explicar como añado la dll estaticamente usando el .lib y el .h? Yo algunas veces he añadido funciones de forma dinamica sin .lib, ni .h pero me gustaria hacerlo de forma estatica. |
se me olvido una cuarta pregunta:
4. Cuando dibujas, al taparlo con otro form o minimizar o cualquier otra forma que se oculte lo que se dibuja, este desaparece. ¿como se haría para que no desaparezca lo que dibujas con ese metodo? |
gdiplus.dll está aquí: C:\windows\system32\gdiplus.dll. Es parte del S.O. por lo que no se instala. Lo que puedes instalar es el Platform SDK Redistributable: GDI+ para desarrolladores. La dll no la añades de forma estática nunca, aunque existen app de terceros para extraer una librería de enlace estático. Cuando haces un enlace estático con Builder se refiere a las dll correspondientes al mismo Builder y VCL.
El código que te enseñé lo hice con API Flat para evitar el uso de Platform SDK GDI+ y obviar la librería de clases GDI+ para poder compliar en delphi7. Cuando dibujes, hazlo en el canvas de un TImage y no en el del Form. Saludos. |
ok ¿Entonces no tengo que preocuparme de que la dll acompañe al proyecto? En mi pc en esa ruta no hay ningun gdiplus.dll, el que hay es gdi32.dll. Y yo no dibujé en el form, lo hice en un TPanel ¿Si lo hago sobre el canvas de un timage ya no se borra al ocultarlo?
|
No tienes que preocuparte por esa dll.
El problema de dibujar en un control es que no lo haces como respuesta al mensaje WM_PAINT, por ese se borra. Al hacerlo en un TImage, éste ya se encarga de refrescarse a si mismo al procesar ese mensaje. Saludos. |
La franja horaria es GMT +2. Ahora son las 04:07:05. |
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