【例子介绍】delphi USB-Camera
关于delphi如何减小JPG文件的大小?
几天前,我问了这个问题并得到了答案:
如何添加相框并将文字插入图像中?
现在,当我将TPanel(1x形状,1x TImage,2x TLabel)中的内容另存为JPG文件时,
JPG文件的大小从20kb增加到620kb,这是TImage中图片的大小。
尺寸几乎相同。 原始JPG文件320x320,新JPG图片361x440。
那么,如何减小尺寸呢?
【相关图片】
1 |
procedure TForm1.SavePanelAsImage; |
·
正在创建位图文件! 在我的回答的"注释"部分中,我提到您必须使用TJPEGImage将位图转换为Jpeg。 我的示例保存了一个位图,正如@
David-Heffernan澄清的;)
·
顺便说一句,顺便说一句。 JPEG是一种有损压缩算法,这意味着如果保存图像并再次加载,则不会获得完全相同的图像。 因此,如果您多次对其进行编辑,每次另存为JPEG,则图像将遭受多代损失。
评论