基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

delphi USB-Camera

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

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

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

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

那么，如何减小尺寸呢？

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;