FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Recorrer archivos de un directorio y mostrar graficos en miniaturas
Hola a todos, tengo la siguiente pregunta. alguna recomendacion de como recorrer un arbol de directorios de la PC y que en un panel derecho me vaya mostrando los archivos JPEG o BMP que contenga el directorio en forma de imagenes en miniatura. lo necesitaria con componentes estandar de la paleta de Delphi
Gracias |
#2
|
||||
|
||||
Hola cmfab.
En tu form poné un TDirectoryListBox (pestaña Win31) y un TScrollBox (pestaña Aditional).
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Hola a todos.
Ecfisa he probado este codigo y va de fábula, hace tiempo que quería hacer algo parecido para una secuencia de imagenes. Mi duda es si en vez de buscar los datos de un directorio, se pueden sacar las imagenes directamente de una tabla para que solo enseñe las del codigo en pantalla. Me explico, tengo una base de datos con fotos de camiones de bomberos y me gustaria poder visualizar solo las del camion que estoy viendo en este momento, luego que al cambiar de registro me cargue las del nuevo registro y ya rizando el rizo que al hacer click sobre la miniatura me abra la ampliación. Actualmente hago un savetostream para guardar y un loadfromstream para cargar. Muchas gracias Josep |
#4
|
||||
|
||||
Hola jafera.
Si no te interpreto mal, me parece que en tu caso es muchisimo más sencillo. Creo que podrías usar un TDBControlGrid con su propiedad DataSource asociada al TDataSource correspondiente a la tabla. Luego agregas en el TDBControlGrid un TDBImage y en su propiedad DataField seleccionas el campo que corresponde a la imágen. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#5
|
|||
|
|||
justo lo que necesitaba, gracias por todas la srespuestas y por su tiempo
|
#6
|
||||
|
||||
Gracias Ecfisa.
Tu proposición funciona bien, solo que tengo un pequeño problema, al asignarle la imagen el TDBImage, me dice que bitmap image is not valid. He probado con un TImage a secas asignandole el valor y funciona, solo que me muestra una sola foto y no toda la hilera
Gracias de nuevo Josep |
#7
|
|||
|
|||
Hola ecfisa,
Como siempre tus respuestas son muy interesantes. Mi pregunta es, ¿cómo se haria para al hacer click sobre una de esas miniaturas que se viese a tamaño de pantalla completa?. Gracias. |
#8
|
|||
|
|||
Perdona ecfisa, quiza deberia aclarar que yo me refiero al codigo que pusiste en la primera respuesta de este post, yo necesito algo sencillo, sin tablas ni base de datos ni nada.
Saludos |
#9
|
||||
|
||||
Hola.
Aunque le preguntas a ecfisa y como le tengo algo de manía te voy a contestar yo. Esto hay varías formas de hacerlo, una fácil es abrirlo con el visor que tenga predeterminado windows para ese tipo de imágenes y sería tal que así:
ten en cuenta que debes de añadir en el uses la unidad ShellApi Saludos
__________________
Be water my friend. |
#10
|
||||
|
||||
Hola MARIA_MAR.
Como dice mi compañero de penurias maritales, utilizando el visor de imágenes asociado es la forma más simple. Pero si deseas hacerlo sobre el código anterior, tendrías que agregarle el evento OnClick a la imágen creada:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Recorrer directorio | Pedro-Juan | Conexión con bases de datos | 4 | 09-02-2011 18:50:43 |
Mostrar ficheros de un directorio y subdirectoros | chinchan | C++ Builder | 3 | 11-01-2009 22:26:49 |
Mostrar directorio con ShellExecute | MON___ | API de Windows | 5 | 26-03-2008 13:07:00 |
Borrar archivos de un directorio | nelem | Internet | 6 | 29-10-2007 16:04:00 |
Mostrar un directorio con el explorador de archivos de windows | Jan_polero | API de Windows | 2 | 11-01-2005 18:40:21 |
|