Функция конвертирует файл формата jpeg в bmp.

                        
bool JPEG2BMP(AnsiString FileName)

{

    TJPEGImage        *jpg = new TJPEGImage;

    Graphics::TBitmap *bmp = new Graphics::TBitmap;

    bool ok = true; // Маркер хорошего поведения.

 

    try {

        jpg->CompressionQuality = 100; // Качество сжатия.

        jpg->LoadFromFile(FileName);   // Загружаем jpeg.

        try {

            bmp->Assign(jpg);          // Переносим данные в bmp.

            bmp->SaveToFile(ChangeFileExt(FileName, ".bmp"));

        } catch (...) {

            ok = false;

        }

    } catch (...) {

        ok = false;

    }

    jpg->Free();

    bmp->Free();

    return ok;

}