{ ==============================================================================
|
方法名稱：SetUseCase
|
引用相依：
|
方法描述：管理案件間的文件引用紀錄。此方法使用 Tinifile 操作案件目錄下的 UseCas
|
e.ini 檔案。當 Mode 為 'A' (Add) 時，會在指定的 DocDir 區段下紀錄來源
|
案件 (FROM_CASEID) 與目標案件 (TO_CASEID) 的引用關係；當 Mode 為 'D'
|
(Delete) 時，則會移除該目錄對應的引用資訊。這用於追蹤不同案件間影像資
|
源的重複利用情況。
|
============================================================================== }
|
Procedure TCB_IMGPSScanX.SetUseCase(Mode:Char;Path,DocDir,FormCaseID,ToCaseID:String); //記錄引用其他案件 A:加入 D:刪掉
|
var
|
ini : Tinifile;
|
begin
|
ini := Tinifile.Create(Path+'UseCase.ini');
|
try
|
case Mode of
|
'A':begin
|
ini.WriteString(DocDir,'FROM_CASEID',FormCaseID);
|
ini.WriteString(DocDir,'TO_CASEID',ToCaseID);
|
end;
|
'D':begin
|
ini.EraseSection(DocDir);
|
end;
|
end;
|
|
finally
|
ini.Free;
|
end;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：GetUseCase
|
引用相依：
|
方法描述：取得指定目錄的文件引用資訊。方法讀取 UseCase.ini 設定檔，根據 Mode 參
|
數返回對應的案件 ID：模式 'F' 返回被引用的來源案件 ID (FROM_CASEID)，
|
模式 'T' 返回執行引用的目標案件 ID (TO_CASEID)。若查無紀錄則返回空字
|
串。
|
============================================================================== }
|
Function TCB_IMGPSScanX.GetUseCase(Mode:Char;Path,DocDir:String):String; //F:取被引用 To:引用
|
var
|
ini : Tinifile;
|
begin
|
ini := Tinifile.Create(Path+'UseCase.ini');
|
try
|
case Mode of
|
'F':begin
|
Result := ini.ReadString(DocDir,'FROM_CASEID','');
|
end;
|
'T':begin
|
Result := ini.ReadString(DocDir,'TO_CASEID','');
|
end;
|
end;
|
finally
|
ini.Free;
|
end;
|
|
end;
|
