delphi中Bmp转Jpeg JPG转BMP

delphi中Bmp转Jpeg JPG转BMP

转自

xjq2003的专栏

在此致谢

;----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;