2349 lines
84 KiB
Plaintext
2349 lines
84 KiB
Plaintext
unit DKvCttSchMain;
|
||
|
||
interface
|
||
|
||
uses
|
||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
||
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
|
||
Tocsg.Thread, Vcl.ExtCtrls, ThdCttSch, Vcl.StdCtrls, KvCttSchClient,
|
||
Tocsg.Trace;
|
||
|
||
type
|
||
TDlgKvCttSchMain = class(TForm)
|
||
tInit: TTimer;
|
||
edSrc: TEdit;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
edDest: TEdit;
|
||
btnExtrTxt: TButton;
|
||
Button1: TButton;
|
||
procedure tInitTimer(Sender: TObject);
|
||
procedure btnExtrTxtClick(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
Trace_: TTgTrace;
|
||
ThdTimer_: TThdTaskTimer;
|
||
sMtx_: String;
|
||
ThdCttSch_: TThdCttSch;
|
||
Client_: TKvCttSchClient;
|
||
|
||
procedure TimerCheckMutex(aSender: TObject);
|
||
procedure ProcessPrint;
|
||
public
|
||
{ Public declarations }
|
||
Constructor Create(aOwner: TComponent); override;
|
||
Destructor Destroy; override;
|
||
|
||
procedure process_WM_COPYDATA(var msg: TMessage); Message WM_COPYDATA;
|
||
end;
|
||
|
||
var
|
||
DlgKvCttSchMain: TDlgKvCttSchMain;
|
||
|
||
implementation
|
||
|
||
uses
|
||
CttSchDefine, Tocsg.Win32, Tocsg.Exception,
|
||
Tocsg.KvFilter, Tocsg.Safe, Tocsg.KvFilter.adinfo, superobject,
|
||
Tocsg.Json, Tocsg.Watermark, Tocsg.Path, Tocsg.Files,
|
||
ProcessDecompress, Tocsg.Encrypt, Vcl.Imaging.pngimage, Vcl.Printers,
|
||
DWaitProcPrt, Condition, GlobalDefine, hyieutils, Tocsg.Convert,
|
||
Tocsg.Graphic, Winapi.GDIPAPI, imageen, Vcl.Imaging.jpeg, Tocsg.Process,
|
||
ManagerImgMskData, Tocsg.Strings, STLabGuardModule, Define, Tocsg.Kess,
|
||
Tocsg.Registry, Tocsg.Shell, Tocsg.Valid, SynPdf, EM.PdfiumCore, System.Math,
|
||
System.IniFiles, Tocsg.WinInfo, Tocsg.Network, ProcessPrintWater;
|
||
|
||
{$R *.dfm}
|
||
|
||
function SendData(h: HWND; dwCmd: DWORD; const sData: String): LONGLONG;
|
||
var
|
||
CopyData: TCopyDataStruct;
|
||
begin
|
||
CopyData.dwData := dwCmd;
|
||
|
||
CopyData.cbData := (Length(sData) + 1) * 2;
|
||
CopyData.lpData := PChar(sData);
|
||
|
||
Result := SendMessage(h, WM_COPYDATA, 0, NativeInt(@CopyData));
|
||
Application.ProcessMessages;
|
||
end;
|
||
|
||
procedure TDlgKvCttSchMain.Button1Click(Sender: TObject);
|
||
var
|
||
i, pi: Integer;
|
||
sDir, sPrtName, sImgPath: String;
|
||
EmfList: TStringList;
|
||
MF: TMetafile;
|
||
nW, nH: Integer;
|
||
begin
|
||
sPrtName := 'Microsoft Print to PDF';
|
||
pi := -1;
|
||
MF := nil;
|
||
for i := 0 to Printer.Printers.Count - 1 do
|
||
begin
|
||
if Printer.Printers[i] = sPrtName then
|
||
pi := i;
|
||
end;
|
||
|
||
if pi = -1 then
|
||
begin
|
||
TTgTrace.T('프린터 찾기 실패 .. Name=%s', [sPrtName]);
|
||
exit;
|
||
end;
|
||
|
||
Printer.PrinterIndex := pi;
|
||
Printer.Title := 'TEST *BSOne-';
|
||
|
||
sDir := 'C:\Users\kku\Desktop\TEST\_ColTest\';
|
||
Guard(EmfList, TStringList.Create);
|
||
ExtrFilesFromDir(sDir, EmfList, false, 'em1');
|
||
if EmfList.Count = 0 then
|
||
exit;
|
||
|
||
EmfList.Sort;
|
||
|
||
|
||
Printer.Orientation := poLandscape;
|
||
Printer.BeginDoc;
|
||
try
|
||
for i := 0 to EmfList.Count - 1 do
|
||
begin
|
||
if not Printer.Printing or Printer.Aborted then
|
||
break;
|
||
|
||
try
|
||
try
|
||
if MF <> nil then
|
||
FreeAndNil(MF);
|
||
// i = 0은 위에서 미리 불러옴
|
||
MF := TMetafile.Create;
|
||
sImgPath := sDir + EmfList[i];
|
||
MF.LoadFromFile(sImgPath);
|
||
if (MF.MMWidth = 0) or (MF.MMHeight = 0) then
|
||
continue;
|
||
except
|
||
{$IFDEF DEBUG} ASSERT(false); {$ENDIF}
|
||
break;
|
||
end;
|
||
Printer.NewPage;
|
||
// if MF.MMWidth > MF.MMHeight then
|
||
// Printer.Orientation := poLandscape;
|
||
|
||
nW := GetDeviceCaps(Printer.Canvas.Handle, HORZRES);
|
||
nH := GetDeviceCaps(Printer.Canvas.Handle, VERTRES);
|
||
|
||
Printer.Canvas.StretchDraw(Rect(0, 0, nW, nH), MF);
|
||
except
|
||
// on E: Exception do
|
||
// ETgException.TraceException(Self, E, Format('Fail .. DoPrint .. Step=%d', [nStep]));
|
||
end;
|
||
end;
|
||
finally
|
||
Printer.EndDoc;
|
||
end;
|
||
end;
|
||
|
||
Constructor TDlgKvCttSchMain.Create(aOwner: TComponent);
|
||
var
|
||
sImgExt: String;
|
||
begin
|
||
Inherited Create(aOwner);
|
||
PDFiumDllDir := GetRunExePathDir;
|
||
if GetUserDefaultLangID <> 1042 then
|
||
Caption := APP_TITLE + ' $'
|
||
else
|
||
Caption := APP_TITLE;
|
||
ChangeWindowMessageFilter(WM_COPYDATA, MSGFLT_ADD);
|
||
Trace_ := nil;
|
||
{$IFDEF DEBUG}
|
||
if gParam.TaskType <> csttExtrSimple then
|
||
begin
|
||
var sLogPath: String := 'C:\ProgramData\HE\' + CutFileExt(ExtractFileName(GetRunExePath)) + '.log';
|
||
DeleteFile(sLogPath);
|
||
Trace_ := TTgTrace.Create(ExtractFilePath(sLogPath), ExtractFileName(sLogPath));
|
||
TTgTrace.T('Create()');
|
||
// Trace_ := TTgTrace.Create('C:\BSLog\', CutFileExt(ExtractFileName(GetRunExePath)) + '.log');
|
||
// TTgTrace.T('GOGO');
|
||
end;
|
||
{$ENDIF}
|
||
// TTgTrace.T('Create');
|
||
|
||
CUSTOMER_TYPE := gParam.CustomerType;
|
||
|
||
if CUSTOMER_TYPE = CUSTOMER_KDNVN then
|
||
begin
|
||
var dwResult: DWORD := KCT_Init(GetRunExePathDir + DIR_CONF, 'kdnavien');
|
||
if dwResult <> RESULT_SUCCESS then
|
||
TTgTrace.T('Fail .. Init KESS .. Code=%x', [dwResult])
|
||
else
|
||
TTgTrace.T('Success .. Init KESS');
|
||
end;
|
||
|
||
if UseFasooDecrypt and not IsCJ_Affiliates then // CJ에서는 DLL 로드하지 않도록 수정 25_0812 09:12:16 kku
|
||
begin
|
||
if not ExistsKey(HKEY_CLASSES_ROOT, 'TypeLib\{D3135A34-059E-4A47-AAD4-0D84F41DC165}\1.0\0\win64') then
|
||
begin
|
||
// 롯데마트는 기본 64DLL이 등록되지 않음 24_1104 11:22:41 kku
|
||
// 다른 고객사는 확인필요...
|
||
var sFsDll: String := 'C:\Program Files\Fasoo DRM\CW-Packager\WorkPackagerV3.dll';
|
||
if not FileExists(sFsDll) then
|
||
sFsDll := GetRunExePathDir + DLL_FAS64;
|
||
if not FileExists(sFsDll) then
|
||
sFsDll := GetRunExePathDir + DIR_CONF + DLL_FAS64;
|
||
if FileExists(sFsDll) then
|
||
ExecutePath_hide('regsvr32.exe', Format('/s "%s"', [sFsDll]));
|
||
end;
|
||
end;
|
||
|
||
ThdTimer_ := nil;
|
||
ThdCttSch_ := nil;
|
||
|
||
sImgExt := GetFileExt(gParam.PrtWaterEnt.sImgPath).ToUpper;
|
||
if ((sImgExt = 'PDF') or (sImgExt = 'EM1')) and
|
||
(gParam.RcvWnd <> 0) and gParam.UseWM then
|
||
begin
|
||
SetRegValueInteger(HKEY_CURRENT_USER, REG_HE, 'CT', gParam.CustomerType, true);
|
||
SetRegValueString(HKEY_CURRENT_USER, REG_HE, 'UName', gParam.UName, true);
|
||
SetRegValueString(HKEY_CURRENT_USER, REG_HE, 'EmpNo', gParam.EmpNo, true);
|
||
SetRegValueString(HKEY_CURRENT_USER, REG_HE, 'DeptName', gParam.DeptName, true);
|
||
|
||
var sIni: String := GetProgramFilesDir + DIR_TG + INI_FORCEHE;
|
||
if FileExists(sIni) then
|
||
begin
|
||
var ini: TIniFile;
|
||
Guard(ini, TIniFile.Create(sIni));
|
||
var f: Double := ini.ReadFloat('Force', 'WmTran', 0.0);
|
||
if f <> 0.0 then
|
||
SetRegValueString(HKEY_CURRENT_USER, REG_HE, 'WmTran', FloatToStr(f), true);
|
||
end;
|
||
|
||
var nResult: Integer := SendData(gParam.RcvWnd, KV_HOOK_PRINT, IntToStr(GetCurrentProcessId));
|
||
if nResult = 200 then
|
||
TTgTrace.T('IsPrtSpl2Pdf - InjectModule() .. Success!, CT=%d', [gParam.CustomerType])
|
||
else
|
||
TTgTrace.T('IsPrtSpl2Pdf - InjectModule() .. Fail! .. %d', [nResult])
|
||
// if InjectModule(GetCurrentProcessId, GetRunExePathDir + DIR_CONF + DLL_HOOK) > 0 then
|
||
// begin
|
||
// TTgTrace.T('IsPrtSpl2Pdf - InjectModule() Success.');
|
||
// end;
|
||
end;
|
||
|
||
tInit.Enabled := true;
|
||
|
||
TTgTrace.T('Create() .. OK');
|
||
end;
|
||
|
||
Destructor TDlgKvCttSchMain.Destroy;
|
||
begin
|
||
// TTgTrace.T('Destroy');
|
||
if Client_ <> nil then
|
||
FreeAndNil(Client_);
|
||
if ThdTimer_ <> nil then
|
||
FreeAndNil(ThdTimer_);
|
||
if ThdCttSch_ <> nil then
|
||
FreeAndNil(ThdCttSch_);
|
||
|
||
Inherited;
|
||
|
||
if Trace_ <> nil then
|
||
FreeAndNil(Trace_);
|
||
end;
|
||
|
||
procedure TDlgKvCttSchMain.btnExtrTxtClick(Sender: TObject);
|
||
var
|
||
KvFilter: TKvFilter;
|
||
begin
|
||
edSrc.Text := Trim(edSrc.Text);
|
||
// if IsValidKoreanSSN(edSrc.Text) then
|
||
// ShowMessage('검증 OK')
|
||
// else
|
||
// ShowMessage('검증 실패!');
|
||
//exit;
|
||
edDest.Text := Trim(edDest.Text);
|
||
|
||
if edSrc.Text = '' then
|
||
begin
|
||
MessageBox(Handle, PChar('문서파일 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
|
||
edSrc.SetFocus;
|
||
exit;
|
||
end;
|
||
|
||
if not FileExists(edSrc.Text) then
|
||
begin
|
||
MessageBox(Handle, PChar('존재하지 않는 파일입니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
|
||
edSrc.SetFocus;
|
||
exit;
|
||
end;
|
||
|
||
if edDest.Text = '' then
|
||
begin
|
||
MessageBox(Handle, PChar('내보내기 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
|
||
exit;
|
||
end;
|
||
|
||
try
|
||
// 압축해제 테스트 23_0602 12:22:26 kku
|
||
// var sExt: String := GetFileExt(edSrc.Text).ToUpper;
|
||
// if Pos(sExt, COMPRESS_EXTS) > 0 then
|
||
// begin
|
||
// var sZipExtrDir: String := GetRunExePathDir + 'Task\@etr\';
|
||
// if ForceDirectories(sZipExtrDir) then
|
||
// begin
|
||
// DecompressFile(edSrc.Text, sZipExtrDir, nil, nil);
|
||
// end;
|
||
//// DeleteDir(sZipExtrDir);
|
||
// end;
|
||
// exit;
|
||
|
||
// var ThdProc: TThdProcFasooDRM;;
|
||
// var sFsDir: String := 'C:\Program Files\Tocsg\eCrmHome\conf\fsdinit';
|
||
// SetDSD_CODE(DSD_CODE_CJ);
|
||
// Guard(ThdProc, TThdProcFasooDRM.Create(sFsDir, edSrc.Text, edDest.Text, true));
|
||
// ThdProc.StartThread;
|
||
// while ThdProc.WorkState <> tsCompleted do
|
||
// begin
|
||
// Sleep(200);
|
||
// Application.ProcessMessages;
|
||
// end;
|
||
// if FileExists(edDest.Text) then
|
||
// ShowMessage(Format('성공 (%d)', [ThdProc.ErrorCode]))
|
||
// else
|
||
// ShowMessage(Format('실패 (%d)', [ThdProc.ErrorCode]));
|
||
// exit;
|
||
|
||
Guard(KvFilter, TKvFilter.Create);
|
||
with gParam.CttSimpleOpt do
|
||
begin
|
||
var nError := KvFilter.FilterFile(edSrc.Text, edDest.Text);
|
||
if nError = 0 then
|
||
MessageBox(Handle, PChar('내보내기를 완료했습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK)
|
||
else
|
||
MessageBox(Handle, PChar(Format('내보내기 중 오류가 발생했습니다. (Error=%d)', [nError])), PChar(Caption), MB_ICONWARNING or MB_OK);
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. ProcessExtrText()');
|
||
end;
|
||
end;
|
||
|
||
procedure TDlgKvCttSchMain.TimerCheckMutex(aSender: TObject);
|
||
begin
|
||
if (sMtx_ <> '') and not MutexExists(sMtx_) then
|
||
TerminateProcess(GetCurrentProcess, 1);
|
||
end;
|
||
|
||
procedure TDlgKvCttSchMain.tInitTimer(Sender: TObject);
|
||
|
||
procedure ProcessExtrText;
|
||
var
|
||
KvFilter: TKvFilter;
|
||
ErrorCode: DWORD;
|
||
begin
|
||
try
|
||
if not FileExists(gParam.CttSimpleOpt.sSrcPath) then
|
||
exit;
|
||
|
||
try
|
||
Guard(KvFilter, TKvFilter.Create);
|
||
with gParam.CttSimpleOpt do
|
||
begin
|
||
ErrorCode := KvFilter.FilterFile(sSrcPath, sDestPath);
|
||
TTgTrace.T('[MGKIM] KvFilter.FilterFile ErrorCode : (%d)', [ErrorCode]);
|
||
end;
|
||
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. ProcessExtrText()');
|
||
end;
|
||
finally
|
||
Close;
|
||
end;
|
||
end;
|
||
|
||
procedure ProcessDocInfo;
|
||
var
|
||
KvFilter: TKvFilter;
|
||
DocInfo: TAdDocInfo;
|
||
O: ISuperObject;
|
||
Label
|
||
LB_Retry;
|
||
begin
|
||
try
|
||
if not FileExists(gParam.CttSimpleOpt.sSrcPath) then
|
||
exit;
|
||
|
||
try
|
||
Guard(KvFilter, TKvFilter.Create);
|
||
DocInfo := KvFilter.GetDocInfoFile(gParam.CttSimpleOpt.sSrcPath);
|
||
O := SO;
|
||
O.O['Info'] := TTgJson.ValueToJsonObject<TAdDocInfo>(DocInfo);
|
||
SaveJsonObjToFile(O, gParam.CttSimpleOpt.sDestPath);
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. ProcessExtrText()');
|
||
end;
|
||
finally
|
||
Close;
|
||
end;
|
||
end;
|
||
|
||
procedure ProcessWatermark;
|
||
var
|
||
ImgEn: TImageEn;
|
||
nRetryCnt: Integer;
|
||
bLoadFail: Boolean;
|
||
Font: TFont;
|
||
sToday,
|
||
sWaterTxt,
|
||
sAppend: String;
|
||
Label
|
||
LB_Retry;
|
||
begin
|
||
try
|
||
if not FileExists(gParam.CttSimpleOpt.sSrcPath) then
|
||
exit;
|
||
|
||
// DRM 파일은 무시하도록 보완 24_0109 15:57:54 kku
|
||
if TTgEncrypt.CheckSign(gParam.CttSimpleOpt.sSrcPath, SIG_DRM) then
|
||
exit;
|
||
|
||
try
|
||
ImgEn := TImageEn.Create(Self);
|
||
Guard(Font, TFont.Create);
|
||
Font.Size := 13;
|
||
Font.Name := 'Arial';
|
||
Font.Style := Font.Style + [fsBold];
|
||
|
||
nRetryCnt := 0;
|
||
LB_Retry :
|
||
try
|
||
bLoadFail := false;
|
||
ImgEn.IO.LoadFromFile(gParam.CttSimpleOpt.sSrcPath);
|
||
except
|
||
bLoadFail := true;
|
||
end;
|
||
|
||
if bLoadFail then
|
||
begin
|
||
if nRetryCnt < 5 then
|
||
begin
|
||
Inc(nRetryCnt);
|
||
Sleep(1000);
|
||
goto LB_Retry;
|
||
end else exit;
|
||
end;
|
||
|
||
AddWatermarkTextLayer(ImgEn, Font, gParam.CttSimpleOpt.sAssocInfo, 25, false);
|
||
|
||
ImgEn.IO.SaveToFile(gParam.CttSimpleOpt.sDestPath);
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. ProcessWatermark()');
|
||
end;
|
||
finally
|
||
Close;
|
||
end;
|
||
end;
|
||
|
||
procedure ProcessSearchMulti;
|
||
begin
|
||
ThdCttSch_ := TThdCttSch.Create(gParam.Tasker, gParam.LangID,
|
||
gParam.CttSchOpt, gParam.SchPatterns, gParam.ExtrTxtOnly);
|
||
ThdCttSch_.StartThread;
|
||
|
||
SendMessage(gParam.CttSchOpt.hRcvHwnd, WM_CTTSCH_INIT, Handle, gParam.Tasker);
|
||
PostMessage(gParam.CttSchOpt.hRcvHwnd,
|
||
WM_CTTSCH_REQUEST, KV_REQUEST_SEARCH_PATH, gParam.Tasker);
|
||
// ThdCttSch_.PushSchEnt('*Start');
|
||
end;
|
||
|
||
begin
|
||
tInit.Enabled := false;
|
||
TTgTrace.T('tInit() .. ');
|
||
try
|
||
{$IFDEF DEBUG}
|
||
if (DebugHook <> 0) and gParam.ExistsParam('-testconn') then
|
||
begin
|
||
Client_ := TKvCttSchClient.Create;
|
||
if Client_.ActiveW2W then
|
||
Caption := IntToStr(Client_.GetSelfWnd);
|
||
exit;
|
||
end;
|
||
{$ENDIF}
|
||
|
||
if gParam.Mutex <> '' then
|
||
begin
|
||
sMtx_ := gParam.Mutex;
|
||
ThdTimer_ := TThdTaskTimer.Create;
|
||
ThdTimer_.AddTask(TimerCheckMutex, 1000, true);
|
||
ThdTimer_.StartTimerThread;
|
||
end;
|
||
TTgTrace.T('tInit() .. 1, Type=%d', [Integer(gParam.TaskType)]);
|
||
|
||
case gParam.TaskType of
|
||
csttNone : Close;
|
||
csttTest : ;
|
||
csttExtrSimple : ProcessExtrText;
|
||
csttExtrDocInfo : ProcessDocInfo;
|
||
csttWaterMarkImg : ProcessWatermark;
|
||
csttSchMulti : ProcessSearchMulti;
|
||
csttSchConnect :
|
||
begin
|
||
Client_ := TKvCttSchClient.Create;
|
||
if Client_.ActiveW2W then
|
||
Client_.ConnectWnd(gParam.Tasker);
|
||
end;
|
||
csttPrint : ProcessPrint;
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. tInitTimer()');
|
||
end;
|
||
end;
|
||
|
||
procedure TDlgKvCttSchMain.process_WM_COPYDATA(var msg: TMessage);
|
||
var
|
||
pCpData: PCopyDataStruct;
|
||
sData: String;
|
||
begin
|
||
try
|
||
pCpData := PCopyDataStruct(msg.LParam);
|
||
if pCpData.cbData = 0 then
|
||
exit;
|
||
|
||
if ThdCttSch_ = nil then
|
||
exit;
|
||
|
||
case pCpData.dwData of
|
||
KV_RESPONSE_SEARCH_PATH :
|
||
begin
|
||
sData := Copy(PChar(pCpData.lpData), 1, pCpData.cbData);
|
||
ThdCttSch_.PushSchEnt(sData);
|
||
end;
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. process_WM_COPYDATA()');
|
||
end;
|
||
end;
|
||
|
||
procedure TDlgKvCttSchMain.ProcessPrint;
|
||
|
||
procedure ExtrPrintImgFiles(sImgPath: String; aList: TStrings);
|
||
var
|
||
sFName: string;
|
||
i: Integer;
|
||
begin
|
||
aList.Clear;
|
||
sFName := StringReplace(CutFileExt(sImgPath), '_0001', '', [rfReplaceAll]);
|
||
if not FileExists(sImgPath) and not FileExists(Format('%s_%.4d.png', [sFName, 1])) then
|
||
exit;
|
||
|
||
if FileExists(sImgPath) then
|
||
aList.Add(sImgPath);
|
||
|
||
i := 1;
|
||
while True do
|
||
begin
|
||
sImgPath := Format('%s_%.4d.png', [sFName, i]);
|
||
if FileExists(sImgPath) then
|
||
begin
|
||
if aList.IndexOf(sImgPath) = -1 then
|
||
aList.Add(sImgPath);
|
||
end else exit;
|
||
Inc(i);
|
||
end;
|
||
end;
|
||
|
||
{ Returns grayscale version of a color. }
|
||
function RgbToGray(C: TColor): TColor;
|
||
begin
|
||
C := Round(C and $FF * 0.3 + C and $00FF00 shr 8 * 0.59 + C shr 16 * 0.11);
|
||
Result := RGB(C, C, C);
|
||
end;
|
||
|
||
{ Converts whole PNG image to grayscale. }
|
||
procedure ToGrayscale(PNG: TPNGObject);
|
||
var
|
||
X, Y: Integer;
|
||
begin
|
||
for X := 0 to PNG.Width - 1 do
|
||
for Y := 0 to PNG.Height - 1 do
|
||
PNG.Pixels[X, Y] := RgbToGray(PNG.Pixels[X, Y]);
|
||
end;
|
||
const
|
||
WORD_GAP = ' ';
|
||
type
|
||
TProcType = (ptPng, ptPdf, ptEmf);
|
||
var
|
||
WInfo: TPrtWaterEnt;
|
||
pi, i, nLeft, nTop, nW, nH: Integer;
|
||
ImgList: TStringList;
|
||
ProcType: TProcType;
|
||
bIsWatchPtr: Boolean;
|
||
png: TPngImage;
|
||
mf: TMetaFile;
|
||
sExt,
|
||
sWImgPath,
|
||
sImgDir,
|
||
sImgPath,
|
||
sTopText,
|
||
sBottomText: String;
|
||
bmpWaterP: TBitmap;
|
||
|
||
arrDevice, arrDriver, arrPort: array [0..255] of Char;
|
||
hDev: THandle;
|
||
DevMode: PDeviceMode;
|
||
OrgDevMode: TDeviceMode;
|
||
|
||
// ImgEn: TImageEn;
|
||
// F: TFont;
|
||
dlg: TDlgWaitExtrProcPrt;
|
||
// _bmpST,
|
||
// _bmpWaterP: TBitmap;
|
||
nStep: Integer;
|
||
|
||
procedure DoMasking(pEnt: PMskEnt);
|
||
var
|
||
R: TRect;
|
||
i: Integer;
|
||
sText: String;
|
||
x, y: Integer;
|
||
begin
|
||
R.Left := pEnt.x;
|
||
R.Top := pEnt.y;
|
||
R.Width := pEnt.w;
|
||
R.Height := pEnt.h;
|
||
|
||
png.Canvas.Pen.Color := clWhite;
|
||
png.Canvas.Pen.Style := psSolid;
|
||
png.Canvas.Brush.Color := clWhite;
|
||
png.Canvas.Brush.Style := bsSolid;// bsBDiagonal;
|
||
png.Canvas.FillRect(R);
|
||
|
||
sText := 'Hidden by BSOne';
|
||
for i := 1 to 99 do
|
||
begin
|
||
png.Canvas.Font.Size := i;
|
||
if (png.Canvas.TextHeight(sText) - 1) >= (R.Height - 2) then
|
||
begin
|
||
break;
|
||
end;
|
||
end;
|
||
png.Canvas.TextRect(R, sText, [tfCenter, tfEndEllipsis, tfVerticalCenter]);
|
||
|
||
|
||
png.Canvas.Pen.Color := clBlack;
|
||
png.Canvas.Pen.Style := psDot;
|
||
png.Canvas.MoveTo(R.Left, R.Top);
|
||
png.Canvas.LineTo(R.Left + R.Width, R.Top);
|
||
png.Canvas.LineTo(R.Left + R.Width, R.Top + R.Height);
|
||
png.Canvas.LineTo(R.Left, R.Top + R.Height);
|
||
png.Canvas.LineTo(R.Left, R.Top);
|
||
end;
|
||
|
||
// procedure ProcessSnaptag;
|
||
// var
|
||
// sStPng: String;
|
||
// pngST: TPngImage;
|
||
// nsX, nsY: Integer;
|
||
// begin
|
||
// if not gParam.UseSnaptag then
|
||
// exit;
|
||
//
|
||
// try
|
||
// if _bmpST = nil then
|
||
// begin
|
||
// sStPng := GetRunExePathDir + DIR_CONF + PNG_SNAPTAGDATA_PRT;
|
||
// if FileExists(sStPng) then
|
||
// begin
|
||
// Guard(pngST, TPngImage.Create);
|
||
// pngST.LoadFromFile(sStPng);
|
||
//
|
||
// _bmpST := TBitmap.Create;
|
||
// _bmpST.PixelFormat := pf4bit;
|
||
// _bmpST.SetSize(png.Width div 5, png.Height div 5);
|
||
//
|
||
// nsX := 0;
|
||
// while nsX < (_bmpST.Width + pngST.Width) do
|
||
// begin
|
||
// nsY := 0;
|
||
// while nsY < (_bmpST.Height + pngST.Height) do
|
||
// begin
|
||
// _bmpST.Canvas.Draw(nsX, nsY, pngST);
|
||
// Inc(nsY, pngST.Height);
|
||
// end;
|
||
// Inc(nsX, pngST.Width);
|
||
// end;
|
||
// end;
|
||
// end;
|
||
//
|
||
// if _bmpST <> nil then
|
||
// begin
|
||
//// _bmpST.SaveToFile('C:\Users\kku\Desktop\이전 바탕화면\출력 추출 데이터\test.bmp');
|
||
//
|
||
// var cTrMatrix: TColorMatrix := MakeColorMatrix(0.2, 0.2, 0.2, gParam.ValSnaptag);
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, 0, 0, _bmpST, @cTrMatrix, png.Width, png.Height);
|
||
// end;
|
||
// except
|
||
// on E: Exception do
|
||
// ETgException.TraceException(Self, E, 'Fail .. ProcessSnaptag()');
|
||
// end;
|
||
// end;
|
||
|
||
// function GetDPI_Size(nSize: Integer): Integer;
|
||
// begin
|
||
// case gParam.PrtDPI of
|
||
// 100 : Result := nSize - ((nSize div 6) * 5);
|
||
// 200 : Result := nSize - ((nSize div 6) * 4);
|
||
// 300 : Result := nSize - ((nSize div 6) * 3);
|
||
// 400 : Result := nSize - ((nSize div 6) * 2);
|
||
// 500 : Result := nSize - (nSize div 6);
|
||
// else Result := nSize;
|
||
// end;
|
||
// end;
|
||
//
|
||
// function CalcSizeDIP(n300: Integer): Integer;
|
||
// var
|
||
// nSize: Integer;
|
||
// begin
|
||
// nSize := n300 * 2;
|
||
// case gParam.PrtDPI of
|
||
// 100 : Result := nSize - ((nSize div 6) * 5);
|
||
// 200 : Result := nSize - ((nSize div 6) * 4);
|
||
// 300 : Result := nSize - ((nSize div 6) * 3);
|
||
// 400 : Result := nSize - ((nSize div 6) * 2);
|
||
// 500 : Result := nSize - (nSize div 6);
|
||
// else Result := nSize;
|
||
// end;
|
||
// end;
|
||
//
|
||
// procedure SetImgFontSize(nSize: Integer);
|
||
// begin
|
||
// png.Canvas.Font.Size := GetDPI_Size(nSize);
|
||
// end;
|
||
//
|
||
// procedure DrawRotatedText(Canvas: TCanvas; X, Y, Angle: Integer; const Text: string);
|
||
// var
|
||
// LogFont: TLogFont;
|
||
// OldFont, RotatedFont: HFONT;
|
||
// begin
|
||
// // 기존 폰트를 기반으로 로그폰트 가져오기
|
||
// GetObject(Canvas.Font.Handle, SizeOf(LogFont), @LogFont);
|
||
//
|
||
// // 회전 각도 설정 (0.1도 단위, 즉 450 = 45도)
|
||
// LogFont.lfEscapement := Angle * 10;
|
||
// LogFont.lfOrientation := Angle * 10;
|
||
//
|
||
// // 안티앨리어싱 등 품질 향상 옵션
|
||
// LogFont.lfQuality := ANTIALIASED_QUALITY;
|
||
//
|
||
// // 회전 폰트 생성
|
||
// RotatedFont := CreateFontIndirect(LogFont);
|
||
// OldFont := SelectObject(Canvas.Handle, RotatedFont);
|
||
//
|
||
// // 텍스트 출력
|
||
// TextOut(Canvas.Handle, X, Y, PChar(Text), Length(Text));
|
||
//
|
||
// // 자원 정리
|
||
// SelectObject(Canvas.Handle, OldFont);
|
||
// DeleteObject(RotatedFont);
|
||
// end;
|
||
|
||
// function ProcessWatermark(aDest: HDC; sMaskImg: String = ''): Boolean;
|
||
// var
|
||
// bRotate: Boolean;
|
||
// nTmp: Integer;
|
||
// sWText: String;
|
||
// begin
|
||
// if png = nil then
|
||
// Exit(false);
|
||
//
|
||
// Result := true;
|
||
//
|
||
// ProcessSnaptag;
|
||
//
|
||
// bRotate := false;
|
||
// // 가로출력인데 세로로 되어 있으면 돌려준다. 24_0819 16:57:41 kku
|
||
// if not WInfo.bPaperV and (png.Width < png.Height) then
|
||
// begin
|
||
// bRotate := true;
|
||
//// if nW < nH then
|
||
//// begin
|
||
//// nTmp := nH;
|
||
//// nH := nW;
|
||
//// nW := nTmp;
|
||
//// end;
|
||
// RotatePng(png, 90);
|
||
// end;
|
||
//
|
||
// if ProcType <> ptPng then
|
||
// begin
|
||
// Result := false;
|
||
// exit;
|
||
// end;
|
||
//
|
||
// if not gParam.UseWM then
|
||
// begin
|
||
// Result := false;
|
||
// exit;
|
||
// end;
|
||
//
|
||
// try
|
||
// if gParam.MaskStr <> '' then
|
||
// begin
|
||
// // 마스킹 처리... 24_0529 16:16:06 kku
|
||
// if (sMaskImg <> '') and FileExists(sMaskImg) then
|
||
// begin
|
||
// var sOcrPath: String := GetRunExePathDir + DIR_CONF + EXE_OCR;
|
||
// var sTmpPath: String := 'C:\ProgramData\HE\Task\';
|
||
// if FileExists(sOcrPath) and ForceDirectories(sTmpPath) then
|
||
// begin
|
||
// sTmpPath := sTmpPath + '$TmpOcr.dat';
|
||
// ExecuteAppWaitUntilTerminate(sOcrPath,
|
||
// Format('-r "%s" "%s"', [sMaskImg, sTmpPath]), SW_HIDE, 10000);
|
||
//
|
||
// if FileExists(sTmpPath) then
|
||
// begin
|
||
// var MgMsk: TManagerImgMskData;
|
||
// Guard(MgMsk, TManagerImgMskData.Create(sTmpPath));
|
||
// DeleteFile(PChar(sTmpPath));
|
||
//
|
||
// var StrList: TStringList;
|
||
// Guard(StrList, TStringList.Create);
|
||
// SplitString(gParam.MaskStr, ',', StrList, false, true);
|
||
//
|
||
// var MskLst: TMskEntList;
|
||
// Guard(MskLst, TMskEntList.Create);
|
||
// var cc, nn: Integer;
|
||
// for cc := 0 to StrList.Count - 1 do
|
||
// begin
|
||
// if MgMsk.MatchToList(StrList[cc], MskLst) > 0 then
|
||
// begin
|
||
// for nn := 0 to MskLst.Count - 1 do
|
||
// DoMasking(MskLst[nn]);
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
//
|
||
// if gParam.PrtWaterCfg.bActive then
|
||
// begin
|
||
// SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
||
// png.Canvas.Font.Color := clSilver;
|
||
//
|
||
// var PWC: TPrtWaterCfg := gParam.PrtWaterCfg;
|
||
// var sText: String := '';
|
||
// nLeft := 0;
|
||
// nTop := 0;
|
||
//
|
||
// if (PWC.sTopText <> '') and (PWC.nTopSize > 0) then
|
||
// begin
|
||
// SetImgFontSize(Round(Double(42) * (Double(PWC.nTopSize) / 10)));
|
||
// sText := StrsReplace(PWC.sTopText, ['{IpAddr}', '{HostName}', '{MacAddr}', '{EmpNo}', '{Dept}', '{UserName}', '{DateTime}'],
|
||
// [gParam.IP, GetComName, GetMACAddr, gParam.EmpNo, gParam.DeptName, gParam.UName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
||
//
|
||
// case PWC.nTopPos of
|
||
// 1 : nLeft := 0; // 왼쪽
|
||
// 2 : nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sText) div 2); // 가운데
|
||
// 3 : nLeft := png.Width - png.Canvas.TextWidth(sText); // 오른쪽
|
||
// end;
|
||
// png.Canvas.TextOut(nLeft, nTop, sText);
|
||
// end;
|
||
//
|
||
// if (PWC.sBotText <> '') and (PWC.nBotSize > 0) then
|
||
// begin
|
||
// SetImgFontSize(Round(Double(42) * (Double(PWC.nBotSize) / 10)));
|
||
// sText := StrsReplace(PWC.sBotText, ['{IpAddr}', '{HostName}', '{MacAddr}', '{EmpNo}', '{Dept}', '{UserName}', '{DateTime}'],
|
||
// [gParam.IP, GetComName, GetMACAddr, gParam.EmpNo, gParam.DeptName, gParam.UName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
||
//
|
||
// case PWC.nBotPos of
|
||
// 1 : nLeft := 0; // 왼쪽
|
||
// 2 : nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sText) div 2); // 가운데
|
||
// 3 : nLeft := png.Width - png.Canvas.TextWidth(sText); // 오른쪽
|
||
// end;
|
||
// nTop := png.Height - png.Canvas.TextHeight(sText);
|
||
// png.Canvas.TextOut(nLeft, nTop, sText);
|
||
// end;
|
||
// end else
|
||
// if not IgrPrintWaterDefText then
|
||
// begin
|
||
// SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
||
// SetImgFontSize(42);
|
||
// png.Canvas.Font.Color := clSilver;
|
||
//
|
||
// if sTopText <> '' then
|
||
// begin
|
||
// nLeft := 0;
|
||
// nTop := 0;
|
||
// // if cbTopTextPos.ItemIndex <> 0 then
|
||
// // nLeft := bmp.Width - bmp.Canvas.TextWidth(sTopText);
|
||
//
|
||
// // bmp.Canvas.TextOut(nLeft, nTop, sTopText);
|
||
// png.Canvas.TextOut(nLeft, nTop, sTopText);
|
||
// end;
|
||
//
|
||
// if sBottomText <> '' then
|
||
// begin
|
||
// // bmp.Canvas.Font.Size := 10 * 7;
|
||
// // nLeft := 0;
|
||
// // nTop := bmp.Height - bmp.Canvas.TextHeight(sBottomText);
|
||
// //// if cbBottomTextPos.ItemIndex <> 0 then
|
||
// // nLeft := bmp.Width - bmp.Canvas.TextWidth(sBottomText);
|
||
//
|
||
// // bmp.Canvas.TextOut(nLeft, nTop, sBottomText);
|
||
//
|
||
//
|
||
// if CUSTOMER_TYPE = CUSTOMER_SOLIDEO then
|
||
// begin
|
||
//// SetImgFontSize(50); // 42에서 50으로 변경 25_0520 09:06:51 kku
|
||
// sBottomText := '(주)솔리데오';
|
||
// if gParam.DeptName <> '' then
|
||
// begin
|
||
// var sDept: String := gParam.DeptName;
|
||
// var nPos: Integer := Pos(';', sDept);
|
||
// if nPos > 0 then
|
||
// Delete(sDept, nPos, sDept.Length - nPos + 1);
|
||
// SumString(sBottomText, sDept, ' / ');
|
||
// end;
|
||
// if gParam.UName <> '' then
|
||
// SumString(sBottomText, gParam.UName, ' / ')
|
||
// else
|
||
// SumString(sBottomText, gParam.EmpNo, ' / ');
|
||
// SumString(sBottomText, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now), ' / ');
|
||
// end;
|
||
//
|
||
// if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
||
// nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
||
// else
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
//
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
||
// else
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
//
|
||
// case CUSTOMER_TYPE of
|
||
// CUSTOMER_DEMO :
|
||
// begin
|
||
// // for 포스코
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// png.Canvas.TextOut((png.Width - nW) div 2, nTop, sBottomText)
|
||
// else
|
||
// png.Canvas.TextOut(0, nTop, sBottomText);
|
||
//
|
||
// var sTemp: String; // := '포스코 허락없이 출력정보 훼손 또는 무단유통시 법적책임이 있습니다.';
|
||
// // if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// // nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sTemp)
|
||
// // else
|
||
// // nLeft := png.Width - png.Canvas.TextWidth(sTemp);
|
||
// // png.Canvas.TextOut(nLeft, nTop, sTemp);
|
||
//
|
||
// // if WInfo.LogJson <> '' then
|
||
// begin
|
||
// // 파일 이름으로 보안등급 출력
|
||
// try
|
||
// // var OLog: ISuperObject := SO(WInfo.LogJson);
|
||
// // if OLog <> nil then
|
||
// begin
|
||
// // var sFName: String := OLog.S['COMPONENT_FILENAME'];
|
||
// var sFName: String := WInfo.sDocName;
|
||
//
|
||
// // 엑셀에 [ 가 ( 로 변경되서 급한대로 아래처럼 처리 24_1023 10:07:45 kku
|
||
// sFName := StringReplace(sFName, '(', '[', [rfReplaceAll]);
|
||
// sFName := StringReplace(sFName, ')', ']', [rfReplaceAll]);
|
||
//
|
||
// // if (sFName <> '') and (sFName[1] = '[') then
|
||
// if sFName.Contains('[') then
|
||
// begin
|
||
// SetImgFontSize(png.Canvas.Font.Size * 2);
|
||
// sTemp := GetCapsuleStr('[', ']', sFName);
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sTemp)
|
||
// else
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sTemp);
|
||
// // png.Canvas.TextOut(nLeft, 0, sBottomText);
|
||
// // 왜인지.. 위가 잘림 24_1022 09:20:15 kku
|
||
// png.Canvas.TextOut(nLeft, png.Canvas.TextHeight(sTemp) div 2, sTemp);
|
||
// end;
|
||
// end;
|
||
// except
|
||
// // ...
|
||
// end;
|
||
// end;
|
||
// end;
|
||
//
|
||
// CUSTOMER_KORENTAL :
|
||
// begin
|
||
// png.Canvas.Font.Color := clBlack;
|
||
// SetImgFontSize(45);
|
||
//
|
||
// // 좌측 상단
|
||
// png.Canvas.TextOut(0, 0, sBottomText);
|
||
//
|
||
// if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
||
// nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
||
// else
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
//
|
||
// // 가운데 하단
|
||
// sWText := '본 문서는 한국렌탈의 정보 자산이며 무단 반출 시 당사 사규와 관련 법규에 의해 제재를 받을 수 있습니다.';
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := ((png.Width - ((png.Width - nW) div 2)) div 2) - (png.Canvas.TextWidth(sWText) div 2)
|
||
// else
|
||
// nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sWText) div 2);
|
||
// png.Canvas.TextOut(nLeft, nTop, sWText);
|
||
// end;
|
||
//
|
||
// CUSTOMER_WELFND,
|
||
// CUSTOMER_WELFNI :
|
||
// begin
|
||
// png.Canvas.Font.Color := clSilver;
|
||
// SetImgFontSize(46);
|
||
// if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
||
// nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
||
// else
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
//
|
||
// var nTW: Integer := png.Canvas.TextWidth(sBottomText);
|
||
//
|
||
// // 좌측 상단
|
||
// png.Canvas.TextOut(0, 0, sBottomText);
|
||
//
|
||
// // 우측 상단
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
||
// else
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
// png.Canvas.TextOut(nLeft, 0, sBottomText);
|
||
//
|
||
// // 좌측 하단
|
||
// png.Canvas.TextOut(0, nTop, sBottomText);
|
||
//
|
||
// // 우측 하단
|
||
// sWText := '본 문서에 대한 소유권은 회사에 있으며, 무단으로 반출 시 법적 책임을 받게 됩니다.';
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sWText)
|
||
// else
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sWText);
|
||
// png.Canvas.TextOut(nLeft, nTop, sWText);
|
||
//
|
||
//// sBottomText := sEmpNo_ + '/' + sPrtDocId;
|
||
// if png.Width > png.Height then
|
||
// begin
|
||
// nLeft := CalcSizeDIP(936); //(png.Width div 2) - nTW - Round(nTW / 2);
|
||
// nTop := CalcSizeDIP(292); //Round(png.Height / 8.5);
|
||
// DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
||
//// _Trace('**************** 1번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
||
// nLeft := CalcSizeDIP(2298); // (png.Width div 2) + png.Canvas.TextWidth(sBottomText);
|
||
// nTop := CalcSizeDIP(1652); // png.Height - (png.Height div 3);
|
||
// DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
||
//// _Trace('**************** 2번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
||
// end else begin
|
||
// nLeft := CalcSizeDIP(347);//(png.Width div 4) - png.Canvas.TextWidth(sBottomText) div 2;
|
||
// nTop := CalcSizeDIP(779); // Round(png.Height / 4.5);
|
||
// DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
||
//// _Trace('**************** 1번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
||
//
|
||
// nLeft := CalcSizeDIP(1784); //(png.Width div 2) + png.Canvas.TextWidth(sBottomText);
|
||
// nTop := CalcSizeDIP(2338); //png.Height - (png.Height div 3);
|
||
// DrawRotatedText(png.Canvas, nLeft, nTop, -45, sBottomText);
|
||
//// _Trace('**************** 2번째 대각선 : L=%d, T=%d', [nLeft, nTop]);
|
||
// end;
|
||
// end;
|
||
// CUSTOMER_SOLMIX :
|
||
// begin
|
||
// png.Canvas.Font.Color := clSilver;
|
||
// SetImgFontSize(50);
|
||
// if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
||
// nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
||
// else
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
//
|
||
//// var nTW: Integer := png.Canvas.TextWidth(sBottomText);
|
||
//
|
||
// sWText := sBottomText + WInfo.sDocName;
|
||
//
|
||
// // 좌측 상단
|
||
// png.Canvas.TextOut(0, 0, sWText);
|
||
// // 좌측 하단
|
||
// sWText := sBottomText + '보안 문서로서 무단 복사 및 외부 유출을 금합니다.';
|
||
// png.Canvas.TextOut(0, nTop, sWText);
|
||
//
|
||
// // 가운데 사선
|
||
// if png.Width < png.Height then
|
||
// SetImgFontSize(png.Width div 9)
|
||
// else
|
||
// SetImgFontSize(png.Height div 9);
|
||
// sWText := gParam.EmpNo;
|
||
// var bmpW: TBitmap;
|
||
// Guard(bmpW, TBitmap.Create);
|
||
// bmpW.SetSize(png.Canvas.TextWidth(sWText), png.Canvas.TextHeight(sWText));
|
||
// bmpW.Canvas.Font := png.Canvas.Font;
|
||
// bmpW.Canvas.Font.Color := clSilver;
|
||
// bmpW.Canvas.TextOut(0, 0, sWText);
|
||
// bmpW.TransparentColor := clWhite;
|
||
// bmpW.Transparent := true;
|
||
// RotateBitmap_PlgBlt(bmpW, -0.8, true, clWhite);
|
||
//
|
||
// var cTrMatrix: TColorMatrix;
|
||
// ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
||
// // 회색
|
||
// cTrMatrix[0][0] := 0.299;
|
||
// cTrMatrix[0][1] := 0.299;
|
||
// cTrMatrix[0][2] := 0.299;
|
||
// cTrMatrix[1][0] := 0.587;
|
||
// cTrMatrix[1][1] := 0.587;
|
||
// cTrMatrix[1][2] := 0.587;
|
||
// cTrMatrix[2][0] := 0.114;
|
||
// cTrMatrix[2][1] := 0.114;
|
||
// cTrMatrix[2][2] := 0.114;
|
||
// cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 2.22
|
||
// cTrMatrix[4][4] := 1.0;
|
||
//
|
||
// var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
||
// var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
||
// end;
|
||
//
|
||
// CUSTOMER_GIORDANO,
|
||
// CUSTOMER_CJONS :
|
||
// begin
|
||
// // 우측 하단
|
||
//// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
//// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
||
//// else
|
||
//// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
//// png.Canvas.TextOut(nLeft, nTop + png.Canvas.TextHeight(sBottomText), sBottomText);
|
||
//
|
||
//// sBottomText := Format('W=%d, H=%d, T=%d, TW=%d, TH=%d > ', [png.Width, png.Height, nTop, png.Canvas.TextWidth(sBottomText), png.Canvas.TextHeight(sBottomText)]) + sBottomText;
|
||
//
|
||
//// png.Canvas.TextOut(0, 0, sBottomText);
|
||
//// png.Canvas.TextOut(0, (nTop div 2) + png.Canvas.TextHeight(sBottomText), sBottomText);
|
||
//
|
||
// // 수정 25_0520 15:45:27 kku
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
// png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
||
// end;
|
||
// CUSTOMER_SHSC :
|
||
// begin
|
||
// png.Canvas.Font.Color := clGray;
|
||
//
|
||
// // 좌측 하단
|
||
// sWText := '고객정보 무단 반출시 법적 제재를 받을 수 있으며, 모든 출력물은 모니터링 됩니다.';
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// png.Canvas.TextOut((png.Width - nW) div 2, nTop + png.Canvas.TextHeight(sWText), sWText) // 위로 밀리는 현상 있어서 조정
|
||
// else
|
||
// png.Canvas.TextOut(0, nTop, sWText);
|
||
//
|
||
// // 우측 하단
|
||
//// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
//// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sBottomText)
|
||
//// else
|
||
//// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
// png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
||
// end;
|
||
//
|
||
// CUSTOMER_SHCI :
|
||
// begin
|
||
// png.Canvas.Font.Color := $969696;
|
||
//
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
// // 우측 상단
|
||
// sWText := '고객정보 무단 반출시 법적 제재를 받을 수 있으며, 모든 출력물은 모니터링 됩니다.';
|
||
//// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
//// nLeft := (png.Width - ((png.Width - nW) div 2)) - png.Canvas.TextWidth(sWText)
|
||
//// else
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sWText);
|
||
// // 왜인지.. 위가 잘림 24_1022 09:20:15 kku
|
||
//// png.Canvas.TextOut(nLeft, png.Canvas.TextHeight(sWText), sWText);
|
||
// png.Canvas.TextOut(nLeft, 0, sWText);
|
||
//
|
||
// // 좌측 하단
|
||
//// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
//// png.Canvas.TextOut((png.Width - nW) div 2, nTop, sBottomText)
|
||
//// else
|
||
// png.Canvas.TextOut(0, nTop, sBottomText);
|
||
// end;
|
||
//
|
||
// CUSTOMER_WINSTN :
|
||
// begin
|
||
// png.Canvas.Font.Color := $969696;
|
||
//
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := (png.Width - nW) div 2
|
||
// else
|
||
// nLeft := 0;
|
||
//
|
||
// // 좌측 하단
|
||
// sWText := Format('%s / %s', [WInfo.sDocName, i + 1, ImgList.Count, sBottomText]);
|
||
// png.Canvas.TextOut(nLeft, nTop, sWText);
|
||
//
|
||
// var nTextH: Integer := png.Canvas.TextHeight(sWText);
|
||
// Dec(nTop, nTextH + (nTextH div 3));
|
||
// sWText := 'This document is property of the WINSTECHNET And may not be modlfied, copled or distributed without prior consent of the WINSTECHNET';
|
||
// png.Canvas.TextOut(nLeft, nTop, sWText);
|
||
//
|
||
// Dec(nTop, nTextH + (nTextH div 3));
|
||
// sWText := '이 문서는 ㈜윈스테크넷의 자산입니다.';
|
||
// png.Canvas.TextOut(nLeft, nTop, sWText);
|
||
// end;
|
||
//
|
||
// CUSTOMER_SANKYO :
|
||
// begin
|
||
// png.Canvas.Font.Color := clGray;
|
||
//
|
||
// // 좌측 상단
|
||
// sWText := sBottomText;
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// png.Canvas.TextOut((png.Width - nW) div 2, 0, sWText)
|
||
// else
|
||
// png.Canvas.TextOut(0, 0, sWText);
|
||
//
|
||
// // 가운데 하단
|
||
// sWText := '본 문서는 한국다이이찌산쿄의 정보자산이며, 본 문서의 무단 유출/복사/도용 시 당사 사규와 관련 법규에 의해 제재 받을 수 있습니다.';
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// nLeft := ((png.Width - ((png.Width - nW) div 2)) div 2) - (png.Canvas.TextWidth(sWText) div 2)
|
||
// else
|
||
// nLeft := (png.Width div 2) - (png.Canvas.TextWidth(sWText) div 2);
|
||
// png.Canvas.TextOut(nLeft, nTop, sWText);
|
||
// end;
|
||
// else begin
|
||
// png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
||
//
|
||
// if CUSTOMER_TYPE <> CUSTOMER_SOLIDEO then
|
||
// begin
|
||
// // 프린터 문서 이름 추가 23_0826 15:51:34 kku
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// png.Canvas.TextOut((png.Width - nW) div 2, nTop, Format('%s', [WInfo.sDocName, i + 1, ImgList.Count]))
|
||
// else
|
||
// png.Canvas.TextOut(0, nTop, Format('%s', [WInfo.sDocName, i + 1, ImgList.Count]));
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
// end;
|
||
//
|
||
// if not gParam.PrtWaterCfg.bActive then // 워터마크 설정을 사용하면 아래 무시 25_0728 14:38:41 kku
|
||
// case CUSTOMER_TYPE of
|
||
//// CUSTOMER_DEV,
|
||
// CUSTOMER_ALADIN :
|
||
// begin
|
||
// if png.Width < png.Height then
|
||
// SetImgFontSize(png.Width div 40)
|
||
// else
|
||
// SetImgFontSize(png.Height div 40);
|
||
// // png.Canvas.Font.Name := '돋음'; // 폰트 지정하면 출력 안되는 현상이 있다? 24_0509 13:17:25 kku
|
||
// png.Canvas.Font.Style := png.Canvas.Font.Style + [fsBold];
|
||
//
|
||
// var sText: String := gParam.EmpNo + '/' + gParam.IP + '/' + FormatDateTime('yyyy-mm-dd', Now);
|
||
// if png.Width < png.Height then
|
||
// sText := sText + WORD_GAP + sText + WORD_GAP + sText
|
||
// else
|
||
// sText := sText + WORD_GAP + sText + WORD_GAP + sText + WORD_GAP + sText;
|
||
//
|
||
// var bmpT: TBitmap;
|
||
// Guard(bmpT, TBitmap.Create);
|
||
// bmpT.PixelFormat := pf4bit;
|
||
// bmpT.SetSize(png.Canvas.TextWidth(sText), png.Canvas.TextHeight(sText));
|
||
// bmpT.Canvas.Font := png.Canvas.Font;
|
||
// bmpT.Canvas.Font.Color := clSilver;
|
||
// bmpT.Canvas.TextOut(0, 0, sText);
|
||
// bmpT.TransparentColor := clWhite;
|
||
// bmpT.Transparent := true;
|
||
// // bmpT.SaveToFile('c:\1.bmp');
|
||
// RotateBitmap_PlgBlt(bmpT, -0.45, true, clWhite);
|
||
//
|
||
// var cTrMatrix: TColorMatrix;
|
||
// ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
||
// // 회색
|
||
// cTrMatrix[0][0] := 0.299;
|
||
// cTrMatrix[0][1] := 0.299;
|
||
// cTrMatrix[0][2] := 0.299;
|
||
// cTrMatrix[1][0] := 0.587;
|
||
// cTrMatrix[1][1] := 0.587;
|
||
// cTrMatrix[1][2] := 0.587;
|
||
// cTrMatrix[2][0] := 0.114;
|
||
// cTrMatrix[2][1] := 0.114;
|
||
// cTrMatrix[2][2] := 0.114;
|
||
// cTrMatrix[3][3] := 0.242; // 투명도 1.0 ~ 2.22
|
||
// cTrMatrix[4][4] := 1.0;
|
||
//
|
||
// var nHH := png.Height div 2;
|
||
// var nGapH: Integer := bmpT.Height;
|
||
// var c: Integer := (nGapH div 2) * -1;
|
||
// while c < nHH + nGapH do
|
||
// begin
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, 0, c, bmpT, @cTrMatrix);
|
||
// Inc(c, Round(nGapH / 1.5));
|
||
// end;
|
||
// end;
|
||
// CUSTOMER_KBIZ :
|
||
// begin
|
||
// SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
||
// SetImgFontSize(54);
|
||
// png.Canvas.Font.Color := clSilver;
|
||
// if (png.Height > nH) and (WInfo.sPdfPath = '') then // 이거 왜 이렇게 했는지... 까먹음.. 24_0626 14:18:50 kku
|
||
// nTop := (png.Height - ((png.Height - nH) div 2)) - png.Canvas.TextHeight(sBottomText)
|
||
// else
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
//
|
||
// sBottomText := Format('%s %s', [gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
||
// if (png.Width > nW) and (WInfo.sPdfPath = '') then
|
||
// png.Canvas.TextOut((png.Width - nW) div 2, nTop, sBottomText)
|
||
// else
|
||
// png.Canvas.TextOut(0, nTop, sBottomText);
|
||
//
|
||
// if png.Width < png.Height then
|
||
// SetImgFontSize(png.Width div 18)
|
||
// else
|
||
// SetImgFontSize(png.Height div 18);
|
||
// png.Canvas.Font.Style := png.Canvas.Font.Style + [fsBold];
|
||
//
|
||
// var sText: String := 'KBIZ';
|
||
// var bmpW: TBitmap;
|
||
// Guard(bmpW, TBitmap.Create);
|
||
// bmpW.SetSize(png.Canvas.TextWidth(sText), png.Canvas.TextHeight(sText));
|
||
// bmpW.Canvas.Font.Assign(png.Canvas.Font);
|
||
// bmpW.Canvas.Font.Color := clSilver;
|
||
// bmpW.Canvas.TextOut(0, 0, sText);
|
||
// bmpW.TransparentColor := clWhite;
|
||
// bmpW.Transparent := true;
|
||
// RotateBitmap_PlgBlt(bmpW, -0.8, true, clWhite);
|
||
//
|
||
// var cTrMatrix: TColorMatrix;
|
||
// ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
||
// // 회색
|
||
// cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.05);
|
||
//
|
||
// // 가운데
|
||
//// var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
||
//// var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
||
//// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
||
//
|
||
// // 왼쪽위
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, 0, 0, bmpW, @cTrMatrix);
|
||
//
|
||
// // 오른쪽아래
|
||
// var nX: Integer := png.Width - bmpW.Width;
|
||
// var nY: Integer := png.Height - bmpW.Height;
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
||
// end;
|
||
// CUSTOMER_JUVIS :
|
||
// begin
|
||
// if png.Width < png.Height then
|
||
// SetImgFontSize(png.Width div 9)
|
||
// else
|
||
// SetImgFontSize(png.Height div 9);
|
||
// // png.Canvas.Font.Name := '돋음'; // 폰트 지정하면 출력 안되는 현상이 있다? 24_0509 13:17:25 kku
|
||
// png.Canvas.Font.Style := png.Canvas.Font.Style + [fsBold];
|
||
//
|
||
// // var sText: String := '쥬비스 다이어트';
|
||
// var sText: String := 'JUVIS DIET';
|
||
// var bmpW: TBitmap;
|
||
// Guard(bmpW, TBitmap.Create);
|
||
// bmpW.SetSize(png.Canvas.TextWidth(sText), png.Canvas.TextHeight(sText));
|
||
// bmpW.Canvas.Font := png.Canvas.Font;
|
||
// bmpW.Canvas.Font.Color := clSilver;
|
||
// bmpW.Canvas.TextOut(0, 0, sText);
|
||
// bmpW.TransparentColor := clWhite;
|
||
// bmpW.Transparent := true;
|
||
// RotateBitmap_PlgBlt(bmpW, -0.8, true, clWhite);
|
||
//
|
||
// var cTrMatrix: TColorMatrix;
|
||
// ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
||
// // 회색
|
||
// cTrMatrix[0][0] := 0.299;
|
||
// cTrMatrix[0][1] := 0.299;
|
||
// cTrMatrix[0][2] := 0.299;
|
||
// cTrMatrix[1][0] := 0.587;
|
||
// cTrMatrix[1][1] := 0.587;
|
||
// cTrMatrix[1][2] := 0.587;
|
||
// cTrMatrix[2][0] := 0.114;
|
||
// cTrMatrix[2][1] := 0.114;
|
||
// cTrMatrix[2][2] := 0.114;
|
||
// cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 2.22
|
||
// cTrMatrix[4][4] := 1.0;
|
||
//
|
||
// var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
||
// var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
||
// end;
|
||
//
|
||
// CUSTOMER_WELFND,
|
||
// CUSTOMER_WELFNI,
|
||
// CUSTOMER_SHSC,
|
||
// CUSTOMER_SHCI,
|
||
// CUSTOMER_WINSTN,
|
||
// CUSTOMER_SANKYO,
|
||
// CUSTOMER_KORENTAL,
|
||
// CUSTOMER_DEMO :
|
||
// begin
|
||
//// var sImgPath: String := GetRunExePathDir + DIR_CONF + 'CI.bmp';
|
||
// var sImgPath: String := 'C:\ProgramData\HE\CI.bmp';
|
||
// if FileExists(sImgPath) then
|
||
// begin
|
||
// try
|
||
// var bmpW: TBitmap;
|
||
// Guard(bmpW, TBitmap.Create);
|
||
// bmpW.LoadFromFile(sImgPath);
|
||
//
|
||
// bmpW.PixelFormat := pf4bit;
|
||
//
|
||
// bmpW.TransparentColor := clWhite;
|
||
// bmpW.Transparent := true;
|
||
//
|
||
// ScalePercentBmp(bmpW, GetDPI_Size(300));
|
||
//
|
||
// var cTrMatrix: TColorMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.05);
|
||
//
|
||
// var nX: Integer := png.Width - (png.Width div 2) - (bmpW.Width div 2);
|
||
// var nY: Integer := png.Height - (png.Height div 2) - (bmpW.Height div 2);
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, bmpW, @cTrMatrix);
|
||
// except
|
||
// // ..
|
||
// end;
|
||
// end else
|
||
// Result := false;
|
||
// end;
|
||
//
|
||
// CUSTOMER_GEC :
|
||
// begin
|
||
// if _bmpWaterP = nil then
|
||
// begin
|
||
// var sImgPath: String := GetRunExePathDir + DIR_CONF + 'HWMJ.dat';
|
||
// if FileExists(sImgPath) then
|
||
// begin
|
||
// var sText: String := '';
|
||
// if gParam.DeptName <> '' then
|
||
// sText := gParam.DeptName + '/' + gParam.EmpNo + '/' + gParam.IP + '/' + FormatDateTime('yyyy-mm-dd', Now)
|
||
// else
|
||
// sText := gParam.EmpNo + '/' + gParam.IP + '/' + FormatDateTime('yyyy-mm-dd', Now);
|
||
// var nFontSize: Integer := png.Canvas.Font.Size;
|
||
// while True do
|
||
// begin
|
||
// if nFontSize > 200 then
|
||
// break;
|
||
//
|
||
// if png.Canvas.TextHeight(sText) > 180 then // 부서명이 들어간 후 2000에서 변경
|
||
// begin
|
||
// Dec(nFontSize);
|
||
// break;
|
||
// end;
|
||
// Inc(nFontSize);
|
||
// png.Canvas.Font.Size := (nFontSize);
|
||
// end;
|
||
//
|
||
// var jpg: TJPEGImage;
|
||
// jpg := TJPEGImage.Create;
|
||
// jpg.LoadFromFile(sImgPath);
|
||
//
|
||
// var bmpImg: TBitmap;
|
||
// bmpImg := TBitmap.Create;
|
||
// bmpImg.Assign(jpg);
|
||
// jpg.Free; // Free
|
||
// bmpImg.Canvas.Font.Assign(png.Canvas.Font);
|
||
// bmpImg.Canvas.Font.Color := clSilver;
|
||
// bmpImg.Canvas.Font.Size := nFontSize - (nFontSize div 2);
|
||
// bmpImg.Canvas.Font.Style := bmpImg.Canvas.Font.Style + [fsBold];
|
||
//
|
||
// //---
|
||
// // sOut := '정보보호부문/2323308/10.177.15.123/2023-12-31';
|
||
// // HEC 새로운 요구사항 반영 23_1121 10:22:09 kku
|
||
// // bmpImg.Canvas.Font.Size := bmpImg.Canvas.Font.Size + 14;
|
||
// // ScalePercentBmp(bmpImg, 120);
|
||
// //---
|
||
//
|
||
// var nWW := bmpImg.Canvas.TextWidth(sText);
|
||
// if bmpImg.Width > nWW then
|
||
// nWW := bmpImg.Width;
|
||
// var nHH := bmpImg.Height + bmpImg.Canvas.TextHeight(sText);
|
||
// _bmpWaterP := TBitmap.Create;
|
||
// _bmpWaterP.Canvas.Font.Assign(bmpImg.Canvas.Font);
|
||
// _bmpWaterP.PixelFormat := pf4bit;
|
||
// _bmpWaterP.SetSize(nWW, nHH);
|
||
// _bmpWaterP.Canvas.Brush.Color := clWhite;
|
||
// _bmpWaterP.Canvas.Brush.Style := bsSolid;
|
||
// _bmpWaterP.Canvas.FillRect(Rect(0, 0, _bmpWaterP.Width, _bmpWaterP.Height));
|
||
// _bmpWaterP.Canvas.Draw((nWW div 2) - (bmpImg.Width div 2), 0, bmpImg);
|
||
// _bmpWaterP.Canvas.TextOut(0, bmpImg.Height, sText);
|
||
// bmpImg.Free; // Free
|
||
//
|
||
// RotateBitmap_PlgBlt(_bmpWaterP, -0.7, true, clWhite);
|
||
//
|
||
// var ii: Integer;
|
||
// var jj: Integer;
|
||
// for ii := 0 to _bmpWaterP.Width - 1 do
|
||
// for jj := 0 to _bmpWaterP.Height - 1 do
|
||
// if _bmpWaterP.Canvas.Pixels[ii, jj] <> clWhite then
|
||
// _bmpWaterP.Canvas.Pixels[ii, jj] := clGray;
|
||
//
|
||
// // ScalePercentBmp(_bmpWaterP, 60);
|
||
//// ScalePercentBmp(_bmpWaterP, 130); // 늘리는거 쓰면 이미지가 빈값이 되는 문제가 있음 24_0514 08:30:40 kku
|
||
// _bmpWaterP.TransparentColor := clWhite;
|
||
// _bmpWaterP.Transparent := true;
|
||
// end;
|
||
// end;
|
||
//
|
||
// if _bmpWaterP <> nil then
|
||
// begin
|
||
// // 추가 24_0626 17:31:52 kku
|
||
// var cTrMatrix: TColorMatrix;
|
||
// ZeroMemory(@cTrMatrix, SizeOf(cTrMatrix));
|
||
// // 회색
|
||
// cTrMatrix[0][0] := 0.299;
|
||
// cTrMatrix[0][1] := 0.299;
|
||
// cTrMatrix[0][2] := 0.299;
|
||
// cTrMatrix[1][0] := 0.587;
|
||
// cTrMatrix[1][1] := 0.587;
|
||
// cTrMatrix[1][2] := 0.587;
|
||
// cTrMatrix[2][0] := 0.114;
|
||
// cTrMatrix[2][1] := 0.114;
|
||
// cTrMatrix[2][2] := 0.114;
|
||
// cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 2.22
|
||
// cTrMatrix[4][4] := 1.0;
|
||
//
|
||
// var nIW: Integer := png.Width;
|
||
// var nIH: Integer := png.Height;
|
||
// var nX := (nIW div 2) - (_bmpWaterP.Width div 2);
|
||
// var nY := (nIH div 2) - (nIH div 3);
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, _bmpWaterP, @cTrMatrix);
|
||
//
|
||
// nY := (nIH div 2) + (nIH div 10);
|
||
// DrawBitmapWaterEx(png.Canvas.Handle, nX, nY, _bmpWaterP, @cTrMatrix);
|
||
//
|
||
//// _bmpWaterP.SaveToFile('c:\0.bmp');
|
||
//// png.SaveToFile('c:\1.png');
|
||
//
|
||
// SetBkMode(png.Canvas.Handle, TRANSPARENT);
|
||
// png.Canvas.Font.Color := clGray;
|
||
// SetImgFontSize(Round(_bmpWaterP.Canvas.Font.Size * 1.3));
|
||
// sBottomText := gParam.LabelName; // '대외비(Restricted)';
|
||
// if sBottomText <> '' then
|
||
// begin
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
// nTop := 0;
|
||
// png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
||
// end;
|
||
//
|
||
// sBottomText := 'Security Starts with Small Habits';
|
||
// nLeft := png.Width - png.Canvas.TextWidth(sBottomText);
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
// png.Canvas.TextOut(nLeft, nTop, sBottomText);
|
||
//
|
||
// SetImgFontSize(_bmpWaterP.Canvas.Font.Size div 2);
|
||
// sBottomText := 'This document or drawing is the property of Hyundai Engineering. Any reproduction or distribution of the materials without permission of Hyundai engineering is strictly prohibited.';
|
||
// nLeft := 0;
|
||
// nTop := png.Height - png.Canvas.TextHeight(sBottomText);
|
||
// png.Canvas.TextOut(0, nTop, sBottomText);
|
||
//
|
||
//// png.SaveToFile('c:\2.png');
|
||
// end;
|
||
// end;
|
||
//
|
||
// else Result := false;
|
||
// end;
|
||
//
|
||
// // 용지를 출력 옵션대로 변경하기 때문에 다시 원래대로 안돌려도 된다 25_0904 10:09:55 kku
|
||
//// if bRotate then
|
||
//// begin
|
||
//// nTmp := nW;
|
||
//// nW := nH;
|
||
//// nH := nTmp;
|
||
//// RotatePng(png, -90);
|
||
//// end;
|
||
//
|
||
// if Result then
|
||
// begin
|
||
// if aDest <> 0 then
|
||
// begin
|
||
// StretchBlt(aDest, 0, 0, nW, nH,
|
||
// png.Canvas.Handle, 0, 0, png.Width, png.Height, SRCCOPY);
|
||
// end;
|
||
// end;
|
||
// except
|
||
// on E: Exception do
|
||
// begin
|
||
// Result := false;
|
||
// ETgException.TraceException(Self, E, 'Fail .. ProcessWatermark()');
|
||
// end;
|
||
// end;
|
||
// end;
|
||
|
||
Label
|
||
LB_CollatePdf, LB_CollatePng, LB_CollateEmf,
|
||
LB_Collate1;
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 1');
|
||
nStep := 0;
|
||
// _bmpST := nil;
|
||
bmpWaterP := nil;
|
||
dlg := nil;
|
||
try
|
||
// if FindWindow('TDlgWaitExtrProcPrt', nil) <> 0 then
|
||
// exit;
|
||
|
||
if Printer.Printing then
|
||
exit;
|
||
|
||
WInfo := gParam.PrtWaterEnt;
|
||
// WInfo.sImgPath := 'C:\Users\kku\Desktop\이전 바탕화면\spl2pdf_cmd\_test\스풀데이터_20250903164023.pdf';
|
||
sExt := GetFileExt(WInfo.sImgPath).ToUpper;
|
||
if sExt = 'PDF' then
|
||
ProcType := ptPdf
|
||
else if sExt = 'EM1' then
|
||
ProcType := ptEmf
|
||
else
|
||
ProcType := ptPng;
|
||
OrgDevMode := TTgRtti.StrToSetType<TDeviceMode>(WInfo.DevMode);
|
||
|
||
if gParam.IsAdvancePrtProg then
|
||
begin
|
||
// SendData(gParam.RcvWnd, KV_PRTWM_PROGRESS, 'next');
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 2, 0);
|
||
end;
|
||
dlg := TDlgWaitExtrProcPrt.Create(Self, WInfo.dwTotalPage);
|
||
if gParam.IsAdvancePrtProg then
|
||
begin
|
||
// 드러나는 폼이 있어야 PDF 출력 시 BeginDoc()에서 파일 선택 창이 나온다...
|
||
// 그래서 아래처럼 폼을 숨겨서 보여주는 식으로 사용 함 25_0626 22:40:32 kku
|
||
dlg.FormStyle := fsNormal;
|
||
dlg.Position := poDesigned;
|
||
dlg.Top := Screen.DesktopTop - (dlg.Height * 2);
|
||
dlg.Show;
|
||
end else
|
||
if not IsHidePrtProgPopup and not gParam.NoPrtPopup then
|
||
dlg.Show;
|
||
Application.ProcessMessages;
|
||
|
||
png := nil;
|
||
mf := nil;
|
||
try
|
||
Guard(ImgList, TStringList.Create);
|
||
case ProcType of
|
||
ptPdf : ;
|
||
ptPng :
|
||
begin
|
||
ExtrPrintImgFiles(WInfo.sImgPath, ImgList);
|
||
if ImgList.Count = 0 then
|
||
exit;
|
||
|
||
png := TPngImage.Create;
|
||
sImgPath := ImgList[0];
|
||
png.LoadFromFile(sImgPath);
|
||
end;
|
||
ptEmf :
|
||
begin
|
||
sImgDir := ExtractFilePath(WInfo.sImgPath);
|
||
ExtrFilesFromDir(sImgDir, ImgList, false, 'em1');
|
||
if ImgList.Count = 0 then
|
||
exit;
|
||
|
||
mf := TMetafile.Create;
|
||
sImgPath := sImgDir + ImgList[0];
|
||
mf.LoadFromFile(sImgPath);
|
||
end;
|
||
end;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 2');
|
||
|
||
sTopText := ''; //Trim(edTopText.Text);
|
||
// sBottomText := Format('%s/%s', [gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]); // Trim(edBottomText.Text);
|
||
sBottomText := gParam.DefPrtWaterTxt;
|
||
// try
|
||
// case CUSTOMER_TYPE of
|
||
// CUSTOMER_WELFND,
|
||
// CUSTOMER_WELFNI :
|
||
// begin
|
||
// var sTemp: String := gParam.PrtDocId;
|
||
// if sTemp.Length > 20 then
|
||
// SetLength(sTemp, 20);
|
||
//
|
||
// sBottomText := gParam.EmpNo + '/' + sTemp;
|
||
// end;
|
||
// CUSTOMER_KORENTAL :
|
||
// begin
|
||
// if gParam.UName <> '' then
|
||
// sBottomText := Format('%s/%s/%s/%s/%s', [gParam.EmpNo, gParam.DeptName, gParam.UName, gParam.IP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else if gParam.DeptName <> '' then
|
||
// sBottomText := Format('%s/%s/%s/%s', [gParam.EmpNo, gParam.DeptName, gParam.IP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else
|
||
// sBottomText := Format('%s/%s/%s', [gParam.EmpNo, gParam.IP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// end;
|
||
// CUSTOMER_CJONS :
|
||
// begin
|
||
// var sDept: String := ExtrLastDelimiterStr(gParam.DeptName, ';');
|
||
// var sUName: String := gParam.UName;
|
||
// if sUName = '' then
|
||
// sUname := gParam.EmpNo;
|
||
// if sDept <> '' then
|
||
// sBottomText := Format('%s/%s/%s', [sUName, sDept, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else
|
||
// sBottomText := Format('%s/%s', [sUName, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
||
// end;
|
||
// CUSTOMER_SHSC :
|
||
// begin
|
||
// var sEmpNo: String := gParam.EmpNo;
|
||
// if sEmpNo.Length > 2 then
|
||
// sEmpNo[3] := '*';
|
||
// if sEmpNo.Length > 3 then
|
||
// sEmpNo[4] := '*';
|
||
//
|
||
// if gParam.UName <> '' then
|
||
// begin
|
||
// var sUName: String := gParam.UName;
|
||
// if sUName.Length > 1 then
|
||
// sUName[2] := '*';
|
||
// sBottomText := Format('%s / %s / %s', [sUName, sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// end else
|
||
// sBottomText := Format('%s / %s', [sEmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
||
// end;
|
||
// CUSTOMER_SHCI :
|
||
// begin
|
||
// if gParam.UName <> '' then
|
||
// begin
|
||
// var sUName: String := gParam.UName;
|
||
// if sUName.Length > 1 then
|
||
// sUName[2] := '*';
|
||
// sBottomText := Format('%s / %s / %s / %s', [gParam.EmpNo, sUName, gParam.DeptName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
||
// end else
|
||
// if gParam.DeptName <> '' then
|
||
// sBottomText := Format('%s / %s / %s', [gParam.EmpNo, gParam.DeptName, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)])
|
||
// else
|
||
// sBottomText := Format('%s / %s', [gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
||
// end;
|
||
// CUSTOMER_GIORDANO :
|
||
// begin
|
||
// sBottomText := Format('%s / %s', [gParam.EmpNo, DateTimeToStr(Now)]);
|
||
// end;
|
||
// CUSTOMER_MOTRAS :
|
||
// begin
|
||
// if gParam.UName <> '' then
|
||
// sBottomText := Format('%s / %s / %s / %s / %s', [gParam.UName, gParam.DeptName, gParam.EmpNo, gParam.IP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else if gParam.DeptName <> '' then
|
||
// sBottomText := Format('%s / %s / %s / %s', [gParam.DeptName, gParam.EmpNo, gParam.IP, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else
|
||
// sBottomText := Format('%s / %s / %s', [gParam.EmpNo, gParam.IP, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
||
// end;
|
||
// CUSTOMER_SOLMIX :
|
||
// begin
|
||
// sBottomText := Format('%s / %s / ', [gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)]);
|
||
// end;
|
||
// CUSTOMER_SANKYO :
|
||
// begin
|
||
// if gParam.UName <> '' then
|
||
// sBottomText := Format('%s / %s / %s', [gParam.UName, gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else
|
||
// sBottomText := Format('%s / %s', [gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
||
// end;
|
||
// else begin
|
||
// if gParam.UName <> '' then
|
||
// sBottomText := Format('%s / %s / %s / %s', [gParam.UName, gParam.DeptName, gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else if gParam.DeptName <> '' then
|
||
// sBottomText := Format('%s / %s / %s', [gParam.DeptName, gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)])
|
||
// else
|
||
// sBottomText := Format('%s / %s', [gParam.EmpNo, FormatDateTime('yyyy-mm-dd hh:nn', Now)]);
|
||
// end;
|
||
// end;
|
||
// except
|
||
// sBottomText := 'Error';
|
||
// end;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 3');
|
||
// Guard(ImgEn, TImageEn.Create(nil));
|
||
// Guard(F, TFont.Create);
|
||
// F.Size := 200; // 400
|
||
// if png.Width > png.Height then
|
||
// F.Orientation := 50 // 가로
|
||
// else
|
||
// F.Orientation := 300; // 세로
|
||
// F.Color := clSilver; // $F1F1F1; // clSilver; // clGray;
|
||
// F.Style := png.Canvas.Font.Style + [fsBold];
|
||
|
||
pi := -1;
|
||
// WInfo.sPtrName := 'Canon Generic Plus UFR II';
|
||
for i := 0 to Printer.Printers.Count - 1 do
|
||
begin
|
||
if Printer.Printers[i] = WInfo.sPtrName then
|
||
pi := i;
|
||
end;
|
||
|
||
if pi = -1 then
|
||
begin
|
||
TTgTrace.T('프린터 찾기 실패 .. Name=%s', [WInfo.sPtrName]);
|
||
exit;
|
||
end;
|
||
|
||
Printer.PrinterIndex := pi;
|
||
if not WInfo.bUseWM then
|
||
Printer.Title := WInfo.sDocName + ' *BSOne-'
|
||
else
|
||
Printer.Title := WInfo.sDocName + ' *BSOne';
|
||
|
||
TTgTrace.T('ProcessPrint() ... 4');
|
||
hDev := 0;
|
||
Printer.GetPrinter(arrDevice, arrDriver, arrPort, hDev);
|
||
if hDev = 0 then
|
||
exit;
|
||
|
||
var nCopies: Integer := OrgDevMode.dmCopies;
|
||
var nCopies0: Integer;
|
||
var dmCollate: DWORD := OrgDevMode.dmCollate;
|
||
DevMode := GlobalLock(hDev);
|
||
try
|
||
// 항상 1부로 나오도록 조정, 설정된 출력은 별도 처리 25_0604 13:01:05 kku
|
||
OrgDevMode.dmCopies := 1;
|
||
if ProcType <> ptPdf then
|
||
begin
|
||
if WInfo.bPaperV then
|
||
OrgDevMode.dmOrientation := DMORIENT_PORTRAIT
|
||
else
|
||
OrgDevMode.dmOrientation := DMORIENT_LANDSCAPE;
|
||
end;
|
||
|
||
// DevMode.dmPaperSize := WInfo.dwPageSizeT;
|
||
DevMode^ := OrgDevMode;
|
||
// DevMode.dmColor := DMCOLOR_COLOR; // DMCOLOR_MONOCHROME
|
||
// DevMode.dmColor := DMCOLOR_MONOCHROME; // DMCOLOR_MONOCHROME
|
||
Printer.SetPrinter(arrDevice, arrDriver, arrPort, hDev);
|
||
finally
|
||
GlobalUnlock(hDev);
|
||
end;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 4 1');
|
||
|
||
// 용지 가로, 세로 돌릴려면 Printer.BeginDoc 전에 해야한다..
|
||
// 일부 프로그램에서 오류남 23_0623 08:45:27 kku
|
||
// try
|
||
// if not bIsOutPdf then
|
||
// begin
|
||
// if WInfo.bPaperV then
|
||
// Printer.Orientation := poPortrait
|
||
// else
|
||
// Printer.Orientation := poLandscape;
|
||
// end;
|
||
// TTgTrace.T('ProcessPrint() ... 4 2');
|
||
// except
|
||
// on E: Exception do
|
||
// ETgException.TraceException(Self, E, 'Fail .. Set Printer.Orientation');
|
||
// end;
|
||
TTgTrace.T('ProcessPrint() ... 4 3, ImgCnt=%d', [ImgList.Count]);
|
||
|
||
// 신도 프린터에서는 부수 세팅을 1로 하고 스플에 여러부수(Copies) 출력 정보를 넣어준다... 25_0604 19:27:20 kku
|
||
// 아래처럼 보완 처리, dmCollate는 항상 0으로 표시됨...
|
||
// TTgTrace.T('ProcessPrint() .. 1, dmCollate=%d, TotalP=%d, Copies=%d, ImgCnt=%d', [dmCollate, WInfo.dwTotalPage, nCopies, ImgList.Count]);
|
||
if (WInfo.dwTotalPage > 0) and (WInfo.dwTotalPage < ImgList.Count) then
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 4 4');
|
||
nCopies := ImgList.Count div WInfo.dwTotalPage;
|
||
dmCollate := 1; // 한 부씩 인쇄로 고정...
|
||
// TTgTrace.T('ProcessPrint() .. 2, SetCopies..%d', [nCopies]);
|
||
// 총 출력 부스만큼 이미지가 추출된 경우 처리... 25_0604 19:15:34 kku
|
||
for i := ImgList.Count - 1 downto 0 do
|
||
begin
|
||
if (i mod nCopies) > 0 then
|
||
ImgList.Delete(i);
|
||
end;
|
||
TTgTrace.T('ProcessPrint() ... 4 5');
|
||
end;
|
||
// TTgTrace.T('ProcessPrint() .. 3, ImgCnt=%d', [ImgList.Count]);
|
||
|
||
nW := 0;
|
||
nH := 0;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 4 6');
|
||
|
||
{$IF false}
|
||
TTgTrace.T('ProcessPrint() ... 4-1');
|
||
// Printer.BeginDoc;
|
||
try
|
||
for i := 0 to ImgList.Count - 1 do
|
||
begin
|
||
// if not Printer.Printing or Printer.Aborted then
|
||
// break;
|
||
|
||
if nW = 0 then
|
||
begin
|
||
// nW := GetDeviceCaps(Printer.Canvas.Handle, HORZRES);
|
||
// nH := GetDeviceCaps(Printer.Canvas.Handle, VERTRES);
|
||
end;
|
||
|
||
try
|
||
if i <> 0 then
|
||
begin
|
||
try
|
||
if png <> nil then
|
||
FreeAndNil(png);
|
||
// i = 0은 위에서 미리 불러옴
|
||
png := TPngImage.Create;
|
||
sImgPath := ImgList[i];
|
||
png.LoadFromFile(sImgPath);
|
||
except
|
||
{$IFDEF DEBUG} ASSERT(false); {$ENDIF}
|
||
break;
|
||
end;
|
||
// Printer.NewPage;
|
||
end;
|
||
|
||
if gParam.IsPrtSpl2Pdf then
|
||
// SendData(gParam.RcvWnd, KV_PRTWM_PROGRESS, IntToStr(i + 1));
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 0, i + 1);
|
||
dlg.SetPagePos(i + 1);
|
||
|
||
if not ProcessWatermark(0, sImgPath) then
|
||
begin
|
||
// pngRect.Right := nW;
|
||
// pngRect.Bottom := nH;
|
||
//
|
||
// if png.Width > nW then
|
||
// begin
|
||
// pngRect.Left := (png.Width - nW) div 2;
|
||
// pngRect.Width := nW;
|
||
// end;
|
||
// if png.Height > nH then
|
||
// begin
|
||
// pngRect.Top := (png.Height - nH) div 2;
|
||
// pngRect.Height := nH;
|
||
// end;
|
||
|
||
|
||
png.SaveToFile(Format('c:\test-%d.png', [i + 1]));
|
||
|
||
// StretchBlt(Printer.Canvas.Handle, 0, 0, nW, nH,
|
||
// png.Canvas.Handle, 0, 0, png.Width, png.Height, SRCCOPY);
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, Format('Fail .. DoPrint .. Step=%d', [nStep]));
|
||
end;
|
||
end;
|
||
finally
|
||
// if Printer.Printing then
|
||
// Printer.EndDoc;
|
||
end;
|
||
{$ELSE}
|
||
|
||
TTgTrace.T('ProcessPrint() ... 5');
|
||
if gParam.ForcePdfPath <> '' then
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 6, Pdf=%s', [gParam.ForcePdfPath]);
|
||
var pdf: TPdfDocumentGDI;
|
||
Guard(pdf, TPdfDocumentGDI.Create);
|
||
// pdf.UseUniscribe := true;
|
||
// pdf.StandardFontsReplace := true;
|
||
// pdf.UseFontFallBack := false;
|
||
// pdf.FontFallBackName := 'Tahoma';
|
||
pdf.ScreenLogPixels := 300; // 600;
|
||
|
||
case OrgDevMode.dmPaperSize of
|
||
DMPAPER_LETTERSMALL :
|
||
begin
|
||
pdf.DefaultPaperSize := psUserDefined;
|
||
pdf.DefaultPageWidth := 216 * 72;
|
||
pdf.DefaultPageHeight := 280 * 72;
|
||
end;
|
||
DMPAPER_LETTER : pdf.DefaultPaperSize := psLetter;
|
||
DMPAPER_LEGAL : pdf.DefaultPaperSize := psLegal;
|
||
DMPAPER_A3 : pdf.DefaultPaperSize := psA3;
|
||
DMPAPER_A4 : pdf.DefaultPaperSize := psA4;
|
||
DMPAPER_A4SMALL :
|
||
begin
|
||
pdf.DefaultPaperSize := psUserDefined;
|
||
pdf.DefaultPageWidth := 210 * 72;
|
||
pdf.DefaultPageHeight := 297 * 72;
|
||
end;
|
||
DMPAPER_A5 : pdf.DefaultPaperSize := psA5;
|
||
DMPAPER_B4 :
|
||
begin
|
||
pdf.DefaultPaperSize := psUserDefined;
|
||
pdf.DefaultPageWidth := 250 * 72;
|
||
pdf.DefaultPageHeight := 354 * 72;
|
||
end;
|
||
DMPAPER_B5 :
|
||
begin
|
||
pdf.DefaultPaperSize := psUserDefined;
|
||
pdf.DefaultPageWidth := 182 * 72;
|
||
pdf.DefaultPageHeight := 257 * 72;
|
||
end;
|
||
end;
|
||
|
||
if ProcType <> ptPdf then
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 7');
|
||
if png.Width > png.Height then
|
||
begin
|
||
var nSizeTemp: Integer := pdf.DefaultPageHeight;
|
||
pdf.DefaultPageHeight := pdf.DefaultPageWidth;
|
||
pdf.DefaultPageWidth := nSizeTemp;
|
||
end;
|
||
end;
|
||
|
||
|
||
var pdfPage: SynPdf.TPdfPage := pdf.AddPage;
|
||
pdf.VCLCanvas.Brush.Style := bsClear;
|
||
pdf.VCLCanvas.Font.Name := 'Tahoma';
|
||
|
||
nW := pdf.VCLCanvasSize.Width;
|
||
nH := pdf.VCLCanvasSize.Height;
|
||
|
||
case ProcType of
|
||
ptPdf : ;
|
||
ptPng :
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 8, ImgCnt=%d', [ImgList.Count]);
|
||
for i := 0 to ImgList.Count - 1 do
|
||
begin
|
||
try
|
||
if i <> 0 then
|
||
begin
|
||
try
|
||
if png <> nil then
|
||
FreeAndNil(png);
|
||
// i = 0은 위에서 미리 불러옴
|
||
png := TPngImage.Create;
|
||
sImgPath := ImgList[i];
|
||
png.LoadFromFile(sImgPath);
|
||
except
|
||
break;
|
||
end;
|
||
pdfPage := pdf.AddPage;
|
||
end;
|
||
|
||
if gParam.IsAdvancePrtProg then
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 0, i + 1);
|
||
dlg.SetPagePos(i + 1);
|
||
|
||
// if not ProcessWatermark(Printer.Canvas.Handle, sImgPath) then
|
||
if (ProcType <> ptPng) or
|
||
not ProcessWatermarkToImage(png, Printer.Canvas.Handle,
|
||
nW, nH, WInfo, gParam.ValSnaptag, sTopText, sBottomText, bmpWaterP, sImgPath) then
|
||
begin
|
||
// pdf.VCLCanvas.StretchDraw() - 이게 어느날 갑자기 안되기 시작했다;;; 24_0930 15:30:53 kku
|
||
StretchBlt(pdf.VCLCanvas.Handle, 0, 0, nW, nH,
|
||
png.Canvas.Handle, 0, 0, png.Width, png.Height, SRCCOPY);
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. PrintPDF .. 1');
|
||
end;
|
||
end;
|
||
end;
|
||
ptEmf :
|
||
begin
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 8, ImgCnt=%d', [ImgList.Count]);
|
||
for i := 0 to ImgList.Count - 1 do
|
||
begin
|
||
try
|
||
if i <> 0 then
|
||
begin
|
||
try
|
||
if mf <> nil then
|
||
FreeAndNil(mf);
|
||
// i = 0은 위에서 미리 불러옴
|
||
mf := TMetafile.Create;
|
||
sImgPath := sImgDir + ImgList[i];
|
||
mf.LoadFromFile(sImgPath);
|
||
if (mf.MMWidth = 0) or (mf.MMHeight = 0) then
|
||
continue;
|
||
except
|
||
break;
|
||
end;
|
||
pdfPage := pdf.AddPage;
|
||
end;
|
||
|
||
if gParam.IsAdvancePrtProg then
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 0, i + 1);
|
||
dlg.SetPagePos(i + 1);
|
||
|
||
pdf.VCLCanvas.StretchDraw(Rect(0, 0, nW, nH), mf);
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. PrintPDF .. 2');
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
try
|
||
pdf.SaveToFile(gParam.ForcePdfPath);
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, 'Fail .. PrintPDF .. 2');
|
||
end;
|
||
end else begin
|
||
TTgTrace.T('ProcessPrint() ... 6.');
|
||
|
||
Printer.BeginDoc;
|
||
try
|
||
TTgTrace.T('ProcessPrint() ... 6.1.');
|
||
if not Printer.Printing or Printer.Aborted then
|
||
exit;
|
||
TTgTrace.T('ProcessPrint() ... 6.2');
|
||
|
||
LB_Collate1 :
|
||
case ProcType of
|
||
ptPdf :
|
||
begin
|
||
TTgTrace.T('ProcessPrint() ... 7');
|
||
var doc: EM.PdfiumCore.TPdfDocument;
|
||
Guard(doc, EM.PdfiumCore.TPdfDocument.Create);
|
||
|
||
doc.LoadFromFile(WInfo.sImgPath);
|
||
|
||
nW := GetDeviceCaps(Printer.Canvas.Handle, HORZRES);
|
||
nH := GetDeviceCaps(Printer.Canvas.Handle, VERTRES);
|
||
|
||
var page: EM.PdfiumCore.TPdfPage;
|
||
var bIsPageLoad, bPagePortraitOrientation: Boolean;
|
||
var nPageW, nPageH: Integer;
|
||
bPagePortraitOrientation := nW > nH;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 8');
|
||
|
||
// FPU 예외 마스킹 (부동소수점 예외를 무시하게 함) >> PDFium 버그... 25_0612 16:12:04 kku
|
||
// 현재 FPU 컨트롤 워드 저장
|
||
var SavedCW: WORD := Get8087CW;
|
||
try
|
||
// 모든 FPU 예외 마스크
|
||
SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
|
||
// var bmp: TBitmap := nil;
|
||
// Guard(bmp, TBitmap.Create);
|
||
// bmp.PixelFormat := pf32bit;
|
||
// bmp.Canvas.Brush.Color := clWhite;
|
||
// bmp.SetSize(nW, nH);
|
||
for i := 0 to doc.PageCount - 1 do
|
||
begin
|
||
if not Printer.Printing or Printer.Aborted then
|
||
break;
|
||
|
||
nPageW := nW;
|
||
nPageH := nH;
|
||
|
||
if i <> 0 then
|
||
Printer.NewPage;
|
||
|
||
// bIsPageLoad := doc.IsPageLoaded(i);
|
||
try
|
||
page := doc.Pages[i];
|
||
// if bPagePortraitOrientation <> (Trunc(page.Width) > Trunc(page.Height)) then
|
||
// begin
|
||
// var nTmp: Integer := nPageW;
|
||
// nPageW := nPageH;
|
||
// nPageH := nTmp;
|
||
// end;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 9 - %d', [i]);
|
||
nCopies0 := nCopies;
|
||
if gParam.IsAdvancePrtProg then
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 0, i + 1);
|
||
dlg.SetPagePos(i + 1);
|
||
|
||
LB_CollatePdf :
|
||
// page.Draw(Printer.Handle, 0, 0, nPageW, nPageH, prNormal, [proPrinting, proNoNativeText, proNoCatch]);
|
||
if bPagePortraitOrientation <> (Trunc(page.Width) > Trunc(page.Height)) then
|
||
page.Draw(Printer.Handle, 0, 0, nPageW, nPageH, pr90Clockwise, [proPrinting, proNoCatch])
|
||
else
|
||
page.Draw(Printer.Handle, 0, 0, nPageW, nPageH, prNormal, [proPrinting, proNoCatch]);
|
||
|
||
// if bmp <> nil then
|
||
// begin
|
||
// if bPagePortraitOrientation <> (Trunc(page.Width) > Trunc(page.Height)) then
|
||
// page.Draw(bmp.Canvas.Handle, 0, 0, nPageW, nPageH, pr90Clockwise, [proPrinting, proNoCatch])
|
||
// else
|
||
// page.Draw(bmp.Canvas.Handle, 0, 0, nPageW, nPageH, prNormal, [proPrinting, proNoCatch]);
|
||
// bmp.SaveToFile(Format('C:\test\%d.bmp', [i]));
|
||
// bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height));
|
||
// end;
|
||
|
||
Dec(nCopies0);
|
||
if (dmCollate = 0) and (nCopies0 > 0) then
|
||
begin
|
||
Printer.NewPage;
|
||
goto LB_CollatePdf
|
||
end;
|
||
finally
|
||
// if not bIsPageLoad and (page <> nil) then
|
||
// page.Close;
|
||
end;
|
||
end;
|
||
finally
|
||
// 원래 상태 복원
|
||
Set8087CW(SavedCW);
|
||
end;
|
||
|
||
Dec(nCopies);
|
||
if (dmCollate <> 0) and (nCopies > 0) then
|
||
begin
|
||
Printer.NewPage;
|
||
goto LB_Collate1;
|
||
end;
|
||
|
||
TTgTrace.T('ProcessPrint() ... 10');
|
||
end;
|
||
ptPng :
|
||
begin
|
||
for i := 0 to ImgList.Count - 1 do
|
||
begin
|
||
if not Printer.Printing or Printer.Aborted then
|
||
break;
|
||
|
||
try
|
||
if i <> 0 then
|
||
begin
|
||
try
|
||
if png <> nil then
|
||
FreeAndNil(png);
|
||
// i = 0은 위에서 미리 불러옴
|
||
png := TPngImage.Create;
|
||
sImgPath := ImgList[i];
|
||
png.LoadFromFile(sImgPath);
|
||
except
|
||
{$IFDEF DEBUG} ASSERT(false); {$ENDIF}
|
||
break;
|
||
end;
|
||
Printer.NewPage;
|
||
end;
|
||
|
||
nW := GetDeviceCaps(Printer.Canvas.Handle, HORZRES);
|
||
nH := GetDeviceCaps(Printer.Canvas.Handle, VERTRES);
|
||
|
||
nCopies0 := nCopies;
|
||
if gParam.IsAdvancePrtProg then
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 0, i + 1);
|
||
dlg.SetPagePos(i + 1);
|
||
|
||
LB_CollatePng :
|
||
// if not ProcessWatermark(Printer.Canvas.Handle, sImgPath) then
|
||
if (ProcType <> ptPng) or
|
||
not ProcessWatermarkToImage(png, Printer.Canvas.Handle,
|
||
nW, nH, WInfo, gParam.ValSnaptag, sTopText, sBottomText, bmpWaterP, sImgPath) then
|
||
begin
|
||
// png.SaveToFile(Format('c:\test\test-%d.png', [i + 1]));
|
||
|
||
StretchBlt(Printer.Canvas.Handle, 0, 0, nW, nH,
|
||
png.Canvas.Handle, 0, 0, png.Width, png.Height, SRCCOPY);
|
||
end;
|
||
|
||
Dec(nCopies0);
|
||
if (dmCollate = 0) and (nCopies0 > 0) then
|
||
begin
|
||
Printer.NewPage;
|
||
goto LB_CollatePng;
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, Format('Fail .. DoPrint .. Step=%d', [nStep]));
|
||
end;
|
||
end;
|
||
|
||
Dec(nCopies);
|
||
if (dmCollate <> 0) and (nCopies > 0) then
|
||
begin
|
||
if png <> nil then
|
||
FreeAndNil(png);
|
||
png := TPngImage.Create;
|
||
sImgPath := ImgList[0];
|
||
png.LoadFromFile(sImgPath);
|
||
Printer.NewPage;
|
||
goto LB_Collate1;
|
||
end;
|
||
end;
|
||
ptEmf :
|
||
begin
|
||
for i := 0 to ImgList.Count - 1 do
|
||
begin
|
||
if not Printer.Printing or Printer.Aborted then
|
||
break;
|
||
|
||
try
|
||
if i <> 0 then
|
||
begin
|
||
try
|
||
if mf <> nil then
|
||
FreeAndNil(mf);
|
||
// i = 0은 위에서 미리 불러옴
|
||
mf := TMetafile.Create;
|
||
sImgPath := sImgDir + ImgList[i];
|
||
mf.LoadFromFile(sImgPath);
|
||
if (mf.MMWidth = 0) or (mf.MMHeight = 0) then
|
||
continue;
|
||
except
|
||
{$IFDEF DEBUG} ASSERT(false); {$ENDIF}
|
||
break;
|
||
end;
|
||
Printer.NewPage;
|
||
end;
|
||
|
||
nW := GetDeviceCaps(Printer.Canvas.Handle, HORZRES);
|
||
nH := GetDeviceCaps(Printer.Canvas.Handle, VERTRES);
|
||
|
||
nCopies0 := nCopies;
|
||
if gParam.IsAdvancePrtProg then
|
||
PostMessage(gParam.RcvWnd, WM_POPUP_PRTW_PROGRESS, 0, i + 1);
|
||
dlg.SetPagePos(i + 1);
|
||
|
||
LB_CollateEmf :
|
||
Printer.Canvas.StretchDraw(Rect(0, 0, nW, nH), mf);
|
||
|
||
Dec(nCopies0);
|
||
if (dmCollate = 0) and (nCopies0 > 0) then
|
||
begin
|
||
Printer.NewPage;
|
||
goto LB_CollateEmf;
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ETgException.TraceException(Self, E, Format('Fail .. DoPrint .. Step=%d', [nStep]));
|
||
end;
|
||
end;
|
||
|
||
Dec(nCopies);
|
||
if (dmCollate <> 0) and (nCopies > 0) then
|
||
begin
|
||
if mf <> nil then
|
||
FreeAndNil(mf);
|
||
mf := TMetafile.Create;
|
||
sImgPath := sImgDir + ImgList[0];
|
||
mf.LoadFromFile(sImgPath);
|
||
Printer.NewPage;
|
||
goto LB_Collate1;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
if Printer.Printing then
|
||
Printer.EndDoc;
|
||
end;
|
||
end;
|
||
{$IFEND}
|
||
finally
|
||
if png <> nil then
|
||
FreeAndNil(png);
|
||
if mf <> nil then
|
||
FreeAndNil(mf);
|
||
if bmpWaterP <> nil then
|
||
FreeAndNil(bmpWaterP);
|
||
|
||
DeleteDir(ExtractFilePath(WInfo.sImgPath));
|
||
|
||
if dlg <> nil then
|
||
FreeAndNil(dlg);
|
||
TerminateProcess(GetCurrentProcess, 9);
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
begin
|
||
ETgException.TraceException(Self, E, Format('Fail .. ProcessPrintWaterEnt(), Step=%d', [nStep]));
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
end.
|