Описание: Функция конвертирует файл формата 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;
}
Добавил: * IPhone 5S (10 Янв 2017 в 02:10)
Комментарии (4)
Скачать: TEXTAREA | TXT
Онлайн: 51 из 13823
Последний: * NePomnyu
Служба поддержки
* DRAG RACE МОБИЛЬНЫЕ ГОНКИ
* Gix.Su - Магазин скриптов
* Mtop.SU Хороший ТОП-Рейтинг
GEGTOP.RU - Топ рейтинг WAP сайтов! RosTop.net