找传奇、传世资源到传世资源站!

delphi USB-Camera源码例子

8.5玩家评分(1人评分)
下载后可评
介绍 评论 失效链接反馈

【例子介绍】delphi USB-Camera

关于delphi如何减小JPG文件的大小?

几天前,我问了这个问题并得到了答案:
如何添加相框并将文字插入图像中?

现在,当我将TPanel(1x形状,1x TImage2x TLabel)中的内容另存为JPG文件时,
JPG
文件的大小从20kb增加到620kb,这是TImage中图片的大小。

尺寸几乎相同。 原始JPG文件320x320,新JPG图片361x440

那么,如何减小尺寸呢?

【相关图片】

from clipboard

1
2
3
4
5
6
7
8
9
10
11
12
13
14

procedure TForm1.SavePanelAsImage;
var
 img
: TBitmap;
begin
 img 
:= TBitmap.Create;
 
try
  img
.Width := fpPanel.Width;
  img
.Height := fpPanel.Height;
  fpPanel
.PaintTo(img.Canvas, 0, 0);
  img
.SaveToFile(fpFileName);
 
finally
  img
.Free;
end;
end;

·        
正在创建位图文件! 在我的回答的"注释"部分中,我提到您必须使用TJPEGImage将位图转换为Jpeg。 我的示例保存了一个位图,正如@
David-Heffernan澄清的;)

·        
顺便说一句,顺便说一句。 JPEG是一种有损压缩算法,这意味着如果保存图像并再次加载,则不会获得完全相同的图像。 因此,如果您多次对其进行编辑,每次另存为JPEG,则图像将遭受多代损失。

评论

发表评论必须先登陆, 您可以 登陆 或者 注册新账号 !


在线咨询: 问题反馈
客服QQ:174666394

有问题请留言,看到后及时答复