FireMonkey跨平台框架下的图片缩放和JPEG编码

在 VCL 底下&＃xff0c;把一个 Bitmap 变成 JPEG&＃xff0c;是采用将 TBitmap 的内容赋值给 TJpegImage 的方式。

在 FireMonkey 底下该怎么做&＃xff1f;

看到论坛有人提问&＃xff0c;上网查了一下资料&＃xff0c;自己写代码测试了一下。以下代码测试通过&＃xff1a;

uses FMX.Surfaces;procedure TForm1.Button1Click(Sender: TObject);
varBmp: TBitmap;Src, Trg: TRectF;NewWidth, NewHeight: Integer;AStream: TFileStream;Surf: TBitmapSurface;
beginif OpenDialog1.Execute thenbeginImage1.Bitmap.LoadFromFile(OpenDialog1.FileName);Src :&＃61; RectF(0, 0, Image1.Bitmap.Width, Image1.Bitmap.Height);//这里缩小一半NewWidth :&＃61; Trunc(Image1.Bitmap.Width / 2);NewHeight :&＃61; Trunc(Image1.Bitmap.Height / 2);Trg :&＃61; RectF(0, 0, NewWidth, NewHeight);Bmp :&＃61; TBitmap.Create;tryBmp.Width :&＃61; NewWidth;Bmp.Height :&＃61; NewHeight;Bmp.Canvas.BeginScene;tryBmp.Canvas.DrawBitmap(Image1.Bitmap, Src, Trg, 1)finallyBmp.Canvas.EndScene;end;Image2.Bitmap.Assign(Bmp);// 保存的文件名带 jpg &＃xff0c;自动压缩为 JPGBmp.SaveToFile(&＃39;D:\testAAA.jpg&＃39;);//保存到 Stream 看看Surf :&＃61; TBitmapSurface.Create;AStream :&＃61; TFileStream.Create(&＃39;D:\testAAABB.jpg&＃39;, fmCreate);trySurf.Assign(Bmp);//这个方法&＃xff0c;通过字符串 .jpg 指定它输出时编码为 jpg&＃xff0c;测试通过。TBitmapCodecManager.SaveToStream(AStream, Surf, &＃39;.jpg&＃39;, nil);finallyAStream.Free;Surf.Free;end;finallyBmp.Free;end;end;
end

总结&＃xff1a;

1. 缩放&＃xff0c;在 VCL 底下采用 Canvas.StretchDraw 方法。这里是直接 DrawBitmap 就可以。

2. 输出为 JPEG 文件&＃xff0c;直接使用 TBitmap.SaveToFile&＃xff0c;它自动根据文件名的后缀决定如何编码。因此也可以输出为 PNG 文件。

3. 输出为 Stream&＃xff0c;TBitmap.SaveToStream 没找到设置输出格式的参数。稍微麻烦一点&＃xff0c;采用 TBitmapCodecManager.SaveToStream 方法&＃xff0c;给出图片格式参数字符串。需要注意到是&＃xff0c;jpg 前面必须加上小点。如果没加&＃xff0c;也不会报错&＃xff0c;但实际输出的是 Bitmpa 图片的内容而不是编码后的 JPEG 的内容。