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

Как jpg показать на Canvas   Найти похожие ветки 

← →
Alex_C   (2011-02-04 11:08) [0]

Пытаюсь сконвертировать jpg в bmp, чтобы затем его вывести на канвасе. Делаю как написано в FAQ


procedure JPEGtoBMP(const FileName: TFileName);
var
 jpeg: TJPEGImage;
 bmp:  TBitmap;
begin
 jpeg := TJPEGImage.Create;
 try
   jpeg.CompressionQuality := 100; {Default Value}
   jpeg.LoadFromFile(FileName);
   bmp := TBitmap.Create;
   try
     bmp.Assign(jpeg);
     bmp.SaveTofile(ChangeFileExt(FileName, ".bmp"));
   finally
     bmp.Free
   end;
 finally
   jpeg.Free
 end;
end;


Однако при выводе полученного BitMap"а на канву происходит сильное изменение оттенков картинки. Как этого избежать?

---

← →
MBo ©   (2011-02-04 11:28) [1]

Чтобы вывести jpg, его не надо преобразовывать. TCanvas.Draw разберется.

Хотя преобразование может понадобиться в некоторых случаях - например, при загрузке в TImage с последующим попиксельным доступом

(при чтении jpg ни к чему CompressionQuality трогать)

---

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

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



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