From 62c5adb8641e8626a056abc773b72449152d8ae9 Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 14:08:25 +0800
Subject: [PATCH] fix: 1) 更新內部引用方法參照 2) mermaid 滙出
---
reassemble/view/misc.pas | 54 +++++++++++++++++++++++++++---------------------------
1 files changed, 27 insertions(+), 27 deletions(-)
diff --git a/reassemble/view/misc.pas b/reassemble/view/misc.pas
index b355f71..aa17008 100644
--- a/reassemble/view/misc.pas
+++ b/reassemble/view/misc.pas
@@ -867,7 +867,7 @@
{ ==============================================================================
方法名稱：AddAttFileLBClick
- 引用相依：FileExists, CopyFile
+ 引用相依：CopyFile, FileExists
方法描述：處理「加入附加電子檔」按鈕點擊。開啟檔案對話框選取多個 PDF 檔案，支援覆
蓋檢查。執行 CopyFile 將檔案複製到案件目錄下，並呼叫 SetAttContextList
更新附加檔案清單後載入顯示。
@@ -1044,7 +1044,7 @@
{ ==============================================================================
方法名稱：Button5Click
- 引用相依：SetFtpInfo, IIS_Ftp
+ 引用相依：IIS_Ftp, SetFtpInfo
方法描述：測試 FTP 上傳功能。連線 FTP 後嘗試將特定的 PDF 檔案上傳至伺服器路徑。
============================================================================== }
procedure TCB_IMGPSScanX.Button5Click(Sender: TObject);
@@ -1059,7 +1059,7 @@
{ ==============================================================================
方法名稱：Button6Click
- 引用相依：SetFtpInfo, IIS_Ftp, Rotate, FJpgCompression, Scanner
+ 引用相依：FJpgCompression, IIS_Ftp, Rotate, Scanner, SetFtpInfo
方法描述：測試 FTP 下載功能。連線 FTP 後嘗試從伺服器下載 ZIP 案件檔至本地。
============================================================================== }
procedure TCB_IMGPSScanX.Button6Click(Sender: TObject);
@@ -1076,7 +1076,7 @@
{ ==============================================================================
方法名稱：ExportBtClick
- 引用相依：SaveToFile, FileExists, En_DecryptionStr_Base64, dnFile, dnFile_Get
+ 引用相依：En_DecryptionStr_Base64, FileExists, SaveToFile, dnFile, dnFile_Get
方法描述：處理「匯出授權檔」按鈕點擊。透過 HTTPS 下載掃瞄與檢視用的 .lic 授權檔案
。將授權檔連同加密的 mps.dat 檔案打包成帶有密碼保護的 mps.zip 壓縮包，
完成後清理暫存檔並提示路徑。
@@ -1147,8 +1147,8 @@
{ ==============================================================================
方法名稱：ImportBtClick
- 引用相依：Str2Dir, FileExists, LoadFromFile, RenameFile, _DelTree, En_Decrypti
- onStr_Base64, upFile
+ 引用相依：En_DecryptionStr_Base64, FileExists, LoadFromFile, RenameFile, Str2D
+ ir, _DelTree, upFile
方法描述：處理「匯入授權檔」按鈕點擊。選取 mps.zip 授權包後進行解壓與過期驗證。驗
證通過後對授權檔執行重新命名，並透過 upFile 函式逐一上傳至伺服器範本
目錄，過程中會嚴格檢查 Session 與回傳狀態。
@@ -1423,7 +1423,7 @@
{ ==============================================================================
方法名稱：CaseReSize
- 引用相依：ImageReSize_FormID, FileExists, LoadFromFile
+ 引用相依：FileExists, ImageReSize_FormID, ImageResize, LoadFromFile
方法描述：對案件執行影像縮放處理。清空舊有的檢核與定位錯誤記錄，隨後遍歷影像清單
，對每個檔案執行 ImageReSize_FormID 處理。
============================================================================== }
@@ -1453,8 +1453,8 @@
{ ==============================================================================
方法名稱：TransCaseID
- 引用相依：FileExists, LoadFromFile, CopyFile, FindFirst, _DelTree, upFile, Set
- FtpInfo, IIS_Ftp, FtpCaseComplete
+ 引用相依：CopyFile, FileExists, FindFirst, FtpCaseComplete, IIS_Ftp, LoadFromF
+ ile, SetFtpInfo, _DelTree, upFile
方法描述：傳送案件核心程序。包含排序影像、產生描述檔（FormID/DocNo對照、OMR資訊、附
件狀態等）、建立 ZIP 壓縮包（含主圖與遮罩）並檢查大小。最後根據 HTTP 或 F
TP 模式上傳至伺服器。上傳完成後針對異動模式處理舊件引入，並在最後清理
@@ -1823,8 +1823,8 @@
{ ==============================================================================
方法名稱：GetNode2Name
- 引用相依：FileExists, Str2Dir, SaveToFile, LoadFromFile, DeleteDocNoFile, Copy
- File, DirectoryExists, En_DecryptionStr_Base64, dnFile
+ 引用相依：CopyFile, DeleteDocNoFile, DirectoryExists, En_DecryptionStr_Base64,
+ FileExists, LoadFromFile, SaveToFile, Str2Dir, dnFile
方法描述：提取文件層級節點的識別名稱字串，用於記錄與恢復節點選取狀態。
============================================================================== }
Function TCB_IMGPSScanX.GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
@@ -1949,7 +1949,7 @@
{ ==============================================================================
方法名稱：DownLoadImage
- 引用相依：SetFtpInfo, IIS_Ftp
+ 引用相依：IIS_Ftp, SetFtpInfo
方法描述：處理影像下載流程。根據案件上傳/下載方式（HTTP 或 FTP），從伺服器下載對應
的 ZIP 檔案並解壓縮至本地案件目錄，供後續異動或補件使用。
============================================================================== }
@@ -2002,7 +2002,7 @@
{ ==============================================================================
方法名稱：Down_Img
- 引用相依：FileExists, Str2Dir, En_DecryptionStr_Base64, dnFile_Get, dnFile
+ 引用相依：En_DecryptionStr_Base64, FileExists, Str2Dir, dnFile, dnFile_Get
方法描述：透過 HTTPS 從伺服器下載案件影像。下載 ZIP 檔案（含 img.zip 與 att.zip）
後執行本地解壓縮，將主影像與附件部署至指定目錄。
============================================================================== }
@@ -2062,7 +2062,7 @@
{ ==============================================================================
方法名稱：GetNoNameCase
- 引用相依：GetNoNameCase, DirectoryExists
+ 引用相依：DirectoryExists, GetNoNameCase
方法描述：在指定的本地路徑中尋找尚未被佔用的「未配號XXXX」目錄名稱。
============================================================================== }
Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //取未配號XXXX
@@ -2082,7 +2082,7 @@
{ ==============================================================================
方法名稱：CaseResort
- 引用相依：LoadFromFile, FileExists, RenameFile, SaveToFile, ReSortFileName
+ 引用相依：FileExists, LoadFromFile, ReSortFileName, RenameFile, SaveToFile
方法描述：對案件檔案進行實體重新排序。依據文件清單（Doc_Inf_List）的順序，對主文件
與次文件進行更名與重新編號，確保檔名序號符合業務邏輯。
============================================================================== }
@@ -2227,7 +2227,7 @@
{ ==============================================================================
方法名稱：CaseResort2Scanlist
- 引用相依：FileExists, LoadFromFile, RenameFile, SaveToFile, ReSortFileName
+ 引用相依：FileExists, LoadFromFile, ReSortFileName, RenameFile, SaveToFile
方法描述：產生依表單代號排序的影像清單（scanlist.dat），用於上傳。
============================================================================== }
Procedure TCB_IMGPSScanX.CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
@@ -2355,7 +2355,7 @@
{ ==============================================================================
方法名稱：DistinctDocinCase
- 引用相依：LoadFromFile, LoadFileGetMD5
+ 引用相依：LoadFileGetMD5, LoadFromFile
方法描述：列出案件目錄下所有具備文件編號與版本的唯一組合。
============================================================================== }
Procedure TCB_IMGPSScanX.DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
@@ -2843,7 +2843,7 @@
{ ==============================================================================
方法名稱：FormIDReplace
- 引用相依：FileExists, LoadFromFile, DirectoryExists, CopyFile, RenameFile, Sav
+ 引用相依：CopyFile, DirectoryExists, FileExists, LoadFromFile, RenameFile, Sav
eToFile
方法描述：將指定文件中的舊表單代碼替換為新代碼。首先決定目標目錄（考慮是否分份數
、補件狀況），若目標目錄不存在則建立。接著將符合舊代碼的檔案複製到新目錄
@@ -3187,7 +3187,7 @@
{ ==============================================================================
方法名稱：WriteResize
- 引用相依：LoadFromFile, FileExists, SaveToFile
+ 引用相依：FileExists, GetTag, LoadFromFile, SaveToFile
方法描述：產生影像縮放記錄檔（Resize.dat）。載入影像後比對原始標記（Tag）中的長寬資
訊與實際 Graphic 的長寬，若有變動則將差異記錄至文字檔中。
============================================================================== }
@@ -3719,7 +3719,7 @@
{ ==============================================================================
方法名稱：ScanGrayCBClick
- 引用相依：ifGray256, ifBlackWhite, ifTrueColor
+ 引用相依：ifBlackWhite, ifGray256, ifTrueColor
方法描述：根據掃瞄勾選框狀態，設定掃瞄色彩模式（灰階、全彩或黑白）。
============================================================================== }
procedure TCB_IMGPSScanX.ScanGrayCBClick(Sender: TObject);
@@ -4180,7 +4180,7 @@
{ ==============================================================================
方法名稱：UseOldCaseLbClick
- 引用相依：FileExists, LoadFromFile, DirectoryExists, CopyFile, SaveToFile
+ 引用相依：CopyFile, DirectoryExists, FileExists, LoadFromFile, SaveToFile
方法描述：處理「使用舊件」功能。開啟 TOldCaseInfoForm 讓使用者選擇舊有案件的文件。
選定後，將舊件影像複製到新案件目錄下，自動產生新序號檔名，建立關聯記錄（
UseCase.dat），並同步更新新案件的文件清單與樹狀統計。
@@ -4689,7 +4689,7 @@
{ ==============================================================================
方法名稱：CheckAvailable
- 引用相依：FileExists, dnFile_Get, dnFile, upFile
+ 引用相依：FileExists, dnFile, dnFile_Get, upFile
方法描述：檢查元件的使用授權。透過 HTTPS 下載掃瞄授權檔，並驗證 MacID、註冊數量與
使用期限。若尚未註冊且仍有額度，則自動進行註冊並上傳新的授權檔至伺服器
。最後在狀態列顯示註冊資訊。
@@ -4811,8 +4811,8 @@
{ ==============================================================================
方法名稱：Case2Mask
- 引用相依：FindPoint, DirectoryExists, _DelTree, Str2Dir, LoadFromFile, FileExi
- sts
+ 引用相依：DirectoryExists, FileExists, FindPoint, LoadFromFile, Str2Dir, _DelT
+ ree
方法描述：產生案件的遮罩影像（用於遮蔽敏感個資）。讀取 Context.dat，針對每張影像尋
找定位點，並依據對應表單的 XML 定義執行區域遮罩，最後存入指定目錄。
============================================================================== }
@@ -5287,7 +5287,7 @@
{ ==============================================================================
方法名稱：MoveImage
- 引用相依：LoadFromFile, RenameFile, SaveToFile, ReSortFileName
+ 引用相依：LoadFromFile, ReSortFileName, RenameFile, SaveToFile
方法描述：執行影像頁面的位置移動。先對目錄下所有檔案進行臨時更名（加上 @ 標記），
根據選取狀態重新排列清單順序，最後更新 Context.dat 並重新排序實體檔案
。
@@ -5353,7 +5353,7 @@
{ ==============================================================================
方法名稱：MoveImage_Drag
- 引用相依：LoadFromFile, RenameFile, SaveToFile, ReSortFileName
+ 引用相依：LoadFromFile, ReSortFileName, RenameFile, SaveToFile
方法描述：處理影像拖拉移動。邏輯與 MoveImage 相似，但針對單一來源索引移動至目標
索引的情境進行排列。
============================================================================== }
@@ -5579,7 +5579,7 @@
{ ==============================================================================
方法名稱：view_image_DocNo
- 引用相依：DpiResize, FileExists, LoadFromFile, DirectoryExists
+ 引用相依：DirectoryExists, DpiResize, FileExists, LoadFromFile
方法描述：根據文件代號（DocNo）或表單代號（FormID）顯示影像。函式包含三種模式：顯示
案件內所有影像（ShowAll）、顯示指定文件夾（如 Attach）下的影像，以及顯示指
定文件代號下特定表單的影像。處理過程中會檢查在席狀態（In_WH）、執行影像
--
Gitblit v1.8.0