leer imagenes jpg dentro de una carpeta

[ingmichel]

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...

[ecfisa]

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.

Código Delphi [-]
...
uses JPeg, ExtCtrls;

procedure LeerJPGS(const Ruta: string; Nombres: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Ruta+'\*.JPG',faArchive, SR) = 0 then
  begin
    repeat
      Nombres.Add(Ruta+'\'+SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

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.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Nombres: TStrings;
  Img: TImage;
  i: Integer;
begin
  Nombres:= TStringList.Create;
  try
    LeerJPGS('C:\Users\Tu_Nombre_De_Usuario\Pictures',Nombres);
    for i:= 0 to Nombres.Count -1 do
    begin
      Img:= TImage.Create(Self);
      Img.Picture.LoadFromFile(Nombres[i]);
      Img.Height:= 150;
      Img.Width:= 300;
      Img.Top:= i * 150 + 10;
      Img.Stretch:= True;
      Img.Parent:=ScrollBox1;
    end;
  finally
    Nombres.Free;
  end;
end;

Al finalizar, también deberías eliminar los TImage que se han creado.

Saludos.

[ingmichel]

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 ?

[ecfisa]

Hola ingmichel.

Una forma podría ser mediante un TObjectList:

Código Delphi [-]
...

uses JPeg, ExtCtrls, Contnrs;

var
  ObjList: TObjectList;

...

procedure TForm1.btnCargarImagenesClick(Sender: TObject);
var
  Nombres: TStrings;
  Img: TImage;
  i: Integer;
begin
  if not Assigned(ObjList) then
  begin
    ObjList:= TObjectList.Create;
    Nombres:= TStringList.Create;
    try
      LeerJPGS('C:\Users\Oz\Pictures',Nombres);
      for i:= 0 to Nombres.Count -1 do
      begin
        Img:= TImage.Create(Self);
        ObjList.Add(Img);
        with TImage(ObjList[i]) do
        begin
          Picture.LoadFromFile(Nombres[i]);
          Height:= 150;
          Width:= 300;
          Top:= i * 150 + 10;
          Stretch:= True;
          Parent:= ScrollBox1;
        end;     
      end;
    finally
      Nombres.Free;
    end;
  end;
end;

...

procedure TForm1.btnLiberarImagenesClick(Sender: TObject);
begin
  if Assigned(ObjList) then
    ObjList.Free;
end;

Saludos.

[ingmichel]

muchas gracias ecfisa por tu respuesta. dios te bendiga.


saludos.

[ingmichel]

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.