FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
leer imagenes jpg dentro de una carpeta
hola amigos del foro como estan, estoy realizando un sistema de digitalizacion y requiero leer n imaganes con formato .jpg que se encuentran en una carpeta determinada carpeta en mi formulario delphi, para leer una imagen no tengo problemas, pero lo que requiero es leer todas las imagenes que contenga la carpeta, por favor si alguien ha hecho algo parecido le agradeceria mucho su ayuda.
gracias de antemano... |
#2
|
||||
|
||||
Hola ingmichel.
Para leer los archivos .JPG te podés valer de las funciones FindFirst y FindNext. Como supongo que querrás almacener la ruta y el nombre de cada imágen, creo que usar un TStrings es lo indicado.
Y para ponerte un ejemplo que sea funcional, uso un TScrollBox donde voy a hubicar las imágenes cuyos nombres están almacenados en la variable de tipo TStrings. Al finalizar, también deberías eliminar los TImage que se han creado. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
muchisimas gracias ecfisa
hola ecfisa muchisimas gracias por tu respuesta, me haz salvado la vida, probe tu codigo y funciono perfecto, solo una inquietud como elimino los timage que se crean con el bucle ?
|
#4
|
||||
|
||||
Hola ingmichel.
Una forma podría ser mediante un TObjectList:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 01-06-2011 a las 06:38:31. Razón: Remarcar relevantes en negrita |
#5
|
|||
|
|||
gracias
muchas gracias ecfisa por tu respuesta. dios te bendiga.
saludos. |
#6
|
|||
|
|||
saludos ecfisa
saludos ecfisa como estas, espero que bien. bueno la razon de este mensaje es que tengo un pequeño inconveniente, resulta que me pidieron que las imagenes no se muestren todas de una sola vez, si no que se muestren una por una y tener dos botones(Siguiente y anterior) para ir navegando por las imagenes, mi duda es, como puedo modificar el codigo k me facilitaste para lograrlo ? y ademas que el componente timage adopte el ancho y el alto de la imagen que se esta leyendo ?
por favor ayudame... gracias de antemano. |
#7
|
|||
|
|||
Hola.
Aunque no estoy seguro, creo que la forma en la que lo resolvió ecfisa no servirá para las nuevas condiciones que has añadido en tu consulta. Te propongo una estrategia alternativa utilizando un TFileListBox, 2 botones, 1 TOpenPictureDialog y 1 TImage. Este es el código. Lo he probado en Delphi 7 y va bien. Creo que resuelve todas las condiciones que necesitas.
Usé el TOpenPictureDialog porque supuse que era posible que la carpeta con los archivos JPG puede ser cambiar. En el TFileListBox, le pones Visible en False para que no lo vean los usuarios. Espero que te sirva. Saludos Última edición por rrf fecha: 04-06-2011 a las 18:15:15. Razón: añadir comentario |
#8
|
||||
|
||||
Hola.
Otra alternativa es cargar todas las imágenes de una carpeta en algun punto de tu código e ir mostrándolas. En el código de ejemplo que te adjunto se cargan de forma fija en el evento OnShow, pero podrías elegir la carpeta por otro medio.
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 04-06-2011 a las 19:33:49. |
#9
|
|||
|
|||
muchas gracias
muchas gracias colegas por su ayuda, les comento que esta tarde investigando un poco en google encontre un componente llamado TImageen que es mucho mas potente que el Ttimage nativo de delphi, utilizando la funcion leerimagen de ecfisa para cargar las imagenes, el control tImage en view las carga tal cual yo lo requero y en uno de los ejemplos del componente me presenta las opciones de navegacion asi como tambien que las imagenes se carguen con su tamaño original, no se si ustedes estan de acuerdo con el uso de componentes de terceros pero veo k este me ha facilitado la vida, bueno muchas gracias y cualquier cosa vuelvo otra vez con mis dudas.
saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Leer todos los ficheros de una carpeta | VRO | Varios | 9 | 14-12-2021 11:26:27 |
Borrar archivos dentro de carpeta | ØnLy | Varios | 1 | 23-11-2010 06:36:55 |
Leer o modificar los permisos de una carpeta | radge | API de Windows | 1 | 04-06-2010 16:47:03 |
listar archivos jpg dentro de una carpeta con subcarpetas | JuanErasmo | API de Windows | 6 | 06-12-2006 22:52:49 |
adjuntar el archivo que esta dentro una carpeta | kinteam1 | Internet | 1 | 11-10-2005 22:32:01 |
|