请教，如何将BMP文件转换成JPG文件，最好能给出代码片段，先谢谢各位

Question

用image控件就可以实现！
image1.picture.loadformfile('c:\1.bmp');
image1.Picture.SaveToFile('c:\1.jpg');

Answer 1

var myjpeg:tjpegimage;
    image1:timage;
begin
image1:=timage.create;
myjpeg:=tjpegimage.create;
image1.loadfromfile('testimage.bmp');
myjpeg.assign(image1.picture.bitmap);
object
myjpeg.savetofile('myjpegimage.jpg');
end;

Answer 2

var
  MyJpeg: TJpegImage;
  Image1: TImage;
begin
  Image1:= TImage.Create(self);
  MyJpeg:= TJpegImage.Create;
  Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP');  // Load the Bitmap from a file
  MyJpeg.Assign(Image1.Picture.Bitmap);  // Assign the BitMap to MyJpeg object
  MyJpeg.CompressionQuality:=StrToInt('75');
  MyJpeg.Compress;
  MyJpeg.SaveToFile('c:\windows\desktop\test.JPG'); // Save the JPEG to Disk
end;