Convert JpegToBmp

 

Implementation

……………….

Uses Jpeg ;

……………….

 

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   MyJPEG      : TJPEG../Image ;

   MyBMP       : TBitmap ;

Begin

   MyJPEG := TJPEG../Image.Create ;

   With MyJPEG Do

   Begin

      LoadFromFile ( 'YourJpeg.JPEG' ) ;

      MyBMP := TBitmap.Create ;

      With MyBMP Do

      Begin

         Width := MyJPEG.Width ;

         Height := MyJPEG.Height ;

         Canvas.Draw ( 0 , 0 , MyJPEG ) ;

         SaveToFile ( 'YourBmp.BMP' ) ;

         Free ;

      End ;

      Free ;

   End ;

End ;