bmp转换成jpg?(100分)

function BmpToJpg(var Bmpfile,Jpgfile:string);boolean;
var
bmp:Tbitmap;
jpg:Tjpegiamge;//可能....你查一下DELPHI5帮助。
ImageMemo:Tmemorystream;
begin
bmp:=Tbitmap.create;
jpg:=TjpegImage.create;
ImageMemo:=Tmemorystream.create;
try
bmp.loadfromfile(Bmpfile);
bmp.savetostream(ImageMemo);
jpg.loadfrom(ImageMemo);
jpg.savetofile(Jpgfile);
finally
bmp.free;
jpg.free;
imagememo.free;
end;
result := true;
end;

不用那么麻烦。
记得在Uses部分加上：Jpeg.
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
jpg:TJpegImage;
begin
if od.Execute then
//od是OpenDialog
begin
bmp:=TBitmap.Create;
jpg:=TJpegImage.Create;
try
bmp.LoadFromFile(od.FileName);
jpg.Assign(bmp);
jpg.SaveToFile('d:/temp/test.jpg');
finally
bmp.Free;
jpg.Free;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
//必须加上JPEG到Uses单元
var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin

MyBMP := TBitmap.Create;
with MyBMPdo

try
LoadFromFile('e:/aa.BMP');

MyJPEG := TJPEGImage.Create;
with MyJPEGdo
begin

Assign(MyBMP);
CompressionQuality:=10;
//压缩比例
Compress;
SaveToFile('e:/aa.JPEG');//保存路径……
Free;
end;

finally
Free;
end;

end;

来完了！

我想要他的源
文件snoopy.wl@yeah.net

多人接受答案了。