{*******************************************************} { } { ProcessWatermark } { } { Copyright (C) 2025 kku } { } {*******************************************************} unit ProcessWM_SHCI; interface uses Winapi.Windows, System.Classes, Vcl.Graphics; function ProcessWartermark_SHCI(DC: HDC; bStartPage: Boolean = true): Boolean; implementation uses AppCtrlDefine, ApiHookPrint, BS1Hook, Tocsg.Safe, System.SysUtils, Condition, Tocsg.Graphic, Winapi.GDIPAPI, Tocsg.Strings, Vcl.Imaging.jpeg, Tocsg.Trace, Tocsg.Convert; function ProcessWartermark_SHCI(DC: HDC; bStartPage: Boolean = true): Boolean; var nW, nH, i, nX, nY, nGapW, nGapH, nDefDivFont: Integer; sText: String; MemCanvas: TCanvas; hbmp, hOldBmp: HBITMAP; pen: HPEN; oldColor: TColor; r: TRect; begin Result := true; if _PrtDC <> DC then exit; SaveDC(DC); gAppHook.Helper.bIsWaterMaking_ := true; try // WriteLnFileEndUTF8('C:\ProgramData\HE\prt.log', 'Step-0'); try if gAppHook.Helper.IsExcel then begin // 클리핑 제거 25_0605 14:51:11 kku SelectClipRgn(DC, 0); // 엑셀은 출력시트 설정에 따라 전체 영역으로 잡히는 않는 현상이 있다.. 24_0805 13:46:31 kku nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760 nH := GetDeviceCaps(DC, VERTRES); // 세로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814 end else begin // if bStartPage then // 이럴리 없겠지만 안전장치 // exit; ZeroMemory(@r, SizeOf(r)); GetClipBox(DC, r); nW := r.Width; nH := r.Height; if nW = 0 then nW := GetDeviceCaps(DC, HORZRES); // 세로모드 : 4961, 가로모드 : 7016, 크로미움 프린트 인쇄시 4760 if nH = 0 then nH := GetDeviceCaps(DC, VERTRES); // 세로모드 : 7016, 가로모드 : 4961, 크로미움 프린트 인쇄시 6814 end; Guard(MemCanvas, TCanvas.Create); MemCanvas.Handle := DC; //CreateCompatibleDC(DC); hbmp := CreateCompatibleBitmap(MemCanvas.Handle, nW, nH); hOldBmp := SelectObject(MemCanvas.Handle, hbmp); // if bStartPage then // PatBlt(MemCanvas.Handle, 0, 0, nW, nH, WHITENESS); nGapW := 0; nGapH := 0; MemCanvas.Font.Name := 'Tahoma'; if (CompareText(gAppHook.ModuleName, 'winword.exe') = 0) or (CompareText(gAppHook.ModuleName, 'notepad++.exe') = 0) then nGapH := 60; // 기본 폰트 조절 if nW > nH then MemCanvas.Font.Size := nW div 130 else MemCanvas.Font.Size := nH div 130; oldColor := GetTextColor(DC); // 폰트색 지정... 프로그램에 따라 지정되는 설정이 다르다 MemCanvas.Font.Color := clGray; // 메모장등 SetTextColor(DC, clGray); // 엑셀등 try SetBkMode(MemCanvas.Handle, TRANSPARENT); MemCanvas.Font.Color := $969696; sText := '고객정보 무단 반출시 법적 제재를 받을 수 있으며, 모든 출력물은 모니터링 됩니다.'; MemCanvas.TextOut(nW - MemCanvas.TextWidth(sText) + nGapW, nGapH, sText); // 오른쪽 상단 sText := gAppHook.Helper.sPrintWaterTxt; MemCanvas.TextOut(nGapW, nH - MemCanvas.TextHeight(sText) + nGapH, sText); // 왼쪽 하단 // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< if _bmpWater = nil then begin var sImgPath: String := ExtractFilePath(gAppHook.Helper.DllPath) + 'CI.bmp'; if FileExists(sImgPath) then begin try _bmpWater := TBitmap.Create; _bmpWater.PixelFormat := pf4bit; // 이거 켜면 흑백 출력시 안됨 24_0807 15:52:56 kku _bmpWater.LoadFromFile(sImgPath); // LogToReg('BW-01', BooleanToStr(gAppHook.Helper.CurAppType = catWebb, 'YES', 'NO')); if gAppHook.Helper.CurAppType = catWebb then ScalePercentBmp(_bmpWater, 40) else ScalePercentBmp(_bmpWater, 140); _bmpWater.TransparentColor := clWhite; _bmpWater.Transparent := true; // _bmpWater.SaveToFile('C:\Users\kku\Desktop\이전 바탕화면\출력 추출 데이터\1.bmp'); except // .. end; end; end; if _bmpWater <> nil then begin 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.1; // 투명도 1.0 ~ 0.22 // cTrMatrix[4][4] := 1.0; // 위 처럼하면 컬러랑 흑백이 섞인 출력의 경우 흑백에 로고가 안찍히는 문제 확인됨 24_0805 16:02:28 kku // cTrMatrix[0][0] := 1; // cTrMatrix[1][1] := 1; // cTrMatrix[2][2] := 1; // cTrMatrix[3][3] := 1; // 투명도 1.0 ~ 0.22 // cTrMatrix[4][4] := 1; // 신도 복합기에서 회색 가까운 색으로 표현한다.. // cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.2); // 이게 더 회색에 가깝지만 투명도가 떨어짐 // cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.05); // 후지에서 가장 흐리게 // cTrMatrix := MakeColorMatrix(0.05, 0.05, 0.05, 0.05); // 0.05가 가장 흐리게, 신도에선 흑백출력시 안보임 if gAppHook.Helper.bSmallFont_ then cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, BooleanToFloat(gAppHook.Helper.CtrlOpt.fWmTran <> 0.0, gAppHook.Helper.CtrlOpt.fWmTran, 0.05)) else // cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, 0.0099); cTrMatrix := MakeColorMatrix(0.2, 0.2, 0.2, BooleanToFloat(gAppHook.Helper.CtrlOpt.fWmTran <> 0.0, gAppHook.Helper.CtrlOpt.fWmTran, 0.08)); // cTrMatrix[0][0] := 0.3; // cTrMatrix[0][1] := 0.3; // cTrMatrix[0][2] := 0.3; // cTrMatrix[1][0] := 0.59; // cTrMatrix[1][1] := 0.59; // cTrMatrix[1][2] := 0.59; // cTrMatrix[2][0] := 0.11; // cTrMatrix[2][1] := 0.11; // cTrMatrix[2][2] := 0.11; // cTrMatrix[3][3] := 0.22; // 투명도 1.0 ~ 0.22 // cTrMatrix[4][4] := 1; Dec(nW, nGapW); Dec(nH, nGapH); nX := (nW div 4) - (_bmpWater.Width div 2); nY := (nH div 4) - (_bmpWater.Height div 2); // MemCanvas.Draw(nX, nY, _bmpWater); if not gAppHook.Helper.IsExcel or ( gAppHook.Helper.IsExcel and bStartPage and not _bDoStartProc) or ( gAppHook.Helper.IsExcel and not bStartPage ) then begin DrawBitmapWaterEx(MemCanvas.Handle, nX, nY, _bmpWater, @cTrMatrix); end; end; // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< // if bStartPage then // BitBlt(DC, 0, 0, nW, nH, MemCanvas.Handle, 0, 0, SRCCOPY); SelectObject(MemCanvas.Handle, hOldBmp); // DeleteObject(pen); DeleteObject(hbmp); // if bStartPage then // DeleteDC(MemCanvas.Handle); MemCanvas.Handle := 0; finally SetTextColor(DC, oldColor); end; gAppHook.Log(Format('ProcessWartermark() - Completed, LastError=%d', [GetLastError])); except // 실패하면 출력 안되게 해준다 22_0907 14:28:52 kku Result := false; DeleteDC(DC); end; finally gAppHook.Helper.bIsWaterMaking_ := false; RestoreDC(DC, -1); end; end; end.