* Купить рекламу [АКЦИЯ]
* Хостинг от 2$ за 10Гб (домен в подарок)
Описание: Функция конвертирует файл формата 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
Онлайн: 75 из 13718
Последний: * TotalBet
Служба поддержки
* Создай сайт на Fiera.Su
* Gix - Магазин скриптов
GEGTOP.RU - Топ рейтинг WAP сайтов! RosTop.net