| | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：WNoteBtnClick |
|---|
| | | 引用相依：FileExists, LoadFromFile, SaveToFile |
|---|
| | | 方法描述：開啟備註編輯視窗。首先初始化多國語言並從 MEMO_INF_List 載入註記範本資 |
|---|
| | | 訊。若存在 Scan_Memo.dat，則讀取既有的註記內容。顯示 TSortMemoForm 供使 |
|---|
| | | 用者編輯，確認後將編輯結果存回 Scan_Memo.dat。最後視需要觸發 CaseHelpB |
|---|
| | | tnClick 以更新狀態。 |
|---|
| | | 引用相依：TSortMemoForm, MEMO_INF_List, Scan_Memo.dat |
|---|
| | | 方法描述：【編輯案件備註】 |
|---|
| | | 1. 資料準備：從 MEMO_INF_List 載入各類註記範本提供下拉選單。 |
|---|
| | | 2. 載入既有：讀取案件目錄下的 Scan_Memo.dat 並填入清單。 |
|---|
| | | 3. 編輯介面：開啟 TSortMemoForm，使用者可新增、刪除或排序註記。 |
|---|
| | | 4. 持久化：確認後將變動結果寫回 CSV 格式的 Scan_Memo.dat。 |
|---|
| | | 5. 聯動：標記 Ch_WriteNote 並重新整理介面狀態。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.WNoteBtnClick(Sender: TObject); |
|---|
| | | var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：NewScanBtnClick |
|---|
| | | 引用相依：StatrTwainScan |
|---|
| | | 方法描述：點擊「新案掃瞄」按鈕的處理。首先檢查初始化狀態。針對重掃（RSCAN）、異動（ESC |
|---|
| | | AN）或重掃指定件（DSCAN），會自動選取新件節點並觸發追加掃瞄。若是全新掃瞄 |
|---|
| | | ，則重設掃瞄模式與路徑，清空清單，最後呼叫 StatrTwainScan 啟動掃瞄程序， |
|---|
| | | 並在結束後重新載入影像檔案。 |
|---|
| | | 引用相依：StatrTwainScan, LoadImgFile, smNew, smInsert |
|---|
| | | 方法描述：【啟動新案掃瞄流程】 |
|---|
| | | 1. 模式切換：若為異動/重掃模式 (RSCAN/ESCAN/DSCAN)，自動轉呼叫 |
|---|
| | | AddScanBtnclick 進行追加。 |
|---|
| | | 2. 資源初始化：清空當前 View、重置掃瞄路徑為空、設定模式為 smNew。 |
|---|
| | | 3. 執行硬體：呼叫 StatrTwainScan 與掃瞄器溝通獲取影像。 |
|---|
| | | 4. 結果展示：掃瞄結束後自動執行 LoadImgFile 刷新案件內容。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.NewScanBtnClick(Sender: TObject); |
|---|
| | | begin |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：OptionBtnClick |
|---|
| | | 引用相依：Scanner |
|---|
| | | 方法描述：處理「掃瞄參數設定」按鈕點擊。首先確認系統初始化是否完成，接著建立 TPatc |
|---|
| | | hDlg 對話框並載入多國語言。將目前的掃瞄設定（如自動刪除空白頁、DPI、單/ |
|---|
| | | 雙面、反白、去邊、去偏斜、亮度、對比、旋轉角度及顯示模式等）同步至對話框。使 |
|---|
| | | 用者完成設定後，將新參數存回系統變數，並呼叫 R_W_ScanIni 將設定寫入設 |
|---|
| | | 定檔。 |
|---|
| | | 引用相依：TPatchDlg, R_W_ScanIni, DeviceDelete, ScanDpi, ScanRotate |
|---|
| | | 方法描述：【配置掃瞄器與軟體處理參數】 |
|---|
| | | 提供完整的掃瞄環境微調介面： |
|---|
| | | - 硬體端：DPI、雙面、亮度、對比、自動進紙。 |
|---|
| | | - 軟體端：空白頁刪除門檻、自動反向、清黑邊、自動去偏斜。 |
|---|
| | | - 顯示端：旋轉角度、顯示品質。 |
|---|
| | | 設定後同步至 FBScan.ini 持久化並更新全域變數。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.OptionBtnClick(Sender: TObject); |
|---|
| | | var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：SampleScanBtnClick |
|---|
| | | 引用相依：FileExists, LoadFromFile, SaveToFile, StatrTwainScan, upFile |
|---|
| | | 方法描述：處理「範本掃瞄」按鈕點擊。切換為範本模式並引導使用者輸入 FormID，掃瞄後 |
|---|
| | | 產生 TIF 與 JPG 影像。隨後透過 HTTPS 將範本上傳至伺服器，上傳過程中會 |
|---|
| | | 嚴格檢查網路狀態、Session 有效性與伺服器回傳結果。 |
|---|
| | | 引用相依：StatrTwainScan, BWTif2Jpg, upFile, SamplePath |
|---|
| | | 方法描述：【範本樣張掃瞄與註冊】 |
|---|
| | | 1. 交互：提示輸入 FormID 並檢查是否已有範本需要取代。 |
|---|
| | | 2. 掃瞄：設定模式 smSample 並指定輸出至 SamplePath。 |
|---|
| | | 3. 標準化：掃瞄產生的黑白 TIF 會自動轉存一份 JPG 作為 Web 預覽用。 |
|---|
| | | 4. 上傳：將 TIF 與 JPG 樣張透過 HTTPS 上傳至伺服器樣張庫。 |
|---|
| | | 用於系統初次建立表單規則前的實體影像採集。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.SampleScanBtnClick(Sender: TObject); |
|---|
| | | var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：AddScanBtnClick |
|---|
| | | 引用相依：StatrTwainScan |
|---|
| | | 方法描述：處理「追加掃瞄」按鈕點擊。檢查狀態後設定掃瞄模式為 smInsert（插入模式）， |
|---|
| | | 初始化掃瞄參數並啟動 StatrTwainScan。完成後重新繪製樹狀結構、更新筆數 |
|---|
| | | 統計並清空檢核記錄，最後自動選取新文件節點。 |
|---|
| | | 引用相依：StatrTwainScan, smInsert, DrawDocItem2, NewTreeNodeRefresh |
|---|
| | | 方法描述：【執行影像追加掃瞄】 |
|---|
| | | 在目前選取的案件或目錄後方繼續獲取影像。 |
|---|
| | | 1. 資源定位：鎖定當前 NowCaseno 與 NowDocDir。 |
|---|
| | | 2. 模式設定：掃瞄模式 smInsert，從既有頁數 ContextList.Count 開始累加。 |
|---|
| | | 3. 執行硬體：觸發 StatrTwainScan。 |
|---|
| | | 4. 後置重整：掃瞄後重新計算總頁數文字、刷新文件樹節點並清空舊檢核紀錄。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.AddScanBtnClick(Sender: TObject); |
|---|
| | | var |
|---|
| | |
|---|
| | | |
|---|
| | | { ============================================================================== |
|---|
| | | 方法名稱：TransBtnClick |
|---|
| | | 引用相依：LoadFromFile |
|---|
| | | 方法描述：處理工具列「上傳」按鈕的點擊事件。執行完整的前置檢查（包含案件配號、歸類、 |
|---|
| | | 收件時間限制等），接著遍歷所有案件執行 OMR 檢核與 ReSize，最後呼叫 Tran |
|---|
| | | sCaseID 將案件封裝傳送至伺服器。上傳結束後會顯示成功/失敗的統計報告。 |
|---|
| | | 引用相依：CheckCaseID_OK, CheckCaseAttach_OK, OMRCheckCase, TransCaseID, CaseAsk |
|---|
| | | 方法描述：【案件上傳總控邏輯】 |
|---|
| | | 這是將影像正式送往伺服器的最後關口。 |
|---|
| | | 1. 前置攔截：驗證案件是否已配號、是否仍有未歸類文件、是否超過收件時間。 |
|---|
| | | 2. 批次處理：遍歷所有待傳案件。 |
|---|
| | | 3. 伺服器詢問：透過 CaseAsk 確認案號是否重複處理或已存在。 |
|---|
| | | 4. 實體準備：執行 CaseReSize 標準化尺寸，並自動啟動 OMRCheckCase 檢核。 |
|---|
| | | 5. 正式傳輸：檢核通過後呼叫 TransCaseID 執行 ZIP 封裝與上傳 (Http/Ftp)。 |
|---|
| | | 6. 回報：產出成功/失敗統計報告，引導使用者查看失敗原因。 |
|---|
| | | ============================================================================== } |
|---|
| | | procedure TCB_IMGPSScanX.TransBtnClick(Sender: TObject); |
|---|
| | | Var |
|---|
