回顾BMP转JPG

uses jpeg

procedure TForm1.Button1Click(Sender: TObject);
var
   myjpeg:tjpegImage;
   myBmp:Tbitmap;
begin
 myBmp:=tbitmap.Create;
 myBmp.LoadFromFile('C:\Documents and Settings\111\桌面\练习\1.bmp');
 myjpeg:=tjpegimage.Create;
 myjpeg.Assign(mybmp);
 myjpeg.CompressionQuality:=20;//转化的压缩率，越大效果越好
 myjpeg.Compress;
 myjpeg.SaveToFile('C:\Documents and Settings\111\桌面\练习\1.jpg');
 myjpeg.Free;
 mybmp.Free;
end;

其它格式的转为BMP

image1.picture.loadfromfile(fileName);

var

  mebmp:timage;

try

  mebmp:=timage.create(application);

 mebmp.picutre.bitmap.assign(image1.picture.graphic);

  mebmp.picutre.savetofile(filename);

image1.refresh;

finally

   freeandnil(mebmp);

end;