bmp--->jpg 代码如下,记得加入 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; jpg--->bmp JpegImage:TJPEGImage; BitmapImage:TBitmap; JpegImage:=TJPGEImage.Create(); Bitmap:=TBitmap.Create(); JpegImage.LoadFromFile('D:\test.jpeg'); Bitmap.Assign(JpegImage); Bitmap.SaveToFile('D:\test.bmp'); JpegImage.Free; JpegImage:=nil; BitmapImage.Free; BitmapImage:=nil;
代码如下,记得加入 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; jpg--->bmp
JpegImage:TJPEGImage;
BitmapImage:TBitmap;
JpegImage:=TJPGEImage.Create();
Bitmap:=TBitmap.Create();
JpegImage.LoadFromFile('D:\test.jpeg');
Bitmap.Assign(JpegImage);
Bitmap.SaveToFile('D:\test.bmp');
JpegImage.Free;
JpegImage:=nil;
BitmapImage.Free;
BitmapImage:=nil;