请问，怎么把JPG图转成BMP的，怎么把BMP转成JPG的呢，要代码

Question

 //uses Jpeg;
 procedure BmpToJpeg(BmpFilePath,JpegFilePath:String);
 var Bmp:TBitMap;  Jpeg:TJpegImage;
 begin
     try
       Bmp:=TBitMap.Create; Jpeg:=TJpegImage.Create;
       Bmp.LoadFromFile(BmpFilePath);
       Jpeg.CompressionQuality:=75;
       Jpeg.Assign(Bmp);
       Jpeg.SaveToFile(JpegFilePath);
     finally
       Bmp.free; Jpeg.Free;
     end;
 end; procedure JpegToBmp(JpegFilePath,BmpFilePath:String);
 var Bmp:TBitMap;  Jpeg:TJpegImage;
 begin
     try
       Bmp:=TBitMap.Create; Jpeg:=TJpegImage.Create;
       Jpeg.LoadFromFile(JpegFilePath);
       Bmp.Assign(Jpeg);
       Bmp.SaveToFile(BmpFilePath);
     finally
       Bmp.free; Jpeg.Free;
     end;
 end;

Answer 1

代码我没有，不过我有bmp和jpg的格式文档，如果你要的话，我发给你

Answer 2

BMP to JPG uses jpeg;  procedure TForm1.Button1Click(Sender: TObject);  
var   
  bmp : TImage;  
  jpg : TJpegImage;  
begin  
  bmp := TImage.Create(nil);  
  jpg := TJpegImage.Create;  
  bmp.picture.bitmap.LoadFromFile ( 'c:\picture.bmp' );  
  jpg.Assign( bmp.picture.bitmap );  
  // Here you can set the jpg object's properties as compression, size and more  
  jpg.SaveToFile ( 'c:\picture.jpg' );  
  jpg.Free;  
  bmp.Free;  
end;  jpg to bmpVar  
  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;