From 105a96094ed1f62c8a71008f3d1b26a5fbc276cd Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期四, 30 十一月 2017 17:50:03 +0800
Subject: [PATCH] 修正表單匯彩色JPG時體積變大的問題
---
CB_IMGPSScanImp.dcu | 0
CB_IMGPSScan.ocx | 0
CB_IMGPSScanImp.pas | 5 +++++
3 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/CB_IMGPSScan.ocx b/CB_IMGPSScan.ocx
index ad72674..a372035 100644
--- a/CB_IMGPSScan.ocx
+++ b/CB_IMGPSScan.ocx
Binary files differ
diff --git a/CB_IMGPSScanImp.dcu b/CB_IMGPSScanImp.dcu
index e0f221c..784f4af 100644
--- a/CB_IMGPSScanImp.dcu
+++ b/CB_IMGPSScanImp.dcu
Binary files differ
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index 515f04e..e959fcf 100644
--- a/CB_IMGPSScanImp.pas
+++ b/CB_IMGPSScanImp.pas
@@ -2924,6 +2924,11 @@
End;
End;
// Rotate(ISB.Graphic,MpsBarcodeinf.r180[n]); //20170705 加入有條碼就轉正
+ if iGraphic.Palette.palNumEntries = 0 then //20171130 彩色 會為0 黑白 為2
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=70;
+ end;
If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
Begin
--
Gitblit v1.8.0