Delphi BMP-JPG

;----Bmp转Jpeg-----

 

uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);

Var

Jpg : TJpegImage;

BMP : TBitMap ;

begin

Jpg :=TJpegImage.Create;

BMP :=TBitmap.Create;

BMP.LoadFromFile('H:/Avi_图_Wav/跳.bmp');

Jpg.Assign(BMP);

Jpg.SaveToFile('H:/Avi_图_Wav/跳.Jpg' );

BMP.Free ;

Jpg.Free;

end;
//---------------JPG转BMP-----------------

 

 procedure TForm1.Button1Click(Sender: TObject);

 var

   MyJPEG : TJPEGImage;

   MyBMP : TBitmap;

 begin

   MyJPEG := TJPEGImage.Create;

   with MyJPEG do begin

     LoadFromFile('UwJpegHier.JPEG');

     MyBMP := TBitmap.Create;

     with MyBMP do begin

       Width := MyJPEG.Width;

       Height := MyJPEG.Height;

       Canvas.Draw(0,0,MyJPEG);

       SaveToFile('UwBmpHier.BMP');

       Free;

     end;

     Free;

   end;

 end;

===========================================================

//JPEG and bitmaps 

var

  MyJpeg: TJpegImage;

  Image1: TImage;

begin

  Image1:= TImage.Create;

  MyJpeg:= TJpegImage.Create;

  Image1.LoadFromFile('TestImage.BMP');  // Load the Bitmap from a file

  MyJpeg.Assign(Image1.Picture.Bitmap);  // Assign the BitMap to MyJpeg

object

  MyJpeg.SaveToFile('MyJPEGImage.JPG'); // Save the JPEG to Disk

end;

----------------------------------------

 jpg 转换成 bmp 

...convert jpg to bmp ?

Var  

  jpeg: TJPEGImage;  

  bmp: TBitmap;  

Begin  

  jpeg:= TJPEGImage.Create;  

  try  

    jpeg.LoadFromFile( filename );  

    bmp:= TBitmap.Create;  

    try  

      bmp.Assign( jpeg );  

      bmp.SaveTofile( ChangeFileExt( filename, '.BMP' ));  

    finally  

      bmp.free  

    end;  

  finally  

    jpeg.free  

  end;  

end; 

-------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);

var

  bmp : TBitmap;

  jpg : TJpegImage;

begin

  bmp := TBitmap.Create;

  jpg := TJpegImage.Create;

  jpg.LoadFromFile ( 'G:/VCL/Menu_Directory/彩色面版/RIVER.JPG ' );

   bmp.Assign( Jpg);

   bmp.SaveToFile ( 'G:/VCL/Menu_Directory/彩色面版/RIVER.bmp' );

  jpg.Free;

  bmp.Free;

end; 

---------------------------------

convert jpg to bmp ? 

Var jpeg: TJPEGImage; 

  bmp: TBitmap; 

Begin 

  jpeg:= TJPEGImage.Create; 

  try jpeg.LoadFromFile( filename ); 

    bmp:= TBitmap.Create; 

    try bmp.Assign( jpeg ); 

      bmp.SaveTofile( ChangeFileExt( filename, '.BMP' )); 

    finally 

      bmp.free 

    end; finally 

     jpeg.free 

  end; 

end;