菜鸟想把c:/qq.bmp转换为c:/qq.jpg，如何用delphi实现啊？？？(31分)

菜鸟想把c:/qq.bmp转换为c:/qq.jpg，如何用delphi实现啊？？？

var
b: tbitmap;
j: tjpegimage;
begin
b := tbitmap.create;
b.loadfromfile('c:/qq.bmp');
j := tjpegimage.create;
j.assign(b);
j.savetofile('c:/qq.jpg');
j.free;
b.free;
end;

同意楼上，不过要在Uses中加上JPEG

procedure BMPToJPG(BmpFileName:string);
var
jpeg:TJPEGImage;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
try
bmp.LoadFromFile(BmpFileName);
jpeg:=TJPEGImage.Create;
try
jpeg.Assign(bmp);
jpeg.Compress;
jpeg.SaveToFile(ExtractFilePath(Application.ExeName)+'a.jpg');
finally
jpeg.Free;
end;
finally
bmp.Free;
end;
end;

winexec("rename c:/qq.bmp c:/qq.jpg", 0)

记得加入 use jpeg.

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;

多人接受答案了。