| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как запишить JPG файл в BMP формате?

Боян Георгиев ©   (2005-01-31 21:15:00) 

Есть файл map.jpg -> 1.7 mb. Его загружение в програме трает ~5 sec. Его bmp версия имеет размер ~8 mb, но загружается для ~0.3 sec. Как могу создать bmp вариант jpeg изображении в Delphi?

---

dimaxx   (2005-01-31 21:32:00) [1]

...Либо ваще без TBitmap:

var
JPG: TJPEGImage;

...
JPG:=TJPEGImage.Create;
JPG.LoadFromFile('map.jpg');
JPG.Bitmap.SaveToFile('map.bmp');
JPG.Free;
...

---

dimaxx   (2005-01-31 21:31:00) [2]

Через модуль JPEG...

var
 JPG: TJPEGImage;
 BMP: TBitmap;

...
 JPG:=TJPEGImage.Create;
 JPG.LoadFromFile('map.jpg');
 BMP:=TBitmap.Create;
 BMP.Assign(JPG.Bitmap);
 BMP.SaveToFile('map.bmp');
 JPG.Free;
 BMP.Free;
...

---

Наверх