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;