Visualizar las imagenes que tengo en una carpeta

[ingabraham]

Hola tengo la sgte idea, esto lo necesito para un programa.

tengo en una carpeta documentos escaneados de hojas de vidas, que los tengo que relacionar con cada empleado.

hay una carpeta donde estan todas esas imagenes escaneadas,,
quiero ir viendo cada imagen
utilizando un image1 y un navegador para ir pasando las imagenes, y ala vez me valla mostrando la ruta de la imagen en un edit.


gracias por su colaboración.

no tengo idea de como hacer esto, se los agradezco.

[ecfisa]

Hola.

Te hago un ejemplo sencillo con tres elementos.

. TDirectoryListBox. (Paleta Win 31)
. TFileListBox. (Paleta Win 31)
. TImage.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ExtCtrls, DBCtrls, DB, DBClient;

type
  TForm1 = class(TForm)
    Image1: TImage;
    DirectoryListBox: TDirectoryListBox;
    FileListBox: TFileListBox;
    procedure FormCreate(Sender: TObject);
    procedure DirectoryListBoxChange(Sender: TObject);
    procedure FileListBoxDblClick(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses Jpeg;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DirectoryListBox.Directory:= 'C:\';
  FileListBox.Mask:= '*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf';
  Image1.Stretch:= True;
end;

procedure TForm1.DirectoryListBoxChange(Sender: TObject);
begin
  FileListBox.Directory:= DirectoryListBox.Directory;
end;

procedure TForm1.FileListBoxDblClick(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(FileListBox.FileName);
end;
end.

El código muestra las imágenes en el TImage, cuando hacés doble click sobre los nombres de archivos en el TFileListBox. En cuanto al navegador, no te será dificil adaptarlo reformando la estructura del programa.


Saludos.

[[Caral]]

Hola
Aparte de lo dicho por el maestro ecfisa aqui dejo un ejemplo usando una funcion que recorre todo el directorio buscando los archivos.
En este caso los puse BMP pero se puede con otros.
El ejemplo muestra la lista de todos en un ListBox y dando click muestra las fotos ademas de la direccion en un label.
Saludos

[ecfisa]

Empezado por Caral

Hola
Aparte de lo dicho por el maestro ecfisa aqui dejo un ejemplo usando una funcion que recorre todo el directorio buscando los archivos.
Saludos

Gracias mi amigo.

'Tanto mas grande el elogio cuanto mas grande el que lo da...'

Saludos.

[[Caral]]

Hola
Amigo solo digo la verdad, eres un Maestro, por lo menos para mi.
Saludos

[ecfisa]

Es por eso que no puedo dejar de agradecer tu expresión. Sobre todo sabiendo que viene de un colega cuyos conocimientos y experiencia me superan ampliamente. Aunque siempre insistas en presentarte como un 'novato'

Saludos.

[ingabraham]

Empezado por Caral

Hola
Aparte de lo dicho por el maestro ecfisa aqui dejo un ejemplo usando una funcion que recorre todo el directorio buscando los archivos.
En este caso los puse BMP pero se puede con otros.
El ejemplo muestra la lista de todos en un ListBox y dando click muestra las fotos ademas de la direccion en un label.
Saludos

el archivo esta dañado,. y no tiene nada al descomprimirlo

[bosster_018]

Empezado por ingabraham

el archivo esta dañado,. y no tiene nada al descomprimirlo

Prueba descargando el archivo directamente desde tu navegador sin utilizar ningun Gestor de descarga aparte...

Acabo de descargarlo y funciona muy bien... (Inclusive e guardado este ejemplo en mi carpetita de ejemplos Delphi )

[[Caral]]

Hola

Empezado por ingabraham

el archivo esta dañado,. y no tiene nada al descomprimirlo

No se que podra ser, he descargado el archivo para probar y no tiene ningun problema, esta completo.
Saludos

[pato89xd]

hola, quisiera hacer lo mismo pero en varias carpetas, y de ser posible que hubiesen alrededor de 12 timagebox para ver 12 imagenes a la vez, y que al recorrer la lista solo muestre una imagen distinta de cada carpeta en cada una de las timagebox, se necesitan hacer 12 o con una solo instancia se puede lograr?, por cierto, soy nuevo en deplhi, saludos =)