fix: 更新內部引用方法參照

curtis

11小時前 0756bf12d10cf1b7f78c571de0a9ad69cbaeb7ca

 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, FieldMask, FileExists, FindPoint, LoadFromFile, Sav
            eAnnotation, Str2Dir, _DelTree
  方法描述：產生案件的遮罩影像（用於遮蔽敏感個資）。讀取 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）、執行影像