Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];

Вниз

Конвертация JPEG в Bitmap   Найти похожие ветки 

← →
avsam   (2005-09-07 17:15) [0]

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

---

← →
Lamer@fools.ua ©   (2005-09-07 17:22) [1]

Bmp.Assign(Jpg);

?

---

← →
PZ   (2005-09-07 17:53) [2]

Пример из 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;  

---

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

Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];

Наверх

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