Для преобразования изображений из формата JPEG в формат BitMap можно воспользоваться модулем JPEG. Ниже приведена функция на языке программирования Delphi, которая делает такое преобразование. При успешном преобразовании функция возвращает значение True (Истина), при неудаче — False (Ложь):
uses JPEG; ... //преобразование файла fname из формата JPEG в BMP function Jpg2Bmp(JpgFname: TFileName): Boolean; var jpg_obj: TJPEGImage; bmp_obj: TBitmap; BmpFname: TFileName; begin result := false; //создание объекта TJPEGImage jpg_obj := TJPEGImage.Create; try //загрузка файла fname jpg_obj.LoadFromFile(JpgFname); //создание объекта TBitmap bmp_obj := TBitmap.Create; try //загружаем в bmp_obj изображение объекта jpg_obj bmp_obj.Assign(jpg_obj); //имя файла для Битмапа получаем из jpg путем замены расширения на bmp BmpFname := ChangeFileExt(JpgFname, '.bmp'); //сохраняем Bitmap в файл bmp_obj.SaveTofile(BmpFname); finally //освобождаем память под объект bmp_obj bmp_obj.Free end; finally //освобождаем память под объект jpg_obj jpg_obj.Free end; //если все прошло удачно result := true; end;