Convert Bmp to Jpeg

 

Add 'JPeg' in the uses of your form

 

Implementation

…………………………

Uses JPEG ;

…………………………

 

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   MyJPEG      : TJPEG../Image ;

   MyBMP       : TBitmap ;

Begin

   MyBMP := TBitmap.Create ;

   With MyBMP Do

   Try

      LoadFromFile ( 'YourBmp.BMP' ) ;

      MyJPEG := TJPEG../Image.Create ;

      With MyJPEG Do

      Begin

         Assign ( MyBMP ) ;

         SaveToFile ( 'YourJpeg.JPEG' ) ;

         Free ;

      End ;

   Finally

      Free ;

   End ;

End ;