* Купить рекламу
Описание: Функция конвертирует файл формата 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
Онлайн: 15 из 13962
Последний: * shkera43
Web версия
Служба поддержки
* Gix.Su - Магазин скриптов
* Заработок на адалт сайте $
Statok.netRosTop.net