🚀 go-pugleaf

"Sang Leen" <sangleen@hotmail.com> schreef in bericht
news:9fafbb40.0406150809.55e72ff8@posting.google.com...
> I load a Jpge image that is stored in the DB
> and I need to convert it to BMP and assing it to TQRImage.
> How can I do this.
> If I assing it like Jpge the image is not printed.



               procedure TForm1.Button2Click(Sender: TObject);
               var
                 MyJPEG : TJPEGImage;
                 MyBMP  : TBitmap;
               begin
                 MyJPEG := TJPEGImage.Create;
                 with MyJPEG do begin
                   LoadFromFile('YourJpegHere.JPEG');
                   MyBMP := TBitmap.Create;
                   with MyBMP do begin
                     Width := MyJPEG.Width;
                     Height := MyJPEG.Height;
                     Canvas.Draw(0,0,MyJPEG);
                     SaveToFile('YourBmpHere.BMP');
                     Free;
                   end;
                   Free;
                 end;
               end;