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

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

Конвертация JPEG в Bitmap [D6, WinXP]

avsam ©   (2005-09-07 17:15:00) 

Как сконвертировать JPEG в Bitmap?
Точнее, нужно в QuickReport показать JPEG-файл.
Для этого использую TQRImage. Но он принимает только BMP.
Подскажет кто-нибудь что-то?

---

PZ   (2005-09-07 17:53:00) [1]

Пример из Delphi Russian Knowledge Base:

uses  
 JPEG;  

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;  

---

Lamer@fools.ua   (2005-09-07 17:22:00) [2]

Bmp.Assign(Jpg);

?

---

Наверх