Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.05.08;
Скачать: 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 вся ветка

Текущий архив: 2011.05.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.007 c
1-1253636485
alexrayne
2009-09-22 20:21
2011.05.08
как вложить компонент в ячейку DrawGrid?


15-1295617274
Knight
2011-01-21 16:41
2011.05.08
План счетов применительно к ИТ


11-1232633546
Dy1
2009-01-22 17:12
2011.05.08
проблема с ConsoleApp


2-1296050681
ZV
2011-01-26 17:04
2011.05.08
Преобразование Byte в Word?


15-1296128732
usrg
2011-01-27 14:45
2011.05.08
Microsoft Visual Studio 2010