Cargar imágenes desde archivo en ImageList

[vankul]

Tengo el siguiente código que funciona bien con archivos .bmp pero no con los .jpg, me gustaría que alguien me ayudara:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String dir = "C:";
    if (SelectDirectory("Elige carpeta:","",dir)) {
        FileListBox1->Directory = dir;
        FileListBox1->ItemIndex = 0;
        for (int i = 0; i < FileListBox1->Count; i++) {
            lis->Add(FileListBox1->FileName);
            FileListBox1->ItemIndex++;
        }
        if (lis->Count>0) {
            Graphics::TBitmap* resBmp;
            TJPEGImage *ImagenJpg = new TJPEGImage();
            TListItem *Item;
            String extension;
            for (int i = 0; i < lis->Count; i++) {
                extension = ExtractFileExt(lis->Strings[i]);
                if ((extension.UpperCase()==".JPG")||(extension.UpperCase()==".JPEG")){
                    ImagenJpg->LoadFromFile(lis->Strings[i]);
                    resBmp->Height = ImageList1->Height;
                    resBmp->Width = ImageList1->Width;
                    ImageList1->Masked = false;
                    ImagenJpg->DIBNeeded();
                    resBmp->Assign(ImagenJpg);
                    ImageList1->Add(resBmp,NULL);
                    Item = ListView1->Items->Add();
                    Item->Caption = ExtractFileName(lis->Strings[i]);
                    Item->ImageIndex = i;

                }
                else {
                    if (extension.UpperCase()==".BMP") {
                        resBmp = new Graphics::TBitmap();
                        resBmp->Height = ImageList1->Height;
                        resBmp->Width = ImageList1->Width;
                        ImageList1->Masked = false;
                        resBmp->LoadFromFile(lis->Strings[i]);
                        ImageList1->Add(resBmp,NULL);
                        Item = ListView1->Items->Add();
                        Item->Caption = ExtractFileName(lis->Strings[i]);
                        Item->ImageIndex = i;
                    }
                }
            }
        }
        else {
            ShowMessage("No hay archivos válidos en el directorio.");
        }
    }
}

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

[ecfisa]

Hola vankul.

De este modo me funciona correctamente:

#include <jpeg.hpp>

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 FileListBox1->Directory = "C:\\Prueba\\Imagenes";
 FileListBox1->Mask = "*.BMP;*.JPG;*.JPEG";
 ListView1->SmallImages = ImageList1;
 ListView1->ViewStyle  = vsSmallIcon;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for (int i = 0; i < FileListBox1->Items->Count; i++) {
    TJPEGImage *JPG = new TJPEGImage();
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    TRect R;
    AnsiString filename = FileListBox1->Directory + "\\" +
                          FileListBox1->Items->Strings[i];
    AnsiString name     = ExtractFileName(filename);
    AnsiString ext      = ExtractFileExt(filename).UpperCase();
    R.Left     = 0;
    R.Top      = 0;
    R.Right    = ImageList1->Width;
    R.Bottom   = ImageList1->Height;
    BM->Width  = ImageList1->Width;
    BM->Height = ImageList1->Height;
    try {
      if (ext == ".JPG" || ext == ".JPEG") {
        JPG->LoadFromFile(filename);
        BM->Assign(JPG);
        BM->Canvas->StretchDraw(R, BM);
        ImageList1->Add(BM, NULL);
      }
      if (ext == ".BMP") {
        BM->LoadFromFile(filename);
        ImageList1->Add(BM, NULL);
      }
      ListView1->Items->Add();
      ListView1->Items->Item[ListView1->Items->Count-1]->Caption = name;
      ListView1->Items->Item[ListView1->Items->Count-1]->ImageIndex = i;
    }
    catch(...) {
      MessageBox(Handle,
                 ((AnsiString)("Error leyendo imágen: "+filename)).c_str(),
                 "ERROR",
                 MB_ICONERROR);
    }
    delete JPG;
    delete BM;
  }
}

Saludos

Edito: vankul, cambié el título original "Una ayudita" por uno mas significativo para facilitar las búsquedas.