FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Unir dos o más imágenes
Hola
Bueno, no sabía que título poner a este tema, pues buscando en el foro he encontrado que ya se había tratado esto de unir 2 o más imágenes en forma lineal y hacer una sola, en este hilo tocan el tema: http://www.clubdelphi.com/foros/show...=unir+imagenes Y bueno, el problema es que consume mucha memória y delphi creo qu eno puede manejar imágenes muy grandes. Ahora mi problema o más bien lo que quiero hacer es poder unir 4 imágenes o más, pero en forma de tablero, osea si tengo las imágenes 0,0 - 0,1 - 1,0 - 1,1, lo que quisiera hacer es un cuadrado de 2x2 con las 4 imágenes, y lo mismo si tengo más imáganes, no siempre tendrá que ser un cuadrado, puede ser un rectángulo, osea una sola imágen de 2x3 por ejemplo, no se como manipular imáganes en delphi, pero bueno, tendré que aprender, al parecer es crear un Timage del tamaño del total de todo el ancho x largo de la suma de las imágenes de ahí ya no sé qué propiedads tendrá el canvas para esto.. y bueno, a ver si alguien me puede ayudar con esto, por cierto, las imágenes son .jpg y quisiera guardar el resultado en el mismo formato, ahora bien, como estoy tratando con múuuchas imágenes me imagino que el resultado final será bastante grande. Saludos! |
#2
|
||||
|
||||
En mi página web hay un ejemplo justo de lo contrario, trocear una imagen en N dividiendo la inicial en forma de tablero. Ya se que no es exactamente lo mismo, pero creo que si revisas el código te pueda dar la idea de cómo hacerlo.
Creo que la idea es muy similar, y las herramientas paa conseguirlo, las mismas. En una, se divide el canvas y se guardan las partes, en el otro (el tuyo), se trata de crear un canvas más grande e ir añadiendo los trozos. Un saludo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
Hola
Pues he bajado el ejemplo y poco o nada le entiendo jeje, primero tengo una duda, ¿por que siempre trabajan con mapa de bits (.bmp)? y no con un jpg o png ? Bueno, lo que no se muy bien como hacer es a la hora de crear mi Timage, de que tamaño lo crearía ? de la suma de todos los lados por anchos de las imágenes a unir ?? O iría agrandando de acuerdo a lo que necesite ? ya que como comenté antes, la imágen resultante puede ser _muy_ grande.. por cierto, hasta cuanto de tamaño puedo crear una imágen en delphi ? ya que había pensando que si se necesita más grande, pues que se creen 2 o 4, dependiendo del máximo soportado por delphi Saludos! |
#4
|
||||
|
||||
Cita:
Entre otras cosas, porque el ejemplo es antiguo y Delphi sólo soporta PNG desde la última versión. En cuanto a JPEG supongo que se podrá hacer sin problemas. Cita:
Cita:
No se a qué te refieres con muy grande. Supongo que los límites vienen dados por la memoria; De todas formas cualquier tratamiento con imágenes grandes va a ser lento y tedioso. Das pocas explicaciones de qué vas a hacer luego con esa imagen tan grande, pero yo optaría por no trabajar con imágenes gigantescas, sino con imágenes más pequeñas que luego combinas para simuñar una más grande.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
||||
|
||||
Hola
Bueno, me a quedado todo claro, y tienes razón en eso de ir haciendo más grande las dimenciones del Timage, mejor lo hago a la primera, y si, si conozco el tamaño que tendrá al final. Ahora lo que intento hacer es esto: 1.- .Crear una clase derivada de Timage (la cual contendrá todo el tablero) 2.- Asignarle el tamaño de si ancho y alto (suma de todas las dimenciones de imágenes pequeñas) 3.- Crear otra clase derivada de Timage (la cual contendrá la imágen pequeña) 4.- Cargo la primera imágen pequeña 5.- Ahora la copiaría a la esquina superior izquiera de Timage grande (Cómo hago esto??) 6.- Lo mismo que 5, pero abajo de la primera 7.- ahora a la derecha y por último abajo de la imágen de la derecha Bueno, esto suponiendo que tengo 4 imágenes y que para unirlas tendría que seguir esto: 0,0 - 1,0 0,1 - 1,1 So tendría de 3x3 pues así: 0,0 - 1,0 - 2, 0 0,1 - 1,1 - 2, 1 0,2 - 1,2 - 3, 2 Bueno, creo que la lógica la sé, pero lo que no sé es que funciones, propiedades usar para copiar, pegar de un Timage a otro Luego supongo que con 2 bucles anidados solucionaría el problema A ver si alguien me puede guiar con un poco de código, desde ya muchas gracias Saludos! |
#6
|
||||
|
||||
Cita:
Debes Copiar un TCanvas (n directamente el TImage) sobre otro (cosa que hay en el ejemplo). TRabajas con TImage, pero para copiar/pegar porciones, lo haces con la propiedad Canvas del TImage.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#7
|
||||
|
||||
Tal vez con un ejemplillo quede más claro.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
||||
|
||||
Hola
Bueno, lo que hice hasta el momento es esto:
Al parecer estoy aplicando las funciones de copiar de Canvas debería estar solucionado, pero ¿Cuales son esas propiedades/funciones ? EDIT: Bueno, mientras escribía ya el señor Neftali había puesto 2 post, joer xD ya me bajé el ejemplo y estoy probando y al parecer solo tengo que incorportarlo en lo que hice, claro, si eso estará bien, cosa que no lo creo jeje Saludos! Última edición por BlackDaemon fecha: 02-03-2009 a las 17:00:43. Razón: Mi conexión es más lenta que la de Neftali xD |
#9
|
||||
|
||||
Código:
Razón: Mi conexión es más lenta que la de Neftali xD Tus dedos son más lentos que los de Neftalí....
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#10
|
||||
|
||||
Hola
Le cuento que su ejemplo me a resultado muy útil, creo que ya lo tengo hecho, aunque no sé, siempre pienso que lo hago de mal forma y por eso pegaré aquí el código a ver que opinan los maestros y así aprender de ustedes, esto es para unir imágenes como lo había explicado en los anteriores post, a ver si a más de uno le sirve:
Ahora quisiera saber cómo hacer lo mismo pero con imágenes jpg.. y luego guardarlo con el formato que yo quiera. para que funcione se necesitan 4 imágenes de 50 x 50 llamadas, 00.bmp, 01, 10, 11.bmp. así pegará primero 00, luego abajo el 01, luego arriba a la derecha el 10, y abajo el 11, igual servirá para más de 4 imágenes, solo hay que modificar los valores de x , y ¿Qué les parece? ¿Cómo podría mejorarla? Saludos! |
#11
|
||||
|
||||
Hola
bueno, yo mismo me responderá a la pregunta de como hacer para que funcione con sun jpg, lo que tenemos que usas son las funciones Draw o StretchDraw y no CopyRec que según he leido solo sirve si tienes cargado un .bmp, como es el caso, por eso si quería poner una jpg me daba una excepción. Saludos! |
#12
|
||||
|
||||
Creo que esta correcto. Me refiero que básicamente hace lo que tiene que hacer y no veo grandes mejoras.
Al final siempre puedes aplicar cambios a la imagen, ya sea de formato, para grabarlo en otro, cambios de tamaño, efectos,....
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#13
|
||||
|
||||
Hola
Bueno, usando Draw he simplificado un poco el código, ya que no uso tantas variables como arr, aba, der, izq, tampoco esto ARect : TRect; Solo le doy la pocición de X, Y y listo, al menos parece más fácil. pero tengo una duda, en este código:
Para qué serviría R.Left, R.Top, etc? supuestamente para la posición de donde se copiará la nueva imágen, verdad? Pero entonces qué es 100, 100 ? No es eso la nueva posición ? Saludos! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Unir dos pdf | nelem | Internet | 4 | 11-02-2009 14:03:07 |
Unidad de Delphi para crear imágenes ISO de DVDs | ISEKO | Varios | 3 | 17-10-2008 15:39:30 |
¿Cómo puedo poner imágenes en mis mensajes en el foro? | Paulao | Varios | 4 | 22-08-2008 19:33:30 |
Unir tres qry | alcides | SQL | 6 | 11-07-2005 17:34:33 |
Unir Columnas | vtdeleon | SQL | 4 | 15-06-2005 00:34:49 |
|