Скачать: CL | DM;

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

← →
Боян Георгиев   (2005-01-31 21:15) [0]

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

---

← →
dimaxx ©   (2005-01-31 21:31) [1]

Через модуль 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;
...

---

← →
dimaxx ©   (2005-01-31 21:32) [2]

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

var
JPG: TJPEGImage;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.093 c