delphi USB-Camera

Delphi数据库编程

下载此实例

开发语言：Pascal
实例大小：3.20M
下载次数：25
浏览次数：128
发布时间：2022-10-31
实例类别：Delphi数据库编程
发布人：蜗牛也疯狂
文件格式：.rar
所需积分：2

实例介绍

[下载地址]

【实例简介】delphi USB-Camera

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

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

现在，当我将TPanel(1x形状，1x TImage，2x 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，则图像将遭受多代损失。

您保存的不是JPEG图像。您已保存Windows位图。完全没有压缩。它恰好具有.jpg扩展名，但这并不能使文件本身成为JPEG。

您需要使用TJPEGImage保存文件。通过使用CompressionQuality属性控制压缩。将图像放入位图后，将其传输为JPEG

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

uses
jpeg;

procedure TForm1.SavePanelAsImage;
var
img: TBitmap;
JpegImage: TJPEGImage;
begin
img := TBitmap.Create;
  try
img.Width := fpPanel.Width;
img.Height := fpPanel.Height;
fpPanel.PaintTo(img.Canvas, 0, 0);
JpegImage := TJPEGImage.Create;
  try
JpegImage.CompressionQuality := ...;//you decide the value
JpegImage.Assign(img);
JpegImage.SaveToFile(fpFileName);
  finally
JpegImage.Free;
  end;
  finally
img.Free;
  end;
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

implementation
uses Jpeg;

procedure SaveBMPasJPG(bmp:TBitmap; const FileName:String;Quality:Integer=90);
var
jpg:TJpegImage;
begin
jpg:=TJpegImage.Create;
try
jpg.CompressionQuality := Quality;
jpg.Assign(bmp);
jpg.SaveToFile(FileName);
finally
jpg.Free;
end;

end;

该文件将另存为位图，而不是JPEG。

即使是"非常好的质量"，JPEG也不会是这种大小。

但是，一个32位位图(不带RLE)将为-361 * 440 * 4(字节/像素)?640k

尝试使用"内核批量图像调整大小"工具一次或一次调整图像大小。

【核心代码】

.
├── USBCamera-delphi
│ ├── DOC
│ │ ├── delphi编程实现图像的淡入浅出-木庄网络博客.mhtml
│ │ └── ~$delphi：如何减小JPG文件的大小.docx
│ ├── Debug
│ │ └── Win32
│ │ ├── Unit1.dcu
│ │ └── untUSBCamera.dcu
│ ├── Project1.12.2.dproj
│ ├── Project1.dpr
│ ├── Project1.dproj
│ ├── Project1.dproj.local
│ ├── Project1.exe
│ ├── Project1.identcache
│ ├── Project1.res
│ ├── Project1_Icon.ico
│ ├── Project1_Icon1.ico
│ ├── Project1_Icon2.ico
│ ├── Project1_XE7.exe
│ ├── Project1_XE7.identcache
│ ├── Project1_XE7.res
│ ├── Unit1.dfm
│ ├── Unit1.pas
│ ├── __history
│ │ ├── Unit1.dfm.~1~
│ │ ├── Unit1.dfm.~2~
│ │ ├── Unit1.pas.~1~
│ │ ├── Unit1.pas.~2~
│ │ └── Unit1.pas.~3~
│ └── untUSBCamera.pas
└── 关于delphi如何减小JPG文件的大小？_USBCamera-delphi.rar

5 directories, 26 files

标签： delphi jpg 文件

实例下载地址