bmp转jpg

Question

delphi自带的例程里面有一个BMP转jpg的程序， 
把当前目录下的.bmp存入一个TList或数组里面，再作批量转换呀。

Answer 1

记得加入 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;

Answer 2

procedure TForm1.Button1Click(Sender: TObject); 
var 
TempJPEG : TJPEGImage; 
TempBMP : TBitmap; 
begin 
TempBMP := TBitmap.Create; 
with TempBMP do 
try 
LoadFromFile(f:\temp.bmp); //你的图片位置 
TempJPEG := TJPEGImage.Create; 
with TempJPEG do begin 
Assign(TempBMP); 
CompressionQuality:=10; //压缩比例 
Compress; 
SaveToFile('e:\Temp01.JPEG');//保存路径…… 
Free; 
end; 
finally 
Free; 
end; 
end;
你不妨看看

Answer 3

cg1120(代码最优化) 到这里来看看，再帮我解决一个问题。谢谢。。http://www.csdn.net/expert/topic/686/686060.xml?temp=.8025171

Answer 4

我的意思是如何进行批量的bmp转jpg呀，可以给我代码吗，谢谢！