[1] unit CB_IMGPSScanImp; [2] //TEST [3] {$WARN SYMBOL_PLATFORM OFF} [4] [5] interface [6] [7] uses [8] EnScan, { for Scanner } [9] EnDiGrph, { for TDibGraphic } [10] EnMisc, { for MinFloat } [11] EnTifGr, { for TTifGraphic } [12] {$IFDEF Production} [13] CB_IMGPSScan_TLB, [14] {$ENDIF} [15] {$IFDEF Test} [16] CB_IMGPSScan_test_TLB, [17] {$ENDIF} [18] [19] Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, [20] ActiveX, AxCtrls, StdVcl, VCLUnZip, VCLZip, Encryp, [21] ExtCtrls, ComCtrls, Menus, StdCtrls, Gauges, EnImgScr, PJMenuSpeedButtons, [22] Buttons, ImgList, SBSimpleSSL, SBHTTPSClient, SBWinCertStorage, SBX509, [23] SBCustomCertStorage, SBUtils,mpsBarco,BarcodesFinder,HTTPApp,ErrList, [24] Xmltool,inifiles,printers,IdHashMessageDigest, idHash, LogFile,ShellApi, [25] SBSocket,IIS_Ftp, SBSimpleFTPS; [26] Type [27] TTransMode =(tsHttp,tsFtp,tsNone); [28] [29] var [30] Ch_WriteNote : Boolean; [31] RejectCase : Boolean; [32] ErrIndex : Integer; [33] [34] //*****預設區*****// [35] Def_DeviceDelete : Boolean; //空白頁刪除啟動 [36] Def_DeviceDeleteSize : Integer; //空白頁Size [37] Def_ScannerReverse : Boolean; //是否需反相 [38] Def_BoardClear : Boolean; //是否清黑邊 [39] Def_ScanDpi : Integer; //掃瞄DPI [40] Def_ScanDuplex : Boolean; //是否雙面掃瞄 [41] Def_ScanRotate : Integer; //掃瞄時旋轉角度 [42] Def_ScanDeskew : Boolean; //是否傾斜矯正 [43] Def_ScanBright : Integer; //亮度 [44] Def_ScanContrast : Integer; //對比 [45] Def_ScanImgShowMode : Integer; //0:清楚影像 1:不清楚影像 2:不顯示 [46] Def_ScanImgSetUse : Boolean; //是否使用亮度對比設定 [47] //*****預設區*****// [48] [49] Const [50] ISBName = 'PreViewISB'; [51] [52] {獲取自身版本號所需要 } [53] type [54] TVersionLanguage = (vlArabic, vlBulgarian, vlCatalan, vlTraditionalChinese, [55] vlCzech, vlDanish, vlGerman, vlGreek, vlUSEnglish, vlCastilianSpanish, [56] vlFinnish, vlFrench, vlHebrew, vlHungarian, vlIcelandic, vlItalian, [57] vlJapanese, vlKorean, vlDutch, vlNorwegianBokmel, vlPolish, [58] vlBrazilianPortuguese, vlRhaetoRomanic, vlRomanian, vlRussian, [59] vlCroatoSerbian, vlSlovak, vlAlbanian, vlSwedish, vlThai, vlTurkish, [60] vlUrdu, vlBahasa, vlSimplifiedChinese, vlSwissGerman, vlUKEnglish, [61] vlMexicanSpanish, vlBelgianFrench, vlSwissItalian, vlBelgianDutch, [62] vlNorwegianNynorsk, vlPortuguese, vlSerboCroatian, vlCanadianFrench, [63] vlSwissFrench, vlUnknown); [64] [65] const LanguageValues: array[TVersionLanguage] of Word = ($0401, $0402, $0403, [66] $0404, $0405, $0406, $0407, $0408, $0409, $040A, $040B, $040C, $040D, [67] $040E, $040F, $0410, $0411, $0412, $0413, $0414, $0415, $0416, $0417, [68] $0418, $0419, $041A, $041B, $041C, $041D, $041E, $041F, $0420, $0421, [69] $0804, $0807, $0809, $080A, $080C, $0810, $0813, $0814, $0816, $081A, [70] $0C0C, $100C, $0000); [71] {獲取自身版本號所需要 end} [72] [73] [74] type [75] TScanMode = (smNew, smReplace, smInsert, smSample, smRTS); [76] TpScanInfo = ^TScanInfo; [77] TScanInfo = record [78] MultiPage : Boolean; [79] { supplementary info when MultiPage is True } [80] Graphic : TTiffGraphic; [81] Stream : TFileStream; [82] ImageCount : LongInt; [83] end; [84] TOMRErrInfo = record [85] Display : Boolean; //是否顯示 [86] Ignore : Boolean; //可否刪除 [87] Info : String; [88] Mode : String; [89] end; [90] TScrollRec = Record [91] HScroll : Integer; [92] VScroll : Integer; [93] Rate : Single; [94] end; [95] [96] type [97] TCB_IMGPSScanX = class(TActiveForm, ICB_IMGPSScanX) [98] Panel1: TPanel; [99] TransBtn: TBitBtn; [100] Panel21: TPanel; [101] ViewModeBtn: TPJMenuSpeedButton; [102] Button2: TButton; [103] Button1: TButton; [104] OptionBtn: TBitBtn; [105] SelectScanBtn: TBitBtn; [106] NextPageBtn: TBitBtn; [107] PrePageBtn: TBitBtn; [108] FC6: TBitBtn; [109] FC5: TBitBtn; [110] FC4: TBitBtn; [111] FC3: TBitBtn; [112] FC2: TBitBtn; [113] FC1: TBitBtn; [114] FC0: TBitBtn; [115] Panel23: TPanel; [116] PJLinkedMenuSpeedButton2: TPJLinkedMenuSpeedButton; [117] NewScanBtn: TBitBtn; [118] AddScanBtn: TBitBtn; [119] Panel4: TPanel; [120] Panel2: TPanel; [121] Splitter1: TSplitter; [122] Panel3: TPanel; [123] Label7: TLabel; [124] Panel6: TPanel; [125] CB1: TCheckBox; [126] ScanDuplexCB: TCheckBox; [127] ScanFlatCB: TCheckBox; [128] Panel18: TPanel; [129] Panel12: TPanel; [130] Panel7: TPanel; [131] Panel9: TPanel; [132] Shape1: TShape; [133] ImageScrollBox1: TImageScrollBox; [134] imgp8: TPanel; [135] lb8: TLabel; [136] ISB8: TImageScrollBox; [137] imgp7: TPanel; [138] lb7: TLabel; [139] ISB7: TImageScrollBox; [140] imgp6: TPanel; [141] lb6: TLabel; [142] ISB6: TImageScrollBox; [143] imgp5: TPanel; [144] lb5: TLabel; [145] ISB5: TImageScrollBox; [146] imgp4: TPanel; [147] lb4: TLabel; [148] ISB4: TImageScrollBox; [149] imgp3: TPanel; [150] lb3: TLabel; [151] ISB3: TImageScrollBox; [152] imgp2: TPanel; [153] lb2: TLabel; [154] ISB2: TImageScrollBox; [155] imgp1: TPanel; [156] lb1: TLabel; [157] Memo1: TMemo; [158] Display1: TMemo; [159] Panel22: TPanel; [160] Panel8: TPanel; [161] Label2: TLabel; [162] Gauge1: TGauge; [163] ScrollBar1: TScrollBar; [164] Panel10: TPanel; [165] PageLV: TListView; [166] StatusBar1: TStatusBar; [167] ImageList4: TImageList; [168] ImageList3: TImageList; [169] ImageList1: TImageList; [170] PopupMenu2: TPopupMenu; [171] mode1: TMenuItem; [172] mode2: TMenuItem; [173] mode3: TMenuItem; [174] mode4: TMenuItem; [175] N51: TMenuItem; [176] ImageList2: TImageList; [177] OpenDialog1: TOpenDialog; [178] PopupMenu3: TPopupMenu; [179] PM301: TMenuItem; [180] PM302: TMenuItem; [181] PM303: TMenuItem; [182] Timer1: TTimer; [183] TomEncryption1: TTomEncryption; [184] SaveDialog1: TSaveDialog; [185] Timer2: TTimer; [186] VCLZip1: TVCLZip; [187] PopupMenu4: TPopupMenu; [188] PM401: TMenuItem; [189] PM402: TMenuItem; [190] PM403: TMenuItem; [191] PM404: TMenuItem; [192] ElWinCertStorage: TElWinCertStorage; [193] ElMemoryCertStorage: TElMemoryCertStorage; [194] Panel5: TPanel; [195] AddCredit1RG: TRadioGroup; [196] Panel11: TPanel; [197] SampleScanBtn: TBitBtn; [198] WNoteBtn: TBitBtn; [199] PopupMenu1: TPopupMenu; [200] PM101: TMenuItem; [201] N12: TMenuItem; [202] PM102: TMenuItem; [203] MenuItem1: TMenuItem; [204] PM103: TMenuItem; [205] PM104: TMenuItem; [206] N7: TMenuItem; [207] PM106: TMenuItem; [208] PM107: TMenuItem; [209] PM108: TMenuItem; [210] PM109: TMenuItem; [211] PopupMenu5: TPopupMenu; [212] PM501: TMenuItem; [213] PM502: TMenuItem; [214] PM503: TMenuItem; [215] PM504: TMenuItem; [216] N5: TMenuItem; [217] PM505: TMenuItem; [218] PM506: TMenuItem; [219] N29: TMenuItem; [220] PM510: TMenuItem; [221] PM509: TMenuItem; [222] PM507: TMenuItem; [223] N15: TMenuItem; [224] PM508: TMenuItem; [225] ExportBt: TButton; [226] ImportBt: TButton; [227] CheckCaseBtn: TBitBtn; [228] DenialTimeLb: TLabel; [229] Panel14: TPanel; [230] ScrollBox1: TScrollBox; [231] Label1: TLabel; [232] Button3: TButton; [233] Panel15: TPanel; [234] Button4: TButton; [235] PopupMenu6: TPopupMenu; [236] PM602: TMenuItem; [237] PM601: TMenuItem; [238] PM605: TMenuItem; [239] PM603: TMenuItem; [240] PM604: TMenuItem; [241] N8: TMenuItem; [242] Panel16: TPanel; [243] SpeedButton3: TSpeedButton; [244] SpeedButton14: TSpeedButton; [245] SpeedButton15: TSpeedButton; [246] SpeedButton16: TSpeedButton; [247] SpeedButton17: TSpeedButton; [248] SpeedButton18: TSpeedButton; [249] SpeedButton19: TSpeedButton; [250] SpeedButton20: TSpeedButton; [251] SpeedButton21: TSpeedButton; [252] SpeedButton22: TSpeedButton; [253] Edit1: TEdit; [254] PM110: TMenuItem; [255] Image1: TImage; [256] UseOldCaseLb: TLabel; [257] PM111: TMenuItem; [258] SmoothCB: TCheckBox; [259] ISB_BW: TImageScrollBox; [260] N1: TMenuItem; [261] N2: TMenuItem; [262] ISB1: TImageScrollBox; [263] Label3: TLabel; [264] LogFile1: TLogFile; [265] ScanGrayCB: TCheckBox; [266] AttFileGB: TGroupBox; [267] AttListBox: TListBox; [268] Panel20: TPanel; [269] AddAttFileLB: TLabel; [270] DelAttFileLB: TLabel; [271] Splitter2: TSplitter; [272] Panel17: TPanel; [273] TreeView1: TTreeView; [274] Panel13: TPanel; [275] PrtLb: TLabel; [276] CaseHelpBtn: TBitBtn; [277] HTTPSClient: TElHTTPSClient; [278] Button5: TButton; [279] FTPSClient1: TElSimpleFTPSClient; [280] Button6: TButton; [281] procedure ActiveFormCreate(Sender: TObject); [282] procedure Panel9Resize(Sender: TObject); [283] procedure ISB1Click(Sender: TObject); [284] procedure WNoteBtnClick(Sender: TObject); [285] procedure CaseHelpBtnClick(Sender: TObject); [286] procedure FC0Click(Sender: TObject); [287] procedure FC1Click(Sender: TObject); [288] procedure FC2Click(Sender: TObject); [289] procedure FC3Click(Sender: TObject); [290] procedure FC4Click(Sender: TObject); [291] procedure FC5Click(Sender: TObject); [292] procedure FC6Click(Sender: TObject); [293] procedure PrePageBtnClick(Sender: TObject); [294] procedure NextPageBtnClick(Sender: TObject); [295] procedure OptionBtnClick(Sender: TObject); [296] procedure SelectScanBtnClick(Sender: TObject); [297] procedure mode1Click(Sender: TObject); [298] procedure mode2Click(Sender: TObject); [299] procedure mode3Click(Sender: TObject); [300] procedure mode4Click(Sender: TObject); [301] procedure N51Click(Sender: TObject); [302] procedure ScrollBar1Change(Sender: TObject); [303] procedure ISB1EndScroll(Sender: TObject); [304] procedure ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton; [305] Shift: TShiftState; X, Y: Integer); [306] procedure ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState; X, [307] Y: Integer); [308] procedure ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton; [309] Shift: TShiftState; X, Y: Integer); [310] procedure PM508Click(Sender: TObject); [311] procedure PM401Click(Sender: TObject); [312] procedure PM402Click(Sender: TObject); [313] procedure PM403Click(Sender: TObject); [314] procedure PM404Click(Sender: TObject); [315] procedure TreeView1Click(Sender: TObject); [316] procedure NewScanBtnClick(Sender: TObject); [317] procedure AddScanBtnClick(Sender: TObject); [318] procedure PageLVClick(Sender: TObject); [319] procedure PageLVKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); [320] procedure PageLVMouseDown(Sender: TObject; Button: TMouseButton; [321] Shift: TShiftState; X, Y: Integer); [322] procedure PM101Click(Sender: TObject); [323] procedure PM104Click(Sender: TObject); [324] procedure PM102Click(Sender: TObject); [325] procedure PM103Click(Sender: TObject); [326] procedure PM106Click(Sender: TObject); [327] procedure PM107Click(Sender: TObject); [328] procedure PM108Click(Sender: TObject); [329] procedure PM109Click(Sender: TObject); [330] procedure PM301Click(Sender: TObject); [331] procedure PM302Click(Sender: TObject); [332] procedure PM303Click(Sender: TObject); [333] procedure PM501Click(Sender: TObject); [334] procedure PM502Click(Sender: TObject); [335] procedure PM503Click(Sender: TObject); [336] procedure PM504Click(Sender: TObject); [337] procedure PM505Click(Sender: TObject); [338] procedure PM510Click(Sender: TObject); [339] procedure PM509Click(Sender: TObject); [340] procedure PM507Click(Sender: TObject); [341] procedure PopupMenu1Popup(Sender: TObject); [342] procedure PopupMenu4Popup(Sender: TObject); [343] procedure PopupMenu5Popup(Sender: TObject); [344] procedure SampleScanBtnClick(Sender: TObject); [345] procedure StatusBar1DblClick(Sender: TObject); [346] procedure ExportBtClick(Sender: TObject); [347] procedure ImportBtClick(Sender: TObject); [348] procedure HTTPSClientCertificateValidate(Sender: TObject; [349] X509Certificate: TElX509Certificate; var Validate: Boolean); [350] procedure ScanDuplexCBClick(Sender: TObject); [351] procedure CheckCaseBtnClick(Sender: TObject); [352] procedure Timer1Timer(Sender: TObject); [353] procedure Timer2Timer(Sender: TObject); [354] procedure TransBtnClick(Sender: TObject); [355] procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); [356] procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; [357] State: TDragState; var Accept: Boolean); [358] procedure TreeView1KeyUp(Sender: TObject; var Key: Word; [359] Shift: TShiftState); [360] procedure TreeView1MouseUp(Sender: TObject; Button: TMouseButton; [361] Shift: TShiftState; X, Y: Integer); [362] procedure ViewModeBtnMouseEnter(Sender: TObject); [363] procedure Button3Click(Sender: TObject); [364] procedure AddCredit1RGClick(Sender: TObject); [365] procedure CB1Click(Sender: TObject); [366] procedure Button4Click(Sender: TObject); [367] procedure ISB1Enter(Sender: TObject); [368] procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, [369] Y: Integer); [370] procedure PM601Click(Sender: TObject); [371] procedure PopupMenu6Popup(Sender: TObject); [372] procedure PM604Click(Sender: TObject); [373] procedure PM605Click(Sender: TObject); [374] procedure SpeedButton3Click(Sender: TObject); [375] procedure SpeedButton14Click(Sender: TObject); [376] procedure SpeedButton15Click(Sender: TObject); [377] procedure SpeedButton16Click(Sender: TObject); [378] procedure SpeedButton17Click(Sender: TObject); [379] procedure SpeedButton18Click(Sender: TObject); [380] procedure SpeedButton19Click(Sender: TObject); [381] procedure SpeedButton20Click(Sender: TObject); [382] procedure SpeedButton21Click(Sender: TObject); [383] procedure SpeedButton22Click(Sender: TObject); [384] procedure ActiveFormKeyUp(Sender: TObject; var Key: Word; [385] Shift: TShiftState); [386] procedure PM110Click(Sender: TObject); [387] procedure PM602Click(Sender: TObject); [388] procedure PrtLbClick(Sender: TObject); [389] procedure Panel1DblClick(Sender: TObject); [390] procedure Panel11DblClick(Sender: TObject); [391] procedure UseOldCaseLbClick(Sender: TObject); [392] procedure PM111Click(Sender: TObject); [393] procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic); [394] procedure SmoothCBClick(Sender: TObject); [395] procedure N1Click(Sender: TObject); [396] procedure TreeView1MouseEnter(Sender: TObject); [397] procedure ScrollBox1MouseEnter(Sender: TObject); [398] procedure ScanGrayCBClick(Sender: TObject); [399] procedure AddAttFileLBClick(Sender: TObject); [400] procedure DelAttFileLBClick(Sender: TObject); [401] procedure AttListBoxDblClick(Sender: TObject); [402] procedure AttListBoxClick(Sender: TObject); [403] procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton; [404] Shift: TShiftState; X, Y: Integer); [405] procedure HTTPSClientRedirection(Sender: TObject; const OldURL: string; [406] var NewURL: string; var AllowRedirection: Boolean); [407] procedure Button5Click(Sender: TObject); [408] procedure Button6Click(Sender: TObject); [409] private [410] { Private declarations } [411] HotKeyId1,HotKeyId2,HotKeyId3,HotKeyId4 :Integer; [412] [413] ////////傳入參數///////// [414] FUrl : String; [415] FCaseID : String; [416] FMode : String; //NSCAN:新件;ESCAN:修改 20170306 DSCAN:被配合待掃瞄清單使用 [417] FModeName : String; [418] FWork_no : String; [419] FUserID : String; [420] FUserName : String; [421] FUserUnit : String; [422] FData : String; [423] FVerify : String; [424] FReWrite : String; [425] FLanguage : String; [426] FLoanDoc_Value : String; //新增授信卷的值 [427] FLoanDoc_Enable : String; //新增授信卷是否可異動 [428] FUseProxy : String; //是否使用Proxy [429] FC_DocNoList : String; //外面傳來要新增的文件編號 [430] FC_DocNameList : String; //外面傳來要新增的自訂文件 [431] FFixFileList : String; //要鎖住的檔名 [432] FIs_In_Wh : String; //是否只顯示入庫文件 (Y:只顯示入庫 N:只顯示非入庫 空白:都顯示) [433] FOldCaseInfo : String; //舊件資訊 CaseID_year[tab]CaseID_year [434] FPrintyn : String; //是否可列印 [435] FIs_OldCase : String; //是否是舊案第一次進入 [436] FCustDocYN : String; //是否可自訂文件 [437] //20170222 新增 [438] FImgDPI:integer;//DPI  依業務別決定 150~~1200  預設300 [439] FScanColor:integer;///掃瞄色彩  依業務別決定   0 :黑白  1：灰階   2：彩色 預設黑白 [440] FFileSizeLimit:integer;//匯入單一檔案大小限  依業務別決定  以KB為單位  預設5*1024kb [441] FCaseNoLength:integer;//案件編號長度檢查  依業務別決定   無預設  一定要傳入 [442] FImgDelete:string; // Y/N 有權限可在補件時刪除影像 [443] FIsExternal:string;//Y/N [444] FCheck_main_form:string; //Y/N [445] FWH_category:string; //Y/N Y是歸類時有區分入庫非入庫文件 N 是不區分 [446] ////////傳入參數/////// [447] [448] TransMode : TTransMode; //用何種方式上傳檔案 [449] //********Http參數******** [450] HttpErrStr : String; //錯誤訊息 [451] //********Http參數******** [452] [453] //********Ftp參數********* [454] FFtpIP : String; [455] FFtpID : String; [456] FFtpPwd : String; [457] FFtpRootPath : String; [458] FFtpExtraPath : String; [459] FFtpPort : Integer; [460] FFtpProtocol : TFtpProtocol; [461] //********Ftp參數********* [462] [463] //********ini參數******** [464] DeviceDelete : Boolean; //空白頁刪除啟動 [465] DeviceDeleteSize : Integer; //空白頁Size [466] ScannerReverse : Boolean; //是否需反相 [467] BoardClear : Boolean; //是否清黑邊 [468] ScanDpi : Integer; //掃瞄DPI [469] ScanDuplex : Boolean; //是否雙面掃瞄 [470] ScanRotate : Integer; //掃瞄時旋轉角度 [471] ScanDeskew : Boolean; //是否傾斜矯正 [472] ScanBright : Integer; //亮度 [473] ScanContrast : Integer; //對比 [474] ScanImgShowMode : Integer; //0:清楚影像 1:不清楚影像 2:不顯示 [475] ScanImgSetUse : Boolean; //是否使用亮度對比設定 [476] [477] //********ini參數******** [478] ScanColor : TImageFormat; [479] [480] //********時間******** [481] ServerDate : String; [482] ServerTime : String; [483] Balance : Longint; //local跟server的時間差 [484] ScanDenialTime : String; //停止進件時間 [485] //********時間******** [486] ScanDenialHint : String; //掃描顯示提醒字串 [487] [488] //********路徑******** [489] ScanPath : String; // SpecifyDir\Workid\userunit\mode [490] ImagePath : String; // SpecifyDir\Workid\userunit\mode [491] ImageSavePath : String; // ImagePath\ [492] ScaniniPath : String; // SpecifyDir\Workid\userunit\ [493] LngPath :String; //多國語言檔目錄 [494] CheckXmlPath : String; //檢核用的Xml存放目錄 [495] SitePath : String; //登打位置(切簽名用) [496] SamplePath : String; //範本目錄 [497] TransPath : String; //檔案上傳的路徑(補充件會多一層目錄) [498] //********路徑******** [499] ScanSaveFilename : String; //掃瞄的檔名 [500] ScanCaseno : String; //掃瞄時的案號 [501] ScanDocDir : String; //掃描時的文件代號目錄 [502] //********清單區******** [503] Doc_Inf_List : TStringList; //Doc_Inf 清單 [504] DM_FORM_INF_List :TstringList; //DM_FORM_INF 清單 [505] FORM_INF_List : TStringList; //FORM_INF的清單 [506] CHECK_RULE_INF_List : TStringList; //CHECK_RULE_INF 清單 [507] MEMO_INF_List : TStringList; //MEMO_INF 清單 [508] WORK_INF_List : TStringList; //WORK_INF 清單 [509] LASTEST_FORM_INF_List : TStringList; // LASTEST_FORM_INF 清單 [510] [511] FindResult : TStringList; //找SQLData的結果 [512] CaseList : TStringList; //記錄掃瞄案件的順序 [513] Context_DocnoList : TStringlist; //案件裡的Docno清單 [514] CaseDocNoList : TStringlist; //案件裡的DocNo清單(不重複) [515] CaseDocNo_CopiesList : TStringlist; //案件裡的DocNo份數清單 [516] ContextList : TStringlist; //案件裡的檔案清單 [517] AttContextList : TStringlist; //案件裡的附加檔案清單 [518] OMRFileList : TStringList; //要OMR檢核的文件(只檢查每種Form的第一頁) [519] Cust_DocNoList : TStringlist; //自行定義文件名稱 [520] IN_WH_DocNoList : TStringlist; //入庫的文件清單 [521] [522] FormCode_PageSize : TStringList; //文件的預設大小 FormCode_Height_Width [523] DocNo_NeedDoc : TStringList; //有Docno時要相依的文件 DocNo_相依文件_相依文件 [524] DocNo_NoDoc : TstringList; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件 [525] DocNo_VerinCase : TStringlist; //案件裡的DocNo+版本的清單 [526] [527] NoSaveBarCodeList : TStringlist; //不儲存的條碼清單 [528] FormID_List : TStringlist; //FormID 清單 20130403 因為原FormCode2Docno會很慢..把FormID抽出來 [529] DocNo_List : TStringlist; //DocNo 清單 20130403 因為原FormCode2Docno會很慢..把DocNo抽出來 [530] NowShowFileList : TStringlist; //目前顯示的影像清單 [531] NowSelectFileList : TStringlist; //目前被點選的影像清單 [532] GuideFormIDList : TStringlist; //要當導引頁表單清單 [533] DivPageFormIDList:TStringlist; //要當分案頁表單清單 [534] LastInitFormidList:TStringList; [535] LastAddFormidList:TstringList; [536] SampleFormIDList:TStringList; //20170627 已存在範本的formid [537] ExistImgList:TStringList; //20170724 已經存在的影像list for ESCAN //Img的完整路徑 [538] reSizeExistImgList:TstringList; //20171012被縮放的舊圖MD5存入 [539] //********清單區******** [540] [541] //********顯示區******** [542] NowCaseno : String; //目前顯示的案件編號 [543] NowDocNo : String; //目前的文件編號 [544] NowDocDir : String; //目前的文件目錄 [545] NowFormCode : String; //目前顯示的表單編號 [546] NowFormName : String; //目前顯示的表單名稱 [547] NowPage : Integer; //目前點選的頁碼 [548] DisplayPath : String; //目前顯示的目錄 [549] //********顯示區******** [550] [551] //******索引資料********* [552] Case_loandoc : String; //是否新增授信卷 [553] //******索引資料********* [554] [555] //********十字定位點資訊******** [556] UpLPoint : Tpoint; //左上方的十字點 [557] UpRPoint : Tpoint; //右上方的十字點 [558] DownLPoint : Tpoint; //左下方的十字點 [559] DownRPoint : Tpoint; //右下方的十字點 [560] Point_Width : String; //十字點的寬 [561] Point_Height : String; //十字點的高 [562] //********十字定位點資訊******** [563] [564] CaseIDLength : Integer; //案件編號長度 [565] FormIDLength : Integer; //FormID長度 [566] DocNoLength : Integer; //Docno長度 [567] [568] PEFileName : String; //掃描時的檔名 [569] DownFileErrStr : String; //下載影像時發生的錯誤 [570] [571] ISB : TImageScrollBox; [572] ScanInfo : TScanInfo; [573] TwainShowUI : Boolean; [574] MpsBarcodeinf : TMpsBarcodeinf; [575] ScanMode : TScanMode; [576] Mpskey : String; [577] Seg : Integer; //顯示的邊界值 [578] VMode : Integer; //顯示的index [579] NowClick : Integer; //目前點到的按鈕功能Index [580] ScanIP : String; //掃瞄端的IP [581] DisplayISB : TImageScrollBox; //被點到的影像 [582] SelectISB : TImageScrollBox; //被點到的縮圖 [583] SelectPage : Integer; //被點到的頁數 [584] NewTreeNode,MyTreeNode1,MyTreeNode2,MyTreeNode3 : TTreenode; [585] InitialOk : Boolean; //資訊載入是否完成 [586] ShowText : String; //DataLoading時要秀出的訊息 [587] Ext : String; //附檔名 .tif .jpg [588] SafePixel : Integer; //OMR容忍誤差值點數 [589] OMRErrInfo : Array[1..11] of TOMRErrInfo; //檢核的方式及訊息 [590] ScrollRec : Array[1..8] of TScrollRec; //瀏覽窗的Scroll記錄 [591] RecHozPos,RecVerPos : Integer; //記錄MPSViewX1的ScrollBar位置 [592] ReczoomPercent : Single; [593] SortMode : Boolean; [594] PreMytreeNode2Name:String; [595] HS,VS : Integer; [596] iRate : Single; [597] Bt : Integer; //去直線時橫線判斷的容忍值 [598] BarCodeRotate : Integer; //條碼要轉的角度 [599] HaveAppDoc : Boolean; //補全時是否有補入要保書 [600] PageLVclear : Boolean; [601] CaseCount,PageCount : Integer; //總案件量及總頁數 [602] Item : TMenuItem; [603] SampleAnchorMode : String; //範本掃瞄十字線的模式 NONE:無;ANCHOR:十字;FRAME:邊框 [604] DownImgStatus : String; //下載影像的狀態(NO_DATA:沒資料;NO_FILE:沒影像) [605] TransForm_Field : String; //要用OMR勾選確認是否轉換FORMID的欄位名稱 [606] NowWork_No : String; //現在的作業別 [607] CropBarcode : String; //要切影像的條碼 [608] Has_Authorize :String; //是否有授權書影像 [609] AttName : String; //未歸類目錄名稱 [610] NowGuideFormID : String; [611] NowDivPageFormID:String; [612] [613] FirstDocDir : String; [614] FMaxUploadSize:String;// 上傳zip大小限制 [615] FJpgCompression:integer;// 20171211 jpg to tif 的壓縮率 [616] [617] Draging : Boolean; [618] MDown : Boolean; //20181210 用來判斷滑鼠右鍵要Popupmenu是否有MouseDonw發生 [619] [620] FEvents: ICB_IMGPSScanXEvents; [621] [622] procedure HotKeyDown (var Msg : TMessage);message WM_HOTKEY; [623] Procedure InitialLanguage(Sender: TObject); //畫面載入多國語言 [624] //Function _Msg(S:String):String; [625] [626] //*********SQL相關************ [627] Procedure SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入 [628] Function GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值 [629] Function FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料 [630] Function GetFindResult(Col:String):String; [631] //*********SQL相關************ [632] [633] //*********FTP相關************ [634] Function GetFtpinfo(CaseID,Action:String):Boolean; [635] Procedure SetFtpInfo; //餵入FTP資訊 [636] Function FtpCaseComplete(SendData:String):Boolean; [637] //*********FTP相關************ [638] [639] //*******轉換區********* [640] Function FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼 [641] Function FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱 [642] Function FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁) [643] Function FileName2FormCode(FileName:String):String; //從檔名取出FormCode [644] Function FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱 [645] Function FileName2ScanPage(FileName:String):Integer; //從檔名取出掃瞄頁數 [646] Function FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名 [647] Function FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號 [648] Function FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號 [649] Function FormCode2DocNo(FormCode:String):String; //FormCode轉Docno [650] Function FormCode2Version(FormCode:String):String; //FormCode轉版本 [651] Function FormCode2Page(FormCode:String):String; //FormCode轉文件頁數 [652] Function DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱 [653] Function DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁) [654] Function FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別 [655] Function DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別 [656] Function DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄 [657] Function DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo [658] Function DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index [659] [660] Function DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號 [661] //Function CaseNo2DocNo(CaseNo:String):TStringList; [662] [663] Function CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page [664] Function DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group [665] Function FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page [666] //*******轉換區********* [667] [668] Procedure PriorPage(Page:Integer); //上一頁 [669] Procedure NextPage(Page:Integer); //下一頁 [670] [671] Function DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //DocNo是否己存在樹裡 [672] Function DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組 [673] [674] function GetSiteOMR(FileName, Site: String;bt: Integer): Integer; [675] Function FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示 [676] Procedure R_W_ScanIni(Mode:Char); //'R'讀取;'W'寫入 [677] Procedure GetDefScanIni; //取得掃瞄的預設值 [678] procedure DesableImage; [679] procedure EnableImage(v:integer;Sender : TObject); [680] Procedure ViewMouseMode(v:Integer); [681] Procedure GoViewMode; [682] Procedure DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel); [683] Function GetServerDate : Boolean; //取主機時間 [684] Function GetSetInf1 : Boolean; //取系統設定資訊mode1 DOC_INF [685] Function GetSetInf2 : Boolean; //取系統設定資訊mode2 DM_FORM_INF [686] Function GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF [687] Function GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF [688] Function GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF [689] Function GetSetInf6 : Boolean; //取系統設定資訊mode6 WORK_INF [690] Function GetSetInf7 : Boolean; //取系統設定資訊mode7 LASTESTFORM_INF [691] Procedure SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡 [692] Procedure SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡 [693] [694] Procedure DataLoading(Loading,UseTimer:Boolean); //資料載入中要停止點選的動作 [695] procedure ClearView(stkv:Integer); //清除瀏覽窗的影像 [696] Function DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree [697] [698] Procedure initkscan; //檢查掃描器的功能 [699] procedure LoadImgFile; //載入案件 [700] procedure LoadImgFile1; //載入案件 [701] procedure LoadAttFile(CaseID:String); //載入附加檔案 [702] Procedure DistinctFormCode(CaseID:String); //案件裡的FormCode取出第一頁 [703] Function OMRCheckCase(CaseID:String):Boolean; //OMR檢核 [704] Procedure OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini [705] Procedure OMRErrini2List(CaseID:String;ErrlistForm : TErrlistForm); //OMR檢核失敗從ini寫入ListView [706] Function DownLanguage:Boolean; //下載多國語言檔 [707] Function FindMpsView(Vmode:Integer):TImageScrollBox; [708] Function CaseAsk(CaseID:String):Integer; //詢問是否可上傳 (-1:失敗;0:可以;1:不行;) [709] Function CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成 [710] Function GetCaseFormID(Path:String):String; //取案件的FormID [711] Procedure CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat [712] Procedure CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat [713] Procedure CreateIn_WH(CaseID:String); //產生In_WH.dat [714] Function CreateDocNo_Info(CaseID:String):String; //產生保管袋文件 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動 [715] Function CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動 [716] //Function CreateCustDocNo_Info(path,CaseID:String):String; overload [717] Function CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有 [718] Function CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號 [719] Function CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號 [720] [721] Function GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N) [722] Function GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數 [723] Function GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數 [724] Function FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在及是否要檢查啟用停用日期 [725] Function Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡 [726] Procedure ReSortFileName_New(Path:String); //檔名重新排序 [727] Procedure ReSortFileName(Path:String); //檔名重新排序 [728] Procedure ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat [729] Function GetOMRCheckSet:Boolean; //下載OMR檢核XML檔 [730] Function GetKeyinSet : Boolean; //取登打設定 [731] Procedure CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record [732] Procedure ReNameContext(Path,OldName,NewName:String); [733] Procedure DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案 [734] Procedure DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件 [735] Function DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件 [736] Procedure DeleteShowFile(Path:String); //刪除顯示中的影像 [737] Function GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數 [738] Function CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //檢查案件裡的文件_版本頁數 [739] Function FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數 [740] Function GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數 [741] Procedure CaseReSize(CaseID:String); //案件的影像縮放 [742] Procedure ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放 [743] Procedure ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔) [744] Function TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件 [745] Procedure NewTreeNodeRefresh; [746] Procedure MyTreeNode1Refresh; [747] Procedure MyTreeNode2ReFresh(CaseID:String); [748] Procedure MyTreeNode3ReFresh(CaseID:String); [749] Function Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來 [750] Function Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來 [751] Function Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來 [752] Function GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用) [753] //Function Down_Replace_Img(SPAth,DPath,CaseID:String):Boolean; [754] Function DownLoadImage(Path,CaseID:String):Boolean; [755] Function Down_Img(Path,CaseID:String):Boolean; [756] Function GetNoNameCase(Path:string):String; //取未配號XXXX [757] Procedure CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno挑) [758] Procedure CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排) [759] Procedure DistinctDocinCase(Path:String); //列出案件裡的Docno_版本 [760] Procedure DistinctDocNoinCase(Path:String); //列出案件裡的Docno [761] Procedure ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案 [762] Procedure SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改' [763] Procedure SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改' [764] Procedure SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改' [765] Procedure SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改' [766] [767] [768] Function checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核 [769] Function CheckCaseID_OK:Boolean; //檢查是否有未配號的案件 [770] Procedure CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用) [771] Procedure InitScrollRec; //初始化影像Scroll記錄 [772] Procedure GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single); //取影像Scroll記錄 [773] Procedure SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single); //寫影像Scroll記錄 [774] Procedure FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID [775] Procedure ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID [776] Procedure PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID [777] Function ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核 [778] procedure WMMOUSEWHEEL(var message: TWMMouseWheel); message WM_MOUSEWHEEL; [779] Function GetCasePage(Path,CaseID:String):Integer; [780] Function GetFormIDPage(FileList:TStringlist;FormID:String):Integer; [781] Procedure SetFile2Case(CaseID,FileName:String); [782] Procedure WriteResize(ImgName,TxtName:String); //產生Resize.dat [783] Function GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數 ID為空值時為取所有的 [784] Function BarCode2FormID : String; //Barcode依規則轉成FormID [785] Function BarCode2CaseID : String; //Barcode依規則轉成CaseID [786] Procedure WriteCaseIndex(Path:String); [787] Procedure ReadCaseIndex(Path:String); [788] Procedure ClearCaseIndex; [789] Procedure GetSelectImageFile; [790] Function GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數 [791] Function CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡 [792] [793] Procedure ZipMainFile(SoPath,DePath,ZipName:String); //壓縮影像檔 [794] Procedure ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔 [795] Procedure ParserPoint(S:String); //解析十字點的字串 [796] Function CheckScanDenialTime:Boolean; [797] Function FormID2Anchor(FormID:String):String; //用FormID取出十字模式 [798] Function Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME [799] Function MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼 [800] Function GetFormatID(CaseID:String):String; //取出案件的FormatID [801] Function FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼 [802] Function CheckAvailable:Boolean; //檢查是否可使用元件 [803] Function Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像 [804] Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像 [805] Function GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號 [806] Function GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱 [807] Function GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID [808] Function GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir [809] Function FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在 [810] Procedure DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo [811] Function CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印 [812] procedure PrintImg(FileName, LoginID, Datetime,Path: WideString); [813] Function FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir [814] Procedure Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件 [815] Procedure OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則 [816] Procedure ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID [817] Procedure SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉' [818] Function GetDocDir_Page(CaseID,DocDir:String):Integer; //取得DocDir的頁數 [819] Function Path2DocDir(Path,CaseID:String):String; [820] Function GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件 [821] Procedure SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序 [822] Procedure GotoAttach(OldLevel:Integer); [823] Function DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件 [824] Procedure CreateCaseNeedData(Path:String); //先做影像截取會少二個文字檔,產生CaseDocNo.dat及DocDir.dat [825] Procedure SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String); [826] Function CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像 [827] Function TransOldCaseFile(Path:String):Boolean; //上傳引用舊件的記錄檔 [828] Function Writelog(CaseID:String):Boolean; [829] Function FormIDAppear(FormID:String):Boolean; //FormID是否可出現 [830] Function DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現 [831] Function GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量 [832] Function GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir份數 [833] Procedure SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數 [834] Function GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數 [835] Function GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量 [836] Function GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量 [837] Function ISGuideFormID(FormID:String):Boolean; [838] Function CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除 [839] [840] Procedure MoveImage(Path:String;mp:Integer); //移動頁數 [841] Procedure MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數 [842] [843] [844] Procedure SetUseCase(Mode:Char;Path,DocDir,FormCaseID,ToCaseID:String); //記錄引用其他案件 A:加入 D:刪掉 [845] Function GetUseCase(Mode:Char;Path,DocDir:String):String; //F:取被引用 To:引用 [846] [847] Procedure Case2upload(CaseID:String); [848] Procedure Download2Case(SoDir,DeDir:String); [849] [850] procedure view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像 [851] procedure view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像 [852] [853] Function ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName [854] Procedure CreatePreViewISB(Count:Integer); [855] Procedure FreePreViewISB; [856] Procedure FitPreViewISB; [857] Procedure PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像 [858] Procedure FreeShapeobj(SelectISB : TImageScrollBox); [859] Procedure ISBClick(Sender : TObject); [860] Procedure ISBMouseMove(Sender: TObject; Shift: TShiftState; [861] X, Y: Integer); [862] procedure ISBImageMouseDown(Sender: TObject; Button: TMouseButton; [863] Shift: TShiftState; X, Y: Integer); [864] procedure ISBImageMouseUp(Sender: TObject; Button: TMouseButton; [865] Shift: TShiftState; X, Y: Integer); [866] procedure ISBEndDrag(Sender, Target: TObject; X, Y: Integer); [867] procedure ISBDragDrop(Sender, Source: TObject; X, Y: Integer); [868] procedure ISBDragOver(Sender, Source: TObject; X, Y: Integer; [869] State: TDragState; var Accept: Boolean); [870] [871] procedure BtnMouseEnter(Sender: TObject); [872] [873] procedure PageEnd; //掃描接收完成 [874] Procedure PageDone; //掃描完成後顯示影像 [875] procedure StatrTwainScan; [876] procedure OnAcquire( const DibHandle : THandle; [877] const XDpi : Word; [878] const YDpi : Word; [879] const CallBackData : LongInt ); [880] [881] [882] procedure ActivateEvent(Sender: TObject); [883] procedure ClickEvent(Sender: TObject); [884] procedure CreateEvent(Sender: TObject); [885] procedure DblClickEvent(Sender: TObject); [886] procedure DeactivateEvent(Sender: TObject); [887] procedure DestroyEvent(Sender: TObject); [888] procedure KeyPressEvent(Sender: TObject; var Key: Char); [889] procedure MouseEnterEvent(Sender: TObject); [890] procedure MouseLeaveEvent(Sender: TObject); [891] procedure PaintEvent(Sender: TObject); [892] function GetCurrentVersionNo: String; [893] procedure initParameter; [894] procedure LastInitFormidListCreate(path:string); [895] function checkFormCodeIsCustom(path,formcode:string):boolean; [896] function ISDivPageFormID(FormID: String): Boolean; [897] function GetSampleInf: Boolean; [898] procedure InitExistImgList(casepath:String); [899] function LoadFileGetMD5(const filename:string):string; //20170809 取的檔案的MD5 [900] function ISExistImg(const filename:string):boolean; //20170809 確認是否存在原有影像 [901] procedure _DelTreeForExistImg(ASourceDir:String); //2017 刪除前確認 有舊影像嗎 [902] function DocNoIsExistImg(DocNopath: String): boolean; //2017 刪除前確認 有舊影像嗎 [903] function CheckCaseAttach_OK: Boolean; [904] function DeleteDocNoFileForESCAN(Path, DocNo: String): Boolean; //2017 確認是否有未歸類文件 [905] function CheckRequiredColumnValues(workno,caseno:String) :Boolean; //20171003 此大類下此案是否檢核必填 [906] function logTimeString :String; [907] procedure ReduceLogFile ; [908] function FindLastestDocDirForPage(CaseID, DocNo, formid: String): String; [909] function OMRErrini2ListForLog(CaseID: String):String; [910] protected [911] { Protected declarations } [912] procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override; [913] procedure EventSinkChanged(const EventSink: IUnknown); override; [914] function Get_Active: WordBool; safecall; [915] function Get_AlignDisabled: WordBool; safecall; [916] function Get_AlignWithMargins: WordBool; safecall; [917] function Get_AutoScroll: WordBool; safecall; [918] function Get_AutoSize: WordBool; safecall; [919] function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall; [920] function Get_Caption: WideString; safecall; [921] function Get_Color: OLE_COLOR; safecall; [922] function Get_DockSite: WordBool; safecall; [923] function Get_DoubleBuffered: WordBool; safecall; [924] function Get_DropTarget: WordBool; safecall; [925] function Get_Enabled: WordBool; safecall; [926] function Get_ExplicitHeight: Integer; safecall; [927] function Get_ExplicitLeft: Integer; safecall; [928] function Get_ExplicitTop: Integer; safecall; [929] function Get_ExplicitWidth: Integer; safecall; [930] function Get_Font: IFontDisp; safecall; [931] function Get_HelpFile: WideString; safecall; [932] function Get_KeyPreview: WordBool; safecall; [933] function Get_MouseInClient: WordBool; safecall; [934] function Get_ParentCustomHint: WordBool; safecall; [935] function Get_ParentDoubleBuffered: WordBool; safecall; [936] function Get_PixelsPerInch: Integer; safecall; [937] function Get_PopupMode: TxPopupMode; safecall; [938] function Get_PrintScale: TxPrintScale; safecall; [939] function Get_Scaled: WordBool; safecall; [940] function Get_ScreenSnap: WordBool; safecall; [941] function Get_SnapBuffer: Integer; safecall; [942] function Get_UseDockManager: WordBool; safecall; [943] function Get_Visible: WordBool; safecall; [944] function Get_VisibleDockClientCount: Integer; safecall; [945] procedure _Set_Font(var Value: IFontDisp); safecall; [946] procedure Set_AlignWithMargins(Value: WordBool); safecall; [947] procedure Set_AutoScroll(Value: WordBool); safecall; [948] procedure Set_AutoSize(Value: WordBool); safecall; [949] procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall; [950] procedure Set_Caption(const Value: WideString); safecall; [951] procedure Set_Color(Value: OLE_COLOR); safecall; [952] procedure Set_DockSite(Value: WordBool); safecall; [953] procedure Set_DoubleBuffered(Value: WordBool); safecall; [954] procedure Set_DropTarget(Value: WordBool); safecall; [955] procedure Set_Enabled(Value: WordBool); safecall; [956] procedure Set_Font(const Value: IFontDisp); safecall; [957] procedure Set_HelpFile(const Value: WideString); safecall; [958] procedure Set_KeyPreview(Value: WordBool); safecall; [959] procedure Set_ParentCustomHint(Value: WordBool); safecall; [960] procedure Set_ParentDoubleBuffered(Value: WordBool); safecall; [961] procedure Set_PixelsPerInch(Value: Integer); safecall; [962] procedure Set_PopupMode(Value: TxPopupMode); safecall; [963] procedure Set_PrintScale(Value: TxPrintScale); safecall; [964] procedure Set_Scaled(Value: WordBool); safecall; [965] procedure Set_ScreenSnap(Value: WordBool); safecall; [966] procedure Set_SnapBuffer(Value: Integer); safecall; [967] procedure Set_UseDockManager(Value: WordBool); safecall; [968] procedure Set_Visible(Value: WordBool); safecall; [969] procedure Set_caseid(const Value: WideString); safecall; [970] procedure Set_data(const Value: WideString); safecall; [971] procedure Set_mode(const Value: WideString); safecall; [972] procedure Set_rewrite(const Value: WideString); safecall; [973] procedure Set_url(const Value: WideString); safecall; [974] procedure Set_userid(const Value: WideString); safecall; [975] procedure Set_username(const Value: WideString); safecall; [976] procedure Set_verify(const Value: WideString); safecall; [977] procedure Set_language(const Value: WideString); safecall; [978] procedure Set_modename(const Value: WideString); safecall; [979] procedure Set_userunit(const Value: WideString); safecall; [980] procedure Set_work_no(const Value: WideString); safecall; [981] procedure Set_loandoc_enable(const Value: WideString); safecall; [982] procedure Set_loandoc_value(const Value: WideString); safecall; [983] procedure Set_useproxy(const Value: WideString); safecall; [984] procedure Set_c_docnamelist(const Value: WideString); safecall; [985] procedure Set_c_docnolist(const Value: WideString); safecall; [986] procedure Set_fixfilelist(const Value: WideString); safecall; [987] procedure Set_is_in_wh(const Value: WideString); safecall; [988] procedure Set_oldcaseinfo(const Value: WideString); safecall; [989] function Get_c_docnamelist: WideString; safecall; [990] function Get_c_docnolist: WideString; safecall; [991] function Get_caseid: WideString; safecall; [992] function Get_data: WideString; safecall; [993] function Get_fixfilelist: WideString; safecall; [994] function Get_is_in_wh: WideString; safecall; [995] function Get_language: WideString; safecall; [996] function Get_loandoc_enable: WideString; safecall; [997] function Get_loandoc_value: WideString; safecall; [998] function Get_mode: WideString; safecall; [999] function Get_modename: WideString; safecall; [1000] function Get_oldcaseinfo: WideString; safecall; [1001] function Get_rewrite: WideString; safecall; [1002] function Get_url: WideString; safecall; [1003] function Get_useproxy: WideString; safecall; [1004] function Get_userid: WideString; safecall; [1005] function Get_username: WideString; safecall; [1006] function Get_userunit: WideString; safecall; [1007] function Get_verify: WideString; safecall; [1008] function Get_work_no: WideString; safecall; [1009] function Get_printyn: WideString; safecall; [1010] procedure Set_printyn(const Value: WideString); safecall; [1011] function Get_is_oldcase: WideString; safecall; [1012] procedure Set_is_oldcase(const Value: WideString); safecall; [1013] function Get_custdocyn: WideString; safecall; [1014] procedure Set_custdocyn(const Value: WideString); safecall; [1015] function Get_casenolength: WideString; safecall; [1016] function Get_filesizelimit: WideString; safecall; [1017] function Get_imgdpi: WideString; safecall; [1018] function Get_scancolor: WideString; safecall; [1019] procedure Set_casenolength(const Value: WideString); safecall; [1020] procedure Set_filesizelimit(const Value: WideString); safecall; [1021] procedure Set_imgdpi(const Value: WideString); safecall; [1022] procedure Set_scancolor(const Value: WideString); safecall; [1023] function Get_imgdelete: WideString; safecall; [1024] procedure Set_imgdelete(const Value: WideString); safecall; [1025] function Get_check_main_form: WideString; safecall; [1026] function Get_isExternal: WideString; safecall; [1027] procedure Set_check_main_form(const Value: WideString); safecall; [1028] procedure Set_isExternal(const Value: WideString); safecall; [1029] function Get_WH_CATEGORY: WideString; safecall; [1030] procedure Set_WH_CATEGORY(const Value: WideString); safecall; [1031] public [1032] { Public declarations } [1033] procedure Initialize; override; [1034] end; [1035] [1036] implementation [1037] [1038] uses EnBarcode, [1039] EnTransf, { for TImageTransform } [1040] Enpnggr, { for PNGGraphic } [1041] EnJpgGr, { for JPGGraphic } [1042] EnReg, [1043] EnBmpGr, { for TBitmapGraphic } [1044] EnPrint, { for TEnvisionPrintMode, TDibGraphicPrinter } [1045] ComObj, ComServ,IISUnit,IIS_File2Web,IIS_ImageProcess, [1046] PatchFom,Doclist,ScanMemo,DocCopy,InputMask,SortMemo,DocPrt,OldCaseInfo; [1047] [1048] {$R *.DFM} [1049] [1050] { TCB_IMGPSScanX } [1051]