From 3af5c004b4f2d2005d22ee85dccc2c80a66b1556 Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 10:19:20 +0800
Subject: [PATCH] refactor: spec 輸出
---
scripts/dist/ErrList.pas.image.csv | 5
reassemble/CB_IMGPSScanImp.caseMgr.pas | 107
scripts/scanimpl_annalysis_addon_json.js | 125
reassemble/CB_IMGPSScanImp.docmod.pas | 196
scripts/list_image_dependencies.js | 82
reassemble/CB_IMGPSScanImp.fileOp.pas | 347
uiOutput/index.html | 387
reassemble/view/misc.pas | 6607 ++++++
scripts/final_classify_scanImp_pas.js | 264
uiOutput/ErrList/ErrList.vue | 200
uiOutput/assets/CB_PatchFom.png | 0
reassemble/CB_IMGPSScanImp.omr.pas | 980 +
scripts/batch_dfm_to_web.js | 52
scripts/scanimpl_annalysis_disaggregate.js | 27
scripts/scanimpl_annalysis_addon_json.test.js | 183
scripts/final_classify_scanImp_pas.test.js | 115
reassemble/CB_IMGPSScanImp.misc.pas | 171
uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.ts | 216
reassemble/CB_IMGPSScanImp.lfcycle.pas | 771
reassemble/transp/fileClient.pas | 161
scripts/dist/scanimpl_annalysis.remainings.txt | 1050 +
uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.vue | 264
scripts/dist/CB_IMGPSScanImp.pas.bk.scan.csv | 36
reassemble/img/transformer.pas | 165
reassemble/view/scrollView.pas | 314
scripts/dist/CB_IMGPSScanImp.remaining.txt | 1051 +
scripts/dist/OldCaseInfo.pas.transp.csv | 7
reassemble/CB_IMGPSScanImp.prUpload.pas | 800
scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv | 359
scripts/dist/deps.all.csv | 607
reassemble/view/popupMenu.pas | 2020 ++
scripts/dist/CB_IMGPSScanImp.pas.bk.transp.csv | 71
scripts/dist/PatchFom.pas.scan.csv | 3
reassemble/img/anchor.pas | 68
scripts/scanimpl_annalysis_extract_methods.js | 40
uiOutput/ErrList/ErrList.ts | 314
uiOutput/assets/CB_ErrList.png | 0
scripts/list_transport_dependencies.js | 56
scripts/dist/PatchFom.pas.image.csv | 7
scripts/scanimpl_annalysis_validate.js | 65
scripts/list_io_dependencies.js | 61
.gitignore | 3
reassemble/CB_IMGPSScanImp.preview.pas | 467
reassemble/bloc/entityMapping.pas | 59
reassemble/scan/twain.pas | 880
scripts/dist/ErrList.pas.io.csv | 12
uiOutput/assets/CB_IMGPSScanImp.png | 0
reassemble/CB_IMGPSScanImp.api.pas | 986 +
CB_IMGPSScan.res | 0
reassemble/CB_IMGPSScanImp.listMgr.pas | 38
scripts/dist/OldCaseInfo.pas.image.csv | 2
uiOutput/PatchFom/PatchFom.ts | 155
reassemble/view/toolBar.pas | 1104 +
reassemble/CB_IMGPSScanImp.convert.pas | 480
CB_IMGPSScanImp.pas | 15433 ----------------
scripts/list_scan_dependencies.js | 53
uiOutput/PatchFom/PatchFom.vue | 144
scripts/readme.md | 30
reassemble/CB_IMGPSScanImp.docq.pas | 553
scripts/list_dependencies_run.js | 99
scripts/scanimpl_annalysis_classify.js | 115
scripts/dist/readme.md | 18
reassemble/view/treeView.pas | 822
CB_IMGPSScanImp.pas.bk | 16454 +++++++++++++++++
reassemble/view/msger.pas | 66
reassemble/transp/payloadArchiver.pas | 130
reassemble/CB_IMGPSScanImp.custdoc.pas | 332
/dev/null | 98
scripts/dist/CB_IMGPSScanImp.pas.bk.image.csv | 103
scripts/list_dependencies.js | 110
reassemble/bloc/caseManager.pas | 60
reassemble/CB_IMGPSScanImp.inbound.pas | 147
reassemble/view/listView.pas | 77
scripts/dist/OldCaseInfo.pas.io.csv | 18
74 files changed, 41,900 insertions(+), 15,502 deletions(-)
diff --git a/.gitignore b/.gitignore
index 82ab9f9..3a929e7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,4 @@
__history/
+.idea
+__recovery
+
diff --git a/CB_IMGPSScan.res b/CB_IMGPSScan.res
index a31a8b6..78d8471 100644
--- a/CB_IMGPSScan.res
+++ b/CB_IMGPSScan.res
Binary files differ
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index 88d347a..b3a848a 100644
--- a/CB_IMGPSScanImp.pas
+++ b/CB_IMGPSScanImp.pas
@@ -1,4 +1,4 @@
-unit CB_IMGPSScanImp;
+unit CB_IMGPSScanImp;
//TEST
{$WARN SYMBOL_PLATFORM OFF}
@@ -1049,15406 +1049,31 @@
{ TCB_IMGPSScanX }
-function TCB_IMGPSScanX.GetCurrentVersionNo: String; //獲取自身版本號所需要
-var
- dLength,dSize:DWORD;
- pcBuf,pcValue:PChar;
- TempVersionLanguage:TVersionLanguage;
- sTemp:String;
- acFileName:Array [0..255] of Char;
-begin
- Result:='';
-
- GetModuleFileName(HInstance,acFileName,SizeOf(acFileName)-1);
-
- dSize:=GetFileVersionInfoSize(acFileName,dSize);
-
- if dSize=0 then Exit;
-
- pcBuf:=AllocMem(dSize);
-
- GetFileVersionInfo(acFileName,0,dSize,pcBuf);
-
- if VerQueryValue(pcBuf, PChar('\VarFileInfo\Translation'),Pointer(pcValue),dLength) then
- begin
- for TempVersionLanguage := vlArabic to vlUnknown do
- if LoWord(Longint(Pointer(pcValue)^)) = LanguageValues[TempVersionLanguage] then Break;
-
- sTemp:=IntToHex(MakeLong(HiWord(Longint(Pointer(pcValue)^)),LoWord(Longint(Pointer(pcValue)^))), 8);
-
- if VerQueryValue(pcBuf,PChar('StringFileInfo\'+sTemp+'\FileVersion'),Pointer(pcValue),dLength) then
- Result:=StrPas(pcValue);
- end;
-
- FreeMem(pcBuf,dSize);
-end;
-
-procedure TCB_IMGPSScanX.WMMOUSEWHEEL(var message: TWMMouseWheel);
-var
- I: Integer;
- iISB : TImageScrollBox;
-begin
- inherited;
- //lb1.Caption:=IntToStr(message.Keys);
- if (message.WheelDelta = WHEEL_DELTA) Then
- begin
-
- if ScrollBox1.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
- if DisplayISB <> nil then
- begin
- if (DisplayISB.Focused) and (message.Keys=0) then
- begin
- DisplayISB.VertScrollBar.Increment := 50;
- DisplayISB.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
-
- if (DisplayISB.Focused) and (message.Keys=50) then
- begin
- DisplayISB.ZoomMode := zmPercent;
- if DisplayISB.ZoomPercent < 90 then
- DisplayISB.ZoomPercent := DisplayISB.ZoomPercent+10;
- end;
-
- end;
- i:=0;
- while FindComponent(ISBName+inttostr(i)) <> nil do
- begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- if iISB.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
- inc(i);
- end;
-
- end
- else if (message.WheelDelta = -WHEEL_DELTA) then
- begin
-
- if ScrollBox1.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
- end;
- if DisplayISB <> nil then
- begin
- if (DisplayISB.Focused) and (message.Keys=0) then
- begin
- DisplayISB.VertScrollBar.Increment := 50;
- DisplayISB.Perform(WM_VSCROLL,SB_LINEDOWN,0);
- end;
- if (DisplayISB.Focused) and (message.Keys=50) then
- begin
- DisplayISB.ZoomMode := zmPercent;
- if DisplayISB.ZoomPercent > 10 then
- DisplayISB.ZoomPercent := DisplayISB.ZoomPercent-10;
- end;
-
-
- end;
-
- i:=0;
- while FindComponent(ISBName+inttostr(i)) <> nil do
- begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- if iISB.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
- inc(i);
- end;
-
- end;
-
-
-end;
-
-procedure TCB_IMGPSScanX.WNoteBtnClick(Sender: TObject);
-var
- i,n,v,v1:Integer;
- SortMemoForm : TSortMemoForm;
- M_Content,M_ID,M_Name : String;
- S : TStringlist;
-begin
- ShowText := _Msg('備註輸入中,請稍候');
- DataLoading(True,True);
- SortMemoForm := TSortMemoForm.Create(Self);
- S := TStringlist.Create;
- try
- InitialLanguage(SortMemoForm); //載入多國語言
-
- SortMemoForm.ContentList := TStringlist.Create; //註記內容
- SortMemoForm.MemoIDList := TStringlist.Create; //註記代號
- SortMemoForm.MemoNameList := TStringlist.Create; //註記名稱
-
- for i := 1 to MEMO_INF_List.Count - 1 do
- begin
- M_Content := GetSQLData(MEMO_INF_List,'T1.MEMO_CONTENT',i);
- M_ID := GetSQLData(MEMO_INF_List,'T1.MEMO_TYPE',i);
- M_Name := GetSQLData(MEMO_INF_List,'T2.MEMO_TYPE_NAME',i);
- SortMemoForm.ComboBox1.Items.Add(M_Name+'-->'+M_Content);
- SortMemoForm.ContentList.Add(M_Content); //註記內容
- SortMemoForm.MemoIDList.Add(M_ID); //註記代號
- SortMemoForm.MemoNameList.Add(M_Name); //註記名稱
- end;
- if FileExists(DisplayPath+'Scan_Memo.dat') then
- begin
- S.LoadFromFile(DisplayPath+'Scan_Memo.dat');
- for I := 0 to S.Count - 1 do
- begin
- v := Pos(',',S.Strings[i]);
- v1 := length(S.Strings[i]);
- M_ID := copy(S.Strings[i],1,v-1);
- M_Name := MemoInfoTransfer('ID',M_ID,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
- M_Content := copy(S.Strings[i],v+1,v1-v);
- SortMemoForm.ResoureMemo.Add(M_Name+'-->'+M_Content);
- With SortMemoForm.MemoLV.Items.Add do
- begin
- Caption := M_Content;
- SubItems.Add(M_Name);
- end;
- end;
- end;
-
- if SortMemoForm.ShowModal = mrOk then
- begin
- S.Clear;
- for I := 0 to SortMemoForm.MemoLV.Items.Count - 1 do
- begin
- M_Content := SortMemoForm.MemoLV.Items.Item[i].Caption;
- M_Name := SortMemoForm.MemoLV.Items.Item[i].SubItems.Strings[0];
- M_ID := MemoInfoTransfer('NAME',M_Name,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
- S.Add(M_ID+','+M_Content);
- end;
- S.SaveToFile(DisplayPath+'Scan_Memo.dat');
- end;
- SortMemoForm.ContentList.Free; //註記內容
- SortMemoForm.MemoIDList.Free; //註記代號
- SortMemoForm.MemoNameList.Free; //註記名稱
- finally
- SortMemoForm.Free;
- S.Free;
- DataLoading(False,False);
- if Ch_WriteNote then
- begin
- Ch_WriteNote := False;
- CaseHelpBtnClick(self);
- ErrIndex := 0;
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
-begin
- { Define property pages here. Property pages are defined by calling
- DefinePropertyPage with the class id of the page. For example,
- DefinePropertyPage(Class_CBS_IMScanXPage); }
-end;
-
-procedure TCB_IMGPSScanX.EventSinkChanged(const EventSink: IUnknown);
-begin
- FEvents := EventSink as ICB_IMGPSScanXEvents;
- inherited EventSinkChanged(EventSink);
-end;
-
-procedure TCB_IMGPSScanX.FC0Click(Sender: TObject);
-begin
- IF NowClick = 0 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(0 ,Sender);
- NowClick := 0;
-end;
-
-procedure TCB_IMGPSScanX.FC1Click(Sender: TObject);
-begin
- IF NowClick = 1 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(1 ,Sender);
- NowClick := 1;
-end;
-
-procedure TCB_IMGPSScanX.FC2Click(Sender: TObject);
-begin
- IF NowClick = 2 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(2,Sender);
- NowClick := 2;
-end;
-
-procedure TCB_IMGPSScanX.FC3Click(Sender: TObject);
-begin
- IF NowClick = 3 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(3 ,Sender);
- NowClick := 3;
-end;
-
-procedure TCB_IMGPSScanX.FC4Click(Sender: TObject);
-begin
- IF NowClick = 4 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(4 ,Sender);
- NowClick := 4;
-end;
-
-procedure TCB_IMGPSScanX.FC5Click(Sender: TObject);
-begin
- IF NowClick = 5 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(5 ,Sender);
- NowClick := 5;
-end;
-
-procedure TCB_IMGPSScanX.FC6Click(Sender: TObject);
-begin
- {IF NowClick = 6 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(6 ,Sender);
- NowClick := 6;}
- PM605Click(nil);
-end;
-
-procedure TCB_IMGPSScanX.InitExistImgList(casepath: String);
-var
- ST1,ST2,ST3,ST4:TStringList;
- i,j,k:Integer;
-begin
-
- ST1:=TStringList.Create;
- ST2:=TStringList.Create;
- ST3:=TStringList.Create;
-
- ExistImgList.Clear;
- ST1.LoadFromFile(casepath+'Download\Context.dat');
- for I := 0 to ST1.Count - 1 do
- begin
-LogFile1.LogToFile(logTimeString+casepath+'Download\'+ST1.Strings[i]+',MD5='+LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i]));
- ExistImgList.Add(LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i])) ;
- end;
-LogFile1.LogToFile(logTimeString+'ExistImgList.text'+ExistImgList.CommaText);
-
- ST1.Free;
- ST2.Free;
- ST3.Free;
-
-end;
-
-procedure TCB_IMGPSScanX.Initialize;
-begin
- inherited Initialize;
- OnActivate := ActivateEvent;
- OnClick := ClickEvent;
- OnCreate := CreateEvent;
- OnDblClick := DblClickEvent;
- OnDeactivate := DeactivateEvent;
- OnDestroy := DestroyEvent;
- OnKeyPress := KeyPressEvent;
- OnMouseEnter := MouseEnterEvent;
- OnMouseLeave := MouseLeaveEvent;
- OnPaint := PaintEvent;
- MpsKey := 'fbim';
- Seg := 3; //瀏覽窗的邊界
- Ext := '.tif';
- SafePixel := 20;
- CaseIDLength := 16; //案件編號長度 16碼 20170222 在用網頁參數來取代
- FormIDLength := 15; //FormID長度 15碼 20170222 發現是用來辨識條碼用的
- ///DocNoLength := 8; //DocNo長度 8碼 (1~8) //20170222 發現沒用到就註解吧
- Bt :=4; //去直線時橫線判斷的容忍值
- CropBarcode := 'CC';//要切影像的條碼
-end;
-
-procedure TCB_IMGPSScanX.ISB1Click(Sender: TObject);
-var
- p : Integer;
-begin
- DisplayISB := TImageScrollBox(Sender);
- Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
- Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
- P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
- if P <= PageLV.Items.Count-1 then
- begin
- if PageLVclear then
- begin
- PageLV.ClearSelection;
- end;
- NowPage := p+1;
- PageLV.ItemIndex := P;
- end;
- //DisplayISB.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.ISB1EndScroll(Sender: TObject);
-var
- ISB : TImageScrollBox;
-begin
- ISB := TImageScrollBox(Sender);
-
- SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
- {if (TImageScrollBox(Sender) = MpsViewX1) and SortMode then
- begin
- ReczoomPercent := MpsViewX1.ZoomPercent;
- RecHozPos := MpsViewX1.HorzScrollBarPos;
- RecVerPos := MpsViewX1.VertScrollBarPos;
- end;}
-end;
-
-procedure TCB_IMGPSScanX.ISB1Enter(Sender: TObject);
-begin
- ISB1.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-var
- p : Integer;
-begin
- DisplayISB := TImageScrollBox(Sender);
- if NowClick<>0 then
- DisplayISB.SetFocus;
- Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
- Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
- P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
- if P <= PageLV.Items.Count-1 then
- begin
- NowPage := p+1;
- PageLV.ClearSelection;
- PageLV.ItemIndex := P;
-
- //PageLV.Selected := PageLV.Items.Item[PageLV.ItemIndex];
-
- end;
- if (NowClick = -1) and (Button=TMouseButton(mbLeft)) and (DisplayISB.FileName <> '') then
- begin
- {for P := 1 to 8 do
- begin
- TImageScrollBox(FindComponent('ISB'+inttostr(p))).Enabled := False;
- end; }
- DisplayISB.BeginDrag(True);
- end;
- case TImageScrollBox(Sender).MouseMode of
- mmR90,mmR180,mmR270:
- begin
- TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);
- end;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
-begin
- //Edit1.SetFocus;
- //TImageScrollBox(Sender).SetFocus;
-
- if TImageScrollBox(Sender).FileName = '' then
- TImageScrollBox(Sender).MouseMode := mmUser
- Else
- ViewMouseMode(NowClick);
-
- ISB1.AlwaysShowAnnotations := False;
-
-// if TImageScrollBox(Sender).FileName = '' then
-// begin
-////ShowMessage('AAA');
-//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName+' time='+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
-// TImageScrollBox(Sender).MouseMode := mmUser
-// end
-// Else
-// begin
-//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName;
-// ViewMouseMode(NowClick);
-// end;
-end;
-
-procedure TCB_IMGPSScanX.ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-Var
- p : Integer;
- ISB : TImageScrollBox;
-begin
- case TImageScrollBox(Sender).MouseMode of
- mmDelete:
- begin
- PM508Click(Self);
- end;
- mmR90,mmR180,mmR270:
- begin
- if TImageScrollBox(Sender).Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;
- TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);
- end
- Else
- TImageScrollBox(Sender).SaveToFile(TImageScrollBox(Sender).FileName);
-
- SelectISB.Graphic.Assign(TImageScrollBox(Sender).Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- end;
- end;
-
- ISB := TImageScrollBox(Sender);
- if (ISB.MouseMode = mmZoom) or (ISB.MouseMode = mmDrag) then
- SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
-
-end;
-
-function TCB_IMGPSScanX.Get_Active: WordBool;
-begin
- Result := Active;
-end;
-
-function TCB_IMGPSScanX.Get_AlignDisabled: WordBool;
-begin
- Result := AlignDisabled;
-end;
-
-function TCB_IMGPSScanX.Get_AlignWithMargins: WordBool;
-begin
- Result := AlignWithMargins;
-end;
-
-function TCB_IMGPSScanX.Get_AutoScroll: WordBool;
-begin
- Result := AutoScroll;
-end;
-
-function TCB_IMGPSScanX.Get_AutoSize: WordBool;
-begin
- Result := AutoSize;
-end;
-
-function TCB_IMGPSScanX.Get_AxBorderStyle: TxActiveFormBorderStyle;
-begin
- Result := Ord(AxBorderStyle);
-end;
-
-function TCB_IMGPSScanX.Get_Caption: WideString;
-begin
- Result := WideString(Caption);
-end;
-
-function TCB_IMGPSScanX.Get_Color: OLE_COLOR;
-begin
- Result := OLE_COLOR(Color);
-end;
-
-function TCB_IMGPSScanX.Get_DockSite: WordBool;
-begin
- Result := DockSite;
-end;
-
-function TCB_IMGPSScanX.Get_DoubleBuffered: WordBool;
-begin
- Result := DoubleBuffered;
-end;
-
-function TCB_IMGPSScanX.Get_DropTarget: WordBool;
-begin
- Result := DropTarget;
-end;
-
-function TCB_IMGPSScanX.Get_Enabled: WordBool;
-begin
- Result := Enabled;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitHeight: Integer;
-begin
- Result := ExplicitHeight;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitLeft: Integer;
-begin
- Result := ExplicitLeft;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitTop: Integer;
-begin
- Result := ExplicitTop;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitWidth: Integer;
-begin
- Result := ExplicitWidth;
-end;
-
-function TCB_IMGPSScanX.Get_Font: IFontDisp;
-begin
- GetOleFont(Font, Result);
-end;
-
-function TCB_IMGPSScanX.Get_HelpFile: WideString;
-begin
- Result := WideString(HelpFile);
-end;
-
-function TCB_IMGPSScanX.Get_KeyPreview: WordBool;
-begin
- Result := KeyPreview;
-end;
-
-function TCB_IMGPSScanX.Get_MouseInClient: WordBool;
-begin
- Result := MouseInClient;
-end;
-
-function TCB_IMGPSScanX.Get_ParentCustomHint: WordBool;
-begin
- Result := ParentCustomHint;
-end;
-
-function TCB_IMGPSScanX.Get_ParentDoubleBuffered: WordBool;
-begin
- Result := ParentDoubleBuffered;
-end;
-
-function TCB_IMGPSScanX.Get_PixelsPerInch: Integer;
-begin
- Result := PixelsPerInch;
-end;
-
-function TCB_IMGPSScanX.Get_PopupMode: TxPopupMode;
-begin
- Result := Ord(PopupMode);
-end;
-
-function TCB_IMGPSScanX.Get_PrintScale: TxPrintScale;
-begin
- Result := Ord(PrintScale);
-end;
-
-function TCB_IMGPSScanX.Get_Scaled: WordBool;
-begin
- Result := Scaled;
-end;
-
-function TCB_IMGPSScanX.Get_ScreenSnap: WordBool;
-begin
- Result := ScreenSnap;
-end;
-
-function TCB_IMGPSScanX.Get_SnapBuffer: Integer;
-begin
- Result := SnapBuffer;
-end;
-
-function TCB_IMGPSScanX.Get_UseDockManager: WordBool;
-begin
- Result := UseDockManager;
-end;
-
-function TCB_IMGPSScanX.Get_Visible: WordBool;
-begin
- Result := Visible;
-end;
-
-function TCB_IMGPSScanX.Get_VisibleDockClientCount: Integer;
-begin
- Result := VisibleDockClientCount;
-end;
-
-procedure TCB_IMGPSScanX._Set_Font(var Value: IFontDisp);
-begin
- SetOleFont(Font, Value);
-end;
-
-procedure TCB_IMGPSScanX.ActivateEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnActivate;
-end;
-
-procedure TCB_IMGPSScanX.ClickEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnClick;
-end;
-
-procedure TCB_IMGPSScanX.CreateEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnCreate;
-end;
-
-procedure TCB_IMGPSScanX.DblClickEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnDblClick;
-end;
-
-procedure TCB_IMGPSScanX.DeactivateEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnDeactivate;
-end;
-
-procedure TCB_IMGPSScanX.DestroyEvent(Sender: TObject);
-begin
- //********清單區********
- Doc_Inf_List.Free; //Doc_Inf 清單 Docno + 版本為key
- DM_FORM_INF_List.Free; //DM_FORM_INF 清單 Docno + 版本為key
- FORM_INF_List.Free; //FORM_INF的清單
- CHECK_RULE_INF_List.Free; //CHECK_RULE_INF 清單
- MEMO_INF_List.Free; //MEMO_INF 清單
- WORK_INF_List.Free; //WORK_INF 清單
- LASTEST_FORM_INF_List.Free; // LASTEST_FORM_INF 清單
- FindResult.Free ; //找SQLData的結果
- OMRFileList.Free; //要OMR檢核的文件(只檢查每種Form的第一頁)
- FormCode_PageSize.Free; //文件的預設大小 FormCode_Height_Width
- DocNo_NeedDoc.Free; //有Docno時要相依的文件 DocNo_相依文件_相依文件
- DocNo_NoDoc.Free; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
- DocNo_VerinCase.Free; //案件裡的DocNo+版本的清單
- CaseDocNoList.Free; //案件裡的DocNo清單
- CaseDocNo_CopiesList.Free; //案件裡的DocNo份數清單
- CaseList.Free; //記錄掃瞄案件的順序
- NoSaveBarCodeList.Free; //不儲存的條碼清單
- FormID_List.Free; //FormID清單
- DocNo_List.Free; //DocNo清單
- Context_DocnoList.Free; //案件裡的檔案Docno清單
- ContextList.Free; //案件裡的檔案清單
- AttContextList.Free; //案件裡的附加檔案清單
- NowShowFileList.Free; //目前顯示的影像清單
- NowSelectFileList.Free; //目前被點選的影像清單
- Cust_DocNoList.Free; //自行定義文件名稱
- IN_WH_DocNoList.Free; //入庫的文件清單
- GuideFormIDList.Free; //要當導引頁表單清單
- DivPageFormIDList.Free; //要當分案頁表單清單
- LastInitFormidList.Free;
- LastAddFormidList.Free;
- SampleFormIDList.Free;
- ExistImgList.Free;
- reSizeExistImgList.Free;
- //********清單區********
- if (FMode = 'DSCAN') or (FMode = 'ESCAN') then //重掃件及異動件要只能掃指定編號的件
- begin
- if ImagePath<>'' then
- _Deltree(ImagePath);
- end;
-
- if FEvents <> nil then FEvents.OnDestroy;
-end;
-
-procedure TCB_IMGPSScanX.KeyPressEvent(Sender: TObject; var Key: Char);
-var
- TempKey: Smallint;
-begin
- TempKey := Smallint(Key);
- if FEvents <> nil then FEvents.OnKeyPress(TempKey);
- Key := Char(TempKey);
-end;
-
-procedure TCB_IMGPSScanX.mode1Click(Sender: TObject);
-begin
- VMode := 0;
- GoViewMode;
- //ScrollBar1Change(Self);
- Panel14.Visible := False;
-end;
-
-procedure TCB_IMGPSScanX.mode2Click(Sender: TObject);
-begin
- VMode := 1;
- GoViewMode;
- //ScrollBar1Change(Self);
- Panel14.Visible := True;
-end;
-
-procedure TCB_IMGPSScanX.mode3Click(Sender: TObject);
-begin
- VMode := 2;
- GoViewMode;
- ScrollBar1Change(Self);
-end;
-
-procedure TCB_IMGPSScanX.mode4Click(Sender: TObject);
-begin
- VMode := 3;
- GoViewMode;
- ScrollBar1Change(Self);
-end;
-
-procedure TCB_IMGPSScanX.MouseEnterEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnMouseEnter;
-end;
-
-procedure TCB_IMGPSScanX.MouseLeaveEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnMouseLeave;
-end;
-
-procedure TCB_IMGPSScanX.PaintEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnPaint;
-end;
-
-procedure TCB_IMGPSScanX.Set_AlignWithMargins(Value: WordBool);
-begin
- AlignWithMargins := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_AutoScroll(Value: WordBool);
-begin
- AutoScroll := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_AutoSize(Value: WordBool);
-begin
- AutoSize := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_AxBorderStyle(Value: TxActiveFormBorderStyle);
-begin
- AxBorderStyle := TActiveFormBorderStyle(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_Caption(const Value: WideString);
-begin
- Caption := TCaption(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_Color(Value: OLE_COLOR);
-begin
- Color := TColor(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_DockSite(Value: WordBool);
-begin
- DockSite := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_DoubleBuffered(Value: WordBool);
-begin
- DoubleBuffered := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_DropTarget(Value: WordBool);
-begin
- DropTarget := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_Enabled(Value: WordBool);
-begin
- Enabled := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_Font(const Value: IFontDisp);
-begin
- SetOleFont(Font, Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_HelpFile(const Value: WideString);
-begin
- HelpFile := string(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_KeyPreview(Value: WordBool);
-begin
- KeyPreview := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_ParentCustomHint(Value: WordBool);
-begin
- ParentCustomHint := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_ParentDoubleBuffered(Value: WordBool);
-begin
- ParentDoubleBuffered := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_PixelsPerInch(Value: Integer);
-begin
- PixelsPerInch := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_PopupMode(Value: TxPopupMode);
-begin
- PopupMode := TPopupMode(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_PrintScale(Value: TxPrintScale);
-begin
- PrintScale := TPrintScale(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_Scaled(Value: WordBool);
-begin
- Scaled := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_ScreenSnap(Value: WordBool);
-begin
- ScreenSnap := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_SnapBuffer(Value: Integer);
-begin
- SnapBuffer := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_UseDockManager(Value: WordBool);
-begin
- UseDockManager := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_Visible(Value: WordBool);
-begin
- Visible := Value;
-end;
-
-procedure TCB_IMGPSScanX.PM401Click(Sender: TObject);
-var
- i : Integer;
- FromIndex : Integer;
- CaseID : String;
- NewPath : String;
- OldName,NewName:String;
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- FromIndex := PageLv.ItemIndex;
- if FromIndex = 0 then
- begin
- Showmessage(_Msg('不能從第1頁分案'));
- Exit;
- end;
-
- If MessageDlg(Format(_Msg('是否確定從%d頁分出新案'),[PageLV.ItemIndex+1]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- CaseID := GetNoNameCase(ImageSavePath);
- NewPath := ImageSavePath + CaseID+'\';
- Str2Dir(NewPath);
- for i := FromIndex to ContextList.Count - 1 do
- begin
- OldName := ContextList.Strings[i];
- //NewName := Add_Zoo(S.Count+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(S.Count+1,3)+FileName2NoQuene_Filename(OldName);
-
- ReNameFile(DisplayPath+OldName,NewPath+NewName);
- S.Add(NewName);
- S.SaveToFile(NewPath+'Context.dat');
- end;
- for i := ContextList.Count - 1 downto FromIndex do
- begin
- ContextList.Delete(i);
- ContextList.SaveToFile(DisplayPath+'Context.dat');
- end;
- SetCaseList('I',MyTreeNode1.IndexOf(MyTreeNode2)+1,CaseID);
- if FileExists(DisplayPath+'CaseIndex.dat') then //把原經辦代號取出來再寫入新件裡
- begin
- S.LoadFromFile(DisplayPath+'CaseIndex.dat');
- end;
- DisplayPath := '';
-
- ClearCaseIndex;
- WriteCaseIndex(NewPath);
- finally
- S.Free;
- end;
- LoadImgFile;
- Showmessage(_Msg('分案完成'));
-end;
-
-procedure TCB_IMGPSScanX.PM402Click(Sender: TObject);
-var
- i : Integer;
-begin
- for i := 0 to PageLV.Items.Count - 1 do
- begin
- PageLV.Items.Item[i].Selected := True;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PM403Click(Sender: TObject);
-var
- i : Integer;
-begin
- for i := 0 to PageLV.Items.Count - 1 do
- begin
- PageLV.Items.Item[i].Selected := False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PM404Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- FormID,FormName : String;
- PreNode2Name : String;
-begin
- PreNode2Name := '';
- if TreeView1.Selected.Parent = MyTreeNode1 then
- PreNode2Name:= GetNode2Name(MyTreeNode2);
- ShowText := _Msg('文件歸類中,請稍候');
- DataLoading(True,True);
- DocListForm := TDocListForm.Create(self);
- try
- InitialLanguage(PatchDlg); //載入多國語言
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- if (FormID <> NowFormCode) and FormIDExists(FormID,True,0) then
- begin
- DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := FormID;
- SubItems.Add(FormName);
- end;
- end;
- end;
-
- if DocListForm.ShowModal = mrOk then
- begin
- FormID := DocListForm.DocLV.Selected.Caption;
- if (TreeView1.Selected.Level=1) then
- begin
- PageReplaceFormID(DisplayPath,'ALL',FormID);
- end
- Else if (TreeView1.Selected.Level=2) and (NowFormCode = '') then
- PageReplaceFormID(DisplayPath,'',FormID)
- Else
- begin
- PageReplaceFormID(DisplayPath,NowFormCode,FormID);
- end;
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
- if PreNode2Name <> '' then // 回到原本點選的文件節點上
- begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i];
- Break;
- end;
- end;
- end;
- TreeView1click(self);
- end;
- finally
- DocListForm.Free;
- DataLoading(False,False);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM601Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- FormID,FormName,DocNo,DocDir : String;
- PreNode2Name : String;
- iFormID : String;
- iISBName : String;
- iISB : TImageScrollBox;
- GoAtt : Boolean;
- AttLv : Integer;
- ST1 :TStringList;
-begin
- PreNode2Name := '';
- ST1:=TStringList.Create;
- if TreeView1.Selected.Parent = MyTreeNode1 then
- PreNode2Name:= GetNode2Name(MyTreeNode2);
- ShowText := _Msg('文件歸類中,請稍候');
-LogFile1.LogToFile(logTimeString+'縮圖 歸類開始');
- DataLoading(True,True);
- GoAtt := False;
- if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
- begin
- AttLv := TreeView1.Selected.Level;
- GoAtt := True;
- end;
- DocListForm := TDocListForm.Create(self);
- try
- InitialLanguage(DocListForm); //載入多國語言
- //InitialLanguage(PatchDlg); //載入多國語言
- DocListForm.CheckBox1.Visible:=False;
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
- if not FormIDAppear(FormID) then Continue; //20170816 先秀全部
-
- //Showmessage(FORM_INF_List.Text);
- //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
- if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
- begin
- DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := FormID;
- SubItems.Add(FormName);
- end;
- end;
- end;
- if DocListForm.ShowModal = mrOk then
- begin
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- OldName := ExtractFileName(iISB.FileName);
- Ext := ExtractFileExt(OldName);
-
- if DocListForm.CheckBox1.Checked then
- begin
- FormID := DocListForm.Edit1.Text;
- DocNo := GetNewCustomDocNo(DisplayPath,FormID);
- end
- else
- begin
- FormID := DocListForm.DocLV.Selected.Caption;
- DocNo := FormCode2DocNo(FormID);
- end;
-
-
- if DocNoDir2DocNo(Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseno)) = DocNo then
- DocDir := Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseNo)
- Else
- DocDir := FindLastestDocDir(NowCaseno,DocNo);
-
-//ShowMessage('DocNoNeedDiv(DocNo)='+BoolToStr(DocNoNeedDiv(DocNo),true));
-//ShowMessage('DocDir='+DocDir);
-
- if DocNoNeedDiv(DocNo) then //要分份數
- begin
- if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(NowCaseno,DocDir)>0)) or (DocDir = '') then
- begin
- DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
- end
- else
- begin //20171016 真對補件影響 所加的判斷
- ST1.Clear;
- if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');
- if (ST1.Count > 0) and ISExistImg(ImageSavePath + NowCaseno+'\'+DocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
- begin
- DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
- end;
- end;
- end;
- end
- Else //不分份數
- begin
- if DocNo <> '' then
- DocDir := DocNo
- else //Attach 附件
- DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
- end;
- if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then
- SetDocNoList('A',-1,NowCaseno,DocDir,'1');
-
- {if DocDir = '' then
- begin
- DocDir := DocNo;
- if DocNoNeedDiv(DocNo) then
- DocDir:=DocNo2DocNoDir(ImageSavePath+NowCaseno+'\',DocNo);
- SetDocNoList('A',-1,NowCaseno,DocDir);
- end; }
-LogFile1.LogToFile(logTimeString+'縮圖 FormID='+FormID);
- if Not DirectoryExists(ImageSavePath+NowCaseno+'\'+DocDir) then
- Mkdir(ImageSavePath+NowCaseno+'\'+DocDir);
- ContextList.Clear;
- if FileExists(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat') then
- ContextList.LoadFromFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');
- NewName := Add_Zoo(ContextList.Count+1,3)+'_'+FormID+Ext;
- CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
- {ContextList.Add(NewName);
- ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }
- SetContextList('A',-1,NowCaseNo,DocDir,NewName);
- DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
- //RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
- //ReNameContext(iISB.FileName,OldName,NewName);
- end;
- end;
-//ShowMessage('KKKK');
- ReSortFileName(ExtractFilePath(iISB.FileName));
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-
- if GoAtt then
- begin
- GotoAttach(AttLv);
- end;
- TreeView1click(self);
-
- end;
- finally
- DataLoading(False,False);
- DocListForm.Free;
- ST1.Free;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM602Click(Sender: TObject);
-var
- FileList:TStringlist;
- SavePath : String;
- DocDir : String;
- CustomDocName : String;
- CustomDocNo : String;
- i : Integer;
- OldName,NewName,Ext : String;
- FormID,FormName,DocNo : String;
- PreNode2Name : String;
- iFormID : String;
- iISBName : String;
- iISB : TImageScrollBox;
- GoAtt : Boolean;
- AttLv : Integer;
-begin
- GoAtt := False;
- if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
- begin
- AttLv := TreeView1.Selected.Level;
- GoAtt := True;
- end;
-
- if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
- begin
- if FindCustomDocName(DisplayPath,CustomDocName) then
- begin
- Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[CustomDocName]));
- Exit;
- end;
- CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
- end;
- if CustomDocNo = '' then Exit;
- DocDir := CustomDocNo;
-LogFile1.LogToFile(logTimeString+'縮圖 歸類自訂文件 DocDir='+DocDir);
- SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
- Str2Dir(SavePath);
- SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
- FileList := TStringlist.Create;
- try
- FileList.Clear;
- if FileExists(SavePath+'Context.dat') then
- FileList.LoadFromFile(SavePath+'Context.dat');
-
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- OldName := ExtractFileName(iISB.FileName);
- Ext := ExtractFileExt(OldName);
- NewName := Add_Zoo(FileList.Count+1,3)+'_'+GetCustomFormID(ImageSavePath+NowCaseNo+'\',CustomDocNo)+ext;
-
- //Showmessage(iISB.FileName+#13+ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
- CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
- SetContextList('A',-1,NowCaseno,DocDir,NewName);
- FileList.Add(NewName);
- {FileList.Add(NewName);
- FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}
- DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
- end;
- end;
- finally
- FileList.Free;
- end;
- ReSortFileName(ExtractFilePath(iISB.FileName));
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-
- if GoAtt then
- begin
- GotoAttach(AttLv);
- end;
- TreeView1click(self);
- MyTreeNode1.Expand(True);
-end;
-
-procedure TCB_IMGPSScanX.PM604Click(Sender: TObject);
-var
- i : Integer;
- iISBName : String;
- iISB : TImageScrollBox;
-begin
- //Showmessage(inttostr(ComponentCount));
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- //Showmessage(Components[i].Name);
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- DeskewImg(iISB.Graphic);
- iISB.Redraw(True);
- iISB.SaveToFile(iISB.FileName);
- DisplayISB.LoadFromFile(DisplayISB.FileName,1);
- end;
- end;
- //TreeView1Click(nil);
-end;
-
-procedure TCB_IMGPSScanX.PM605Click(Sender: TObject);
-var
- i : Integer;
- iISBName,OldName : String;
- iISB : TImageScrollBox;
-begin
- if MessageDlg(_Msg('是否確定刪除??'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
-
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- //Showmessage(Components[i].Name);
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
-//ShowMessage('iISB.FileName='+iISB.FileName);
-//ShowMessage(ExtractFilePath(iISB.FileName)+','+ExtractFileName(iISB.FileName)+','+NowCaseNo);
-// if (FMode = 'ESCAN') and (FModeName<>'異動件') then
-// begin
-// if ISExistImg(iISB.FileName) then
-// begin
-// ShowMessage(_Msg('此圖為非當次掃瞄，不可刪除'));
-// Exit;
-// end;
-// end;
-LogFile1.LogToFile(logTimeString+'縮圖刪除 iISB.FileName='+iISB.FileName);
- DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
- end;
- end;
-//ShowMessage('iISB.FileName='+iISB.FileName);
- ReSortFileName(ExtractFilePath(iISB.FileName));
- DrawDocItem2(MytreeNode1,NowCaseno);
- MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- NewTreeNodeRefresh;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- TreeView1click(self);
-end;
-
-procedure TCB_IMGPSScanX.N1Click(Sender: TObject);
-var
- mp:string;
-begin
- mp := InputBox(_Msg('移動頁數'),_Msg('請輸入移入頁碼'),'');
- if (mp <> '') then
- begin
- MoveImage(DisplayPath+NowDocDir+'\',strtoint(mp));
- end;
-end;
-
-procedure TCB_IMGPSScanX.N51Click(Sender: TObject);
-begin
- VMode := 4;
- GoViewMode;
- ScrollBar1Change(Self);
-end;
-
-procedure TCB_IMGPSScanX.NewScanBtnClick(Sender: TObject);
-begin
- IF not InitialOk Then
- begin
- Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
-LogFile1.LogToFile(logTimeString+'掃瞄開始');
- if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'DSCAN') then
- begin
- if NewTreeNode.Count > 0 then
- begin
- TreeView1.Selected := NewTreeNode.Item[0];
- TreeView1click(nil);
- FirstDocDir := '';
- NowGuideFormID := '';
- NowDivPageFormID :='';
- AddScanBtnclick(nil);
- end;
- end
- Else
- begin
- TreeView1.Selected := NewTreeNode;
- NewTreeNode.Expand(False);
- TreeView1Click(self);
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- ScanMode := smNew;
- ScanInfo.ImageCount := 0;
- ScanPath := '';
- ScanCaseno := '';
- NowGuideFormID := '';
- NowDivPageFormID :='';
- ClearView(1);
- ContextList.Clear;
- Try
- StatrTwainScan;
-LogFile1.LogToFile(logTimeString+'掃瞄結束');
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- LoadImgFile;
- end;
-end;
-
-procedure TCB_IMGPSScanX.NextPageBtnClick(Sender: TObject);
-var
- page : Integer;
-begin
- {page := ScrollBar1.Position;
- Case Vmode of
- 0 : Inc(page);
- 1 : Page := Page + 2;
- 2 : Page := Page + 4;
- 3 : Page := Page + 6;
- 4 : Page := Page + 8;
- end;
- IF page <= ScrollBar1.Max Then
- begin
- ScrollBar1.Position := page;
- end;}
- if selectISB = nil then Exit;
- NextPage(SelectPage);
- if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
- ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
-
-end;
-
-procedure TCB_IMGPSScanX.OptionBtnClick(Sender: TObject);
-var
- PatchDlg : TPatchDlg;
- i : Integer;
-begin
- IF not InitialOk Then
- begin
- Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
- ShowText := _Msg('掃瞄參數設定中,請稍候');
- DataLoading(True,True);
-
- PatchDlg := TPatchDlg.Create(self);
- try
- InitialLanguage(PatchDlg); //載入多國語言
- PatchDlg.BlankuseCB.Checked := DeviceDelete;
- if PatchDlg.BlankuseCB.Checked then
- PatchDlg.SpinEdit5.Enabled := True
- else
- PatchDlg.SpinEdit5.Enabled := False;
- PatchDlg.SpinEdit5.Value := DeviceDeleteSize;
- For i := 0 to PatchDlg.ComboBox1.Items.Count -1 do
- begin
- If inttostr(ScanDpi) = PatchDlg.ComboBox1.Items.Strings[i] Then
- PatchDlg.ComboBox1.ItemIndex := i;
- end;
- PatchDlg.DuplexCB.Checked := ScanDuplex;
- PatchDlg.ReverseCB.Checked := ScannerReverse;
- PatchDlg.BorderCB.Checked := BoardClear;
- PatchDlg.DeskewCB.Checked := ScanDeskew;
- PatchDlg.ImgSetUseCB.Checked := ScanImgSetUse;
- PatchDlg.SpinEdit1.Value := ScanBright;
- PatchDlg.SpinEdit2.Value := ScanContrast;
- case ScanRotate of
- 0 : PatchDlg.ScanRotateRG.ItemIndex := 0;
- 270 : PatchDlg.ScanRotateRG.ItemIndex := 1;
- 180 : PatchDlg.ScanRotateRG.ItemIndex := 2;
- 90 : PatchDlg.ScanRotateRG.ItemIndex := 3;
- end;
- Case ScanImgShowMode of
- 0 : PatchDlg.ScanShowRG.ItemIndex := 0;
- 1 : PatchDlg.ScanShowRG.ItemIndex := 1;
- 2 : PatchDlg.ScanShowRG.ItemIndex := 2;
- end;
- If PatchDlg.ShowModal = mrOk then
- begin
- DeviceDelete := PatchDlg.BlankuseCB.Checked;
- DeviceDeleteSize := PatchDlg.SpinEdit5.Value;
- ScanDpi := Strtoint(PatchDlg.ComboBox1.Text);
- ScannerReverse := PatchDlg.ReverseCB.Checked;
- BoardClear := PatchDlg.BorderCB.Checked;
- ScanDeskew := PatchDlg.DeskewCB.Checked;
- ScanDuplex := PatchDlg.DuplexCB.Checked;
- ScanImgSetUse := PatchDlg.ImgSetUseCB.Checked;
- ScanBright := PatchDlg.SpinEdit1.Value;
- ScanContrast := PatchDlg.SpinEdit2.Value;
- Case PatchDlg.ScanRotateRG.ItemIndex of
- 0:ScanRotate := 0;
- 1:ScanRotate := 270;
- 2:ScanRotate := 180;
- 3:ScanRotate := 90;
- end;
- Case PatchDlg.ScanShowRG.ItemIndex of
- 0:ScanImgShowMode := 0;
- 1:ScanImgShowMode := 1;
- 2:ScanImgShowMode := 2;
- end;
- R_W_ScanIni('W');
- ScanDuplexCB.Checked := ScanDuplex;
- end;
- finally
- PatchDlg.Free;
- DataLoading(False,False);
- end;
-end;
-
-procedure TCB_IMGPSScanX.PageLVClick(Sender: TObject);
-begin
- IF PageLV.Selected = nil Then Exit;
- PageLVclear := False;
- ScrollBar1.Position := PageLV.Selected.Index+1;
- PageLVclear := True;
-end;
-
-procedure TCB_IMGPSScanX.PageLVKeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- IF PageLV.Selected = nil Then Exit;
- ScrollBar1.Position := PageLV.Selected.Index+1;
-end;
-
-procedure TCB_IMGPSScanX.PageLVMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- IF Button = TMouseButton(MbRight) Then
- begin
- If PageLV.GetItemAt(X,Y) = nil then Exit;
- PageLV.Selected := PageLV.GetItemAt(X,Y);
- PageLVClick(self);
- PageLV.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
- end;
-end;
-
-procedure TCB_IMGPSScanX.Panel11DblClick(Sender: TObject);
-begin
- // Button3.Visible := not Button3.Visible;
- //Button4.Visible := not Button4.Visible;
- //self.FCustDocYN := 'N';
-end;
-
-procedure TCB_IMGPSScanX.Panel1DblClick(Sender: TObject);
-begin
- Button1.Visible := not Button1.Visible;
- Button2.Visible := not Button2.Visible;
-end;
-
-procedure TCB_IMGPSScanX.Panel9Resize(Sender: TObject);
-begin
- GoViewMode;
-end;
-
-procedure TCB_IMGPSScanX.PM101Click(Sender: TObject);
-var
- P,v,v1,v2,ln,i : Integer;
- iDocDir,iDocNo : String;
-begin
-LogFile1.LogToFile(logTimeString+'Tree 按下刪除');
- if TreeView1.Selected = NewTreeNode then //全刪 //新掃描件
- begin
-LogFile1.LogToFile(logTimeString+'Tree 全部刪除');
- If Messagedlg(_Msg('是否刪除所有案件?'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- clearView(1);
- Application.ProcessMessages;
- _DelTree(ImageSavePath);
- if (FMode = 'ESCAN') then
- begin
- MkDir(ImageSavePath+FCaseID);
- CreateEmptyCase(ImageSavePath,FCaseID);
- end;
- LoadImgFile;
- Showmessage(_Msg('刪除完成'));
- end
- Else if TreeView1.Selected = MyTreeNode1 then //案件編號
- begin
-LogFile1.LogToFile(logTimeString+'Tree 案件編號刪除 NowCaseno='+NowCaseno);
- If Messagedlg(Format(_Msg('編號(%s)是否刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- clearView(1);
- Application.ProcessMessages;
- if (FMode = 'ESCAN') then
- begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- MyTreenode2 := MyTreeNode1.Item[i];
- v := Posend('{',MyTreenode2.Text);
- v1 := Posend('}',MyTreenode2.Text);
- v2 := posend('-',MyTreenode2.Text);
- ln := length(MyTreenode2.Text);
- iDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
- iDocNo := DocNoDir2DocNo(iDocDir);
- _DelTree(ImageSavePath+NowCaseno+'\'+iDocDir);
- SetUseCase('D',ImageSavePath+NowCaseno+'\',iDocDir,'','');
- SetDocNoList('D',-1,NowCaseNo,iDocDir,'');
- if (Copy(iDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
- DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',iDocDir);
-
- end
- end
- Else
- begin
- _DelTree(DisplayPath);
- SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
- end;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-
- if (FMode = 'ESCAN') then
- begin
- if not DirectoryExists(ImageSavePath+FCaseID) then
- begin
- MkDir(ImageSavePath+FCaseID);
- CreateEmptyCase(ImageSavePath,FCaseID);
- end;
- end;
- LoadImgFile;
- end
- Else if TreeView1.Selected = MyTreeNode2 then //文件層
- begin
- If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[DocNo2DocName(NowCaseno,NowDocNo)]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- ClearView(1);
- Application.ProcessMessages;
-//ShowMessage(NowDocDir);
-LogFile1.LogToFile(logTimeString+'Tree 文件層號刪除 NowDocDir='+NowDocDir);
- if (Length(NowDocDir)=8) or (NowDocDir=AttName) then
- begin
-//ShowMessage('DeleteDocNoFileForESCAN');
- DeleteDocNoFileForESCAN(ImageSavePath+NowCaseno+'\'+NowDocDir,NowDocDir);
- end
- else
- begin
- _DelTree(ImageSavePath+NowCaseno+'\'+NowDocDir);
- SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
- end;
- SetUseCase('D',ImageSavePath+NowCaseno+'\',NowDocDir,'','');
-
- if (Copy(NowDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
- DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',NowDocDir);
-
- DrawDocItem2(MytreeNode1,NowCaseno);
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- NewTreeNodeRefresh;
-
- end
- Else if TreeView1.Selected = MyTreeNode3 then //FormID層
- begin
- If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[NowFormName]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
-LogFile1.LogToFile(logTimeString+'Tree FormID層號刪除 NowFormCode='+NowFormCode);
- DeleteFormCodeFile(NowCaseNo,NowDocDir,NowFormCode);
- SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
- DrawDocItem2(MytreeNode1,NowCaseno);
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- NewTreeNodeRefresh;
-
- end;
-end;
-
-function TCB_IMGPSScanX.DocNoIsExistImg(DocNopath:String):boolean;
-var
- i:integer;
- ST:TStringList;
-begin
- Result:=False;
- ST:=TStringList.Create;
- if FileExists(DocNopath+'\Context.dat') then /////20190319 Hong 當有空的Docno目錄時會掛掉,增加這行
- ST.loadFromfile(DocNopath+'\Context.dat');
- for I := 0 to ST.Count - 1 do
- begin
- if ISExistImg(DocNopath+ST.Strings[i]) then
- begin
-
- Result:=False;
- Exit;
- Break;
- end;
- end;
- Result:=True;
-
-
-end;
-
-procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);
-var
- i:integer;
- ST:TStringList;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.PM102Click(Sender: TObject);
-var
- NewCaseID,ShowNewCaseID,ShowNowCaseID : String;
- i,P,v : Integer;
- InputOk : Boolean;
-begin
- VMode := 0;
- GoViewMode;
- ISB1.ZoomMode := zmFitWidth;
-
- NewCaseID := InputBox(_Msg('修改案件編號'),_Msg('新案件編號'),'');
- ShowNewCaseID := NewCaseID;
- ShowNowCaseID := NowCaseno;
-
- if NewCaseID = '' then Exit;
-
- IF Length(NewCaseID)<>CaseIDLength Then
- begin
- Showmessage(_Msg('輸入格式錯誤'));
- Exit;
- end;
-
- if DirectoryExists(ImageSavePath+NewCaseID) then
- begin
- Showmessage(NewCaseID+_Msg('己存在,無法修改'));
- Exit;
- end;
-
- if Messagedlg(Format(_Msg('是否將%s改為%s'),[ShowNowCaseID,ShowNewCaseID]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel then
- Exit;
- ClearView(1);
- RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);
- SetCaseList('E',NewTreeNode.IndexOf(MyTreeNode1),NewCaseID);
-
- //P := ContextList.Count;
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NewCaseID,GetCasePage(ImageSavePath,NewCaseID)]);
- //DrawDocItem(MyTreeNode1,FORM_INF_List,NewCaseID);
- DrawDocItem2(MytreeNode1,NewCaseID);
- Showmessage(_Msg('修改完成'));
-end;
-
-procedure TCB_IMGPSScanX.PM103Click(Sender: TObject);
-begin
- if TreeView1.Selected = nil then Exit;
-
- {if Treeview1.Selected = NewTreeNode then
- begin
- ShowMessage('AAAAA');
- end;
- if Treeview1.Selected = MyTreeNode1 then
- begin
- ShowMessage('BBBBB');
- end;
-
- if Treeview1.Selected = MyTreeNode2 then
- begin
- ShowMessage('CCCCC');
- end;
-
- if Treeview1.Selected = MyTreeNode3 then
- begin
- ShowMessage('DDDDD');
- end;
- }
- if (Treeview1.Selected = NewTreeNode) {or (Treeview1.Selected = MyTreeNode1)} then
- begin
-//ShowMessage('NewScanBtnClick');
-LogFile1.LogToFile(logTimeString+'Tree NewScanBtnClick');
- NewScanBtnClick(self)
- end
- Else
- begin
-//ShowMessage('AddScanBtnclick');
-LogFile1.LogToFile(logTimeString+'Tree AddScanBtnclick');
- AddScanBtnclick(self);
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.PM104Click(Sender: TObject);
-Var
- i, n, m, ii, P, v, v1, page, imageCount: Integer;
- FName: String;
- CaseID, DocNo, FormID: String;
- DocDir: String;
- SavePath, SaveFilename: String;
- ISB: TImageScrollBox;
- FileRec: TSearchrec;
-
- iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic;
- iRect : TRect;
- JpgGr : TJpegGraphic;
- SaveStream : TFileStream;
- SaveStreamA:TFileStream;
- SaveStreamB:TFileStream;
- cooom:integer;
-Begin
- OpenDialog1.Filter := 'Image files|*.TIF;*.JPG;*.PNG';
- If OpenDialog1.Execute Then
- Begin
- ISB := TImageScrollBox.Create(self);
-try
- ShowText := _Msg('檔案加入中,請稍候');
-LogFile1.LogToFile(logTimeString+'檔案加入中開始');
- DataLoading(True, True);
- If TreeView1.Selected = Nil Then
- Exit;
- FName := OpenDialog1.FileName;
-
- FindFirst(FName, faAnyfile, FileRec);
-
- If FFileSizeLimit = 0 Then
- Begin
- FFileSizeLimit := 5 * 1024;
- End;
-//FFileSizeLimit:=20*5*1024;
-//ShowMessage(IntToStr(FileRec.Size)+','+IntToStr(FFileSizeLimit * 1024));
- If FileRec.Size > FFileSizeLimit * 1024 Then // 檢查檔案大小
- Begin
- ShowMessage(Format(_Msg('目前檔案大小為 %.3f MB,已超過單一檔案匯入限制%1.f MB'),[FileRec.Size / (1024*1024),FFileSizeLimit/1024]));
- {ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) +
- '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB');}
- FindClose(FileRec);
- DataLoading(false, false);
- Exit;
- End;
- //MessageDlg()
- //cooom:=StrToInt(InputBox('輸入百分比','輸入百分比',''));
- cooom:=FJpgCompression;//20171211彩色tif採jpg壓縮的比例
-
- FindClose(FileRec);
- CaseID := NowCaseno;
- imageCount := 0;
- P := ISB.ImageCountFromFile(OpenDialog1.FileName);
- For i := 1 To P Do
- Begin
- ShowText := Format(_Msg('檔案加入中,請稍候(%d/%d)'),[i,p]);
- //ShowText := _Msg('檔案加入中,請稍候')+'(' + inttostr(i) + '/' + inttostr(P) + ')';
- DataLoading(True, True);
- ISB.LoadFromFile(FName, i);
- DeskewImg(ISB.Graphic);
-
-
- ISB_BW.Graphic.Assign(ISB.Graphic); //20180104
- If ISB.Graphic.ImageFormat <> ifBlackWhite Then //20180104
- begin
- ConvertToBW(ISB_BW.Graphic);
- end;
- ///ISB_BW.SaveToFile('KKKKKKKK.tif');
-
- iGraphic_First := TTiffGraphic.Create;
- iGraphic_sec := TTiffGraphic.Create;
-
-
- //ShowMessage(IntToStr(iGraphic_First.Palette.palNumEntries)); //彩色 會為0 黑白 為2
-
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //判斷A3 有用FormID 所以要先辨條碼
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
- Begin
- Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]);
- //MpsGetBarcode(iGraphic_First, MpsBarcodeinf);
- Break;
- End;
- End;
-
- iGraphic_First.Assign(ISB.Graphic);
- //有必要的話先把影像轉正 再開始切圖
- If CheckNeedCrop(iGraphic_First) Then
- Begin
- // 先取右邊的影像
- iRect.Left := ISB.Graphic.Width Div 2;
- iRect.Right := ISB.Graphic.Width;
- iRect.Top := 0;
- iRect.Bottom := ISB.Graphic.Height;
- CropImg(iGraphic_First, iRect);
-
- iGraphic_sec.Assign(ISB.Graphic);
- // 再取左邊的影像
- iRect.Left := 0;
- iRect.Right := ISB.Graphic.Width Div 2;
- iRect.Top := 0;
- iRect.Bottom := ISB.Graphic.Height;
- CropImg(iGraphic_sec, iRect);
- End;
- ISB.Graphic.Clear; //20220711 Hong 覺得ISB後面沒有到了,先清掉減少記憶體使用
- iGraphic := iGraphic_First;
-
- While Not iGraphic.IsEmpty Do
- Begin
- If (TreeView1.Selected = NewTreeNode) Or
- (TreeView1.Selected = MyTreeNode1) Then
- Begin
- SaveFilename := '';
- ISB_BW.Graphic.Assign(iGraphic); //20180104
- If iGraphic.ImageFormat <> ifBlackWhite Then //20180104
- begin
- ConvertToBW(ISB_BW.Graphic);
- end;
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
-//ShowMessage(IntToStr(MpsBarcodeinf.Count));
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[n]);
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
- Break;
- End;
- End;
-//ShowMessage('XXX '+IntToStr(MpsBarcodeinf.Count));
- FormID := BarCode2FormID;
-//ShowMessage('FormID='+FormID);
- // 取出FormID
- SaveFilename := FormID;
- If (TreeView1.Selected = NewTreeNode) Then
- Begin
- If FindDivFormCode(FormID) Then // 只找分案頁上的案件條碼
- Begin
- imageCount := 0;
- ClearView(1);
- ContextList.Clear;
- CaseID := BarCode2CaseID;
- If DirectoryExists(ImageSavePath + CaseID + '\') Then
- Begin
- _DelTree(ImageSavePath + CaseID + '\');
- SetCaseList('D', -1, CaseID);
- End;
- End;
- If CaseID = '' Then
- Begin
- CaseID := GetNoNameCase(ImageSavePath);
- ContextList.Clear;
- End;
- End;
- SavePath := ImageSavePath + CaseID + '\';
- Str2Dir(SavePath);
-
- DocNo := FormCode2DocNo(FormID);
- DocDir := FindLastestDocDir(CaseID, DocNo);
- if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then
- begin
- DocDir := FindLastestDocDirForPage(CaseID, DocNo,FormID);
-//ShowMessage('DocDir='+DocDir);
- end;
-
- If DocNoNeedDiv(DocNo) Then // 要分份數
- Begin
- If ((FormCode2Page(FormID) = '01') And
- (GetDocDir_Page(CaseID, DocDir) > 0)) Or (DocDir = '') Then
- begin
- DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
- end;
- End
- Else // 不分份數
- Begin
- If DocNo <> '' Then
- DocDir := DocNo
- Else // Attach 附件
- DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
- End;
-
- If (Not DirectoryExists(ImageSavePath + CaseID + '\' + DocDir + '\'))
- And (DocDir <> AttName) Then
- SetDocNoList('A', -1, CaseID, DocDir, '1');
- SavePath := ImageSavePath + CaseID + '\' + DocDir + '\';
- Str2Dir(SavePath);
- ContextList.Clear;
- If FileExists(SavePath + 'Context.dat') Then
- ContextList.LoadFromFile(SavePath + 'Context.dat');
-
- WriteCaseIndex(ImageSavePath + CaseID + '\');
- // 寫入案件索引
- If SaveFilename = '' Then // 附件
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext
- Else
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
- SaveFilename + ext;
-
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[n]);
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
- Break;
- End;
- End;
-//ShowMessage(IntToStr(iGraphic.Palette.palNumEntries));
- if iGraphic.ImageFormat = ifBlackWhite then //20200806 出現無法匯入,是因color256無法壓JPEG,待報會後再開啟
- begin
- SaveFilename := changefileext(SaveFilename,'.tif'); //20240320 Hong 調整黑白存tif
- iGraphic.Compression:=tcGroup4;
- end
- else if iGraphic.ImageFormat= ifColor256 then
- begin
- SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整Color256存jpg
- ConverttoGray(iGraphic);
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end
- else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then
- begin
- SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整彩色灰階存jpg
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end
- else
- begin
- iGraphic.Compression:=tcLZW;
- end;
-
- {if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2 灰階256 //20200806拿掉
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end;}
-
- If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- SaveStream := TFileStream.Create(SavePath + SaveFilename, fmOpenReadWrite)
- Else
- SaveStream := TFileStream.Create(SavePath + SaveFilename, fmCreate);
- Try
- SaveStream.Seek(0, soFromBeginning);
- iGraphic.AppendToStream(SaveStream);
- Finally
- SaveStream.Free;
- End;
- End
- Else If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- DeleteFile(SavePath + SaveFilename);
- // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- JpgGr := TJpegGraphic.Create;
- Try
- JpgGr.Assign(iGraphic);
- JpgGr.SaveQuality := 30;
- // JpgGr.AppendToStream(SaveStream);
- JpgGr.SaveToFile(SavePath + SaveFilename);
- Finally
- JpgGr.Free;
- // SaveStream.Free;
- End;
- End;
-
- SetContextList('A', -1, CaseID, DocDir, SaveFilename);
- If (TreeView1.Selected = NewTreeNode) Then
- Begin
- If imageCount = 0 Then
- Begin
- SetCaseList('A', -1, CaseID);
- MyTreeNode1 := TreeView1.Items.AddChild(NewTreeNode, CaseID);
- MyTreeNode1.ImageIndex := 2;
- MyTreeNode1.SelectedIndex := 2;
- Application.ProcessMessages;
- End;
- End;
- inc(imageCount);
- // DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID);
- // DrawDocItem(MyTreeNode1,FORM_INF_List,CaseID);
- End
- Else If TreeView1.Selected = MyTreeNode3 Then
- Begin
- SavePath := ImageSavePath + CaseID + '\' + NowDocDir + '\';
- ContextList.Clear;
- If FileExists(ImageSavePath + CaseID + '\' + NowDocDir +
- '\Context.dat') Then
- ContextList.LoadFromFile(ImageSavePath + CaseID + '\' + NowDocDir +
- '\Context.dat');
- If NowFormCode <> '' Then
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
- NowFormCode + ext
- Else
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext;
-
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If MpsBarcodeinf.r180[n] <> 0 Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[n]);
- MpsGetBarcode(iGraphic, MpsBarcodeinf);
- Break;
- End;
- End;
-
- if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end;
-
- If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- SaveStream := TFileStream.Create(SavePath + SaveFilename,
- fmOpenReadWrite)
- Else
- SaveStream := TFileStream.Create(SavePath + SaveFilename,
- fmCreate);
- Try
- SaveStream.Seek(0, soFromBeginning);
- iGraphic.AppendToStream(SaveStream);
- Finally
- SaveStream.Free;
- End;
- End
-
- Else
- Begin
- If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- DeleteFile(SavePath + SaveFilename);
- // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- JpgGr := TJpegGraphic.Create;
- Try
- JpgGr.Assign(iGraphic);
- JpgGr.SaveQuality := cooom;
- // JpgGr.AppendToStream(SaveStream);
- JpgGr.SaveToFile(SavePath + SaveFilename);
- Finally
- JpgGr.Free;
- // SaveStream.Free;
- End;
- End;
-
- End;
- // ISB.SaveToFile(SavePath+SaveFilename);
- ContextList.Add(SaveFilename);
- ContextList.SaveToFile(SavePath + 'Context.dat');
- End;
-
- if iGraphic = iGraphic_First then
- iGraphic := iGraphic_Sec
- else
- iGraphic.Assign(nil);
-
- End //While 結束
-
- End;
- ClearErrini(CaseID, MyTreeNode1);
- // 清掉檢核記錄
- If (TreeView1.Selected = MyTreeNode1) Or
- (TreeView1.Selected = NewTreeNode) Then
- Begin
- LoadImgFile;
- End
- Else
- Begin
- DrawDocItem2(MyTreeNode1, CaseID);
- // 長出文件名稱的樹並傳回是否有申請書的影像
- page := GetCasePage(ImageSavePath, CaseID);
- // ShowMessage('page='+IntToStr(page));
- MyTreeNode1.Text := Format(_Msg('%s-%d頁'), [CaseID, page]);
- End;
- // ShowMessage('AAAA');
- NewTreeNodeRefresh;
- Application.ProcessMessages;
- DataLoading(false, false);
-
-
-finally
-ISB.Free;
-iGraphic_First.Free;
-iGraphic_sec.Free;
-end;
-
-
- End;
-End;
-
-
-
-procedure TCB_IMGPSScanX.PM106Click(Sender: TObject);
-var
- i,n,x,v,v1 : Integer;
- CopyFormID,Copy2Caseno,CopyFileName : String;
- S : TStringlist;
-begin
- ShowText := _Msg('複製文件中,請稍候');
- DataLoading(True,True);
- DocCopyForm := TDocCopyForm.Create(Self);
- S := TStringlist.Create;
- try
- InitialLanguage(DocCopyForm); //載入多國語言
- DocCopyForm.CopyFromGB.Caption := NowCaseno+DocCopyForm.CopyFromGB.Caption;
- IF NewTreenode.Count = 1 Then
- begin
- Showmessage(_Msg('沒有其他可複製的文件'));
- Exit;
- end;
- For i := 0 to MyTreeNode1.Count -1 do
- begin
- v := Pos('-',MyTreeNode1.Item[i].Text);
- v1 := pos('{',MyTreeNode1.Item[i].Text);
- if V1 > 0 then
- begin
- CopyFormID := Copy(MyTreeNode1.Item[i].Text,1,v-1);
- DocCopyForm.CheckListBox1.Items.Add(CopyFormID);
- end;
- end;
- For i := 0 to NewTreenode.Count -1 do
- begin
- v := Posend('-',NewTreeNode.Item[i].Text);
- Copy2Caseno := Copy(NewTreeNode.Item[i].Text,1,v-1);
- IF Copy2Caseno <> NowCaseno Then
- begin
- DocCopyForm.CheckListBox2.Items.Add(Copy2Caseno);
- end;
- end;
-
- if DocCopyForm.ShowModal = mrok then
- begin
- If MessageDlg(_Msg('是否確定要將勾選的文件複製到勾選的編號裡?'),MtConfirmation,[Mbyes,mbcancel],0) = mrCancel Then
- Exit;
- ShowText := _Msg('複製中,請稍候');
- DataLoading(True,True);
- For i := 0 to DocCopyForm.CheckListBox2.Count -1 do
- begin
- IF DocCopyForm.CheckListBox2.Checked[i] Then
- begin
- S.Clear;
- Copy2Caseno := DocCopyForm.CheckListBox2.Items.Strings[i];
- ClearErrini(Copy2Caseno,MyTreeNode1); //清掉檢核記錄
- S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');
- For n := 0 to DocCopyForm.CheckListBox1.Count -1 do //文件
- begin
- If DocCopyForm.CheckListBox1.Checked[n] Then
- begin
- //v:= Posend('{',DocCopyForm.CheckContextList.Strings[n]);
- //v1 := Posend('}',DocCopyForm.CheckContextList.Strings[n]);
- //CopyFormID := Copy(DocCopyForm.CheckContextList.Strings[n],1,v-1);
- CopyFormID := DocCopyForm.CheckListBox1.Items.Strings[n];
- IF v = 0 Then
- CopyFormID := '';
- For x := 0 to ContextList.Count -1 do
- begin
- //Showmessage(CopyFormCode);
- //IF CopyFormID <> '' then //有文件代號
- // begin
- if FileName2FormCode(ContextList.Strings[x])=CopyFormID then
- begin
- //CopyFileName := Add_Zoo(S.Count+1,3)+ Copy(ContextList.Strings[x],4,length(ContextList.Strings[x])-3);
- CopyFileName := Add_Zoo(S.Count+1,3)+ FileName2NoQuene_Filename(ContextList.Strings[x]);
- CopyFile(PWideChar(DisplayPath+ContextList.Strings[x]),PWidechar(ImageSavePath + Copy2Caseno+'\'+CopyFileName),False);
- S.Add(CopyFileName);
- S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');
- end;
- // end
-
- end;
- end;
- end;
-
- end;
- end;
- DataLoading(False,False);
- Showmessage(_Msg('複製完成!!'));
- LoadImgFile;
- end;
- finally
- DocCopyForm.Free;
- DataLoading(False,False);
- S.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PM107Click(Sender: TObject);
-begin
- WNoteBtnClick(nil);
-end;
-
-procedure TCB_IMGPSScanX.PM108Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- NewFormID,NewFormName,CustomDocNo : String;
-begin
- DocListForm := TDocListForm.Create(self);
- try
-LogFile1.LogToFile(logTimeString+'Tree 歸類開始');
- InitialLanguage(DocListForm); //載入多國語言
- DocListForm.CheckBox1.Visible:=True;
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- NewFormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- NewFormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- if not FormIDAppear(NewFormID) then Continue; //20170816 先秀全部的
- if (NewFormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(NewFormID,False,i) then
- begin
- DocListForm.FormIDList.Add(NewFormID+'#@#'+NewFormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := NewFormID;
- SubItems.Add(GetSQLData(FORM_INF_List,'T1.FORM_DESC',i));
- end;
- end;
- end;
- if DocListForm.ShowModal = mrOk then
- begin
- if not (DocListForm.DocLV.Selected=nil) then
- NewFormID := DocListForm.DocLV.Selected.Caption;
- if DocListForm.CheckBox1.Checked then
- begin
- //歸類到自訂文件
- NewFormID:=DocListForm.Edit1.Text;
-
- if Trim(DocListForm.Edit1.Text)='' then
- begin
- Showmessage(_Msg('未輸入文件名稱'));
- Exit;
- end;
- if FindCustomDocName(DisplayPath,NewFormID) then
- begin
- Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[NewFormID]));
- Exit;
- end;
- if NowFormCode <> AttName then
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),NewFormID]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end
- Else
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end;
- CustomDocNo := GetNewCustomDocNo(DisplayPath,NewFormID);
-//ShowMessage('CustomDocNo='+CustomDocNo);
-LogFile1.LogToFile(logTimeString+'Tree 歸類到自訂文件 CustomDocNo='+CustomDocNo);
- ShowText := _Msg('歸類中,請稍侯');
- DataLoading(True,True);
- FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,CustomDocNo+'010101A');
- end
- else
- begin
- //歸類到既有文件
- if NowFormCode <> AttName then
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end
- Else
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end;
- ShowText := _Msg('歸類中,請稍侯');
- DataLoading(True,True);
-//ShowMessage('NowDocDir='+NowDocDir);
-LogFile1.LogToFile(logTimeString+'Tree 歸類到既有文件 NewFormID='+NewFormID);
- FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,NewFormID);
-
- end;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- DrawDocItem2(MytreeNode1,NowCaseno);
- DataLoading(False,False);
- TreeView1.Selected := MyTreeNode1;
- TreeView1Click(self);
- end;
-
- finally
- DocListForm.Free;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM109Click(Sender: TObject);
-var
- S : TStringlist;
- CaseID : String;
-begin
- //if TreeView1.Selected = nil then Exit;
- //if TreeView1.Selected = NewTreeNode then Exit;
- CaseID := NowCaseno;
- S := TStringlist.Create;
- try
- ClearView(1);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- If OMRCheckCase(CaseID) then //有成功
- begin
- S.Add('Y');
- S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
- end;
- //MyTreeNode2ReFresh(CaseID);
- LoadImgFile;
- TreeView1Click(nil);
- DataLoading(False,False);
- finally
- S.Free;
- end;
- Showmessage(_Msg('檢核完成'));
-end;
-
-procedure TCB_IMGPSScanX.PM110Click(Sender: TObject);
-var
- CustomDocName : String;
- CustomDocNo : String;
- DocDir : String;
- SavePath : String;
- ST1:TStringList;
-begin
- if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
- begin
- if CustomDocName <> '' then
- begin
- if FindCustomDocName(DisplayPath,CustomDocName) then
- begin
- Showmessage(Format('文件名稱:"%s"己存在',[CustomDocName]));
- Exit;
- end;
- ST1:=TStringList.Create;
- CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
- DocDir := CustomDocNo;
- SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
- Str2Dir(SavePath);
- SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
- DrawDocItem2(MytreeNode1,NowCaseno);
- MyTreeNode1.Expand(True);
- end;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM111Click(Sender: TObject);
-var
- oldCopies,NewCopies : Integer;
- copies : String;
-begin
- oldCopies := GetDocDirCopies(NowCaseno,NowDocDir);
- try
- NewCopies := Strtoint(inputBox(_Msg('修改份數'),_Msg('請輸入修改後的份數'),inttostr(oldCopies)));
- except
- Showmessage(_Msg('輸入錯誤'));
- Exit;
- end;
- if (NewCopies <= 0) and (NewCopies >= 10000) then
- begin
- Showmessage(_Msg('輸入範圍錯誤'));
- Exit;
- end;
-
- if (oldCopies <> NewCopies) and (NewCopies > 0) and (NewCopies < 10000) then
- begin
- if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg(_Msg('修改至1份後此文件將無法再進行份數修改,是否確定??'),mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then
- Exit;
-
- SetDocDirCopies(NowCaseno,NowDocDir,NewCopies);
- SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
- DrawDocItem2(MytreeNode1,NowCaseno);
- Showmessage(_Msg('修改完成'));
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM301Click(Sender: TObject);
-begin
- ScanColor := ifBlackWhite;
- ScanDpi := Def_ScanDpi;
- Ext := '.tif';
- PM301.Checked := True;
-end;
-
-procedure TCB_IMGPSScanX.PM302Click(Sender: TObject);
-begin
- ScanColor := ifGray256;
- Ext := '.jpg';
- ScanDpi := 200;
- //Ext := '.tif';
- PM302.Checked := True;
-end;
-
-procedure TCB_IMGPSScanX.PM303Click(Sender: TObject);
-begin
- ScanColor := ifTrueColor;
- Ext := '.jpg'; //20130326 yuu說理賠改存jpg
- ScanDpi := 200;
- //Ext := '.tif';
- PM303.Checked := True;
-end;
-
-procedure TCB_IMGPSScanX.PM501Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmFitWidth;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM502Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmFitHeight;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM503Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmFittoPage;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM504Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmOriginalSize;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM505Click(Sender: TObject);
-begin
- if DisplayISB.FileName = '' then Exit;
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- ScanMode := smReplace;
- ScanInfo.ImageCount := 0;
- ScanPath := DisplayPath;
- ScanCaseno := '';
- ScanSaveFilename := ExtractFileName(DisplayISB.FileName);
- Try
- StatrTwainScan;
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-end;
-
-procedure TCB_IMGPSScanX.PM507Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- FormID,FormName,DocNo : String;
- PreNode2Name : String;
- iFormID : String;
-begin
- PreNode2Name := '';
- if TreeView1.Selected.Parent = MyTreeNode1 then
- PreNode2Name:= GetNode2Name(MyTreeNode2);
- ShowText := _Msg('文件歸類中,請稍候');
- DataLoading(True,True);
- DocListForm := TDocListForm.Create(self);
- try
- InitialLanguage(PatchDlg); //載入多國語言
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
- //Showmessage(FORM_INF_List.Text);
- //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
- if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
- begin
- DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := FormID;
- SubItems.Add(FormName);
- end;
- end;
- end;
- if DocListForm.ShowModal = mrOk then
- begin
- OldName := ExtractFileName(DisplayISB.FileName);
- Ext := ExtractFileExt(OldName);
- //NewName := Copy(OldName,1,3)+'_'+TransRealFormID(DocListForm.DocLV.Selected.Caption)+Ext;
- NewName := Add_Zoo(FileName2ScanPage(OldName),3)+'_'+DocListForm.DocLV.Selected.Caption+Ext;
- RenameFile(DisplayPath+OldName,DisplayPath+NewName);
- ReNameContext(DisplayPath,OldName,NewName);
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
- DrawDocItem2(MytreeNode1,NowCaseno);
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- if PreNode2Name <> '' then // 回到原本點選的文件節點上
- begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i];
- Break;
- end;
- end;
- end;
- TreeView1click(self);
- //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
- end;
- finally
- DataLoading(False,False);
- DocListForm.Free;
- end;
-
-end;
-
-
-procedure TCB_IMGPSScanX.PM508Click(Sender: TObject);
-var
- P : Integer;
- inx:Integer;
-begin
- if DisplayISB.FileName = '' then Exit;
- if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'ISCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN')) then
- begin
- if Messagedlg(Format(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
- _DelTree(DisplayPath);
- SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
- LoadImgFile;
- end
- Else
- begin
- if Messagedlg(_Msg('是否確定刪除?'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
- inx := ContextList.IndexOf(ExtractFileName(DisplayISB.FileName));
- ContextList.Delete(inx);
- ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');
- Context_DocnoList.Delete(inx);
- Context_DocnoList.SaveToFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
- DeleteFile(DisplayISB.FileName);
- ReSortFileName(DisplayPath);
- ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');
- Context_DocnoList.LoadFromFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
- if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(ImageSavePath + NowCaseno+'\CustomDocNo.dat');
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
- DrawDocItem2(MytreeNode1,NowCaseno);
-
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- P := ContextList.Count;
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,p]);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- NewTreeNodeRefresh;
- TreeView1Click(self);
-
- end;
- //Showmessage(_Msg('刪除完成')); //20101101 User要求拿掉
-end;
-
-procedure TCB_IMGPSScanX.PM509Click(Sender: TObject);
-begin
- PM401Click(nil);
-end;
-
-procedure TCB_IMGPSScanX.PM510Click(Sender: TObject);
-begin
- DeskewImg(DisplayISB.Graphic);
- DisplayISB.SaveToFile(DisplayISB.FileName);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu1Popup(Sender: TObject);
-begin
- PM101.Visible := False; //刪除
- PM102.Visible := False; //修改案件編號
- PM103.Visible := False; //掃瞄器加入影像
- PM104.Visible := False; //檔案加入影像
- PM106.Visible := False; //複製文件至其他編號
- PM107.Visible := False; //寫備註
- PM108.Visible := False; //歸類
- PM109.Visible := False; //檢核此筆
- PM110.Visible := False; //新增自訂文件
- PM111.Visible := False; //修改份數
-
- if (FMode = 'SAMPLESCAN') then Exit;
-
- if TreeView1.Selected = nil then Exit;
- if TreeView1.Selected = NewTreeNode then //新掃瞄件
- begin
- if (FMode = 'NSCAN') then
- begin
-//ShowMessage('AAAA');
- PM101.Visible := True; //刪除
- PM103.Visible := True; //掃瞄器加入影像
- PM104.Visible := True; //檔案加入影像
- end;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-// if FMode='ESCAN' then
-// begin
-// PM101.Visible := True;
-// end;
- end
- Else if TreeView1.Selected = MyTreeNode1 then //案件層
- begin
- PM101.Visible := True; //刪除
-
- if FImgDelete='Y' then
- begin
- PM101.Visible:=True;
- end;
- if FImgDelete='N' then
- begin
- PM101.Visible:=false;
- end;
-
- if FMode='ESCAN' then
- PM101.Visible:=false;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-
- if not CaseDelete_Enable(NowCaseno) then //
- PM101.Enabled := False
- else
- PM101.Enabled := True;
- PM103.Visible := True; //掃瞄器加入影像
- //PM107.Visible := True; //寫備註
- //PM109.Visible := True; //檢核此筆
-// if FCustDocYN <> 'N' Then
-// PM110.Visible := True; //新增自訂文件 20170914 先不在tree 中做自訂文件 讓user在縮圖做
- PM104.Visible := True; //檔案加入影像
- if (FMode = 'NSCAN') then
- begin
- PM102.Visible := True; //修改案件編號
- end;
-// if FMode='ESCAN' then
-// begin
-// PM101.Visible := True;
-// end;
- end
- Else if TreeView1.Selected = MyTreeNode2 then //文件層
- begin
- PM101.Visible := True; //刪除
- //PM107.Visible := True; //寫備註
- //PM109.Visible := True; //檢核此筆
-// if FCustDocYN <> 'N' Then
-// PM110.Visible := True; //新增自訂文件
- if FImgDelete='Y' then
- begin
- PM101.Visible:=True;
- end;
- if FImgDelete='N' then
- begin
- PM101.Visible:=false;
- end;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //沒有被引用走的
- PM101.Enabled := False //刪除
- Else
- PM101.Enabled := True; //刪除
- if ((GetDocDirCopies(NowCaseno,NowDocDir) > 1) or (not DocNoNeedDiv(NowDocNo)) or (Copy(NowDocNo,1,5)='ZZZZZ')) and (NowDocNo<> 'Attach') and (NowDocNo<> 'S_Attach') then
- PM111.Visible := True; //修改份數
- if (FMode = 'NSCAN') then
- PM102.Visible := True; //修改案件編號
-// if FMode='ESCAN' then
-// begin
-// PM101.Visible := True;
-// end;
- end
- Else if TreeView1.Selected = MyTreeNode3 then //表單層
- begin
- PM101.Visible := True; //刪除
- PM104.Visible := True; //檔案加入影像
- PM108.Visible := True; //歸類
- PM103.Visible := True; //掃瞄器加入影像
-// if FCustDocYN <> 'N' Then
-// PM110.Visible := True; //新增自訂文件
- if GetFormIDPage(ContextList,NowFormCode) < 1 Then
- begin
- PM108.Visible := False; //歸類
- end;
- if FImgDelete='Y' then
- begin
- PM101.Visible:=True;
- end;
- if FImgDelete='N' then
- begin
- PM101.Visible:=false;
- end;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //被引用走的
- begin
- PM101.Enabled := False; //刪除
- PM104.Enabled := False; //檔案加入影像
- PM108.Enabled := False; //歸類
- end
- Else
- begin
- PM101.Enabled := True; //刪除
- PM104.Enabled := True; //檔案加入影像
- PM108.Enabled := True; //歸類
- end;
-
- if (FMode = 'NSCAN') then
- begin
- PM102.Visible := True; //修改案件編號
- end;
- end;
-
-
-
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu4Popup(Sender: TObject);
-begin
- PM401.Visible := False;
- PM402.Visible := False;
- PM403.Visible := False;
- PM404.Visible := False;
- if FMode = 'SAMPLESCAN' then Exit;
- if (TreeView1.Selected.Level =2) or (TreeView1.Selected.Level =3) then
- begin
- PM402.Visible := True;
- PM403.Visible := True;
- PM404.Visible := True;
- end;
- PM401.Visible := True;
- if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') then
- PM401.Visible := False;
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu5Popup(Sender: TObject);
-begin
- PM501.Visible := False;
- PM502.Visible := False;
- PM503.Visible := False;
- PM504.Visible := False;
- PM505.Visible := False;
- PM506.Visible := False;
- PM507.Visible := False;
- PM508.Visible := False;
- PM509.Visible := False;
- PM510.Visible := False;
- if FMode = 'SAMPLESCAN' then Exit;
- if (DisplayISB.FileName <> '') then
- begin
- PM501.Visible := True;
- PM502.Visible := True;
- PM503.Visible := True;
- PM504.Visible := True;
- //PM505.Visible := True;
- //PM506.Visible := True;
- //PM507.Visible := True;
- //PM508.Visible := True;
- //PM509.Visible := True;
- //PM510.Visible := True;
- end;
- if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') or (FMode = 'ESCAN') then
- PM509.Visible := False;
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu6Popup(Sender: TObject);
-begin
- PM601.Visible := True; //歸類
- PM602.Visible := True; //自行定義文件名稱
- PM603.Visible := False; //掃描替換此頁
- PM604.Visible := False; //歪斜矯正
- PM605.Visible := True; //刪除
-
-// if FMode='ESCAN' then
-// begin
-// PM601.Visible := False; //歸類
-// PM602.Visible := False; //自行定義文件名稱
-// PM603.Visible := False; //掃描替換此頁
-// PM604.Visible := False; //歪斜矯正
-// PM605.Visible := False; //刪除
-// end;
-
- if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then
- begin
- PM602.Visible := True; //自行定義文件名稱
- //PM603.Visible := True; //掃描替換此頁
- PM604.Visible := True; //歪斜矯正
- PM601.Visible := True; //歸類
- PM605.Visible := True; //刪除
- end;
-
- if FModeName<>_Msg('異動件') then
- begin
- if (FImgDelete='Y') then
- begin
- PM605.Enabled:=True;
- end;
- if FImgDelete='N' then
- begin
- PM605.Enabled:=false;
- end;
- end;
-
-
-
-
- if CheckSelectImg_UseCase(DisplayPath,NowCaseNo) then //選擇的影像不可有引用的
- begin
- PM601.Enabled := False; //歸類
- PM605.Enabled := False; //刪除
- end;
-
-
-end;
-
-procedure TCB_IMGPSScanX.PrePageBtnClick(Sender: TObject);
-var
- page : Integer;
-begin
- {page := ScrollBar1.Position;
- Case Vmode of
- 0 : dec(page);
- 1 : Page := Page - 2;
- 2 : Page := Page - 4;
- 3 : Page := Page - 6;
- 4 : Page := Page - 8;
- end;
- IF page >= ScrollBar1.min Then
- begin
- ScrollBar1.Position := page;
- end
- Else
- ScrollBar1.Position := 1; }
- if selectISB = nil then Exit;
- PriorPage(SelectPage);
- if (SelectISB.Parent.Top-4) < 0 then
- scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
-
- //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
-
-
-end;
-
-procedure TCB_IMGPSScanX.SampleScanBtnClick(Sender: TObject);
-var
- SampleFormID : String;
- SendData : String;
- buttonSelected : Integer;
-begin
- ScanMode := smSample;
- ClearView(1);
- Vmode := 0; //切成單頁
- GoViewMode;
- ScanInfo.ImageCount := 0;
- ScanPath := SamplePath;
- ScanCaseno := '';
- ContextList.Clear;
- ShowText := _Msg('範本掃描中,請稍候');
- DataLoading(True,True);
- SampleFormID := UpperCase(InputBox(_Msg('範本檔掃瞄輸入畫面'),_Msg('請輸入文件編號'),''));
-
- if SampleFormIDList.IndexOf(SampleFormID)<>-1 then
- begin
- // Show a custom dialog
- buttonSelected := messagedlg(SampleFormID+_Msg('已有範本,是否取代?'),mtCustom,
- [mbYes,mbCancel], 0);
- if buttonSelected = mrCancel then
- begin
- DataLoading(false,false);
- Exit;
- end;
- end;
-
- if SampleFormID <> '' then
- begin
- if FormIDExists(SampleFormID,False,0) then
- begin
- ScanSaveFilename := SampleFormID + '.tif';
- end
- Else
- begin
- Showmessage(Format(_Msg('FormID:%s尚未註冊'),[SampleFormID]));
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- DataLoading(false,false);
- Exit;
- end;
- SampleAnchorMode := FormID2Anchor(SampleFormID);
-
- Panel1.Enabled := False;
- Panel2.Enabled := False;
-//ShowMessage('AAAAA');
- Try
- StatrTwainScan;
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
-
- if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then
- begin
- ShowText := _Msg('範本傳送中,請稍候');
- DataLoading(True,True);
- //多存一份jpg
- ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);
- BWTif2Jpg(ImageScrollBox1.Graphic);
- ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');
- //多存一份jpg
-
- NowWork_No := FormCode2WorkNo(SampleFormID);
- SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.tif';
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.tif',FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
-
- if FileExists(SamplePath+SampleFormID+'.jpg') then //傳送JPG影像
- begin
- SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.jpg';
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.jpg',FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
- end;
- Showmessage(_Msg('傳送完成'));
- end;
- end;
- DataLoading(False,False);
-
-end;
-
-procedure TCB_IMGPSScanX.ScrollBar1Change(Sender: TObject);
-begin
- Exit;
- If (TreeView1.Selected = MyTreenode1) or (TreeView1.Selected.ImageIndex = 6) Then
- begin
- view_image_FormCode(DisplayPath,'ShowAll',ScrollBar1.Position,1);
- end
- Else IF (TreeView1.Selected = MyTreenode2) then
- begin
- view_image_FormCode(DisplayPath,NowDocNo,ScrollBar1.Position,1);
- end
- Else if (TreeView1.Selected = MyTreenode3) then
- begin
- view_image_FormCode(DisplayPath,NowFormCode,ScrollBar1.Position,1);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.ScrollBox1MouseEnter(Sender: TObject);
-begin
-ScrollBox1.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.SelectScanBtnClick(Sender: TObject);
-begin
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- scanner.SelectScanner;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
-end;
-
-procedure TCB_IMGPSScanX.StatusBar1DblClick(Sender: TObject);
-begin
- Button3.Visible := not Button3.Visible;
- Button4.Visible := not Button4.Visible;
- if (GetKeyState(VK_CONTROL) < 0) Then
- begin
- ExportBt.Visible := not ExportBt.Visible;
- ImportBt.Visible := not ImportBt.Visible;
- end
- Else
- begin
- Memo1.Visible := not Memo1.Visible;
- Display1.Visible := not Display1.Visible;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ActiveFormCreate(Sender: TObject);
-var IScrollBox : TImageScrollBox;
- i :integer;
-begin
- {HotKeyId1 := GlobalAddAtom('MyHotKey1')-$C000;
- HotKeyId2 := GlobalAddAtom('MyHotKey2')-$C000;
- HotKeyId3 := GlobalAddAtom('MyHotKey3')-$C000;
- HotKeyId4 := GlobalAddAtom('MyHotKey4')-$C000;
- RegisterHotKey(handle,HotKeyId1,0,VK_UP); //printscreen
- RegisterHotKey(handle,HotKeyId1,0,VK_Down); //printscreen }
- PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
- vmode := 1;
- DesableImage;
- For i:= 1 to 8 do begin
- IScrollBox := TImageScrollBox( FindComponent('ISB'+IntToStr(i)));
- IScrollBox.MouseMode := mmUser;
- iScrollBox.ZoomMode := zmFullPage;
- end;
- Sleep(500);
- Timer1.Enabled := True;
-end;
-
-procedure TCB_IMGPSScanX.ActiveFormKeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- if Edit1.Focused then
- begin
- if selectISB = nil then Exit;
-
- if (Key =VK_UP) then
- begin
- PriorPage(SelectPage);
- if (SelectISB.Parent.Top-4) < 0 then
- scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
-
- //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
- end;
- if (Key =VK_Down) then
- begin
- NextPage(SelectPage);
- if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
- ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
- //scrollBox1.VertScrollBar.ScrollPos := SelectISB.Parent.Top+SelectISB.Parent.Height;
- //ISBClick(TImageScrollBox(FindComponent(ISBName+'2')));
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.AddAttFileLBClick(Sender: TObject);
-var
- i : Integer;
- Addfile : String;
-begin
- OpenDialog1.Filter := 'PDF files|*.pdf';
- OpenDialog1.Options := [ofAllowMultiSelect];
- if OpenDialog1.Execute then
- begin
- ShowText :=_Msg('檔案加入中,請稍候');
- DataLoading(True,True);
- for i := 0 to OpenDialog1.Files.Count - 1 do
- begin
- AddFile := HTTPEncode(UTF8Encode(ExtractFileName(OpenDialog1.Files.Strings[i])));
- if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then
- begin
- if Messagedlg(Format(_Msg('%s己存在,是否覆蓋??'),[Addfile]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Continue;
- SetAttContextList('D',-1,NowCaseno,AddFile);
- end;
- // AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
- // Splitter2.Visible := True;
- CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);
- SetAttContextList('A',-1,NowCaseno,AddFile);
- LoadAttFile(NowCaseno);
- end;
- end;
- DataLoading(False,False);
-end;
-
-procedure TCB_IMGPSScanX.AddCredit1RGClick(Sender: TObject);
-begin
- if DisplayPath <> '' then
- begin
- Case AddCredit1RG.ItemIndex of
- -1:Case_loandoc := '';
- 0:Case_loandoc := 'Y';
- 1:Case_loandoc := 'N';
- end;
- WriteCaseIndex(DisplayPath);
- end;
-end;
-
-procedure TCB_IMGPSScanX.AddScanBtnClick(Sender: TObject);
-var
- P,v : Integer;
-begin
- IF not InitialOk Then
- begin
- Showmessage(_Msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
- if MyTreeNode1 = nil then
- begin
- Showmessage(_Msg('請先選擇案件'));
- Exit;
- end;
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- ScanMode := smInsert;
- ScanInfo.ImageCount := ContextList.Count;
- ScanPath := DisplayPath;
- ScanCaseno := NowCaseno;
- ScanDocDir := NowDocDir;
- Try
- StatrTwainScan;
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- DrawDocItem2(MytreeNode1,NowCaseno);
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- //P := ContextList.Count;
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseno)]);
-
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- SetDocDirtoSelected(MyTreeNode1,FirstDocDir);
- TreeView1Click(self);
-end;
-
-procedure TCB_IMGPSScanX.AttListBoxClick(Sender: TObject);
-begin
- DelAttFileLB.Enabled := False;
- if AttListBox.ItemIndex >= 0 then
- DelAttFileLB.Enabled := True;
-end;
-
-procedure TCB_IMGPSScanX.AttListBoxDblClick(Sender: TObject);
-var
- AttFile : String;
-begin
- if AttListBox.ItemIndex < 0 then Exit;
-
- AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[AttListBox.ItemIndex]));
- if FileExists(DisplayPath+AttFile) then
- ShellExecute(Application.Handle,'open',PChar(DisplayPath+AttFile),nil,nil,SW_SHOW)
- else
- Showmessage(Format(_Msg('找不到檔案:%s'),[AttFile]));
-end;
-
-procedure TCB_IMGPSScanX.BtnMouseEnter(Sender: TObject);
-begin
- AddToolTip(TBitBtn(Sender).Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
-end;
-
-procedure TCB_IMGPSScanX.Button3Click(Sender: TObject);
-begin
- //Showmessage(CreateDocNo_Info(NowCaseNo)+#13+'******'+#13+CreateCustDocNo_Info(NowCaseNo));
- //Showmessage(NowSelectFileList.Text);
- //SetIn_WH_DocNo;
- //CreateIn_WH(self.NowCaseno);
- //Create_Cust_DocDir(NowCaseNo);
- //Showmessage(self.GetDocNoDir(self.DisplayPath,'111'));
- //Case2upload(NowCaseNo);
- //mkdir(DisplayPath+'Test\');
- //Download2Case(DisplayPath+'Upload\',DisplayPath+'Test\');
- //CreateFormID_FormName(DisplayPath); //產生FormID_FormName.dat
- //CreateDocNo_DocName(DisplayPath); //產生DocNo_Name.dat
- //Showmessage(CreateDocNo_Info(DisplayPath)); //產生 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
- //lb1.Caption:='AAAAAAAAAAA';
- //Showmessage(CreateDocnoFrom_Info(NowCaseno));
- //Showmessage(self.CreateCustDocNoFrom_Info(NowCaseno));
- //ShowMessage('FMaxUploadSize='+FMaxUploadSize);
- //initkscan;
- showmessage('FUrl='+FUrl+#10#13+
- 'FCaseID='+FCaseID+#10#13+
- 'FMode='+FMode+#10#13+
- 'FModeName='+FModeName+#10#13+
- 'FWork_no='+FWork_no+#10#13+
- 'FUserID='+FUserID+#10#13+
- 'FUserName='+FUserName+#10#13+
- 'FUserUnit='+FUserUnit+#10#13+
- 'FData='+FData+#10#13+
- 'FVerify='+FVerify+#10#13+
- 'FReWrite='+FReWrite+#10#13+
- 'FLanguage='+FLanguage+#10#13+
- 'FLoanDoc_Value='+FLoanDoc_Value+#10#13+
- 'FLoanDoc_Enable='+FLoanDoc_Enable+#10#13+
- 'FUseProxy='+FUseProxy+#10#13+
- 'FC_DocNoList='+FC_DocNoList+#10#13+
- 'FC_DocNameList='+FC_DocNameList+#10#13+
- 'FFixFileList='+FFixFileList+#10#13+
- 'FIs_In_Wh='+FIs_In_Wh+#10#13+
- 'FOldCaseInfo='+FOldCaseInfo+#10#13+
- 'FPrintyn='+FPrintyn+#10#13+
- 'FIs_OldCase='+FIs_OldCase+#10#13+
- 'FCustDocYN='+FCustDocYN);
- ShowMessage('FImgDPI='+IntToStr(FImgDPI)+#10#13+
- 'FScanColor='+ IntToStr(FScanColor)+#10#13+
- 'FFileSizeLimit='+ IntToStr(FFileSizeLimit) +#10#13+
- 'FCaseNoLength='+ IntToStr(FCaseNoLength) +#10#13+
- 'FImgDelete='+ FImgDelete+#10#13+
- 'FIsExternal='+ FIsExternal+#10#13+
- 'FWH_category='+FWH_category+
- 'FCheck_main_form='+ FCheck_main_form+#10#13+
- 'FMaxUploadSize='+FMaxUploadSize);
- //FImgDelete:='Y';
- LoadImgFile;
- { ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
- 'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
- 'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
- 'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
- }
-end;
-
-procedure TCB_IMGPSScanX.Button4Click(Sender: TObject);
-var
- i:integer;
- str:String;
-begin
- //Showmessage(self.Doc_Inf_List.Text);
- //LoadImgFile;
- //LoadImgFile1;
- //ISB1.MouseMode:=mmAmplifier;
-
- str:='';
- for I := 1 to 11 do // 看 OMRErrInfo 的內容
- begin
- str:=str+BoolToStr(OMRErrInfo[i].Display,true)+','
- +BoolToStr(OMRErrInfo[i].Ignore,true)+','+OMRErrInfo[i].Info+','
- +OMRErrInfo[i].Mode+#10#13;
- end;
- ShowMessage('OMRErrInfo='+str);
- ShowMessage('Doc_Inf_List='+Doc_Inf_List.Text);
- ShowMessage('DM_FORM_INF_List='+DM_FORM_INF_List.Text) ;
- ShowMessage('FORM_INF_List='+FORM_INF_List.Text) ;
- ShowMessage('CHECK_RULE_INF_List='+CHECK_RULE_INF_List.Text) ;
- ShowMessage('MEMO_INF_List='+MEMO_INF_List.Text) ;
- ShowMessage('WORK_INF_List='+WORK_INF_List.Text) ;
- ShowMessage('LASTEST_FORM_INF_List='+LASTEST_FORM_INF_List.Text) ;
- ShowMessage('SampleFormIDList='+SampleFormIDList.Text);
- ShowMessage('ExistImgList='+ExistImgList.Text);
- ShowMessage('LastInitFormidList='+LastInitFormidList.Text);
- ShowMessage('IN_WH_DocNoList='+IN_WH_DocNoList.Text);
-
-// SampleFormIDList.Add('31A00101011706A');
-// SampleFormIDList.Add('31A00101021706A');
-// SampleFormIDList.Add('31A00101031706A');
-end;
-
-procedure TCB_IMGPSScanX.Button5Click(Sender: TObject);
-begin
- GetftpInfo(NowCaseno,'upload');
- SetFtpInfo;
- IIS_Ftp.FtpsConnect;
-
- IIS_Ftp.FtpsToMain(FFtpExtraPath,NowCaseno+'.pdf','d:\1.pdf',display1);
-end;
-
-procedure TCB_IMGPSScanX.Button6Click(Sender: TObject);
-begin
- GetftpInfo(NowCaseno,'download');
- SetFtpInfo;
- IIS_Ftp.FtpsConnect;
- IIS_Ftp.FtpsCWD(IIS_Ftp.FtpPath);
- IIS_Ftp.FtpsReceive(NowCaseNo+'.zip','d:\'+NowCaseNo+'.zip');
-
-
-end;
-
-procedure TCB_IMGPSScanX.StatrTwainScan;
-var ScanInfo : TScanInfo;
- i : Integer;
-begin
- if not Scanner.IsConfigured then
- begin
- ShowMessage(_Msg('TWAIN 掃瞄驅動尚未安裝'));
- Exit;
- end;
- FillChar(ScanInfo, SizeOf(ScanInfo), 0);
- ScanInfo.MultiPage := True;
- ScanInfo.ImageCount := 0;
- ScanInfo.Graphic := TTiffGraphic.Create;
- try
- ISB := nil; //規零
-//ShowMessage(IntToStr(ScanDpi));
- Scanner.RequestedXDpi := ScanDpi;
- Scanner.RequestedYDpi := ScanDpi;
- Scanner.RequestedImageFormat := ScanColor;
- Scanner.ShowUI := TwainShowUI;
-
- Try
- Scanner.OpenSource;
- Scanner.Duplex := ScanDuplex; //雙面
-
- if FMode='SAMPLESCAN' then
- Scanner.Duplex:=False;
-
- //Scanner.FEEDERENABLED := not ScanFlatCB.Checked; // 先拿掉平台
- If ScanImgSetUse Then
- begin
- Scanner.ScanBrightness := ScanBright;
- Scanner.ScanContrast := ScanContrast;
- end;
- except
- Showmessage(_Msg('掃瞄器發生錯誤!!'));
- Scanner.CloseSource;
- Exit;
- end;
- try
- Try
- Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));
- Except
- Scanner.CloseSource;
- end;
- finally
- Scanner.CloseSource;
- end;
- finally
- Scanner.CloseSource;
- ScanInfo.Graphic.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.OnAcquire( const DibHandle : THandle;
- const XDpi : Word;
- const YDpi : Word;
- const CallBackData : LongInt );
-var
- pScanInfo : TpScanInfo;
- SaveFileName : String;
- SaveStream : TFileStream;
- strResults : TBarcodeStringResult;
- DeleteStm : TMemoryStream;
- isDelete : Boolean;
- iGraphic,iGraphic_First,iGraphic_sec : TTiffGraphic;
- iRect : TRect;
- JpgGr : TJpegGraphic;
- i : Integer;
- TagTxt : String;
- function Deletepage(Graphic:TDibGraphic;BlankSize:Integer):Boolean;
- begin
- DeleteStm := TMemoryStream.Create;
- DeleteStm.Seek(0,soFromBeginning);
- Graphic.AppendToStream(DeleteStm);
-
- //DeleteStm.LoadFromFile(Path+'temp.tif');
- //Isb1.Graphic.SaveToStream(DeleteStm);
- //Isb1.Graphic.AppendToStream(DeleteStm);
- if DeleteStm.Size < BlankSize Then
- Result:= True
- Else
- Result := False;
-
- DeleteStm.Free;
- //DeleteFile(Path+'temp.tif');
- end;
-begin
- pScanInfo := TpScanInfo(CallBackData);
- isDelete := False;
-
- if pScanInfo^.MultiPage then
- begin
- pScanInfo^.Graphic.AssignFromDibHandle(DibHandle);
- pScanInfo^.Graphic.XDotsPerInch := XDpi;
- pScanInfo^.Graphic.YDotsPerInch := YDpi;
- TagTxt := 'height:'+inttostr(pScanInfo^.Graphic.Height)+',width:'+inttostr(pScanInfo^.Graphic.Width);
- if pScanInfo^.Graphic.ImageFormat = ifBlackWhite then
- begin
- ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
- ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
-
- pScanInfo^.Graphic.Compression := tcGroup4;
- MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf);
- For i := 1 to MpsBarcodeinf.count do
- begin
- If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
- begin
- Rotate(pScanInfo^.Graphic,MpsBarcodeinf.r180[i]);
- MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
- Break;
- end;
- end;
-
- //影像反向
- IF ScannerReverse then
- NegativeImg(pScanInfo^.Graphic);
- //傾斜矯正
- IF ScanDeskew Then
- DeskewImg(pScanInfo^.Graphic);
- //清黑邊
- IF BoardClear then
- CleanupBorder(pScanInfo^.Graphic);
- end
- else if pScanInfo^.Graphic.ImageFormat = ifTrueColor then
- begin
- //Ext := '.jpg';
- ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
- //ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
- For i := 1 to MpsBarcodeinf.count do
- begin
- If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
- begin
- Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
- Break;
- end;
- end;
- pScanInfo^.Graphic.Compression := tcJpeg;
- pScanInfo^.Graphic.JpegQuality := FJpgCompression;
- end
- else if pScanInfo^.Graphic.ImageFormat = ifColor256 Then
- begin
- //Ext := '.jpg';
- ConvertToGray(pScanInfo^.Graphic);
- pScanInfo^.Graphic.Compression := tcJpeg;
- pScanInfo^.Graphic.JpegQuality := FJpgCompression;
- end
- else if pScanInfo^.Graphic.ImageFormat = ifGray256 Then
- begin
- //Ext := '.jpg';
- ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
- ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
- For i := 1 to MpsBarcodeinf.count do
- begin
- If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
- begin
- Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
- Break;
- end;
- end;
- pScanInfo^.Graphic.Compression := tcJpeg;
- pScanInfo^.Graphic.JpegQuality := FJpgCompression;
-//ShowMessage(IntToStr(pScanInfo^.Graphic.JpegQuality));
-//if pScanInfo^.Graphic.Compression = tcJpeg then
-//begin
-//ShowMessage('jpg');
-//end;
-
- end
- else
- begin
- //Ext := '.tif';
- pScanInfo^.Graphic.Compression := tcPackBits;
- end;
-
- end;
- //Application.ProcessMessages;
- iGraphic_First := TTiffGraphic.Create;
- iGraphic_sec := TTiffGraphic.Create;
- //iGraphic := TTiffGraphic.Create;
- try
- iGraphic_First.Assign(pScanInfo^.Graphic);
- //Application.ProcessMessages;
- if CheckNeedCrop(iGraphic_First) Then
- begin
- iRect.Left := pScanInfo^.Graphic.Width div 2; //先取左邊的影像
- iRect.Top := 0;
- iRect.Right := pScanInfo^.Graphic.Width;
- iRect.Bottom := pScanInfo^.Graphic.Height;
- CropImg(iGraphic_First,iRect);
-
- iGraphic_Sec.Assign(pScanInfo^.Graphic); //再取右邊的影像
- iRect.Left := 0;
- iRect.Top := 0;
- iRect.Right := pScanInfo^.Graphic.Width div 2;
- iRect.Bottom := pScanInfo^.Graphic.Height;
- CropImg(iGraphic_Sec,iRect);
- end;
- //iGraphic.Assign(iGraphic_First);
- iGraphic := iGraphic_First;
-
- if iGraphic.ImageFormat=ifGray256 then //20180104
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
- if iGraphic.ImageFormat=ifTrueColor then //20180104
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
-
-//ShowMessage('WTF');
- while not iGraphic.IsEmpty do
- begin
- //Application.ProcessMessages;
- IF (not DeviceDelete) or (not Deletepage(iGraphic,DeviceDeleteSize)) Then
- begin
- ImageScrollBox1.Graphic.Assign(iGraphic);
- ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
-
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
- For i := 1 To MpsBarcodeinf.Count Do
- Begin
- If MpsBarcodeinf.r180[i] <> 0 Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[i]);
- Break;
- End;
- End;
-
- if iGraphic.ImageFormat=ifGray256 then //20180104 因此旋轉後變為回packbits 所以要改為jpeg
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
- if iGraphic.ImageFormat=ifTrueColor then
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
- PageEnd;
- IF PEFileName <> '' Then
- begin
- IF LowerCase(ExtractFileExt(PEFileName)) = '.tif' Then
- begin
- if FileExists( PEFileName ) then
- SaveStream := TFileStream.Create( PEFileName ,fmOpenReadWrite)
- Else
- SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- try
- SaveStream.Seek(0, soFromBeginning);
- iGraphic.AppendToStream(SaveStream);
- finally
- SaveStream.Free;
- end;
- end
- Else IF LowerCase(ExtractFileExt(PEFileName)) = '.jpg' Then
- begin
- if FileExists( PEFileName ) then
- DeleteFile(PEFileName);
- //SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- JpgGr := TJpegGraphic.Create;
- try
- JpgGr.Assign(iGraphic);
- JpgGr.SaveQuality := FJpgCompression;
- //JpgGr.AppendToStream(SaveStream);
- JpgGr.SaveToFile(PEFileName);
- finally
- JpgGr.Free;
- //SaveStream.Free;
- end;
- end;
- PageDone;
- end;
- end;
- if iGraphic = iGraphic_First then
- iGraphic := iGraphic_Sec
- else
- iGraphic.Assign(nil);
- //iGraphic.Assign(iGraphic_Sec);
- end;
- finally
- //iGraphic.Free;
- iGraphic_First.Free;
- iGraphic_Sec.Free;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PageDone;
-Var
- ISB,NowISB : TImageScrollBox;
-begin
- inc(Scaninfo.ImageCount);
- case ScanMode of
- smNew:
- begin
- if ScanImgShowMode = 0 then //清楚顯示
- begin
- ISB := FindISB2View(VMode);
- ISB.AntiAliased := True;
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end
- Else if ScanImgShowMode = 1 then //模糊顯示
- begin
- ISB := FindISB2View(VMode);
- ISB.AntiAliased := False;
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end
- Else if ScanImgShowMode = 1 then //不顯示
- begin
-
- end
- end;
- smReplace:
- begin
- DisplayISB.LoadFromFile(PEFileName,1);
- end;
- smInsert:
- begin
- ISB := FindISB2View(VMode);
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end;
- smSample:
- begin
- ISB := FindISB2View(VMode);
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end;
- smRTS:
- begin
-
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PageEnd;
-Var
- i,n : Integer;
- SampleFormID : String;
- DocNo,FormID,FormVersion : String;
- BarStr : String;
-begin
- case ScanMode of
- smNew:
- begin
- ScanSaveFilename := '';
- DocNo:='';
- FormID:='';
- FormVersion:='';
- PEFileName := '';
- //if not FindNoSaveBarCode then //沒有不儲存影像的條碼
- //begin
- if FormID = '' then
- begin
- FormID := BarCode2FormID; //取出FormID
- end;
-
- if (FormID <> '') and ISDivPageFormID(FormID) then
- begin
- NowDivPageFormID := FormID;
- end;
-
- if (FormID <> '') and ISGuideFormID(FormID) then
- begin
- NowGuideFormID := FormID;
- end;
-//ShowMessage('NowGuideFormID='+NowGuideFormID);
- if (not (FindDivFormCode(FormID))) and (NowGuideFormID <> '') {and (FormID = '')} then
- FormID := NowGuideFormID;
- DocNo := FormCode2DocNo(FormID);
-//ShowMessage('FormID='+FormID);
-//ShowMessage('ISDivPageFormID(FormID)='+BoolToStr(ISDivPageFormID(FormID),true));
-//ShowMessage('FindDivFormCode(FormID)='+BoolToStr(FindDivFormCode(FormID),true));
-//ShowMessage('A NowDivPageFormID='+NowDivPageFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
- if (FormID <>'') and FindDivFormCode(FormID) and (NowDivPageFormID <> '') Then //只找分案頁上的案件條碼
- begin
-
- ScanInfo.ImageCount := 0;
- ClearView(1);
- ContextList.Clear;
- Context_DocnoList.Clear;
- ClearCaseIndex; //清掉案件索引
- ScanCaseno := BarCode2CaseID; //取出案件編號
- NowGuideFormID := '';
- NowDivPageFormID :='';
-//ShowMessage('B NowGuideFormID='+NowGuideFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
- end;
- if ScanCaseno = '' then //一開始都沒找到
- begin
- ScanCaseno := GetNoNameCase(ImageSavePath);
- end;
- ImageSavePath := ImagePath;
- if (ScanInfo.ImageCount = 0) then
- begin
- if DirectoryExists(ImageSavePath + ScanCaseno+'\') then
- begin
- _DelTree(ImageSavePath + ScanCaseno+'\');
- SetCaseList('D',-1,ScanCaseno);
- end;
- end;
-
- ScanPath := ImageSavePath+ScanCaseno+'\';
- Str2Dir(ScanPath);
-
- ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
-//ShowMessage('AA ScanDocDir='+ScanDocDir);
-
-//ShowMessage('BB ScanDocDir='+ScanDocDir);
- if DocNoNeedDiv(DocNo)then //要分份數
- begin
- //Showmessage(DocNo+#13+FormCode2Page(FormID)+#13+inttostr(GetDocDir_Page(ScanCaseno,ScanDocDir))+#13+ScanDocDir);
- if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
- begin
- //ScanInfo.ImageCount := 0;
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- end
- Else //不分份數
- begin
- if DocNo <> '' then
- ScanDocDir := DocNo
- else //Attach 附件
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- //ScanDocDir := GetDocNoDir(ImageSavePath+ScanCaseno+'\',DocNo);
- if FirstDocDir = '' then
- FirstDocDir := ScanDocDir;
-
- ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
- //Showmessage(ScanPath);
- if (not DirectoryExists(ScanPath)) and (ScanDocdir <> AttName) then
- begin
- //Showmessage('ADD:'+ScanCaseno+','+ScanDocdir);
- SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
- end;
- Str2Dir(ScanPath);
-
-
- ScanSaveFilename := FormID;
-
- Str2Dir(ScanPath);
- if ScanSaveFilename = '' then //附件
- ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+ext
- //ScanSaveFilename:= Add_Zoo(ScanInfo.ImageCount+1,3)+ext
- Else
- ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+'_'+ScanSaveFilename+ext;
- if not FindNoSaveBarCode then //沒有不儲存影像的條碼
- begin
- if ScanInfo.ImageCount = 0 then
- begin
- SetCaseList('A',-1,ScanCaseno);
- WriteCaseIndex(ImageSavePath + ScanCaseno+'\'); //寫入案件索引
- MyTreeNode1 := TreeView1.Items.AddChild(NewTreenode,ScanCaseno);
- MyTreenode1.ImageIndex := 2;
- MyTreenode1.SelectedIndex := 2;
- Application.ProcessMessages;
- end;
-
- SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
- //ContextList.Add(ScanSaveFilename);
- //ContextList.SaveToFile(ScanPath+'Context.dat');
-
- PEFileName := ScanPath+ScanSaveFilename;
- end;
- end;
- smReplace:
- begin
- if ScanInfo.ImageCount = 0 then
- begin
- DeleteFile(ScanPath+ScanSaveFilename);
- PEFileName := ScanPath+ScanSaveFilename;
- end;
- end;
- smInsert:
- begin
- ScanSaveFilename := '';
- FormID := BarCode2FormID; //取出FormID
- if (FormID <> '') and ISGuideFormID(FormID) then //20170510 註解 因為DSCAN 會全擠在導引頁下
- NowGuideFormID := FormID;
- if (NowGuideFormID <> '') {and (FormID = '')} then //20170510 註解 因為DSCAN 會全擠在導引頁下
- FormID := NowGuideFormID;
- DocNo := FormCode2DocNo(FormID);
- ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
-
- if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then //20180207 加入的特殊邏輯
- begin
- ScanDocDir := FindLastestDocDirForPage(ScanCaseno, DocNo,FormID);
- end;
-
- if (DocNoNeedDiv(DocNo)) then //要分份數
- begin
- if TreeView1.Selected = MyTreeNode1 then //20170421 掃瞄插頁時選則在案號上才要分份數 選在FormID上就不分份數
- begin
- if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
- begin
- ScanInfo.ImageCount := 0;
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- end;
- end
- Else //不分份數
- begin
- if DocNo <> '' then
- ScanDocDir := DocNo
- else //Attach 附件
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- if FirstDocDir = '' Then
- FirstDocDir := ScanDocDir;
-
- ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
- if (not DirectoryExists(ScanPath)) and (ScanDocdir <> 'Attach') and (ScanDocdir <> 'S_Attach') then
- SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
-
-
- ScanSaveFilename := FormID;
- Str2Dir(ScanPath);
- if ScanSaveFilename = '' then //附件
- ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+ext
- Else
- ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+'_'+ScanSaveFilename+ext;
- //ContextList.Add(ScanSaveFilename);
- //ContextList.SaveToFile(ScanPath+'Context.dat');
- SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
- //Showmessage(ScanPath+ScanSaveFilename);
- //Showmessage('Stop');
- PEFileName := ScanPath+ScanSaveFilename;
- end;
- smSample:
- begin
- if ScanInfo.ImageCount = 0 then
- begin
- DeleteFile(ScanPath+ScanSaveFilename);
- PEFileName := ScanPath+ScanSaveFilename;
- BarStr := '';
- for i := 1 to MpsBarCodeinf.Count do
- begin
- BarStr := BarStr + MpsBarCodeinf.Text[i];
- end;
- Showmessage(_Msg('辨識到的BarCode:')+#13+BarStr);
- end;
- end;
- smRTS:
- begin
-
- end;
- end;
- Application.ProcessMessages;
-
-end;
-
-
-procedure TCB_IMGPSScanX.ExportBtClick(Sender: TObject);
-var
- SendData : String;
- EnCodeDateTime : String;
- S : TStringlist;
- SFileName,VFileName : String;
-begin
- SFileName := En_DecryptionStr_Base64('E','MPSLIC_SCAN.lic','9338430');
- VFileName := En_DecryptionStr_Base64('E','MPSLIC_VIEW.lic','9338430');
- IIS_File2Web.S_LicEnName := SFileName;
- IIS_File2Web.V_LicEnName := VFileName;
-
- /////下載MPSLIC_SCAN.lic //////
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
-
-
- //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_SCAN.lic'+'&mode=sample';
- //if not dnFile(HTTPSClient,Furl,'servlet/CWC03',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
- begin
- Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Exit;
- end;
- /////下載MPSLIC_SCAN.lic /////
-
- /////下載MPSLIC_VIEW.lic //////
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_VIEW.lic'+'&mode=sample'; //這裡改成必傳CW 20121212
- //if not dnFile(HTTPSClient,Furl,'service/slic/SLIC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_VIEW.lic';
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
- begin
- Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Exit;
- end;
- /////下載MPSLIC_VIEW.lic /////
-
- ////壓zip/////
- S := TStringlist.Create;
- try
- S.Add(En_DecryptionStr_Base64('E',GetDate,'9338430'));
- S.Add(SFileName);
- S.Add(VFileName);
- S.SaveToFile(LngPath+'mps.dat');
- S.Clear;
- S.Add(LngPath+'mps.dat');
- S.Add(LngPath+SFileName);
- S.Add(LngPath+VFileName);
- if FileExists(LngPath+'mps.zip') then
- DeleteFile(LngPath+'mps.zip');
- ExecuteZip_Pwd(LngPath+'mps.zip',LngPath,S,False,False,'9338430');
-
- finally
- S.Free;
- DeleteFile(LngPath+SFileName);
- DeleteFile(LngPath+VFileName);
- DeleteFile(LngPath+'mps.dat');
- end;
- ////壓zip//////
- Showmessage(_Msg('匯出完成,匯出檔案:')+LngPath+'mps.zip');
-end;
-
-procedure TCB_IMGPSScanX.ImportBtClick(Sender: TObject);
-var
- SendData : String;
- EnCodeDateTime : String;
- S : TStringlist;
- SFileName,VFileName : String;
- OpenDialog1 : TOpenDialog;
- ZipPath : String;
- ZipFile,ZipName : String;
- LicName : String;
- i : Integer;
-begin
- OpenDialog1 := TOpenDialog.Create(self);
- S := TStringlist.Create;
- try
- OpenDialog1.Filter := 'Zip files (*.zip)|*.ZIP';
- if OpenDialog1.Execute then
- begin
- ZipFile:= ExtractFileName(OpenDialog1.FileName);
- ZipName := Copy(ZipFile,1,length(ZipFile)-length(ExtractFileExt(OpenDialog1.FileName)));
- ZipPath := LngPath+ZipName+'\';
-
- str2dir(ZipPath);
- if not ExecuteUnZip_Pwd(OpenDialog1.FileName,ZipPath,False,'9338430') then
- Showmessage(_Msg('無法解壓縮'));
- if not FileExists(ZipPath+'mps.dat') then
- begin
- Showmessage(_Msg('格式不符,無法匯入'));
- Exit;
- end;
- S.LoadFromFile(ZipPath+'mps.dat');
- if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then
- begin
- Showmessage(_Msg('檔案過期,無法匯入'));
- Exit;
- end;
-
- for i := 1 to S.Count -1 do
- begin
- LicName := En_DecryptionStr_Base64('D',S.Strings[i],'9338430');
- RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);
- if (LicName = 'MPSLIC_SCAN.lic') or (LicName = 'MPSLIC_VIEW.lic') then
-
- /////上傳MPSLICXXXX.lic ////
- //if not upFile(HTTPSClient,FUrl,'servlet/CWC04','formid='+LicName+'@workno=CW@mode=sample','file',ZipPath+LicName,FReWrite,Memo1,False) then
- //begin
- SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file_name='+LicName;
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',ZipPath+LicName,FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
- /////上傳MPSLICXXXX.lic /////
- end;
- end;
- Finally
- OpenDialog1.Free;
- S.Free;
- _DelTree(ZipPath);
- end;
- Showmessage(_Msg('匯入完成'));
-end;
-
-procedure TCB_IMGPSScanX.HotKeyDown (var Msg : TMessage);
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.InitialLanguage(Sender: TObject);
-var
- ini : Tmeminifile;
- i,n : Integer;
- FormName : String;
- NowForm : TComponent;
-begin
- if Sender is TActiveForm then
- NowForm := TActiveForm(Sender);
- if Sender is TForm then
- NowForm := TForm(Sender);
-
- FormName := NowForm.Name;
- IISUnit.IIS_LngfileName := LngPath+'Language.Lng'; //給IISUnit 轉多國語言字串用
- if FLanguage = '' then
- FLanguage := 'zh_tw';
- IISUnit.IIS_NowLng := FLanguage;
- ini := TMeminifile.Create(LngPath+'Language.Lng');
- try
- IF NowForm is TForm Then
- TForm(NowForm).Caption := ini.ReadString(FLanguage,FormName+'.FormTitle','');
- for i := 0 to NowForm.ComponentCount - 1 do
- begin
-//ShowMessage(NowForm.Components[i].Name);
- if NowForm.Components[i] is TButton then
- begin
- TButton(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TButton(NowForm.Components[i]).Name,'');
- //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
- //TButton(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
- end
- Else if NowForm.Components[i] is TBitBtn then
- begin
- TBitBtn(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TBitBtn(NowForm.Components[i]).Name,'');
- //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
- TBitBtn(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
- end
- Else if NowForm.Components[i] is TMenuItem then
- begin
- if ini.ValueExists(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name) then
- TMenuItem(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TCheckBox then
- begin
- TCheckBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TCheckBox(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TPJMenuSpeedButton then
- begin
- TPJMenuSpeedButton(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TPJMenuSpeedButton(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TLabel then
- begin
- TLabel(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TLabel(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TGroupBox then
- begin
- TGroupBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TGroupBox(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TListView then
- begin
- for n := 0 to TListView(NowForm.Components[i]).Columns.Count - 1 do
- begin
- TListView(NowForm.Components[i]).Columns.Items[n].Caption := ini.ReadString(FLanguage,FormName+'.'+TListView(NowForm.Components[i]).Name+'_'+inttostr(n),'');
- end;
- end
- Else if NowForm.Components[i] is TRadioGroup then
- begin
- TRadioGroup(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name,'');
- for n := 0 to TRadioGroup(NowForm.Components[i]).Items.Count - 1 do
- begin
- TRadioGroup(NowForm.Components[i]).Items.Strings[n] := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name+'_'+inttostr(n),'');
- end;
- end;
- end;
- finally
- ini.Free;
- end;
-end;
-
-function TCB_IMGPSScanX.GetSiteOMR(FileName,Site:String;bt: Integer): Integer;
-var
- OMRRect : TRect;
- Xdpi,Ydpi : Integer;
- W,H : Integer;
-begin
- Result := 0;
-//ShowMessage('GetSiteOMR');
-
- IF (ImageScrollBox1.FileName <> FileName) and (FileName <> '') then
- begin
-//ShowMessage('11111'+ImageScrollBox1.FileName+#10#13+FileName);
- ImageScrollBox1.LoadFromFile(FileName,1);
-{
-ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
-'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
-'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
-'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
- FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');
-ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
-'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
-'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
-'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
-}
- ClearLine(ISB_BW.Graphic,bt);
- ISB_BW.Redraw(True);
- Application.ProcessMessages;
- end;
- If ImageScrollBox1.FileName <> '' Then
- begin
-
-//ShowMessage('22222'+ImageScrollBox1.FileName);
- Xdpi := ImagescrollBox1.Graphic.XDotsPerInch;
- Ydpi := ImagescrollBox1.Graphic.YDotsPerInch;
- H := ImageScrollBox1.Graphic.Height;
- W := ImageScrollBox1.Graphic.Width;
-//ShowMessage('Xdpi='+IntToStr(Xdpi)+#10#13+'Ydpi='+IntToStr(Ydpi)+#10#13+'H='+IntToStr(H)+#10#13+'W='+IntToStr(W)+#10#13);
-//ShowMessage('Site='+Site);
- OMRRect := CM_Str2Rect(Site,Xdpi,UpLPoint);
-Display1.Lines.Add('UpLPoint=('+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+');'+Site+';'+IntToStr(OMRRect.Left)+','+IntToStr(OMRRect.top)+','+IntToStr(OMRRect.Right)+','+IntToStr(OMRRect.Bottom));
- if OMRRect.Left < 0 then
- OMRRect.Left := 0;
- if OMRRect.Top < 0 then
- OMRRect.Top := 0;
- if OMRRect.Right > ImageScrollBox1.Graphic.Width then
- OMRRect.Right := ImageScrollBox1.Graphic.Width;
- if OMRRect.Bottom > ImageScrollBox1.Graphic.Height then
- OMRRect.Bottom := ImageScrollBox1.Graphic.Height;
-
- result := Get_OMR(ISB_BW.Graphic,OMRRect);
-//ShowMessage('result='+IntToStr(result));
-
- end;
-end;
-
-Function TCB_IMGPSScanX.FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示
-var
- i,n : Integer;
- ISB : TImageScrollBox;
-begin
- case Vmode of
- 0 : n := 1;
- 1 : n := 2;
- 2 : n := 4;
- 3 : n := 6;
- 4 : n := 8;
- end;
- for i := 1 to 8 do
- begin
- if i > n then Break;
- ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
- if (i = n) and (ISB.FileName <> '') then
- begin
- clearView(i);
- Result := ISB1;
- end
- Else if ISB.FileName = '' then
- Result := ISB;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.R_W_Scanini(Mode:Char); //'R'讀取;'W'寫入
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(ScaniniPath+'FBScan.ini');
- try
- case Mode of
- 'R':begin
- DeviceDelete := ini.ReadBool('DeviceDelete','Mode',Def_DeviceDelete);
- DeviceDeleteSize := ini.ReadInteger('DeviceDelete','Size_New',Def_DeviceDeleteSize);
- ScannerReverse := ini.ReadBool('Scanner','Reverse',Def_ScannerReverse);
- BoardClear := ini.ReadBool('Scanner','BoardClear',Def_BoardClear);
- //ScanDpi := ini.ReadInteger('Scanner','Dpi',Def_ScanDpi);
- //ScanDuplex := ini.ReadBool('Scanner','Duplex',Def_ScanDuplex);
- ScanRotate := ini.ReadInteger('Scanner','ScanRotate',Def_ScanRotate);
- ScanDeskew := ini.ReadBool('Scanner','ScanDeskew',Def_ScanDeskew);
- ScanBright := ini.ReadInteger('Scanner','ScanBright',Def_ScanBright);
- ScanContrast := ini.ReadInteger('Scanner','ScanContrast',Def_ScanContrast);
- ScanImgShowMode := ini.ReadInteger('Scanner','ScanImgShowMode',Def_ScanImgShowMode);
- ScanImgSetUse := ini.ReadBool('Scanner','ScanImgSetUse',Def_ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
- end;
- 'W':begin
- ini.WriteBool('DeviceDelete','Mode',DeviceDelete);
- ini.WriteInteger('DeviceDelete','Size_New',DeviceDeleteSize);
- ini.WriteBool('Scanner','Reverse',ScannerReverse);
- ini.WriteBool('Scanner','BoardClear',BoardClear);
- //ini.ReadInteger('Scanner','Dpi',ScanDpi);
- //ini.WriteBool('Scanner','Duplex',ScanDuplex);
- ini.WriteInteger('Scanner','ScanRotate',ScanRotate);
- ini.WriteBool('Scanner','ScanDeskew',ScanDeskew);
- ini.WriteInteger('Scanner','ScanBright',ScanBright);
- ini.WriteInteger('Scanner','ScanContrast',ScanContrast);
- ini.WriteInteger('Scanner','ScanImgShowMode',ScanImgShowMode);
- ini.WriteBool('Scanner','ScanImgSetUse',ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
- end;
- end;
-
- finally
- ini.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GetDefScanIni; //取得掃瞄的預設值
-var
- i : Integer;
- PARA_NO,PARA_CONTENT: String;
-begin
- Def_DeviceDelete := True;
- Def_DeviceDeleteSize := 3072; //20120821 改成3000(出現)
- Def_ScannerReverse := False;
- Def_BoardClear := False;
- Def_ScanDpi := 300;
- Def_ScanDuplex := True;
- Def_ScanRotate := 0;
- Def_ScanDeskew := False;
- Def_ScanImgSetUse := False;
- Def_ScanBright := 0;
- Def_ScanContrast := 0;
- Def_ScanImgShowMode := 2;
-
- for i := 0 to WORK_INF_List.Count - 1 do
- begin
- IF GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_USE' Then //空白頁啟動
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_DeviceDelete := True
- Else
- Def_DeviceDelete := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_SIZE' Then //空白頁Size
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '' then
- Def_DeviceDeleteSize := 0
- Else
- Def_DeviceDeleteSize := Strtoint(PARA_CONTENT);
-
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_REVERSE' Then //是否需反相
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScannerReverse := True
- Else
- Def_ScannerReverse := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BOARDCLEAR' Then //是否清黑邊
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_BoardClear := True
- Else
- Def_BoardClear := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DPI' Then //掃瞄DPI
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '' then
- Def_ScanDpi := 300
- else
- Def_ScanDpi := Strtoint(PARA_CONTENT);
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DUPLEX' Then //是否雙面掃瞄
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScanDuplex := True
- Else
- Def_ScanDuplex := False;
-
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_ROTATE_MODE' Then //掃瞄時旋轉角度
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '0' then
- Def_ScanRotate := 0
- Else if PARA_CONTENT = '1' then
- Def_ScanRotate := 270
- Else if PARA_CONTENT = '2' then
- Def_ScanRotate := 180
- Else if PARA_CONTENT = '3' then
- Def_ScanRotate := 90
- Else
- Def_ScanRotate := 0;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DESKEW' Then //是否傾斜矯正
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScanDeskew := True
- Else
- Def_ScanDeskew := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_IMGSET_USE' Then //是否使用亮度對比設定
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScanImgSetUse := True
- else
- Def_ScanImgSetUse := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BRIGHT' Then //亮度
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT ='' then
- Def_ScanBright := 0
- Else
- Def_ScanBright := strtoint(PARA_CONTENT);
- if (Def_ScanBright > 255) or (Def_ScanBright < -255) then
- Def_ScanBright := 0;
-
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_CONTRAST' Then //對比
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT ='' then
- Def_ScanContrast := 0
- Else
- Def_ScanContrast := strtoint(PARA_CONTENT);
- if (Def_ScanContrast > 255) or (Def_ScanContrast < -255) then
- Def_ScanContrast := 0;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_SHOW_MODE' Then
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '0' then
- Def_ScanImgShowMode := 0
- Else if PARA_CONTENT = '1' then
- Def_ScanImgShowMode := 1
- Else if PARA_CONTENT = '2' then
- Def_ScanImgShowMode := 2
- Else
- Def_ScanImgShowMode := 0;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'CASE_IN_TIME' Then //取進件截止時間
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- ScanDenialTime := PARA_CONTENT;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_HINT' Then //掃描提示字串
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- ScanDenialHint := PARA_CONTENT;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'NO_SAVE_FORM_ID' Then //掃描不存檔之表單代號
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- NoSaveBarCodeList.CommaText := PARA_CONTENT;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'LOCAL_PATH' Then //本機端路徑
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- ImagePath:= PARA_CONTENT;
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'GUIDEFORMID' Then //當導引頁的表單
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- GuideFormIDList.CommaText := PARA_CONTENT;
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'DIVPAGEFORMID' Then //當分案頁的表單
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- DivPageFormIDList.CommaText := PARA_CONTENT;
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'FILE_COMPRESSION' Then //20171211 jpg to tif 壓縮比
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- FJpgCompression := StrToInt(PARA_CONTENT);
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'MAX_UPLOAD_SIZE' Then //取得 上傳大小的限制(MB)
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- FMaxUploadSize := PARA_CONTENT;
- end;
- end;
- ScanDuplex := Def_ScanDuplex;
-end;
-
-procedure TCB_IMGPSScanX.HTTPSClientCertificateValidate(Sender: TObject;
- X509Certificate: TElX509Certificate; var Validate: Boolean);
-begin
- Validate := True;
-end;
-
-procedure TCB_IMGPSScanX.HTTPSClientRedirection(Sender: TObject;
- const OldURL: string; var NewURL: string; var AllowRedirection: Boolean);
-begin
- AllowRedirection := True;
-end;
-
-procedure TCB_IMGPSScanX.EnableImage(v:integer;Sender : TObject);
-var bmp : Tbitmap;
-begin
- DesableImage;
- bmp := TBitmap.Create;
- try
- ImageList3.GetBitmap(v,bmp);
- TBitBtn(Sender).Glyph.Assign(bmp);
- finally
- bmp.Free;
- end;
- ViewMouseMode(v);
-end;
-
-procedure TCB_IMGPSScanX.DesableImage;
-var bmp : Tbitmap;
- i : integer;
-begin
- NowClick := -1;
- bmp := Tbitmap.Create;
- try
- For i:= 0 to 6 do
- begin
- ImageList4.GetBitmap(i,bmp);
- TBitBtn(FindComponent('FC'+IntToStr(i))).Glyph.Assign(bmp);
- bmp.Width:=0;
- bmp.Handle:=0;
- end;
- finally
- bmp.Free;
- end;
- ViewMouseMode(NowClick);
-end;
-
-Procedure TCB_IMGPSScanX.ViewMouseMode(v:Integer);
-var
- i : Integer;
- Md : TMouseMode;
- ISB : TImageScrollBox;
-begin
-//ShowMessage(IntToStr(v));
- case v of
- -1 : Md := TMouseMode(mmUser);
- 0 : Md := TMouseMode(mmAmplifier);
- 1 : Md := TMouseMode(mmZoom);
- 2 : Md := TMouseMode(mmDrag);
- 3 : Md := TMouseMode(mmR270);
- 4 : Md := TMouseMode(mmR180);
- 5 : Md := TMouseMode(mmR90);
- 6 : Md := TMouseMode(mmDelete);
- end;
- for i := 1 to 8 do
- begin
- ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
- ISB.MouseMode := TMouseMode(Md);
- //Label3.Caption:='v='+IntToStr(v)+' time'+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GoViewMode;
-begin
- case VMode of
- 0: DisplayMode(VMode,1,1,Panel9);
- 1: DisplayMode(VMode,1,1,Panel9);
- 2: DisplayMode(VMode,2,2,Panel9);
- 3: DisplayMode(VMode,2,3,Panel9);
- 4: DisplayMode(VMode,2,4,Panel9);
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel);
-Var
- W,H,T,L:Integer;
- i,n,Count: Integer;
- Pl :TPanel;
- bmp : TBitmap;
-begin
- for i := 1 to 8 do
- begin
- TPanel(Findcomponent('imgp'+inttostr(i))).Visible := False;
- end;
- W := Round((BasePanel.Width - ((W_Count+1) * Seg)) / W_Count);
- H := Round((BasePanel.Height -((H_Count+1) * Seg)) / H_Count);
- Count := 1;
- for i := 1 to H_Count do
- begin
- T := i * Seg + H * (i-1);
- for n := 1 to W_Count do
- begin
- L := n * Seg + W * (n-1);
- Pl := TPanel(Findcomponent('imgp'+inttostr(Count)));
- Pl.Visible := True;
- Pl.Left := L;
- Pl.Top := T;
- Pl.Width := W;
- Pl.Height := H;
- inc(Count);
- end;
- end;
- Shape1.Width := W + (Seg * 2);
- Shape1.Height := H + (Seg * 2);
- Shape1.Visible := True;
-
-
- bmp := Tbitmap.Create;
- try
- ImageList2.GetBitmap(index,bmp);
- ViewModeBtn.Glyph.Assign(bmp);
- finally
- bmp.Free;
- end;
- ISB1Click(ISB1);
-end;
-
-Function TCB_IMGPSScanX.GetServerDate : Boolean;
-begin
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/servertimeforocx','',FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- ServerDate := memo1.Lines.Strings[1];
- ServerTime := Copy(ServerDate,9,6);
- ServerDate := Copy(ServerDate,1,8);
- Balance := GetBalance(ServerTime); //Server 跟Local的時間差
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetSampleInf : Boolean;
-var
- str:String;
-begin
- Result := False;
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/serversampleforocx','work_no='+FWork_no,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- str := memo1.Lines.Strings[1];
- SampleFormIDList.CommaText:=str;
-
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetSetInf1 : Boolean; //取系統設定資訊Mode1 DOC_INF
-Var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM DOC_INF WHERE WORK_NO = '%s' ORDER BY DOC_TYPE, DOC_NO, DOC_VERSION"
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
-
- ColumeStr := 'WORK_NO,DOC_NO,DOC_U_DESC,DOC_TYPE,DOC_VERSION,FORM_PAGES,START_DATE,STOP_DATE,IS_DOC_DIV,IS_IN_WH';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=1&col='+Doc_Inf_Colume+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
-
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=1&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
-
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,Doc_Inf_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf2 : Boolean; //取系統設定資訊Mode2 DM_FORM_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM DM_FORM_INF
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'WORK_NO,MAIN_FORM_ID,DOC_VERSION,DEPE_FORM_ID,MUTEX_FORM_ID';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=2&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=2&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,DM_FORM_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT distinct %s FROM FORM_INF T1 LEFT JOIN DOC_INF T2 ON T2.DOC_NO = T1.DOC_NO AND T1.DOC_VERSION = T2.DOC_VERSION AND T1.WORK_NO = T2.WORK_NO WHERE T2.IS_USE = 'Y' AND T2.WORK_NO = %s
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- //ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_KIND,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.MERGE_IMAGE,T1.CC_FORM_ID,T1.CC_MERGE_FORMID,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
- ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.IS_PRINT,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=3&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=3&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,FORM_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM CHECK_RULE_INF WHERE CHECK_TYPE = 'S'
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'WORK_NO,CHECK_NO,CHECK_RULE_DESC,MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=4&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=4&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,CHECK_RULE_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- CheckRule2OMRErrInfo;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF
- var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM MEMO_INF T1 LEFT JOIN MEMO_TYPE_INF T2 ON T2.MEMO_TYPE_NO = T1.MEMO_TYPE WHERE T1.MEMO_SOURCE = '01'
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'T1.WORK_NO,T1.MEMO_TYPE,T1.MEMO_CONTENT,T2.MEMO_TYPE_NAME';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=5&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,MEMO_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf6 : Boolean; //取系統設定資訊mode5 WORK_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM WORK_INF
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'WORK_NO,PARA_NO,PARA_CONTENT';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=6&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,WORK_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf7 : Boolean; //取系統設定資訊mode5 LASTEST_FORM_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT FORM_ID,DOC_NO,DOC_VERSION FROM FORM_INF WHERE (DOC_NO,DOC_VERSION) in (SELECT DOC_NO, MAX(DOC_VERSION) FROM FORM_INF GROUP BY DOC_NO) ORDER BY DOC_NO
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'FORM_ID,DOC_NO';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=7&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,LASTEST_FORM_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡 20130403增加
-var
- i : Integer;
-begin
- for i := 1 to FORM_INF_List.Count-1 do
- begin
- FormID_List.Add(GetSQLData(FORM_INF_List,'T1.FORM_ID',i));
- DocNo_List.Add(GetSQLData(FORM_INF_List,'T1.DOC_NO',i));
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
-var
- i : Integer;
-begin
- for i := 1 to Doc_Inf_List.Count - 1 do
- begin
-
- if GetSQLData(Doc_Inf_List,'IS_IN_WH',i) = 'Y' then
- IN_WH_DocNoList.Add(GetSQLData(Doc_Inf_List,'DOC_NO',i));
- end;
- {Showmessage(IN_WH_DocNoList.Text);
- StringtoFile(IN_WH_DocNoList.Text,'D:\121.txt');}
-end;
-
-function TCB_IMGPSScanX.CheckRequiredColumnValues(workno, caseno:String): Boolean;
-begin
-//
- Result:=False;
- if (workno='HLN') and (caseno[9]='3') then
- Result:=True;
- if (workno='HLN') and (caseno[9]='4') then
- Result:=True;
-end;
-
-Procedure TCB_IMGPSScanX.CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record
-var i : Integer;
- CheckNo : String;
-begin
- for I := 1 to 11 do
- begin
- CheckNo := Add_Zoo(i,3);
-
- if FindSQLData(CHECK_RULE_INF_List,'MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE','CHECK_NO',CheckNo,0,FindResult) then
- begin
- if GetFindResult('MESG_SHOW_TYPE') = '1' then
- OMRErrInfo[i].Display := True //顯示
- Else if GetFindResult('MESG_SHOW_TYPE') = '2' then
- OMRErrInfo[i].Display := False; //不顯示
-
- if GetFindResult('MESG_DISP_TYPE') = '1' then
- OMRErrInfo[i].Ignore := True //可忽略
- Else if GetFindResult('MESG_DISP_TYPE') = '2' then
- OMRErrInfo[i].Ignore := False; //不可忽略
-
- OMRErrInfo[i].Info := GetFindResult('CHECK_MESG');
- OMRErrInfo[i].Mode := GetFindResult('SCAN_MODE');
- end;
- end;
-end;
-
-
-
-Procedure TCB_IMGPSScanX.ReNameContext(Path,OldName,NewName:String);
-var
- i : Integer;
-begin
- for i := 0 to ContextList.Count - 1 do
- begin
- if OldName = ContextList.Strings[i] then
- begin
- ContextList.Strings[i] := NewName;
- ContextList.SaveToFile(Path+'Context.dat');
- Context_DocnoList.Strings[i] := FormCode2DocNo(FileName2FormCode(NewName));
- Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案 (無法得到DocDir用)
-var
- i : Integer;
- FileList:TStringlist;
- DocDir : String;
-begin
-
-
- DeleteFile(Path+FileName);
- DocDir := Path2DocDir(Path,CaseID);
-//ShowMessage('DocDir='+DocDir);
- SetContextList('D',-1,CaseID,DocDir,FileName);
- {FileList:=TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- FileList.LoadFromFile(Path+'Context.dat');
- for i := 0 to FileList.Count - 1 do
- begin
- if FileName = FileList.Strings[i] then
- begin
- FileList.Delete(i);
- FileList.SaveToFile(Path+'Context.dat');
- Break;
- end;
- end;
- if FileList.Count = 0 then
- DeleteFile(Path+'Context.dat');
- finally
- FileList.Free;
- end;}
-end;
-
-Procedure TCB_IMGPSScanX.DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件
-var
- i: Integer;
- FileList : TStringlist;
-begin
- FileList := TStringlist.Create;
- try
- FileList.Clear;
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
-
- for i := FileList.Count - 1 downto 0 do
- begin
- if FileName2FormCode(FileList.Strings[i]) = FormID then
- begin
- if (FMode = 'ESCAN') and (FModeName<>_Msg('異動件')) then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\'+DocDir+'\'+FileList.Strings[i]) then
- begin
- //ShowMessage('有圖為非當次掃瞄，不可刪除');
- Break;
- end;
- end;
-//ShowMessage(FileList.Strings[i]);
- DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);
- end;
- end;
- finally
- FileList.Free;
- end;
- ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');
- {for i := ContextList.Count - 1 downto 0 do
- begin
- FName := ContextList.Strings[i];
- if FormID = 'Err' then //刪未註冊文件
- begin
- If not FormIDExists(FileName2FormCode(FName),False,0) Then
- begin
- DeleteFile(Path+FName);
- ContextList.Delete(i);
- end;
- end
- Else
- begin
- If FormID = FileName2FormCode(FName) then
- begin
- DeleteFile(Path+FName);
- ContextList.Delete(i);
- end;
- end;
- end;
- ContextList.SaveToFile(Path+'Context.dat');
- ReSortFileName(Path); }
-end;
-
-Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件
-var
- i: Integer;
- FName : String;
-begin
- Result := False;
- for i := ContextList.Count - 1 downto 0 do
- begin
- FName := ContextList.Strings[i];
- If DocNo = FormCode2DocNo(FileName2FormCode(FName)) then
- begin
- DeleteFile(Path+FName);
- ContextList.Delete(i);
- Context_DocnoList.Delete(i);
- Result := True; //有刪到指定文件
- end;
- end;
- ContextList.SaveToFile(Path+'Context.dat');
- Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
- ReSortFileName(Path);
- ContextList.LoadFromFile(Path+'Context.dat');
- Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
- if FileExists(Path+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
-end;
-
-Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean; //刪除指定DocNo文件
-var
- i,j,k: Integer;
- FName : String;
- ST1,ST2,ST3:TStringList;
-
-begin
-
- Result := False;
-//ShowMessage(DocNo);
- for i := ContextList.Count - 1 downto 0 do
- begin
- FName := ContextList.Strings[i];
- If (DocNo = FormCode2DocNo(FileName2FormCode(FName))) or (DocNo=AttName) then
- begin
- if not ISExistImg(Path+'\'+FName) then
- begin
- DeleteFile(Path+'\'+FName);
- ContextList.Delete(i);
- end;
- Result := True; //有刪到指定文件
- end;
- end;
- ContextList.SaveToFile(Path+'\Context.dat');
- ContextList.LoadFromFile(Path+'\Context.dat');
-
- if ContextList.Count=0 then
- begin
- _DelTree(Path);
- SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //刪除顯示中的影像
-var
- i : Integer;
- DelFile : String;
-begin
- for i := 0 to NowShowFileList.Count - 1 do
- begin
- DelFile := NowShowFileList.Strings[i];
- DeleteFile(Path+DelFile);
- SetContextList('D',-1,NowCaseno,NowDocNo,DelFile);
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數
-var
- P : String;
-begin
- Result := 0;
- If FindSQLData(Doc_Inf_List,'FORM_PAGES','DOC_NO,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) Then
- begin
- P := GetFindResult('FORM_PAGES');
- if P <> '' then
- Result := strtoint(P)
- else
- Result := 0;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //取案件裡的文件_版本頁數
-var
- i,n,Count : integer;
- S, S2 : TStringlist;
- FormCode,iPage : String;
- docInt,tempInt:integer;
- v,v2:integer;
-begin
- Count := 0;
- docInt:=0;
- tempInt:=0;
- S := TStringlist.Create;
- S2 := TStringlist.Create;
-//ShowMessage('page='+IntToStr(Pages));
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
- S2.LoadFromFile(ImageSavePath+CaseID+'\upload\DocDir.dat'); //2017 1220 改成只承認第一份的
-
- for I := 1 to pages do //從0到pages-1 改成 1到pages 20170316 這樣可以修改檢核的頁數問題
- begin
- iPage := Add_Zoo(i,2);
- for n := 0 to S.Count - 1 do
- begin
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[n]) then
- begin
- Continue;
- end;
- end;
-
- if (Length(S2.Strings[n])>8) and (Pos(DocNo,S2.Strings[n])<>0) then //2017 1220 改成只承認第一份的
- begin
-//LogFile1.LogToFile(logTimeString+'有進'+docno+','+S2.Strings[n]+IntToStr(Pos(DocNo,S2.Strings[n])));
- v:=Pos('(',S2.Strings[n]);
- v2:=Pos(')',S2.Strings[n]);
- tempInt:=StrToInt(Copy(S2.Strings[n],v+1,v2-v-1));
-
- if docInt=0 then
- begin
- docInt:=tempInt;
- end;
- if docInt<>tempInt then
- begin
-//LogFile1.LogToFile(logTimeString+'docInt='+IntToStr(docInt)+',tempInt='+IntToStr(tempInt));
- Result := Count;
- Break;
- end;
- end;
-
- FormCode := FileName2FormCode(S.Strings[n]);
-//LogFile1.LogToFile(logTimeString+'S.Strings[n]='+S.Strings[n]);
-//Showmessage('1:'+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
-//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
-LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
-//ShowMessage(DocNo+','+IntToStr(docInt)+','+IntToStr(tempInt));
-//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
- if (version = FormCode2Version(FormCode)) and (DocNo = FormCode2DocNo(FormCode)) and (ipage = FormCode2Page(FormCode)) then
- begin
-LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
-//Showmessage(version+','+DocNo+',iPage='+iPage);
-//Showmessage(inttostr(Count+1));
- Inc(Count);
- Break; //找到了...離開
- end;
- end;
- end;
- finally
- S.Free;
- S2.free;
- end;
- Result := Count;
-end;
-
-Function TCB_IMGPSScanX.FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數
-var
- i,Count : integer;
- S : TStringlist;
- iFormCode : String;
-begin
- Count := 0;
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
- for i := 0 to S.Count - 1 do
- begin
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]) then
- begin
- Continue;
- end;
- end;
- iFormCode := FileName2FormCode(S.Strings[i]);
- if FormCode = iFormCode then
- begin
- Inc(Count);
- end;
- end;
- finally
- S.Free;
- end;
- Result := Count;
-end;
-
-Function TCB_IMGPSScanX.GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數
-begin
- If FindSQLData(FORM_INF_List,'T1.MAX_PAGE','T1.FORM_ID',FormCode,0,FindResult) Then
- begin
- IF GetFindResult('T1.MAX_PAGE') = '' Then
- Result := 9999
- Else
- Result := Strtoint(GetFindResult('T1.MAX_PAGE'));
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CaseReSize(CaseID:String); //案件的影像縮放
-var
- S : TStringlist;
- FileName : String;
- i : Integer;
-begin
- {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then
- DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
- if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
- DeleteFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');
- For i := 0 to S.Count -1 do
- begin
- FileName := S.Strings[i];
- ImageReSize_FormID(CaseID,FileName); //依十字定位點做縮放
- end;
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放
-var
- FormID : String;
- DH,DW : String;
- NowW,NowH : Integer;
- ANCHOR : String; //是否有十字線
- SizeStr : String;
- S : TStringlist;
- v,v1:Integer;
- IsRecordMD5:Boolean;
-begin
- IsRecordMD5:=False;
- FormID := FileName2FormCode(FileName);
- if FormID = '' then Exit;
-
- IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
- begin
- DH := GetFindResult('T1.FORM_HEIGHT');
- DW := GetFindResult('T1.FORM_WIDTH');
- ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
- ANCHOR := Index2Anchor(ANCHOR);
-Display1.Lines.Add(FormID+','+DH+','+DW);
-//ShowMessage('AAAAAAAAA');
- if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
- begin
-//ShowMessage('BBBBBBB');
- ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);
-
- if (FWH_category='N') and ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName) then
- begin
- Exit;//20171103 補件 原有的圖不作resize
- end;
-
- //FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH);
- FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
-
- SizeStr := CheckSize(ISB_BW,UpLPoint,UpRPoint,DownLPoint,DW,DH);
- ImageResize(ImageScrollBox1.Graphic,ISB_BW.Graphic.Width,ISB_BW.Graphic.Height);
-
- FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
- v := 5;
- v1 := length(SizeStr);
- IF (SizeStr <> '') and (Copy(SizeStr,1,v) <> 'ERROR') then
- begin
-//ShowMessage('CCCCC');
- if (ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName)) and (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName))=-1) then
- begin
- IsRecordMD5:=True;
- end;
- ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);
- if IsRecordMD5 then
- begin
- reSizeExistImgList.add(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName));
- end;
-//showmessage(ImageSavePath+CaseID+'\Upload\'+FileName);
- S := TStringlist.Create; ///20110422拿掉 換成上傳才做
- if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then
- S.LoadFromFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
- //S.Add(FormCode2FormName(FormID)+' '+SizeStr);
- S.Add(FileName+','+SizeStr+#8+DateTimetoStr(Now));
- S.SaveToFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
- S.Free;
- end;
- if (Copy(SizeStr,1,v) = 'ERROR') then //未找到三個定位點
- begin
- S := TStringlist.Create;
- if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
- S.LoadFromFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
- S.Add(FileName+'-->'+Copy(SizeStr,V+1,V1-v));
- S.SaveToFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
- S.Free;
- end;
-
- ImageScrollBox1.FileName := '';
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔)
-var
- DH,DW : String;
- ANCHOR : String; //是否有十字線
- SizeStr : String;
- S : TStringlist;
-begin
- IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
- begin
- DH := GetFindResult('T1.FORM_HEIGHT');
- DW := GetFindResult('T1.FORM_WIDTH');
- ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
- ANCHOR := Index2Anchor(ANCHOR);
- if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
- begin
- ImageScrollBox1.LoadFromFile(FileName,1);
- SizeStr := CheckSize(ImageScrollBox1,UpLPoint,UpRPoint,DownLPoint,DW,DH);
- IF SizeStr <> '' then
- begin
- ImageScrollBox1.SaveToFile(FileName);
- end;
- ImageScrollBox1.FileName := '';
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
-begin
- IF ImageScrollBox1.Graphic.Empty Then Exit;
- ISB_BW.Graphic.Assign(ImageScrollBox1.Graphic);
- If ImageScrollBox1.Graphic.ImageFormat <> ifBlackWhite Then
- begin
- ConvertToBW(ISB_BW.Graphic);
- end;
-end;
-
-Function TCB_IMGPSScanX.TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件
-Var
- i,n,v: Integer;
- ZipFileList : TStringlist;
- UpFormID:String;
- pages : Integer;
- TransName : String;
- MaskPath : String;
- HaveMask : Boolean;
- S : String;
- SendData:String;
- Doc_Data,Doc_Data1 : String;
- In_Doc1,In_Doc2 : String;
- AttachYN : String; //是否有附件 Y:有 N:沒有
-
- ST1,ST2,ST3:TStringList;
- str1,str2:String;
- must_formidStr :string;
- last_add_formidstr :string;
- ScanListStr:String;
- casepath:String;
- filesizeInt:integer;
- case_page:string;
- Fname:String;
- FileRec:TSearchrec;
-begin
- Result := True;
- TransName := CaseID;
- MaskPath := Path+'MaskImg\';
- if fileExists(Path+'Context.dat') then
- begin
- ContextList.LoadFromFile(Path+'Context.dat');
- Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
- end;
-
- if FileExists(Path+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
-
- Pages := ContextList.Count;
- case_page:=IntToStr(pages);
- if (FMode = 'NSCAN') or (FMode = 'ESCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'RSCAN') then
- begin
- //Showmessage('1');
- UpformID := GetCaseFormID(Path);
- {if UpformID = '' then //20131213 yuu說不管主form
- begin
- Showmessage(_msg('取不到主FormID!!'));
- Result := False;
- DataLoading(False,False);
- Exit;
- end;}
- end;
-
- CaseResort2Scanlist(Path); //檔名照設定排序產生scanlist.dat
- //CaseResort(Path); //檔名照設定排序
- CreateFormID_FormName(Path,CaseID); //產生FormID_FormName.dat
- CreateDocNo_DocName(Path,CaseID); //產生DocNo_Name.dat
- Doc_Data := CreateDocNo_Info(CaseID); //產生保管袋文件 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
- Doc_Data1 := CreateCustDocNo_Info(CaseID); //產生自定文件 Docname,份數,頁數;Docno,份數,頁數 的回傳字串
- In_Doc1 := CreateDocnoFrom_Info(CaseID); //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
- In_Doc2 := CreateCustDocNoFrom_Info(CaseID); //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
- AttachYN := CreateAttach_Info(CaseID); //是否還有附件 Y:有 N:沒有
- ReadCaseIndex(Path);
- //LoanDoc := 'Y';
- //產生遮罩影像
-// if FWork_No = 'CW' then
-// HaveMask := Case2Mask(Path,MaskPath);
- //產生遮罩影像
- // S := S +#13+'5-->'+ Timetostr(now);
-
- ///////必要formid 20170315 start //////////////////////////////
- must_formidStr:='';
- last_add_formidstr:='';
- ST1:=TStringList.Create;
- ST1.LoadFromFile(path+'FormCode_Name.dat');
-//ShowMessage(ST1.Text);
-//ShowMessage(LastInitFormidList.Text);
- ST2:=TStringList.Create;
- ST3:=TStringlist.Create;
-
- for I := 0 to ST1.Count - 1 do
- begin
- if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
- begin
- str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
- ST2.Add(str1);
- must_formidStr:= must_formidStr+str1+'@#,';
- end;
- end;
- must_formidStr:=Copy(must_formidStr,1,Length(must_formidStr)-3) ;
-//ShowMessage('must_formidStr='+must_formidStr);
-//ShowMessage('AST2='+ST2.Text);
-
-
- for I := 0 to LastInitFormidList.Count - 1 do
- begin
- if ST2.IndexOf(LastInitFormidList.Strings[i]) <> -1 then
- begin
- ST2.Delete(ST2.IndexOf(LastInitFormidList.Strings[i]));
- end;
- end;
-//ShowMessage('BST2='+ST2.Text);
- for I := 0 to ST2.Count - 1 do
- begin
- last_add_formidstr:=last_add_formidstr+ST2.Strings[i]+'@#,';
- end;
- last_add_formidstr:=Copy(last_add_formidstr,1,Length(last_add_formidstr)-3) ;
-
- ST3.LoadFromFile(path+'scanlist.dat');
- for I := 0 to ST3.Count - 1 do
- begin
- if ScanListStr = '' then
- ScanListStr := FileName2FormCode(ST3.Strings[i])
- else
- ScanListStr := Format('%s,%s',[ScanListStr,FileName2FormCode(ST3.Strings[i])]);
- end;
-
- ST1.Free;
- ST2.Free;
- ST3.Free;
-//ShowMessage('last_add_formidstr='+last_add_formidstr);
- ///////必要formid 20170315 end //////////////////////////
-
- ///保留外部影像 start///////////////////////////////
- casepath:= Copy(Path,1,pos('Upload',path)-1);
-//ShowMessage('casepath='+casepath);
-//FIsExternal:='Y';
- if (FMode='ESCAN') and (FIsExternal='Y') then
- begin
- if FileExists(casepath+'Download\FirstImg.zip') then
- begin
- CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);
- end
- else
- begin
- CopyFile(PWChar(casepath+'Download\'+CaseID+'.zip'),PWChar(path+'FirstImg.zip'),false);
- end;
- end;
- ///保留外部影像 end///////////////////////////////
-
- //file_size 計算 就先不做 20170316
- filesizeInt:=0;
-
-
- //////壓檔/////
- ZipMainFile(Path,Path,'Img.zip');
- if HaveMask then
- ZipMaskFile(Path,MaskPath,Path,'MaskImg.zip'); //有遮罩設定的才產生
- /////壓檔////
- ///檢查上傳的zip大小////
- FName :=Path+ 'Img.zip';
-
- FindFirst(FName, faAnyfile, FileRec);
-
- //FMaxUploadSize
-//ShowMessage(IntToStr(FileRec.Size));
-//Result:=False;
-//exit; //目前上傳檔案大小為xxMB，已超過50MB，無法上傳 %.3f ,[FileRec.Size / 1048576]
- If FileRec.Size > StrtoInt(FMaxUploadSize) * 1048576 Then // 檢查檔案大小
- Begin
- ShowMessage(Format(_Msg('%s目前上傳檔案大小為%.3fMB，已超過%sMB，無法上傳'),[caseid,FileRec.Size / 1048576,FMaxUploadSize]));
- //ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) );
- FindClose(FileRec);
- Result := False;
- Exit;
- End;
- FindClose(FileRec);
- ///檢查上傳的zip大小////
-//ShowMessage('last_add_formidstr='+last_add_formidstr);
- if not GetftpInfo(CaseID,'upload') then //取案件上傳方式
- begin
- //Showmessage(_Msg()Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
- DownFileErrStr := _Msg('取案件上傳資訊失敗!!')+HttpErrStr;
- Result := False;
- Exit;
- end;
- SendData:='data='+HTTPEncode(UTF8Encode(FData))
- +'&verify='+FVerify
- +'&form_id='+UpformID
- +'&loan_doc='+Case_loandoc
- +'&case_no='+TransName
- +'&doc_data='+HTTPEncode(UTF8Encode(Doc_Data))
- +'&doc_data1='+HTTPEncode(UTF8Encode(Doc_Data1))
- +'&attach='+AttachYN
- +'&case_page='+case_page
- +'&file_size='+IntToStr(filesizeInt)
- +'&must_formid='+must_formidStr //擁有的 formid
- +'&last_add_formid='+last_add_formidstr //當次新加的 formid
- +'&form_code='+ScanListStr //scanlist.dat 表單代號
- +'&ftp_image_path='+FFtpExtraPath //加傳FTP目錄 HTTP上傳時會是空白
- +'&in_doc1='+HTTPEncode(UTF8Encode(In_Doc1))
- +'&in_doc2='+HTTPEncode(UTF8Encode(In_Doc2));
-
- case TransMode of
- tsHttp :
- begin
- ////上傳/////
- ShowText := CaseID+_Msg('資料上傳中(Http),請稍候');
- DataLoading(True,True);
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then
- begin
- Showmessage(Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
- Result := False;
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(Format(_Msg('')+_Msg(''),[CaseID])+memo1.Lines.Strings[1]+'。');
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(Format(_Msg('')+_Msg('')+_Msg('閒置過久或被登出,請重新登入'),[CaseID]));
- Result := False;
- Exit;
- end;
- ////上傳////
- end;
- tsFtp :
- begin
- ShowText := CaseID+_Msg('資料上傳中(Ftp),請稍候');
- DataLoading(True,True);
- SetFtpInfo;
- try
- if not IIS_Ftp.FtpsConnect then
- begin
- Showmessage(Format('無法連上Ftp主機,錯誤原因:%s',[FtpErrReason]));
- Result := False;
- Exit;
- end;
- if not IIS_Ftp.FtpsToMain(FFtpExtraPath,CaseID+'.zip',Path+'Img.zip',display1) then
- begin
- Showmessage(Format(_msg('上傳案件(%s)時,發生錯誤,錯誤原因:%s'),[CaseID,FtpErrStr]));
- Result := False;
- Exit;
- end;
-
- if not FtpCaseComplete(SendData) then //Ftp上傳後通知完成
- begin
- Showmessage(Format(_Msg('通知案件(%s)Ftp上傳完成時,發生錯誤!!'),[CaseID])+HttpErrStr);
- Result := False;
- Exit;
- end;
- finally
- IIS_Ftp.FtpsClose;
- end;
- end;
-
- end;
-
-
- if FMode = 'ESCAN' then //上傳舊件引入檔案 //20140616 原本先搬舊件再搬新件,改為先搬新件再搬舊件
- begin
- if not TransOldCaseFile(ImageSavePath+CaseID+'\') then
- begin
- Result := False;
- Exit;
- end;
- end;
- // 呼叫Server完成 /////
- {If not CaseComplete(Path,CaseID,MainCase) Then
- begin
- Showmessage(_Msg('通知案件傳送完成時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Result := False;
- Exit;
- end; }
- /// 呼叫Server完成////
-
- ////刪檔////
- //_DelTree(Path); //會只刪TransPath
-//ShowMessage('STOP');
- _DelTree(ImageSavePath+CaseID);
- SetCaseList('D',-1,CaseID);
- ////刪檔////
-end;
-
-Procedure TCB_IMGPSScanX.NewTreeNodeRefresh;
-var
- v : Integer;
-begin
- //v := Pos('-',NewTreeNode.Text);
- //NewTreeNode.Text := Copy(NewTreeNode.Text,1,v-1)+'-共'+inttostr(NewTreeNode.Count)+'筆';
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
-end;
-
-Procedure TCB_IMGPSScanX.MyTreeNode1Refresh;
-var
- v : Integer;
-begin
- v := Pos('-',MyTreeNode1.Text);
- MyTreeNode1.Text := Format(_Msg('%s-%d筆'),[Copy(MyTreeNode1.Text,1,v-1),MyTreeNode1.Count]);
-end;
-
-Procedure TCB_IMGPSScanX.MyTreeNode2ReFresh(CaseID:String);
-var
- P : Integer;
-begin
- //p:= ContextList.Count;
- //MytreeNode1.Text := Format(_Msg('%s-%d頁'),[CaseID,p]);
- DrawDocItem2(MytreeNode1,CaseID);
- //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
-end;
-
-Procedure TCB_IMGPSScanX.MyTreeNode3ReFresh(CaseID:String);
-begin
-
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID); //201408280改
- DrawDocItem2(MytreeNode1,CaseID);
- //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
-end;
-
-Function TCB_IMGPSScanX.Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來
-var
- v,v1,v2 : Integer;
-begin
- v := Posend('{',Node2.Text);
- v1 := Posend('}',Node2.Text);
- v2 := Posend('-',Node2.Text);
- Result := Copy(Node2.Text,v+1,v1-v-1);
- IF v1 = 0 Then
- begin
- Result := '';
- end;
-end;
-
-Function TCB_IMGPSScanX.Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來
-var
- v,v1,v2 : Integer;
-begin
- v := Posend('{',Node3.Parent.Text);
- v1 := Posend('}',Node3.Parent.Text);
- v2 := Posend('-',Node3.Parent.Text);
- Result := Copy(Node3.Parent.Text,v+1,v1-v-1);
- IF v1 = 0 Then
- begin
- Result := '';
- end;
-end;
-
-Function TCB_IMGPSScanX.Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來
-var
- v,v1,v2 : Integer;
-begin
- v := Pos('{',Node3.Text);
- v1 := Pos('}',Node3.Text);
- v2 := Posend('-',Node3.Text);
- Result := Copy(Node3.Text,v+1,v1-v-1);
- IF v1 = 0 Then
- begin
- Result := '';
- end;
-end;
-
-
-Function TCB_IMGPSScanX.GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
-var
- v : Integer;
-begin
- v := Posend('-',Node2.Text);
- Result := Copy(Node2.Text,1,v-1);
-end;
-
-{Function TCB_IMGPSScanX.Down_Replace_Img(SPath,DPath,CaseID:String):Boolean;
-var
- EnCodeDateTime : String;
- DownUrl : String;
- SC,Main_C : TStringlist;
- i,n : Integer;
- FormID,DocNo,Version : String;
- OldFName,NewMainFName,NewSubFName : String;
- AttPath : String;
-begin
- SC := TStringlist.Create;
- Main_C := TStringlist.Create;
- try
- Result := True;
- HaveAppDoc := False;
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- DownUrl := FUrl+CaseID+'&checktime='+EnCodeDateTime;
- if not dnFile(HTTPSClient,DownUrl,'','',DPath+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if Memo1.Lines.Strings[0] = '1' then
- begin
- HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- AttPath := DPath + 'AttFile\';
- if FileExists(DPath+CaseID+'.zip') then
- begin
- ExecuteUnZip(DPath+CaseID+'.zip',DPath,True);
- if FileExists(DPath+'img.zip') then
- begin
- ExecuteUnZip(DPath+'img.zip',DPath,False);
- end;
- if FileExists(DPath+'att.zip') then
- begin
- Str2Dir(AttPath);
- ExecuteUnZip(DPath+'att.zip',AttPath,False);
- end;
- end
- Else
- begin
- if ((FMode = 'FSCAN') or (FMode = 'ISCAN')) and (Memo1.Lines.Strings[0] ='NO_FILE') then //FGIS前台匯入件沒有影像是對的
- begin
- SC.Clear;
- SC.SaveToFile(DPath+'Context.dat');
- end
- Else
- begin
- HttpErrStr := _Msg('找不到影像');
- Result := False;
- Exit;
- end;
- end;
-
-
- if FileExists(SPath+'Context.dat') then
- SC.LoadFromFile(SPath+'Context.dat');
- for I := 0 to SC.Count - 1 do
- begin
- FormID := FileName2FormCode(SC.Strings[i]);
- DocNo := FormCode2DocNo(FormID);
- Version := FormCode2Version(FormID);
- If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
- begin
- if GetFindResult('ADD_SCAN_RULE') = 'R' then //替換的先刪再加 20101026 User由刪FormCode改刪DocNo
- begin
- //DeleteFormCodeFile(DPath,FormID);
- ContextList.LoadFromFile(DPath+'Context.dat');
- DeleteDocNoFile(DPath,DocNo);
- end;
- end;
- end;
- for I := 0 to SC.Count - 1 do //複製補充進來的影像
- begin
- OldFName := SC.Strings[i];
- Main_C.LoadFromFile(DPath+'Context.dat');
- //NewMainFName:= Add_Zoo(Main_C.Count+1,3)+Copy(OldFName,4,length(OldFName)-3);
- NewMainFName:= Add_Zoo(Main_C.Count+1,3)+FileName2NoQuene_Filename(OldFName);
- FormID := FileName2FormCode(OldFName);
- DocNo := FormCode2DocNo(FormID);
- Version := FormCode2Version(FormID);
- If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
- begin
- CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
- end;
- if FormID = '' then //附件
- begin
- CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
- end;
- Main_C.Add(NewMainFName);
- Main_C.SaveToFile(DPath+'Context.dat');
- end;
- finally
- SC.Free;
- Main_C.Free;
- end;
- ///加入的電子檔匯入案件裡
- if DirectoryExists(SPath+'AttFile\') then
- AttFile_Arrange(SPath+'AttFile\',DPath+'AttFile\');
-end;}
-
-Function TCB_IMGPSScanX.DownLoadImage(Path,CaseID:String):Boolean;
-begin
- Result := True;
- if not GetftpInfo(CaseID,'download') then //取案件下載方式
- begin
- DownFileErrStr := _Msg('取案件下載資訊失敗,')+HttpErrStr;
- Result := False;
- Exit;
- end;
- case TransMode of
- tsHttp:
- begin
- ShowText := _Msg('案件下載中(Http),請稍候');
- DataLoading(True,True);
- If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
- begin
- Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- end;
- tsFtp:
- begin
- ShowText := _Msg('案件下載中(Ftp),請稍候');
- DataLoading(True,True);
- SetFtpInfo;
-
- if not IIS_Ftp.FtpsConnect then
- begin
- DownFileErrStr := Format(_Msg('無法連上Ftp主機,錯誤原因:%s')+#13+'%s',[FtpErrReason,FTPSClient1.LastReceivedReply]);
- Result := False;
- Exit;
- end;
- if not IIS_Ftp.FtpsDownloadFile(FFtpExtraPath,CaseID+'.zip',Path+CaseID+'.zip',display1) then
- begin
- DownFileErrStr := Format(_Msg('錯誤原因:%s'),[FtpErrStr]);
- Result := False;
- Exit;
- end;
- ExecuteUnZip(Path+CaseID+'.zip',Path,False);
- DeleteFile(Path+CaseID+'.zip');
- end;
- end;
-end;
-
-
-Function TCB_IMGPSScanX.Down_Img(Path,CaseID:String):Boolean;
-var
- EnCodeDateTime : String;
- SendData : String;
- AttPath : String;
-begin
- Result := True;
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ///service/slic/SLIC04/case?data=&verify=&case_no=&file=
- SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&file=';
-//ShowMessage(SendData);
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if Memo1.Lines.Strings[0] = '1' then
- begin
- HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1]+'。';
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-//ShowMessage('替換zip');
- AttPath := Path + 'AttFile\';
- if FileExists(Path+CaseID+'.zip') then
- begin
- ExecuteUnZip(Path+CaseID+'.zip',Path,True);
- if FileExists(Path+'img.zip') then
- begin
- ExecuteUnZip(Path+'img.zip',Path,False);
- end;
- if FileExists(Path+'att.zip') then
- begin
- Str2Dir(AttPath);
- ExecuteUnZip(Path+'att.zip',AttPath,False);
- end;
- end
- Else
- begin
- HttpErrStr := _Msg('找不到影像');
- Result := True;
- Exit;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //取未配號XXXX
-var
- i : Integer;
-begin
- for i := 1 to 9999 do
- begin
- if Not DirectoryExists(Path+_Msg('未配號')+Add_Zoo(i,4)) then
- begin
- Result := _Msg('未配號')+Add_Zoo(i,4);
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno排)
-var
- i,n,v,v1 : Integer;
- S,S1 : TStringlist;
- FormID,OldName,NewName,DocNo,Doc_Type:String;
- x : Integer;
-begin
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- X := 0;
- {for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- if FormCode2FileName(FormID,S) = '' then
- Continue;
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
-
- {for I := 0 to FORM_INF_List.Count - 1 do //次文件 照FormID 1~8碼+掃瞄順序排 20110512為了某個文件要先打的原因要求改
- begin
- for n := 0 to S.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- if (S.Strings[n][1] <> '*') and (Copy(FileName2FormCode(S.Strings[n]),1,8) = Copy(FormID,1,8)) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
- for I := 0 to Doc_Inf_List.Count - 1 do //主文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
- begin
- DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
- if DocNo2FileName(DocNo,S) = '' then
- Continue;
- Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='1') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
-
- for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
- begin
- DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
- if DocNo2FileName(DocNo,S) = '' then
- Continue;
- Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
- {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for i := 0 to FORM_INF_List.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
- for i := 0 to S.Count - 1 do //FormID沒設定的或附件
- begin
- if S.Strings[i][1] <> '*' then
- begin
- Inc(X);
- OldName := S.Strings[i];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
- S.Strings[i] := '*'+S.Strings[i];
- S1.Add(OldName+','+NewName);
- end;
- end;
- S.Clear;
- for i := 0 to S1.Count - 1 do //開始轉換檔名
- begin
- v := Pos(',',S1.Strings[i]);
- v1 := length(S1.Strings[i]);
- OldName := copy(S1.Strings[i],1,v-1);
- NewName := copy(S1.Strings[i],v+1,v1-v);
- if FileExists(Path+OldName) then
- begin
- ReNameFile(Path+OldName,Path+NewName);
- S.Add(NewName);
- S.SaveToFile(Path+'Context.dat');
- end;
- end;
- ReSortFileName(Path);
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
-var
- i,n,v,v1 : Integer;
- S,S1 : TStringlist;
- FormID,OldName,NewName,DocNo,Doc_Type:String;
- x : Integer;
-begin
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- S.LoadFromFile(Path+'Context.dat');
- X := 0;
- for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- if FormCode2FileName(FormID,S) = '' then
- Continue;
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
- for I := 0 to FORM_INF_List.Count - 1 do //次文件 照SQL排 20110512為了某個文件要先打的原因要求改
- begin
-
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- if FormCode2FileName(FormID,S) = '' then
- Continue;
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
- {for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
- begin
- DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
- Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
-
- {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
- begin
- for i := 0 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
- for i := 0 to S.Count - 1 do //FormID沒設定的或附件
- begin
- if S.Strings[i][1] <> '*' then
- begin
- Inc(X);
- OldName := S.Strings[i];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
- S.Strings[i] := '*'+S.Strings[i];
- S1.Add(OldName+','+NewName);
- end;
- end;
-
- S.Clear;
- for i := 0 to S1.Count - 1 do //開始轉換檔名
- begin
- v := Pos(',',S1.Strings[i]);
- v1 := length(S1.Strings[i]);
- OldName := copy(S1.Strings[i],1,v-1);
- NewName := copy(S1.Strings[i],v+1,v1-v);
- //if FileExists(Path+OldName) then
- //begin
- //ReNameFile(Path+OldName,Path+NewName);
- S.Add(NewName);
- S.SaveToFile(Path+'scanlist.dat');
- //end;
- end;
- ReSortFileName2Scanlist(Path);
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
-var
- i,n,v : Integer;
- S : TStringlist;
- FormCode,DocNo,Ver : String;
- Doc_Ver : String;
- Exists : Boolean;
-begin
- S := TSTringlist.Create;
- try
- DocNo_VerinCase.Clear;
- S.LoadFromFile(Path+'Context.dat');
- for I := 0 to S.Count - 1 do
- begin
- if FWH_category='N' then
- begin
- if (ISExistImg(Path+S.Strings[i])) or (reSizeExistImgList.IndexOf(LoadFileGetMD5(Path+S.Strings[i]))<>-1) then
- begin
- Continue;
- end;
- end;
- FormCode := FileName2FormCode(S.Strings[i]);
- DocNo := FormCode2DocNo(FormCode);
- Ver := FormCode2Version(FormCode);
- if (Docno <> '') and (Ver <> '') then
- begin
- Doc_Ver := DocNo+'_'+Ver;
- Exists := False;
- for n := 0 to DocNo_VerinCase.Count-1 do
- begin
- if Doc_Ver = DocNo_VerinCase.Strings[n] then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- DocNo_VerinCase.Add(Doc_Ver);
- end;
- end;
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DistinctDocNoinCase(Path:String); //列出案件裡的Docno
-var
- i,n,v : Integer;
- S : TStringlist;
- FormCode,DocNo,Ver : String;
- Exists : Boolean;
-begin
- S := TSTringlist.Create;
- try
- CaseDocNoList.Clear;
- S.LoadFromFile(Path+'Context.dat');
- for I := 0 to S.Count - 1 do
- begin
- FormCode := FileName2FormCode(S.Strings[i]);
- DocNo := FormCode2DocNo(FormCode);
- if (Docno <> '') then
- begin
- Exists := False;
- for n := 0 to CaseDocNoList.Count-1 do
- begin
- if DocNo = CaseDocNoList.Strings[n] then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- CaseDocNoList.Add(DocNo);
- end;
- end;
- finally
- S.Free;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案
-var
- i : Integer;
-begin
- if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then
- DeleteFile(ImageSavePath+CaseID+'\Checkerr.ini');
- if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
- DeleteFile(ImageSavePath+CaseID+'\CheckMemo.dat');
- {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then //20110421拿掉 因為記錄會不見
- DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
- if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
- DeleteFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
- if FileExists(ImageSavePath+CaseID+'\OMRCheckOk.dat') then
- DeleteFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
- CaseHelpBtn.Visible := False;
- CaseNode.ImageIndex := 2;
- CaseNode.SelectedIndex := 2;
-end;
-
-Procedure TCB_IMGPSScanX.SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
-begin
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- case Mode of
- 'A':begin
- CaseList.Add(Text);
- end;
- 'I':begin
- CaseList.Insert(Index,Text);
- end;
- 'E':begin
- CaseList.Strings[Index] := Text;
- end;
- 'D':begin
- if Index <> -1 then
- CaseList.Delete(Index)
- Else if (text <> '') then
- begin
- for i := 0 to CaseList.Count - 1 do
- begin
- if Text = CaseList.Strings[i] then
- begin
- CaseList.Delete(i);
- Break;
- end;
- end;
- end;
- if CaseList.Count = 0 then
- DeleteFile(ImageSavePath + 'CaseList.dat');
- end;
- end;
- if CaseList.Count > 0 then
- CaseList.SaveToFile(ImageSavePath+'CaseList.dat');
-end;
-
-Procedure TCB_IMGPSScanX.SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
- CaseDocNoList : TStringlist;
- CaseDocNo_copiesList : TStringlist;
-begin
- CaseDocNoList := TStringlist.Create;
- CaseDocNo_CopiesList := TStringlist.Create;
- try
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
- if FileExists(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
- case Mode of
- 'A':begin
- CaseDocNoList.Add(DocDir);
- CaseDocNo_CopiesList.Add(Copies);
- SetRecordEditedDocDir('A',CaseNo,DocDir);
- end;
- 'I':begin
- CaseDocNoList.Insert(Index,DocDir);
- CaseDocNo_CopiesList.Insert(Index,Copies);
- end;
- 'E':begin
- CaseDocNoList.Strings[Index] := DocDir;
- CaseDocNo_CopiesList.Strings[Index] := Copies;
- end;
- 'D':begin
- if Index <> -1 then
- begin
- //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[Index]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
- SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[Index]); //20170912 要刪除 不然我寫不下去
-
- CaseDocNoList.Delete(Index);
- CaseDocNo_CopiesList.Delete(Index);
-
- end
- Else if (DocDir <> '') then
- begin
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- if DocDir = CaseDocNoList.Strings[i] then
- begin
- //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[i]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
- SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[i]); //20170912 要刪除 不然我寫不下去
- CaseDocNoList.Delete(i);
- CaseDocNo_CopiesList.Delete(i);
- Break;
- end;
- end;
- end;
- if ContextList.Count = 0 then
- begin
- DeleteFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
- end;
- end;
- end;
- //Showmessage('abc'+#13+ImageSavePath+CaseNo+'\CaseDocNo.dat'+#13+inttostr(CaseDocNoList.Count)+#13+CaseDocNoList.Text);
- if CaseDocNoList.Count >= 0 then
- begin
- CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
- CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
- //Showmessage('存了');
- end;
- finally
- CaseDocNoList.Free;
- CaseDocNo_CopiesList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
- //DocNo:String;
-begin
- //DocNo := FormCode2DocNo(FileName2FormCode(FileName));
-//ShowMessage('FileName='+FileName);
- if DocDir = '' then
- DocDir := AttName ; //附件
- ContextList.Clear;
- if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then
- ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
- SetRecordEditedDocDir('A',CaseNo,DocDir); //記錄文件有異動
- case Mode of
- 'A':begin
- ContextList.Add(FileName);
- end;
- 'I':begin
- ContextList.Insert(Index,FileName);
- end;
- 'E':begin
- ContextList.Strings[Index] := FileName;
- end;
- 'D':begin
- if Index <> -1 then
- begin
- ContextList.Delete(Index);
- end
- Else if (text <> '') then
- begin
- for i := 0 to ContextList.Count - 1 do
- begin
- if FileName = ContextList.Strings[i] then
- begin
- ContextList.Delete(i);
- Break;
- end;
- end;
- end;
- if ContextList.Count = 0 then
- DeleteFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
- end;
- end;
- if ContextList.Count > 0 then
- begin
- ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
-begin
- AttContextList.Clear;
- if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then
- AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');
- case Mode of
- 'A':begin
- AttContextList.Add(FileName);
- end;
- 'I':begin
- AttContextList.Insert(Index,FileName);
- end;
- 'E':begin
- AttContextList.Strings[Index] := FileName;
- end;
- 'D':begin
- if Index <> -1 then
- begin
- AttContextList.Delete(Index);
- end
- Else if (text <> '') then
- begin
- for i := 0 to AttContextList.Count - 1 do
- begin
- if FileName = AttContextList.Strings[i] then
- begin
- AttContextList.Delete(i);
- Break;
- end;
- end;
- end;
- if AttContextList.Count = 0 then
- DeleteFile(ImageSavePath+CaseNo+'\AttContext.dat');
- end;
- end;
- if AttContextList.Count > 0 then
- begin
- AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');
- end;
-end;
-
-Function TCB_IMGPSScanX.checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核
-var
- i : Integer;
-begin
- Result := True;
- for I := 0 to NewTreeNode.Count - 1 do
- begin
- if NewTreeNode.Item[i].ImageIndex <> 7 then
- begin
- Result := False;
- Break;
- end;
- end;
-end;
-
-function TCB_IMGPSScanX.checkFormCodeIsCustom(path, formcode: string): boolean;
-var
- i:integer;
- ini : Tmeminifile;
- str1:String;
-begin
-//ShowMessage(path);
- ini := Tmeminifile.Create(Path+'CustomDocNo.ini');
- str1:=ini.ReadString(Copy(formcode,1,8),'FormID','');
-//ShowMessage('str1'+str1);
- if str1 = formcode then
- begin
- Result:=True;
- end
- else
- begin
- Result := False;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.CheckCaseID_OK:Boolean; //檢查是否有未配號的案件
-var
- i,n : Integer;
-begin
- Result := True;
- for i := 0 to NewTreeNode.Count - 1 do
- begin
- if Pos(_msg('未配號'),NewTreeNode.Item[i].Text) > 0 then
- begin
- Result := False;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckCaseAttach_OK:Boolean; //檢查是否有未歸類的案件
-var
- i,j : Integer;
-begin
- Result := True;
- for i := 0 to NewTreeNode.Count - 1 do
- begin
- for j := 0 to NewTreeNode.Item[i].Count - 1 do
- begin
- if Pos(_msg('未歸類'),NewTreeNode.Item[i].Item[j].Text) > 0 then
- begin
- Result := False;
- Break;
- end;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用)
-var
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- S.SaveToFile(Path+CaseID+'\Context.dat');
- S.Add(FCaseID);
- S.SaveToFile(Path+'CaseList.dat')
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.InitScrollRec;
-var i : Integer;
-begin
- for I := 1 to 8 do
- begin
- ScrollRec[i].HScroll := 0;
- ScrollRec[i].VScroll := 0;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single);
-var
- index : Integer;
-begin
- index := strtoint(copy(ISB.Name,4,1));
- HS := ScrollRec[Index].HScroll;
- VS := ScrollRec[Index].VScroll;
- iRate := ScrollRec[Index].Rate;
-end;
-
-Procedure TCB_IMGPSScanX.SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single);
-var
- index : Integer;
-begin
- index := strtoint(copy(ISB.Name,4,1));
- ScrollRec[Index].HScroll := HS;
- ScrollRec[Index].VScroll := VS;
- ScrollRec[Index].Rate := iRate;
-end;
-
-Procedure TCB_IMGPSScanX.FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID
-var
- i : Integer;
- OldFileList,NewFileList : TStringlist;
- NewDocNo,NewDocDir:String;
- FormID : String;
- OldFile,NewFile:String;
- Ext : String;
- ST1:TStringList;
-begin
- ST1:=TStringList.Create;
- OldFileList := TStringlist.Create;
- NewFileList := TStringlist.Create;
- try
- NewDocNo := FormCode2DocNo(NewFormID);
- NewDocDir := FindLastestDocDir(CaseID,NewDocNo);
-
- /////20190319 Hong 原本的程式判斷怪怪的先Mark在下方,改用這段
- if DocNoNeedDiv(NewDocNo) then //要分份數
- begin
- if ((FormCode2Page(NewFormID) = '01') and (GetDocDir_Page(CaseID,NewDocDir)>0)) or (NewDocDir = '') then
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
- end
- else
- begin //20171016 真對補件影響 所加的判斷
- ST1.Clear;
- if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');
- if (ST1.Count > 0) and ISExistImg(ImageSavePath + CaseID+'\'+NewDocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
- end;
- end;
- end;
- end
- Else //不分份數
- begin
- if NewDocNo <> '' then
- NewDocDir := NewDocNo
- else //Attach 附件
- NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
- end;
-
- {if NewDocDir = '' then
- begin
- if DocNoNeedDiv(NewDocNo) then
- begin
- NewDocDir:=DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
- end
- else
- begin
- NewDocDir := NewDocNo;
- end;
- end;
-//ShowMessage('NewDocDir='+NewDocDir);
- if DocNoNeedDiv(NewDocNo) and (FormCode2Page(NewFormID)='01') then
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',NewDocNo);
- end
- else
- begin
- ST1.Clear;
- if FileExists(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat');
- if ISExistImg(ImageSavePath + NowCaseno+'\'+NewDocDir+'\'+ST1.Strings[0]) then
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
- end;
- end;
- end; }
- if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then
- begin
- MkDir(ImageSavePath+CaseID+'\'+NewDocDir);
- SetDocNoList('A',-1,CaseID,NewDocDir,'1');
- end;
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- OldFileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- if FileExists(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat') then
- NewFileList.LoadFromFile(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat');
- for i := 0 to OldFileList.Count - 1 do
- begin
- OldFile := OldFileList.Strings[i];
- Ext := ExtractFileExt(OldFile);
- if FileName2FormCode(OldFile) = OldFormID then
- begin
- NewFile := Add_Zoo(NewFileList.Count+1,3)+'_'+NewFormID+Ext;
- CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);
- NewFileList.Add(NewFile);
- SetContextList('A',-1,CaseID,NewDocDir,NewFile);
- end;
- end;
- DeleteFormCodeFile(CaseID,DocDir,OldFormID);
-
- {for i := 0 to S.Count - 1 do
- begin
- FormID := FileName2FormCode(S.Strings[i]);
- if FormID = OldFormID then
- begin
- OldFile := S.Strings[i];
- Ext := ExtractFileExt(OldFile);
- //NewFile := Copy(S.Strings[i],1,3)+'_'+NewFormID+Ext;
- NewFile := Add_Zoo(FileName2ScanPage(S.Strings[i]),3)+'_'+NewFormID+Ext;
- ReNameFile(Path+OldFile,Path+NewFile);
- S.Strings[i] := NewFile;
- end;
- end;
- S.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat'); }
-
- finally
- OldFileList.Free;
- NewFileList.Free;
- ST1.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID
-var
- i,n : Integer;
- OldFile,NewFile:String;
- Ext : String;
-begin
- for i := 0 to NowShowFileList.Count - 1 do
- begin
- OldFile := NowShowFileList.Strings[i];
- Ext := ExtractFileExt(OldFile);
- NewFile := Add_Zoo(FileName2ScanPage(OldFile),3)+'_'+NewFormID+Ext;
- ReNameFile(Path+OldFile,Path+NewFile);
- SetContextList('E',FileName2Index(OldFile),NowCaseno,NowDocNo,NewFile);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID
-var
- i,n : Integer;
- S,S1 : TStringlist;
- OldFile,NewFile:String;
- Ext : String;
-begin
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- for i := 0 to S.Count - 1 do
- begin
- if NowFormID = 'ALL' then
- S1.Add(S.Strings[i])
- Else if NowFormID = 'Err' then
- begin
- if not FormIDExists(FileName2FormCode(S.Strings[i]),False,0) then
- S1.Add(S.Strings[i])
- end
- Else
- begin
- if NowFormID = FileName2FormCode(S.Strings[i]) then
- S1.Add(S.Strings[i])
- end;
- end;
- for I := 0 to PageLV.Items.Count - 1 do
- begin
- if PageLV.Items.Item[i].Selected then
- begin
- OldFile := S1.Strings[i];
- Ext := ExtractFileExt(OldFile);
- //NewFile := Copy(S1.Strings[i],1,3)+'_'+NewFormID+Ext;
- NewFile := Add_Zoo(FileName2ScanPage(S1.Strings[i]),3)+'_'+NewFormID+Ext;
- ReNameFile(Path+OldFile,Path+NewFile);
- for n := 0 to S.Count - 1 do
- begin
- if OldFile = S.Strings[n] then
- S.Strings[n] := NewFile;
- end;
- end;
- end;
- S.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat');
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核
-begin
- Result := False;
- if Pos(ScanMode,OMRMode) > 0 then
- Result := True;
-end;
-
-Function TCB_IMGPSScanX.GetCasePage(Path,CaseID:String):Integer;
-var
- DocDirList,FileList,ST1 :TStringlist;
- iDocDir,iDocNo : String;
- i,n,Count : Integer;
-begin
- Count := 0;
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- ST1:=TStringList.Create;
- try
- if FileExists(Path+CaseID+'\CaseDocNo.dat') then
- DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');
- //Showmessage(DocDirList.Text);
- for i := 0 to DocDirList.Count - 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocno := DocNoDir2DocNo(iDocDir);
- {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
- ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
- begin
- Continue;
- end;}
- //if not DocNoAppear(iDocNo) then Continue; //20170817 先註解
-
- FileList.Clear;
- if FileExists(Path+CaseID+'\'+iDocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(Path+CaseID+'\'+iDocDir+'\Context.dat');
-
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- ST1.Clear;
- for n := 0 to FileList.Count - 1 do
- begin
- if ISExistImg(Path+CaseID+'\'+iDocDir+'\'+FileList.Strings[n]) then
- begin
- ST1.Add(FileList.Strings[n]);
- end;
- end;
-
- for n := 0 to ST1.Count - 1 do
- begin
- if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
- begin
- FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
- end;
- end;
- end
- Else
- if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該要加這段
- end;
-
-
- Count := Count+ FileList.Count;
- end;
- if FileExists(Path+CaseID+'\'+AttName+'\Context.dat') then
- begin
- FileList.LoadFromFile(Path+CaseID+'\'+AttName+'\Context.dat');
- Count := Count+ FileList.Count;
- end;
-
- Result := Count;
- finally
- DocDirList.Free;
- FileList.Free;
- ST1.free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetFormIDPage(FileList:TStringlist;FormID:String):Integer;
-var
- i,Cnt : Integer;
-begin
- Cnt := 0;
- for i := 0 to FileList.Count - 1 do
- begin
- if FormID = FileName2FormCode(FileList.Strings[i]) then
- begin
- inc(Cnt);
- end;
- end;
- Result := Cnt;
-end;
-
-Procedure TCB_IMGPSScanX.SetFile2Case(CaseID,FileName:String);
-var
- S :TStringlist;
-begin
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');
- S.Add(FileName);
- S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.WriteResize(ImgName,TxtName:String); //產生Resize.dat
-var
- TagTxt : String;
- RecHeight,RecWidth : String;
- ImgHeight,ImgWidth : String;
- S : TStringlist;
- v,v1:Integer;
-begin
- ImageScrollBox1.LoadFromFile(ImgName,1);
- ImgHeight := Inttostr(ImageScrollBox1.Graphic.Height);
- ImgWidth := Inttostr(ImageScrollBox1.Graphic.Width);
- Try
- TagTxt := GetTag(ImgName);
- Except
- TagTxt := '';
- End;
- if TagTxt <> '' then
- begin
- S := TStringlist.Create;
- try
- S.CommaText := TagTxt;
- if S.Count = 2 then
- begin
- v := Pos(':',S.Strings[0]);
- v1 := length(S.Strings[0]);
- RecHeight := Copy(S.Strings[0],v+1,v1-v);
- v := Pos(':',S.Strings[1]);
- v1 := length(S.Strings[1]);
- RecWidth := Copy(S.Strings[1],v+1,v1-v);
- end;
- S.Clear;
- if FileExists(TxtName) then
- S.LoadFromFile(TxtName);
- if (RecHeight <> '') and (RecWidth <> '') and ((RecHeight<>ImgHeight) or (RecWidth<>ImgWidth)) then
- S.Add(ExtractfileName(ImgName)+',原長:'+RecHeight+',原寬:'+RecWidth+',長變動:'+ImgHeight+',寬變動:'+ImgWidth);
- S.SaveToFile(TxtName);
- finally
- S.Free;
- end;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數
-var
- i,n,k: Integer;
- CaseList,DocList,FileList,ST1 : TStringlist;
-begin
- Result := False;
- CaseCount := 0;
- PageCount := 0;
- CaseList := TStringlist.Create;
- DocList := TStringlist.Create;
- FileList := TStringlist.Create;
- ST1:= TStringlist.Create;
- try
- ImageSavePath := ImagePath;
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- CaseCount := CaseCount+CaseList.Count;
-//ShowMessage('ImageSavePath='+ImageSavePath+#10#13+'CaseList.Count='+IntToStr(CaseList.Count));
- for i := 0 to CaseList.Count - 1 do
- begin
- DocList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') Then
- DocList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
-//ShowMessage('DocList='+DocList.Text);
- for n := 0 to DocList.Count - 1 do
- begin
-//ShowMessage(DocList.Strings[n]+','+BoolToStr(DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])),true));
- if not DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])) then Continue;
- FileList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat') Then
- FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat');
- PageCount := PageCount+FileList.Count;
- end;
- //Showmessage(inttostr(PageCount));
- FileList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat') Then
- FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
- //Showmessage(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
-//Showmessage('FileList='+FileList.Text);
- PageCount := PageCount+FileList.Count;
-//Showmessage('PageCount='+inttostr(PageCount));
- if (FWH_category='N') and (FIs_In_Wh='Y') then //20170912 針對非入庫並當次掃描做頁數計算
- begin
- if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
- for n := 0 to ST1.Count - 1 do
- begin
- if ST1.Strings[n]=AttName then Continue;
-//ShowMessage(ST1.Strings[n]+','+BoolToStr(DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])),true));
- if not DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])) then
- begin
-
- FileList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat') then
- begin
- FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat');
- for k := 0 to FileList.Count - 1 do
- begin
- if not ISExistImg(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\'+FileList.Strings[k]) then
- PageCount := PageCount+1;
- end;
- end;
- end;
- end;
- end;
- end;
- end;
- Finally
- CaseList.Free;
- DocList.Free;
- FileList.Free;
- ST1.Free
- end;
- Result := True;
-end;
-
-Function TCB_IMGPSScanX.FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼
-var
- i,n : Integer;
-begin
- Result := False;
- for i := 1 to MpsBarcodeinf.Count do
- begin
- for n := 0 to NoSaveBarCodeList.Count - 1 do
- begin
- if MpsBarcodeinf.Text[i] = NoSaveBarCodeList.Strings[n] then
- begin
- Result := True;
- Break;
- end;
- end;
- if Result then
- Break;
- end;
-end;
-
-Function TCB_IMGPSScanX.BarCode2CaseID : String; //Barcode依規則轉成CaseID
-var
- i : Integer;
- iCaseID : String;
-begin
- Result := ''; //沒找到
- iCaseID := '';
- for i := 1 to MpsBarcodeinf.Count do //20180920 拿掉-1
- begin
- if (Length(MpsBarcodeinf.text[i]) = CaseIDLength) then
- begin
- iCaseID := MpsBarcodeinf.text[i];
- Result := iCaseID;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.BarCode2FormID : String; //Barcode依規則轉成FormID
-var
- i : Integer;
- FormID : String;
-begin
- Result := ''; //沒找到
- FormID := '';
- for i := 1 to MpsBarcodeinf.Count do
- begin
- if (Length(MpsBarcodeinf.Text[i]) = FormIDLength) then
- begin
- FormID := MpsBarcodeinf.text[i];
- if not FormIDAppear(FormID) then
- FormID := '';
- end;
- if (FormID <> '') and FormIDExists(FormID,False,0) then //有可用的FormID就離開
- begin
- Result := FormID;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.WriteCaseIndex(Path:String);
-Var
- S : TStringlist;
-begin
- if Path = '' then Exit;
- S := TStringlist.Create;
- try
- try
- S.Add(Case_loandoc);
- S.SaveToFile(Path+'CaseIndex.dat');
- except on E: Exception do
- end;
-
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ReadCaseIndex(Path:String);
-Var
- S : TStringlist;
-begin
- AddCredit1RG.ItemIndex := -1;
- S := TStringlist.Create;
- try
- if FileExists(Path+'CaseIndex.dat') then
- begin
- S.LoadFromFile(Path+'CaseIndex.dat');
- Case_loandoc := S.Strings[0];
- end;
- if (Case_loandoc = '') and (FLoanDoc_Value <> '') then
- begin
- Case_loandoc := FLoanDoc_Value;
- WriteCaseIndex(Path);
- end;
- if Case_loandoc = 'Y' then
- AddCredit1RG.ItemIndex := 0
- Else if Case_loandoc = 'N' then
- AddCredit1RG.ItemIndex := 1;
-
- finally
- S.Free;
- end;
-
-end;
-
-
-procedure TCB_IMGPSScanX.ReduceLogFile; //20171011 必免log檔掌太大
-var
- ST1:TStringlist;
- I:integer;
-begin
- ST1:=TStringList.Create;
- if FileExists(LngPath+'IMGPSCheck.log') then
- begin
- ST1.LoadFromFile(LngPath+'IMGPSCheck.log');
- if ST1.count>100000 then
- begin
- for I := 0 to 10000 do
- begin
- ST1.Delete(0);
- end;
- ST1.SaveToFile(LngPath+'IMGPSCheck.log');
- end;
- end;
- ST1.Free;
-end;
-
-Procedure TCB_IMGPSScanX.ClearCaseIndex;
-begin
- AddCredit1RG.Enabled := False;
- AddCredit1RG.ItemIndex := -1;
-end;
-
-Procedure TCB_IMGPSScanX.GetSelectImageFile;
-var
- i : Integer;
- FormID,FormName,DocNo : String;
- PreNode2Name : String;
- iFormID : String;
- iISBName : String;
- iISB : TImageScrollBox;
-begin
- NowSelectFileList.Clear;
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- NowSelectFileList.Add(iISB.FileName);
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數
-var
- i : Integer;
- iDocNo : String;
-begin
- if (DocNo <> '') then
- begin
- i := 0;
- Repeat
- begin
- inc(i);
- iDocNo := Format('%s_%d',[DocNo,i]);
- end;
- until not DirectoryExists(Path+iDocNo);
- Result := iDocNo;
- end
- Else
- begin
- Result := AttName;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡
-var
- i : Integer;
-begin
- Result := False;
- for i := 0 to DocNoNode.Count - 1 do
- begin
- if FormID = Node3FormID(DocNoNode.Item[i]) then
- begin
- Result := True;
- break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄
-var
- i : Integer;
- iDocNo : String;
-begin
- if (DocNo <> '') then
- begin
- i := 0;
- Repeat
- begin
- inc(i);
- iDocNo := Format('%s(%d)',[DocNo,i]);
- end;
- until not DirectoryExists(Path+iDocNo);
- Result := iDocNo;
- end
- Else
- begin
- Result := AttName;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo
-var
- v,ln : Integer;
-begin
- if (DocNoDir <> 'Attach') and (DocNoDir <> 'S_Attach') then
- begin
- v := Pos('(',DocNoDir);
- if v > 0 then
- Result := Copy(DocNoDir,1,v-1)
- else
- Result := DocNoDir;
- end
- Else
- Result := DocNoDir
-end;
-
-Function TCB_IMGPSScanX.DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index
-var
- i : Integer;
- CaseNo_List : TStringlist;
-begin
- Result := -1;
- CaseNo_List := TStringlist.Create;
- try
- CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');
- for i := 0 to CaseNo_List.Count - 1 do
- begin
- if DocNoDir = CaseNo_List.Strings[i] then
- begin
- Result := i;
- Break;
- end;
- end;
- finally
- CaseNo_List.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ZipMainFile(SoPath,DePath,ZipName:String);
-var
- ZipFileList : TStringlist;
- n : Integer;
-begin
- ZipFileList := TStringlist.Create;
- try
- if fileExists(DePath+ZipName) then
- DeleteFile(DePath+ZipName);
- {if FileExists(SoPath+'ReSize.dat') then
- DeleteFile(SoPath+'ReSize.dat');}
- //Showmessage(SoPath+#13+ContextList.Text);
- for n := 0 to ContextList.Count - 1 do
- begin
- {WriteResize(SoPath+ContextList.Strings[n],SoPath+'ReSize.dat');}
- ZipFileList.Add(SoPath+ContextList.Strings[n]);
- if FileExists(SoPath+'@'+ContextList.Strings[n]) then
- ZipFileList.Add(SoPath+'@'+ContextList.Strings[n]);
- end;
- if FileExists(SoPath+'Context.dat') then
- ZipFileList.Add(SoPath+'Context.dat');
-
- AttContextList.Clear;
- if FileExists(SoPath+'ATTContext.dat') then
- AttContextList.LoadFromFile(SoPath+'ATTContext.dat');
- for n := 0 to AttContextList.Count - 1 do
- begin
- ZipFileList.Add(SoPath+AttContextList.Strings[n]);
- end;
- if FileExists(SoPath+'ATTContext.dat') then
- ZipFileList.Add(SoPath+'ATTContext.dat');
-
-
- if FileExists(SoPath+'Context_DocNo.dat') then
- ZipFileList.Add(SoPath+'Context_DocNo.dat');
- if FileExists(SoPath+'scanlist.dat') then
- ZipFileList.Add(SoPath+'scanlist.dat');
- if FileExists(SoPath+'FormCode_Name.dat') then
- ZipfileList.Add(SoPath+'FormCode_Name.dat');
- if FileExists(SoPath+'DocNo_Name.dat') then
- ZipfileList.Add(SoPath+'DocNo_Name.dat');
- if FileExists(SoPath+'ReSize.dat') then
- ZipfileList.Add(SoPath+'ReSize.dat');
- if FileExists(SoPath+'FormIDReplace.dat') then
- ZipfileList.Add(SoPath+'FormIDReplace.dat');
- if FileExists(SoPath+'AnchorError.dat') then
- ZipfileList.Add(SoPath+'AnchorError.dat');
- if FileExists(SoPath+'CaseDocNo.dat') then
- ZipfileList.Add(SoPath+'CaseDocNo.dat');
- if FileExists(SoPath+'CaseDocNo_Copies.dat') then
- ZipfileList.Add(SoPath+'CaseDocNo_Copies.dat');
- if FileExists(SoPath+'CustomDocNo.ini') then
- ZipfileList.Add(SoPath+'CustomDocNo.ini');
- if FileExists(SoPath+'DocDir.dat') then
- ZipfileList.Add(SoPath+'DocDir.dat');
- if FileExists(SoPath+'In_Wh.dat') then
- ZipfileList.Add(SoPath+'In_Wh.dat');
- if FileExists(SoPath+'UseCase.ini') then
- ZipfileList.Add(SoPath+'UseCase.ini');
-
- if FileExists(SoPath+'FirstImg.zip') then//20170315 加的
- begin
- ZipfileList.Add(SoPath+'FirstImg.zip');
- end;
-
-
- ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
- //Showmessage('111');
- finally
- ZipFileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔
-var
- ZipFileList : TStringlist;
- n : Integer;
-begin
- ZipFileList := TStringlist.Create;
- try
- if fileExists(DePath+ZipName) then
- DeleteFile(DePath+ZipName);
-
- for n := 0 to ContextList.Count - 1 do
- begin
- ZipFileList.Add(MarkPath+ContextList.Strings[n]);
- end;
- if FileExists(SoPath+'Context.dat') then
- ZipFileList.Add(SoPath+'Context.dat');
- if FileExists(SoPath+'scanlist.dat') then
- ZipFileList.Add(SoPath+'scanlist.dat');
- if FileExists(SoPath+'FormCode_Name.dat') then
- ZipfileList.Add(SoPath+'FormCode_Name.dat');
- if FileExists(SoPath+'DocNo_Name.dat') then
- ZipfileList.Add(SoPath+'DocNo_Name.dat');
- if FileExists(SoPath+'ReSize.dat') then
- ZipfileList.Add(SoPath+'ReSize.dat');
- if FileExists(SoPath+'Err.jpg') then
- ZipfileList.Add(SoPath+'Err.jpg');
- if FileExists(SoPath+'auth.jpg') then
- ZipfileList.Add(SoPath+'auth.jpg');
- ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
- finally
- ZipFileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ParserPoint(S:String); //解析十字點的字串
-var
- PointList : TStringlist;
- Rect : TRect;
-begin
- PointList := TStringlist.Create;
- try
- PointList.Text := S;
- IF PointList.Count <> 6 Then
- begin
- UpLPoint := Str2Point('0,0');
- UpRPoint := Str2Point('0,0');
- DownLPoint := Str2Point('0,0');
- DownRPoint := Str2Point('0,0');
- Point_Width := '0';
- Point_Height := '0';
- end
- Else
- begin
- UpLPoint := Str2Point(PointList[0]);
- DownLPoint := Str2Point(PointList[1]);
- UpRPoint := Str2Point(PointList[2]);
- DownRPoint := Str2Point(PointList[3]);
- Point_Width := PointList[4];
- Point_Height := PointList[5];
- end;
- finally
- PointList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckScanDenialTime:Boolean;
-Var
- NowTime : String;
-begin
- NowTime := GetBalance2Time(Balance);
- NowTime := Copy(NowTime,1,2)+':'+Copy(NowTime,3,2)+':'+Copy(NowTime,5,2);
- Result := True;
- if ScanDenialTime <> '' then
- begin
- if StrtoTime(NowTime) >= StrtoTime(ScanDenialTime) then
- Result := False;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormID2Anchor(FormID:String):String; //用FormID取出十字模式
-var
- Anchor : String;
-begin
- Result := 'NONE';
- IF FindSQLData(FORM_INF_List,'T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
- begin
- ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
- end;
- Result := Index2Anchor(Anchor);
-end;
-
-Function TCB_IMGPSScanX.Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME
-begin
- if Anchor = '0' then
- Result := 'NONE'
- else if Anchor = '1' then
- Result := 'ANCHOR'
- else if Anchor = '2' then
- Result := 'FRAME';
-end;
-
-procedure TCB_IMGPSScanX.ScanDuplexCBClick(Sender: TObject);
-begin
- ScanDuplex := ScanDuplexCB.Checked;
- //R_W_ScanIni('W'); //user要求改成預設後不能改
-end;
-
-procedure TCB_IMGPSScanX.ScanGrayCBClick(Sender: TObject);
-begin
-
- if ScanGrayCB.Checked then
- begin
- ScanColor:=ifGray256;
- end
- else
- begin
- if FScanColor = 0 then
- begin
- ScanColor := ifBlackWhite;
- end;
-
- if FScanColor = 1 then
- begin
- //ScanColor := ifGray256 ;
- ScanColor := ifBlackWhite; //
- end;
-
-
- if FScanColor = 2 then
- begin
- ScanColor := ifTrueColor ;
- end;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetFormatID(CaseID: string):String;
-Var
- S : TStringlist;
- FormatID : String;
-begin
- Result := '';
- S := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
- //Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號or原案件受編)
- //Result := Format_ID;
- //Handle_No := S.Strings[0]; //經辦代號
- //Cen_Uid := S.Strings[1]; //被保人ID
- //Cen_Cliname := S.Strings[2]; //被保人姓名
- //Cen_Platno := S.Strings[3]; //車號
- //Case_Priority := S.Strings[4];//案件等級
- end;
- finally
- S.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼
-var
- i : Integer;
-begin
- if Mode = 'ID' then
- begin
- Result := _Msg('自行輸入');
- for i := 0 to ID_S.Count - 1 do
- begin
- if Str = ID_S.Strings[i] then
- begin
- Result := Name_S.Strings[i];
- Break;
- end;
- end;
- end
- else if Mode = 'NAME' then
- begin
- Result := '00';
- for i := 0 to Name_S.Count - 1 do
- begin
- if Str = Name_S.Strings[i] then
- begin
- Result := ID_S.Strings[i];
- Break;
- end;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入
-var
- i : Integer;
-begin
- ToList.Clear;
- ToList.Add(ColumeStr);
- For i := 1 to FromList.Count -1 do
- begin
- ToList.Add(FromList.Strings[i]);
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值
-var
- i,col,v,v1 : Integer;
- ColStr,DataStr: TStringList;
- TmpStr : String;
- P1,p2 : Integer;
-begin
- Result := '';
- ColStr := TStringList.Create;
- DataStr := TSTringList.Create;
- ColStr.CommaText := TableList.Strings[0];
- TmpStr := TableList.Strings[ColNo];
- //DataStr.Text:=StringReplace(TmpStr,'!@!',#13,[rfReplaceAll]);
-
- While Length(Tmpstr) > 0 do
- begin
- v:= Pos('!@!',TmpStr);
- v1 := Length(TmpStr);
- If v > 0 Then
- begin
- DataStr.Add(Copy(TmpStr,1,v-1));
- TmpStr := Copy(TmpStr,v+3,V1-(V-2));
- end
- Else
- begin
- DataStr.Add(TmpStr);
- TmpStr := '';
- end;
- end;
- For i := 0 to ColStr.Count-1 do
- begin
- IF ColStr.Strings[i] = ColName Then
- begin
- Result := '';
- If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
- Result := DataStr.Strings[i];
- //If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
- //begin
- {if i = 0 then
- begin
- P1 := 1;
- p2 := PosN('!@!',TmpStr,1)-1;
- end
- else
- begin
- P1 := PosN('!@!',TmpStr,i)+3;
- p2 := PosN('!@!',TmpStr,i+1)-p1;
- end;
-
-
- Result :=Copy(tmpstr,p1,p2);}
- //end;
- //Result := DataStr.Strings[i];
-
- Break;
- end;
- end;
- ColStr.Free;
- DataStr.Free;
-end;
-
-Function TCB_IMGPSScanX.FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料
-Var i,n,Findindex : Integer;
- ColList,KeyColList,KeyList : TStringlist;
- Cols,Keycols,keys :String;
- Find:Boolean;
-begin
- ResultList.Clear;
- if (KeyStr = '') or (TableList.Count <= 1) then
- begin
- Result := False;
- Exit;
- end;
-
- ColList := TStringlist.Create;
- KeyColList := TStringlist.Create;
- KeyList := TStringlist.Create;
- try
- ColList.CommaText := ColumeStr;
- KeyColList.CommaText := KeyColumeStr;
- KeyList.CommaText := KeyStr;
- if ColNo = 0 then
- begin
- for i := 1 to TableList.Count -1 do //找key對不對
- begin
- Findindex := i;
- for n := 0 to KeyColList.Count - 1 do
- begin
- Find := True;
- Keycols := KeyColList.Strings[n];
- keys := KeyList.Strings[n];
- //Showmessage(keys);
- //Showmessage(TableList.Strings[i]);
- if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
- //if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度 //20130521發現找資料會有問題
- Continue
- Else //不對.離開
- begin
- Find := False;
- Break;
- end;
- end;
- if Find then Break; // 找到了離開
- end;
- end
- Else
- begin
- i := ColNo;
- Findindex := i;
- for n := 0 to KeyColList.Count - 1 do
- begin
- Find := True;
- Keycols := KeyColList.Strings[n];
- keys := KeyList.Strings[n];
- //if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
- if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度
- Continue
- Else //不對.離開
- begin
- Find := False;
- Break;
- end;
- end;
- end;
- if Find then //有找到key
- begin
- for n := 0 to ColList.Count -1 do
- begin
- Cols := ColList.Strings[n];
- ResultList.Add(Cols+','+GetSQLData(TableList,Cols,Findindex));
- end;
- end;
- finally
- Result := Find;
- ColList.Free;
- KeyColList.Free;
- KeyList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetFindResult(Col:String):String;
-var
- i,v,v1 : Integer;
- S,RCol,RValue : String;
-begin
- Result := '';
- for I := 0 to FindResult.Count - 1 do
- begin
- S := FindResult.Strings[i];
- v := Pos(',',S);
- v1 := length(S);
- RCol := copy(S,1,v-1);
- RValue := Copy(S,v+1,v1-v);
- if Col =RCol then
- Result := RValue;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DataLoading(Loading:Boolean;UseTimer:Boolean); //資料載入中要停止點選的動作
-begin
- If Loading Then
- begin
- Screen.Cursor := -11;
- if UseTimer then
- begin
- Panel22.Caption := ShowText;
- Panel22.Left := (Panel9.Width div 2) - (Panel22.Width div 2);
- Panel22.Top := (Panel9.Height div 2) - (Panel22.Height div 2);
- Panel22.Visible := True;
- Timer2.Enabled := True;
- end
- Else
- begin
- Panel8.Left := (Panel9.Width div 2) - (Panel8.Width div 2);
- Panel8.Top := (Panel9.Height div 2) - (Panel8.Height div 2);
- Panel8.Visible := True;
- end;
- Application.ProcessMessages;
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- end
- Else
- begin
- Panel22.Visible := False;
- Panel8.Visible := False;
- Timer2.Enabled := False;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- Screen.Cursor := 0;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.CaseHelpBtnClick(Sender: TObject);
-var
- ErrlistForm : TErrlistForm;
- S : TStringlist;
- UpFormID : String;
- Anchor : String;
-begin
- ShowText := _Msg('處理檢核失敗中,請稍候');
- DataLoading(True,True);
-LogFile1.LogToFile(logTimeString+'處理檢核失敗中開始');
- ErrlistForm := TErrlistForm.Create(Self);
- RejectCase := False;
- S := TStringlist.Create;
- try
- InitialLanguage(ErrlistForm);
- Application.ProcessMessages;
- ErrlistForm.LogFile1.LogFile:=LogFile1.LogFile;
- ErrlistForm.DeleteBt.Caption := ErrlistForm.DeleteBt.Caption+'(&D)';
- ErrlistForm.iniPath := ImageSavePath + NowCaseNo+'\upload\';
- OMRErrini2List(NowCaseno,ErrlistForm);
- ErrlistForm.ErrListLV.ItemIndex := ErrIndex;
- ErrlistForm.Timer1.Enabled := true;
- if ErrlistForm.ShowModal = mrok then
- begin
- TransPath := ImageSavePath+NowCaseNo+'\upload\';
- if FMode = 'ISCAN' then
- TransPath := ImageSavePath + NowCaseNo+'\DownTemp\';
- ShowText := NowCaseNo+_Msg('資料上傳中,請稍候');
- DataLoading(True,True);
-
- if FMode = 'ISCAN' then
- begin
- If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
- begin
- DataLoading(False,False);
- Exit;
- end;
- end
- Else
- begin
- If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
- begin
- DataLoading(False,False);
- Exit;
- end;
- end;
- CaseHelpBtn.Visible := False;
- LoadImgFile;
- if (FMode='NSCAN') or (FMode='DSCAN') then
- begin
- Showmessage(NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程。'));
- end;
-
- if FMode='ESCAN' then
- begin
- Showmessage(NowCaseNo+_Msg('影像已補件完成。'));
- end;
-
- DataLoading(False,False);
- end
- Else
- begin
- MyTreeNode2ReFresh(NowCaseNo);
- end;
- finally
- ErrlistForm.Free;
- DataLoading(False,False);
- S.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.CheckCaseBtnClick(Sender: TObject);
-Var
- CaseID : String;
- i,n,v : Integer;
- S : TStringlist;
-begin
- //if TreeView1.Selected = nil then Exit;
- //if TreeView1.Selected = NewTreeNode then Exit;
- Displaypath := ''; //20130327 修正報價單號會錯置的問題
- S := TStringlist.Create;
- try
- ClearView(1);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- For i := 0 to NewTreeNode.Count -1 do
- begin
- v := posend('-',NewTreenode.Item[i].Text);
- CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
- begin
- If OMRCheckCase(CaseID) then //有成功
- begin
- S.Add('Y');
- S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
- end;
- end;
- //MyTreeNode2ReFresh(CaseID); //原本是OMR單一案件,後改成OMR全部案件 所以這個要mark
- end;
- LoadImgFile;
- TreeView1Click(nil);
- DataLoading(False,False);
- finally
- S.Free;
- end;
- Showmessage(_Msg('檢核完成'));
-end;
-
-procedure TCB_IMGPSScanX.ClearView(stkv:Integer);
-var i:integer;
- ISB : TImageScrollBox;
- lb : TLabel;
-begin
- For i:= stkv to 8 do
- begin
- ISB := TImageScrollBox(FindComponent('ISB'+intToStr(i)));
- ISB.FileName := '';
- Lb := TLabel(FindComponent('Lb'+intToStr(i)));
- Lb.Caption := '';
- end;
- FreePreViewISB;
- ISB1Click(ISB1);
-end;
-
-Function TCB_IMGPSScanX.DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree
-Var
- i,n,m : Integer;
- DocNode,FormNode : TTreeNode;
- DocNoPage,FormPage : Integer;
- DocNoCopies : Integer;
- DocNo,iDocNo : String;
- DocVer : String;
- FileList : TStringlist;
- FormID,iFormID : String;
- FormName : String;
- CaseDocNoList,CaseDocNo_CopiesList,StrList : TStringlist;
- iiDocNo,iiFormID,iiDocVer : String;
- ST1:TStringList;
-begin
- Result := False;
- FileList := TStringlist.Create;
- CaseDocNoList := TStringlist.Create;
- CaseDocNo_CopiesList := TStringlist.Create;
- StrList := TStringlist.Create;
- ST1:=TStringList.Create;
-LogFile1.LogToFile(logTimeString+'產文件樹開始');
- try
- CaseNode.ImageIndex := 1;
- CaseNode.SelectedIndex := 1;
- While CaseNode.Count > 0 do //全刪
- begin
- CaseNode.Item[0].Delete;
- end;
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');
- if FileExists(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat');
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- FileList.Clear;
- //Showmessage(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
- if FileExists(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
- iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
- ST1.Clear;
-
-LogFile1.LogToFile(logTimeString+'FileList.Text='+FileList.CommaText);
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- for n := 0 to FileList.Count - 1 do
- begin
- if ISExistImg(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\'+FileList.Strings[n]) then
- begin
- ST1.Add(FileList.Strings[n]);
- end;
- end;
- for n := 0 to ST1.Count - 1 do
- begin
- if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
- begin
- FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
- end;
- end;
- end
- Else
- if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該加這段
-
-
-
-LogFile1.LogToFile(logTimeString+'WH_category='+FWH_category+',Is_In_Wh='+FIs_In_Wh+',FileList.Text='+FileList.CommaText);
- if FileList.Count=0 then Continue;
-
- DocNoCopies := Strtoint(CaseDocNo_CopiesList.Strings[i]);
- DocNoPage := FileList.Count;
- iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
-//Showmessage(iDocNo);
-//Showmessage(DocNo2DocName(Caseno,iDocNo));
-//ShowMessage('FileList='+FileList.Text);
- {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
- ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
- begin
- Continue;
- end;}
-
- //if not DocNoAppear(iDocNo) then Continue;
-
-
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('頁'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoPage]));
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoCopies]));
-//ShowMessage('iDocNo='+iDocNo);
- DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),CaseDocNoList.Strings[i],DocNoCopies]));
-
- if GetUseCase('F',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
- begin
- DocNode.ImageIndex := 8;
- DocNode.SelectedIndex := 8;
- end
- Else if GetUseCase('T',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
- begin
- DocNode.ImageIndex := 9;
- DocNode.SelectedIndex := 9;
- end
- Else
- begin
- DocNode.ImageIndex := 2;
- DocNode.SelectedIndex := 2;
- end;
- if ((Pos('ZZZZZ',DocNode.Text) = 0) and (Pos('YYYYY',DocNode.Text) = 0)) and (FileList.Count =0) then //制式文件
- begin
- for n := 1 to LASTEST_FORM_INF_List.Count - 1 do
- begin
- StrList := SplitString('!@!',LASTEST_FORM_INF_List.Strings[n]);
- iiFormID := StrList.Strings[0];
- iiDocNo := StrList.Strings[1];
- if iiDocNo = iDocNo then
- begin
- FormID := iiFormID;
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- DocNode.AlphaSort(True);
- end;
- end;
- end
- else if (Pos('ZZZZZ',DocNode.Text) > 0) or (Pos('YYYYY',DocNode.Text) > 0) then //自訂文件
- begin
- FormID := GetCustomFormID(ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]);
- //showmessage(FileList.Text);
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- DocNode.AlphaSort(True);
- end;
- SortDocDir_FormID(Caseno,CaseDocNoList.Strings[i]); //檔名依FormID排序
-
- for n := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[n]);
- DocVer := FormCode2Version(FormID);
- DocNo := FormCode2DocNo(FormID);
- if CheckFormIDExists(DocNode,FormID) then Continue;
- //Showmessage(FormID+#13+DocNo+#13+DocVer);
- for m := 0 to FormID_List.Count - 1 do
- begin
- iiFormID := FormID_List.Strings[m];
- iiDocNo := DocNo_List.Strings[m];
- iiDocVer := FormCode2Version(iiFormID);
- if (iiDocNo = DocNo) and (iiDocVer = DocVer) then
- begin
- //Showmessage(iiFormID+#13+iiDocNo+#13+iiDocVer);
- FormID := iiFormID;
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- DocNode.AlphaSort(True);
- end;
- end;
-
-
- //if not CheckFormIDExists(DocNode,FormID) then
- //begin
- // Application.ProcessMessages;
- // FormPage := GetFormIDPage(FileList,FormID);
- /// FormName := FormCode2FormName(Caseno,FormID);
- /// FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- // FormNode.ImageIndex := 4;
- // FormNode.SelectedIndex := 4;
- //end;
- end;
- end;
-
- if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then
- begin
-
- FileList.Clear;
- if FileExists(ImageSavePath+Caseno+'\'+AttName+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+Caseno+'\'+AttName+'\Context.dat')
- Else
- begin
- Rmdir(ImageSavePath+Caseno+'\'+AttName);
- Exit;
- end;
- DocNoPage := FileList.Count;
- iDocNo := DocNoDir2DocNo(AttName);
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
- DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),AttName,1]));
- DocNode.ImageIndex := 2;
- DocNode.SelectedIndex := 2;
- for n := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[n]);
- if not CheckFormIDExists(DocNode,FormID) then
- begin
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- end;
- end;
- end;
-
- if FModeName='件' then //20170904 先裝死 因為異動 同時存在兩種附件太難寫
- begin
- if DirectoryExists(ImageSavePath+Caseno+'\Attach') then
- begin
- FileList.Clear;
- if FileExists(ImageSavePath+Caseno+'\Attach'+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+Caseno+'\Attach'+'\Context.dat')
- Else
- begin
- Rmdir(ImageSavePath+Caseno+'\Attach');
- Exit;
- end;
- DocNoPage := FileList.Count;
- iDocNo := DocNoDir2DocNo(AttName);
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
- DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
-
- DocNode.ImageIndex := 2;
- DocNode.SelectedIndex := 2;
- for n := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[n]);
- if not CheckFormIDExists(DocNode,FormID) then
- begin
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
-
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- end;
- end;
- end;
- end;
-LogFile1.LogToFile(logTimeString+'產文件樹結束');
- Finally
- FileList.Free;
- CaseDocNoList.Free;
- CaseDocNo_CopiesList.Free;
- StrList.Free;
- ST1.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.initkscan;
-begin
- ScanDuplexCB.Enabled := False;
- if Scanner.IsConfigured then
- begin
- try
- Scanner.OpenSource;
- IF Scanner.DuplexCap > 0 Then
- begin
- ScanDuplexCB.Enabled := True;
- end;
- {IF Scanner.FEEDERCAP Then
- ScanFlatCB.Enabled := True; }
- Except
- DataLoading(False,True);
- Exit;
- end;
- Scanner.CloseSource;
- end;
-end;
-
-procedure TCB_IMGPSScanX.initParameter;
-begin
-
-// if FCaseNoLength=0 then
-// begin
-//
-// end;
-
- if FFileSizeLimit = 0 then
- begin
- FFileSizeLimit := 5*1024;
- end;
-
-
- if FImgDPI=0 then
- begin
- FImgDPI := 300;
- ScanDpi := FImgDPI;
- end
- else
- begin
- //FImgDPI := StrToInt(Value);
- ScanDpi := FImgDPI;
- end;
-
- if FScanColor = 0 then
- begin
- ScanColor := ifBlackWhite;
- end;
-
- if FScanColor = 1 then
- begin
- ScanColor := ifGray256 ;
- ScanGrayCB.Checked:=True;
- end;
-
- if FScanColor = 2 then
- begin
- ScanColor := ifTrueColor ;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PrtLbClick(Sender: TObject);
-var
- Width : Double;
- Height : Double;
- i : Integer;
- DocDirList,FileList :TStringlist;
- iDocDir,iDocNo : String;
- PrtDialog : TPrintDialog;
- S : String;
-begin
- ShowText := _Msg('列印中,請稍候');
- DataLoading(True,True);
- Case2upload(NowCaseNo); //產生原影像結構
-
-
- //ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
-
- PrintForm := TPrintForm.create(Self);
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- FileList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
- DocDirList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\DocDir.dat');
-
- InitialLanguage(PrintForm); //載入多國語言
- PrintForm.CheckListBox1.Items.Clear;
- For i := 0 to FileList.Count - 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocno := DocNoDir2DocNo(iDocDir);
-
- if not DocNoAppear(iDocNo) then Continue;
-
- PrintForm.CheckListBox1.Items.Add(FileList.Strings[i]);
- if CheckFormID_Prt(FileName2FormCode(FileList.Strings[i])) then
- PrintForm.CheckListBox1.Checked[i] := True;
- PrintForm.ListBox1.Items.Add(Add_Zoo(i+1,3))
- end;
- If (PrintForm.ShowModal = mrOK) then
- begin
- S := '';
- for I := 0 to PrintForm.CheckListBox1.Count -1 do
- begin
- if PrintForm.CheckListBox1.Checked[i] then
- begin
- if S = '' then
- S := S+PrintForm.CheckListBox1.Items[i]
- Else
- S := S+#13+PrintForm.CheckListBox1.Items[i];
- end;
- end;
- if S = '' then
- begin
- Showmessage(_msg('尚未選擇欲列印文件'));
- Exit;
- end
- Else
- begin
- PrintImg(S,FUserID,ServerDate,ImageSavePath+NowCaseNo+'\Upload\');
- If not Writelog(NowCaseNo) then
- begin
- //Showmessage('false');
- end;
- end;
- end;
- finally
- DataLoading(False,False);
- PrintForm.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.UseOldCaseLbClick(Sender: TObject);
-var
- i,n : Integer;
- CaseID,Year,BS_No,IS_Old : String;
- OldCaseInfoForm : TOldCaseInfoForm;
- OldCaseInfoList,Caseinfolist,FileList,DocNoList,iFileList,iDocNoList,iDocNo_CopiesList : TStringlist;
- OldDocdir,OldDocNo,OldDocName,NewDocDir,FileName : String;
- OldPath,NewPath,OldFile,NewFile:String;
- Oldcopies:Integer;
-begin
- OldCaseInfoForm := TOldCaseInfoForm.Create(Self);
- OldCaseInfoList := TStringlist.Create;
- Caseinfolist := TStringlist.Create;
- FileList := TStringlist.Create;
- DocNoList := TStringlist.Create;
- iDocNo_CopiesList := TStringlist.Create;
- iFileList := TStringlist.Create;
- iDocNoList := TStringlist.Create;
- OldCaseInfoForm.OldDocDirList := TStringlist.Create;
- OldCaseInfoForm.OldDocNameList := TStringlist.Create;
- OldCaseInfoForm.IN_WH_DocNoList := TStringlist.Create;
- OldCaseInfoForm.OldCopiesList := TStringlist.Create;
- try
- InitialLanguage(OldCaseInfoForm); //載入多國語言
- OldCaseInfoForm.Notebook1.ActivePage := 'CaseInfo';
- OldCaseInfoForm.ImageSavePath := ImageSavePath;
- OldCaseInfoForm.CaseID := NowCaseNo;
- OldCaseInfoForm.Furl := Furl;
- OldCaseInfoForm.Fdata := FData;
- OldCaseInfoForm.FVerify := FVerify;
- OldCaseInfoForm.FReWrite := FReWrite;
- OldCaseInfoForm.FOldCaseInfo := FOldCaseInfo;
-
- //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數]
- OldCaseInfoList.StrictDelimiter := true;
- OldCaseInfoList.Delimiter := #9;
- OldCaseInfoList.DelimitedText := FOldCaseInfo;
- //Showmessage(FOldCaseInfo);
- //Showmessage(OldCaseInfoList.Text);
- OldCaseInfoForm.IN_WH_DocNoList.Assign(IN_WH_DocNoList);
- OldCaseInfoForm.FIs_In_Wh := FIs_In_Wh;
- for i := 0 to OldCaseInfoList.Count - 1 do
- begin
- Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
- //Caseinfolist.Delimiter := '_';
- //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
- CaseID := Caseinfolist.Strings[0];
- Year := Caseinfolist.Strings[1];
- BS_No := Caseinfolist.Strings[2];
- IS_Old := Caseinfolist.Strings[3];
- With OldCaseInfoForm.OldCaseLV.Items.Add do
- begin
- Caption := CaseID;
- SubItems.Add(Year);
- SubItems.Add(BS_No);
- SubItems.Add(IS_Old);
- end;
- end;
-
- if OldCaseInfoForm.ShowModal = MrOk then
- begin
- OldPath := ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\';
- NewPath := ImageSavePath+NowCaseNo+'\';
-
- iDocNoList.Clear;
- if FileExists(NewPath+'CaseDocNo.dat') then
- iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');
- if FileExists(NewPath+'CaseDocNo_Copies.dat') then
- iDocNo_CopiesList.LoadFromFile(NewPath+'CaseDocNo_Copies.dat');
-
- for i := 0 to OldCaseInfoForm.OldDocDirList.Count - 1 do
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- DocNoList.LoadFromFile(OldPath+'DocDir.dat');
-
-
- OldDocName := OldCaseInfoForm.OldDocNameList.Strings[i];
- OldDocDir := OldCaseInfoForm.OldDocDirList.Strings[i];
- OldDocNo := DocNoDir2DocNo(OldDocDir);
- if Copy(OldDocNo,1,5)<>'ZZZZZ' then
- begin
- if DocNoNeedDiv(OldDocNo) then
- NewDocDir := DocNo2DocNoDir(NewPath,OldDocNo)
- else
- NewDocDir := OldDocNo;
- end
- Else
- begin
- NewDocDir := GetNewCustomDocNo(NewPath,OldDocName);
- end;
- SetRecordEditedDocDir('A',NowCaseNo,NewDocDir);
- iFileList.Clear;
- if FileExists(NewPath+NewDocDir+'\Context.dat') then
- iFileList.LoadFromFile(NewPath+NewDocDir+'\Context.dat');
-
- if Not DirectoryExists(NewPath+NewDocDir) then
- begin
-
-
- iDocNoList.Add(NewDocDir);
- Oldcopies := GetDocDirCopies(NowCaseNo+'\'+OldCaseInfoForm.UseCaseID,OldDocDir); //舊案的CaseID 放在新案CaseID目錄裡
- if FileExists(ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\CaseDocNo_Copies.dat') then
- iDocNo_CopiesList.Add(inttostr(Oldcopies))
- else
- begin
- OldCopies := GetDocDircopies_Rec(OldPath,OldCaseInfoForm.UseCaseID,OldDocDir);
- iDocNo_CopiesList.Add(inttostr(Oldcopies));
- //iDocNo_CopiesList.Add('1');
- end;
- MkDir(NewPath+NewDocDir);
- end;
- SetUseCase('A',NewPath,NewDocDir,OldCaseInfoForm.UseCaseID,''); //NewDocDir 從哪來的
- SetUseCase('A',OldPath,OldDocDir,'',NowCaseNo); //OldDocDir 去哪了
- StringtoFile('Y',OldPath+'UseCase.dat'); //要上傳
- for n := 0 to DocNoList.Count - 1 do
- begin
- if OldDocDir = DocNoList.Strings[n] then
- begin
- OldFile := FileList.Strings[n];
- if Copy(NewDocDir,1,5)<>'ZZZZZ' then
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile)
- Else
- NewFile := Add_Zoo(iFileList.Count+1,3)+'_'+GetCustomFormID(NewPath,NewDocDir)+ExtractFileExt(OldFile);
-
- iFileList.Add(NewFile);
- CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);
- end;
- end;
- iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');
- end;
-
- iDocNoList.SaveToFile(NewPath+'CaseDocNo.dat');
- iDocNo_CopiesList.SaveToFile(NewPath+'CaseDocNo_Copies.dat');
- DrawDocItem2(MyTreeNode1,NowCaseNo);
- //MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- NewTreeNodeRefresh;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- end;
- finally
- OldCaseInfoForm.OldDocDirList.Free;
- OldCaseInfoForm.OldDocNameList.Free;
- OldCaseInfoForm.OldCopiesList.Free;
- OldCaseInfoList.Free;
- Caseinfolist.Free;
- FileList.Free;
- DocNoList.Free;
- iDocNo_CopiesList.Free;
- iFileList.Free;
- iDocNoList.Free;
- OldCaseInfoForm.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.LastInitFormidListCreate(path: string);
-var
- i:integer;
- ST1:TStringList;
- str1:string;
-begin
-//ShowMessage('path='+path);
- ST1:=TStringList.Create;
- ST1.LoadFromFile(path+'FormCode_Name.dat');
- for I := 0 to ST1.Count - 1 do
- begin
- if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
- begin
- str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
- LastInitFormidList.Add(str1);
- end;
- end;
-
- ST1.Free;
-end;
-
-function TCB_IMGPSScanX.LoadFileGetMD5(const filename: string): string;
-var
- Stream: TFileStream;
- //Buffer: array[0..1023] of AnsiChar;
- Buffer: array[0..1023] of AnsiChar;
- TempStr: string;
- i: Integer;
- idmd5:TIdHashMessageDigest5; //import IdHashMessageDigest, idHash
-
-begin
- idmd5 := TIdHashMessageDigest5.Create;
-
- try
- Stream := TFileStream.Create(filename, fmOpenRead);
- Stream.Read(Buffer[0], SizeOf(Buffer));
-
- result := idmd5.HashStreamAsHex(Stream) ;
- finally
- idmd5.Free;
- Stream.Free;
-
- end;
-end;
-
-procedure TCB_IMGPSScanX.LoadImgFile; //載入新件及替換件
-Var
- i,v,v1,m : Integer;
- CasePage : integer;
- TempName : String;
- BarName : String;
- DocName : String;
- //S : String;
-begin
- ClearView(1);
- PageLV.Clear;
- AttListBox.Items.Clear;
- AddAttFileLB.Enabled := False;
- DelAttFileLB.Enabled := False;
- DisplayPath := '';
- ClearCaseIndex;
- CaseHelpBtn.Visible := False;
- //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- TreeView1.Items.Clear;
- NewTreeNode := nil;
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- MyTreenode3 := nil;
- NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
- NewTreenode.ImageIndex := 0;
- NewTreenode.SelectedIndex := 0;
- Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- GetCase_PageCount(CaseCount,PageCount);
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- for i := 0 to CaseList.Count - 1 do
- begin
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
- if not FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat') then
- begin
- CaseDocNo_CopiesList.Clear;
- for m := 0 to CaseDocNoList.Count - 1 do
- begin
- CaseDocNo_CopiesList.Add('1');
- CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');
- end;
- end;
-
- CasePage := GetCasePage(ImageSavePath,CaseList.Strings[i]);
-//ShowMessage('CasePage='+IntToStr(CasePage));
- MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[i],CasePage]));
- MytreeNode1.ImageIndex := 1;
- MytreeNode1.SelectedIndex := 1;
- DrawDocItem2(MytreeNode1,CaseList.Strings[i]); //長出文件名稱的樹並傳回是否有申請書的影像
- if Pos(_Msg('未配號'),CaseList.Strings[i]) > 0 then
- begin
- MytreeNode1.ImageIndex := 5;
- MytreeNode1.SelectedIndex := 5;
- end;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\OMRCheckOk.dat') Then
- begin
- MytreeNode1.ImageIndex := 7;
- MytreeNode1.SelectedIndex := 7;
- CaseHelpBtn.Visible := False;
- end
- Else IF FileExists(ImageSavePath+CaseList.Strings[i]+'\Checkerr.ini') Then
- begin
- MyTreenode1.ImageIndex := 5;
- MyTreenode1.SelectedIndex := 5;
-
- //AllEnforceLb.Visible := True; //全部強迫送件
- end;
- end;
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- If NewTreeNode <> nil Then
- begin
- TreeView1.Selected := NewTreeNode;
- NewTreeNode.Expand(False);
- end;
- IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
- begin
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
- end;
-end;
-
-procedure TCB_IMGPSScanX.LoadImgFile1; //載入新件及替換件
-Var
- i,n,v,v1,m : Integer;
- p : integer;
- iCaseNo,iDocNo : String;
- TempName : String;
- BarName : String;
- DocName : String;
- //S : String;
-begin
- ClearView(1);
- PageLV.Clear;
- DisplayPath := '';
- ClearCaseIndex;
- CaseHelpBtn.Visible := False;
- //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- TreeView1.Items.Clear;
- NewTreeNode := nil;
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- MyTreenode3 := nil;
- NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
- NewTreenode.ImageIndex := 0;
- NewTreenode.SelectedIndex := 0;
-
- Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- GetCase_PageCount(CaseCount,PageCount);
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- for n := 0 to CaseList.Count - 1 do
- begin
- iCaseNo := CaseList.Strings[n];
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat');
-
- for m := 0 to CaseDocNoList.Count - 1 do
- begin
- iDocNo := CaseDocNoList.Strings[i];
- MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
- MytreeNode1.ImageIndex := 1;
- MytreeNode1.SelectedIndex := 1;
- end;
-
-
- ContextList.Clear;
- Context_DocnoList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[n]+'\Context.dat') Then
- begin
- ContextList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context.dat');
- if FileExists(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat') then
- Context_DocnoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat')
- else
- begin
- for m := 0 to ContextList.Count - 1 do
- begin
- Context_DocnoList.Add(FormCode2DocNo(FileName2FormCode(ContextList.Strings[m])));
- end;
- Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');
- end;
- Cust_DocNoList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat');
-
- P := ContextList.Count;
- MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
- MytreeNode1.ImageIndex := 1;
- MytreeNode1.SelectedIndex := 1;
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像
- DrawDocItem2(MytreeNode1,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像 20140820改
-
- if Pos(_Msg('未配號'),CaseList.Strings[n]) > 0 then
- begin
- MytreeNode1.ImageIndex := 5;
- MytreeNode1.SelectedIndex := 5;
- end;
- If FileExists(ImageSavePath+CaseList.Strings[n]+'\OMRCheckOk.dat') Then
- begin
- MytreeNode1.ImageIndex := 7;
- MytreeNode1.SelectedIndex := 7;
- CaseHelpBtn.Visible := False;
- end
- Else IF FileExists(ImageSavePath+CaseList.Strings[n]+'\Checkerr.ini') Then
- begin
- MyTreenode1.ImageIndex := 5;
- MyTreenode1.SelectedIndex := 5;
-
- //AllEnforceLb.Visible := True; //全部強迫送件
- end;
- end;
- end;
-
-
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- If NewTreeNode <> nil Then
- begin
- TreeView1.Selected := NewTreeNode;
- NewTreeNode.Expand(False);
- end;
- ContextList.Clear;
- IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
- begin
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
- end;
-end;
-
-procedure TCB_IMGPSScanX.LoadAttFile(CaseID:String); //載入附加檔案
-var
- AttContextList : TStringlist;
- i : Integer;
-begin
- AttListBox.Clear;
- AttContextList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then
- begin
- AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');
- end;
- for i := 0 to AttContextList.Count - 1 do
- begin
- AttListBox.Items.Add(UTF8Decode(HTTPDEcode(AttContextList.Strings[i])));
- end;
- finally
- AttContextList.Free;
- end;
-end;
-
-function TCB_IMGPSScanX.logTimeString: String;
-begin
-Result:=FormatDateTime('yyyymmdd hh:mm:ss',now) +' caseNo='+NowCaseno+' ';
-end;
-
-Function TCB_IMGPSScanX.FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼
-var
- i : Integer;
- DelBarCode : String;
- S : TStringlist;
- iMode : String;
-begin
- Result := False;
- iMode := FMode;
- S := TStringlist.Create;
- try
- IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DIVISION','T1.FORM_ID',FormCode,0,FindResult) then
- begin
- S.CommaText := GetFindResult('T1.DIVISION');
- for i := 0 to S.Count - 1 do //可能有多組
- begin
- if S.Strings[i] = iMode then
- begin
- Result := True;
- Break;
- end;
- end;
- end;
- finally
- S.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckAvailable:Boolean; //檢查是否可使用元件
-var
- SendData : String;
- Msg:String;
- Nowcount,Totalcount,Lic_Idx : Integer;
- MacID,IPStr,LegalDate :String;
-begin
- Result := False;
- /////下載MPSLIC_SCAN.lic //////
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then
- begin
- Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Exit;
- end;
- /////下載MPSLIC_SCAN.lic ///
-
- if CheckLicensebyIP_new(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,LegalDate,Msg,Nowcount,Totalcount,Lic_Idx) then //檢查是否己註冊過
- begin
- if (LegalDate <> '') and (ServerDate>LegalDate) and (Lic_Idx>(Totalcount)) then
- begin
- Showmessage(_Msg('已經超過可使用期限及超出授權數請連絡廠商'));
- Result := False;
- //Exit;
- end
- else
- Result := True;
- end
- Else
- begin
- if Msg <> '' then
- begin
- Showmessage(Format(_Msg('註冊檔有問題,請連絡廠商 錯誤原因:%s'),[Msg]));
- Result := false;
- Exit;
- end
- Else
- begin
- if (LegalDate <> '') and (ServerDate>LegalDate) and (NowCount =0 ) then
- begin
- Lic_Idx := 0;
- Showmessage(_Msg('已經超過可使用期限請連絡廠商'));
- Result := False;
- //Exit;
- end
- //else if (LegalDate = '') and (Nowcount >= Totalcount+10) then //超過註冊數量
- else if ((LegalDate = '') or ((LegalDate <> '') and (ServerDate>LegalDate)) ) and (Nowcount >= Totalcount) then //超過註冊數量 20150717 yuu說拿掉送的10個
- begin
- Lic_Idx := 0;
- Showmessage(_Msg('已經超過授權數請連絡廠商'));
- Result := False;
- end
- Else //未超過註冊數量要寫入註冊檔
- begin
- {if Messagedlg(_Msg('您尚未註冊授權是否要進行註冊??'),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then
- begin
- Result := False;
- Exit;
- end;}
- ShowText := _Msg('授權中,請稍候');
- AddLicense(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,Msg);
- Nowcount := Nowcount + 1;
- DataLoading(True,True);
-
- /////上傳MPSLICSCAN.lic ////
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'@verify='+FVerify+'@work_no=PLN@file_name=MPSLIC_SCAN.lic';
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
- /////上傳MPSLICSCAN.lic /////
- //Sleep(30000); //第一次註冊睡30秒 先不睡
- Result := True;
- end;
- end;
- end;
- if FileExists(LngPath+'MPSLIC_SCAN.lic') then
- DeleteFile(LngPath+'MPSLIC_SCAN.lic');
- if LegalDate = '' then
- StatusBar1.Panels[4].Text := Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID,inttostr(Totalcount-Nowcount)]);
- if LegalDate <> '' then
- StatusBar1.Panels[4].Text := '*'+Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID+'('+inttostr(Lic_Idx)+')',inttostr(Totalcount-Nowcount)]);
-end;
-
-procedure TCB_IMGPSScanX.SmoothCBClick(Sender: TObject);
-begin
- if SmoothCB.Checked then
- begin
- Image_Smooth(ISB1.Graphic);
- ISB1.Redraw(True);
- end;
-end;
-
-Function TCB_IMGPSScanX.Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像 20170639 發現沒用到
-var
- XT : TXMLTool;
- i : Integer;
- S : TStringlist;
- SiteList : TStringlist;
- FormID : String;
- ColEName : String;
- FileName : String;
- nodename : String;
- Site : String;
- Anchor : String;
-begin
- Result := False;
- if DirectoryExists(DePath) then
- _DelTree(DePath);
- Str2Dir(DePath);
- DeleteFile(SoPath+'MaskImg.zip');
- SiteList := TStringlist.Create;
- S := TStringlist.Create;
- XT := TXMLTool.Create;
- try
- S.LoadFromFile(SoPath+'Context.dat');
- for I := 0 to S.Count - 1 do
- begin
- SiteList.Clear;
- ImageScrollBox1.LoadFromFile(SoPath+S.Strings[i],1);
-
- FormID := FileName2FormCode(S.Strings[i]);
- Anchor := FormID2Anchor(FormID);
- //ParserPoint(CropMpsV.FindPoint(Anchor));
- FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,Anchor);
- if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then //沒有Xml就不用遮罩
- begin
- XT.LoadFromFile(CheckXmlPath+FWork_no+'\'+FormID+'.xml');
- if XT.SubNodes['/form/settype10/'].First then
- Repeat
- ColEName := XT.SubNodes['/form/settype10/'].NodeName;
- if XT.SubNodes['/form/settype10/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype10/'+ColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- Site := XT.Node['/form/settype10/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
- SiteList.Add(Site);
- Result := True; //有設定
- end
- Else
- begin
- //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
- end;
- Until not XT.SubNodes['/form/settype10/'+ColEName+'/'].Next;
- Until not XT.SubNodes['/form/settype10/'].Next ;
- FieldMask(ImageScrollBox1,SiteList.Text,'Mask',UpLPoint);
- end;
- SaveAnnotation(ImageScrollBox1,DePath+S.Strings[i]);
- end;
- finally
- SiteList.Free;
- S.Free;
- XT.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
-Var
- i,FormIDCount : Integer;
-begin
- Result := False;
- FormIDCount := 0;
- if (Graphic.Width > (4 * Graphic.XDotsPerInch)) {or (Graphic.Height > (15 * Graphic.YDotsPerInch))} then
- //if (Graphic.Width > (6 * Graphic.XDotsPerInch)) then
- begin
- for I := 1 to MpsBarcodeinf.Count do
- begin
- if (Length(MpsBarcodeinf.Text[i])=FormIDLength) and FormIDExists(MpsBarcodeinf.Text[i],False,0) then
- begin
- inc(FormIDCount);
- end;
- end;
-
- end;
-
-//ShowMessage('FormIDCount='+IntToStr(FormIDCount)+#10#13+'MpsBarcodeinf.count='+IntToStr(MpsBarcodeinf.count));
- if FormIDCount = 2 then
- begin
- Result := True;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號
-var
- ini : Tinifile;
- Ct:Integer;
- DocNo,FormID : String;
-
- {i,n,v,ln : Integer;
- C_No,C_Name : String;
- CNo : Integer;
- S : TStringlist;
- NewDocNo : String;}
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Ct := ini.ReadInteger('CustomCount','Count',0);
- inc(Ct);
- DocNo := 'ZZZZZ'+Add_Zoo(Ct,3);
- if FIs_In_Wh <> 'Y' then //不是入庫文件
- DocNo := 'YYYYY'+Add_Zoo(Ct,3);
-
- if (FMode='ESCAN') and (FWH_category='N') then //20170914 補件下改成非入庫的自定文件
- begin
- DocNo := 'YYYYY'+Add_Zoo(Ct,3);
- end;
-
- FormID := DocNo+'010101A';
- ini.WriteInteger('CustomCount','Count',Ct);
- ini.WriteString(DocNo,'FormID',FormID);
- ini.WriteString(DocNo,'Name',DocName);
- Result := DocNo;
- finally
- ini.Free;
- end;
-
- {S := TStringlist.Create;
- try
- NewDocNo :='ZZZZZ001';
- if FileExists(Path+'CustomDocNo.dat') then
- begin
- /// ZZZZZ001_自定文件名稱 001_自定文件名稱
- S.LoadFromFile(Path+'CustomDocNo.dat');
- for i := 0 to S.Count - 1 do
- begin
- v := Pos('_',S.Strings[i]);
- ln := Length(S.Strings[i]);
- C_No := Copy(S.Strings[i],1,v-1);
- C_Name := Copy(S.Strings[i],v+1,ln-v);
- if DocName = C_Name then
- begin
- Showmessage('文件名稱已存在');
- Result := '';
- Exit;
- end;
- end;
- CNo := strtoint(Copy(C_No,6,3))+1;
- NewDocNo := 'ZZZZZ'+Add_Zoo(CNo,3);
- end;
- S.Add(NewDocNo+'_'+DocName);
- S.SaveToFile(Path+'CustomDocNo.dat');
- Result := NewDocNo;
- finally
- S.Free;
- end; }
-end;
-
-Function TCB_IMGPSScanX.GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Result := ini.ReadString(DocNo,'Name','');
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Result := ini.ReadString(DocNo,'FormID','');
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir
-var
- i,ct:integer;
- ini : Tinifile;
-begin
- Result := '';
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- ct := ini.ReadInteger('CustomCount','Count',0);
- for i := 1 to ct do
- begin
- if ini.ReadString('ZZZZZ'+Add_Zoo(i,3),'Name','') = DocName then
- begin
- Result := 'ZZZZZ'+Add_Zoo(i,3);
- Break;
- end;
- if ini.ReadString('YYYYY'+Add_Zoo(i,3),'Name','') = DocName then
- begin
- Result := 'YYYYY'+Add_Zoo(i,3);
- Break;
- end;
- end;
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在
-var
- ini : Tinifile;
- Ct,i:Integer;
- DocNo,FormID : String;
-begin
- Result := False;
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Ct := ini.ReadInteger('CustomCount','Count',0);
- for I := 1 to Ct do
- begin
- DocNo := 'ZZZZZ'+Add_Zoo(i,3);
- if DocName = ini.ReadString(DocNo,'Name','') then
- begin
- Result := True;
- Break;
- end;
- end;
- finally
- ini.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.DelAttFileLBClick(Sender: TObject);
-var
- AttFile : String;
- SelectCount : Integer;
- i : Integer;
-begin
- SelectCount := 0;
- for i := 0 to AttListBox.Items.Count - 1 do
- begin
- if AttListBox.Selected[i] then
- inc(SelectCount);
- end;
- if SelectCount = 0 then
- begin
- Showmessage(_Msg('請選擇要刪除的電子檔'));
- Exit;
- end;
-
- if SelectCount > 0 then
- begin
- if Messagedlg(Format(_Msg('是否刪除這%d筆??'),[SelectCount]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- for i := 0 to AttListBox.Items.Count - 1 do
- begin
- if AttListBox.Selected[i] then
- begin
- AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[i]));
- DeleteFile(ImageSavePath+NowCaseNo+'\'+AttFile);
- SetAttContextList('D',-1,NowCaseno,AttFile);
- end;
- end;
- end;
- LoadAttFile(NowCaseNo);
- Showmessage(_msg('刪除完成'));
-end;
-
-Procedure TCB_IMGPSScanX.DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- ini.EraseSection(DocNo);
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印
-begin
- Result := False;
- If FindSQLData(FORM_INF_List,'T1.IS_PRINT','T1.FORM_ID',FormID,0,FindResult) Then
- begin
- if GetFindResult('T1.IS_PRINT') = 'Y' Then
- Result := True;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PrintImg(FileName, LoginID, Datetime,
- Path: WideString);
-var
- PrintMode : TEnvisionPrintMode;
- GraphicPrinter : TDibGraphicPrinter;
- PrtDialog : TPrintDialog;
- S : TStringlist;
- i,Pages,Page : Integer;
- Prt_String : String;
- Prt_H : Integer;
- procedure PrintWithManualPrintJob(LoginID,DateTime:String;Pages,Page:Integer);
- begin
- If Page = 1 Then
- begin
- { if UsePrintJob is False, Printer.BeginDoc and Printer.EndDoc must be
- called by the user. This allows printing multiple images in the
- same job (or page). }
- GraphicPrinter.UsePrintJob := False;
-
- { if UsePrintJob is False, the print job name that appears in the
- print manager must be specified in using the Title property of the
- Printer object. Otherwise, if UsePrintJob is True, the Title
- property of the TDibGraphicPrinter object is used to specify the
- job name. }
- Printer.Title := _Msg('影像列印');
- end;
-
- IF (Page mod 2) = 1 Then
- Printer.BeginDoc
- Else
- Printer.NewPage;
-
- ImageScrollBox1.DisplayedGraphic.Canvas.Font.Size := 24;
-
- //ImageScrollBox1.DisplayedGraphic.Canvas.TextOut(20,20, _Msg('列印人員:')+LoginID+' '+_Msg('列印分行:')+FUserUnit+' '+_Msg('列印日期:')+DateTime);
-
- GraphicPrinter.Print(ImageScrollBox1.DisplayedGraphic);
-
-
- { this shows how to print text on a page.
- Printer.Canvas.TextOut(10,10, 'Envision Image Library');
- }
- If ((Page mod 2) = 0) or (Page = pages) Then
- Printer.EndDoc;
- end;
-
- procedure PrintWithAutoPrintJob;
- begin
- GraphicPrinter.UsePrintJob := True;
- GraphicPrinter.Title := _Msg('影像列印');
- GraphicPrinter.Print(ImageScrollBox1.Graphic);
- end;
-
-begin
- S := TStringlist.Create;
- GraphicPrinter := TDibGraphicPrinter.Create;
- PrtDialog := TPrintDialog.Create(self);
- //PrtDialog.Copies:=99;
- try
- IF PrtDialog.Execute Then
- begin
- S.Text := FileName;
- Pages := S.Count;
-
- for i := 0 to S.Count -1 do
- begin
- ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);
- watermark2(Image1.Picture.Bitmap,70,'',ImageScrollBox1.DisplayedGraphic);
- PrintWithManualPrintJob(LoginID,DateTime,Pages,i+1);
- end;
- end;
-
- Finally
- PrtDialog.Free;
- GraphicPrinter.Free;
- S.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir
-var
- i : Integer;
- DocNoList,FileList : TStringlist;
-begin
- Result := '';
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := DocNoList.Count-1 downto 0 do
- begin
- if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
- begin
- Result := DocNoList.Strings[i];
- Break;
- end;
- end;
- finally
- DocNoList.Free;
- FileList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FindLastestDocDirForPage(CaseID,DocNo,formid:String):String; //找出最新的DocDir 20180207 排除隱藏的資料夾
-var
- i,j:integer;
- DocNoList,FileList : TStringlist;
- Imglist: TStringlist;
- DirIsHide:Boolean;
-begin
- Result := '';
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- imglist := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- for i := DocNoList.Count-1 downto 0 do
- begin
- if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
- begin
-//ShowMessage(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]);
- if not DocNoIsExistImg(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
- begin
-//ShowMessage('DDDDD');
- Result := '';
- Break;
- end
- else
- begin
- Result := DocNoList.Strings[i];
- Break;
- end;
- end;
- end;
- finally
- DocNoList.Free;
- FileList.Free;
- imglist.Free;
- end;
-
-end;
-
-
-Procedure TCB_IMGPSScanX.Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件
-var
- i,n : Integer;
- C_DocNoList,C_DocNameList : TStringlist;
- DocNo,DocName,DocDir : String;
- DocNo_Ct,NowDocNo_Ct :integer;
- DocName_Ct : Integer;
- inx : Integer;
-begin
- C_DocNoList := TStringlist.Create;
- C_DocNameList := TStringlist.Create;
- try
-
- if FC_DocNoList <> '' then
- begin
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- //Showmessage(C_DocNoList.Text);
- for i := 0 to C_DocNoList.Count - 1 do
- begin
- DocNo := C_DocNoList.Strings[i];
- //舊件不長出錯誤的文件出來
- if (FIs_OldCase = 'Y') and (FWork_no='HLN') and (DocNo = FormCode2DocNo('10000001011112A')) then
- Continue;
- NowDocNo_Ct := GetDocNoCount(CaseID,DocNo);
- if DocNoNeedDiv(DocNo) then
- begin
- DocNo_Ct := 0;
- for n := 0 to i do
- begin
- if C_DocNoList.Strings[n] = DocNo then
- inc(DocNo_Ct);
- end;
- if DocNo_CT <= NowDocNo_Ct then
- Continue;
- if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then //存在了
- Continue;
- if (DocNo_Ct = 1) and DirectoryExists(ImageSavePath+CaseID+'\'+DocNo) then //存在了 20140327加
- Continue;
- DocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',DocNo)
-
- end
- else
- begin
- DocDir := DocNo;
- end;
- if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
- begin
- MkDir(ImageSavePath+CaseID+'\'+DocDir);
- SetDocNoList('A',-1,CaseID,DocDir,'1');
- end;
- if not DocNoNeedDiv(DocNo) then //不分份的秀數
- SetDocDirCopies(CaseID,DocNo,GetCustomDocNoCount(DocNo));
-
- end;
- end;
- if FC_DocNameList <> '' then
- begin
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
- //Showmessage(C_DocNameList.Text);
- for i := 0 to C_DocNameList.Count - 1 do
- begin
- DocName := C_DocNameList.Strings[i];
- DocName_Ct := GetCustomNameCount(DocName);
- if not FindCustomDocName(ImageSavePath+CaseID+'\',DocName) then
- begin
- DocDir := GetNewCustomDocNo(ImageSavePath+CaseID+'\',DocName);
- if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
- begin
- MkDir(ImageSavePath+CaseID+'\'+DocDir);
- SetDocNoList('A',-1,CaseID,DocDir,inttostr(DocName_Ct));
- end;
- end
- Else
- begin
- DocDir := GetCustomDocDir(ImageSavePath+CaseID+'\',DocName);
- //inx := DocNoDir2Index(ImageSavePath+CaseID+'\',DocDir);
- SetDocDirCopies(CaseID,DocDir,DocName_Ct);
- end;
- end;
- end;
-
- finally
- C_DocNoList.Free;
- C_DocNameList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
-var
- i,n : Integer;
- C_DocNoList,C_DocNameList : TStringlist;
- DocNoList,DocNo_CopiesList : TStringlist;
- DocNo,DocName,DocDir : String;
- DocNo_Ct :integer;
-begin
- C_DocNoList := TStringlist.Create;
- C_DocNameList := TStringlist.Create;
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to DocNoList.Count - 1 do
- begin
- DocNo_CopiesList.Add('0');
- end;
- //Showmessage(FC_DocNoList);
- if FC_DocNoList <> '' then
- begin
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- //showmessage(C_DocNoList.Text+#13+#13+DocNoList.Text);
- for i := 0 to DocNoList.Count - 1 do
- begin
- //DocNo := DocNoList.Strings[i];
- DocNo := DocNoDir2DocNo(DocNoList.Strings[i]); //20140812 因轉舊案錯誤件會出現DocnoDir
- DocNo_Ct := 0;
- for n := 0 to C_DocNoList.Count - 1 do
- begin
- if DocNo = C_DocNoList.Strings[n] then
- inc(DocNo_Ct);
- end;
- if DocNo_CT > 0 Then
- DocNo_CopiesList.Strings[i] := inttostr(DocNo_CT);
- end;
- DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- end;
- if FC_DocNameList <> '' then
- begin
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
- for i := 0 to DocNoList.Count - 1 do
- begin
- DocNo := DocNoList.Strings[i];
- DocNo_Ct := 0;
- for n := 0 to C_DocNameList.Count - 1 do
- begin
- if GetCustomDocName(ImageSavePath+CaseID+'\',DocNo) = C_DocNameList.Strings[n] then
- inc(DocNo_Ct);
- end;
-
- if DocNo_CT > 0 Then
- DocNo_CopiesList.Strings[i] :=inttostr(DocNo_CT);
- end;
- end;
- DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- finally
- C_DocNoList.Free;
- C_DocNameList.Free;
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
-var
- DocNoList,FileList :TStringlist;
- EDocNo,CDocNo,iDocNo,iFormID :String;
- EDocDir,CDocDir:String;
- OldFile,NewFile :String;
- iPath,iiPath : String;
- i,n : Integer;
-begin
- EDocNo := FormCode2DocNo(EFormID);
- CDocNo := FormCode2DocNo(CFormID);
- DocNoList :=TStringlist.Create;
- FileList := TStringlist.Create;
- try
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to DocNoList.Count - 1 do
- begin
- EDocDir := DocNoList.Strings[i];
- iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
- iPath := ImageSavePath+CaseID+'\'+EDocDir+'\';
- if FileExists(iPath+'Context.dat') then //20140909漏加這個判斷造成自訂文件但沒影像會出錯誤訊息
- FileList.LoadFromFile(iPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- iFormID := FileName2FormCode(FileList.Strings[n]);
- if iFormID = EFormID then
- begin
- OldFile := FileList.Strings[n];
- NewFile := StringReplace(FileList.Strings[n],iFormID,CFormID,[rfReplaceAll]);
- FileList.Strings[n] := NewFile;
- RenameFile(iPath+OldFile,iPath+NewFile);
- FileList.SaveToFile(iPath+'Context.dat');
- end;
- end;
- if iDocNo = EDocNo then
- begin
- CDocDir := StringReplace(EDocDir,EDocNo,CDocNo,[rfReplaceAll]);
- iiPath := ImageSavePath+CaseID+'\'+CDocDir+'\';
- MoveFile(PWideChar(iPath),PWideChar(iiPath));
- DocNoList.Strings[i] := StringReplace(DocNoList.Strings[i],iDocNo,CDocNo,[rfReplaceAll]);
- DocNoList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- //SetRecordEditedDocDir('A',CaseID,CDocNo); //20140918 yuu說改成不紀錄
- end;
- end;
- finally
- DocNoList.Free;
- FileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
-var
- i : Integer;
- Exists : Boolean;
- EditedDocDirList : TStringlist;
-begin
- EditedDocDirList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
- EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- case Mode of
- 'A':begin
- Exists := False;
- for i := 0 to EditedDocDirList.Count - 1 do
- begin
- if EditedDocDirList.Strings[i]=DocDir then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- begin
- EditedDocDirList.Add(DocDir);
- EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- end;
- end;
- 'D':begin
- for i := 0 to EditedDocDirList.Count - 1 do
- begin
- if EditedDocDirList.Strings[i] = DocDir then
- begin
- EditedDocDirList.Delete(i);
- if EditedDocDirList.Count > 0 then
- EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat')
- else
- DeleteFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- Break;
- end;
- end;
- end;
- end;
-
- finally
- EditedDocDirList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocDir_Page(CaseID,DocDir:String):Integer;
-var
- FileList : TStringlist;
-begin
- Result := 0;
- FileList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- Result := FileList.Count;
- end;
- finally
- FileList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.Path2DocDir(Path,CaseID:String):String;
-var
- i : Integer;
- DocnoList : TStringlist;
-begin
- Result := '';
- DocNoList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- if Path[length(Path)]<>'\' then
- path := path+'\';
- for i := 0 to DocNoList.Count - 1 do
- begin
- if (path=ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
- begin
- Result := DocNoList.Strings[i];
- Break;
- end;
- end;
- finally
- DocNoList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
-var
- i :Integer;
-begin
- Result := False;
- for i := 0 to IN_WH_DocNoList.Count - 1 do
- begin
- if DocNo = IN_WH_DocNoList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序
-var
- i,n,v,ln : Integer;
- Exists:Boolean;
- FileList,SortFileList,FormIDList : TStringlist;
- FormID,iFormID:String;
- OldName,NewName : String;
-begin
- FileList := TStringlist.Create;
- SortFileList := TStringlist.Create;
- FormIDList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- ////取出FormID/////
- for i := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[i]);
- if (FormID = 'Attach') or (FormID = 'S_Attach') then Continue; //附件離開
- Exists := False;
- for n := 0 to FormIDList.Count - 1 do //查一下FORMID是否已經存在了
- begin
- if FormID = FormIDList.Strings[n] then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- FormIDList.Add(FormID);
- end;
- FormIDList.Sort;
- //排序後產要更名的清單
- for i := 0 to FormIDList.Count - 1 do
- begin
- iFormID := FormIDList.Strings[i];
- for n := 0 to FileList.Count - 1 do
- begin
- if FileName2FormCode(FileList.Strings[n]) = iFormID then
- begin
- SortFileList.Add(FileList.Strings[n]+','+'@'+Add_Zoo(SortFileList.Count+1,3)+'_'+iFormID+ExtractFileExt(FileList.Strings[n]));
- end;
- end;
- end;
- FileList.Clear;
- //更名成新順序的檔名
- for i := 0 to SortFileList.Count - 1 do
- begin
- v := Pos(',',SortFileList.Strings[i]);
- ln := Length(SortFileList.Strings[i]);
- OldName := Copy(SortFileList.Strings[i],1,v-1);
- NewName := Copy(SortFileList.Strings[i],v+1,ln-v);
- RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
- FileList.Add(NewName);
- end;
- //去掉@開頭
- for i := 0 to FileList.Count - 1 do
- begin
- OldName := FileList.Strings[i];
- NewName := StringReplace(OldName,'@','',[rfReplaceAll]);
- ReNameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
- FileList.Strings[i] := NewName;
- end;
- FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- end;
- finally
- FileList.Free;
- SortFileList.Free;
- FormIDList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GotoAttach(OldLevel:Integer);
-var
- i : Integer;
-begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- if Pos('Attach',MyTreeNode1.Item[i].Text) > 0 then
- begin
- if OldLevel = 2 then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i];
- end
- else if OldLevel = 3 then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i].Item[0];
- end;
- Break;
- end;
- end;
- //TreeView1click(nil);
-end;
-
-Function TCB_IMGPSScanX.DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
-var
- i : Integer;
-begin
- Result := False;
- if (Copy(DocNo,1,5)='ZZZZZ') then //20140728 yuu 說自訂文件也是入庫文件
- begin
- Result := True;
- Exit;
- end;
- for i := 0 to IN_WH_DocNoList.Count -1 do
- begin
- if DocNo = IN_WH_DocNoList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateCaseNeedData(Path:String);
-var
- FileList,DocNoList,CaseDocNoList,CaseDocNo_CopiesList : TStringlist;
- i,n : Integer;
- Docno : String;
- Exists : Boolean;
-begin
- FileList := TStringlist.Create;
- DocNoList := TStringlist.Create;
- CaseDocNoList := TStringlist.Create;
- CaseDocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- begin
- FileList.LoadFromFile(Path+'Context.dat');
- for i := 0 to FileList.Count - 1 do
- begin
- Docno := FormCode2DocNo(FileName2FormCode(FileList.Strings[i]));
-//ShowMessage('Docno='+Docno);
- DocNoList.Add(DocNo);
- Exists := False;
- for n := 0 to CaseDocNoList.Count - 1 do
- begin
- if Docno = CaseDocNoList.Strings[n] then
- Exists := True;
- end;
- if not Exists then
- begin
- CaseDocNoList.Add(DocNo);
- CaseDocNo_CopiesList.Add('1');
- end;
- end;
-//ShowMessage('CreateCaseNeedData DocNoList='+DocNoList.Text);
- DocNoList.SaveToFile(Path+'DocDir.dat');
- CaseDocNoList.SaveToFile(Path+'CaseDocNo.dat');
- CaseDocNo_CopiesList.SaveToFile(Path+'CaseDocNo_Copies.dat')
- end;
-
- finally
- FileList.Free;
- DocNoList.Free;
- CaseDocNoList.Free;
- CaseDocNo_CopiesList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String);
-var
- i : Integer;
-begin
- for i := 0 to CaseNode.Count - 1 do
- begin
- if Pos(DocDir+'{',CaseNode.Item[i].Text) > 0 then
- begin
- TreeView1.Selected := CaseNode.Item[i];
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像
-var
- i : Integer;
- iISBName : String;
- iISB : TImageScrollBox;
- ImgPath,DocDir : String;
-begin
- Result := False;
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- //Showmessage(Components[i].Name);
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- ImgPath := ExtractFilePath(iISB.FileName);
- DocDir := Path2DocDir(ImgPath,CaseID);
- if GetUseCase('T',Path,DocDir) <> '' then
- Result := True;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.TransOldCaseFile(Path:String):Boolean;
-var
- i : Integer;
- OldCaseID,Year,Data,Verify:String;
- SendData : String;
- OldCaseInfoList,Caseinfolist : TStringlist;
- OldCasePath : String;
-begin
- Result := True;
- OldCaseInfoList := TStringlist.Create;
- Caseinfolist := TStringlist.Create;
- try
- OldCaseInfoList.StrictDelimiter := True;
- OldCaseInfoList.Delimiter := #9;
- OldCaseInfoList.DelimitedText := FOldCaseInfo;
- for i := 0 to OldCaseInfoList.Count - 1 do
- begin
- Caseinfolist := SplitString('@#,',OldCaseInfoList.Strings[i]);
- //Caseinfolist.Delimiter := '_';
- //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
- OldCaseID := Caseinfolist.Strings[0];
- Year := Caseinfolist.Strings[1];
- Data := Caseinfolist.Strings[4];
- Verify := Caseinfolist.Strings[5];
- OldCasePath := Path+OldCaseID+'\';
- if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then
- begin
- //////壓檔/////
- //ZipMainFile(Path,Path,'Img.zip');
-
- ////上傳/////
- SendData:='data='+HTTPEncode(UTF8Encode(Data))+'&verify='+Verify+'&other_case_no='+OldCaseID;
- //Showmessage(FUrl+'service/slic/SLIC02/useOther?'+senddata);
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then
- begin
- Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Result := False;
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- Result := False;
- Exit;
- end;
- end;
-
- ////上傳////
- end;
- finally
- OldCaseInfoList.Free;
- Caseinfolist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.Writelog(CaseID : String):Boolean;
-var
- SendData : String;
-begin
- Result := True;
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID;
- If not ProcessServlet(HTTPSClient,FURL+'service/imgpsc/IMGPSC06/printlog',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetFtpinfo(CaseID,Action:String):Boolean;
-var
- SendData : String;
-
- Procedure DecodeFtpInfo(EncryStr:String);
- var
- FtpStr : String;
- ftpinfoList : TStringlist;
- begin
- if EncryStr = '' then Exit;
- ftpinfoList := TStringlist.Create;
- try
- FtpStr := En_DecryptionStr_Base64('D',EncryStr,MpsKey);
- SplitString('!@!',FtpStr,ftpinfoList);
- if ftpinfoList[0] = 'ftps' then
- FFtpProtocol := fpftps
- else if ftpinfoList[0] = 'ftp' then
- FFtpProtocol := fpftp;
- FFtpIP := ftpinfoList[1];
- FFtpPort := strtoint(ftpinfoList[2]);
- FFtpID := ftpinfoList[3];
- FFtpPwd := ftpinfoList[4];
-
- finally
- ftpinfoList.Free;
- end;
- end;
-begin
- Result := True;
- SendData:='product='+FWork_no+'&case_no='+CaseID+'&department='+FUserUnit+'&action='+Action;
- If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/ftps',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF (memo1.Lines.Strings[0] = '1') Then
- begin
- if memo1.Lines.Strings[1]='nodata' then //nodata 為正常可繼續的判斷
- begin
- TransMode := tsNone;
- Result := True;
- Exit;
- end
- else
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end
- else if (memo1.Lines.Strings[0] <> '0') then//不認識的字串
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[0];
- Result := False;
- Exit;
- end;
- TransMode := tsHttp;
- FFtpExtraPath := '';
-
- if memo1.Lines.Strings[0] = '0' then
- begin
- if memo1.Lines.Strings[2] = 'Y' then //要使用FTP
- TransMode := tsFtp;
- if memo1.Lines.Count > 3 then
- begin
- FFtpExtraPath := memo1.Lines.Strings[3];
- DecodeFtpInfo(memo1.Lines.Strings[4]);
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetFtpInfo; //餵入FTP資訊
-begin
- IIS_Ftp.Display1 := Display1;
- IIS_Ftp.FTPSClient1 := FTPSClient1;
- IIS_Ftp.ElMemoryCertStorage := ElMemoryCertStorage;
- IIS_Ftp.Display1 := Display1;
- IIS_Ftp.Ftpip := FFtpIP;
- IIS_Ftp.Ftpuserid := FFtpID;
- IIS_Ftp.FtpPwd := FFtpPwd;
- IIS_Ftp.FtpPath := FFtpRootPath;
- IIS_Ftp.FtpPort := FFtpPort;
- IIS_Ftp.FtpSSL := True;
- IIS_Ftp.FtpPassive := True;
- if FFtpProtocol = fpftp then
- IIS_Ftp.FtpSSL := False;
- IIS_Ftp.FtpEncryptDataChannel := true;
- FTPSClient1.OnControlReceiveAsString := IIS_Ftp.EventHandlers.ControlReceiveAsString;
- FTPSClient1.OnControlSendAsString := IIS_Ftp.EventHandlers.ControlSendAsString;
- FTPSClient1.OnSSLError := IIS_Ftp.EventHandlers.SSLError;
- FTPSClient1.OnCertificateValidate := IIS_Ftp.EventHandlers.CertificateValidate;
- FTPSClient1.OnTextDataLine := IIS_Ftp.EventHandlers.TextDataLine;
-
- {Showmessage(Format('Ftpip:%s'+#13
- +'Ftpid:%s'+#13
- +'Ftppwd:%s'+#13
- +'Ftppath:%s'+#13
- +'Ftpport:%s'+#13
- ,[FFtpIP,FFtpid,FFtpPwd,Ftppath,inttostr(Ftpport)]));}
-end;
-
-Function TCB_IMGPSScanX.FtpCaseComplete(SendData:String):Boolean;
-begin
- Result := True;
- If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/caseupload',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF (memo1.Lines.Strings[0] = '1') or (memo1.Lines.Strings[0] <> '0') Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormIDAppear(FormID:String):Boolean; //FormID是否可出現
-var
- iDocNo : String;
-begin
- Result := True;
- iDocNo := FormCode2DocNo(FormID);
- if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
- ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
- Result := False;
-
- if (FIs_In_Wh='Y') and (FWH_category='Y') then //20170816 新加
- begin
- if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
- ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
- Result := False;
- end;
-
- if (FIs_In_Wh='Y') and (FWH_category='N') then //20170816 新加
- begin
- Result:=True;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
-begin
- Result := True;
-
- {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach')) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') )) {and //非入庫掃描不看入庫文件
- (Copy(DocNo,1,5)<>'ZZZZZ')} {then
- {Result := False;}
- //20181031 應該要換成下面的判斷比較對,FIs_In_Wh傳空的話才會出全部
- if (((FIs_In_Wh = 'Y') and ((not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach'))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and ((DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') ))) {and //非入庫掃描不看入庫文件
- (Copy(DocNo,1,5)<>'ZZZZZ')} then
- Result := False;
-
-
-end;
-
-Function TCB_IMGPSScanX.GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量
-var
- i : Integer;
- Doc_Ct:Integer;
- iDocNo : String;
- DocNoList,DocNo_CopiesList : TStringlist;
-begin
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- begin
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- end;
- Doc_Ct := 0;
- for i := 0 to DocNoList.Count - 1 do
- begin
- iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
- if iDocNo = DocNo then
- Doc_Ct := Doc_Ct + strtoint(DocNo_CopiesList.Strings[i]);
- end;
- Result := Doc_Ct;
- // Showmessage(DocNo+#13+inttostr(Doc_Ct));
- finally
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir數量
-var
- i : Integer;
- DocNoList,DocNo_CopiesList : TStringlist;
-begin
- Result := 1; //預設回傳1 //20140521 由0改成1
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat') then
- begin
- DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- for i := 0 to DocNoList.Count - 1 do
- begin
- if (DocDir = DocNoList.Strings[i]) and (i <= DocNo_CopiesList.Count-1) then
- begin
- Result := strtoint(DocNo_CopiesList.Strings[i]);
- Break;
- end;
- end;
- end;
- finally
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數
-var
- i : Integer;
- DocNoList,DocNo_CopiesList : TStringlist;
-begin
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- begin
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- end;
- for i := 0 to DocNoList.Count - 1 do
- begin
- if DocDir = DocNoList.Strings[i] then
- begin
- DocNo_CopiesList.Strings[i] := inttostr(NewCopies);
- DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- Break;
- end;
- end;
- finally
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數
-var
- i,n,v,v1 : Integer;
- OldCaseInfoList,Caseinfolist : TStringlist;
- iCaseID,Year,iBS_No,iIS_Old,iDocNo,iCopies:String;
-begin
- Result := 1;
- OldCaseInfoList := TStringlist.Create;
- Caseinfolist := TStringlist.Create;
- try
- //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數]
- OldCaseInfoList.StrictDelimiter := true;
- OldCaseInfoList.Delimiter := #9;
- OldCaseInfoList.DelimitedText := FOldCaseInfo;
-
- for i := 0 to OldCaseInfoList.Count - 1 do
- begin
- Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
- //Caseinfolist.Delimiter := '_';
- //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
- iCaseID := Caseinfolist.Strings[0];
- Year := Caseinfolist.Strings[1];
- iBS_No := Caseinfolist.Strings[2];
- iIS_Old := Caseinfolist.Strings[3];
- if CaseID = iCaseID then
- begin
- for n := 6 to Caseinfolist.Count - 1 do
- begin
- v := Pos('[',Caseinfolist.Strings[n]);
- v1 := Pos(']',Caseinfolist.Strings[n]);
- iDocNo := Copy(Caseinfolist.Strings[n],1,v-1);
- iCopies := Copy(Caseinfolist.Strings[n],v+1,v1-v-1);
- if Copy(DocDir,1,5) = 'ZZZZZ' then
- begin
- if iDocNo = GetCustomDocName(Path,DocDir) then
- Result := strtoint(iCopies);
- end
- else
- begin
- if iDocNo = DocNoDir2DocNo(DocDir) then
- Result := strtoint(iCopies);
- end;
- end;
-
- end;
- end;
- finally
- OldCaseInfoList.Free;
- Caseinfolist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量
-var
- i,ct : Integer;
- C_DocNameList : TStringlist;
-begin
- C_DocNameList := TStringlist.Create;
- try
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
- ct := 0;
- for i := 0 to C_DocNameList.Count - 1 do
- begin
- if C_DocNameList.Strings[i] = CustomName then
- begin
- inc(ct);
- end;
- end;
- Result := ct;
- finally
- C_DocNameList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量
-var
- i,ct : Integer;
- C_DocNoList : TStringlist;
-begin
- C_DocNoList := TStringlist.Create;
- try
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- ct := 0;
- for i := 0 to C_DocNoList.Count - 1 do
- begin
- if C_DocNoList.Strings[i] = Docno then
- begin
- inc(ct);
- end;
- end;
- Result := ct;
- finally
- C_DocNoList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.ISGuideFormID(FormID:String):Boolean;
-var
- i : Integer;
-begin
- Result := False;
- for i := 0 to GuideFormIDList.Count - 1 do
- begin
- if FormID = GuideFormIDList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.ISDivPageFormID(FormID:String):Boolean;
-var
- i : Integer;
-begin
- Result := False;
-
- for i := 0 to DivPageFormIDList.Count - 1 do
- begin
- if FormID = DivPageFormIDList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-function TCB_IMGPSScanX.ISExistImg(const filename: string): boolean;
-begin
- if ExistImgList.IndexOf(LoadFileGetMD5(filename))<>-1 then
- begin
- Result:=True;
- end
- else
- begin
- Result:=False;
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除
-var
- i : Integer;
- CaseDocNoList : TStringlist;
-begin
- Result := True;
- CaseDocNoList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- if GetUseCase('T',DisplayPath,CaseDocNoList.Strings[i]) <> '' then //有被引用走的
- Result := False;
- end;
-
- finally
- CaseDocNoList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.MoveImage(Path:String;mp:Integer); //移動頁數
-var
- i,n,inx:Integer;
- FList,D_Flist:TStringlist;
-begin
- FList := TStringlist.Create;
- D_Flist := TStringlist.Create;
- try
- FList.LoadFromFile(Path+'Context.dat');
- //Showmessage(Path);
- //Showmessage(Flist.Text);
- for i := 0 to FList.Count - 1 do
- begin
- Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
- Flist.Strings[i]:= '@'+Flist.Strings[i];
- end;
-
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
- D_Flist.Add(Flist.Strings[inx-1]);
- //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
- end;
- end;
- //Showmessage('aa');
- for i := 0 to D_Flist.Count -1 do
- begin
- for n := 0 to FList.Count - 1 do
- begin
- //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
- if Flist.Strings[n]=D_Flist.Strings[i] then
- begin
- Flist.Delete(n);
- Break;
- end;
- end;
- end;
- //Showmessage('bb');
- for i := 0 to D_Flist.Count - 1 do
- begin
- Flist.Insert(mp-1+i,D_Flist.Strings[i]);
- end;
-
- Flist.SaveToFile(Path+'Context.dat');
- //Showmessage(Flist.Text);
- //Showmessage('CC');
- ReSortFileName(Path);
- TreeView1click(self);
-
-
- finally
- FList.Free;
- D_Flist.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數
-var
- i,n,inx:Integer;
- FList,D_Flist:TStringlist;
-begin
- FList := TStringlist.Create;
- D_Flist := TStringlist.Create;
- try
- FList.LoadFromFile(Path+'Context.dat');
- for i := 0 to FList.Count - 1 do
- begin
- Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
- Flist.Strings[i]:= '@'+Flist.Strings[i];
- end;
-
- D_Flist.Add(Flist.Strings[fp-1]);
-
- {for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
- D_Flist.Add(Flist.Strings[inx-1]);
- //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
- end;
- end;}
- //Showmessage('aa');
- for i := 0 to D_Flist.Count -1 do
- begin
- for n := 0 to FList.Count - 1 do
- begin
- //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
- if Flist.Strings[n]=D_Flist.Strings[i] then
- begin
- Flist.Delete(n);
- Break;
- end;
- end;
- end;
- //Showmessage('bb');
- for i := 0 to D_Flist.Count - 1 do
- begin
- Flist.Insert(tp-1+i,D_Flist.Strings[i]);
- end;
-
- Flist.SaveToFile(Path+'Context.dat');
- //Showmessage(Flist.Text);
- //Showmessage('CC');
- ReSortFileName(Path);
- TreeView1click(self);
-
-
- finally
- FList.Free;
- D_Flist.Free;
- end;
-end;
-
-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;
-
-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;
-
-Procedure TCB_IMGPSScanX.Case2upload(CaseID:String);
-var
- i,n:Integer;
- OldPath,NewPath,DocDir : String;
- OldFile,NewFile,AttFile : String;
- DocNoList,FileList:TStringlist;
- iFileList,iFile_DocNoList :TStringlist;
- iDocDirList : TStringlist;
- iAttFileList : TStringlist;
-begin
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- iFileList := TStringlist.Create;
- iFile_DocNoList := TStringlist.Create;
- iDocDirList := TStringlist.Create;
- iAttFileList := TStringlist.Create;
- try
- OldPath := ImageSavePath+CaseID+'\';
- NewPath := ImageSavePath+CaseID+'\Upload\';
- if DirectoryExists(NewPath) then
- _DelTree(NewPath);
- str2dir(NewPath);
- CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
- CopyFile(PWideChar(OldPath+'CaseDocNo_Copies.dat'),PWideChar(NewPath+'CaseDocNo_Copies.dat'),False);
- CopyFile(PWideChar(OldPath+'CustomDocNo.ini'),PWideChar(NewPath+'CustomDocNo.ini'),False);
- CopyFile(PWideChar(OldPath+'CaseIndex.dat'),PWideChar(NewPath+'CaseIndex.dat'),False);
- CopyFile(PWideChar(OldPath+'In_Wh.dat'),PWideChar(NewPath+'In_Wh.dat'),False);
- CopyFile(PWideChar(OldPath+'UseCase.ini'),PWideChar(NewPath+'UseCase.ini'),False);
-
- if FileExists(OldPath+'CaseDocNo.dat') then
- begin
- DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');
- end
- else
- begin
- DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');
- CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
- end;
-
- for i := 0 to DocNoList.Count-1 do
- begin
- DocDir := DocNoList.Strings[i];
- OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
-
- FileList.Clear;
- if FileExists(OldPath+'Context.dat') then
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- OldFile := FileList.Strings[n];
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
- iFileList.Add(NewFile);
- iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
- iDocDirList.Add(DocDir);
- end;
- end;
- end;
- if DirectoryExists(ImageSavePath+CaseID+'\Attach') then
- begin
- DocDir := 'Attach';
- OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
-
- FileList.Clear;
- if FileExists(OldPath+'Context.dat') then
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- OldFile := FileList.Strings[n];
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
- iFileList.Add(NewFile);
- iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
- iDocDirList.Add(DocDir);
- end;
- end;
- end;
-
- if DirectoryExists(ImageSavePath+CaseID+'\S_Attach') then
- begin
- DocDir := 'S_Attach';
- OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
-
- FileList.Clear;
- if FileExists(OldPath+'Context.dat') then
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- OldFile := FileList.Strings[n];
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
- iFileList.Add(NewFile);
- iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
- iDocDirList.Add(DocDir);
- end;
- end;
- end;
- OldPath := ImageSavePath+CaseID+'\';
- if FileExists(OldPath+'AttContext.dat') then
- begin
- iAttFileList.LoadFromFile(OldPath+'AttContext.dat');
- for n := 0 to iAttFileList.Count - 1 do
- begin
- AttFile := iAttFileList.Strings[n];
- CopyFile(PWideChar(OldPath+AttFile),PWideChar(NewPath+AttFile),False);
- end;
- iAttFileList.SaveToFile(NewPath+'AttContext.dat');
- end;
-
-
- iFileList.SaveToFile(NewPath+'Context.dat');
- iFile_DocNoList.SaveToFile(NewPath+'Context_DocNo.dat');
- iDocDirList.SaveToFile(NewPath+'DocDir.dat');
-
- finally
- iFileList.Free;
- iAttFileList.Free;
- iFile_DocNoList.Free;
- DocNoList.Free;
- FileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.Download2Case(SoDir,DeDir:String);
-var
- i,n : Integer;
- DocDir:String;
- OldFile,NewFile,AttFile:String;
- DocNoList,FileList : TStringlist;
- iFileList,iFile_DocDirList :TStringlist;
- iAttFileList :TStringlist;
- AA,AA2,AA3,AA4:Boolean;
-begin
-
- if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then //截畫面會沒這些檔
- begin
-//ShowMessage('產生必要的文字檔');
- CreateCaseNeedData(SoDir); //產生必要的文字檔
- end;
-
- AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
- AA2:=CopyFile(PWideChar(SoDir+'CaseDocNo_Copies.dat'),PWideChar(DeDir+'CaseDocNo_Copies.dat'),False);
- AA3:=CopyFile(PWideChar(SoDir+'CustomDocNo.ini'),PWideChar(DeDir+'CustomDocNo.ini'),False);
- AA4:=CopyFile(PWideChar(SoDir+'UseCase.ini'),PWideChar(DeDir+'UseCase.ini'),False);
-//ShowMessage(BoolToStr(AA)+#10#13+BoolToStr(AA2)+#10#13+BoolToStr(AA3)+#10#13+BoolToStr(AA4));
- if FileExists(SoDir+'DocDir.dat') then //20170222 新加
- begin
- CopyFile(PWideChar(SoDir+'DocDir.dat'),PWideChar(DeDir+'DocDir.dat'),False);
- end;
-
-
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- iFileList := TStringlist.Create;
- iFile_DocDirList := TStringlist.Create;
- iAttFileList := TStringlist.Create;
- try
- //if Not FileExists(SoDir+'Context.dat') then Exit;
- //iFileList.LoadFromFile(SoDir+'Context.dat');
- //if iFileList.Count = 0 then Exit;
- if FileExists(SoDir+'Context.dat') then
- iFileList.LoadFromFile(SoDir+'Context.dat');
- if FileExists(SoDir+'DocDir.dat') then
- iFile_DocDirList.LoadFromFile(SoDir+'DocDir.dat');
- if iFileList.Count <> iFile_DocDirList.Count then
- begin
- for i := 0 to iFileList.Count - 1 do
- begin
- if i > iFile_DocDirList.Count -1 then
- begin
- iFile_DocDirList.Add(FormCode2DocNo(FileName2FormCode(iFileList.Strings[i])));
- end;
- end;
- end;
- if FileExists(SoDir+'CaseDocNo.dat') then
- DocNoList.LoadFromFile(SoDir+'CaseDocNo.dat');
- if FileExists(DeDir+'CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
- {for i := 0 to DocNoList.Count - 1 do
- begin
- DocDir := DocNoList.Strings[i];
- MkDir(DeDir+DocDir);
- end;}
-//ShowMessage('DocNoList='+DocNoList.Text);
-
- for i := DocNoList.Count - 1 downto 0 do
- begin
- DocDir := DocNoList.Strings[i];
- if not DirectoryExists(DeDir+DocDir) then
- begin
- MkDir(DeDir+DocDir);
- if not FileExists(DeDir+DocDir+'\Context.dat') then
- StringtoFile('',DeDir+DocDir+'\Context.dat');
- end
- else
- begin
-//ShowMessage('GGG');
- DocNoList.Delete(i);
- DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
- if i <= CaseDocNo_CopiesList.Count-1 then
- begin
-//ShowMessage('KKKK');
- CaseDocNo_CopiesList.Delete(i);
- CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- end;
- end;
- end;
- //20170221 先註解起來 因為他在補充掃瞄時好像會有顯示的問題
-
- for i := 0 to iFileList.Count - 1 do
- begin
- OldFile := iFileList.Strings[i];
- DocDir := iFile_DocDirList.Strings[i];
- if (DocDir = 'Attach') or (DocDir = 'S_Attach') then
- begin
- if not DirectoryExists(DeDir+DocDir) then
- MkDir(DeDir+DocDir);
- end;
-
- FileList.Clear;
- if FileExists(DeDir+DocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(DeDir+DocDir+'\Context.dat');
- end;
- NewFile := Add_Zoo(FileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(SoDir+OldFile),PWideChar(DeDir+DocDir+'\'+NewFile),False);
- FileList.Add(NewFile);
- FileList.SaveToFile(DeDir+DocDir+'\Context.dat');
- end;
-
- for i := DocNoList.Count -1 downto 0 do
- begin
- if (DocNoList.Strings[i] = 'Attach') or (DocNoList.Strings[i] = 'S_Attach') then
- begin
- DocNoList.Delete(i);
- DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
- end;
- end;
-
- {if (DocNoList.Count > 0) and ((DocNoList.Strings[DocNoList.Count-1] = 'Attach') or (DocNoList.Strings[DocNoList.Count-1] = 'S_Attach')) then
- begin
- DocNoList.Delete(DocNoList.Count-1);
- DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
- end; }
- CaseDocNo_CopiesList.Clear;
-
- if FileExists(DeDir+'CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
- if DocNoList.Count > CaseDocNo_CopiesList.Count then
- begin
- for i := 0 to DocNoList.Count - 1 do
- begin
- if i > CaseDocNo_CopiesList.Count-1 then
- begin
- CaseDocNo_CopiesList.Add('1');
- //CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- end;
- end;
- end;
- CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- {if (not FileExists(DeDir+'CaseDocNo_Copies.dat') then
- begin
- CaseDocNo_CopiesList.Free;
- for i := 0 to DocNoList.Count - 1 do
- begin
- CaseDocNo_CopiesList.Add('1');
- CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- end;
- end;}
- if FileExists(SoDir+'AttContext.dat') then
- begin
- iAttFileList.LoadFromFile(SoDir+'AttContext.dat');
- for i := 0 to iAttFileList.Count - 1 do
- begin
- AttFile := iAttFileList.Strings[i];
- CopyFile(PWideChar(SoDir+AttFile),PWideChar(DeDir+AttFile),False);
- end;
- iAttFileList.SaveToFile(DeDir+'AttContext.dat');
- end;
-
-
- if FMode='ESCAN' then
- begin
- InitExistImgList(DeDir);
- end;
-
-
- finally
- iFileList.Free;
- FileList.Free;
- DocNoList.Free;
- iFile_DocDirList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱
-var
- i,v,ln : Integer;
- DelBarCode : String;
- CusDocNo,CusDocName : String;
-begin
- Result := '';
- if (FormCode = '') or (FormCode = 'Attach') or (FormCode = 'S_Attach') then
- Result := _Msg('未歸類')
- //showmessage('a');
- //stringtofile(FORM_INF_List.Text,'D:\121.txt');
- Else If FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.FORM_DESC','T1.FORM_ID',FormCode,0,FindResult) then
- Result := GetFindResult('T1.FORM_DESC');
-
- ////// 到自訂文件找//////
- if Result = '' then
- Result := GetCustomDocName(ImageSavePath+CaseID+'\',FormCode2DocNo(FormCode));
- {for i := 0 to Cust_DocNoList.Count - 1 do
- begin
- v := Pos('_',Cust_DocNoList.Strings[i]);
- ln := Length(Cust_DocNoList.Strings[i]);
- CusDocNo := copy(Cust_DocNoList.Strings[i],1,v-1);
- CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
- if CusDocNo = FormCode2DocNo(FormCode) then
- Result := DocNo2DocName(CusDocNo);
-
- end;}
-
-
- {DelBarCode := '**'+FormCode;
- for I := 0 to FormCodeList.Count - 1 do
- begin
- if FindDel then //要找下架的
- begin
- if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
- begin
- Result := FormNameList.Strings[i];
- Break;
- end;
- end
- Else
- begin
- if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
- begin
- Result := FormNameList.Strings[i];
- Break;
- end;
- end;
- end; }
-end;
-
-Function TCB_IMGPSScanX.FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁)
-var
- i : Integer;
- v,v1 : Integer;
-begin
- Result := '';
- for i := 0 to List.Count - 1 do
- begin
- V := pos('_',List.Strings[i]);
- v1 := pos('.',List.Strings[i]);
- if (FormCode = '') and (V = 0)then //FormCode 為空的則找附件出來
- begin
- Result := List.Strings[i];
- Break;
- end;
- IF FormCode = Copy(List.Strings[i],v+1,v1-v-1) then
- begin
- Result := List.Strings[i];
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2FormCode(FileName:String):String; //從檔名取出FormCode
-var
- v,v1 : Integer;
-begin
- FileName := ExtractFileName(FileName);
- v := Pos('_',FileName);
- v1 := Pos('.',FileName);
- if v > 0 then
- begin
- Result := Copy(FileName,v+1,v1-v-1);
- end
- Else //附件
- begin
- Result := '';
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱
-begin
- Result := FormCode2FormName(CaseID,FileName2FormCode(FileName));
-end;
-
-Function TCB_IMGPSScanX.FileName2ScanPage(FileName:String):Integer; //從檔名轉出掃瞄頁數
-Var
- v : Integer;
- FName : String;
-begin
- FName := ExtractFileName(FileName);
- v := Pos('_',FName);
- if v = 0 then //附件
- v := pos('.',FName);
- Result := Strtoint(Copy(FName,1,v-1));
-end;
-
-Function TCB_IMGPSScanX.FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名
-var
- v,v1 : Integer;
- FName : String;
-begin
- FName := ExtractFileName(FileName);
- v := Pos('_',FName);
- if v = 0 then //附件
- v := pos('.',FName);
- v1 := length(FName);
- Result := Copy(FName,v,v1-v+1);
-end;
-
-Function TCB_IMGPSScanX.FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號
-var
- i : Integer;
-begin
- for i := 0 to ContextList.Count - 1 do
- begin
- if FileName = ContextList.Strings[i] then
- begin
- Result := i;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號
-var
- i : Integer;
-begin
- for I := 0 to CTList.Count -1 do
- begin
- if FileName = CTList.Strings[i] then
- begin
- Result := DNList.Strings[i];
- break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormCode2DocNo(FormCode:String):String; //FormCode轉Docno
-Var
- i : Integer;
-begin
- Result := '';
- for i := 0 to FormID_List.Count-1 do
- begin
- if FormID_List.Strings[i] = FormCode then
- begin
- Result := DocNo_List.Strings[i];
- Break;
- end;
-
- end;
- if (FormCode <> '') and (Result = '') then //是自訂文件
- begin
- Result := Copy(FormCode,1,8); //20170224 DocNo 固定長度8碼
- end;
-
- {If FindSQLData(FORM_INF_List,'T1.DOC_NO','T1.FORM_ID',FormCode,0,FindResult) Then //20130403太慢了..換掉
- begin
- Result := GetFindResult('T1.DOC_NO');
- end;}
-end;
-
-Function TCB_IMGPSScanX.FormCode2Version(FormCode:String):String; //FormCode轉版本
-begin
- Result := Copy(FormCode,11,5);
-end;
-
-Function TCB_IMGPSScanX.FormCode2Page(FormCode:String):String; //FormCode轉頁數
-begin
- Result := Copy(FormCode,9,2)
-end;
-
-Function TCB_IMGPSScanX.DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱
-var
- i,v,ln : Integer;
- CusDocNo,CusDocName : String;
-begin
- Result := '';
- if DocNo = AttName then
- begin
- Result := _Msg('未歸類');
- end
- Else
- begin
- If FindSQLData(Doc_Inf_List,'DOC_U_DESC','DOC_NO',DocNo,0,FindResult) Then
- begin
-//ShowMessage(FindResult.Text);
- Result := GetFindResult('DOC_U_DESC');
- end;
- end;
-
- if Result = '' then //去自訂文件裡找
- begin
- Result := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- {for i := 0 to Cust_DocNoList.Count - 1 do
- begin
- v := Pos('_',Cust_DocNoList.Strings[i]);
- ln := length(Cust_DocNoList.Strings[i]);
- CusDocNo := Copy(Cust_DocNoList.Strings[i],1,v-1);
- CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
- if DocNo = CusDocNo then
- begin
- Result := CusDocName;
- Break;
- end;
- end;}
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁)
-var
- i : Integer;
-begin
- Result := '';
- for i := 0 to List.Count - 1 do
- begin
- IF DocNo = FormCode2DocNo(FileName2FormCode(List.Strings[i])) then
- begin
- Result := List.Strings[i];
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別
-begin
- Result := '';
- If FindSQLData(FORM_INF_List,'T1.WORK_NO','T1.FORM_ID',FormCode,0,FindResult) Then
- begin
- Result := GetFindResult('T1.WORK_NO');
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別
-begin
- Result := '';
- If FindSQLData(Doc_Inf_List,'WORK_NO','DOC_NO',DocNo,0,FindResult) Then
- begin
- Result := GetFindResult('WORK_NO');
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號
-var
- NeedDiv : String;
-begin
- Result := False;
- If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
- begin
- NeedDiv := GetFindResult('IS_DOC_DIV');
- if NeedDiv = 'Y' then
- Result := True;
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page
-var
- v,ln : Integer;
-begin
- //XXXXXX-XX頁
- V := Pos('-',Node.Text);
- ln := Length(Node.Text);
- case Mode of
- 'I': Result := Copy(Node.Text,1,v-1); //CaseID
- 'P': Result := Copy(Node.Text,v+1,ln-v-1); //CasePage
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group
-var
- v,v1,v2,v3,ln :integer;
-begin
- //文件名稱@組數{文件代號}-XX頁
- V := PosEnd('@',Node.Text);
- v1 := PosEnd('{',Node.Text);
- v2 := PosEnd('}',Node.Text);
- v3 := PosEnd('-',Node.Text);
- ln := Length(Node.Text);
- case Mode of
- 'I': Result := Copy(Node.Text,v1+1,v2-v1-1); //DocNo
- 'N': Result := Copy(Node.Text,1,v-1); //DocName
- 'P': Result := Copy(Node.Text,v3+1,ln-v3-1); //DocPage
- 'G': Result := Copy(Node.Text,v+1,v1-v-1); //DocGroup
- end;
-end;
-
-Function TCB_IMGPSScanX.FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page
-var
- v,v1,v2,ln :integer;
-begin
- //表單代號{表單名稱}-XX頁
- v := Pos('{',Node.Text);
- v1 := PosEnd('}',Node.Text);
- v2 := PosEnd('-',Node.Text);
- ln := Length(Node.Text);
- case Mode of
- 'I': Result := Copy(Node.Text,1,v-1); //FormID
- 'N': Result := Copy(Node.Text,v1+1,v2-v1-1); //FormName
- 'P': Result := Copy(Node.Text,v2+1,ln-v2-1); //Page
- end;
-end;
-
-Procedure TCB_IMGPSScanX.PriorPage(Page:Integer); //上一頁
-var
- iISB : TImageScrollBox;
-begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page-1)));
- if iISB <> nil then
- begin
- ISBClick(iISB);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.NextPage(Page:Integer); //下一頁
-var
- iISB : TImageScrollBox;
-begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page+1)));
- if iISB <> nil then
- begin
- ISBClick(iISB);
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //是否己存在樹裡
-var
- i : Integer;
-begin
- Result := False;
- for I := 0 to CaseNode.Count - 1 do
- begin
- if DocNo = DocNode2Info(CaseNode.Item[i],'I') Then
- begin
- Result := True;
- Break;
- end;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組
-begin
- Result := False;
- If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
- begin
- if GetFindResult('IS_DOC_DIV') = 'Y' Then
- Result := True;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DistinctFormCode(CaseID:String); //從案件裡的FormCode取出第一頁
-var
- i,n : Integer;
- LForm,OForm : String;
- Addok : Boolean;
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
- for i := 0 to S.Count - 1 do
- begin
-LogFile1.LogToFile(logTimeString+S.Strings[i]+' ISExistImg='+BoolToStr(ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]),true));
-LogFile1.LogToFile(logTimeString+S.Strings[i]+' reSizeExistImgList='+BoolToStr(reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1,true));
- if FWH_category='N' then
- begin
- if (ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))
- or (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1) then
- begin
- Continue;
- end;
- end;
-
- LForm := FileName2FormCode(S.Strings[i]);
- AddOk := True;
- for n := 0 to OMRFileList.Count - 1 do
- begin
- OForm := FileName2FormCode(OMRFileList.Strings[n]);
- if (LForm <> '') and (LForm = OForm) then
- begin
- AddOk := False;
- Break;
- end;
- end;
- if AddOk then
- begin
- OMRFileList.Add(S.Strings[i]);
- end;
- end;
- finally
- S.Free;
- end;
-
-end;
-
-
-Function TCB_IMGPSScanX.OMRCheckCase(CaseID:String):Boolean; //OMR檢核
-var
- i,n,m,v,v1 : Integer;
- XT,RelaXT,ValueXT : TXmltool;
- OMRFormCode,OMRFile,OMRFormName,ColEName,ColCName,Site : String;
- Pixel : Integer;
- RelaFormCode,RelaFile,RelaFormName,RelaColEName,RelaColCName,RelaSite : String;
- RelaDocNo,RelaDocName : string;
- RelaPixel : Integer;
- s : String;
- nodename : String;
- OMROK : Boolean;
- CaseOk : Boolean;
- ErrStr : String;
- SiteRec,RelaSiteRec : String; //多組位置記錄
- OMRValue : String;
- MainFormID,MainDocNo,MainVersion : String; //主FormID
- MainFormPage,CaseFormPage : Integer; //主要文件需要的頁數
- NeedDocNoStr,NoDocNoStr : String; //相依 互斥文件字串
- List : TStringlist;
- FormCode : String;
- FormDataPages : Integer;
- NoSite : Boolean; //未定位
- Anchor,Anchor1 : String;
- OMROkCount : Integer;
- //Casecheck : Boolean; //是否要做檢核
- //AllCheck : Boolean; //是否要做完整檢核
-
- ISB8W,ISB8H:integer;
-begin
- ///OMRErrInfo 1: 必要文件 2:相依文件 3:互斥文件 4:必填 5:欄位有值附文件 6:欄位有值不附文件
- /// 7: 欄位有值相關欄位也要有值 8:欄位有值要寫備註 9:停用日期 10:最大頁數
- //Casecheck := True;
- //Allcheck := True;
- //if (FMode = 'ISCAN') then
- //Allcheck := False;
- CaseOk := True;
- //if Casecheck then
- //begin
- DeleteFile(ImageSavePath+CaseID+'\upload\Checkerr.ini');
- DeleteFile(ImageSavePath+CaseID+'\upload\CheckMemo.dat');
- //DeleteFile(ImageSavePath+CaseID+'\upload\ReSize.dat');
- DeleteFile(ImageSavePath+CaseID+'\upload\RemoveMemo.dat');
- DeleteFile(ImageSavePath+CaseID+'\upload\OMRCheckOk.dat');
- Memo1.Lines.Clear;
- OMRFileList.Clear;
-
- MainFormID := GetCaseFormID(ImageSavePath+CaseID+'\upload\');
- List := TStringlist.Create;
- try
- //if AllCheck then
- //begin
- if GetCasePage(ImageSavePath,CaseID) =0 then
- begin
-
- end;
-//ShowMessage('MainFormID='+MainFormID);
-LogFile1.LogToFile(logTimeString+' '+FModeName+' '+CaseID+' '+'MainFormID='+MainFormID);
- if MainFormID = ''then
- begin
- //20131203 yuu說不檢查這個,先拿掉 20170315 楷琳說未歸類要擋 20170726 因此有檢查必要FormID 所以 可以拿掉
- {if FCheck_main_form='Y' then
- begin
- if (FMode <> 'SSCAN') AND (FMode<>'ESCAN') then //簽署章件會換主FormID,先跳過 20170629 ESCAN 也不檢查
- begin
- ErrStr:=_Msg('找不到分案文件'); //找不到主文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
- CaseOk := false;
-//ShowMessage('AAAAA');
- end;
- end;
- }
- end
- Else
- begin
- //////主要非主要文件//////
- DistinctDocinCase(ImageSavePath+CaseID+'\upload\');
-//ShowMessage(DocNo_VerinCase.Text);
-//DocNo_VerinCase.Add('31A00101_1706A');
-LogFile1.LogToFile(logTimeString+' '+CaseID+' '+'DocNo_VerinCase.Text='+DocNo_VerinCase.Text);
- if ModeNeedCheck(OMRErrInfo[1].Mode,FMode) then //是否要檢核
- begin
- for i := 0 to DocNo_VerinCase.Count - 1 do
- begin
- v := Pos('_', DocNo_VerinCase.Strings[i]);
- v1 := length(DocNo_VerinCase.Strings[i]);
- MainDocNo := Copy(DocNo_VerinCase.Strings[i],1,v-1); //FormCode2DocNo(MainFormID);
- MainVersion :=Copy(DocNo_VerinCase.Strings[i],v+1,v1-v); //FormCode2Version(MainFormID);
- MainFormPage := GetDataDocNoPage(MainDocNo,MainVersion); //資料庫記錄主文件頁數
- CaseFormPage := CheckCaseDocNoPage(CaseID,MainDocNo,MainVersion,MainFormPage); //案件主文件的頁數
-LogFile1.LogToFile(logTimeString+CaseID+',MainDocNo='+MainDocNo+',MainVersion='+MainVersion+',MainFormPage='+IntToStr(MainFormPage)+',CaseFormPage='+IntToStr(CaseFormPage));
- //CheckFirstDocNoPage
- IF (MainFormPage > 0) and (MainFormPage <> CaseFormPage) then
- begin
- ErrStr:=MainDocNo+Format(OMRErrInfo[1].Info,[Inttostr(MainFormPage),Inttostr(CaseFormPage)]); //主要文件需有XX頁僅附XX頁
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[1].Ignore,OMRErrInfo[1].Display);
- if OMRErrInfo[1].Display then
- CaseOk := false;
- end;
- end;
- end;
- //////主要非主要文件/////
-//showmessage(MainFormID);
- MainDocNo := FormCode2DocNo(MainFormID);
- MainVersion := FormCode2Version(MainFormID);
- if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
- begin
- NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
- NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
- end
- Else if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
- begin
- NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
- NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
- end;
-
- //////相依文件/////
- if ModeNeedCheck(OMRErrInfo[2].Mode,FMode) then //是否要檢核
- begin
- List.CommaText := NeedDocNoStr;
- for I := 0 to List.Count - 1 do
- begin
- if not Case_DocNoExists(CaseID,List.Strings[i]) then //沒附相依文件
- begin
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
- begin
- Continue;
- end;
- end;
- ErrStr:=Format(OMRErrInfo[2].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //沒附相依文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[2].Ignore,OMRErrInfo[2].Display);
- if OMRErrInfo[2].Display then
- CaseOk := false;
- end;
- end;
- end;
- //////相依文件/////
-
- //////互斥文件/////
- if ModeNeedCheck(OMRErrInfo[3].Mode,FMode) then //是否要檢核
- begin
- List.CommaText := NoDocNoStr;
- for I := 0 to List.Count - 1 do
- begin
- if Case_DocNoExists(CaseID,List.Strings[i]) then //附了互斥文件
- begin
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
- begin
- Continue;
- end;
- end;
- ErrStr:=Format(OMRErrInfo[3].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //有附互斥文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[3].Ignore,OMRErrInfo[3].Display);
- if OMRErrInfo[3].Display then
- CaseOk := false;
- end;
- end;
- end;
- //////互斥文件/////
- end; //MainFormID結束
- //end;
- List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
- for i := 0 to List.Count - 1 do
- begin
- FormCode := FileName2FormCode(List.Strings[i]);
- /////未歸類///
- {IF FormCode = 'Attach' Then //20140211 yuu說不檢查了
- begin
- ErrStr:=_Msg('尚有文件未歸類');
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
- CaseOk := false;
- end; }
- /////未歸類//////
-
- /////未註冊文件/////
- {IF not FormIDExists(FormCode,False) then //未註冊文件
- begin
- ErrStr:=FormCode+_Msg('不為此業務的表單代碼');
- OMRErr2ini(CaseID,ErrStr,'','','','',False,False,True);
- CaseOk := false;
- end }
- /////未註冊文件/////
- //////停用文件//
- {Else} IF ModeNeedCheck(OMRErrInfo[9].Mode,FMode) and (not FormIDExists(FormCode,True,0)) and (not checkFormCodeIsCustom(ImageSavePath + CaseID+'\upload\',FormCode)) then //有停用的文件
- begin
-//ShowMessage('AAAA');
- ErrStr:=Format(OMRErrInfo[9].Info,[FormCode2FormName(CaseID,FormCode)]); //有停用文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[9].Ignore,OMRErrInfo[9].Display);
-//ShowMessage('ErrStr='+ErrStr);
- if OMRErrInfo[9].Display then
- CaseOk := false;
- end;
- //////停用文件////
- end;
- finally
- List.Free;
- end;
- //if AllCheck then
- //begin
- //////最大頁數///
-LogFile1.LogToFile(logTimeString+'最大頁數A段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
- DistinctFormCode(CaseID);
- if ModeNeedCheck(OMRErrInfo[10].Mode,FMode) then //是否要檢核
- begin
-//ShowMessage('AAA'+OMRFileList.Text);
-LogFile1.LogToFile(logTimeString+'最大頁數B段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
- For i := 0 to OMRFileList.Count - 1 do
- begin
- if FModeName=_Msg('異動件') then Continue;
-
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+OMRFileList.Strings[i]) then
- begin
- Continue;
- end;
- end;
- FormCode := FileName2FormCode(OMRFileList.Strings[i]);
- FormDataPages := GetDataFormCodePages(FormCode);
-
- IF (FormCode <> '') and (FormDataPages > 0) and (FindFormCodePages(CaseID,FormCode) > FormDataPages) then //有超過最大頁數的文件
- begin
- ErrStr:=Format(OMRErrInfo[10].Info,[FormCode2FormName(CaseID,FormCode),inttostr(FormDataPages)]); //有超過最大頁數文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[10].Ignore,OMRErrInfo[10].Display);
- if OMRErrInfo[10].Display then
- CaseOk := false;
- end;
- end;
- end;
- /////最大頁數/////
- //end;
- ImageScrollBox1.FileName := '';
- //if FWork_No = 'CW' then //理賠就不做下面的檢核了
- //begin
- //////OMR檢核///////
- ContextList.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
- DistinctFormCode(CaseID);
- ValueXT := TXmltool.Create;
- Try
-//ShowMessage('必填'+OMRFileList.Text);
-LogFile1.LogToFile(logTimeString+'必填 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
- For i := 0 to OMRFileList.Count - 1 do
- begin
-//ShowMessage('OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
- if CheckRequiredColumnValues(FWork_NO,CaseID) then Continue;
-
- OMRFile := OMRFileList.Strings[i];
- OMRFormCode := FileName2FormCode(OMRFileList.Strings[i]);
- OMRFormName := FormCode2FormName(CaseID,OMRFormCode);
- Anchor := FormID2Anchor(OMRFormCode);
- ///依十字定位點縮放////
- ImageReSize_FormID(CaseID,OMRFile);
- ////依十字定位點縮放///
-//Display1.Lines.Add('OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
-LogFile1.LogToFile(logTimeString+'OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
-//ShowMessage('KKKKK');
- if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then //沒有Xml就不用檢核
- Continue;
-
-//ShowMessage('11638 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
- XT := TXmltool.Create(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml');
- RelaXT := TXmltool.Create;
-//ShowMessage('ModeNeedCheck='+BoolToStr(ModeNeedCheck(OMRErrInfo[4].Mode,FMode),true));
- try
- //*******必填********
- if ModeNeedCheck(OMRErrInfo[4].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype1/'].First then
- Repeat
- OMROK := False;
- SiteRec := ''; //清掉
- ColEName := XT.SubNodes['/form/settype1/'].NodeName;
- ColCName := XT.Node['/form/settype1/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- if XT.SubNodes['/form/settype1/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype1/'+ColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- Pixel := Strtoint(XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
- Site := XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- //有填就ok
- //Showmessage(ColCName +','+ inttostr(OMRMpsV1.GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site))+','+inttostr(Pixel + SafePixel));
-//SafePixel:=90000;
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-//FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,ANCHOR);
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- //Showmessage('oh');
- OMROK := True;
- Break;
- end;
- end
- Else
- begin
- //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
- end;
- Until not XT.SubNodes['/form/settype1/'+ColEName+'/'].Next;
- if not OMROk then
- begin
- ErrStr:=Format(OMRErrInfo[4].Info,[ColCName]); //XX欄位未填寫
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[4].Ignore,OMRErrInfo[4].Display);
- if OMRErrInfo[4].Display then
- CaseOk := false;
- end;
- Until not XT.SubNodes['/form/settype1/'].Next ;
- end;
- //*******必填********
-//ShowMessage('11692 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
- //if AllCheck then
- //begin
- //*******有值相關文件的欄位也要有值*******
- if ModeNeedCheck(OMRErrInfo[7].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype3/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- ColEName := XT.SubNodes['/form/settype3/'].NodeName;
- ColCName := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['pixel'];
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
-
- if XT.SubNodes['/form/settype3/'+ColEName+'/'].First then
- Repeat
- RelaSiteRec := '';
- nodename := XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeName;
- If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeIsAttr) then
- begin
- RelaFormCode := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaColEName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
- RelaColCName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
- RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
- RelaFile := FormCode2FileName(RelaFormCode,ContextList);
- RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
- Anchor1 := FormID2Anchor(RelaFormCode);
- RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
-Display1.Lines.Add(RelaFile+','+RelaFormName);
-//ShowMessage(RelaFile);
-//ShowMessage(ImageSavePath+CaseID+'\upload\'+RelaFile);
- if RelaFile<>'' then
- begin
- ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
- ISB8W:= ISB8.Graphic.Width;
- ISB8H:= ISB8.Graphic.Height;
- FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
- end;
-
- OMROK := False;
- //OMROK := False;
- //if RelaXT.SubNodes['/form/settype2/'].First then
- //Repeat
- NoSite := True;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
- NoSite := False;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
- Repeat
- nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
- RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
- if RelaSiteRec= '' then //記錄位置
- RelaSiteRec := RelaSite
- else
- RelaSiteRec := RelaSiteRec+'@'+RelaSite;
- if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- begin
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
- begin
- OMROK := True;
- Break;
- end;
- ///依十字定位點縮放////
- ImageReSize_FormID(CaseID,OMRFile); //20170815 重新抓定位
- ////依十字定位點縮放////
- end;
- end;
-
- Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
- if not OMROk then
- begin
- if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位未填寫
- Else if NoSite then
- ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
- Else
- ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位未填寫
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
- if OMRErrInfo[7].Display then
- CaseOk := false;
- end;
- //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
-
- end;
- Until not XT.SubNodes['/form/settype3/'+ColEName+'/'].Next;
- end;
- Until not XT.SubNodes['/form/settype3/'].Next ;
- end;
- //*******有值相關文件的欄位也要有值*******
-//ShowMessage('11788 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
-
- //*******有值相關文件的欄位不能有值*******
- if ModeNeedCheck(OMRErrInfo[11].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype8/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- OMROkCount := 0;
- ColEName := XT.SubNodes['/form/settype8/'].NodeName;
- ColCName := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['pixel'];
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫// //
- inc(OMROkCount);
- end;
- if XT.SubNodes['/form/settype8/'+ColEName+'/'].First then
- Repeat
- RelaSiteRec := '';
- nodename := XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeName;
- If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeIsAttr) then
- begin
- RelaFormCode := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaColEName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
- RelaColCName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
- RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
- RelaFile := FormCode2FileName(RelaFormCode,ContextList);
- RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
- Anchor1 := FormID2Anchor(RelaFormCode);
- RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
-
- if RelaFile<>'' then
- begin
- ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
- ISB8W:= ISB8.Graphic.Width;
- ISB8H:= ISB8.Graphic.Height;
- FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
- end;
-
- OMROK := False;
- //OMROK := False;
- //if RelaXT.SubNodes['/form/settype2/'].First then
- //Repeat
- NoSite := True;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
- NoSite := False;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
- Repeat
- nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
- RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
- if RelaSiteRec= '' then //記錄位置
- RelaSiteRec := RelaSite
- else
- RelaSiteRec := RelaSiteRec+'@'+RelaSite;
- if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- begin
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
- begin
- inc(OMROkCount);
- //OMROK := True;
- //Break;
- end;
- ///依十字定位點縮放////
- ImageReSize_FormID(CaseID,OMRFile);
- ////依十字定位點縮放////
- end;
- end;
- //Else
- //begin
- //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
- //end;
- Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
- if OMROkCount > 1 then
- begin
- if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位也填寫
- Else if NoSite then
- ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
- Else
- ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位也填寫
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
- if OMRErrInfo[11].Display then
- CaseOk := false;
- end;
- //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
-
- end;
- Until not XT.SubNodes['/form/settype8/'+ColEName+'/'].Next;
- Until not XT.SubNodes['/form/settype8/'].Next ;
- end;
- //*******有值相關文件的欄位不能有值*******
-
-//ShowMessage('11889 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
-
- //*******有值相依文件*******
- if ModeNeedCheck(OMRErrInfo[5].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype4/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- ColEName := XT.SubNodes['/form/settype4/'].NodeName;
- ColCName := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['pixel'];
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
- if XT.SubNodes['/form/settype4/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeName;
- If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeIsAttr) then
- begin
- {RelaFormCode := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := FormCode2FileName(RelaFormCode);
- RelaFormName := FormCode2FormName(RelaFormCode); }
- RelaDocNo := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := DocNo2FileName(RelaDocNo,ContextList);
- RelaDocName := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
- if RelaFile='' then
- begin
- ErrStr:=Format(OMRErrInfo[5].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,需附XX文件
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[5].Ignore,OMRErrInfo[5].Display);
- if OMRErrInfo[5].Display then
- CaseOk := false;
- end;
- end;
- Until not XT.SubNodes['/form/settype4/'+ColEName+'/'].Next;
- end;
- Until not XT.SubNodes['/form/settype4/'].Next ;
- end;
- //*******有值相依文件*******
-
- //*******有值互斥文件*******
- if ModeNeedCheck(OMRErrInfo[6].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype5/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- ColEName := XT.SubNodes['/form/settype5/'].NodeName;
- ColCName := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['pixel'];
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
- if XT.SubNodes['/form/settype5/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeName;
- If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeIsAttr) then
- begin
- {RelaFormCode := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := FormCode2FileName(RelaFormCode);
- RelaFormName := FormCode2FormName(RelaFormCode);}
- RelaDocNo := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := DocNo2FileName(RelaDocNo,ContextList);
- RelaDocName := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
- if RelaFile<>'' then //有附 20130604看到(='')改的(未測)
- begin
- ErrStr:=Format(OMRErrInfo[6].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,不能附XX文件
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[6].Ignore,OMRErrInfo[6].Display);
- if OMRErrInfo[6].Display then
- CaseOk := false;
- end;
- end;
- Until not XT.SubNodes['/form/settype5/'+ColEName+'/'].Next;
- end;
- Until not XT.SubNodes['/form/settype5/'].Next ;
- end;
- //*******有值互斥文件*******
-
- //*******有值寫備註*******
- if ModeNeedCheck(OMRErrInfo[8].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype6/'].First then
- Repeat
- SiteRec := '';
- ColEName := XT.SubNodes['/form/settype6/'].NodeName;
- ColCName := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['colxy'];
- Pixel := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['pixel'];
-
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
-
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
- if not FileExists(ImageSavePath+CaseID+'ScanMemo.dat') then
- begin
- ErrStr:=Format(OMRErrInfo[8].Info,[ColCName]); //XX文件XX欄位填寫時,需寫備註
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[8].Ignore,OMRErrInfo[8].Display);
- if OMRErrInfo[8].Display then
- CaseOk := false;
- end;
- end;
- Until not XT.SubNodes['/form/settype6/'].Next ;
- end;
- //*******有值寫備註*******
-
- //*******OMR帶值********
- if XT.SubNodes['/form/settype7/'].First then
- Repeat
- ColEName := XT.SubNodes['/form/settype7/'].NodeName;
- ValueXT['/content/'+ColEName+'/@savevalue'] := ''; //先給預設空白
- if XT.SubNodes['/form/settype7/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype7/'+ColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- Pixel := Strtoint(XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
- Site := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
- OMRValue := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['getvalue'];
-
- //有填就ok
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ValueXT['/content/'+ColEName+'/@savevalue'] := OMRValue; //有填就換成設定的值
- Break;
- end;
- end;
- Until not XT.SubNodes['/form/settype7/'+ColEName+'/'].Next;
- Until not XT.SubNodes['/form/settype7/'].Next ;
-
- //*******OMR帶值********
- //end;
- Finally
- if (OMRValue <> '') then
- ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');
- XT.Free;
- RelaXT.Free;
- end;
- end;
- //必填迴圈結束
- Finally
- ValueXT.Free;
- end;
- //end;
- //end;
- Result := CaseOk;
-end;
-
-Procedure TCB_IMGPSScanX.OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini
-var
- ini : Tinifile;
- Errcount : Integer;
- S : TStringlist;
-begin
- if Display then
- begin
- ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
- try
- Errcount := ini.ReadInteger('OMRCount','Count',0); //透過Errcount來對應
- inc(ErrCount);
- ini.WriteString(inttostr(ErrCount),'Reason',Reason);
- ini.WriteBool(inttostr(ErrCount),'Ingnore',Ingnore);
- ini.writeString(inttostr(ErrCount),'FileName',FileName);
- ini.WriteString(inttostr(ErrCount),'Site',Site);
- ini.WriteString(inttostr(ErrCount),'RelaFileName',RelaFileName);
- ini.WriteString(inttostr(ErrCount),'RelaSite',RelaSite);
- ini.WriteString(inttostr(ErrCount),'Anchor',Anchor);
- ini.WriteString(inttostr(ErrCount),'RelaAnchor',Anchor1);
- ini.WriteBool(inttostr(ErrCount),'Del',Del);
- ini.WriteInteger('OMRCount','Count',ErrCount);
- finally
- ini.Free;
- end;
- end
- Else
- begin
- S := TStringlist.Create;
- try
- if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then
- S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');
- S.Add(Reason);
- S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');
- finally
- S.Free;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.OMRErrini2List(CaseID:String;ErrlistForm:TErrlistForm); //OMR檢核失敗從ini寫入ListView
-var
- ini : Tinifile;
- Errcount : Integer;
- Del : Boolean;
- i : Integer;
-begin
- ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
- try
- Errcount := ini.ReadInteger('OMRCount','Count',0);
-
- for i := 1 to ErrCount do
- begin
- Del := ini.ReadBool(inttostr(i),'Del',False); //是否被移除了
- if Not Del then
- begin
- With ErrlistForm.ErrListLV.Items.Add do
- begin
- Caption := ini.ReadString(inttostr(i),'Reason','');
- SubItems.Add(inttostr(i));
- end;
- end;
- end;
- if Errlistform.ErrListLV.Items.Count > 0 then
- Errlistform.ImmediateBt.Enabled := False;
- finally
- ini.Free;
- end;
-end;
-
-function TCB_IMGPSScanX.OMRErrini2ListForLog(CaseID: String): String;
-var
- ini : Tinifile;
- Errcount : Integer;
- Del : Boolean;
- i,j : Integer;
- ST,CaseList:TStringList;
-
-begin
- Result:='';
- //CaseList.dat
- ST:=TStringList.Create;
- CaseList:=TStringList.Create;
- CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');
- for I := 0 to CaseList.Count - 1 do
- begin
- ini := Tinifile.Create(ImageSavePath + CaseList.Strings[i]+'\upload\Checkerr.ini');
- try
- Errcount := ini.ReadInteger('OMRCount','Count',0);
-
- for j := 1 to ErrCount do
- begin
- Del := ini.ReadBool(inttostr(j),'Del',False); //是否被移除了
- if Not Del then
- begin
- ST.Add(ini.ReadString(inttostr(j),'Reason','')) ;
- end;
- end;
- finally
- ini.Free;
- end;
- end;
- Result:=ST.Text;
- ST.Free;
- CaseList.Free;
-end;
-
-
-Function TCB_IMGPSScanX.DownLanguage:Boolean; //下載多國語言檔
-begin
- Result := True; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- //dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)
- If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像
-var i,p:integer;
- ISB : TImageScrollBox;
- lb : TLabel;
- v ,v1 : Integer;
- page : Integer;
- List_FormCode,Err_FormCode: String;
- iFormID : String;
-begin
- ShowText := _Msg('影像顯示中,請稍候');
- DataLoading(True,True);
-
- IF FormCode = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
- begin
- ClearView(1);
- CreatePreViewISB(ContextList.Count);
- For i := Stpage-1 to ContextList.Count -1 do
- begin
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(stview+i)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+ContextList.Strings[i],1);
-
- {GetScrollData(ISB,HS,VS,iRate);
- if iRate = 0 then
- ISB.ZoomMode := zmFittoPage
- Else
- ISB.ZoomPercent := iRate;
- ISB.HorzScrollBar.Position := HS;
- ISB.VertScrollBar.Position := VS;
-
- List_FormCode := FileName2FormCode(ContextList.Strings[i]);
- lb := TLabel(FindComponent('lb'+intToStr(stview)));
- lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
- If List_FormCode = '' Then
- lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+')'
- Else
- lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+'-'+List_FormCode+')';
- Inc(Stview);
- If ((VMode = 0) and (Stview>1))
- or ((VMode = 1) and ((Stview>2)))
- or ((VMode = 2) and ((Stview>4)))
- or ((VMode = 3) and ((Stview>6)))
- or ((VMode = 4) and ((Stview>8))) Then
- break;
- }
- end;
- FitPreViewISB;
- end
- Else //顯示指定FormCode的影像
- begin
- If (TreeView1.Selected <> nil) Then
- begin
- If Stpage = 0 Then
- Stpage := 1;
- Page := 0;
- ClearView(stview);
- If Stpage > ContextList.Count Then Exit;
- For i := 0 to ContextList.Count -1 do
- begin
- List_FormCode := FileName2FormCode(ContextList.Strings[i]);
- {iFormID := GetMainFormID(List_FormCode);
- if iFormID <> '' then
- List_FormCode := iFormID;}
-
- Err_FormCode := 'NoCode';
- if (List_Formcode <> '') and (not FormIDExists(List_Formcode,False,0)) then
- Err_FormCode := 'Err';
- IF (List_FormCode = FormCode) or (Err_FormCode=Formcode) or (FormCode2DocNo(List_FormCode) = FormCode) Then
- begin
- Inc(Page);
- IF Page< Stpage Then
- Continue;
- ISB := TImageScrollBox(FindComponent('ISB'+intToStr(stview)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+ContextList.Strings[i],1);
-
- GetScrollData(ISB,HS,VS,iRate);
- if iRate = 0 then
- ISB.ZoomMode := zmFittoPage
- Else
- ISB.ZoomPercent := iRate;
- ISB.HorzScrollBar.Position := HS;
- ISB.VertScrollBar.Position := VS;
- {if not SortMode then
- begin
- SetScrollData(MPSViewX,MPSViewX.HorzScrollBarPos,MPSViewX.VertScrollBarPos,MPSViewX.ZoomPercent);
- end;}
- //MPSViewX.ImageZoomMode := zmFullpage;
- //MPSViewX.AntiAliased := True;
- lb := TLabel(FindComponent('lb'+intToStr(stview)));
- lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
- If List_FormCode = '' Then
- lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseno,List_FormCode)+')'
- Else
- lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseNo,List_FormCode)+'-'+List_FormCode+')';
- Inc(Stview);
- end;
- If ((VMode = 0) and (Stview>1))
- or ((VMode = 1) and ((Stview>2)))
- or ((VMode = 2) and ((Stview>4)))
- or ((VMode = 3) and ((Stview>6)))
- or ((VMode = 4) and ((Stview>8))) Then
- break;
- end;
- end;
- end;
- ISB1Click(ISB1);
-
-
- DataLoading(False,False);
-end;
-
-procedure TCB_IMGPSScanX.view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像
-var i,n,p:integer;
- ISB : TImageScrollBox;
- lb : TLabel;
- v ,v1 : Integer;
- List_DocNo,Trans_DocNo,List_FormCode,Form_Page: String;
- iDocNo : String;
- iGroupNo,page,Ct,int1 : Integer;
- ST1:TStringList;
-begin
- ShowText := _Msg('影像顯示中,請稍候');
- DataLoading(True,True);
-ST1:=TStringList.Create;
-//Display1.Lines.Clear;
- IF DocNo = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
- begin
- ClearView(1);
- if GetCasePage(ImageSavePath,NowCaseno) > 30 then
- begin
- DataLoading(False,False);
- Exit;
- end;
- CreatePreViewISB(GetCasePage(ImageSavePath,NowCaseno));
-//Showmessage(inttostr(GetCasePage(ImageSavePath,NowCaseno)));
- Ct := 0;
- For i := 0 to CaseDocNoList.Count-1 do
- begin
-
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
- end;
- end;
-
- iDocNo := CaseDocNoList.Strings[i];
-//ShowMessage('ST1.Count='+IntToStr(ST1.Count));
- if ST1.Count<>0 then
- begin
- if ST1.IndexOf(iDocNo)<>-1 then
- begin
- end
- else
- begin
- if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
- end;
- end
- else
- begin
- if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
- end;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
-//ShowMessage('ContextList='+ContextList.Text);
- for n := 0 to ContextList.Count - 1 do
- begin
-
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[n]) then
- begin
-
- if not DocNoIs_In_WH(Copy(iDocNo,1,8)) then
- begin
- Continue;
- end;
- end;
- end;
-
- inc(Ct);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
-
- DpiResize(ISB.Graphic,36,False);
- ISB.Redraw(true);
-
- end;
-
- end;
- //if DirectoryExists(Path+'Attach') then
- if DirectoryExists(Path+AttName) then
- begin
- //iDocNo := 'Attach';
- iDocNo := AttName;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
- for n := 0 to ContextList.Count - 1 do
- begin
- inc(Ct);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
- end;
- end;
-
- FitPreViewISB;
-
- end
- Else if (DocNo <> '') and (FormID = '') then //顯示指定DocNo+組別的影像 附件傳 Attach
- begin //顯示 文件層下的影像
- iDocNo := DocNo;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
-
-//ShowMessage('ContextList.Count='+IntToStr(ContextList.Count));
- CreatePreViewISB(ContextList.Count);
-//ShowMessage(IntToStr(ContextList.Count));
- int1:=0;
-//ShowMessage(BoolToStr(DocNoIs_In_WH(Copy(iDocNo,1,8)),true));
- For i := 0 to ContextList.Count -1 do
- begin
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
- begin
-
- if not DocNoIs_In_WH(Copy(iDocNo,1,8)) and ( iDocNo<>'Attach') then
- begin
- inc(int1);
- Continue;
- end;
- end;
- end;
-//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(i+1-int1)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
- DpiResize(ISB.Graphic,36,False);
- ISB.Redraw(true);
- end;
- FitPreViewISB;
- end
- Else if (FormID <> '') {and (FormID <> 'Attach')} then //顯示指定FormID的影像
- begin
- If (TreeView1.Selected <> nil) Then
- begin
- iDocNo := DocNo;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
- iGroupNo := 0;
- page := 0;
- Ct := 0;
- CreatePreViewISB(Pages);
-//ShowMessage('formID page'+IntToStr(Pages)+', ContextList='+ContextList.Text);
- For i := 0 to ContextList.Count -1 do
- begin
- if FileName2FormCode(ContextList.Strings[i]) = FormID then
- begin
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
-//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
-//ShowMessage(BoolToStr(ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]),true));
- if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
- begin
- if not DocNoIs_In_WH(FormCode2DocNo(FormID)) then
- Continue;
- end;
- end;
- inc(Ct);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
-//ShowMessage(ISB.Name);
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
- DpiResize(ISB.Graphic,36,False);
- ISB.Redraw(true);
-
- //NowShowFileList.Add(ContextList.Strings[i]);
- end;
- end;
- FitPreViewISB;
- end;
- end;
-
- if FindComponent(ISBName+'1') <> nil then
- begin
- ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
- end;
- ISB1Click(ISB1);
- DataLoading(False,False);
-end;
-
-Function TCB_IMGPSScanX.ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName
-begin
- Result := ISBName+Copy(SP.Name,3,length(SP.Name)-2);
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton14Click(Sender: TObject);
-var
- Count : Integer;
-begin
- if not ISB1.Graphic.IsEmpty then
- begin
- ISB1.LoadFromFile(ISB1.FileName,1);
- Rotate(ISB1.Graphic,270);
- if ISB1.Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
- TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
- end
- Else
- ISB1.SaveToFile(ISB1.FileName);
- ISB1.Redraw(True);
- SelectISB.Graphic.Assign(ISB1.Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- end;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton15Click(Sender: TObject);
-begin
- if not ISB1.Graphic.IsEmpty then
- begin
- ISB1.LoadFromFile(ISB1.FileName,1);
- Rotate(ISB1.Graphic,180);
- if ISB1.Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
- TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
- end
- Else
- ISB1.SaveToFile(ISB1.FileName);
- ISB1.Redraw(True);
- SelectISB.Graphic.Assign(ISB1.Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- end;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton16Click(Sender: TObject);
-begin
- if not ISB1.Graphic.IsEmpty then
- begin
- ISB1.LoadFromFile(ISB1.FileName,1);
- Rotate(ISB1.Graphic,90);
- if ISB1.Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
- TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
- end
- Else
- ISB1.SaveToFile(ISB1.FileName);
- ISB1.Redraw(True);
- SelectISB.Graphic.Assign(ISB1.Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- end;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton17Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFitHeight;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton18Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFitWidth;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton19Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmOriginalSize;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton20Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFittoPage;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton21Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmPercent;
- ISB1.ZoomPercent := 50;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton22Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmPercent;
- ISB1.ZoomPercent := 25;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton3Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFullPage;
-end;
-
-Procedure TCB_IMGPSScanX.CreatePreViewISB(Count:Integer);
-var
- ISB : TImageScrollBox;
- Panel : TPanel;
- i,W,H : Integer;
- myDate : TDateTime;
-begin
- FreePreViewISB;
- ScrollBox1.HorzScrollBar.Visible := False;
- W := 150;
- H := 250;
- for I := 1 to Count do
- begin
-
- if FindComponent('M_Pl'+inttostr(i))=nil then
- begin
- Panel := TPanel.Create(Self);
- Panel.Name := 'M_Pl'+inttostr(i);//FormatDateTime('yyyymmddhhnnsszzz', now)
- Panel.Left := 4;
- Panel.Top := (i-1)*H+(6*i);
- Panel.Height := H;
- Panel.Width := W;
- Panel.Parent := ScrollBox1;
- Panel.Caption :='';
-
- if FindComponent(ISBName+inttostr(i))=nil then
- begin
- ISB := TImageScrollBox.Create(Self);
- ISB.Name := ISBName+inttostr(i);
- ISB.Parent := Panel;
- ISB.Align := alClient;
- ISB.ZoomMode := zmFullPage;
- ISB.DragMode := dmAutomatic;
- ISB.MouseMode := mmuser;
- ISB.OnImageClick := ISBClick;
- ISB.OnImageMouseMove := ISBMouseMove;
- ISB.PopupMenu := PopupMenu6;
- ISB.OnImageMouseDown := ISBImageMouseDown;
- ISB.OnImageMouseUp := ISBImageMouseUp;
- ISB.OnEndDrag := ISBEndDrag;
- ISB.OnDragDrop := ISBDragDrop;
- ISB.OnDragOver := ISBDragOver;
- end;
- end;
-
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.FreePreViewISB;
-var
- i : Integer;
-begin
-try
- For i:= ComponentCount -1 downto 0 do
- begin
- IF (Components[i] is TImageScrollBox) and (Components[i]<>nil) Then
- begin
- IF Pos(ISBName,Components[i].Name) > 0 Then
- Components[i].Free;
- end
- Else If (Components[i] is TPanel) and (Components[i]<>nil) Then
- begin
- IF Pos('M_Pl',Components[i].Name) > 0 Then
- Components[i].Free;
- end
- Else If (Components[i] is TShape) and (Components[i]<>nil) Then
- begin
- IF Pos('SP',Components[i].Name) > 0 Then
- Components[i].Free;
- end;
- end;
- Application.ProcessMessages;
-except on E: Exception do
-end;
-
- //showmessage(inttostr(Count));
-end;
-
-Procedure TCB_IMGPSScanX.FitPreViewISB;
-var
- i : Integer;
- iISB : TImageScrollBox;
- iPanel : TPanel;
- T,H : Integer;
-begin
- T := 0;
- i := 1;
-
- while FindComponent(ISBName+inttostr(i)) <> nil do
- begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- iISB.Parent.Height := 250;
- iISB.Parent.Top := T+4;
- iISB.Parent.Height := iISB.DisplayedGraphic.Height;
- H := iISB.Parent.Height;
- T := iISB.Parent.Top+H;
- inc(i);
- end;
-
-
- {For i:= 1 to Count do
- begin
- if TImageScrollBox(FindComponent(ISBName+inttostr(i))) = nil then Break;
-
-
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- iISB.Parent.Height := H;
- iISB.Parent.Top := T+4;
- iISB.Parent.Height := iISB.DisplayedGraphic.Height;
- H := iISB.Parent.Height;
- T := iISB.Parent.Top+H;
- end;}
-
-end;
-
-Procedure TCB_IMGPSScanX.PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像
-var
- i,F_No,T_No : Integer;
- SP : TShape;
- ISB : TImageScrollBox;
- Function GetImgNo(iISB:TImageScrollBox):Integer;
- begin
- Result := strtoint(Copy(iISB.Name,length(ISBName)+1,length(iISB.Name)-length(ISBName))); //'PreViewISB'
- end;
-begin
- IF ToImg = nil Then //只畫單一個
- begin
- ISB := TImageScrollBox(FindComponent(ISBName+inttostr(GetImgNo(FromImg))));
- if TShape(FindComponent('SP'+inttostr(GetImgNo(FromImg)))) = nil then
- begin
-
- SP := TShape.Create(self);
- SP.Pen.Color := clblue;
- SP.Pen.Width := 3;
- SP.Parent := ScrollBox1;
- SP.Name := 'SP'+inttostr(GetImgNo(FromImg));
- SP.Left := ISB.Parent.Left-4;
- SP.Top := ISB.Parent.Top -4;
- SP.Width := ISB.Parent.Width + 8;
- SP.Height := ISB.Parent.Height + 8;
- end;
- end
- Else
- begin
- FreeShapeobj(nil);
- IF GetImgNo(FromImg) <= GetImgNo(ToImg) Then
- begin
- F_No := GetImgNo(FromImg);
- T_No := GetImgNo(ToImg);
- end
- Else
- begin
- F_No := GetImgNo(ToImg);
- T_No := GetImgNo(FromImg);
- end;
- For i := F_No to T_No do
- begin
- ISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- SP := TShape.Create(self);
- SP.Pen.Color := clblue;
- SP.Pen.Width := 3;
- SP.Parent := ScrollBox1;
- SP.Name := 'SP'+inttostr(i);
- SP.Left := ISB.Parent.Left-4;
- SP.Top := ISB.Parent.Top -4;
- SP.Width := ISB.Parent.Width + 8;
- SP.Height := ISB.Parent.Height + 8;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.FreeShapeobj(SelectISB : TImageScrollBox);
-var
- i : Integer;
-begin
- IF SelectISB = nil then //全Free;
- begin
- For i:= ComponentCount -1 downto 0 do
- begin
- IF Components[i] is TShape Then
- begin
- IF Pos('SP',Components[i].Name) > 0 Then
- Components[i].Free;
- end;
- end;
- end
- Else //只Free指定的
- begin
- TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))).Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ISBClick(Sender : TObject);
-var
- v,ln:Integer;
-begin
- if (GetKeyState(VK_SHIFT) < 0) Then
- begin
- PaintShape(SelectISB,TImageScrollBox(Sender));
- SelectISB := TImageScrollBox(Sender);
- end
- Else if (GetKeyState(VK_CONTROL) < 0) Then
- begin
- SelectISB := TImageScrollBox(Sender);
- IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
- PaintShape(SelectISB,nil)
- else
- FreeShapeobj(SelectISB);
- end
- Else
- begin
- FreeShapeobj(nil);
- SelectISB := TImageScrollBox(Sender);
- PaintShape(SelectISB,nil);
- end;
- GetSelectImageFile;
-
- v := length(ISBName);
- ln := length(SelectISB.Name);
- SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
- ISB1.ZoomMode := zmFittoPage;
-//ShowMessage('SelectISB.FileName='+SelectISB.FileName);
- //if SelectISB.FileName='' then exit;
-
- ISB1.LoadFromFile(SelectISB.FileName,1);
- if (ISB1.Graphic.ImageFormat <> ifBlackWhite) and (SmoothCB.Checked)then
- Image_Smooth(ISB1.Graphic);
- ISB1.Redraw(True);
- ISB1Click(ISB1);
-end;
-
-Procedure TCB_IMGPSScanX.ISBMouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
-begin
- //Edit1.SetFocus;
- if Draging then
- begin
- if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- begin
- SelectISB.BeginDrag(False);
- Draging := False;
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ISBImageMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-var
- v,ln:Integer;
-begin
- if Button = TMouseButton(mbLeft) Then
- begin
- Draging := True;
- //if SelectISB <> nil then
-
- //if not Draging then
- //begin
-
- end;
- //end;
-
- {if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- begin
- //Showmessage('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)));
- if (Button = TMouseButton(mbLeft)) and (GetKeyState(VK_CONTROL) >= 0) then
- begin
- if SelectISB <> nil then
- SelectISB.BeginDrag(False);
- end;
- end;
- //if (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- //begin
- //else
- //begin
- if not Draging then
- begin
- if (GetKeyState(VK_SHIFT) < 0) Then
- begin
- PaintShape(SelectISB,TImageScrollBox(Sender));
- SelectISB := TImageScrollBox(Sender);
- end
- Else if (GetKeyState(VK_CONTROL) < 0) Then
- begin
- SelectISB := TImageScrollBox(Sender);
- IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
- PaintShape(SelectISB,nil)
- else
- FreeShapeobj(SelectISB);
- end
- Else
- begin
- FreeShapeobj(nil);
- SelectISB := TImageScrollBox(Sender);
- PaintShape(SelectISB,nil);
- end;
- v := length(ISBName);
- ln := length(SelectISB.Name);
- SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
- ISB1.ZoomMode := zmFittoPage;
- ISB1.LoadFromFile(SelectISB.FileName,1);
- ISB1Click(ISB1);
- end;
- //end;
- //end
- //Else
- //begin
-
- //end; }
-
- {if (Button = TMouseButton(mbRight)) and (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- begin
- //ISBClick(Sender);
- end;
- if (Button = TMouseButton(mbLeft)) then
- begin
-
- end; }
-end;
-
-procedure TCB_IMGPSScanX.ISBImageMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- Draging := False;
-end;
-
-procedure TCB_IMGPSScanX.ISBEndDrag(Sender, Target: TObject; X, Y: Integer);
-begin
- TreeView1Click(self);
-end;
-
-procedure TCB_IMGPSScanX.ISBDragDrop(Sender, Source: TObject; X, Y: Integer);
-var
- fp,tp : Integer;
-begin
- fp := FileName2ScanPage(TimageScrollBox(Source).FileName);
- tp := FileName2ScanPage(TimageScrollBox(Sender).FileName);
- MoveImage_Drag(DisplayPath+NowDocDir+'\',fp,tp );
-
-end;
-
-procedure TCB_IMGPSScanX.ISBDragOver(Sender, Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean);
-var
- So : Boolean;
-begin
- {if (TObject(Source) is TImageScrollBox) and (TObject(Sender) is TImageScrollBox) then
- begin
- Label3.Caption := TImageScrollBox(Source).FileName+#13+TImageScrollBox(Sender).FileName;
- end; }
-
- So := False;
- if TObject(Source) is TImageScrollBox then
- So := True;
- Accept := True;
- if not So
- or (TImageScrollBox(Source).FileName = TImageScrollBox(Sender).FileName)
- or (TreeView1.Selected.Level <> 2)
- Then
- Accept := False;
-end;
-
-Function TCB_IMGPSScanX.FindMpsView(Vmode: Integer):TImageScrollBox;
-var
- i,n : Integer;
- ISB : TImageScrollBox;
-begin
- case Vmode of
- 0 : n := 1;
- 1 : n := 2;
- 2 : n := 4;
- 3 : n := 6;
- 4 : n := 8;
- end;
- for i := 1 to 8 do
- begin
- if i > n then Break;
- ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
- if (i = n) and (ISB.FileName <> '') then
- begin
- clearView(i);
- Result := ISB1;
- end
- Else if ISB.FileName = '' then
- Result := ISB;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCaseFormID(Path:String):String; //取案件的主FormID
-var i,n : Integer;
- FileFormID : String;
-begin
- Result := '';
- ContextList.LoadFromFile(Path+'Context.dat');
- for I := 0 to ContextList.Count - 1 do
- begin
- FileFormID := FileName2FormCode(ContextList.Strings[i]);
-
- if DivPageFormIDList.IndexOf(FileFormID)<>-1 then //20170509 跳過分案頁的formid
- begin
- Continue;
- end;
- if FindDivFormCode(FileFormID) then
- begin
- Result := FileFormID;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat
-var i : Integer;
- S : TStringlist;
- FormID : String;
- FormName : String;
-begin
- S := TStringlist.Create;
- try
- for I := 0 to ContextList.Count - 1 do
- begin
- FormID := FileName2FormCode(ContextList.Strings[i]);
- FormName := FormCode2FormName(CaseID,FormID);
- S.Add(FormID+'_'+FormName);
- end;
- S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat
-var
- i : Integer;
- S : TStringlist;
- Doc_Name : String;
-begin
- S := TStringlist.Create;
- try
- DistinctDocNoinCase(Path);
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- Doc_Name := CaseDocNoList.Strings[i]+'_'+DocNo2DocName(CaseID,CaseDocNoList.Strings[i]);
- if not DocnoNeedGroup(CaseDocNoList.Strings[i]) Then //不用分組的加*號給智豪
- Doc_Name := '*'+Doc_Name;
- S.Add(Doc_Name);
- end;
- S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateIn_WH(CaseID:String); //產生In_WH.dat
-var
- i,n : Integer;
- DocDirList,In_WH_List : TStringlist;
- iDocNo : String;
-begin
- DocDirList := TStringlist.Create;
- In_WH_List := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to DocDirList.Count - 1 do
- begin
- iDocNo := DocNoDir2DocNo(DocDirList.Strings[i]);
- for n := 0 to IN_WH_DocNoList.Count - 1 do
- begin
- if (iDocNo = IN_WH_DocNoList.Strings[n]) or (Copy(iDocNo,1,5)='ZZZZZ') then
- begin
- In_WH_List.Add(DocDirList.Strings[i]);
- Break;
- end;
- end;
- end;
- In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');
-
- finally
- DocDirList.Free;
- In_WH_List.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CreateDocNo_Info(CaseID:String):String; //產生 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動
-var
- i,n : Integer;
- DocDirList,DocDir_CopiesList,FileList,C_DocNoList : TStringlist;
- DocNo,iDocDir,iDocNo,iEdit:String;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- DocDir_CopiesList := TStringlist.Create;
- FileList := TStringlist.Create;
- C_DocNoList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
-
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- if DocDirList.Count =0 then exit;//20170222 新加
-
-
- DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if Copy(iDocDir,1,5) <> 'ZZZZZ' then //不為自定文件
- begin
- //icopys := 1;
- icopys := GetDocNoCount(CaseID,DocNo);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,'');
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if iDocNo = DocNo then
- begin
- //inc(icopys);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit]);
- end;
- DocDirList.Delete(0);
- end;
-
-
- finally
- DocDirList.Free;
- DocDir_CopiesList.Free;
- FileList.Free;
- C_DocNoList.Free;
- end;
- Result := Str;
-
- {S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- S1.LoadFromFile(Path+'Context_DocNo.dat');
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- iDocNo := CaseDocNoList.Strings[i];
- iCopys := GetDocNo_Count(Path,iDocNo);
- iPages := GetDocNo_Page(Path,iDocNo);
- if str = '' then
- Str := Format('%s,%d,%d',[iDocNo,iCopys,iPages])
- else
- Str := Str+';'+ Format('%s,%d,%d',[iDocNo,iCopys,iPages]);
- end;
- Result := Str;
-
- finally
- S.Free;
- S1.Free;
- end; }
-end;
-
-Function TCB_IMGPSScanX.CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動
-var
- i,n : Integer;
- DocDirList,FileList : TStringlist;
- DocNo,DocName,iDocDir,iDocNo,iEdit:String;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-//ShowMessage(DocDirList.Text);
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
- begin
- //icopys := 1;
- DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- icopys := GetDocNoCount(CaseID,DocNo);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if iDocNo = DocNo then
- begin
- //inc(icopys);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit]);
- end;
- DocDirList.Delete(0);
- end;
- finally
- DocDirList.Free;
- FileList.Free;
- end;
- Result := Str;
-end;
-
-Function TCB_IMGPSScanX.CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
-var
- i,n : Integer;
- DocDirList,DocDir_CopiesList,FileList : TStringlist;
- DocNo,iDocDir,iDocNo,iEdit:String;
- FromCaseID : string;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- DocDir_CopiesList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- if DocDirList.Count=0 then exit;//20170222 新加
-
-
- DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if (Copy(iDocDir,1,5) <> 'ZZZZZ') then //不為自定文件
- begin
- //icopys := 1;
- //icopys := GetDocNoCount(CaseID,DocNo);
- icopys := GetDocDirCopies(CaseID,iDocDir);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,'');
- FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
- if FromCaseID <> '' then
- begin
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
- begin
- FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
- //inc(icopys);
- icopys := icopys + GetDocDirCopies(CaseID,iDocDir);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID]);
- end;
- end;
- DocDirList.Delete(0);
- end;
- finally
- DocDirList.Free;
- DocDir_CopiesList.Free;
- FileList.Free;
- end;
- Result := Str;
-end;
-
-Function TCB_IMGPSScanX.CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
-var
- i,n : Integer;
- DocDirList,FileList : TStringlist;
- DocNo,DocName,iDocDir,iDocNo,iEdit:String;
- FromCaseID : string;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
- begin
- //icopys := 1;
- //icopys := GetDocNoCount(CaseID,DocNo);
- icopys := GetDocDirCopies(CaseID,iDocDir);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
- FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
- if FromCaseID <> '' then
- begin
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
- begin
- FromCaseID := GetUseCase('F',DisplayPath,iDocDir);
- //inc(icopys);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID]);
- end;
- end;
- DocDirList.Delete(0);
- end;
- finally
- DocDirList.Free;
- FileList.Free;
- end;
- Result := Str;
-end;
-
-Function TCB_IMGPSScanX.CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有
-begin
- Result := 'N';
- if GetDocDir_Page(CaseID,AttName) > 0 Then
- Result := 'Y';
-end;
-
-Function TCB_IMGPSScanX.GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N)
-var
- i : Integer;
- EditedDocDirList : TStringlist;
- C_DocNoList,C_DocNameList : TStringlist;
-begin
- Result := 'N';
- EditedDocDirList := TStringlist.Create;
- C_DocNoList := TStringlist.Create;
- C_DocNameList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
- EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
-
- //Showmessage(C_DocNoList.Text);
- if (DocName = '') and (C_DocNoList.IndexOf(DocNo)=-1 ) then
- Result := 'Y';
- if (DocName <> '') and (C_DocNameList.IndexOf(DocName)=-1) then
- Result := 'Y';
- for i := 0 to EditedDocDirList.Count - 1 do
- begin
- if (DocNo = DocNoDir2DocNo(EditedDocDirList.Strings[i])) then
- begin
- Result := 'Y';
- Break;
- end;
- end;
- finally
- EditedDocDirList.Free;
- C_DocNoList.Free;
- C_DocNameList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數
-var
- i : Integer;
- iCopys : integer;
- S,S1 : TStringlist;
- iFormID : String;
- DocFirst : Boolean;
-begin
- Result := 0;
- if not DocnoNeedGroup(DocNo) then
- begin
- Result := 1;
- Exit;
- end;
-
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- S1.LoadFromFile(Path+'Context_DocNo.dat');
- iCopys := 0;
-
- for i := 0 to S.Count - 1 do
- begin
- iFormID := FileName2FormCode(S.Strings[i]);
- DocFirst := False;
- if FormCode2Page(iFormID) = '01' then
- DocFirst := True;
- if ((iCopys = 0) or DocFirst) and (Docno = S1.Strings[i]) then
- begin
- inc(iCopys);
- end;
- end;
- Result := iCopys;
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數
-var
- i : Integer;
- ipages : integer;
- S,S1 : TStringlist;
-begin
- Result := 0;
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- S1.LoadFromFile(Path+'Context_DocNo.dat');
- iPages := 0;
- for i := 0 to S.Count - 1 do
- begin
- if Docno = S1.Strings[i] then
- begin
- inc(iPages);
- end;
- end;
- Result := ipages;
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在
-var
- STDate,SPDate : String;
- Docno,Version : String;
-begin
- Result := False;
- If FormCode = '' then //附件不檢查
- begin
- Result := True;
- Exit;
- end;
- if CheckDate then //要檢查日期
- begin
- STDate := '00000000'; //沒設定
- SPDate := '99999999'; //沒設定
-
- IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DOC_NO','T1.FORM_ID',FormCode,index,FindResult) then
- begin
- DocNo := GetFindResult('T1.DOC_NO');
- Version := FormCode2Version(FormCode);
- if FindSQLData(Doc_Inf_List,'START_DATE,STOP_DATE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) then
- begin
- Result := True;
- STDate := GetFindResult('START_DATE');
- SPDate := GetFindResult('STOP_DATE');
- if STDate = '' then STDate := '00000000'; //沒設定
- if SPDate = '' then SPDate := '99999999'; //沒設定
- if (ServerDate < STDate) or (ServerDate > SPDate) then
- Result := False;
- end;
- end;
- end
- Else
- begin
- Result := FindSQLData(FORM_INF_List,'T1.FORM_ID','T1.FORM_ID',FormCode,index,FindResult);
- end;
-end;
-
-Function TCB_IMGPSScanX.Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡
-var
- i : Integer;
- S : TStringlist;
- iDocNo : String;
-begin
- Result := False;
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');
- for i := 0 to S.Count - 1 do
- begin
- iDocNo := FormCode2DocNo(FileName2FormCode(S.Strings[i]));
- if Docno = iDocNo then
- begin
- Result := True;
- Break;
- end;
- end;
- finally
- S.Free;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.CB1Click(Sender: TObject);
-begin
- TwainShowUI := CB1.Checked;
-end;
-
-Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //檔名重新排序
-var
- i : Integer;
- OldName,NewName : String;
- Filelist : TStringlist;
-begin
- Filelist := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- begin
- Filelist.LoadFromFile(Path+'Context.dat');
- for i := 0 to Filelist.Count - 1 do
- begin
- OldName := Filelist.Strings[i];
- //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
-//ShowMessage(OldName+#10#13+NewName);
- ReNameFile(Path+OldName,Path+NewName);
- Filelist.Strings[i] := NewName;
- end;
- Filelist.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat');
- end;
- finally
- Filelist.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //檔名重新排序
-var
- i : Integer;
- OldName,NewName : String;
- Filelist : TStringlist;
-begin
- Filelist := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- begin
- Filelist.LoadFromFile(Path+'Context.dat');
- for i := Filelist.Count - 1 downto 0 do
- begin
- OldName := Filelist.Strings[i];
- //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
- ReNameFile(Path+OldName,Path+NewName);
- Filelist.Strings[i] := NewName;
- end;
- Filelist.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat');
- end;
- finally
- Filelist.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat
-var
- i : Integer;
- OldName,NewName : String;
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- if FileExists(Path+'scanlist.dat') then
- S.LoadFromFile(Path+'scanlist.dat');
- for i := 0 to S.Count - 1 do
- begin
- OldName := S.Strings[i];
- //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
- //ReNameFile(Path+OldName,Path+NewName);
- S.Strings[i] := NewName;
- end;
- S.SaveToFile(Path+'scanlist.dat');
- finally
- S.Free;
- end;
-end;
-
-
-Function TCB_IMGPSScanX.GetOMRCheckSet : Boolean; //下載OMR檢核XML檔
-var
- SendData : String;
- LastDateTime : String;
- S : TStringlist;
-begin
- Result := True;
- S := TStringlist.Create;
- Try
- if FileExists(CheckXmlPath+'OMRSet.zip') then
- DeleteFile(CheckXmlPath+'OMRSet.zip');
-
- LastDateTime := '00000000000000';
- if FileExists(CheckXmlPath+'LastDateTime.dat') then
- begin
- S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');
- LastDateTime := S.Strings[0];
- end;
-
- SendData := 'settype=3&lastupdate='+LastDateTime;
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if FileExists(CheckXmlPath+'OMRSet.zip') then //有更新
- begin
- ExecuteUnZip(CheckXmlPath+'OMRSet.zip',CheckXmlPath,True);
- S.Clear;
- S.Add(ServerDate+GetBalance2Time(Balance));
- S.SaveToFile(CheckXmlPath+'LastDateTime.dat');
- end
- Else
- begin
- if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
- begin
- Result := True;
- end
- Else if (Memo1.Lines.Strings[0] = '1') Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- end;
-
- Finally
- S.Free;
- End;
-
-end;
-
-Function TCB_IMGPSScanX.GetKeyinSet : Boolean; //取登打設定
-var
- SendData : String;
- LastDateTime : String;
- S : TStringlist;
-begin
- Result := True;
- S := TStringlist.Create;
- Try
- if FileExists(SitePath+'KeyinSet.zip') then
- DeleteFile(SitePath+'KeyinSet.zip');
-
- LastDateTime := '00000000000000';
- if FileExists(SitePath+'LastDateTime.dat') then
- begin
- S.LoadFromFile(SitePath+'LastDateTime.dat');
- LastDateTime := S.Strings[0];
- end;
- SendData := 'settype=2&lastupdate='+LastDateTime;
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if FileExists(SitePath+'KeyinSet.zip') then //有更新
- begin
- ExecuteUnZip(SitePath+'KeyinSet.zip',SitePath,True);
- S.Clear;
- S.Add(ServerDate+GetBalance2Time(Balance));
- S.SaveToFile(SitePath+'LastDateTime.dat');
- end
- Else
- begin
- if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
- begin
- Result := True;
- end
- Else if (Memo1.Lines.Strings[0] = '1') Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- end;
-
- Finally
- S.Free;
- End;
-
-end;
-
-
-Function TCB_IMGPSScanX.CaseAsk(CaseID: string):Integer;
-var
- SendData : String;
-begin
-//Memo1.Clear;
- SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&work_no='+FWork_no;
- if (FMode = 'NSCAN') or (FMode = 'DSCAN') then
- begin
-//ShowMessage('JJJJJ');
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := -1;
- Exit;
- end;
- end;
-//ShowMessage(SendData);
-
- IF memo1.Lines.Strings[0] <> '0' Then
- begin
- HttpErrStr := _Msg('')+memo1.Lines.Strings[1]+'。';
- Result := -1;
- Exit;
- end
- Else
- begin
- if (memo1.Lines.Count < 2) then
- begin
- HttpErrStr := _Msg('')+'OCX:Index Count error';
- Result := -1;
- Exit;
- end
- Else
- begin
- if memo1.Lines.Strings[1] = '0' then
- begin
- Result := 0;
- end
- Else if memo1.Lines.Strings[1] = '1' then
- Result := 1
- Else
- begin
- HttpErrStr := _Msg('')+'OCX:Value error';
- Result := -1;
- Exit;
- end;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成
-var
- OMRValue,Batchnum,Usermemo,Checkmemo,UpformID,ReMoveMemo: String;
- Case_type,Handle_no,Format_id,Cen_Uid,Cen_Cliname,Cen_Platno,Cen_Apolyno,Case_priority : String;
- Pages : Integer;
- EnCodeDateTime : String;
- SendData : String;
- S : TStringlist;
- i,v,v1 : Integer;
- UpSortID : String;
-begin
- Result := True;
- S := TStringlist.Create;
- try
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
-
- UpformID := GetCaseFormID(Path);
-
-
- Case_type := '0';
- if FileExists(Path+'Context.dat') then //掃描頁數
- begin
- S.LoadFromFile(Path+'Context.dat');
- Pages := S.Count;
- end;
- if not FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then //如果沒這個檔就重產生預設值
- begin
- ClearCaseIndex;
- WriteCaseIndex(ImageSavePath+CaseID+'\');
- end;
- {if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
-
- Handle_No := S.Strings[0]; //經辦代號
- Cen_Uid := S.Strings[1]; //被保人ID
- Cen_Cliname := S.Strings[2]; //被保人姓名
- Cen_Platno := S.Strings[3]; //車號
- Case_Priority := S.Strings[4];//案件等級
- if FMode = 'SSCAN' then //簽署章件的時候一律傳Format_ID
- begin
- Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
- end
- Else
- begin
- if (Length(UpformID) = 12) and (UpformID[2] = '-') then
- Format_ID := S.Strings[5] //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
- else
- Cen_Apolyno := S.Strings[5]; //強制證號
- end;
- if (FMode = 'MSCAN') and (length(Format_ID) = 16) and (Copy(Format_ID,1,2) = '05') then
- begin
- Format_ID := Copy(Format_ID,3,14); //20130606 yuu說監理站件的主鍵值為16碼且開開為05的要去掉
- end;
-
- end; }
- if FileExists(ImageSavePath+CaseID+'\GetValue.xml') then //掃描帶值
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\GetValue.xml');
- OMRValue := Trim(S.Text);
- end;
- if MainCase then //雙主約的主要案件
- begin
- if FileExists(ImageSavePath+CaseID+'\Batchnum.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\Batchnum.dat');
- Batchnum := Trim(S.Text);
- end;
- end
- Else //雙主約的第二案件
- begin
- if FileExists(ImageSavePath+CaseID+'\SecBatchnum.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\SecBatchnum.dat');
- Batchnum := Trim(S.Text);
- end;
- end;
- if FileExists(ImageSavePath+CaseID+'\Scan_Memo.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\Scan_Memo.dat');
- Usermemo := Trim(S.Text);
- end;
- if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\CheckMemo.dat');
- Checkmemo := Trim(S.Text);
- end;
-
- if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
- ReMoveMemo := Trim(S.Text);
- end;
-
-
- finally
- S.Free;
- end;
- case_priority:='0';
- if (FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&work_no='+FWork_No //作業別
- +'&case_id='+CaseID //受理編號
- +'&form_id='+UpformID //表單代號
- +'&scan_page='+inttostr(pages) //掃描頁數
- +'&scan_get_value='+HTTPEncode(UTF8Encode(OMRValue)) //掃描帶值
- +'&case_priority='+case_priority //案件等級
- +'&batch_no='+batchnum //車隊批號
- +'&user_memo='+HTTPEncode(UTF8Encode(usermemo)) //使用者註記
- +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo)) //檢核註記
- +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo)) //檢核移除註記
- +'&case_type='+Case_type //進件種類 進件0 歸檔1
- +'&handle_no='+Handle_no //經辦代號
- +'&format_id='+Format_id //案件主鍵值
- +'&cen_uid='+Cen_Uid //被保人ID
- +'&cen_cliname='+HTTPEncode(UTF8Encode(Cen_Cliname)) //被保人姓名
- +'&cen_platno='+Cen_Platno //車牌
- +'&cen_apolyno='+Cen_Apolyno //強制證號
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- Showmessage(SendData);
- if not RejectCase then
- begin
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC05',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else
- begin
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC06',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end;
-
-
- end
- Else if FMode = 'ISCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&work_no='+FWork_No
- +'&case_id='+CaseID
- +'&form_id='+UpformID
- +'&format_id='+Format_id
- +'&scan_page='+inttostr(pages)
- +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
- +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- //Showmessage(SendData);
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC08',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else if FMode = 'FSCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&work_no='+FWork_No
- +'&case_id='+CaseID
- +'&scan_page='+inttostr(pages)
- +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
- +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC09',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else if FMode = 'RSCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&act=rescan'
- +'&workno='+FWork_No
- +'&caseid='+CaseID
- +'&formid='+UpformID
- +'&scanpage='+inttostr(pages)
- // +'&areano='+FUserArea
- +'&scangetvalue='+HTTPEncode(UTF8Encode(OMRValue))
- +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
- +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else if FMode = 'ESCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&act=escan'
- +'&workno='+FWork_No
- +'&caseid='+CaseID
- +'&formid='+UpformID
- +'&scanpage='+inttostr(pages)
- +'&batchnum='+batchnum
- +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
- +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end;
-
- if Memo1.Lines.Strings[0] <> '0'then
- begin
- HttpErrStr := _Msg('錯誤原因:')+Memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end;
-end;
-
-procedure TCB_IMGPSScanX.Timer1Timer(Sender: TObject);
-var
- StampDate,StampTime : String;
- i: Integer;
-begin
- Timer1.Enabled := False;
- //FIs_In_Wh:='Y'; /// test 記得關掉
- //FWH_category :='N'; // test 記得關掉
-// FImgDelete := 'Y'; //test 記得關掉
- //Showmessage('a');
- //self.FIs_OldCase := 'Y';
- PageLVclear := True;
- InitialOk := False;
-
- FMaxUploadSize:='10';
- FJpgCompression:=50;
- FFtpRootPath := ''; //影像平台沒有給FtpRoot目錄,會直接用FFtpExtraPath切換至指定目錄
- //FMode := 'DSCAN' ;
- //FIs_In_Wh := 'Y';
- if FIs_In_Wh = 'Y' then
- AttName := 'Attach' //入庫附件
- else
- AttName := 'S_Attach'; //Smartlending 附件
-//ShowMessage('1111111');
- if FMode = 'SAMPLESCAN' then
- begin
- NewScanBtn.Visible := False;
- PJLinkedMenuSpeedButton2.Visible := False;
- AddScanBtn.Visible := False;
- CheckCaseBtn.Visible := False;
- Panel18.Visible := False;
- TransBtn.Visible := False;
- FC6.Visible := False;
- SampleScanBtn.Visible := True;
- Panel1.Visible := True;
- Panel6.Visible := True;
- ScanDuplexCB.Visible := False; //雙面掃描
- end
- Else if (FMode = 'NSCAN') then
- begin
- Panel18.Visible := True;
- Panel1.Visible := True;
- Panel6.Visible := True;
- Panel21.Visible := True;
- Panel23.Visible := True;
-
- AttFileGB.Visible := True;
- Splitter2.Visible := True;
- ScanDuplexCB.Visible := True; //雙面掃描
- end
- Else if FMode = 'FSCAN' then
- begin
- Panel1.Visible := True;
- //Panel6.Visible := True;
- end
- Else
- begin
- Panel18.Visible := True;
- Panel1.Visible := True;
- Panel6.Visible := True;
- Panel21.Visible := True;
- Panel23.Visible := True;
- AttFileGB.Visible := True;
- Splitter2.Visible := True;
- end;
- DisplayMode(1,1,1,Panel9);
- Application.ProcessMessages;
- StatusBar1.Panels[0].Text := 'Ver'+GetCurrentVersionNo;
- StatusBar1.Panels[1].Text := 'Login User:'+FUserName;
- {$IFDEF Test}
- StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text+'(test)';
- {$ENDIF}
- StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text;
-
- if FPrintyn = 'Y' then
- PrtLB.Visible := True;
-
- initParameter; //20170222 針對新加的parameter 作初始化參數
- InitScrollRec;
- If FUrl = '' then
- begin
- Showmessage(_Msg('URL cannot be empty,please contact system administrator'));
- Exit;
- end;
- if FUrl[length(FUrl)]<>'/' then
- FUrl := FUrl + '/';
- //20221028 把語言檔改放至 Local目錄裡,才不會有些文字來不及使用
- LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';
- Str2Dir(LngPath);
- ////下載語言檔///// 20170218 先拿調以便測試
- If not DownLanguage Then
- begin
- Showmessage('Language File error!!'+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-
- InitialLanguage(Self); //載入多國語言
-
-
- if FWork_no='' then
- begin
- Showmessage(_Msg('業務別不能為空白,請洽詢程式人員'));
- Exit;
- end;
-
- if CaseIDLength = 0 then
- begin
- Showmessage(_Msg('案件編號長度限制不能為空白,請洽詢程式人員'));
- //Exit; //測試時不退出
- end;
-
- //********清單區********
-
- Doc_Inf_List := TStringList.Create; //Doc_Inf 清單 Docno + 版本為key
- DM_FORM_INF_List := TStringList.Create; //DM_FORM_INF 清單 Docno + 版本為key
- FORM_INF_List := TStringList.Create; //FORM_INF的清單
- CHECK_RULE_INF_List := TStringList.Create; //CHECK_RULE_INF 清單
- MEMO_INF_List := TStringList.Create; //MEMO_INF 清單
- WORK_INF_List := TStringList.Create; //WORK_INF 清單
- LASTEST_FORM_INF_List := TStringList.Create; // LASTEST_FORM_INF 清單
- FindResult := TStringlist.Create; //找SQLData的結果
-
- OMRFileList := TStringList.Create; //要OMR檢核的文件(只檢查每種Form的第一頁)
- FormCode_PageSize := TStringList.Create; //文件的預設大小 FormCode_Height_Width
- DocNo_NeedDoc := TStringList.Create; //有Docno時要相依的文件 DocNo_相依文件_相依文件
- DocNo_NoDoc := TStringList.Create; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
- DocNo_VerinCase := TStringList.Create; //案件裡的DocNo+版本的清單
- CaseDocNoList := TStringlist.Create; //案件裡的DocNo清單
- CaseDocNo_CopiesList := TStringlist.Create; //案件裡的DocNo份數清單
- CaseList := TStringList.Create; //記錄掃瞄案件的順序
- Context_DocnoList := TStringlist.Create; //案件裡的檔案Docno清單
- ContextList := TStringlist.Create; //案件裡的檔案清單
- AttContextList := TStringlist.Create; //案件裡的附加檔案清單
- NoSaveBarCodeList := TStringlist.Create; //不儲存的條碼清單
- FormID_List := TStringlist.Create; //FormID清單
- DocNo_List := TStringlist.Create; //DocNo清單
- NowShowFileList := TStringlist.Create; //目前顯示的影像清單
- NowSelectFileList := TStringlist.Create; //目前被點選的影像清單
- Cust_DocNoList := TStringlist.Create; //自行定義的文件名稱
- IN_WH_DocNoList := TStringlist.Create; //入庫的文件清單
- GuideFormIDList := TStringlist.Create; //要當導引頁表單清單
- DivPageFormIDList := TStringList.Create; //要當分案頁表單清單
- LastInitFormidList :=TStringList.Create;
- LastAddFormidList := TStringList.Create;
- SampleFormIDList := TStringList.Create;//20170627 加入
- ExistImgList := TStringList.Create; //20170724 新增
- reSizeExistImgList :=TStringList.Create; //20171012 新增
- //********清單區********
-
- ShowText := _Msg('資料載入中,請稍候');
- DataLoading(True,True);
-
- IF not GetServerDate Then
- begin
- Showmessage(_Msg('取主機時間時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-
- if FMode='SAMPLESCAN' then
- begin
- IF not GetSampleInf Then //取已存在sample
- begin
- Showmessage(_Msg('取存在範本資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- end;
-
-
-
-//ShowMessage('GetServerDate '+ServerDate+' , '+ServerTime);
- ////下載系統資訊////
- IF not GetSetInf1 Then //取DOC_INF 文件資訊
- begin
- Showmessage(_Msg('取文件資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf1');
- //showmessage(self.Doc_Inf_List.Text);
- IF not GetSetInf2 Then //取DM_FORM_INF 相依互斥資訊
- begin
- Showmessage(_Msg('取相依互斥資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf2');
- //Showmessage(self.Doc_Inf_List.Text);
- IF not GetSetInf3 Then //取FORM_INF 表單資訊
- begin
- Showmessage(_Msg('取表單資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf3');
- IF not GetSetInf4 Then //取CHECK_RULE_INF 檢核規則資訊
- begin
- Showmessage(_Msg('取檢核規則資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- //showmessage(self.CHECK_RULE_INF_List.Text);
-//ShowMessage('GetSetInf4');
- IF not GetSetInf5 Then //取MEMO_INF 常用片語資訊
- begin
- Showmessage(_Msg('取常用片語資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf5');
- //showmessage(self.MEMO_INF_List.Text);
- IF not GetSetInf6 Then //取WORK_INF 系統參數資訊
- begin
- Showmessage(_Msg('取系統參數資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf6');
- //showmessage(FORM_INF_List.Text);
- IF not GetSetInf7 Then //取LASTES_FORM_INF 系統參數資訊
- begin
- Showmessage(_Msg('取最新版FORMID參數資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf7');
- //Showmessage(LASTEST_FORM_INF_List.Text);
- SetFormID_DocNo; //將FormID及Docno抽出塞入List裡 20130403增加
- SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
- GetDefScanIni; //取得掃描預設值及相關設定
-
- ////下載系統資訊/////
- if ImagePath = '' then
- begin
- Showmessage(_Msg('本機暫存路徑不得為空白'));
- DataLoading(False,False);
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- Exit;
- end;
- initkscan;
- if ImagePath[Length(ImagePath)] <> '\' then
- ImagePath := ImagePath + '\';
-//ShowMessage('ImagePath='+ImagePath);
- //CheckXmlPath := ImagePath+'OMRSITE\'+FWork_No;
- CheckXmlPath := ImagePath+'OMRSITE\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
-//ShowMessage('CheckXmlPath='+CheckXmlPath);
- //SitePath := ImagePath+'Site\'+FWork_No+'\';
- SitePath := ImagePath+'Site\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
- //LngPath := ImagePath; //改放至上面取Local目錄
- SamplePath := ImagePath+'Sample\'+FWork_No+'\';
- ImagePath := ImagePath + 'Scantemp\';
-//ShowMessage('AA ImagePath='+ImagePath);
- ScaniniPath :=ImagePath+FWork_No+'\'+FUserUnit +'\';
-//ShowMessage('ScaniniPath='+ScaniniPath);
- ImagePath := ImagePath + FWork_No+'\'+FUserUnit+'\'+FMode+'\';
- ImagePath := StringReplace(ImagePath, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
-//ShowMessage('BB ImagePath='+ImagePath);
- ImageSavePath := ImagePath;
- str2dir(CheckXmlPath);
- str2dir(SitePath);
- str2dir(ImagePath);
- str2dir(SamplePath);
- Del_Sub_NothingPath(ImagePath); //清掉案件目錄是空的
-
-
- LogFile1.LogFile:=LngPath+'IMGPSCheck.log';
-
- ReduceLogFile;
-
- LogFile1.LogToFile(logTimeString+'OCX取表data結束');
-
- ShowText := _Msg('資料載入中,請稍候');
- DataLoading(True,True);
-
-// if not CheckAvailable Then //檢查授權 20170218 說不用了
-// begin
-// DataLoading(False,False);
-// Panel1.Enabled := False;
-// Panel2.Enabled := False;
-// Exit;
-// end;
-
-//Button3Click(Self);
-//ShowMessage('CheckAvailable');
- ShowText := _Msg('資料載入中,請稍候');
- DataLoading(True,True);
-
-
- StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName;
- //FCaseID:='20150302180133';//測試用
- ////下載語言檔/////
-//ShowMessage('OOOO');
-
- if (FMode = 'RSCAN') or (FMode = 'DSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //重掃件及異動件要只能掃指定編號的件
- begin
- _Deltree(ImagePath);
- str2dir(ImagePath);
- ImageSavePath := ImagePath;
- str2dir(ImageSavePath);
- MkDir(ImageSavePath+FCaseID);
- CreateEmptyCase(ImageSavePath,FCaseID);
- MkDir(ImageSavePath+FCaseID+'\Download');
- IF (FMode = 'ESCAN') or (FMode = 'DSCAN') then //異動件先下載影像
- begin
- ShowText := _Msg('案件下載中,請稍候');
- DataLoading(True,True);
- If not DownLoadImage(ImageSavePath+FCaseID+'\Download\',FCaseID) Then
- begin
- Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+DownFileErrStr);
- DataLoading(False,False);
- Exit;
- end;
-
- {If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
- begin
- Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;}
-//Showmessage(ImageSavePath+FCaseID+'\Download\'+#10#13+ImageSavePath+FCaseID+'\');
- Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
-//Showmessage('aaa');
- //Download2Case('C:\Users\Hong\Downloads\沒有括號\',ImageSavePath+FCaseID+'\');
- if (FIs_OldCase = 'Y') then
- begin
- if (FWork_no='HLN') then
- ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
- //if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //這個會在Download2Case時一律產生所以不能有這行 20141013
- OldCasetoNewCase(FCaseID);
- //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
- //LoadImgFile;
- end;
-// if (FIs_OldCase = 'Y') and (FWork_no='HLN') then //77版的
-// begin
-// ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
-// if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then
-// OldCasetoNewCase(FCaseID);
-// //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
-// //LoadImgFile;
-// end;
- Create_Cust_DocDir(FCaseID); //產生外面傳入的文件
- if FMode='ESCAN' then
- LastInitFormidListCreate(ImageSavePath+FCaseID+'\Download\');
- end;
- end;
-
-//ShowMessage('GetOMRCheckSet前');
- ////下載檢核XML//////
- IF not GetOMRCheckSet Then
- begin
- Showmessage(_Msg('下載檢核定位檔案時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- ////下載檢核XML/////
-//ShowMessage('GetOMRCheckSet後來');
- ////下載登打設定/////
- IF not GetKeyinSet Then
- begin
- Showmessage(_Msg('下載登打定位檔案時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- ////下載登打設定/////
-//ShowMessage('GetKeyinSet');
- if ScanDenialHint <> '' then //有設定提示字串就秀在右上角
- begin
- DenialTimeLb.Visible := True;
- DenialTimeLb.Caption := Format(ScanDenialHint,[ScanDenialTime]);
- end;
-//ShowMessage(IntToStr(ScanDpi));
- R_W_Scanini('R'); //掃瞄設定的ini
-//ShowMessage(IntToStr(ScanDpi));
-//ShowMessage('停掉DataLoading');
-//DataLoading(False,False);
- ScanDuplexCB.Checked := ScanDuplex;
- if FMode <> 'SAMPLESCAN' then
- LoadImgFile;
- if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then
- begin
- if TreeView1.Items.Count > 0 then
- begin
- TreeView1.Selected := NewTreeNode.Item[0];
- TreeView1click(self);
- end;
- end;
- InitialOk := True;
-
- {AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
- Splitter2.Visible := True;
- AttFileGB.Visible := False; //附加電子檔窗
- Splitter2.Visible := False; }
-//ShowMessage('ImageSavePath='+ImageSavePath);
- DataLoading(False,False);
-
- LogFile1.LogToFile(logTimeString+'OCX初始化結束');
- LogFile1.LogToFile(logTimeString+'FUrl='+FUrl+
- ',FCaseID='+FCaseID+
- ',FMode='+FMode+
- ',FModeName='+FModeName+
- ',FWork_no='+FWork_no+
- ',FUserID='+FUserID+
- ',FUserName='+FUserName+
- ',FUserUnit='+FUserUnit+
- ',FData='+FData+
- ',FVerify='+FVerify+
- ',FReWrite='+FReWrite+
- ',FLanguage='+FLanguage+
- ',FLoanDoc_Value='+FLoanDoc_Value+
- ',FLoanDoc_Enable='+FLoanDoc_Enable+
- ',FUseProxy='+FUseProxy+
- ',FC_DocNoList='+FC_DocNoList+
- ',FC_DocNameList='+FC_DocNameList+
- ',FFixFileList='+FFixFileList+
- ',FIs_In_Wh='+FIs_In_Wh+
- ',FOldCaseInfo='+FOldCaseInfo+
- ',FPrintyn='+FPrintyn+
- ',FIs_OldCase='+FIs_OldCase+
- ',FCustDocYN='+FCustDocYN);
- LogFile1.LogToFile(logTimeString+'FImgDPI='+IntToStr(FImgDPI)+
- ',FScanColor='+ IntToStr(FScanColor)+
- ',FFileSizeLimit='+ IntToStr(FFileSizeLimit)+
- ',FCaseNoLength='+ IntToStr(FCaseNoLength)+
- ',FImgDelete='+FImgDelete+
- ',FIsExternal='+FIsExternal+
- ',FWH_category='+FWH_category+
- ',FCheck_main_form='+FCheck_main_form+
- ',FMaxUploadSize='+FMaxUploadSize);
-
-end;
-
-procedure TCB_IMGPSScanX.Timer2Timer(Sender: TObject);
-begin
- IF Panel22.Caption = ShowText+'......' Then
- Panel22.Caption := ShowText
- Else
- Panel22.Caption := Panel22.Caption + '.';
- Application.ProcessMessages;
-end;
-
-procedure TCB_IMGPSScanX.TransBtnClick(Sender: TObject);
-Var
- CaseID : String;
- i,n,v: Integer;
- ZipFileList : TStringlist;
- CaseTrans : Integer; //-1:失敗 0:可 1:不行
- SuccessCount,ReCasecount,CheckErrCount : Integer;
- TransMsg : String;
- AreaStr : String;
- S : TStringlist;
- CheckStr : String;
- uploadMsg:String;//20171122 新增 配合不同mode下要秀不能上傳訊息
-begin
- IF not InitialOk Then
- begin
- Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
-LogFile1.LogToFile(logTimeString+'按下上傳');
- ClearView(1);
- CaseHelpBtn.Visible := False;
- DisplayPath := '';
- ClearCaseIndex;
- RejectCase := False;
- uploadMsg:='';
- if not CheckCaseID_OK then //檢查是否有未配號的案件
- begin
- Showmessage(_Msg('尚有「無案件編號」之案件，無法上傳'));
- Exit;
- end;
-
- if not CheckCaseAttach_OK then //20170911檢查是否有未歸類的案件
- begin
- Showmessage(_Msg('尚有未歸類文件,無法上傳'));
- Exit;
- end;
-
-
- if NewTreeNode.Count = 0 then
- begin
- Showmessage(_Msg('無影像需傳送'));
- Exit;
- end;
-
- SuccessCount := 0;
- ReCasecount := 0;
- CheckErrCount := 0;
- if (FMode = 'NSCAN') and (not CheckScanDenialTime) then
- begin
- if Messagedlg(Format(_Msg('己超過收件時間(%s),預定作業日為下個營業日,是否繼續上傳??'),[ScanDenialTime]),mtConfirmation,[mbyes,mbcancel],0)=mrcancel then Exit;
- end;
-
- ShowText := _Msg('資料上傳中,請稍候');
- DataLoading(True,True);
-
- For i := 0 to NewTreeNode.Count -1 do
- begin
- v := posend('-',NewTreenode.Item[i].Text);
- CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
- ShowText := CaseID+_Msg('資料上傳中,請稍候');
- DataLoading(True,True);
- CreateIn_WH(CaseID); //產生入庫文件文字檔 In_Wh.dat
- Case2upload(CaseID); //產生原影像結構
- TransPath := ImageSavePath+CaseID+'\Upload\';
- {if FMode = 'ESCAN' then //20140320 yuu說拿掉此檢查
- begin
- S := TStringlist.Create;
- try
- S.LoadFromFile(TransPath + 'Context.dat');
- if S.Count = 0 then
- begin
- Showmessage(_Msg('無影像檔無法傳送'));
- DataLoading(False,False);
- LoadImgFile;
- Exit;
- end;
- finally
- s.Free;
- end;
- end;}
- if (FMode = 'NSCAN') or (FMode = 'DSCAN') then //20170406 待掃瞄也要問一下
- begin
- /////訊問是否可上傳/////
- CaseTrans := CaseAsk(CaseID);
- //Showmessage('記得改回來');
- //CaseTrans := 0;
-
- /////訊問是否可上傳////
- end
- Else ///不是新件、重掃件、異動件的不查
- begin
- CaseTrans := 0;
- end;
- if CaseTrans = -1 then //失敗
- begin
- Showmessage(_Msg('')+HttpErrStr+'.');
- DataLoading(False,False);
- LoadImgFile;
- Exit;
- end;
- if CaseTrans = 1 then
- begin
- ////重複處理/////
- Inc(ReCasecount);
- ////重複處理/////
- Continue;
- end
- Else if CaseTrans = 0 then //可以傳送
- begin
- ///////檢核////// 20100927 User改為搬至外面做 ///20101019 User又改回上傳要做
- //if FMode = 'NSCAN' then //20101019改成讀設定那些模式要做那些檢核
- //begin
- ///依十字定位點縮放////
- CaseReSize(CaseID); //所以影像再做一次縮放
- ////依十字定位點縮放/////// }
- if (FMode <> 'FSCAN') then
- begin
- if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
- begin
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- If not OMRCheckCase(CaseID) then //進檢核
- begin
- Inc(CheckErrCount);
- Continue;
- end;
- end;
- if (NewTreenode.Item[i].ImageIndex = 5) then
- begin
- Inc(CheckErrCount);
- Continue;
- end;
- end;
- //end;
- ///////檢核//////
- ShowText := CaseID+_Msg('資料上傳中,請稍候');
- DataLoading(True,True);
-//ShowMessage('退出');DataLoading(False,False);Exit;
- If Not TransCaseID(TransPath,CaseID,True) Then //傳送案件
- begin
- DataLoading(False,False);
- LoadImgFile;
- Exit;
- end;
- Inc(SuccessCount);
- end;
- end;
- DataLoading(False,False);
- TransMsg := Format(_Msg('成功件【%d】件'),[SuccessCount]);
- if ReCasecount > 0 then
- TransMsg := TransMsg + #13#10 + Format(_Msg('無法上傳件【%d】件'),[ReCasecount]);
- if CheckErrCount > 0 then
- begin
- TransMsg := TransMsg + #13#10 + Format(_Msg('檢核失敗件【%d】件，請先點選「案件編號」，再點選「問號」查看錯誤原因'),[CheckErrCount]);
-LogFile1.LogToFile(logTimeString+'檢核失敗原因:'+OMRErrini2ListForLog(''));
- end;
-
- if (FMode = 'DSCAN') and (SuccessCount = 1) then
- begin
- uploadMsg:=NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程');
- end;
- if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) and (SuccessCount = 1) then
- begin
- uploadMsg:=NowCaseNo+_Msg('影像已補件完成');
- end;
-//ShowMessage('uploadMsg='+uploadMsg);
- if uploadMsg<>'' then
- begin
- ShowMessage(uploadMsg);
- end
- else
- begin
- Showmessage(_Msg('傳送完成')+#13#10+TransMsg);
- end;
-
- LoadImgFile;
- if (FMode = 'ESCAN') and (SuccessCount = 1) then
- begin
- if FEvents <> nil Then
- begin
- FEvents.OnClosePage;
- end;
- end;
- if (FMode = 'DSCAN') and (SuccessCount = 1) then
- begin
- if FEvents <> nil Then
- begin
- FEvents.OnClosePage;
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1Click(Sender: TObject);
-Var
- v,v1,v2,v3,ln : Integer;
- i,page : Integer;
- F : TSearchrec;
-begin
- ScanMode := smNew;
- IF TreeView1.Selected = nil Then Exit;
- Scrollbar1.Position := 1;
- Scrollbar1.Max := 1;
- DisplayPath := '';
- NowCaseno := '';
- NowDocDir := '';
- NowDocNo := '';
- NowFormCode := '';
- NowFormName := '';
- NowPage := 0;
- NowShowFileList.Clear;
- StatusBar1.Panels[2].Text := '';
- ClearCaseIndex;
- PageLv.Items.Clear; //頁數清單
- //Panel18.Enabled:= False;
- AttListBox.Items.Clear;
- AddAttFileLB.Enabled := False;
- DelAttFileLB.Enabled := False;
- UseOldCaseLb.Visible := False;
- PM107.Visible := False; //備註功能
- CaseHelpBtn.Visible := False; //檢核失敗原因鈕
- Panel5.Visible := True;
- ContextList.Clear;
- SortMode := false;
- ISB1.ZoomMode := zmFullPage;
- IF TreeView1.Selected.Parent <> nil Then
- begin
- if TreeView1.Selected.Parent = NewTreenode then //點在案件上
- begin
- //Panel18.Enabled := True;
- PM107.Visible := True; //備註功能
- MyTreeNode1 := TreeView1.Selected;
- MyTreeNode2 := nil;
- MyTreeNode3 := nil;
- v := Posend('-',MyTreenode1.Text);
- v1 := Length(MyTreenode1.Text);
- NowCaseNo := Copy(TreeView1.Selected.Text,1,v-1);
- if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
- UseOldCaseLb.Visible := True;
- ClearView(1);
- DisplayPath := ImageSavePath+NowCaseNo+'\';
- if FLoanDoc_Enable = 'Y' then
- begin
- AddCredit1RG.Enabled := True;
- end;
- ReadCaseIndex(DisplayPath);
- If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- IF FileExists(DisplayPath+'CaseDocNo.dat') Then
- begin
- CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');
-
-
- view_image_DocNo(DisplayPath,'ShowAll','',1);
- end;
- if FileExists(DisplayPath+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
-
-
- Page := ContextList.Count;
- For i := 1 to page do
- begin
- With PageLV.Items.Add do
- begin
- Caption := Add_Zoo(i,3);
- end;
- end;
- If Page > 0 then
- ScrollBar1.Max := page;
- MyTreeNode1.Expand(True);
- end
- Else If TreeView1.Selected.Parent.Parent = NewTreenode Then //點在文件上
- begin
-
- MyTreeNode1 := TreeView1.Selected.Parent;
- MyTreeNode2 := TreeView1.Selected;
- MyTreeNode3 := nil;
- v := Pos('-',MyTreenode1.Text);
- NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
-
- v := Posend('{',MyTreenode2.Text);
- v1 := Posend('}',MyTreenode2.Text);
- v2 := posend('-',MyTreenode2.Text);
- ln := length(MyTreenode2.Text);
- NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
- NowDocNo := DocNoDir2DocNo(NowDocDir);
- page :=Strtoint(Copy(MyTreeNode2.Text,v2+1,ln-v2-1));
- if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
- UseOldCaseLb.Visible := True;
- ClearView(1);
- DisplayPath := ImageSavePath+NowCaseNo+'\';
-
- if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
- if FLoanDoc_Enable = 'Y' then
- begin
- AddCredit1RG.Enabled := True;
- end;
- ReadCaseIndex(DisplayPath);
- If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- If Page > 0 then
- ScrollBar1.Max := page;
- For i := 1 to page do
- begin
- With PageLV.Items.Add do
- begin
- Caption := Add_Zoo(i,3);
- end;
- end;
-
- If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- IF FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
- begin
- ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
- //Context_DocnoList.LoadFromFile(DisplayPath+'Context_Docno.dat');
- view_image_DocNo(DisplayPath,NowDocDir,'',Page);
- end;
- if FileExists(DisplayPath+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
- MyTreeNode1.Expand(True);
- end
- Else If (NewTreenode <> nil) and (TreeView1.Selected.Parent.Parent.Parent = NewTreenode) Then //點在表單上
- begin
- //NoteBtn.Visible := True; //備註功能
- //Panel18.Enabled := True;
- ClearView(1);
- PM107.Visible := True; //備註功能
- MyTreeNode1 := TreeView1.Selected.Parent.Parent;
- MyTreeNode2 := TreeView1.Selected.Parent;
- MyTreeNode3 := TreeView1.Selected;
-
- v := Posend('-',MyTreenode1.Text);
- NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
-
- if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
- UseOldCaseLb.Visible := True;
-
- v := Posend('{',MyTreenode2.Text);
- v1 := Posend('}',MyTreenode2.Text);
- v2 := posend('-',MyTreenode2.Text);
- ln := length(MyTreenode2.Text);
- NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
- NowDocNo := DocNoDir2DocNo(NowDocDir);
-
- v := Posend('{',MyTreenode3.Text);
- v1 := Posend('}',MyTreeNode3.Text);
- v2 := Posend('-',MyTreeNode3.Text);
- ln := Length(MyTreeNode3.Text);
- if v>0 then
- begin
- NowFormCode := Copy(MyTreeNode3.Text,v+1,v1-v-1);
- if (NowFormCode = 'Attach') or (NowFormCode = 'S_Attach') then
- NowFormCode := '';
- NowFormName := Copy(MyTreeNode3.Text,v+1,v1-v-1);
- page := strtoint(Copy(MyTreeNode3.Text,v2+1,ln-v2-1));
- end
- Else //點在附件的頁數
- begin
- NowFormCode := '';
- page := 1;
- end;
-
- DisplayPath := ImageSavePath+NowCaseNo+'\';
-
- if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
-
- if FLoanDoc_Enable = 'Y' then
- begin
- AddCredit1RG.Enabled := True;
- end;
- ReadCaseIndex(DisplayPath);
- If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- If Page > 0 then
- ScrollBar1.Max := page;
- For i := 1 to page do
- begin
- With PageLV.Items.Add do
- begin
- Caption := Add_Zoo(i,3);
- end;
- end;
- If FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
- begin
- ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
- view_image_DocNo(DisplayPath,NowDocDir,NowFormCode,Page);
- //view_image_FormCode(DisplayPath,NowFormCode,1,1);
- end;
- if FileExists(DisplayPath+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
- end;
- MyTreeNode1.Expand(True);
- AddAttFileLB.Enabled := True;
- if FileExists(DisplayPath+'ATTContext.dat') then
- begin
- LoadAttFile(NowCaseno);
- end;
- end
- Else //點在NewTreenode or MyTreenode1 上
- begin
- ClearView(1);
- MyTreeNode1 := nil;
- MyTreeNode2 := nil;
- MyTreeNode3 := nil;
- end;
- TreeView1.Selected.MakeVisible;
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- //CountCaseno;
- //CountCaseCount;
- Application.ProcessMessages;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
-var
- NewCaseno,NewDocNo,NewDocDir,NewFormCode,NewFormName : String;
- NewPath,NewFileName:String;
- OldFileName : String;
- iTreeNode1,iTreeNode2,iTreeNode3: TTreeNode;
- i,v,v1,v2 : Integer;
- PreIndex,Precount,NowCount:Integer;
- GoAtt : Boolean;
- AttLv : Integer;
-begin
- NewCaseno := '';
- NewFormCode := '';
- NewFormName := '';
- Precount := MyTreeNode1.Count;
- PreIndex := -1;
- GoAtt := False;
- if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
- begin
- AttLv := TreeView1.Selected.Level;
- GoAtt := True;
- end;
-
- if TTreeView(Sender).GetNodeAt(X,Y).Level =2 then
- begin
- iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y);
- iTreeNode1 := iTreeNode2.Parent;
- v := Pos('-',iTreenode1.Text);
- v1 := Length(iTreenode1.Text);
- NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
- v := Posend('{',iTreeNode2.Text);
- v1 := Posend('}',iTreeNode2.Text);
- NewDocNo := Copy(iTreeNode2.Text,v+1,v1-v-1);
- NewPath := ImagePath+NewCaseNo+'\';
- OldFileName := ExtractFileName(DisplayISB.FileName);
- if Copy(NewDocNo,1,5) = 'ZZZZZ' then //自訂文件
- begin
- NewFileName := Add_Zoo(FileName2ScanPage(OldFileName),3)+'_'+NewDocNo+'0000000'+ExtractFileExt(OldFileName);
- NewFormCode := NewDocNo+'0000000';
- {ReNameFile(DisplayISB.FileName,NewPath+NewFileName);
- ReNameContext(DisplayPath,OldFileName,NewFileName);
- MyTreeNode2ReFresh(NowCaseno);
- TreeView1Click(nil);}
- end;
- //NewFileName := Add_Zoo(GetCasePage(ImagePath,NewCaseno)+1,3)+FileName2NoQuene_Filename(OldFileName);
- end
- Else if TTreeView(Sender).GetNodeAt(X,Y).Level =3 then
- begin
- OldFileName := ExtractFileName(DisplayISB.FileName);
- iTreeNode1 := TTreeView(Sender).GetNodeAt(X,Y).Parent.Parent;
- iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y).Parent;
- iTreeNode3 := TTreeView(Sender).GetNodeAt(X,Y);
- v := Pos('-',iTreenode1.Text);
- v1 := Length(iTreenode1.Text);
- NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
- v := Pos('{',iTreeNode2.Text);
- v1 := Pos('}',iTreeNode2.Text);
- NewDocDir := Copy(iTreeNode2.Text,v+1,v1-v-1);
-
- v := Pos('{',iTreeNode3.Text);
- v1 := Pos('}',iTreeNode3.Text);
- NewFormName := Copy(iTreeNode3.Text,1,v-1);
- NewFormCode := Copy(iTreeNode3.Text,v+1,v1-v-1);
- IF v = 0 Then
- begin
- NewFormCode := '';
- v := Posend('-',iTreeNode3.Text);
- NewFormName := Copy(iTreeNode3.Text,1,v1-1);
- end;
- NewPath := ImagePath+NewCaseNo+'\'+NewDocDir+'\';
- if NewPath = DisplayPath Then //同案件
- begin
- if NewFormCode <> '' then
- //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- Else
- //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
- end
- else //不同案件
- begin
- if NewFormCode <> '' then
- //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- Else
- //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
- end;
- end;
- //Showmessage('a');
- for I := 0 to NowSelectFileList.Count - 1 do
- begin
- OldFileName := NowSelectFileList.Strings[i];
- if NewFormCode <> '' then
- //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- Else
- //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+ExtractFileExt(OldFileName);
-
- if NewCaseNo = NowCaseNo then //同案件不改順序
- begin
- CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);
- SetContextList('A',-1,NewCaseNo,NewDocDir,NewFileName);
- DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);
- TreeView1.Selected := MyTreeNode1;
- //ReNameFile(DisplayPath + OldFileName,NewPath+NewFileName);
- //ReNameContext(DisplayPath,OldFileName,NewFileName);
- //MyTreeNode2ReFresh(NowCaseno);
- //TreeView1Click(nil);
- end
- Else
- begin
- //Showmessage(DisplayMpsView.FileName+#13+NewPath+NewFileName);
- ContextList.LoadFromFile(DisplayPath+'Context.dat');
- if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
- begin
- if Messagedlg(Format(_Msg('移動後(%s)案件無影像,將刪除此案件,是否確定移動?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
- end;
- CopyFile(PWideChar(DisplayISB.FileName),PWideChar(NewPath+NewFileName),False);
- ContextList.LoadFromFile(NewPath+'Context.dat');
- ContextList.Add(NewFileName);
- ContextList.SaveToFile(NewPath+'Context.dat');
- //Showmessage('1');
- iTreeNode2.Text := Format(_Msg('%s-%d頁'),[NewCaseNo,GetCasePage(ImagePath,NewCaseNo)]);
- //Showmessage('2');
- //DrawDocItem(iTreeNode1,FORM_INF_List,NewCaseNo);
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NewCaseno); 20140820改
- DrawDocItem2(MytreeNode1,NewCaseno);
- //Showmessage('3');
- ClearErrini(NewCaseNo,iTreeNode1);
- ContextList.LoadFromFile(DisplayPath+'Context.dat');
- if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
- begin
- _DelTree(DisplayPath);
- SetCaseList('D',MyTreeNode1.IndexOf(MyTreeNode2),'');
- LoadImgFile;
- end
- Else
- begin
- ContextList.Delete(ContextList.IndexOf(ExtractFileName(DisplayISB.FileName)));
- ContextList.SaveToFile(DisplayPath+'Context.dat');
- DeleteFile(DisplayISB.FileName);
- ReSortFileName(DisplayPath);
- ClearErrini(NowCaseNo,MyTreeNode1);
- MyTreeNode2ReFresh(NowCaseno);
- //MyTreeNode3ReFresh(NowCaseno);
- ContextList.LoadFromFile(DisplayPath+'Context.dat');
- NowCount := MyTreeNode1.Count;
- if PreCount = NowCount then
- begin
- TreeView1.Selected := MyTreeNode1.Item[PreIndex];
- TreeView1Click(nil);
- end
- Else
- begin
- TreeView1.Selected := MyTreeNode1;
- TreeView1Click(nil);
- end;
- end;
- end;
- end;
- for I := 0 to NowSelectFileList.Count - 1 do
- begin
- OldFileName := NowSelectFileList.Strings[i];
- ReSortFileName(ExtractFilePath(OldFileName));
- end;
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- if GoAtt then
- begin
- GotoAttach(AttLv);
- end;
- //TreeView1Click(nil);
-
-end;
-
-procedure TCB_IMGPSScanX.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean);
-var
- NewNode : TTreeNode;
- ImgFormCode : String;
- ImgDocNo : String;
- So : Boolean;
-begin
- ImgFormCode := FileName2FormCode(ExtractFileName(DisplayISB.FileName));
- ImgDocNo := Path2DocDir(ExtractFilePath(DisplayISB.FileName),NowCaseno);
- //ImgDocNo := FileName2NowDcoNo(ExtractFileName(DisplayISB.FileName),ContextList,Context_DocnoList);
- NewNode := TTreeView(Sender).GetNodeAt(X,Y);
- //Label3.Caption := format('%d/%s/%s',[NewNode.Level,ImgDocNo,Node2DocNo(NewNode)]);
- So := False;
- if TObject(Source) is TImageScrollBox then
- So := True;
- Accept := True;
- if not So
- or(NewNode=nil)
- or((NewNode.Level<>3))
- or((NewNode.Level =3) and (((ImgFormCode=Node3FormID(NewNode)) and (ImgDocNo = Node3DocNo(NewNode))) or (Node3DocNo(NewNode)='')))
- or(Pos(_Msg('Attach'),Newnode.Text)>0)
- Then
- Accept := False;
-
- {if not So
- or(NewNode=nil)
- or((NewNode.Level <>2) and (NewNode.Level<>3))
- or((NewNode.Level =2) and ((ImgDocNo = Node2DocNo(NewNode))or(Node2DocNo(NewNode)='')or (copy(Node2DocNo(NewNode),1,5)<>'ZZZZZ')))
- or((NewNode.Level =3) and ((ImgFormCode=Node3FormID(NewNode)) or (ImgDocNo = Node3DocNo(NewNode)) or (Node3DocNo(NewNode)='')))
- or(Pos(_Msg('未註冊文件'),Newnode.Text)>0)
- Then
- Accept := False;}
-end;
-
-procedure TCB_IMGPSScanX.TreeView1KeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- IF TreeView1.Selected.Parent <> nil Then
- begin
- TreeView1Click(nil);
- end
- else
- begin
- ClearView(1);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseDown(Sender: TObject;
- Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- IF Button = TMouseButton(MbRight) Then
- begin
- MDown := True;
- If TreeView1.GetNodeAt(X,Y) = nil then Exit;
- TreeView1.Selected := TreeView1.GetNodeAt(X,Y);
- end;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseEnter(Sender: TObject);
-begin
-TreeView1.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
-begin
- //TreeView1.SetFocus;
- {UnRegisterHotKey(Handle, HotKeyId1);
- UnRegisterHotKey(Handle, HotKeyId2); }
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- IF Button = TMouseButton(MbRight) Then
- begin
- If TreeView1.GetNodeAt(X,Y) = nil then Exit;
- if MDown then
- begin
- TreeView1Click(self);
- TreeView1.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
- end;
- Application.ProcessMessages; //需加這行,不然有些全域變數會沒變到
- MDown:= False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ViewModeBtnMouseEnter(Sender: TObject);
-begin
- AddToolTip(TBitBtn(Sender).Parent.Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
-end;
-
-procedure TCB_IMGPSScanX.Set_caseid(const Value: WideString);
-begin
- FCaseID := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_data(const Value: WideString);
-begin
- FData := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_mode(const Value: WideString);
-begin
- FMode := UpperCase(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_rewrite(const Value: WideString);
-begin
- FReWrite := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_url(const Value: WideString);
-begin
- FUrl := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_userid(const Value: WideString);
-begin
- FUserID := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_username(const Value: WideString);
-begin
- FUserName := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_verify(const Value: WideString);
-begin
- FVerify := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_language(const Value: WideString);
-begin
- FLanguage := lowercase(Value);
- if FLanguage='zh-tw' then
- begin
- FLanguage:='zh_tw'
- end;
- if FileExists(LngPath+'Language.lng') then
- begin
- InitialLanguage(Self); //載入多國語言
- end;
-end;
-
-procedure TCB_IMGPSScanX.Set_modename(const Value: WideString);
-begin
- FModeName := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_userunit(const Value: WideString);
-begin
- FUserUnit := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_work_no(const Value: WideString);
-begin
- FWork_no := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_loandoc_enable(const Value: WideString);
-begin
- FLoanDoc_Enable := Value;
- if FLoanDoc_Enable = 'Y' then
- AddCredit1RG.Enabled := True;
- if FLoanDoc_Enable = 'I' then
- begin
- AddCredit1RG.Visible := False;
- Panel5.Visible := False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.Set_loandoc_value(const Value: WideString);
-begin
- FLoanDoc_Value := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_useproxy(const Value: WideString);
-begin
- FUseProxy := UpperCase(Value);
- if FUseProxy = 'Y' then
- UseProxy := True; //要不要用Proxy
-
-end;
-
-procedure TCB_IMGPSScanX.Set_c_docnamelist(const Value: WideString);
-begin
- FC_DocNameList := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_c_docnolist(const Value: WideString);
-begin
- FC_DocNoList := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_fixfilelist(const Value: WideString);
-begin
- FFixFileList := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_is_in_wh(const Value: WideString);
-begin
- FIs_In_Wh := UpperCase(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_oldcaseinfo(const Value: WideString);
-begin
- FOldCaseInfo := Value;
-end;
-
-function TCB_IMGPSScanX.Get_c_docnamelist: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_c_docnolist: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_caseid: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_data: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_fixfilelist: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_is_in_wh: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_language: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_loandoc_enable: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_loandoc_value: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_mode: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_modename: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_oldcaseinfo: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_rewrite: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_url: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_useproxy: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_userid: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_username: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_userunit: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_verify: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_work_no: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_printyn: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_printyn(const Value: WideString);
-begin
- FPrintyn := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_is_oldcase: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_is_oldcase(const Value: WideString);
-begin
- FIs_OldCase := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_custdocyn: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_custdocyn(const Value: WideString);
-begin
- FCustDocYN := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_casenolength: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_filesizelimit: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_imgdpi: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_scancolor: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_casenolength(const Value: WideString);
-begin
- if Value ='' then
- begin
- FCaseNoLength := 0 ;
- CaseIDLength := FCaseNoLength;
- end
- else
- begin
- FCaseNoLength := StrToInt(Value) ;
- CaseIDLength := FCaseNoLength;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.Set_filesizelimit(const Value: WideString);
-begin
-//ShowMessage(Value);
- FFileSizeLimit:=0;
- if Value ='' then
- begin
- FFileSizeLimit := 5*1024;
- end
- else
- begin
- FFileSizeLimit := StrToInt(Value);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.Set_imgdpi(const Value: WideString);
-begin
- if Value ='' then
- begin
- FImgDPI := 300;
- ScanDpi := FImgDPI;
- end
- else
- begin
- FImgDPI := StrToInt(Value);
- ScanDpi := FImgDPI;
- Def_ScanDpi := FImgDPI;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.Set_scancolor(const Value: WideString);
-begin
- if value='' then
- begin
- FScanColor := 0;
- ScanColor := ifBlackWhite;
- end
- else
- begin
- FScanColor := StrToInt(Value);
- ScanColor := ifBlackWhite;
- end;
-
- if FScanColor = 1 then
- begin
- ScanColor := ifGray256 ;
- end;
-
- if FScanColor = 2 then
- begin
- ScanColor := ifTrueColor ;
- end;
-
-end;
-
-function TCB_IMGPSScanX.Get_imgdelete: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_imgdelete(const Value: WideString);
-begin
- FImgDelete:=Value;
-end;
-
-function TCB_IMGPSScanX.Get_check_main_form: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_isExternal: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_check_main_form(const Value: WideString);
-begin
- FCheck_main_form := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_isExternal(const Value: WideString);
-begin
- FIsExternal:=Value;
-end;
-
-function TCB_IMGPSScanX.Get_WH_CATEGORY: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_WH_CATEGORY(const Value: WideString);
-begin
- FWH_category:=Value;
-end;
-
-initialization
- TActiveFormFactory.Create(
- ComServer,
- TActiveFormControl,
- TCB_IMGPSScanX,
- Class_CB_IMGPSScanX,
- 1,
- '',
- OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
- tmApartment);
-
- {SetLicenseKey('5B4451E676A1D2976FBB0F3BB18341336AF114C80B5ABAE7F6926B1CAF671F44' +
- 'BD2F098CCEDA922F6389BFAE398DA6AEE67F97EEA0C17234C20D75C12173DBDA' +
- '594924D56DD8E342F454389C836AD880BB4352CA3BE62C4933B1BA3828E7462C' +
- '60514F2ECDAD322E6128D841F12D24DA00B623106D3F08EBCAA917D8A97CAA34' +
- '3D65F2DA567316457395BF9123EE53DF235D181F191A5712DBB27735284AA92D' +
- '5DFA0C8308308505F384707E900C6063F53F1BFF4C6972607955D1AE517B19D0' +
- '82CDD16301885403AD229D57BAEF98C056F31430861E5F68F339D658D72E1F92' +
- '63899412EC2D07891FE3AFD35F3E4A4390B2F0A8A1BF1B7D6160E5F1CC009B17'); }
- SetLicenseKey('4B2CF65E8C2A86CE8A0DD0F6A7DB03BC0B0126168B48AE4C27EBD78CAE75CF0F' +
- 'A612190861E0D99F6FAE3ED97AC1941B5E97843CFFCF705A3787989072D4EB2C' +
- 'AE6CAB3F5B69B86616ACC8A37AD6A2AB21C7BDD5C9AE1EDF9E4193D353805C9A' +
- '403631CE8A3D0803FEBB1BE4C209CE7A63B1298EF080EB34B8628CED567D2B68' +
- 'E777FAC58E2E32B7411FC217A04336231D1E861A93474759DAA6EDF53F6EB632' +
- 'A3055229A52F3053FB844754741409022DDE3DFB19473510F2BE63328E74BE20' +
- 'A6A29AA24878F91ADA9DF8CE1F320AF4DAF58EBF95D9BE761D70EEA274E19475' +
- '1C15948B184264C5C49E60493F3BCD2FFAE2CA8B021D00B96F45550C5F050D8A');
-
-
- SetLicenseKey('A6A94A8D91B08A9D58F300C0573EA9EF1B9DB0BF69B90E13B958DB4CB6B44F5A' +
- '4EE9CB22C9A68C2D07ED52ED4D13C755D890E4074996755361E6CDE2A6F1B563' +
- '5DDC8999AC4D71FB092EA9F1F87BFA25694FBF0D6D250087D2B39629713FCCB0' +
- 'D0A83135BC14FC63A4E8331CFF9E24C45C2D9CFD837EB70BAFDB79A75B7B97D5' +
- 'E9EB271685118C29D90A7C85E7793908989E295DA50021C795A448366026E975' +
- 'F49EA75B721B80427B99E5CF24A225FB498C07946ED7B806B483654C00D85C66' +
- 'E34215CA3EDEF1D4C3F5896090E97E1E2C9752BA2D5B49EE58CF19A0D374077F' +
- '6D13B90B6FED22D9EBC3AD6CDC76E595E08725BF2E12B8EF30A524A2E00504DF');
-end.
+{$I reassemble/CB_IMGPSScanImp.misc.pas}
+{$I reassemble/view/toolBar.pas}
+{$I reassemble/CB_IMGPSScanImp.lfcycle.pas}
+{$I reassemble/view/misc.pas}
+{$I reassemble/view/scrollView.pas}
+{$I reassemble/view/popupMenu.pas}
+{$I reassemble/view/listView.pas}
+{$I reassemble/view/msger.pas}
+{$I reassemble/scan/twain.pas}
+{$I reassemble/img/anchor.pas}
+{$I reassemble/CB_IMGPSScanImp.api.pas}
+{$I reassemble/CB_IMGPSScanImp.listMgr.pas}
+{$I reassemble/CB_IMGPSScanImp.omr.pas}
+{$I reassemble/CB_IMGPSScanImp.fileOp.pas}
+{$I reassemble/CB_IMGPSScanImp.docq.pas}
+{$I reassemble/img/transformer.pas}
+{$I reassemble/CB_IMGPSScanImp.caseMgr.pas}
+{$I reassemble/bloc/entityMapping.pas}
+{$I reassemble/transp/payloadArchiver.pas}
+{$I reassemble/view/treeView.pas}
+{$I reassemble/CB_IMGPSScanImp.custdoc.pas}
+{$I reassemble/CB_IMGPSScanImp.docmod.pas}
+{$I reassemble/CB_IMGPSScanImp.convert.pas}
+{$I reassemble/CB_IMGPSScanImp.inbound.pas}
+{$I reassemble/CB_IMGPSScanImp.prUpload.pas}
+{$I reassemble/transp/fileClient.pas}
+{$I reassemble/bloc/caseManager.pas}
+{$I reassemble/CB_IMGPSScanImp.preview.pas}
\ No newline at end of file
diff --git a/CB_IMGPSScanImp.pas.bk b/CB_IMGPSScanImp.pas.bk
new file mode 100644
index 0000000..11d309f
--- /dev/null
+++ b/CB_IMGPSScanImp.pas.bk
@@ -0,0 +1,16454 @@
+unit CB_IMGPSScanImp;
+//TEST
+{$WARN SYMBOL_PLATFORM OFF}
+
+interface
+
+uses
+ EnScan, { for Scanner }
+ EnDiGrph, { for TDibGraphic }
+ EnMisc, { for MinFloat }
+ EnTifGr, { for TTifGraphic }
+ {$IFDEF Production}
+ CB_IMGPSScan_TLB,
+ {$ENDIF}
+ {$IFDEF Test}
+ CB_IMGPSScan_test_TLB,
+ {$ENDIF}
+
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ ActiveX, AxCtrls, StdVcl, VCLUnZip, VCLZip, Encryp,
+ ExtCtrls, ComCtrls, Menus, StdCtrls, Gauges, EnImgScr, PJMenuSpeedButtons,
+ Buttons, ImgList, SBSimpleSSL, SBHTTPSClient, SBWinCertStorage, SBX509,
+ SBCustomCertStorage, SBUtils,mpsBarco,BarcodesFinder,HTTPApp,ErrList,
+ Xmltool,inifiles,printers,IdHashMessageDigest, idHash, LogFile,ShellApi,
+ SBSocket,IIS_Ftp, SBSimpleFTPS;
+Type
+ TTransMode =(tsHttp,tsFtp,tsNone);
+
+var
+ Ch_WriteNote : Boolean;
+ RejectCase : Boolean;
+ ErrIndex : Integer;
+
+ //*****預設區*****//
+ Def_DeviceDelete : Boolean; //空白頁刪除啟動
+ Def_DeviceDeleteSize : Integer; //空白頁Size
+ Def_ScannerReverse : Boolean; //是否需反相
+ Def_BoardClear : Boolean; //是否清黑邊
+ Def_ScanDpi : Integer; //掃瞄DPI
+ Def_ScanDuplex : Boolean; //是否雙面掃瞄
+ Def_ScanRotate : Integer; //掃瞄時旋轉角度
+ Def_ScanDeskew : Boolean; //是否傾斜矯正
+ Def_ScanBright : Integer; //亮度
+ Def_ScanContrast : Integer; //對比
+ Def_ScanImgShowMode : Integer; //0:清楚影像 1:不清楚影像 2:不顯示
+ Def_ScanImgSetUse : Boolean; //是否使用亮度對比設定
+ //*****預設區*****//
+
+Const
+ ISBName = 'PreViewISB';
+
+{獲取自身版本號所需要 }
+type
+ TVersionLanguage = (vlArabic, vlBulgarian, vlCatalan, vlTraditionalChinese,
+ vlCzech, vlDanish, vlGerman, vlGreek, vlUSEnglish, vlCastilianSpanish,
+ vlFinnish, vlFrench, vlHebrew, vlHungarian, vlIcelandic, vlItalian,
+ vlJapanese, vlKorean, vlDutch, vlNorwegianBokmel, vlPolish,
+ vlBrazilianPortuguese, vlRhaetoRomanic, vlRomanian, vlRussian,
+ vlCroatoSerbian, vlSlovak, vlAlbanian, vlSwedish, vlThai, vlTurkish,
+ vlUrdu, vlBahasa, vlSimplifiedChinese, vlSwissGerman, vlUKEnglish,
+ vlMexicanSpanish, vlBelgianFrench, vlSwissItalian, vlBelgianDutch,
+ vlNorwegianNynorsk, vlPortuguese, vlSerboCroatian, vlCanadianFrench,
+ vlSwissFrench, vlUnknown);
+
+const LanguageValues: array[TVersionLanguage] of Word = ($0401, $0402, $0403,
+ $0404, $0405, $0406, $0407, $0408, $0409, $040A, $040B, $040C, $040D,
+ $040E, $040F, $0410, $0411, $0412, $0413, $0414, $0415, $0416, $0417,
+ $0418, $0419, $041A, $041B, $041C, $041D, $041E, $041F, $0420, $0421,
+ $0804, $0807, $0809, $080A, $080C, $0810, $0813, $0814, $0816, $081A,
+ $0C0C, $100C, $0000);
+{獲取自身版本號所需要 end}
+
+
+type
+ TScanMode = (smNew, smReplace, smInsert, smSample, smRTS);
+ TpScanInfo = ^TScanInfo;
+ TScanInfo = record
+ MultiPage : Boolean;
+ { supplementary info when MultiPage is True }
+ Graphic : TTiffGraphic;
+ Stream : TFileStream;
+ ImageCount : LongInt;
+ end;
+ TOMRErrInfo = record
+ Display : Boolean; //是否顯示
+ Ignore : Boolean; //可否刪除
+ Info : String;
+ Mode : String;
+ end;
+ TScrollRec = Record
+ HScroll : Integer;
+ VScroll : Integer;
+ Rate : Single;
+ end;
+
+type
+ TCB_IMGPSScanX = class(TActiveForm, ICB_IMGPSScanX)
+ Panel1: TPanel;
+ TransBtn: TBitBtn;
+ Panel21: TPanel;
+ ViewModeBtn: TPJMenuSpeedButton;
+ Button2: TButton;
+ Button1: TButton;
+ OptionBtn: TBitBtn;
+ SelectScanBtn: TBitBtn;
+ NextPageBtn: TBitBtn;
+ PrePageBtn: TBitBtn;
+ FC6: TBitBtn;
+ FC5: TBitBtn;
+ FC4: TBitBtn;
+ FC3: TBitBtn;
+ FC2: TBitBtn;
+ FC1: TBitBtn;
+ FC0: TBitBtn;
+ Panel23: TPanel;
+ PJLinkedMenuSpeedButton2: TPJLinkedMenuSpeedButton;
+ NewScanBtn: TBitBtn;
+ AddScanBtn: TBitBtn;
+ Panel4: TPanel;
+ Panel2: TPanel;
+ Splitter1: TSplitter;
+ Panel3: TPanel;
+ Label7: TLabel;
+ Panel6: TPanel;
+ CB1: TCheckBox;
+ ScanDuplexCB: TCheckBox;
+ ScanFlatCB: TCheckBox;
+ Panel18: TPanel;
+ Panel12: TPanel;
+ Panel7: TPanel;
+ Panel9: TPanel;
+ Shape1: TShape;
+ ImageScrollBox1: TImageScrollBox;
+ imgp8: TPanel;
+ lb8: TLabel;
+ ISB8: TImageScrollBox;
+ imgp7: TPanel;
+ lb7: TLabel;
+ ISB7: TImageScrollBox;
+ imgp6: TPanel;
+ lb6: TLabel;
+ ISB6: TImageScrollBox;
+ imgp5: TPanel;
+ lb5: TLabel;
+ ISB5: TImageScrollBox;
+ imgp4: TPanel;
+ lb4: TLabel;
+ ISB4: TImageScrollBox;
+ imgp3: TPanel;
+ lb3: TLabel;
+ ISB3: TImageScrollBox;
+ imgp2: TPanel;
+ lb2: TLabel;
+ ISB2: TImageScrollBox;
+ imgp1: TPanel;
+ lb1: TLabel;
+ Memo1: TMemo;
+ Display1: TMemo;
+ Panel22: TPanel;
+ Panel8: TPanel;
+ Label2: TLabel;
+ Gauge1: TGauge;
+ ScrollBar1: TScrollBar;
+ Panel10: TPanel;
+ PageLV: TListView;
+ StatusBar1: TStatusBar;
+ ImageList4: TImageList;
+ ImageList3: TImageList;
+ ImageList1: TImageList;
+ PopupMenu2: TPopupMenu;
+ mode1: TMenuItem;
+ mode2: TMenuItem;
+ mode3: TMenuItem;
+ mode4: TMenuItem;
+ N51: TMenuItem;
+ ImageList2: TImageList;
+ OpenDialog1: TOpenDialog;
+ PopupMenu3: TPopupMenu;
+ PM301: TMenuItem;
+ PM302: TMenuItem;
+ PM303: TMenuItem;
+ Timer1: TTimer;
+ TomEncryption1: TTomEncryption;
+ SaveDialog1: TSaveDialog;
+ Timer2: TTimer;
+ VCLZip1: TVCLZip;
+ PopupMenu4: TPopupMenu;
+ PM401: TMenuItem;
+ PM402: TMenuItem;
+ PM403: TMenuItem;
+ PM404: TMenuItem;
+ ElWinCertStorage: TElWinCertStorage;
+ ElMemoryCertStorage: TElMemoryCertStorage;
+ Panel5: TPanel;
+ AddCredit1RG: TRadioGroup;
+ Panel11: TPanel;
+ SampleScanBtn: TBitBtn;
+ WNoteBtn: TBitBtn;
+ PopupMenu1: TPopupMenu;
+ PM101: TMenuItem;
+ N12: TMenuItem;
+ PM102: TMenuItem;
+ MenuItem1: TMenuItem;
+ PM103: TMenuItem;
+ PM104: TMenuItem;
+ N7: TMenuItem;
+ PM106: TMenuItem;
+ PM107: TMenuItem;
+ PM108: TMenuItem;
+ PM109: TMenuItem;
+ PopupMenu5: TPopupMenu;
+ PM501: TMenuItem;
+ PM502: TMenuItem;
+ PM503: TMenuItem;
+ PM504: TMenuItem;
+ N5: TMenuItem;
+ PM505: TMenuItem;
+ PM506: TMenuItem;
+ N29: TMenuItem;
+ PM510: TMenuItem;
+ PM509: TMenuItem;
+ PM507: TMenuItem;
+ N15: TMenuItem;
+ PM508: TMenuItem;
+ ExportBt: TButton;
+ ImportBt: TButton;
+ CheckCaseBtn: TBitBtn;
+ DenialTimeLb: TLabel;
+ Panel14: TPanel;
+ ScrollBox1: TScrollBox;
+ Label1: TLabel;
+ Button3: TButton;
+ Panel15: TPanel;
+ Button4: TButton;
+ PopupMenu6: TPopupMenu;
+ PM602: TMenuItem;
+ PM601: TMenuItem;
+ PM605: TMenuItem;
+ PM603: TMenuItem;
+ PM604: TMenuItem;
+ N8: TMenuItem;
+ Panel16: TPanel;
+ SpeedButton3: TSpeedButton;
+ SpeedButton14: TSpeedButton;
+ SpeedButton15: TSpeedButton;
+ SpeedButton16: TSpeedButton;
+ SpeedButton17: TSpeedButton;
+ SpeedButton18: TSpeedButton;
+ SpeedButton19: TSpeedButton;
+ SpeedButton20: TSpeedButton;
+ SpeedButton21: TSpeedButton;
+ SpeedButton22: TSpeedButton;
+ Edit1: TEdit;
+ PM110: TMenuItem;
+ Image1: TImage;
+ UseOldCaseLb: TLabel;
+ PM111: TMenuItem;
+ SmoothCB: TCheckBox;
+ ISB_BW: TImageScrollBox;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ ISB1: TImageScrollBox;
+ Label3: TLabel;
+ LogFile1: TLogFile;
+ ScanGrayCB: TCheckBox;
+ AttFileGB: TGroupBox;
+ AttListBox: TListBox;
+ Panel20: TPanel;
+ AddAttFileLB: TLabel;
+ DelAttFileLB: TLabel;
+ Splitter2: TSplitter;
+ Panel17: TPanel;
+ TreeView1: TTreeView;
+ Panel13: TPanel;
+ PrtLb: TLabel;
+ CaseHelpBtn: TBitBtn;
+ HTTPSClient: TElHTTPSClient;
+ Button5: TButton;
+ FTPSClient1: TElSimpleFTPSClient;
+ Button6: TButton;
+ procedure ActiveFormCreate(Sender: TObject);
+ procedure Panel9Resize(Sender: TObject);
+ procedure ISB1Click(Sender: TObject);
+ procedure WNoteBtnClick(Sender: TObject);
+ procedure CaseHelpBtnClick(Sender: TObject);
+ procedure FC0Click(Sender: TObject);
+ procedure FC1Click(Sender: TObject);
+ procedure FC2Click(Sender: TObject);
+ procedure FC3Click(Sender: TObject);
+ procedure FC4Click(Sender: TObject);
+ procedure FC5Click(Sender: TObject);
+ procedure FC6Click(Sender: TObject);
+ procedure PrePageBtnClick(Sender: TObject);
+ procedure NextPageBtnClick(Sender: TObject);
+ procedure OptionBtnClick(Sender: TObject);
+ procedure SelectScanBtnClick(Sender: TObject);
+ procedure mode1Click(Sender: TObject);
+ procedure mode2Click(Sender: TObject);
+ procedure mode3Click(Sender: TObject);
+ procedure mode4Click(Sender: TObject);
+ procedure N51Click(Sender: TObject);
+ procedure ScrollBar1Change(Sender: TObject);
+ procedure ISB1EndScroll(Sender: TObject);
+ procedure ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
+ Y: Integer);
+ procedure ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure PM508Click(Sender: TObject);
+ procedure PM401Click(Sender: TObject);
+ procedure PM402Click(Sender: TObject);
+ procedure PM403Click(Sender: TObject);
+ procedure PM404Click(Sender: TObject);
+ procedure TreeView1Click(Sender: TObject);
+ procedure NewScanBtnClick(Sender: TObject);
+ procedure AddScanBtnClick(Sender: TObject);
+ procedure PageLVClick(Sender: TObject);
+ procedure PageLVKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure PageLVMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure PM101Click(Sender: TObject);
+ procedure PM104Click(Sender: TObject);
+ procedure PM102Click(Sender: TObject);
+ procedure PM103Click(Sender: TObject);
+ procedure PM106Click(Sender: TObject);
+ procedure PM107Click(Sender: TObject);
+ procedure PM108Click(Sender: TObject);
+ procedure PM109Click(Sender: TObject);
+ procedure PM301Click(Sender: TObject);
+ procedure PM302Click(Sender: TObject);
+ procedure PM303Click(Sender: TObject);
+ procedure PM501Click(Sender: TObject);
+ procedure PM502Click(Sender: TObject);
+ procedure PM503Click(Sender: TObject);
+ procedure PM504Click(Sender: TObject);
+ procedure PM505Click(Sender: TObject);
+ procedure PM510Click(Sender: TObject);
+ procedure PM509Click(Sender: TObject);
+ procedure PM507Click(Sender: TObject);
+ procedure PopupMenu1Popup(Sender: TObject);
+ procedure PopupMenu4Popup(Sender: TObject);
+ procedure PopupMenu5Popup(Sender: TObject);
+ procedure SampleScanBtnClick(Sender: TObject);
+ procedure StatusBar1DblClick(Sender: TObject);
+ procedure ExportBtClick(Sender: TObject);
+ procedure ImportBtClick(Sender: TObject);
+ procedure HTTPSClientCertificateValidate(Sender: TObject;
+ X509Certificate: TElX509Certificate; var Validate: Boolean);
+ procedure ScanDuplexCBClick(Sender: TObject);
+ procedure CheckCaseBtnClick(Sender: TObject);
+ procedure Timer1Timer(Sender: TObject);
+ procedure Timer2Timer(Sender: TObject);
+ procedure TransBtnClick(Sender: TObject);
+ procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
+ procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+ procedure TreeView1KeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ViewModeBtnMouseEnter(Sender: TObject);
+ procedure Button3Click(Sender: TObject);
+ procedure AddCredit1RGClick(Sender: TObject);
+ procedure CB1Click(Sender: TObject);
+ procedure Button4Click(Sender: TObject);
+ procedure ISB1Enter(Sender: TObject);
+ procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
+ Y: Integer);
+ procedure PM601Click(Sender: TObject);
+ procedure PopupMenu6Popup(Sender: TObject);
+ procedure PM604Click(Sender: TObject);
+ procedure PM605Click(Sender: TObject);
+ procedure SpeedButton3Click(Sender: TObject);
+ procedure SpeedButton14Click(Sender: TObject);
+ procedure SpeedButton15Click(Sender: TObject);
+ procedure SpeedButton16Click(Sender: TObject);
+ procedure SpeedButton17Click(Sender: TObject);
+ procedure SpeedButton18Click(Sender: TObject);
+ procedure SpeedButton19Click(Sender: TObject);
+ procedure SpeedButton20Click(Sender: TObject);
+ procedure SpeedButton21Click(Sender: TObject);
+ procedure SpeedButton22Click(Sender: TObject);
+ procedure ActiveFormKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure PM110Click(Sender: TObject);
+ procedure PM602Click(Sender: TObject);
+ procedure PrtLbClick(Sender: TObject);
+ procedure Panel1DblClick(Sender: TObject);
+ procedure Panel11DblClick(Sender: TObject);
+ procedure UseOldCaseLbClick(Sender: TObject);
+ procedure PM111Click(Sender: TObject);
+ procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+ procedure SmoothCBClick(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure TreeView1MouseEnter(Sender: TObject);
+ procedure ScrollBox1MouseEnter(Sender: TObject);
+ procedure ScanGrayCBClick(Sender: TObject);
+ procedure AddAttFileLBClick(Sender: TObject);
+ procedure DelAttFileLBClick(Sender: TObject);
+ procedure AttListBoxDblClick(Sender: TObject);
+ procedure AttListBoxClick(Sender: TObject);
+ procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure HTTPSClientRedirection(Sender: TObject; const OldURL: string;
+ var NewURL: string; var AllowRedirection: Boolean);
+ procedure Button5Click(Sender: TObject);
+ procedure Button6Click(Sender: TObject);
+ private
+ { Private declarations }
+ HotKeyId1,HotKeyId2,HotKeyId3,HotKeyId4 :Integer;
+
+ ////////傳入參數/////////
+ FUrl : String;
+ FCaseID : String;
+ FMode : String; //NSCAN:新件;ESCAN:修改 20170306 DSCAN:被配合待掃瞄清單使用
+ FModeName : String;
+ FWork_no : String;
+ FUserID : String;
+ FUserName : String;
+ FUserUnit : String;
+ FData : String;
+ FVerify : String;
+ FReWrite : String;
+ FLanguage : String;
+ FLoanDoc_Value : String; //新增授信卷的值
+ FLoanDoc_Enable : String; //新增授信卷是否可異動
+ FUseProxy : String; //是否使用Proxy
+ FC_DocNoList : String; //外面傳來要新增的文件編號
+ FC_DocNameList : String; //外面傳來要新增的自訂文件
+ FFixFileList : String; //要鎖住的檔名
+ FIs_In_Wh : String; //是否只顯示入庫文件 (Y:只顯示入庫 N:只顯示非入庫 空白:都顯示)
+ FOldCaseInfo : String; //舊件資訊 CaseID_year[tab]CaseID_year
+ FPrintyn : String; //是否可列印
+ FIs_OldCase : String; //是否是舊案第一次進入
+ FCustDocYN : String; //是否可自訂文件
+ //20170222 新增
+ FImgDPI:integer;//DPI 依業務別決定 150~~1200 預設300
+ FScanColor:integer;///掃瞄色彩 依業務別決定 0 :黑白 1：灰階 2：彩色 預設黑白
+ FFileSizeLimit:integer;//匯入單一檔案大小限 依業務別決定 以KB為單位 預設5*1024kb
+ FCaseNoLength:integer;//案件編號長度檢查 依業務別決定 無預設 一定要傳入
+ FImgDelete:string; // Y/N 有權限可在補件時刪除影像
+ FIsExternal:string;//Y/N
+ FCheck_main_form:string; //Y/N
+ FWH_category:string; //Y/N Y是歸類時有區分入庫非入庫文件 N 是不區分
+ ////////傳入參數///////
+
+ TransMode : TTransMode; //用何種方式上傳檔案
+ //********Http參數********
+ HttpErrStr : String; //錯誤訊息
+ //********Http參數********
+
+ //********Ftp參數*********
+ FFtpIP : String;
+ FFtpID : String;
+ FFtpPwd : String;
+ FFtpRootPath : String;
+ FFtpExtraPath : String;
+ FFtpPort : Integer;
+ FFtpProtocol : TFtpProtocol;
+ //********Ftp參數*********
+
+ //********ini參數********
+ DeviceDelete : Boolean; //空白頁刪除啟動
+ DeviceDeleteSize : Integer; //空白頁Size
+ ScannerReverse : Boolean; //是否需反相
+ BoardClear : Boolean; //是否清黑邊
+ ScanDpi : Integer; //掃瞄DPI
+ ScanDuplex : Boolean; //是否雙面掃瞄
+ ScanRotate : Integer; //掃瞄時旋轉角度
+ ScanDeskew : Boolean; //是否傾斜矯正
+ ScanBright : Integer; //亮度
+ ScanContrast : Integer; //對比
+ ScanImgShowMode : Integer; //0:清楚影像 1:不清楚影像 2:不顯示
+ ScanImgSetUse : Boolean; //是否使用亮度對比設定
+
+ //********ini參數********
+ ScanColor : TImageFormat;
+
+ //********時間********
+ ServerDate : String;
+ ServerTime : String;
+ Balance : Longint; //local跟server的時間差
+ ScanDenialTime : String; //停止進件時間
+ //********時間********
+ ScanDenialHint : String; //掃描顯示提醒字串
+
+ //********路徑********
+ ScanPath : String; // SpecifyDir\Workid\userunit\mode
+ ImagePath : String; // SpecifyDir\Workid\userunit\mode
+ ImageSavePath : String; // ImagePath\
+ ScaniniPath : String; // SpecifyDir\Workid\userunit\
+ LngPath :String; //多國語言檔目錄
+ CheckXmlPath : String; //檢核用的Xml存放目錄
+ SitePath : String; //登打位置(切簽名用)
+ SamplePath : String; //範本目錄
+ TransPath : String; //檔案上傳的路徑(補充件會多一層目錄)
+ //********路徑********
+ ScanSaveFilename : String; //掃瞄的檔名
+ ScanCaseno : String; //掃瞄時的案號
+ ScanDocDir : String; //掃描時的文件代號目錄
+ //********清單區********
+ Doc_Inf_List : TStringList; //Doc_Inf 清單
+ DM_FORM_INF_List :TstringList; //DM_FORM_INF 清單
+ FORM_INF_List : TStringList; //FORM_INF的清單
+ CHECK_RULE_INF_List : TStringList; //CHECK_RULE_INF 清單
+ MEMO_INF_List : TStringList; //MEMO_INF 清單
+ WORK_INF_List : TStringList; //WORK_INF 清單
+ LASTEST_FORM_INF_List : TStringList; // LASTEST_FORM_INF 清單
+
+ FindResult : TStringList; //找SQLData的結果
+ CaseList : TStringList; //記錄掃瞄案件的順序
+ Context_DocnoList : TStringlist; //案件裡的Docno清單
+ CaseDocNoList : TStringlist; //案件裡的DocNo清單(不重複)
+ CaseDocNo_CopiesList : TStringlist; //案件裡的DocNo份數清單
+ ContextList : TStringlist; //案件裡的檔案清單
+ AttContextList : TStringlist; //案件裡的附加檔案清單
+ OMRFileList : TStringList; //要OMR檢核的文件(只檢查每種Form的第一頁)
+ Cust_DocNoList : TStringlist; //自行定義文件名稱
+ IN_WH_DocNoList : TStringlist; //入庫的文件清單
+
+ FormCode_PageSize : TStringList; //文件的預設大小 FormCode_Height_Width
+ DocNo_NeedDoc : TStringList; //有Docno時要相依的文件 DocNo_相依文件_相依文件
+ DocNo_NoDoc : TstringList; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
+ DocNo_VerinCase : TStringlist; //案件裡的DocNo+版本的清單
+
+ NoSaveBarCodeList : TStringlist; //不儲存的條碼清單
+ FormID_List : TStringlist; //FormID 清單 20130403 因為原FormCode2Docno會很慢..把FormID抽出來
+ DocNo_List : TStringlist; //DocNo 清單 20130403 因為原FormCode2Docno會很慢..把DocNo抽出來
+ NowShowFileList : TStringlist; //目前顯示的影像清單
+ NowSelectFileList : TStringlist; //目前被點選的影像清單
+ GuideFormIDList : TStringlist; //要當導引頁表單清單
+ DivPageFormIDList:TStringlist; //要當分案頁表單清單
+ LastInitFormidList:TStringList;
+ LastAddFormidList:TstringList;
+ SampleFormIDList:TStringList; //20170627 已存在範本的formid
+ ExistImgList:TStringList; //20170724 已經存在的影像list for ESCAN //Img的完整路徑
+ reSizeExistImgList:TstringList; //20171012被縮放的舊圖MD5存入
+ //********清單區********
+
+ //********顯示區********
+ NowCaseno : String; //目前顯示的案件編號
+ NowDocNo : String; //目前的文件編號
+ NowDocDir : String; //目前的文件目錄
+ NowFormCode : String; //目前顯示的表單編號
+ NowFormName : String; //目前顯示的表單名稱
+ NowPage : Integer; //目前點選的頁碼
+ DisplayPath : String; //目前顯示的目錄
+ //********顯示區********
+
+ //******索引資料*********
+ Case_loandoc : String; //是否新增授信卷
+ //******索引資料*********
+
+ //********十字定位點資訊********
+ UpLPoint : Tpoint; //左上方的十字點
+ UpRPoint : Tpoint; //右上方的十字點
+ DownLPoint : Tpoint; //左下方的十字點
+ DownRPoint : Tpoint; //右下方的十字點
+ Point_Width : String; //十字點的寬
+ Point_Height : String; //十字點的高
+ //********十字定位點資訊********
+
+ CaseIDLength : Integer; //案件編號長度
+ FormIDLength : Integer; //FormID長度
+ DocNoLength : Integer; //Docno長度
+
+ PEFileName : String; //掃描時的檔名
+ DownFileErrStr : String; //下載影像時發生的錯誤
+
+ ISB : TImageScrollBox;
+ ScanInfo : TScanInfo;
+ TwainShowUI : Boolean;
+ MpsBarcodeinf : TMpsBarcodeinf;
+ ScanMode : TScanMode;
+ Mpskey : String;
+ Seg : Integer; //顯示的邊界值
+ VMode : Integer; //顯示的index
+ NowClick : Integer; //目前點到的按鈕功能Index
+ ScanIP : String; //掃瞄端的IP
+ DisplayISB : TImageScrollBox; //被點到的影像
+ SelectISB : TImageScrollBox; //被點到的縮圖
+ SelectPage : Integer; //被點到的頁數
+ NewTreeNode,MyTreeNode1,MyTreeNode2,MyTreeNode3 : TTreenode;
+ InitialOk : Boolean; //資訊載入是否完成
+ ShowText : String; //DataLoading時要秀出的訊息
+ Ext : String; //附檔名 .tif .jpg
+ SafePixel : Integer; //OMR容忍誤差值點數
+ OMRErrInfo : Array[1..11] of TOMRErrInfo; //檢核的方式及訊息
+ ScrollRec : Array[1..8] of TScrollRec; //瀏覽窗的Scroll記錄
+ RecHozPos,RecVerPos : Integer; //記錄MPSViewX1的ScrollBar位置
+ ReczoomPercent : Single;
+ SortMode : Boolean;
+ PreMytreeNode2Name:String;
+ HS,VS : Integer;
+ iRate : Single;
+ Bt : Integer; //去直線時橫線判斷的容忍值
+ BarCodeRotate : Integer; //條碼要轉的角度
+ HaveAppDoc : Boolean; //補全時是否有補入要保書
+ PageLVclear : Boolean;
+ CaseCount,PageCount : Integer; //總案件量及總頁數
+ Item : TMenuItem;
+ SampleAnchorMode : String; //範本掃瞄十字線的模式 NONE:無;ANCHOR:十字;FRAME:邊框
+ DownImgStatus : String; //下載影像的狀態(NO_DATA:沒資料;NO_FILE:沒影像)
+ TransForm_Field : String; //要用OMR勾選確認是否轉換FORMID的欄位名稱
+ NowWork_No : String; //現在的作業別
+ CropBarcode : String; //要切影像的條碼
+ Has_Authorize :String; //是否有授權書影像
+ AttName : String; //未歸類目錄名稱
+ NowGuideFormID : String;
+ NowDivPageFormID:String;
+
+ FirstDocDir : String;
+ FMaxUploadSize:String;// 上傳zip大小限制
+ FJpgCompression:integer;// 20171211 jpg to tif 的壓縮率
+
+ Draging : Boolean;
+ MDown : Boolean; //20181210 用來判斷滑鼠右鍵要Popupmenu是否有MouseDonw發生
+
+ FEvents: ICB_IMGPSScanXEvents;
+
+ procedure HotKeyDown (var Msg : TMessage);message WM_HOTKEY;
+ Procedure InitialLanguage(Sender: TObject); //畫面載入多國語言
+ //Function _Msg(S:String):String;
+
+ //*********SQL相關************
+ Procedure SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入
+ Function GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值
+ Function FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料
+ Function GetFindResult(Col:String):String;
+ //*********SQL相關************
+
+ //*********FTP相關************
+ Function GetFtpinfo(CaseID,Action:String):Boolean;
+ Procedure SetFtpInfo; //餵入FTP資訊
+ Function FtpCaseComplete(SendData:String):Boolean;
+ //*********FTP相關************
+
+ //*******轉換區*********
+ Function FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼
+ Function FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱
+ Function FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁)
+ Function FileName2FormCode(FileName:String):String; //從檔名取出FormCode
+ Function FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱
+ Function FileName2ScanPage(FileName:String):Integer; //從檔名取出掃瞄頁數
+ Function FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名
+ Function FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號
+ Function FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號
+ Function FormCode2DocNo(FormCode:String):String; //FormCode轉Docno
+ Function FormCode2Version(FormCode:String):String; //FormCode轉版本
+ Function FormCode2Page(FormCode:String):String; //FormCode轉文件頁數
+ Function DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱
+ Function DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁)
+ Function FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別
+ Function DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別
+ Function DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄
+ Function DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo
+ Function DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index
+
+ Function DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號
+ //Function CaseNo2DocNo(CaseNo:String):TStringList;
+
+ Function CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page
+ Function DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group
+ Function FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page
+ //*******轉換區*********
+
+ Procedure PriorPage(Page:Integer); //上一頁
+ Procedure NextPage(Page:Integer); //下一頁
+
+ Function DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //DocNo是否己存在樹裡
+ Function DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組
+
+ function GetSiteOMR(FileName, Site: String;bt: Integer): Integer;
+ Function FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示
+ Procedure R_W_ScanIni(Mode:Char); //'R'讀取;'W'寫入
+ Procedure GetDefScanIni; //取得掃瞄的預設值
+ procedure DesableImage;
+ procedure EnableImage(v:integer;Sender : TObject);
+ Procedure ViewMouseMode(v:Integer);
+ Procedure GoViewMode;
+ Procedure DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel);
+ Function GetServerDate : Boolean; //取主機時間
+ Function GetSetInf1 : Boolean; //取系統設定資訊mode1 DOC_INF
+ Function GetSetInf2 : Boolean; //取系統設定資訊mode2 DM_FORM_INF
+ Function GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF
+ Function GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF
+ Function GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF
+ Function GetSetInf6 : Boolean; //取系統設定資訊mode6 WORK_INF
+ Function GetSetInf7 : Boolean; //取系統設定資訊mode7 LASTESTFORM_INF
+ Procedure SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡
+ Procedure SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+
+ Procedure DataLoading(Loading,UseTimer:Boolean); //資料載入中要停止點選的動作
+ procedure ClearView(stkv:Integer); //清除瀏覽窗的影像
+ Function DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree
+
+ Procedure initkscan; //檢查掃描器的功能
+ procedure LoadImgFile; //載入案件
+ procedure LoadImgFile1; //載入案件
+ procedure LoadAttFile(CaseID:String); //載入附加檔案
+ Procedure DistinctFormCode(CaseID:String); //案件裡的FormCode取出第一頁
+ Function OMRCheckCase(CaseID:String):Boolean; //OMR檢核
+ Procedure OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini
+ Procedure OMRErrini2List(CaseID:String;ErrlistForm : TErrlistForm); //OMR檢核失敗從ini寫入ListView
+ Function DownLanguage:Boolean; //下載多國語言檔
+ Function FindMpsView(Vmode:Integer):TImageScrollBox;
+ Function CaseAsk(CaseID:String):Integer; //詢問是否可上傳 (-1:失敗;0:可以;1:不行;)
+ Function CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成
+ Function GetCaseFormID(Path:String):String; //取案件的FormID
+ Procedure CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat
+ Procedure CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat
+ Procedure CreateIn_WH(CaseID:String); //產生In_WH.dat
+ Function CreateDocNo_Info(CaseID:String):String; //產生保管袋文件 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動
+ Function CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動
+ //Function CreateCustDocNo_Info(path,CaseID:String):String; overload
+ Function CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有
+ Function CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+ Function CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+
+ Function GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N)
+ Function GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數
+ Function GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數
+ Function FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在及是否要檢查啟用停用日期
+ Function Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡
+ Procedure ReSortFileName_New(Path:String); //檔名重新排序
+ Procedure ReSortFileName(Path:String); //檔名重新排序
+ Procedure ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat
+ Function GetOMRCheckSet:Boolean; //下載OMR檢核XML檔
+ Function GetKeyinSet : Boolean; //取登打設定
+ Procedure CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record
+ Procedure ReNameContext(Path,OldName,NewName:String);
+ Procedure DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案
+ Procedure DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件
+ Function DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件
+ Procedure DeleteShowFile(Path:String); //刪除顯示中的影像
+ Function GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數
+ Function CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //檢查案件裡的文件_版本頁數
+ Function FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數
+ Function GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數
+ Procedure CaseReSize(CaseID:String); //案件的影像縮放
+ Procedure ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放
+ Procedure ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔)
+ Function TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件
+ Procedure NewTreeNodeRefresh;
+ Procedure MyTreeNode1Refresh;
+ Procedure MyTreeNode2ReFresh(CaseID:String);
+ Procedure MyTreeNode3ReFresh(CaseID:String);
+ Function Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來
+ Function Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來
+ Function Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來
+ Function GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
+ //Function Down_Replace_Img(SPAth,DPath,CaseID:String):Boolean;
+ Function DownLoadImage(Path,CaseID:String):Boolean;
+ Function Down_Img(Path,CaseID:String):Boolean;
+ Function GetNoNameCase(Path:string):String; //取未配號XXXX
+ Procedure CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno挑)
+ Procedure CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
+ Procedure DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
+ Procedure DistinctDocNoinCase(Path:String); //列出案件裡的Docno
+ Procedure ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案
+ Procedure SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改'
+ Procedure SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改'
+ Procedure SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+ Procedure SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+
+
+ Function checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核
+ Function CheckCaseID_OK:Boolean; //檢查是否有未配號的案件
+ Procedure CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用)
+ Procedure InitScrollRec; //初始化影像Scroll記錄
+ Procedure GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single); //取影像Scroll記錄
+ Procedure SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single); //寫影像Scroll記錄
+ Procedure FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID
+ Procedure ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID
+ Procedure PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID
+ Function ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核
+ procedure WMMOUSEWHEEL(var message: TWMMouseWheel); message WM_MOUSEWHEEL;
+ Function GetCasePage(Path,CaseID:String):Integer;
+ Function GetFormIDPage(FileList:TStringlist;FormID:String):Integer;
+ Procedure SetFile2Case(CaseID,FileName:String);
+ Procedure WriteResize(ImgName,TxtName:String); //產生Resize.dat
+ Function GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數 ID為空值時為取所有的
+ Function BarCode2FormID : String; //Barcode依規則轉成FormID
+ Function BarCode2CaseID : String; //Barcode依規則轉成CaseID
+ Procedure WriteCaseIndex(Path:String);
+ Procedure ReadCaseIndex(Path:String);
+ Procedure ClearCaseIndex;
+ Procedure GetSelectImageFile;
+ Function GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數
+ Function CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡
+
+ Procedure ZipMainFile(SoPath,DePath,ZipName:String); //壓縮影像檔
+ Procedure ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔
+ Procedure ParserPoint(S:String); //解析十字點的字串
+ Function CheckScanDenialTime:Boolean;
+ Function FormID2Anchor(FormID:String):String; //用FormID取出十字模式
+ Function Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME
+ Function MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼
+ Function GetFormatID(CaseID:String):String; //取出案件的FormatID
+ Function FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼
+ Function CheckAvailable:Boolean; //檢查是否可使用元件
+ Function Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像
+ Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
+ Function GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號
+ Function GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱
+ Function GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID
+ Function GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir
+ Function FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在
+ Procedure DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo
+ Function CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印
+ procedure PrintImg(FileName, LoginID, Datetime,Path: WideString);
+ Function FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir
+ Procedure Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件
+ Procedure OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
+ Procedure ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
+ Procedure SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
+ Function GetDocDir_Page(CaseID,DocDir:String):Integer; //取得DocDir的頁數
+ Function Path2DocDir(Path,CaseID:String):String;
+ Function GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+ Procedure SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序
+ Procedure GotoAttach(OldLevel:Integer);
+ Function DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+ Procedure CreateCaseNeedData(Path:String); //先做影像截取會少二個文字檔,產生CaseDocNo.dat及DocDir.dat
+ Procedure SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String);
+ Function CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像
+ Function TransOldCaseFile(Path:String):Boolean; //上傳引用舊件的記錄檔
+ Function Writelog(CaseID:String):Boolean;
+ Function FormIDAppear(FormID:String):Boolean; //FormID是否可出現
+ Function DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
+ Function GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量
+ Function GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir份數
+ Procedure SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數
+ Function GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數
+ Function GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量
+ Function GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量
+ Function ISGuideFormID(FormID:String):Boolean;
+ Function CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除
+
+ Procedure MoveImage(Path:String;mp:Integer); //移動頁數
+ Procedure MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數
+
+
+ Procedure SetUseCase(Mode:Char;Path,DocDir,FormCaseID,ToCaseID:String); //記錄引用其他案件 A:加入 D:刪掉
+ Function GetUseCase(Mode:Char;Path,DocDir:String):String; //F:取被引用 To:引用
+
+ Procedure Case2upload(CaseID:String);
+ Procedure Download2Case(SoDir,DeDir:String);
+
+ procedure view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像
+ procedure view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像
+
+ Function ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName
+ Procedure CreatePreViewISB(Count:Integer);
+ Procedure FreePreViewISB;
+ Procedure FitPreViewISB;
+ Procedure PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像
+ Procedure FreeShapeobj(SelectISB : TImageScrollBox);
+ Procedure ISBClick(Sender : TObject);
+ Procedure ISBMouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+ procedure ISBImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ISBImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ISBEndDrag(Sender, Target: TObject; X, Y: Integer);
+ procedure ISBDragDrop(Sender, Source: TObject; X, Y: Integer);
+ procedure ISBDragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+
+ procedure BtnMouseEnter(Sender: TObject);
+
+ procedure PageEnd; //掃描接收完成
+ Procedure PageDone; //掃描完成後顯示影像
+ procedure StatrTwainScan;
+ procedure OnAcquire( const DibHandle : THandle;
+ const XDpi : Word;
+ const YDpi : Word;
+ const CallBackData : LongInt );
+
+
+ procedure ActivateEvent(Sender: TObject);
+ procedure ClickEvent(Sender: TObject);
+ procedure CreateEvent(Sender: TObject);
+ procedure DblClickEvent(Sender: TObject);
+ procedure DeactivateEvent(Sender: TObject);
+ procedure DestroyEvent(Sender: TObject);
+ procedure KeyPressEvent(Sender: TObject; var Key: Char);
+ procedure MouseEnterEvent(Sender: TObject);
+ procedure MouseLeaveEvent(Sender: TObject);
+ procedure PaintEvent(Sender: TObject);
+ function GetCurrentVersionNo: String;
+ procedure initParameter;
+ procedure LastInitFormidListCreate(path:string);
+ function checkFormCodeIsCustom(path,formcode:string):boolean;
+ function ISDivPageFormID(FormID: String): Boolean;
+ function GetSampleInf: Boolean;
+ procedure InitExistImgList(casepath:String);
+ function LoadFileGetMD5(const filename:string):string; //20170809 取的檔案的MD5
+ function ISExistImg(const filename:string):boolean; //20170809 確認是否存在原有影像
+ procedure _DelTreeForExistImg(ASourceDir:String); //2017 刪除前確認 有舊影像嗎
+ function DocNoIsExistImg(DocNopath: String): boolean; //2017 刪除前確認 有舊影像嗎
+ function CheckCaseAttach_OK: Boolean;
+ function DeleteDocNoFileForESCAN(Path, DocNo: String): Boolean; //2017 確認是否有未歸類文件
+ function CheckRequiredColumnValues(workno,caseno:String) :Boolean; //20171003 此大類下此案是否檢核必填
+ function logTimeString :String;
+ procedure ReduceLogFile ;
+ function FindLastestDocDirForPage(CaseID, DocNo, formid: String): String;
+ function OMRErrini2ListForLog(CaseID: String):String;
+ protected
+ { Protected declarations }
+ procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
+ procedure EventSinkChanged(const EventSink: IUnknown); override;
+ function Get_Active: WordBool; safecall;
+ function Get_AlignDisabled: WordBool; safecall;
+ function Get_AlignWithMargins: WordBool; safecall;
+ function Get_AutoScroll: WordBool; safecall;
+ function Get_AutoSize: WordBool; safecall;
+ function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
+ function Get_Caption: WideString; safecall;
+ function Get_Color: OLE_COLOR; safecall;
+ function Get_DockSite: WordBool; safecall;
+ function Get_DoubleBuffered: WordBool; safecall;
+ function Get_DropTarget: WordBool; safecall;
+ function Get_Enabled: WordBool; safecall;
+ function Get_ExplicitHeight: Integer; safecall;
+ function Get_ExplicitLeft: Integer; safecall;
+ function Get_ExplicitTop: Integer; safecall;
+ function Get_ExplicitWidth: Integer; safecall;
+ function Get_Font: IFontDisp; safecall;
+ function Get_HelpFile: WideString; safecall;
+ function Get_KeyPreview: WordBool; safecall;
+ function Get_MouseInClient: WordBool; safecall;
+ function Get_ParentCustomHint: WordBool; safecall;
+ function Get_ParentDoubleBuffered: WordBool; safecall;
+ function Get_PixelsPerInch: Integer; safecall;
+ function Get_PopupMode: TxPopupMode; safecall;
+ function Get_PrintScale: TxPrintScale; safecall;
+ function Get_Scaled: WordBool; safecall;
+ function Get_ScreenSnap: WordBool; safecall;
+ function Get_SnapBuffer: Integer; safecall;
+ function Get_UseDockManager: WordBool; safecall;
+ function Get_Visible: WordBool; safecall;
+ function Get_VisibleDockClientCount: Integer; safecall;
+ procedure _Set_Font(var Value: IFontDisp); safecall;
+ procedure Set_AlignWithMargins(Value: WordBool); safecall;
+ procedure Set_AutoScroll(Value: WordBool); safecall;
+ procedure Set_AutoSize(Value: WordBool); safecall;
+ procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
+ procedure Set_Caption(const Value: WideString); safecall;
+ procedure Set_Color(Value: OLE_COLOR); safecall;
+ procedure Set_DockSite(Value: WordBool); safecall;
+ procedure Set_DoubleBuffered(Value: WordBool); safecall;
+ procedure Set_DropTarget(Value: WordBool); safecall;
+ procedure Set_Enabled(Value: WordBool); safecall;
+ procedure Set_Font(const Value: IFontDisp); safecall;
+ procedure Set_HelpFile(const Value: WideString); safecall;
+ procedure Set_KeyPreview(Value: WordBool); safecall;
+ procedure Set_ParentCustomHint(Value: WordBool); safecall;
+ procedure Set_ParentDoubleBuffered(Value: WordBool); safecall;
+ procedure Set_PixelsPerInch(Value: Integer); safecall;
+ procedure Set_PopupMode(Value: TxPopupMode); safecall;
+ procedure Set_PrintScale(Value: TxPrintScale); safecall;
+ procedure Set_Scaled(Value: WordBool); safecall;
+ procedure Set_ScreenSnap(Value: WordBool); safecall;
+ procedure Set_SnapBuffer(Value: Integer); safecall;
+ procedure Set_UseDockManager(Value: WordBool); safecall;
+ procedure Set_Visible(Value: WordBool); safecall;
+ procedure Set_caseid(const Value: WideString); safecall;
+ procedure Set_data(const Value: WideString); safecall;
+ procedure Set_mode(const Value: WideString); safecall;
+ procedure Set_rewrite(const Value: WideString); safecall;
+ procedure Set_url(const Value: WideString); safecall;
+ procedure Set_userid(const Value: WideString); safecall;
+ procedure Set_username(const Value: WideString); safecall;
+ procedure Set_verify(const Value: WideString); safecall;
+ procedure Set_language(const Value: WideString); safecall;
+ procedure Set_modename(const Value: WideString); safecall;
+ procedure Set_userunit(const Value: WideString); safecall;
+ procedure Set_work_no(const Value: WideString); safecall;
+ procedure Set_loandoc_enable(const Value: WideString); safecall;
+ procedure Set_loandoc_value(const Value: WideString); safecall;
+ procedure Set_useproxy(const Value: WideString); safecall;
+ procedure Set_c_docnamelist(const Value: WideString); safecall;
+ procedure Set_c_docnolist(const Value: WideString); safecall;
+ procedure Set_fixfilelist(const Value: WideString); safecall;
+ procedure Set_is_in_wh(const Value: WideString); safecall;
+ procedure Set_oldcaseinfo(const Value: WideString); safecall;
+ function Get_c_docnamelist: WideString; safecall;
+ function Get_c_docnolist: WideString; safecall;
+ function Get_caseid: WideString; safecall;
+ function Get_data: WideString; safecall;
+ function Get_fixfilelist: WideString; safecall;
+ function Get_is_in_wh: WideString; safecall;
+ function Get_language: WideString; safecall;
+ function Get_loandoc_enable: WideString; safecall;
+ function Get_loandoc_value: WideString; safecall;
+ function Get_mode: WideString; safecall;
+ function Get_modename: WideString; safecall;
+ function Get_oldcaseinfo: WideString; safecall;
+ function Get_rewrite: WideString; safecall;
+ function Get_url: WideString; safecall;
+ function Get_useproxy: WideString; safecall;
+ function Get_userid: WideString; safecall;
+ function Get_username: WideString; safecall;
+ function Get_userunit: WideString; safecall;
+ function Get_verify: WideString; safecall;
+ function Get_work_no: WideString; safecall;
+ function Get_printyn: WideString; safecall;
+ procedure Set_printyn(const Value: WideString); safecall;
+ function Get_is_oldcase: WideString; safecall;
+ procedure Set_is_oldcase(const Value: WideString); safecall;
+ function Get_custdocyn: WideString; safecall;
+ procedure Set_custdocyn(const Value: WideString); safecall;
+ function Get_casenolength: WideString; safecall;
+ function Get_filesizelimit: WideString; safecall;
+ function Get_imgdpi: WideString; safecall;
+ function Get_scancolor: WideString; safecall;
+ procedure Set_casenolength(const Value: WideString); safecall;
+ procedure Set_filesizelimit(const Value: WideString); safecall;
+ procedure Set_imgdpi(const Value: WideString); safecall;
+ procedure Set_scancolor(const Value: WideString); safecall;
+ function Get_imgdelete: WideString; safecall;
+ procedure Set_imgdelete(const Value: WideString); safecall;
+ function Get_check_main_form: WideString; safecall;
+ function Get_isExternal: WideString; safecall;
+ procedure Set_check_main_form(const Value: WideString); safecall;
+ procedure Set_isExternal(const Value: WideString); safecall;
+ function Get_WH_CATEGORY: WideString; safecall;
+ procedure Set_WH_CATEGORY(const Value: WideString); safecall;
+ public
+ { Public declarations }
+ procedure Initialize; override;
+ end;
+
+implementation
+
+uses EnBarcode,
+ EnTransf, { for TImageTransform }
+ Enpnggr, { for PNGGraphic }
+ EnJpgGr, { for JPGGraphic }
+ EnReg,
+ EnBmpGr, { for TBitmapGraphic }
+ EnPrint, { for TEnvisionPrintMode, TDibGraphicPrinter }
+ ComObj, ComServ,IISUnit,IIS_File2Web,IIS_ImageProcess,
+ PatchFom,Doclist,ScanMemo,DocCopy,InputMask,SortMemo,DocPrt,OldCaseInfo;
+
+{$R *.DFM}
+
+{ TCB_IMGPSScanX }
+
+function TCB_IMGPSScanX.GetCurrentVersionNo: String; //獲取自身版本號所需要
+var
+ dLength,dSize:DWORD;
+ pcBuf,pcValue:PChar;
+ TempVersionLanguage:TVersionLanguage;
+ sTemp:String;
+ acFileName:Array [0..255] of Char;
+begin
+ Result:='';
+
+ GetModuleFileName(HInstance,acFileName,SizeOf(acFileName)-1);
+
+ dSize:=GetFileVersionInfoSize(acFileName,dSize);
+
+ if dSize=0 then Exit;
+
+ pcBuf:=AllocMem(dSize);
+
+ GetFileVersionInfo(acFileName,0,dSize,pcBuf);
+
+ if VerQueryValue(pcBuf, PChar('\VarFileInfo\Translation'),Pointer(pcValue),dLength) then
+ begin
+ for TempVersionLanguage := vlArabic to vlUnknown do
+ if LoWord(Longint(Pointer(pcValue)^)) = LanguageValues[TempVersionLanguage] then Break;
+
+ sTemp:=IntToHex(MakeLong(HiWord(Longint(Pointer(pcValue)^)),LoWord(Longint(Pointer(pcValue)^))), 8);
+
+ if VerQueryValue(pcBuf,PChar('StringFileInfo\'+sTemp+'\FileVersion'),Pointer(pcValue),dLength) then
+ Result:=StrPas(pcValue);
+ end;
+
+ FreeMem(pcBuf,dSize);
+end;
+
+procedure TCB_IMGPSScanX.WMMOUSEWHEEL(var message: TWMMouseWheel);
+var
+ I: Integer;
+ iISB : TImageScrollBox;
+begin
+ inherited;
+ //lb1.Caption:=IntToStr(message.Keys);
+ if (message.WheelDelta = WHEEL_DELTA) Then
+ begin
+
+ if ScrollBox1.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+ if DisplayISB <> nil then
+ begin
+ if (DisplayISB.Focused) and (message.Keys=0) then
+ begin
+ DisplayISB.VertScrollBar.Increment := 50;
+ DisplayISB.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+
+ if (DisplayISB.Focused) and (message.Keys=50) then
+ begin
+ DisplayISB.ZoomMode := zmPercent;
+ if DisplayISB.ZoomPercent < 90 then
+ DisplayISB.ZoomPercent := DisplayISB.ZoomPercent+10;
+ end;
+
+ end;
+ i:=0;
+ while FindComponent(ISBName+inttostr(i)) <> nil do
+ begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ if iISB.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+ inc(i);
+ end;
+
+ end
+ else if (message.WheelDelta = -WHEEL_DELTA) then
+ begin
+
+ if ScrollBox1.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
+ end;
+ if DisplayISB <> nil then
+ begin
+ if (DisplayISB.Focused) and (message.Keys=0) then
+ begin
+ DisplayISB.VertScrollBar.Increment := 50;
+ DisplayISB.Perform(WM_VSCROLL,SB_LINEDOWN,0);
+ end;
+ if (DisplayISB.Focused) and (message.Keys=50) then
+ begin
+ DisplayISB.ZoomMode := zmPercent;
+ if DisplayISB.ZoomPercent > 10 then
+ DisplayISB.ZoomPercent := DisplayISB.ZoomPercent-10;
+ end;
+
+
+ end;
+
+ i:=0;
+ while FindComponent(ISBName+inttostr(i)) <> nil do
+ begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ if iISB.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+ inc(i);
+ end;
+
+ end;
+
+
+end;
+
+procedure TCB_IMGPSScanX.WNoteBtnClick(Sender: TObject);
+var
+ i,n,v,v1:Integer;
+ SortMemoForm : TSortMemoForm;
+ M_Content,M_ID,M_Name : String;
+ S : TStringlist;
+begin
+ ShowText := _Msg('備註輸入中,請稍候');
+ DataLoading(True,True);
+ SortMemoForm := TSortMemoForm.Create(Self);
+ S := TStringlist.Create;
+ try
+ InitialLanguage(SortMemoForm); //載入多國語言
+
+ SortMemoForm.ContentList := TStringlist.Create; //註記內容
+ SortMemoForm.MemoIDList := TStringlist.Create; //註記代號
+ SortMemoForm.MemoNameList := TStringlist.Create; //註記名稱
+
+ for i := 1 to MEMO_INF_List.Count - 1 do
+ begin
+ M_Content := GetSQLData(MEMO_INF_List,'T1.MEMO_CONTENT',i);
+ M_ID := GetSQLData(MEMO_INF_List,'T1.MEMO_TYPE',i);
+ M_Name := GetSQLData(MEMO_INF_List,'T2.MEMO_TYPE_NAME',i);
+ SortMemoForm.ComboBox1.Items.Add(M_Name+'-->'+M_Content);
+ SortMemoForm.ContentList.Add(M_Content); //註記內容
+ SortMemoForm.MemoIDList.Add(M_ID); //註記代號
+ SortMemoForm.MemoNameList.Add(M_Name); //註記名稱
+ end;
+ if FileExists(DisplayPath+'Scan_Memo.dat') then
+ begin
+ S.LoadFromFile(DisplayPath+'Scan_Memo.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ v := Pos(',',S.Strings[i]);
+ v1 := length(S.Strings[i]);
+ M_ID := copy(S.Strings[i],1,v-1);
+ M_Name := MemoInfoTransfer('ID',M_ID,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
+ M_Content := copy(S.Strings[i],v+1,v1-v);
+ SortMemoForm.ResoureMemo.Add(M_Name+'-->'+M_Content);
+ With SortMemoForm.MemoLV.Items.Add do
+ begin
+ Caption := M_Content;
+ SubItems.Add(M_Name);
+ end;
+ end;
+ end;
+
+ if SortMemoForm.ShowModal = mrOk then
+ begin
+ S.Clear;
+ for I := 0 to SortMemoForm.MemoLV.Items.Count - 1 do
+ begin
+ M_Content := SortMemoForm.MemoLV.Items.Item[i].Caption;
+ M_Name := SortMemoForm.MemoLV.Items.Item[i].SubItems.Strings[0];
+ M_ID := MemoInfoTransfer('NAME',M_Name,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
+ S.Add(M_ID+','+M_Content);
+ end;
+ S.SaveToFile(DisplayPath+'Scan_Memo.dat');
+ end;
+ SortMemoForm.ContentList.Free; //註記內容
+ SortMemoForm.MemoIDList.Free; //註記代號
+ SortMemoForm.MemoNameList.Free; //註記名稱
+ finally
+ SortMemoForm.Free;
+ S.Free;
+ DataLoading(False,False);
+ if Ch_WriteNote then
+ begin
+ Ch_WriteNote := False;
+ CaseHelpBtnClick(self);
+ ErrIndex := 0;
+ end;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
+begin
+ { Define property pages here. Property pages are defined by calling
+ DefinePropertyPage with the class id of the page. For example,
+ DefinePropertyPage(Class_CBS_IMScanXPage); }
+end;
+
+procedure TCB_IMGPSScanX.EventSinkChanged(const EventSink: IUnknown);
+begin
+ FEvents := EventSink as ICB_IMGPSScanXEvents;
+ inherited EventSinkChanged(EventSink);
+end;
+
+procedure TCB_IMGPSScanX.FC0Click(Sender: TObject);
+begin
+ IF NowClick = 0 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(0 ,Sender);
+ NowClick := 0;
+end;
+
+procedure TCB_IMGPSScanX.FC1Click(Sender: TObject);
+begin
+ IF NowClick = 1 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(1 ,Sender);
+ NowClick := 1;
+end;
+
+procedure TCB_IMGPSScanX.FC2Click(Sender: TObject);
+begin
+ IF NowClick = 2 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(2,Sender);
+ NowClick := 2;
+end;
+
+procedure TCB_IMGPSScanX.FC3Click(Sender: TObject);
+begin
+ IF NowClick = 3 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(3 ,Sender);
+ NowClick := 3;
+end;
+
+procedure TCB_IMGPSScanX.FC4Click(Sender: TObject);
+begin
+ IF NowClick = 4 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(4 ,Sender);
+ NowClick := 4;
+end;
+
+procedure TCB_IMGPSScanX.FC5Click(Sender: TObject);
+begin
+ IF NowClick = 5 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(5 ,Sender);
+ NowClick := 5;
+end;
+
+procedure TCB_IMGPSScanX.FC6Click(Sender: TObject);
+begin
+ {IF NowClick = 6 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(6 ,Sender);
+ NowClick := 6;}
+ PM605Click(nil);
+end;
+
+procedure TCB_IMGPSScanX.InitExistImgList(casepath: String);
+var
+ ST1,ST2,ST3,ST4:TStringList;
+ i,j,k:Integer;
+begin
+
+ ST1:=TStringList.Create;
+ ST2:=TStringList.Create;
+ ST3:=TStringList.Create;
+
+ ExistImgList.Clear;
+ ST1.LoadFromFile(casepath+'Download\Context.dat');
+ for I := 0 to ST1.Count - 1 do
+ begin
+LogFile1.LogToFile(logTimeString+casepath+'Download\'+ST1.Strings[i]+',MD5='+LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i]));
+ ExistImgList.Add(LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i])) ;
+ end;
+LogFile1.LogToFile(logTimeString+'ExistImgList.text'+ExistImgList.CommaText);
+
+ ST1.Free;
+ ST2.Free;
+ ST3.Free;
+
+end;
+
+procedure TCB_IMGPSScanX.Initialize;
+begin
+ inherited Initialize;
+ OnActivate := ActivateEvent;
+ OnClick := ClickEvent;
+ OnCreate := CreateEvent;
+ OnDblClick := DblClickEvent;
+ OnDeactivate := DeactivateEvent;
+ OnDestroy := DestroyEvent;
+ OnKeyPress := KeyPressEvent;
+ OnMouseEnter := MouseEnterEvent;
+ OnMouseLeave := MouseLeaveEvent;
+ OnPaint := PaintEvent;
+ MpsKey := 'fbim';
+ Seg := 3; //瀏覽窗的邊界
+ Ext := '.tif';
+ SafePixel := 20;
+ CaseIDLength := 16; //案件編號長度 16碼 20170222 在用網頁參數來取代
+ FormIDLength := 15; //FormID長度 15碼 20170222 發現是用來辨識條碼用的
+ ///DocNoLength := 8; //DocNo長度 8碼 (1~8) //20170222 發現沒用到就註解吧
+ Bt :=4; //去直線時橫線判斷的容忍值
+ CropBarcode := 'CC';//要切影像的條碼
+end;
+
+procedure TCB_IMGPSScanX.ISB1Click(Sender: TObject);
+var
+ p : Integer;
+begin
+ DisplayISB := TImageScrollBox(Sender);
+ Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
+ Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
+ P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
+ if P <= PageLV.Items.Count-1 then
+ begin
+ if PageLVclear then
+ begin
+ PageLV.ClearSelection;
+ end;
+ NowPage := p+1;
+ PageLV.ItemIndex := P;
+ end;
+ //DisplayISB.SetFocus;
+end;
+
+procedure TCB_IMGPSScanX.ISB1EndScroll(Sender: TObject);
+var
+ ISB : TImageScrollBox;
+begin
+ ISB := TImageScrollBox(Sender);
+
+ SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
+ {if (TImageScrollBox(Sender) = MpsViewX1) and SortMode then
+ begin
+ ReczoomPercent := MpsViewX1.ZoomPercent;
+ RecHozPos := MpsViewX1.HorzScrollBarPos;
+ RecVerPos := MpsViewX1.VertScrollBarPos;
+ end;}
+end;
+
+procedure TCB_IMGPSScanX.ISB1Enter(Sender: TObject);
+begin
+ ISB1.SetFocus;
+end;
+
+procedure TCB_IMGPSScanX.ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+var
+ p : Integer;
+begin
+ DisplayISB := TImageScrollBox(Sender);
+ if NowClick<>0 then
+ DisplayISB.SetFocus;
+ Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
+ Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
+ P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
+ if P <= PageLV.Items.Count-1 then
+ begin
+ NowPage := p+1;
+ PageLV.ClearSelection;
+ PageLV.ItemIndex := P;
+
+ //PageLV.Selected := PageLV.Items.Item[PageLV.ItemIndex];
+
+ end;
+ if (NowClick = -1) and (Button=TMouseButton(mbLeft)) and (DisplayISB.FileName <> '') then
+ begin
+ {for P := 1 to 8 do
+ begin
+ TImageScrollBox(FindComponent('ISB'+inttostr(p))).Enabled := False;
+ end; }
+ DisplayISB.BeginDrag(True);
+ end;
+ case TImageScrollBox(Sender).MouseMode of
+ mmR90,mmR180,mmR270:
+ begin
+ TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);
+ end;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+begin
+ //Edit1.SetFocus;
+ //TImageScrollBox(Sender).SetFocus;
+
+ if TImageScrollBox(Sender).FileName = '' then
+ TImageScrollBox(Sender).MouseMode := mmUser
+ Else
+ ViewMouseMode(NowClick);
+
+ ISB1.AlwaysShowAnnotations := False;
+
+// if TImageScrollBox(Sender).FileName = '' then
+// begin
+////ShowMessage('AAA');
+//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName+' time='+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
+// TImageScrollBox(Sender).MouseMode := mmUser
+// end
+// Else
+// begin
+//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName;
+// ViewMouseMode(NowClick);
+// end;
+end;
+
+procedure TCB_IMGPSScanX.ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+Var
+ p : Integer;
+ ISB : TImageScrollBox;
+begin
+ case TImageScrollBox(Sender).MouseMode of
+ mmDelete:
+ begin
+ PM508Click(Self);
+ end;
+ mmR90,mmR180,mmR270:
+ begin
+ if TImageScrollBox(Sender).Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;
+ TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);
+ end
+ Else
+ TImageScrollBox(Sender).SaveToFile(TImageScrollBox(Sender).FileName);
+
+ SelectISB.Graphic.Assign(TImageScrollBox(Sender).Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ end;
+ end;
+
+ ISB := TImageScrollBox(Sender);
+ if (ISB.MouseMode = mmZoom) or (ISB.MouseMode = mmDrag) then
+ SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
+
+end;
+
+function TCB_IMGPSScanX.Get_Active: WordBool;
+begin
+ Result := Active;
+end;
+
+function TCB_IMGPSScanX.Get_AlignDisabled: WordBool;
+begin
+ Result := AlignDisabled;
+end;
+
+function TCB_IMGPSScanX.Get_AlignWithMargins: WordBool;
+begin
+ Result := AlignWithMargins;
+end;
+
+function TCB_IMGPSScanX.Get_AutoScroll: WordBool;
+begin
+ Result := AutoScroll;
+end;
+
+function TCB_IMGPSScanX.Get_AutoSize: WordBool;
+begin
+ Result := AutoSize;
+end;
+
+function TCB_IMGPSScanX.Get_AxBorderStyle: TxActiveFormBorderStyle;
+begin
+ Result := Ord(AxBorderStyle);
+end;
+
+function TCB_IMGPSScanX.Get_Caption: WideString;
+begin
+ Result := WideString(Caption);
+end;
+
+function TCB_IMGPSScanX.Get_Color: OLE_COLOR;
+begin
+ Result := OLE_COLOR(Color);
+end;
+
+function TCB_IMGPSScanX.Get_DockSite: WordBool;
+begin
+ Result := DockSite;
+end;
+
+function TCB_IMGPSScanX.Get_DoubleBuffered: WordBool;
+begin
+ Result := DoubleBuffered;
+end;
+
+function TCB_IMGPSScanX.Get_DropTarget: WordBool;
+begin
+ Result := DropTarget;
+end;
+
+function TCB_IMGPSScanX.Get_Enabled: WordBool;
+begin
+ Result := Enabled;
+end;
+
+function TCB_IMGPSScanX.Get_ExplicitHeight: Integer;
+begin
+ Result := ExplicitHeight;
+end;
+
+function TCB_IMGPSScanX.Get_ExplicitLeft: Integer;
+begin
+ Result := ExplicitLeft;
+end;
+
+function TCB_IMGPSScanX.Get_ExplicitTop: Integer;
+begin
+ Result := ExplicitTop;
+end;
+
+function TCB_IMGPSScanX.Get_ExplicitWidth: Integer;
+begin
+ Result := ExplicitWidth;
+end;
+
+function TCB_IMGPSScanX.Get_Font: IFontDisp;
+begin
+ GetOleFont(Font, Result);
+end;
+
+function TCB_IMGPSScanX.Get_HelpFile: WideString;
+begin
+ Result := WideString(HelpFile);
+end;
+
+function TCB_IMGPSScanX.Get_KeyPreview: WordBool;
+begin
+ Result := KeyPreview;
+end;
+
+function TCB_IMGPSScanX.Get_MouseInClient: WordBool;
+begin
+ Result := MouseInClient;
+end;
+
+function TCB_IMGPSScanX.Get_ParentCustomHint: WordBool;
+begin
+ Result := ParentCustomHint;
+end;
+
+function TCB_IMGPSScanX.Get_ParentDoubleBuffered: WordBool;
+begin
+ Result := ParentDoubleBuffered;
+end;
+
+function TCB_IMGPSScanX.Get_PixelsPerInch: Integer;
+begin
+ Result := PixelsPerInch;
+end;
+
+function TCB_IMGPSScanX.Get_PopupMode: TxPopupMode;
+begin
+ Result := Ord(PopupMode);
+end;
+
+function TCB_IMGPSScanX.Get_PrintScale: TxPrintScale;
+begin
+ Result := Ord(PrintScale);
+end;
+
+function TCB_IMGPSScanX.Get_Scaled: WordBool;
+begin
+ Result := Scaled;
+end;
+
+function TCB_IMGPSScanX.Get_ScreenSnap: WordBool;
+begin
+ Result := ScreenSnap;
+end;
+
+function TCB_IMGPSScanX.Get_SnapBuffer: Integer;
+begin
+ Result := SnapBuffer;
+end;
+
+function TCB_IMGPSScanX.Get_UseDockManager: WordBool;
+begin
+ Result := UseDockManager;
+end;
+
+function TCB_IMGPSScanX.Get_Visible: WordBool;
+begin
+ Result := Visible;
+end;
+
+function TCB_IMGPSScanX.Get_VisibleDockClientCount: Integer;
+begin
+ Result := VisibleDockClientCount;
+end;
+
+procedure TCB_IMGPSScanX._Set_Font(var Value: IFontDisp);
+begin
+ SetOleFont(Font, Value);
+end;
+
+procedure TCB_IMGPSScanX.ActivateEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnActivate;
+end;
+
+procedure TCB_IMGPSScanX.ClickEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnClick;
+end;
+
+procedure TCB_IMGPSScanX.CreateEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnCreate;
+end;
+
+procedure TCB_IMGPSScanX.DblClickEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnDblClick;
+end;
+
+procedure TCB_IMGPSScanX.DeactivateEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnDeactivate;
+end;
+
+procedure TCB_IMGPSScanX.DestroyEvent(Sender: TObject);
+begin
+ //********清單區********
+ Doc_Inf_List.Free; //Doc_Inf 清單 Docno + 版本為key
+ DM_FORM_INF_List.Free; //DM_FORM_INF 清單 Docno + 版本為key
+ FORM_INF_List.Free; //FORM_INF的清單
+ CHECK_RULE_INF_List.Free; //CHECK_RULE_INF 清單
+ MEMO_INF_List.Free; //MEMO_INF 清單
+ WORK_INF_List.Free; //WORK_INF 清單
+ LASTEST_FORM_INF_List.Free; // LASTEST_FORM_INF 清單
+ FindResult.Free ; //找SQLData的結果
+ OMRFileList.Free; //要OMR檢核的文件(只檢查每種Form的第一頁)
+ FormCode_PageSize.Free; //文件的預設大小 FormCode_Height_Width
+ DocNo_NeedDoc.Free; //有Docno時要相依的文件 DocNo_相依文件_相依文件
+ DocNo_NoDoc.Free; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
+ DocNo_VerinCase.Free; //案件裡的DocNo+版本的清單
+ CaseDocNoList.Free; //案件裡的DocNo清單
+ CaseDocNo_CopiesList.Free; //案件裡的DocNo份數清單
+ CaseList.Free; //記錄掃瞄案件的順序
+ NoSaveBarCodeList.Free; //不儲存的條碼清單
+ FormID_List.Free; //FormID清單
+ DocNo_List.Free; //DocNo清單
+ Context_DocnoList.Free; //案件裡的檔案Docno清單
+ ContextList.Free; //案件裡的檔案清單
+ AttContextList.Free; //案件裡的附加檔案清單
+ NowShowFileList.Free; //目前顯示的影像清單
+ NowSelectFileList.Free; //目前被點選的影像清單
+ Cust_DocNoList.Free; //自行定義文件名稱
+ IN_WH_DocNoList.Free; //入庫的文件清單
+ GuideFormIDList.Free; //要當導引頁表單清單
+ DivPageFormIDList.Free; //要當分案頁表單清單
+ LastInitFormidList.Free;
+ LastAddFormidList.Free;
+ SampleFormIDList.Free;
+ ExistImgList.Free;
+ reSizeExistImgList.Free;
+ //********清單區********
+ if (FMode = 'DSCAN') or (FMode = 'ESCAN') then //重掃件及異動件要只能掃指定編號的件
+ begin
+ if ImagePath<>'' then
+ _Deltree(ImagePath);
+ end;
+
+ if FEvents <> nil then FEvents.OnDestroy;
+end;
+
+procedure TCB_IMGPSScanX.KeyPressEvent(Sender: TObject; var Key: Char);
+var
+ TempKey: Smallint;
+begin
+ TempKey := Smallint(Key);
+ if FEvents <> nil then FEvents.OnKeyPress(TempKey);
+ Key := Char(TempKey);
+end;
+
+procedure TCB_IMGPSScanX.mode1Click(Sender: TObject);
+begin
+ VMode := 0;
+ GoViewMode;
+ //ScrollBar1Change(Self);
+ Panel14.Visible := False;
+end;
+
+procedure TCB_IMGPSScanX.mode2Click(Sender: TObject);
+begin
+ VMode := 1;
+ GoViewMode;
+ //ScrollBar1Change(Self);
+ Panel14.Visible := True;
+end;
+
+procedure TCB_IMGPSScanX.mode3Click(Sender: TObject);
+begin
+ VMode := 2;
+ GoViewMode;
+ ScrollBar1Change(Self);
+end;
+
+procedure TCB_IMGPSScanX.mode4Click(Sender: TObject);
+begin
+ VMode := 3;
+ GoViewMode;
+ ScrollBar1Change(Self);
+end;
+
+procedure TCB_IMGPSScanX.MouseEnterEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnMouseEnter;
+end;
+
+procedure TCB_IMGPSScanX.MouseLeaveEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnMouseLeave;
+end;
+
+procedure TCB_IMGPSScanX.PaintEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnPaint;
+end;
+
+procedure TCB_IMGPSScanX.Set_AlignWithMargins(Value: WordBool);
+begin
+ AlignWithMargins := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_AutoScroll(Value: WordBool);
+begin
+ AutoScroll := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_AutoSize(Value: WordBool);
+begin
+ AutoSize := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_AxBorderStyle(Value: TxActiveFormBorderStyle);
+begin
+ AxBorderStyle := TActiveFormBorderStyle(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_Caption(const Value: WideString);
+begin
+ Caption := TCaption(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_Color(Value: OLE_COLOR);
+begin
+ Color := TColor(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_DockSite(Value: WordBool);
+begin
+ DockSite := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_DoubleBuffered(Value: WordBool);
+begin
+ DoubleBuffered := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_DropTarget(Value: WordBool);
+begin
+ DropTarget := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_Enabled(Value: WordBool);
+begin
+ Enabled := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_Font(const Value: IFontDisp);
+begin
+ SetOleFont(Font, Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_HelpFile(const Value: WideString);
+begin
+ HelpFile := string(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_KeyPreview(Value: WordBool);
+begin
+ KeyPreview := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_ParentCustomHint(Value: WordBool);
+begin
+ ParentCustomHint := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_ParentDoubleBuffered(Value: WordBool);
+begin
+ ParentDoubleBuffered := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_PixelsPerInch(Value: Integer);
+begin
+ PixelsPerInch := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_PopupMode(Value: TxPopupMode);
+begin
+ PopupMode := TPopupMode(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_PrintScale(Value: TxPrintScale);
+begin
+ PrintScale := TPrintScale(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_Scaled(Value: WordBool);
+begin
+ Scaled := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_ScreenSnap(Value: WordBool);
+begin
+ ScreenSnap := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_SnapBuffer(Value: Integer);
+begin
+ SnapBuffer := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_UseDockManager(Value: WordBool);
+begin
+ UseDockManager := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_Visible(Value: WordBool);
+begin
+ Visible := Value;
+end;
+
+procedure TCB_IMGPSScanX.PM401Click(Sender: TObject);
+var
+ i : Integer;
+ FromIndex : Integer;
+ CaseID : String;
+ NewPath : String;
+ OldName,NewName:String;
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ FromIndex := PageLv.ItemIndex;
+ if FromIndex = 0 then
+ begin
+ Showmessage(_Msg('不能從第1頁分案'));
+ Exit;
+ end;
+
+ If MessageDlg(Format(_Msg('是否確定從%d頁分出新案'),[PageLV.ItemIndex+1]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ CaseID := GetNoNameCase(ImageSavePath);
+ NewPath := ImageSavePath + CaseID+'\';
+ Str2Dir(NewPath);
+ for i := FromIndex to ContextList.Count - 1 do
+ begin
+ OldName := ContextList.Strings[i];
+ //NewName := Add_Zoo(S.Count+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(S.Count+1,3)+FileName2NoQuene_Filename(OldName);
+
+ ReNameFile(DisplayPath+OldName,NewPath+NewName);
+ S.Add(NewName);
+ S.SaveToFile(NewPath+'Context.dat');
+ end;
+ for i := ContextList.Count - 1 downto FromIndex do
+ begin
+ ContextList.Delete(i);
+ ContextList.SaveToFile(DisplayPath+'Context.dat');
+ end;
+ SetCaseList('I',MyTreeNode1.IndexOf(MyTreeNode2)+1,CaseID);
+ if FileExists(DisplayPath+'CaseIndex.dat') then //把原經辦代號取出來再寫入新件裡
+ begin
+ S.LoadFromFile(DisplayPath+'CaseIndex.dat');
+ end;
+ DisplayPath := '';
+
+ ClearCaseIndex;
+ WriteCaseIndex(NewPath);
+ finally
+ S.Free;
+ end;
+ LoadImgFile;
+ Showmessage(_Msg('分案完成'));
+end;
+
+procedure TCB_IMGPSScanX.PM402Click(Sender: TObject);
+var
+ i : Integer;
+begin
+ for i := 0 to PageLV.Items.Count - 1 do
+ begin
+ PageLV.Items.Item[i].Selected := True;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PM403Click(Sender: TObject);
+var
+ i : Integer;
+begin
+ for i := 0 to PageLV.Items.Count - 1 do
+ begin
+ PageLV.Items.Item[i].Selected := False;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PM404Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ FormID,FormName : String;
+ PreNode2Name : String;
+begin
+ PreNode2Name := '';
+ if TreeView1.Selected.Parent = MyTreeNode1 then
+ PreNode2Name:= GetNode2Name(MyTreeNode2);
+ ShowText := _Msg('文件歸類中,請稍候');
+ DataLoading(True,True);
+ DocListForm := TDocListForm.Create(self);
+ try
+ InitialLanguage(PatchDlg); //載入多國語言
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ if (FormID <> NowFormCode) and FormIDExists(FormID,True,0) then
+ begin
+ DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := FormID;
+ SubItems.Add(FormName);
+ end;
+ end;
+ end;
+
+ if DocListForm.ShowModal = mrOk then
+ begin
+ FormID := DocListForm.DocLV.Selected.Caption;
+ if (TreeView1.Selected.Level=1) then
+ begin
+ PageReplaceFormID(DisplayPath,'ALL',FormID);
+ end
+ Else if (TreeView1.Selected.Level=2) and (NowFormCode = '') then
+ PageReplaceFormID(DisplayPath,'',FormID)
+ Else
+ begin
+ PageReplaceFormID(DisplayPath,NowFormCode,FormID);
+ end;
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
+ if PreNode2Name <> '' then // 回到原本點選的文件節點上
+ begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i];
+ Break;
+ end;
+ end;
+ end;
+ TreeView1click(self);
+ end;
+ finally
+ DocListForm.Free;
+ DataLoading(False,False);
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.PM601Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ FormID,FormName,DocNo,DocDir : String;
+ PreNode2Name : String;
+ iFormID : String;
+ iISBName : String;
+ iISB : TImageScrollBox;
+ GoAtt : Boolean;
+ AttLv : Integer;
+ ST1 :TStringList;
+begin
+ PreNode2Name := '';
+ ST1:=TStringList.Create;
+ if TreeView1.Selected.Parent = MyTreeNode1 then
+ PreNode2Name:= GetNode2Name(MyTreeNode2);
+ ShowText := _Msg('文件歸類中,請稍候');
+LogFile1.LogToFile(logTimeString+'縮圖 歸類開始');
+ DataLoading(True,True);
+ GoAtt := False;
+ if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
+ begin
+ AttLv := TreeView1.Selected.Level;
+ GoAtt := True;
+ end;
+ DocListForm := TDocListForm.Create(self);
+ try
+ InitialLanguage(DocListForm); //載入多國語言
+ //InitialLanguage(PatchDlg); //載入多國語言
+ DocListForm.CheckBox1.Visible:=False;
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
+ if not FormIDAppear(FormID) then Continue; //20170816 先秀全部
+
+ //Showmessage(FORM_INF_List.Text);
+ //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
+ if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
+ begin
+ DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := FormID;
+ SubItems.Add(FormName);
+ end;
+ end;
+ end;
+ if DocListForm.ShowModal = mrOk then
+ begin
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ OldName := ExtractFileName(iISB.FileName);
+ Ext := ExtractFileExt(OldName);
+
+ if DocListForm.CheckBox1.Checked then
+ begin
+ FormID := DocListForm.Edit1.Text;
+ DocNo := GetNewCustomDocNo(DisplayPath,FormID);
+ end
+ else
+ begin
+ FormID := DocListForm.DocLV.Selected.Caption;
+ DocNo := FormCode2DocNo(FormID);
+ end;
+
+
+ if DocNoDir2DocNo(Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseno)) = DocNo then
+ DocDir := Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseNo)
+ Else
+ DocDir := FindLastestDocDir(NowCaseno,DocNo);
+
+//ShowMessage('DocNoNeedDiv(DocNo)='+BoolToStr(DocNoNeedDiv(DocNo),true));
+//ShowMessage('DocDir='+DocDir);
+
+ if DocNoNeedDiv(DocNo) then //要分份數
+ begin
+ if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(NowCaseno,DocDir)>0)) or (DocDir = '') then
+ begin
+ DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
+ end
+ else
+ begin //20171016 真對補件影響 所加的判斷
+ ST1.Clear;
+ if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');
+ if (ST1.Count > 0) and ISExistImg(ImageSavePath + NowCaseno+'\'+DocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
+ begin
+ DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
+ end;
+ end;
+ end;
+ end
+ Else //不分份數
+ begin
+ if DocNo <> '' then
+ DocDir := DocNo
+ else //Attach 附件
+ DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
+ end;
+ if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then
+ SetDocNoList('A',-1,NowCaseno,DocDir,'1');
+
+ {if DocDir = '' then
+ begin
+ DocDir := DocNo;
+ if DocNoNeedDiv(DocNo) then
+ DocDir:=DocNo2DocNoDir(ImageSavePath+NowCaseno+'\',DocNo);
+ SetDocNoList('A',-1,NowCaseno,DocDir);
+ end; }
+LogFile1.LogToFile(logTimeString+'縮圖 FormID='+FormID);
+ if Not DirectoryExists(ImageSavePath+NowCaseno+'\'+DocDir) then
+ Mkdir(ImageSavePath+NowCaseno+'\'+DocDir);
+ ContextList.Clear;
+ if FileExists(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat') then
+ ContextList.LoadFromFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');
+ NewName := Add_Zoo(ContextList.Count+1,3)+'_'+FormID+Ext;
+ CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
+ {ContextList.Add(NewName);
+ ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }
+ SetContextList('A',-1,NowCaseNo,DocDir,NewName);
+ DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+ //RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
+ //ReNameContext(iISB.FileName,OldName,NewName);
+ end;
+ end;
+//ShowMessage('KKKK');
+ ReSortFileName(ExtractFilePath(iISB.FileName));
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+
+ if GoAtt then
+ begin
+ GotoAttach(AttLv);
+ end;
+ TreeView1click(self);
+
+ end;
+ finally
+ DataLoading(False,False);
+ DocListForm.Free;
+ ST1.Free;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.PM602Click(Sender: TObject);
+var
+ FileList:TStringlist;
+ SavePath : String;
+ DocDir : String;
+ CustomDocName : String;
+ CustomDocNo : String;
+ i : Integer;
+ OldName,NewName,Ext : String;
+ FormID,FormName,DocNo : String;
+ PreNode2Name : String;
+ iFormID : String;
+ iISBName : String;
+ iISB : TImageScrollBox;
+ GoAtt : Boolean;
+ AttLv : Integer;
+begin
+ GoAtt := False;
+ if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
+ begin
+ AttLv := TreeView1.Selected.Level;
+ GoAtt := True;
+ end;
+
+ if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
+ begin
+ if FindCustomDocName(DisplayPath,CustomDocName) then
+ begin
+ Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[CustomDocName]));
+ Exit;
+ end;
+ CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
+ end;
+ if CustomDocNo = '' then Exit;
+ DocDir := CustomDocNo;
+LogFile1.LogToFile(logTimeString+'縮圖 歸類自訂文件 DocDir='+DocDir);
+ SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
+ Str2Dir(SavePath);
+ SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
+ FileList := TStringlist.Create;
+ try
+ FileList.Clear;
+ if FileExists(SavePath+'Context.dat') then
+ FileList.LoadFromFile(SavePath+'Context.dat');
+
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ OldName := ExtractFileName(iISB.FileName);
+ Ext := ExtractFileExt(OldName);
+ NewName := Add_Zoo(FileList.Count+1,3)+'_'+GetCustomFormID(ImageSavePath+NowCaseNo+'\',CustomDocNo)+ext;
+
+ //Showmessage(iISB.FileName+#13+ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
+ CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
+ SetContextList('A',-1,NowCaseno,DocDir,NewName);
+ FileList.Add(NewName);
+ {FileList.Add(NewName);
+ FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}
+ DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+ end;
+ end;
+ finally
+ FileList.Free;
+ end;
+ ReSortFileName(ExtractFilePath(iISB.FileName));
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+
+ if GoAtt then
+ begin
+ GotoAttach(AttLv);
+ end;
+ TreeView1click(self);
+ MyTreeNode1.Expand(True);
+end;
+
+procedure TCB_IMGPSScanX.PM604Click(Sender: TObject);
+var
+ i : Integer;
+ iISBName : String;
+ iISB : TImageScrollBox;
+begin
+ //Showmessage(inttostr(ComponentCount));
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ //Showmessage(Components[i].Name);
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ DeskewImg(iISB.Graphic);
+ iISB.Redraw(True);
+ iISB.SaveToFile(iISB.FileName);
+ DisplayISB.LoadFromFile(DisplayISB.FileName,1);
+ end;
+ end;
+ //TreeView1Click(nil);
+end;
+
+procedure TCB_IMGPSScanX.PM605Click(Sender: TObject);
+var
+ i : Integer;
+ iISBName,OldName : String;
+ iISB : TImageScrollBox;
+begin
+ if MessageDlg(_Msg('是否確定刪除??'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ //Showmessage(Components[i].Name);
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+//ShowMessage('iISB.FileName='+iISB.FileName);
+//ShowMessage(ExtractFilePath(iISB.FileName)+','+ExtractFileName(iISB.FileName)+','+NowCaseNo);
+// if (FMode = 'ESCAN') and (FModeName<>'異動件') then
+// begin
+// if ISExistImg(iISB.FileName) then
+// begin
+// ShowMessage(_Msg('此圖為非當次掃瞄，不可刪除'));
+// Exit;
+// end;
+// end;
+LogFile1.LogToFile(logTimeString+'縮圖刪除 iISB.FileName='+iISB.FileName);
+ DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+ end;
+ end;
+//ShowMessage('iISB.FileName='+iISB.FileName);
+ ReSortFileName(ExtractFilePath(iISB.FileName));
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ NewTreeNodeRefresh;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ TreeView1click(self);
+end;
+
+procedure TCB_IMGPSScanX.N1Click(Sender: TObject);
+var
+ mp:string;
+begin
+ mp := InputBox(_Msg('移動頁數'),_Msg('請輸入移入頁碼'),'');
+ if (mp <> '') then
+ begin
+ MoveImage(DisplayPath+NowDocDir+'\',strtoint(mp));
+ end;
+end;
+
+procedure TCB_IMGPSScanX.N51Click(Sender: TObject);
+begin
+ VMode := 4;
+ GoViewMode;
+ ScrollBar1Change(Self);
+end;
+
+procedure TCB_IMGPSScanX.NewScanBtnClick(Sender: TObject);
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+LogFile1.LogToFile(logTimeString+'掃瞄開始');
+ if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'DSCAN') then
+ begin
+ if NewTreeNode.Count > 0 then
+ begin
+ TreeView1.Selected := NewTreeNode.Item[0];
+ TreeView1click(nil);
+ FirstDocDir := '';
+ NowGuideFormID := '';
+ NowDivPageFormID :='';
+ AddScanBtnclick(nil);
+ end;
+ end
+ Else
+ begin
+ TreeView1.Selected := NewTreeNode;
+ NewTreeNode.Expand(False);
+ TreeView1Click(self);
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ ScanMode := smNew;
+ ScanInfo.ImageCount := 0;
+ ScanPath := '';
+ ScanCaseno := '';
+ NowGuideFormID := '';
+ NowDivPageFormID :='';
+ ClearView(1);
+ ContextList.Clear;
+ Try
+ StatrTwainScan;
+LogFile1.LogToFile(logTimeString+'掃瞄結束');
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ LoadImgFile;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.NextPageBtnClick(Sender: TObject);
+var
+ page : Integer;
+begin
+ {page := ScrollBar1.Position;
+ Case Vmode of
+ 0 : Inc(page);
+ 1 : Page := Page + 2;
+ 2 : Page := Page + 4;
+ 3 : Page := Page + 6;
+ 4 : Page := Page + 8;
+ end;
+ IF page <= ScrollBar1.Max Then
+ begin
+ ScrollBar1.Position := page;
+ end;}
+ if selectISB = nil then Exit;
+ NextPage(SelectPage);
+ if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
+ ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
+
+end;
+
+procedure TCB_IMGPSScanX.OptionBtnClick(Sender: TObject);
+var
+ PatchDlg : TPatchDlg;
+ i : Integer;
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+ ShowText := _Msg('掃瞄參數設定中,請稍候');
+ DataLoading(True,True);
+
+ PatchDlg := TPatchDlg.Create(self);
+ try
+ InitialLanguage(PatchDlg); //載入多國語言
+ PatchDlg.BlankuseCB.Checked := DeviceDelete;
+ if PatchDlg.BlankuseCB.Checked then
+ PatchDlg.SpinEdit5.Enabled := True
+ else
+ PatchDlg.SpinEdit5.Enabled := False;
+ PatchDlg.SpinEdit5.Value := DeviceDeleteSize;
+ For i := 0 to PatchDlg.ComboBox1.Items.Count -1 do
+ begin
+ If inttostr(ScanDpi) = PatchDlg.ComboBox1.Items.Strings[i] Then
+ PatchDlg.ComboBox1.ItemIndex := i;
+ end;
+ PatchDlg.DuplexCB.Checked := ScanDuplex;
+ PatchDlg.ReverseCB.Checked := ScannerReverse;
+ PatchDlg.BorderCB.Checked := BoardClear;
+ PatchDlg.DeskewCB.Checked := ScanDeskew;
+ PatchDlg.ImgSetUseCB.Checked := ScanImgSetUse;
+ PatchDlg.SpinEdit1.Value := ScanBright;
+ PatchDlg.SpinEdit2.Value := ScanContrast;
+ case ScanRotate of
+ 0 : PatchDlg.ScanRotateRG.ItemIndex := 0;
+ 270 : PatchDlg.ScanRotateRG.ItemIndex := 1;
+ 180 : PatchDlg.ScanRotateRG.ItemIndex := 2;
+ 90 : PatchDlg.ScanRotateRG.ItemIndex := 3;
+ end;
+ Case ScanImgShowMode of
+ 0 : PatchDlg.ScanShowRG.ItemIndex := 0;
+ 1 : PatchDlg.ScanShowRG.ItemIndex := 1;
+ 2 : PatchDlg.ScanShowRG.ItemIndex := 2;
+ end;
+ If PatchDlg.ShowModal = mrOk then
+ begin
+ DeviceDelete := PatchDlg.BlankuseCB.Checked;
+ DeviceDeleteSize := PatchDlg.SpinEdit5.Value;
+ ScanDpi := Strtoint(PatchDlg.ComboBox1.Text);
+ ScannerReverse := PatchDlg.ReverseCB.Checked;
+ BoardClear := PatchDlg.BorderCB.Checked;
+ ScanDeskew := PatchDlg.DeskewCB.Checked;
+ ScanDuplex := PatchDlg.DuplexCB.Checked;
+ ScanImgSetUse := PatchDlg.ImgSetUseCB.Checked;
+ ScanBright := PatchDlg.SpinEdit1.Value;
+ ScanContrast := PatchDlg.SpinEdit2.Value;
+ Case PatchDlg.ScanRotateRG.ItemIndex of
+ 0:ScanRotate := 0;
+ 1:ScanRotate := 270;
+ 2:ScanRotate := 180;
+ 3:ScanRotate := 90;
+ end;
+ Case PatchDlg.ScanShowRG.ItemIndex of
+ 0:ScanImgShowMode := 0;
+ 1:ScanImgShowMode := 1;
+ 2:ScanImgShowMode := 2;
+ end;
+ R_W_ScanIni('W');
+ ScanDuplexCB.Checked := ScanDuplex;
+ end;
+ finally
+ PatchDlg.Free;
+ DataLoading(False,False);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PageLVClick(Sender: TObject);
+begin
+ IF PageLV.Selected = nil Then Exit;
+ PageLVclear := False;
+ ScrollBar1.Position := PageLV.Selected.Index+1;
+ PageLVclear := True;
+end;
+
+procedure TCB_IMGPSScanX.PageLVKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ IF PageLV.Selected = nil Then Exit;
+ ScrollBar1.Position := PageLV.Selected.Index+1;
+end;
+
+procedure TCB_IMGPSScanX.PageLVMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+begin
+ IF Button = TMouseButton(MbRight) Then
+ begin
+ If PageLV.GetItemAt(X,Y) = nil then Exit;
+ PageLV.Selected := PageLV.GetItemAt(X,Y);
+ PageLVClick(self);
+ PageLV.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.Panel11DblClick(Sender: TObject);
+begin
+ // Button3.Visible := not Button3.Visible;
+ //Button4.Visible := not Button4.Visible;
+ //self.FCustDocYN := 'N';
+end;
+
+procedure TCB_IMGPSScanX.Panel1DblClick(Sender: TObject);
+begin
+ Button1.Visible := not Button1.Visible;
+ Button2.Visible := not Button2.Visible;
+end;
+
+procedure TCB_IMGPSScanX.Panel9Resize(Sender: TObject);
+begin
+ GoViewMode;
+end;
+
+procedure TCB_IMGPSScanX.PM101Click(Sender: TObject);
+var
+ P,v,v1,v2,ln,i : Integer;
+ iDocDir,iDocNo : String;
+begin
+LogFile1.LogToFile(logTimeString+'Tree 按下刪除');
+ if TreeView1.Selected = NewTreeNode then //全刪 //新掃描件
+ begin
+LogFile1.LogToFile(logTimeString+'Tree 全部刪除');
+ If Messagedlg(_Msg('是否刪除所有案件?'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ clearView(1);
+ Application.ProcessMessages;
+ _DelTree(ImageSavePath);
+ if (FMode = 'ESCAN') then
+ begin
+ MkDir(ImageSavePath+FCaseID);
+ CreateEmptyCase(ImageSavePath,FCaseID);
+ end;
+ LoadImgFile;
+ Showmessage(_Msg('刪除完成'));
+ end
+ Else if TreeView1.Selected = MyTreeNode1 then //案件編號
+ begin
+LogFile1.LogToFile(logTimeString+'Tree 案件編號刪除 NowCaseno='+NowCaseno);
+ If Messagedlg(Format(_Msg('編號(%s)是否刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ clearView(1);
+ Application.ProcessMessages;
+ if (FMode = 'ESCAN') then
+ begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ MyTreenode2 := MyTreeNode1.Item[i];
+ v := Posend('{',MyTreenode2.Text);
+ v1 := Posend('}',MyTreenode2.Text);
+ v2 := posend('-',MyTreenode2.Text);
+ ln := length(MyTreenode2.Text);
+ iDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ _DelTree(ImageSavePath+NowCaseno+'\'+iDocDir);
+ SetUseCase('D',ImageSavePath+NowCaseno+'\',iDocDir,'','');
+ SetDocNoList('D',-1,NowCaseNo,iDocDir,'');
+ if (Copy(iDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
+ DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',iDocDir);
+
+ end
+ end
+ Else
+ begin
+ _DelTree(DisplayPath);
+ SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
+ end;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+
+ if (FMode = 'ESCAN') then
+ begin
+ if not DirectoryExists(ImageSavePath+FCaseID) then
+ begin
+ MkDir(ImageSavePath+FCaseID);
+ CreateEmptyCase(ImageSavePath,FCaseID);
+ end;
+ end;
+ LoadImgFile;
+ end
+ Else if TreeView1.Selected = MyTreeNode2 then //文件層
+ begin
+ If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[DocNo2DocName(NowCaseno,NowDocNo)]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ ClearView(1);
+ Application.ProcessMessages;
+//ShowMessage(NowDocDir);
+LogFile1.LogToFile(logTimeString+'Tree 文件層號刪除 NowDocDir='+NowDocDir);
+ if (Length(NowDocDir)=8) or (NowDocDir=AttName) then
+ begin
+//ShowMessage('DeleteDocNoFileForESCAN');
+ DeleteDocNoFileForESCAN(ImageSavePath+NowCaseno+'\'+NowDocDir,NowDocDir);
+ end
+ else
+ begin
+ _DelTree(ImageSavePath+NowCaseno+'\'+NowDocDir);
+ SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
+ end;
+ SetUseCase('D',ImageSavePath+NowCaseno+'\',NowDocDir,'','');
+
+ if (Copy(NowDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
+ DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',NowDocDir);
+
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ NewTreeNodeRefresh;
+
+ end
+ Else if TreeView1.Selected = MyTreeNode3 then //FormID層
+ begin
+ If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[NowFormName]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+LogFile1.LogToFile(logTimeString+'Tree FormID層號刪除 NowFormCode='+NowFormCode);
+ DeleteFormCodeFile(NowCaseNo,NowDocDir,NowFormCode);
+ SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ NewTreeNodeRefresh;
+
+ end;
+end;
+
+function TCB_IMGPSScanX.DocNoIsExistImg(DocNopath:String):boolean;
+var
+ i:integer;
+ ST:TStringList;
+begin
+ Result:=False;
+ ST:=TStringList.Create;
+ if FileExists(DocNopath+'\Context.dat') then /////20190319 Hong 當有空的Docno目錄時會掛掉,增加這行
+ ST.loadFromfile(DocNopath+'\Context.dat');
+ for I := 0 to ST.Count - 1 do
+ begin
+ if ISExistImg(DocNopath+ST.Strings[i]) then
+ begin
+
+ Result:=False;
+ Exit;
+ Break;
+ end;
+ end;
+ Result:=True;
+
+
+end;
+
+procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);
+var
+ i:integer;
+ ST:TStringList;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.PM102Click(Sender: TObject);
+var
+ NewCaseID,ShowNewCaseID,ShowNowCaseID : String;
+ i,P,v : Integer;
+ InputOk : Boolean;
+begin
+ VMode := 0;
+ GoViewMode;
+ ISB1.ZoomMode := zmFitWidth;
+
+ NewCaseID := InputBox(_Msg('修改案件編號'),_Msg('新案件編號'),'');
+ ShowNewCaseID := NewCaseID;
+ ShowNowCaseID := NowCaseno;
+
+ if NewCaseID = '' then Exit;
+
+ IF Length(NewCaseID)<>CaseIDLength Then
+ begin
+ Showmessage(_Msg('輸入格式錯誤'));
+ Exit;
+ end;
+
+ if DirectoryExists(ImageSavePath+NewCaseID) then
+ begin
+ Showmessage(NewCaseID+_Msg('己存在,無法修改'));
+ Exit;
+ end;
+
+ if Messagedlg(Format(_Msg('是否將%s改為%s'),[ShowNowCaseID,ShowNewCaseID]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel then
+ Exit;
+ ClearView(1);
+ RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);
+ SetCaseList('E',NewTreeNode.IndexOf(MyTreeNode1),NewCaseID);
+
+ //P := ContextList.Count;
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NewCaseID,GetCasePage(ImageSavePath,NewCaseID)]);
+ //DrawDocItem(MyTreeNode1,FORM_INF_List,NewCaseID);
+ DrawDocItem2(MytreeNode1,NewCaseID);
+ Showmessage(_Msg('修改完成'));
+end;
+
+procedure TCB_IMGPSScanX.PM103Click(Sender: TObject);
+begin
+ if TreeView1.Selected = nil then Exit;
+
+ {if Treeview1.Selected = NewTreeNode then
+ begin
+ ShowMessage('AAAAA');
+ end;
+ if Treeview1.Selected = MyTreeNode1 then
+ begin
+ ShowMessage('BBBBB');
+ end;
+
+ if Treeview1.Selected = MyTreeNode2 then
+ begin
+ ShowMessage('CCCCC');
+ end;
+
+ if Treeview1.Selected = MyTreeNode3 then
+ begin
+ ShowMessage('DDDDD');
+ end;
+ }
+ if (Treeview1.Selected = NewTreeNode) {or (Treeview1.Selected = MyTreeNode1)} then
+ begin
+//ShowMessage('NewScanBtnClick');
+LogFile1.LogToFile(logTimeString+'Tree NewScanBtnClick');
+ NewScanBtnClick(self)
+ end
+ Else
+ begin
+//ShowMessage('AddScanBtnclick');
+LogFile1.LogToFile(logTimeString+'Tree AddScanBtnclick');
+ AddScanBtnclick(self);
+ end;
+end;
+
+
+Procedure TCB_IMGPSScanX.PM104Click(Sender: TObject);
+Var
+ i, n, m, ii, P, v, v1, page, imageCount: Integer;
+ FName: String;
+ CaseID, DocNo, FormID: String;
+ DocDir: String;
+ SavePath, SaveFilename: String;
+ ISB: TImageScrollBox;
+ FileRec: TSearchrec;
+
+ iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic;
+ iRect : TRect;
+ JpgGr : TJpegGraphic;
+ SaveStream : TFileStream;
+ SaveStreamA:TFileStream;
+ SaveStreamB:TFileStream;
+ cooom:integer;
+Begin
+ OpenDialog1.Filter := 'Image files|*.TIF;*.JPG;*.PNG';
+ If OpenDialog1.Execute Then
+ Begin
+ ISB := TImageScrollBox.Create(self);
+try
+ ShowText := _Msg('檔案加入中,請稍候');
+LogFile1.LogToFile(logTimeString+'檔案加入中開始');
+ DataLoading(True, True);
+ If TreeView1.Selected = Nil Then
+ Exit;
+ FName := OpenDialog1.FileName;
+
+ FindFirst(FName, faAnyfile, FileRec);
+
+ If FFileSizeLimit = 0 Then
+ Begin
+ FFileSizeLimit := 5 * 1024;
+ End;
+//FFileSizeLimit:=20*5*1024;
+//ShowMessage(IntToStr(FileRec.Size)+','+IntToStr(FFileSizeLimit * 1024));
+ If FileRec.Size > FFileSizeLimit * 1024 Then // 檢查檔案大小
+ Begin
+ ShowMessage(Format(_Msg('目前檔案大小為 %.3f MB,已超過單一檔案匯入限制%1.f MB'),[FileRec.Size / (1024*1024),FFileSizeLimit/1024]));
+ {ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) +
+ '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB');}
+ FindClose(FileRec);
+ DataLoading(false, false);
+ Exit;
+ End;
+ //MessageDlg()
+ //cooom:=StrToInt(InputBox('輸入百分比','輸入百分比',''));
+ cooom:=FJpgCompression;//20171211彩色tif採jpg壓縮的比例
+
+ FindClose(FileRec);
+ CaseID := NowCaseno;
+ imageCount := 0;
+ P := ISB.ImageCountFromFile(OpenDialog1.FileName);
+ For i := 1 To P Do
+ Begin
+ ShowText := Format(_Msg('檔案加入中,請稍候(%d/%d)'),[i,p]);
+ //ShowText := _Msg('檔案加入中,請稍候')+'(' + inttostr(i) + '/' + inttostr(P) + ')';
+ DataLoading(True, True);
+ ISB.LoadFromFile(FName, i);
+ DeskewImg(ISB.Graphic);
+
+
+ ISB_BW.Graphic.Assign(ISB.Graphic); //20180104
+ If ISB.Graphic.ImageFormat <> ifBlackWhite Then //20180104
+ begin
+ ConvertToBW(ISB_BW.Graphic);
+ end;
+ ///ISB_BW.SaveToFile('KKKKKKKK.tif');
+
+ iGraphic_First := TTiffGraphic.Create;
+ iGraphic_sec := TTiffGraphic.Create;
+
+
+ //ShowMessage(IntToStr(iGraphic_First.Palette.palNumEntries)); //彩色 會為0 黑白 為2
+
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //判斷A3 有用FormID 所以要先辨條碼
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
+ Begin
+ Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]);
+ //MpsGetBarcode(iGraphic_First, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+
+ iGraphic_First.Assign(ISB.Graphic);
+ //有必要的話先把影像轉正 再開始切圖
+ If CheckNeedCrop(iGraphic_First) Then
+ Begin
+ // 先取右邊的影像
+ iRect.Left := ISB.Graphic.Width Div 2;
+ iRect.Right := ISB.Graphic.Width;
+ iRect.Top := 0;
+ iRect.Bottom := ISB.Graphic.Height;
+ CropImg(iGraphic_First, iRect);
+
+ iGraphic_sec.Assign(ISB.Graphic);
+ // 再取左邊的影像
+ iRect.Left := 0;
+ iRect.Right := ISB.Graphic.Width Div 2;
+ iRect.Top := 0;
+ iRect.Bottom := ISB.Graphic.Height;
+ CropImg(iGraphic_sec, iRect);
+ End;
+ ISB.Graphic.Clear; //20220711 Hong 覺得ISB後面沒有到了,先清掉減少記憶體使用
+ iGraphic := iGraphic_First;
+
+ While Not iGraphic.IsEmpty Do
+ Begin
+ If (TreeView1.Selected = NewTreeNode) Or
+ (TreeView1.Selected = MyTreeNode1) Then
+ Begin
+ SaveFilename := '';
+ ISB_BW.Graphic.Assign(iGraphic); //20180104
+ If iGraphic.ImageFormat <> ifBlackWhite Then //20180104
+ begin
+ ConvertToBW(ISB_BW.Graphic);
+ end;
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
+//ShowMessage(IntToStr(MpsBarcodeinf.Count));
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[n]);
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+//ShowMessage('XXX '+IntToStr(MpsBarcodeinf.Count));
+ FormID := BarCode2FormID;
+//ShowMessage('FormID='+FormID);
+ // 取出FormID
+ SaveFilename := FormID;
+ If (TreeView1.Selected = NewTreeNode) Then
+ Begin
+ If FindDivFormCode(FormID) Then // 只找分案頁上的案件條碼
+ Begin
+ imageCount := 0;
+ ClearView(1);
+ ContextList.Clear;
+ CaseID := BarCode2CaseID;
+ If DirectoryExists(ImageSavePath + CaseID + '\') Then
+ Begin
+ _DelTree(ImageSavePath + CaseID + '\');
+ SetCaseList('D', -1, CaseID);
+ End;
+ End;
+ If CaseID = '' Then
+ Begin
+ CaseID := GetNoNameCase(ImageSavePath);
+ ContextList.Clear;
+ End;
+ End;
+ SavePath := ImageSavePath + CaseID + '\';
+ Str2Dir(SavePath);
+
+ DocNo := FormCode2DocNo(FormID);
+ DocDir := FindLastestDocDir(CaseID, DocNo);
+ if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then
+ begin
+ DocDir := FindLastestDocDirForPage(CaseID, DocNo,FormID);
+//ShowMessage('DocDir='+DocDir);
+ end;
+
+ If DocNoNeedDiv(DocNo) Then // 要分份數
+ Begin
+ If ((FormCode2Page(FormID) = '01') And
+ (GetDocDir_Page(CaseID, DocDir) > 0)) Or (DocDir = '') Then
+ begin
+ DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
+ end;
+ End
+ Else // 不分份數
+ Begin
+ If DocNo <> '' Then
+ DocDir := DocNo
+ Else // Attach 附件
+ DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
+ End;
+
+ If (Not DirectoryExists(ImageSavePath + CaseID + '\' + DocDir + '\'))
+ And (DocDir <> AttName) Then
+ SetDocNoList('A', -1, CaseID, DocDir, '1');
+ SavePath := ImageSavePath + CaseID + '\' + DocDir + '\';
+ Str2Dir(SavePath);
+ ContextList.Clear;
+ If FileExists(SavePath + 'Context.dat') Then
+ ContextList.LoadFromFile(SavePath + 'Context.dat');
+
+ WriteCaseIndex(ImageSavePath + CaseID + '\');
+ // 寫入案件索引
+ If SaveFilename = '' Then // 附件
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext
+ Else
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
+ SaveFilename + ext;
+
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[n]);
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+//ShowMessage(IntToStr(iGraphic.Palette.palNumEntries));
+ if iGraphic.ImageFormat = ifBlackWhite then //20200806 出現無法匯入,是因color256無法壓JPEG,待報會後再開啟
+ begin
+ SaveFilename := changefileext(SaveFilename,'.tif'); //20240320 Hong 調整黑白存tif
+ iGraphic.Compression:=tcGroup4;
+ end
+ else if iGraphic.ImageFormat= ifColor256 then
+ begin
+ SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整Color256存jpg
+ ConverttoGray(iGraphic);
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end
+ else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then
+ begin
+ SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整彩色灰階存jpg
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end
+ else
+ begin
+ iGraphic.Compression:=tcLZW;
+ end;
+
+ {if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2 灰階256 //20200806拿掉
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end;}
+
+ If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ SaveStream := TFileStream.Create(SavePath + SaveFilename, fmOpenReadWrite)
+ Else
+ SaveStream := TFileStream.Create(SavePath + SaveFilename, fmCreate);
+ Try
+ SaveStream.Seek(0, soFromBeginning);
+ iGraphic.AppendToStream(SaveStream);
+ Finally
+ SaveStream.Free;
+ End;
+ End
+ Else If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ DeleteFile(SavePath + SaveFilename);
+ // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ JpgGr := TJpegGraphic.Create;
+ Try
+ JpgGr.Assign(iGraphic);
+ JpgGr.SaveQuality := 30;
+ // JpgGr.AppendToStream(SaveStream);
+ JpgGr.SaveToFile(SavePath + SaveFilename);
+ Finally
+ JpgGr.Free;
+ // SaveStream.Free;
+ End;
+ End;
+
+ SetContextList('A', -1, CaseID, DocDir, SaveFilename);
+ If (TreeView1.Selected = NewTreeNode) Then
+ Begin
+ If imageCount = 0 Then
+ Begin
+ SetCaseList('A', -1, CaseID);
+ MyTreeNode1 := TreeView1.Items.AddChild(NewTreeNode, CaseID);
+ MyTreeNode1.ImageIndex := 2;
+ MyTreeNode1.SelectedIndex := 2;
+ Application.ProcessMessages;
+ End;
+ End;
+ inc(imageCount);
+ // DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID);
+ // DrawDocItem(MyTreeNode1,FORM_INF_List,CaseID);
+ End
+ Else If TreeView1.Selected = MyTreeNode3 Then
+ Begin
+ SavePath := ImageSavePath + CaseID + '\' + NowDocDir + '\';
+ ContextList.Clear;
+ If FileExists(ImageSavePath + CaseID + '\' + NowDocDir +
+ '\Context.dat') Then
+ ContextList.LoadFromFile(ImageSavePath + CaseID + '\' + NowDocDir +
+ '\Context.dat');
+ If NowFormCode <> '' Then
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
+ NowFormCode + ext
+ Else
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext;
+
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If MpsBarcodeinf.r180[n] <> 0 Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[n]);
+ MpsGetBarcode(iGraphic, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+
+ if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end;
+
+ If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ SaveStream := TFileStream.Create(SavePath + SaveFilename,
+ fmOpenReadWrite)
+ Else
+ SaveStream := TFileStream.Create(SavePath + SaveFilename,
+ fmCreate);
+ Try
+ SaveStream.Seek(0, soFromBeginning);
+ iGraphic.AppendToStream(SaveStream);
+ Finally
+ SaveStream.Free;
+ End;
+ End
+
+ Else
+ Begin
+ If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ DeleteFile(SavePath + SaveFilename);
+ // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ JpgGr := TJpegGraphic.Create;
+ Try
+ JpgGr.Assign(iGraphic);
+ JpgGr.SaveQuality := cooom;
+ // JpgGr.AppendToStream(SaveStream);
+ JpgGr.SaveToFile(SavePath + SaveFilename);
+ Finally
+ JpgGr.Free;
+ // SaveStream.Free;
+ End;
+ End;
+
+ End;
+ // ISB.SaveToFile(SavePath+SaveFilename);
+ ContextList.Add(SaveFilename);
+ ContextList.SaveToFile(SavePath + 'Context.dat');
+ End;
+
+ if iGraphic = iGraphic_First then
+ iGraphic := iGraphic_Sec
+ else
+ iGraphic.Assign(nil);
+
+ End //While 結束
+
+ End;
+ ClearErrini(CaseID, MyTreeNode1);
+ // 清掉檢核記錄
+ If (TreeView1.Selected = MyTreeNode1) Or
+ (TreeView1.Selected = NewTreeNode) Then
+ Begin
+ LoadImgFile;
+ End
+ Else
+ Begin
+ DrawDocItem2(MyTreeNode1, CaseID);
+ // 長出文件名稱的樹並傳回是否有申請書的影像
+ page := GetCasePage(ImageSavePath, CaseID);
+ // ShowMessage('page='+IntToStr(page));
+ MyTreeNode1.Text := Format(_Msg('%s-%d頁'), [CaseID, page]);
+ End;
+ // ShowMessage('AAAA');
+ NewTreeNodeRefresh;
+ Application.ProcessMessages;
+ DataLoading(false, false);
+
+
+finally
+ISB.Free;
+iGraphic_First.Free;
+iGraphic_sec.Free;
+end;
+
+
+ End;
+End;
+
+
+
+procedure TCB_IMGPSScanX.PM106Click(Sender: TObject);
+var
+ i,n,x,v,v1 : Integer;
+ CopyFormID,Copy2Caseno,CopyFileName : String;
+ S : TStringlist;
+begin
+ ShowText := _Msg('複製文件中,請稍候');
+ DataLoading(True,True);
+ DocCopyForm := TDocCopyForm.Create(Self);
+ S := TStringlist.Create;
+ try
+ InitialLanguage(DocCopyForm); //載入多國語言
+ DocCopyForm.CopyFromGB.Caption := NowCaseno+DocCopyForm.CopyFromGB.Caption;
+ IF NewTreenode.Count = 1 Then
+ begin
+ Showmessage(_Msg('沒有其他可複製的文件'));
+ Exit;
+ end;
+ For i := 0 to MyTreeNode1.Count -1 do
+ begin
+ v := Pos('-',MyTreeNode1.Item[i].Text);
+ v1 := pos('{',MyTreeNode1.Item[i].Text);
+ if V1 > 0 then
+ begin
+ CopyFormID := Copy(MyTreeNode1.Item[i].Text,1,v-1);
+ DocCopyForm.CheckListBox1.Items.Add(CopyFormID);
+ end;
+ end;
+ For i := 0 to NewTreenode.Count -1 do
+ begin
+ v := Posend('-',NewTreeNode.Item[i].Text);
+ Copy2Caseno := Copy(NewTreeNode.Item[i].Text,1,v-1);
+ IF Copy2Caseno <> NowCaseno Then
+ begin
+ DocCopyForm.CheckListBox2.Items.Add(Copy2Caseno);
+ end;
+ end;
+
+ if DocCopyForm.ShowModal = mrok then
+ begin
+ If MessageDlg(_Msg('是否確定要將勾選的文件複製到勾選的編號裡?'),MtConfirmation,[Mbyes,mbcancel],0) = mrCancel Then
+ Exit;
+ ShowText := _Msg('複製中,請稍候');
+ DataLoading(True,True);
+ For i := 0 to DocCopyForm.CheckListBox2.Count -1 do
+ begin
+ IF DocCopyForm.CheckListBox2.Checked[i] Then
+ begin
+ S.Clear;
+ Copy2Caseno := DocCopyForm.CheckListBox2.Items.Strings[i];
+ ClearErrini(Copy2Caseno,MyTreeNode1); //清掉檢核記錄
+ S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');
+ For n := 0 to DocCopyForm.CheckListBox1.Count -1 do //文件
+ begin
+ If DocCopyForm.CheckListBox1.Checked[n] Then
+ begin
+ //v:= Posend('{',DocCopyForm.CheckContextList.Strings[n]);
+ //v1 := Posend('}',DocCopyForm.CheckContextList.Strings[n]);
+ //CopyFormID := Copy(DocCopyForm.CheckContextList.Strings[n],1,v-1);
+ CopyFormID := DocCopyForm.CheckListBox1.Items.Strings[n];
+ IF v = 0 Then
+ CopyFormID := '';
+ For x := 0 to ContextList.Count -1 do
+ begin
+ //Showmessage(CopyFormCode);
+ //IF CopyFormID <> '' then //有文件代號
+ // begin
+ if FileName2FormCode(ContextList.Strings[x])=CopyFormID then
+ begin
+ //CopyFileName := Add_Zoo(S.Count+1,3)+ Copy(ContextList.Strings[x],4,length(ContextList.Strings[x])-3);
+ CopyFileName := Add_Zoo(S.Count+1,3)+ FileName2NoQuene_Filename(ContextList.Strings[x]);
+ CopyFile(PWideChar(DisplayPath+ContextList.Strings[x]),PWidechar(ImageSavePath + Copy2Caseno+'\'+CopyFileName),False);
+ S.Add(CopyFileName);
+ S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');
+ end;
+ // end
+
+ end;
+ end;
+ end;
+
+ end;
+ end;
+ DataLoading(False,False);
+ Showmessage(_Msg('複製完成!!'));
+ LoadImgFile;
+ end;
+ finally
+ DocCopyForm.Free;
+ DataLoading(False,False);
+ S.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PM107Click(Sender: TObject);
+begin
+ WNoteBtnClick(nil);
+end;
+
+procedure TCB_IMGPSScanX.PM108Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ NewFormID,NewFormName,CustomDocNo : String;
+begin
+ DocListForm := TDocListForm.Create(self);
+ try
+LogFile1.LogToFile(logTimeString+'Tree 歸類開始');
+ InitialLanguage(DocListForm); //載入多國語言
+ DocListForm.CheckBox1.Visible:=True;
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ NewFormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ NewFormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ if not FormIDAppear(NewFormID) then Continue; //20170816 先秀全部的
+ if (NewFormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(NewFormID,False,i) then
+ begin
+ DocListForm.FormIDList.Add(NewFormID+'#@#'+NewFormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := NewFormID;
+ SubItems.Add(GetSQLData(FORM_INF_List,'T1.FORM_DESC',i));
+ end;
+ end;
+ end;
+ if DocListForm.ShowModal = mrOk then
+ begin
+ if not (DocListForm.DocLV.Selected=nil) then
+ NewFormID := DocListForm.DocLV.Selected.Caption;
+ if DocListForm.CheckBox1.Checked then
+ begin
+ //歸類到自訂文件
+ NewFormID:=DocListForm.Edit1.Text;
+
+ if Trim(DocListForm.Edit1.Text)='' then
+ begin
+ Showmessage(_Msg('未輸入文件名稱'));
+ Exit;
+ end;
+ if FindCustomDocName(DisplayPath,NewFormID) then
+ begin
+ Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[NewFormID]));
+ Exit;
+ end;
+ if NowFormCode <> AttName then
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),NewFormID]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end
+ Else
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end;
+ CustomDocNo := GetNewCustomDocNo(DisplayPath,NewFormID);
+//ShowMessage('CustomDocNo='+CustomDocNo);
+LogFile1.LogToFile(logTimeString+'Tree 歸類到自訂文件 CustomDocNo='+CustomDocNo);
+ ShowText := _Msg('歸類中,請稍侯');
+ DataLoading(True,True);
+ FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,CustomDocNo+'010101A');
+ end
+ else
+ begin
+ //歸類到既有文件
+ if NowFormCode <> AttName then
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end
+ Else
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end;
+ ShowText := _Msg('歸類中,請稍侯');
+ DataLoading(True,True);
+//ShowMessage('NowDocDir='+NowDocDir);
+LogFile1.LogToFile(logTimeString+'Tree 歸類到既有文件 NewFormID='+NewFormID);
+ FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,NewFormID);
+
+ end;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ DataLoading(False,False);
+ TreeView1.Selected := MyTreeNode1;
+ TreeView1Click(self);
+ end;
+
+ finally
+ DocListForm.Free;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.PM109Click(Sender: TObject);
+var
+ S : TStringlist;
+ CaseID : String;
+begin
+ //if TreeView1.Selected = nil then Exit;
+ //if TreeView1.Selected = NewTreeNode then Exit;
+ CaseID := NowCaseno;
+ S := TStringlist.Create;
+ try
+ ClearView(1);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ If OMRCheckCase(CaseID) then //有成功
+ begin
+ S.Add('Y');
+ S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+ end;
+ //MyTreeNode2ReFresh(CaseID);
+ LoadImgFile;
+ TreeView1Click(nil);
+ DataLoading(False,False);
+ finally
+ S.Free;
+ end;
+ Showmessage(_Msg('檢核完成'));
+end;
+
+procedure TCB_IMGPSScanX.PM110Click(Sender: TObject);
+var
+ CustomDocName : String;
+ CustomDocNo : String;
+ DocDir : String;
+ SavePath : String;
+ ST1:TStringList;
+begin
+ if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
+ begin
+ if CustomDocName <> '' then
+ begin
+ if FindCustomDocName(DisplayPath,CustomDocName) then
+ begin
+ Showmessage(Format('文件名稱:"%s"己存在',[CustomDocName]));
+ Exit;
+ end;
+ ST1:=TStringList.Create;
+ CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
+ DocDir := CustomDocNo;
+ SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
+ Str2Dir(SavePath);
+ SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MyTreeNode1.Expand(True);
+ end;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.PM111Click(Sender: TObject);
+var
+ oldCopies,NewCopies : Integer;
+ copies : String;
+begin
+ oldCopies := GetDocDirCopies(NowCaseno,NowDocDir);
+ try
+ NewCopies := Strtoint(inputBox(_Msg('修改份數'),_Msg('請輸入修改後的份數'),inttostr(oldCopies)));
+ except
+ Showmessage(_Msg('輸入錯誤'));
+ Exit;
+ end;
+ if (NewCopies <= 0) and (NewCopies >= 10000) then
+ begin
+ Showmessage(_Msg('輸入範圍錯誤'));
+ Exit;
+ end;
+
+ if (oldCopies <> NewCopies) and (NewCopies > 0) and (NewCopies < 10000) then
+ begin
+ if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg(_Msg('修改至1份後此文件將無法再進行份數修改,是否確定??'),mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then
+ Exit;
+
+ SetDocDirCopies(NowCaseno,NowDocDir,NewCopies);
+ SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ Showmessage(_Msg('修改完成'));
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.PM301Click(Sender: TObject);
+begin
+ ScanColor := ifBlackWhite;
+ ScanDpi := Def_ScanDpi;
+ Ext := '.tif';
+ PM301.Checked := True;
+end;
+
+procedure TCB_IMGPSScanX.PM302Click(Sender: TObject);
+begin
+ ScanColor := ifGray256;
+ Ext := '.jpg';
+ ScanDpi := 200;
+ //Ext := '.tif';
+ PM302.Checked := True;
+end;
+
+procedure TCB_IMGPSScanX.PM303Click(Sender: TObject);
+begin
+ ScanColor := ifTrueColor;
+ Ext := '.jpg'; //20130326 yuu說理賠改存jpg
+ ScanDpi := 200;
+ //Ext := '.tif';
+ PM303.Checked := True;
+end;
+
+procedure TCB_IMGPSScanX.PM501Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmFitWidth;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+procedure TCB_IMGPSScanX.PM502Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmFitHeight;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+procedure TCB_IMGPSScanX.PM503Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmFittoPage;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+procedure TCB_IMGPSScanX.PM504Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmOriginalSize;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+procedure TCB_IMGPSScanX.PM505Click(Sender: TObject);
+begin
+ if DisplayISB.FileName = '' then Exit;
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ ScanMode := smReplace;
+ ScanInfo.ImageCount := 0;
+ ScanPath := DisplayPath;
+ ScanCaseno := '';
+ ScanSaveFilename := ExtractFileName(DisplayISB.FileName);
+ Try
+ StatrTwainScan;
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+end;
+
+procedure TCB_IMGPSScanX.PM507Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ FormID,FormName,DocNo : String;
+ PreNode2Name : String;
+ iFormID : String;
+begin
+ PreNode2Name := '';
+ if TreeView1.Selected.Parent = MyTreeNode1 then
+ PreNode2Name:= GetNode2Name(MyTreeNode2);
+ ShowText := _Msg('文件歸類中,請稍候');
+ DataLoading(True,True);
+ DocListForm := TDocListForm.Create(self);
+ try
+ InitialLanguage(PatchDlg); //載入多國語言
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
+ //Showmessage(FORM_INF_List.Text);
+ //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
+ if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
+ begin
+ DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := FormID;
+ SubItems.Add(FormName);
+ end;
+ end;
+ end;
+ if DocListForm.ShowModal = mrOk then
+ begin
+ OldName := ExtractFileName(DisplayISB.FileName);
+ Ext := ExtractFileExt(OldName);
+ //NewName := Copy(OldName,1,3)+'_'+TransRealFormID(DocListForm.DocLV.Selected.Caption)+Ext;
+ NewName := Add_Zoo(FileName2ScanPage(OldName),3)+'_'+DocListForm.DocLV.Selected.Caption+Ext;
+ RenameFile(DisplayPath+OldName,DisplayPath+NewName);
+ ReNameContext(DisplayPath,OldName,NewName);
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ if PreNode2Name <> '' then // 回到原本點選的文件節點上
+ begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i];
+ Break;
+ end;
+ end;
+ end;
+ TreeView1click(self);
+ //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
+ end;
+ finally
+ DataLoading(False,False);
+ DocListForm.Free;
+ end;
+
+end;
+
+
+procedure TCB_IMGPSScanX.PM508Click(Sender: TObject);
+var
+ P : Integer;
+ inx:Integer;
+begin
+ if DisplayISB.FileName = '' then Exit;
+ if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'ISCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN')) then
+ begin
+ if Messagedlg(Format(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
+ _DelTree(DisplayPath);
+ SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
+ LoadImgFile;
+ end
+ Else
+ begin
+ if Messagedlg(_Msg('是否確定刪除?'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
+ inx := ContextList.IndexOf(ExtractFileName(DisplayISB.FileName));
+ ContextList.Delete(inx);
+ ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');
+ Context_DocnoList.Delete(inx);
+ Context_DocnoList.SaveToFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
+ DeleteFile(DisplayISB.FileName);
+ ReSortFileName(DisplayPath);
+ ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');
+ Context_DocnoList.LoadFromFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
+ if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(ImageSavePath + NowCaseno+'\CustomDocNo.dat');
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
+ DrawDocItem2(MytreeNode1,NowCaseno);
+
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ P := ContextList.Count;
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,p]);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ NewTreeNodeRefresh;
+ TreeView1Click(self);
+
+ end;
+ //Showmessage(_Msg('刪除完成')); //20101101 User要求拿掉
+end;
+
+procedure TCB_IMGPSScanX.PM509Click(Sender: TObject);
+begin
+ PM401Click(nil);
+end;
+
+procedure TCB_IMGPSScanX.PM510Click(Sender: TObject);
+begin
+ DeskewImg(DisplayISB.Graphic);
+ DisplayISB.SaveToFile(DisplayISB.FileName);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+end;
+
+procedure TCB_IMGPSScanX.PopupMenu1Popup(Sender: TObject);
+begin
+ PM101.Visible := False; //刪除
+ PM102.Visible := False; //修改案件編號
+ PM103.Visible := False; //掃瞄器加入影像
+ PM104.Visible := False; //檔案加入影像
+ PM106.Visible := False; //複製文件至其他編號
+ PM107.Visible := False; //寫備註
+ PM108.Visible := False; //歸類
+ PM109.Visible := False; //檢核此筆
+ PM110.Visible := False; //新增自訂文件
+ PM111.Visible := False; //修改份數
+
+ if (FMode = 'SAMPLESCAN') then Exit;
+
+ if TreeView1.Selected = nil then Exit;
+ if TreeView1.Selected = NewTreeNode then //新掃瞄件
+ begin
+ if (FMode = 'NSCAN') then
+ begin
+//ShowMessage('AAAA');
+ PM101.Visible := True; //刪除
+ PM103.Visible := True; //掃瞄器加入影像
+ PM104.Visible := True; //檔案加入影像
+ end;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+// if FMode='ESCAN' then
+// begin
+// PM101.Visible := True;
+// end;
+ end
+ Else if TreeView1.Selected = MyTreeNode1 then //案件層
+ begin
+ PM101.Visible := True; //刪除
+
+ if FImgDelete='Y' then
+ begin
+ PM101.Visible:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM101.Visible:=false;
+ end;
+
+ if FMode='ESCAN' then
+ PM101.Visible:=false;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+
+ if not CaseDelete_Enable(NowCaseno) then //
+ PM101.Enabled := False
+ else
+ PM101.Enabled := True;
+ PM103.Visible := True; //掃瞄器加入影像
+ //PM107.Visible := True; //寫備註
+ //PM109.Visible := True; //檢核此筆
+// if FCustDocYN <> 'N' Then
+// PM110.Visible := True; //新增自訂文件 20170914 先不在tree 中做自訂文件 讓user在縮圖做
+ PM104.Visible := True; //檔案加入影像
+ if (FMode = 'NSCAN') then
+ begin
+ PM102.Visible := True; //修改案件編號
+ end;
+// if FMode='ESCAN' then
+// begin
+// PM101.Visible := True;
+// end;
+ end
+ Else if TreeView1.Selected = MyTreeNode2 then //文件層
+ begin
+ PM101.Visible := True; //刪除
+ //PM107.Visible := True; //寫備註
+ //PM109.Visible := True; //檢核此筆
+// if FCustDocYN <> 'N' Then
+// PM110.Visible := True; //新增自訂文件
+ if FImgDelete='Y' then
+ begin
+ PM101.Visible:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM101.Visible:=false;
+ end;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //沒有被引用走的
+ PM101.Enabled := False //刪除
+ Else
+ PM101.Enabled := True; //刪除
+ if ((GetDocDirCopies(NowCaseno,NowDocDir) > 1) or (not DocNoNeedDiv(NowDocNo)) or (Copy(NowDocNo,1,5)='ZZZZZ')) and (NowDocNo<> 'Attach') and (NowDocNo<> 'S_Attach') then
+ PM111.Visible := True; //修改份數
+ if (FMode = 'NSCAN') then
+ PM102.Visible := True; //修改案件編號
+// if FMode='ESCAN' then
+// begin
+// PM101.Visible := True;
+// end;
+ end
+ Else if TreeView1.Selected = MyTreeNode3 then //表單層
+ begin
+ PM101.Visible := True; //刪除
+ PM104.Visible := True; //檔案加入影像
+ PM108.Visible := True; //歸類
+ PM103.Visible := True; //掃瞄器加入影像
+// if FCustDocYN <> 'N' Then
+// PM110.Visible := True; //新增自訂文件
+ if GetFormIDPage(ContextList,NowFormCode) < 1 Then
+ begin
+ PM108.Visible := False; //歸類
+ end;
+ if FImgDelete='Y' then
+ begin
+ PM101.Visible:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM101.Visible:=false;
+ end;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //被引用走的
+ begin
+ PM101.Enabled := False; //刪除
+ PM104.Enabled := False; //檔案加入影像
+ PM108.Enabled := False; //歸類
+ end
+ Else
+ begin
+ PM101.Enabled := True; //刪除
+ PM104.Enabled := True; //檔案加入影像
+ PM108.Enabled := True; //歸類
+ end;
+
+ if (FMode = 'NSCAN') then
+ begin
+ PM102.Visible := True; //修改案件編號
+ end;
+ end;
+
+
+
+end;
+
+procedure TCB_IMGPSScanX.PopupMenu4Popup(Sender: TObject);
+begin
+ PM401.Visible := False;
+ PM402.Visible := False;
+ PM403.Visible := False;
+ PM404.Visible := False;
+ if FMode = 'SAMPLESCAN' then Exit;
+ if (TreeView1.Selected.Level =2) or (TreeView1.Selected.Level =3) then
+ begin
+ PM402.Visible := True;
+ PM403.Visible := True;
+ PM404.Visible := True;
+ end;
+ PM401.Visible := True;
+ if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') then
+ PM401.Visible := False;
+end;
+
+procedure TCB_IMGPSScanX.PopupMenu5Popup(Sender: TObject);
+begin
+ PM501.Visible := False;
+ PM502.Visible := False;
+ PM503.Visible := False;
+ PM504.Visible := False;
+ PM505.Visible := False;
+ PM506.Visible := False;
+ PM507.Visible := False;
+ PM508.Visible := False;
+ PM509.Visible := False;
+ PM510.Visible := False;
+ if FMode = 'SAMPLESCAN' then Exit;
+ if (DisplayISB.FileName <> '') then
+ begin
+ PM501.Visible := True;
+ PM502.Visible := True;
+ PM503.Visible := True;
+ PM504.Visible := True;
+ //PM505.Visible := True;
+ //PM506.Visible := True;
+ //PM507.Visible := True;
+ //PM508.Visible := True;
+ //PM509.Visible := True;
+ //PM510.Visible := True;
+ end;
+ if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') or (FMode = 'ESCAN') then
+ PM509.Visible := False;
+end;
+
+procedure TCB_IMGPSScanX.PopupMenu6Popup(Sender: TObject);
+begin
+ PM601.Visible := True; //歸類
+ PM602.Visible := True; //自行定義文件名稱
+ PM603.Visible := False; //掃描替換此頁
+ PM604.Visible := False; //歪斜矯正
+ PM605.Visible := True; //刪除
+
+// if FMode='ESCAN' then
+// begin
+// PM601.Visible := False; //歸類
+// PM602.Visible := False; //自行定義文件名稱
+// PM603.Visible := False; //掃描替換此頁
+// PM604.Visible := False; //歪斜矯正
+// PM605.Visible := False; //刪除
+// end;
+
+ if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then
+ begin
+ PM602.Visible := True; //自行定義文件名稱
+ //PM603.Visible := True; //掃描替換此頁
+ PM604.Visible := True; //歪斜矯正
+ PM601.Visible := True; //歸類
+ PM605.Visible := True; //刪除
+ end;
+
+ if FModeName<>_Msg('異動件') then
+ begin
+ if (FImgDelete='Y') then
+ begin
+ PM605.Enabled:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM605.Enabled:=false;
+ end;
+ end;
+
+
+
+
+ if CheckSelectImg_UseCase(DisplayPath,NowCaseNo) then //選擇的影像不可有引用的
+ begin
+ PM601.Enabled := False; //歸類
+ PM605.Enabled := False; //刪除
+ end;
+
+
+end;
+
+procedure TCB_IMGPSScanX.PrePageBtnClick(Sender: TObject);
+var
+ page : Integer;
+begin
+ {page := ScrollBar1.Position;
+ Case Vmode of
+ 0 : dec(page);
+ 1 : Page := Page - 2;
+ 2 : Page := Page - 4;
+ 3 : Page := Page - 6;
+ 4 : Page := Page - 8;
+ end;
+ IF page >= ScrollBar1.min Then
+ begin
+ ScrollBar1.Position := page;
+ end
+ Else
+ ScrollBar1.Position := 1; }
+ if selectISB = nil then Exit;
+ PriorPage(SelectPage);
+ if (SelectISB.Parent.Top-4) < 0 then
+ scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
+
+ //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
+
+
+end;
+
+procedure TCB_IMGPSScanX.SampleScanBtnClick(Sender: TObject);
+var
+ SampleFormID : String;
+ SendData : String;
+ buttonSelected : Integer;
+begin
+ ScanMode := smSample;
+ ClearView(1);
+ Vmode := 0; //切成單頁
+ GoViewMode;
+ ScanInfo.ImageCount := 0;
+ ScanPath := SamplePath;
+ ScanCaseno := '';
+ ContextList.Clear;
+ ShowText := _Msg('範本掃描中,請稍候');
+ DataLoading(True,True);
+ SampleFormID := UpperCase(InputBox(_Msg('範本檔掃瞄輸入畫面'),_Msg('請輸入文件編號'),''));
+
+ if SampleFormIDList.IndexOf(SampleFormID)<>-1 then
+ begin
+ // Show a custom dialog
+ buttonSelected := messagedlg(SampleFormID+_Msg('已有範本,是否取代?'),mtCustom,
+ [mbYes,mbCancel], 0);
+ if buttonSelected = mrCancel then
+ begin
+ DataLoading(false,false);
+ Exit;
+ end;
+ end;
+
+ if SampleFormID <> '' then
+ begin
+ if FormIDExists(SampleFormID,False,0) then
+ begin
+ ScanSaveFilename := SampleFormID + '.tif';
+ end
+ Else
+ begin
+ Showmessage(Format(_Msg('FormID:%s尚未註冊'),[SampleFormID]));
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ DataLoading(false,false);
+ Exit;
+ end;
+ SampleAnchorMode := FormID2Anchor(SampleFormID);
+
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+//ShowMessage('AAAAA');
+ Try
+ StatrTwainScan;
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+
+ if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then
+ begin
+ ShowText := _Msg('範本傳送中,請稍候');
+ DataLoading(True,True);
+ //多存一份jpg
+ ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);
+ BWTif2Jpg(ImageScrollBox1.Graphic);
+ ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');
+ //多存一份jpg
+
+ NowWork_No := FormCode2WorkNo(SampleFormID);
+ SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.tif';
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.tif',FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ if FileExists(SamplePath+SampleFormID+'.jpg') then //傳送JPG影像
+ begin
+ SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.jpg';
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.jpg',FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+ Showmessage(_Msg('傳送完成'));
+ end;
+ end;
+ DataLoading(False,False);
+
+end;
+
+procedure TCB_IMGPSScanX.ScrollBar1Change(Sender: TObject);
+begin
+ Exit;
+ If (TreeView1.Selected = MyTreenode1) or (TreeView1.Selected.ImageIndex = 6) Then
+ begin
+ view_image_FormCode(DisplayPath,'ShowAll',ScrollBar1.Position,1);
+ end
+ Else IF (TreeView1.Selected = MyTreenode2) then
+ begin
+ view_image_FormCode(DisplayPath,NowDocNo,ScrollBar1.Position,1);
+ end
+ Else if (TreeView1.Selected = MyTreenode3) then
+ begin
+ view_image_FormCode(DisplayPath,NowFormCode,ScrollBar1.Position,1);
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.ScrollBox1MouseEnter(Sender: TObject);
+begin
+ScrollBox1.SetFocus;
+end;
+
+procedure TCB_IMGPSScanX.SelectScanBtnClick(Sender: TObject);
+begin
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ scanner.SelectScanner;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+end;
+
+procedure TCB_IMGPSScanX.StatusBar1DblClick(Sender: TObject);
+begin
+ Button3.Visible := not Button3.Visible;
+ Button4.Visible := not Button4.Visible;
+ if (GetKeyState(VK_CONTROL) < 0) Then
+ begin
+ ExportBt.Visible := not ExportBt.Visible;
+ ImportBt.Visible := not ImportBt.Visible;
+ end
+ Else
+ begin
+ Memo1.Visible := not Memo1.Visible;
+ Display1.Visible := not Display1.Visible;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.ActiveFormCreate(Sender: TObject);
+var IScrollBox : TImageScrollBox;
+ i :integer;
+begin
+ {HotKeyId1 := GlobalAddAtom('MyHotKey1')-$C000;
+ HotKeyId2 := GlobalAddAtom('MyHotKey2')-$C000;
+ HotKeyId3 := GlobalAddAtom('MyHotKey3')-$C000;
+ HotKeyId4 := GlobalAddAtom('MyHotKey4')-$C000;
+ RegisterHotKey(handle,HotKeyId1,0,VK_UP); //printscreen
+ RegisterHotKey(handle,HotKeyId1,0,VK_Down); //printscreen }
+ PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
+ vmode := 1;
+ DesableImage;
+ For i:= 1 to 8 do begin
+ IScrollBox := TImageScrollBox( FindComponent('ISB'+IntToStr(i)));
+ IScrollBox.MouseMode := mmUser;
+ iScrollBox.ZoomMode := zmFullPage;
+ end;
+ Sleep(500);
+ Timer1.Enabled := True;
+end;
+
+procedure TCB_IMGPSScanX.ActiveFormKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Edit1.Focused then
+ begin
+ if selectISB = nil then Exit;
+
+ if (Key =VK_UP) then
+ begin
+ PriorPage(SelectPage);
+ if (SelectISB.Parent.Top-4) < 0 then
+ scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
+
+ //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
+ end;
+ if (Key =VK_Down) then
+ begin
+ NextPage(SelectPage);
+ if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
+ ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
+ //scrollBox1.VertScrollBar.ScrollPos := SelectISB.Parent.Top+SelectISB.Parent.Height;
+ //ISBClick(TImageScrollBox(FindComponent(ISBName+'2')));
+ end;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.AddAttFileLBClick(Sender: TObject);
+var
+ i : Integer;
+ Addfile : String;
+begin
+ OpenDialog1.Filter := 'PDF files|*.pdf';
+ OpenDialog1.Options := [ofAllowMultiSelect];
+ if OpenDialog1.Execute then
+ begin
+ ShowText :=_Msg('檔案加入中,請稍候');
+ DataLoading(True,True);
+ for i := 0 to OpenDialog1.Files.Count - 1 do
+ begin
+ AddFile := HTTPEncode(UTF8Encode(ExtractFileName(OpenDialog1.Files.Strings[i])));
+ if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then
+ begin
+ if Messagedlg(Format(_Msg('%s己存在,是否覆蓋??'),[Addfile]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Continue;
+ SetAttContextList('D',-1,NowCaseno,AddFile);
+ end;
+ // AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
+ // Splitter2.Visible := True;
+ CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);
+ SetAttContextList('A',-1,NowCaseno,AddFile);
+ LoadAttFile(NowCaseno);
+ end;
+ end;
+ DataLoading(False,False);
+end;
+
+procedure TCB_IMGPSScanX.AddCredit1RGClick(Sender: TObject);
+begin
+ if DisplayPath <> '' then
+ begin
+ Case AddCredit1RG.ItemIndex of
+ -1:Case_loandoc := '';
+ 0:Case_loandoc := 'Y';
+ 1:Case_loandoc := 'N';
+ end;
+ WriteCaseIndex(DisplayPath);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.AddScanBtnClick(Sender: TObject);
+var
+ P,v : Integer;
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_Msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+ if MyTreeNode1 = nil then
+ begin
+ Showmessage(_Msg('請先選擇案件'));
+ Exit;
+ end;
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ ScanMode := smInsert;
+ ScanInfo.ImageCount := ContextList.Count;
+ ScanPath := DisplayPath;
+ ScanCaseno := NowCaseno;
+ ScanDocDir := NowDocDir;
+ Try
+ StatrTwainScan;
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ //P := ContextList.Count;
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseno)]);
+
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ SetDocDirtoSelected(MyTreeNode1,FirstDocDir);
+ TreeView1Click(self);
+end;
+
+procedure TCB_IMGPSScanX.AttListBoxClick(Sender: TObject);
+begin
+ DelAttFileLB.Enabled := False;
+ if AttListBox.ItemIndex >= 0 then
+ DelAttFileLB.Enabled := True;
+end;
+
+procedure TCB_IMGPSScanX.AttListBoxDblClick(Sender: TObject);
+var
+ AttFile : String;
+begin
+ if AttListBox.ItemIndex < 0 then Exit;
+
+ AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[AttListBox.ItemIndex]));
+ if FileExists(DisplayPath+AttFile) then
+ ShellExecute(Application.Handle,'open',PChar(DisplayPath+AttFile),nil,nil,SW_SHOW)
+ else
+ Showmessage(Format(_Msg('找不到檔案:%s'),[AttFile]));
+end;
+
+procedure TCB_IMGPSScanX.BtnMouseEnter(Sender: TObject);
+begin
+ AddToolTip(TBitBtn(Sender).Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
+end;
+
+procedure TCB_IMGPSScanX.Button3Click(Sender: TObject);
+begin
+ //Showmessage(CreateDocNo_Info(NowCaseNo)+#13+'******'+#13+CreateCustDocNo_Info(NowCaseNo));
+ //Showmessage(NowSelectFileList.Text);
+ //SetIn_WH_DocNo;
+ //CreateIn_WH(self.NowCaseno);
+ //Create_Cust_DocDir(NowCaseNo);
+ //Showmessage(self.GetDocNoDir(self.DisplayPath,'111'));
+ //Case2upload(NowCaseNo);
+ //mkdir(DisplayPath+'Test\');
+ //Download2Case(DisplayPath+'Upload\',DisplayPath+'Test\');
+ //CreateFormID_FormName(DisplayPath); //產生FormID_FormName.dat
+ //CreateDocNo_DocName(DisplayPath); //產生DocNo_Name.dat
+ //Showmessage(CreateDocNo_Info(DisplayPath)); //產生 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
+ //lb1.Caption:='AAAAAAAAAAA';
+ //Showmessage(CreateDocnoFrom_Info(NowCaseno));
+ //Showmessage(self.CreateCustDocNoFrom_Info(NowCaseno));
+ //ShowMessage('FMaxUploadSize='+FMaxUploadSize);
+ //initkscan;
+ showmessage('FUrl='+FUrl+#10#13+
+ 'FCaseID='+FCaseID+#10#13+
+ 'FMode='+FMode+#10#13+
+ 'FModeName='+FModeName+#10#13+
+ 'FWork_no='+FWork_no+#10#13+
+ 'FUserID='+FUserID+#10#13+
+ 'FUserName='+FUserName+#10#13+
+ 'FUserUnit='+FUserUnit+#10#13+
+ 'FData='+FData+#10#13+
+ 'FVerify='+FVerify+#10#13+
+ 'FReWrite='+FReWrite+#10#13+
+ 'FLanguage='+FLanguage+#10#13+
+ 'FLoanDoc_Value='+FLoanDoc_Value+#10#13+
+ 'FLoanDoc_Enable='+FLoanDoc_Enable+#10#13+
+ 'FUseProxy='+FUseProxy+#10#13+
+ 'FC_DocNoList='+FC_DocNoList+#10#13+
+ 'FC_DocNameList='+FC_DocNameList+#10#13+
+ 'FFixFileList='+FFixFileList+#10#13+
+ 'FIs_In_Wh='+FIs_In_Wh+#10#13+
+ 'FOldCaseInfo='+FOldCaseInfo+#10#13+
+ 'FPrintyn='+FPrintyn+#10#13+
+ 'FIs_OldCase='+FIs_OldCase+#10#13+
+ 'FCustDocYN='+FCustDocYN);
+ ShowMessage('FImgDPI='+IntToStr(FImgDPI)+#10#13+
+ 'FScanColor='+ IntToStr(FScanColor)+#10#13+
+ 'FFileSizeLimit='+ IntToStr(FFileSizeLimit) +#10#13+
+ 'FCaseNoLength='+ IntToStr(FCaseNoLength) +#10#13+
+ 'FImgDelete='+ FImgDelete+#10#13+
+ 'FIsExternal='+ FIsExternal+#10#13+
+ 'FWH_category='+FWH_category+
+ 'FCheck_main_form='+ FCheck_main_form+#10#13+
+ 'FMaxUploadSize='+FMaxUploadSize);
+ //FImgDelete:='Y';
+ LoadImgFile;
+ { ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
+ 'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
+ 'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
+ 'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
+ }
+end;
+
+procedure TCB_IMGPSScanX.Button4Click(Sender: TObject);
+var
+ i:integer;
+ str:String;
+begin
+ //Showmessage(self.Doc_Inf_List.Text);
+ //LoadImgFile;
+ //LoadImgFile1;
+ //ISB1.MouseMode:=mmAmplifier;
+
+ str:='';
+ for I := 1 to 11 do // 看 OMRErrInfo 的內容
+ begin
+ str:=str+BoolToStr(OMRErrInfo[i].Display,true)+','
+ +BoolToStr(OMRErrInfo[i].Ignore,true)+','+OMRErrInfo[i].Info+','
+ +OMRErrInfo[i].Mode+#10#13;
+ end;
+ ShowMessage('OMRErrInfo='+str);
+ ShowMessage('Doc_Inf_List='+Doc_Inf_List.Text);
+ ShowMessage('DM_FORM_INF_List='+DM_FORM_INF_List.Text) ;
+ ShowMessage('FORM_INF_List='+FORM_INF_List.Text) ;
+ ShowMessage('CHECK_RULE_INF_List='+CHECK_RULE_INF_List.Text) ;
+ ShowMessage('MEMO_INF_List='+MEMO_INF_List.Text) ;
+ ShowMessage('WORK_INF_List='+WORK_INF_List.Text) ;
+ ShowMessage('LASTEST_FORM_INF_List='+LASTEST_FORM_INF_List.Text) ;
+ ShowMessage('SampleFormIDList='+SampleFormIDList.Text);
+ ShowMessage('ExistImgList='+ExistImgList.Text);
+ ShowMessage('LastInitFormidList='+LastInitFormidList.Text);
+ ShowMessage('IN_WH_DocNoList='+IN_WH_DocNoList.Text);
+
+// SampleFormIDList.Add('31A00101011706A');
+// SampleFormIDList.Add('31A00101021706A');
+// SampleFormIDList.Add('31A00101031706A');
+end;
+
+procedure TCB_IMGPSScanX.Button5Click(Sender: TObject);
+begin
+ GetftpInfo(NowCaseno,'upload');
+ SetFtpInfo;
+ IIS_Ftp.FtpsConnect;
+
+ IIS_Ftp.FtpsToMain(FFtpExtraPath,NowCaseno+'.pdf','d:\1.pdf',display1);
+end;
+
+procedure TCB_IMGPSScanX.Button6Click(Sender: TObject);
+begin
+ GetftpInfo(NowCaseno,'download');
+ SetFtpInfo;
+ IIS_Ftp.FtpsConnect;
+ IIS_Ftp.FtpsCWD(IIS_Ftp.FtpPath);
+ IIS_Ftp.FtpsReceive(NowCaseNo+'.zip','d:\'+NowCaseNo+'.zip');
+
+
+end;
+
+procedure TCB_IMGPSScanX.StatrTwainScan;
+var ScanInfo : TScanInfo;
+ i : Integer;
+begin
+ if not Scanner.IsConfigured then
+ begin
+ ShowMessage(_Msg('TWAIN 掃瞄驅動尚未安裝'));
+ Exit;
+ end;
+ FillChar(ScanInfo, SizeOf(ScanInfo), 0);
+ ScanInfo.MultiPage := True;
+ ScanInfo.ImageCount := 0;
+ ScanInfo.Graphic := TTiffGraphic.Create;
+ try
+ ISB := nil; //規零
+//ShowMessage(IntToStr(ScanDpi));
+ Scanner.RequestedXDpi := ScanDpi;
+ Scanner.RequestedYDpi := ScanDpi;
+ Scanner.RequestedImageFormat := ScanColor;
+ Scanner.ShowUI := TwainShowUI;
+
+ Try
+ Scanner.OpenSource;
+ Scanner.Duplex := ScanDuplex; //雙面
+
+ if FMode='SAMPLESCAN' then
+ Scanner.Duplex:=False;
+
+ //Scanner.FEEDERENABLED := not ScanFlatCB.Checked; // 先拿掉平台
+ If ScanImgSetUse Then
+ begin
+ Scanner.ScanBrightness := ScanBright;
+ Scanner.ScanContrast := ScanContrast;
+ end;
+ except
+ Showmessage(_Msg('掃瞄器發生錯誤!!'));
+ Scanner.CloseSource;
+ Exit;
+ end;
+ try
+ Try
+ Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));
+ Except
+ Scanner.CloseSource;
+ end;
+ finally
+ Scanner.CloseSource;
+ end;
+ finally
+ Scanner.CloseSource;
+ ScanInfo.Graphic.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.OnAcquire( const DibHandle : THandle;
+ const XDpi : Word;
+ const YDpi : Word;
+ const CallBackData : LongInt );
+var
+ pScanInfo : TpScanInfo;
+ SaveFileName : String;
+ SaveStream : TFileStream;
+ strResults : TBarcodeStringResult;
+ DeleteStm : TMemoryStream;
+ isDelete : Boolean;
+ iGraphic,iGraphic_First,iGraphic_sec : TTiffGraphic;
+ iRect : TRect;
+ JpgGr : TJpegGraphic;
+ i : Integer;
+ TagTxt : String;
+ function Deletepage(Graphic:TDibGraphic;BlankSize:Integer):Boolean;
+ begin
+ DeleteStm := TMemoryStream.Create;
+ DeleteStm.Seek(0,soFromBeginning);
+ Graphic.AppendToStream(DeleteStm);
+
+ //DeleteStm.LoadFromFile(Path+'temp.tif');
+ //Isb1.Graphic.SaveToStream(DeleteStm);
+ //Isb1.Graphic.AppendToStream(DeleteStm);
+ if DeleteStm.Size < BlankSize Then
+ Result:= True
+ Else
+ Result := False;
+
+ DeleteStm.Free;
+ //DeleteFile(Path+'temp.tif');
+ end;
+begin
+ pScanInfo := TpScanInfo(CallBackData);
+ isDelete := False;
+
+ if pScanInfo^.MultiPage then
+ begin
+ pScanInfo^.Graphic.AssignFromDibHandle(DibHandle);
+ pScanInfo^.Graphic.XDotsPerInch := XDpi;
+ pScanInfo^.Graphic.YDotsPerInch := YDpi;
+ TagTxt := 'height:'+inttostr(pScanInfo^.Graphic.Height)+',width:'+inttostr(pScanInfo^.Graphic.Width);
+ if pScanInfo^.Graphic.ImageFormat = ifBlackWhite then
+ begin
+ ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
+ ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+
+ pScanInfo^.Graphic.Compression := tcGroup4;
+ MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf);
+ For i := 1 to MpsBarcodeinf.count do
+ begin
+ If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
+ begin
+ Rotate(pScanInfo^.Graphic,MpsBarcodeinf.r180[i]);
+ MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
+ Break;
+ end;
+ end;
+
+ //影像反向
+ IF ScannerReverse then
+ NegativeImg(pScanInfo^.Graphic);
+ //傾斜矯正
+ IF ScanDeskew Then
+ DeskewImg(pScanInfo^.Graphic);
+ //清黑邊
+ IF BoardClear then
+ CleanupBorder(pScanInfo^.Graphic);
+ end
+ else if pScanInfo^.Graphic.ImageFormat = ifTrueColor then
+ begin
+ //Ext := '.jpg';
+ ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
+ //ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
+ For i := 1 to MpsBarcodeinf.count do
+ begin
+ If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
+ begin
+ Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
+ Break;
+ end;
+ end;
+ pScanInfo^.Graphic.Compression := tcJpeg;
+ pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+ end
+ else if pScanInfo^.Graphic.ImageFormat = ifColor256 Then
+ begin
+ //Ext := '.jpg';
+ ConvertToGray(pScanInfo^.Graphic);
+ pScanInfo^.Graphic.Compression := tcJpeg;
+ pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+ end
+ else if pScanInfo^.Graphic.ImageFormat = ifGray256 Then
+ begin
+ //Ext := '.jpg';
+ ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
+ ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
+ For i := 1 to MpsBarcodeinf.count do
+ begin
+ If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
+ begin
+ Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
+ Break;
+ end;
+ end;
+ pScanInfo^.Graphic.Compression := tcJpeg;
+ pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+//ShowMessage(IntToStr(pScanInfo^.Graphic.JpegQuality));
+//if pScanInfo^.Graphic.Compression = tcJpeg then
+//begin
+//ShowMessage('jpg');
+//end;
+
+ end
+ else
+ begin
+ //Ext := '.tif';
+ pScanInfo^.Graphic.Compression := tcPackBits;
+ end;
+
+ end;
+ //Application.ProcessMessages;
+ iGraphic_First := TTiffGraphic.Create;
+ iGraphic_sec := TTiffGraphic.Create;
+ //iGraphic := TTiffGraphic.Create;
+ try
+ iGraphic_First.Assign(pScanInfo^.Graphic);
+ //Application.ProcessMessages;
+ if CheckNeedCrop(iGraphic_First) Then
+ begin
+ iRect.Left := pScanInfo^.Graphic.Width div 2; //先取左邊的影像
+ iRect.Top := 0;
+ iRect.Right := pScanInfo^.Graphic.Width;
+ iRect.Bottom := pScanInfo^.Graphic.Height;
+ CropImg(iGraphic_First,iRect);
+
+ iGraphic_Sec.Assign(pScanInfo^.Graphic); //再取右邊的影像
+ iRect.Left := 0;
+ iRect.Top := 0;
+ iRect.Right := pScanInfo^.Graphic.Width div 2;
+ iRect.Bottom := pScanInfo^.Graphic.Height;
+ CropImg(iGraphic_Sec,iRect);
+ end;
+ //iGraphic.Assign(iGraphic_First);
+ iGraphic := iGraphic_First;
+
+ if iGraphic.ImageFormat=ifGray256 then //20180104
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+ if iGraphic.ImageFormat=ifTrueColor then //20180104
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+
+//ShowMessage('WTF');
+ while not iGraphic.IsEmpty do
+ begin
+ //Application.ProcessMessages;
+ IF (not DeviceDelete) or (not Deletepage(iGraphic,DeviceDeleteSize)) Then
+ begin
+ ImageScrollBox1.Graphic.Assign(iGraphic);
+ ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
+ For i := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If MpsBarcodeinf.r180[i] <> 0 Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[i]);
+ Break;
+ End;
+ End;
+
+ if iGraphic.ImageFormat=ifGray256 then //20180104 因此旋轉後變為回packbits 所以要改為jpeg
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+ if iGraphic.ImageFormat=ifTrueColor then
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+ PageEnd;
+ IF PEFileName <> '' Then
+ begin
+ IF LowerCase(ExtractFileExt(PEFileName)) = '.tif' Then
+ begin
+ if FileExists( PEFileName ) then
+ SaveStream := TFileStream.Create( PEFileName ,fmOpenReadWrite)
+ Else
+ SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ try
+ SaveStream.Seek(0, soFromBeginning);
+ iGraphic.AppendToStream(SaveStream);
+ finally
+ SaveStream.Free;
+ end;
+ end
+ Else IF LowerCase(ExtractFileExt(PEFileName)) = '.jpg' Then
+ begin
+ if FileExists( PEFileName ) then
+ DeleteFile(PEFileName);
+ //SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ JpgGr := TJpegGraphic.Create;
+ try
+ JpgGr.Assign(iGraphic);
+ JpgGr.SaveQuality := FJpgCompression;
+ //JpgGr.AppendToStream(SaveStream);
+ JpgGr.SaveToFile(PEFileName);
+ finally
+ JpgGr.Free;
+ //SaveStream.Free;
+ end;
+ end;
+ PageDone;
+ end;
+ end;
+ if iGraphic = iGraphic_First then
+ iGraphic := iGraphic_Sec
+ else
+ iGraphic.Assign(nil);
+ //iGraphic.Assign(iGraphic_Sec);
+ end;
+ finally
+ //iGraphic.Free;
+ iGraphic_First.Free;
+ iGraphic_Sec.Free;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.PageDone;
+Var
+ ISB,NowISB : TImageScrollBox;
+begin
+ inc(Scaninfo.ImageCount);
+ case ScanMode of
+ smNew:
+ begin
+ if ScanImgShowMode = 0 then //清楚顯示
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.AntiAliased := True;
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end
+ Else if ScanImgShowMode = 1 then //模糊顯示
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.AntiAliased := False;
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end
+ Else if ScanImgShowMode = 1 then //不顯示
+ begin
+
+ end
+ end;
+ smReplace:
+ begin
+ DisplayISB.LoadFromFile(PEFileName,1);
+ end;
+ smInsert:
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end;
+ smSample:
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end;
+ smRTS:
+ begin
+
+ end;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PageEnd;
+Var
+ i,n : Integer;
+ SampleFormID : String;
+ DocNo,FormID,FormVersion : String;
+ BarStr : String;
+begin
+ case ScanMode of
+ smNew:
+ begin
+ ScanSaveFilename := '';
+ DocNo:='';
+ FormID:='';
+ FormVersion:='';
+ PEFileName := '';
+ //if not FindNoSaveBarCode then //沒有不儲存影像的條碼
+ //begin
+ if FormID = '' then
+ begin
+ FormID := BarCode2FormID; //取出FormID
+ end;
+
+ if (FormID <> '') and ISDivPageFormID(FormID) then
+ begin
+ NowDivPageFormID := FormID;
+ end;
+
+ if (FormID <> '') and ISGuideFormID(FormID) then
+ begin
+ NowGuideFormID := FormID;
+ end;
+//ShowMessage('NowGuideFormID='+NowGuideFormID);
+ if (not (FindDivFormCode(FormID))) and (NowGuideFormID <> '') {and (FormID = '')} then
+ FormID := NowGuideFormID;
+ DocNo := FormCode2DocNo(FormID);
+//ShowMessage('FormID='+FormID);
+//ShowMessage('ISDivPageFormID(FormID)='+BoolToStr(ISDivPageFormID(FormID),true));
+//ShowMessage('FindDivFormCode(FormID)='+BoolToStr(FindDivFormCode(FormID),true));
+//ShowMessage('A NowDivPageFormID='+NowDivPageFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
+ if (FormID <>'') and FindDivFormCode(FormID) and (NowDivPageFormID <> '') Then //只找分案頁上的案件條碼
+ begin
+
+ ScanInfo.ImageCount := 0;
+ ClearView(1);
+ ContextList.Clear;
+ Context_DocnoList.Clear;
+ ClearCaseIndex; //清掉案件索引
+ ScanCaseno := BarCode2CaseID; //取出案件編號
+ NowGuideFormID := '';
+ NowDivPageFormID :='';
+//ShowMessage('B NowGuideFormID='+NowGuideFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
+ end;
+ if ScanCaseno = '' then //一開始都沒找到
+ begin
+ ScanCaseno := GetNoNameCase(ImageSavePath);
+ end;
+ ImageSavePath := ImagePath;
+ if (ScanInfo.ImageCount = 0) then
+ begin
+ if DirectoryExists(ImageSavePath + ScanCaseno+'\') then
+ begin
+ _DelTree(ImageSavePath + ScanCaseno+'\');
+ SetCaseList('D',-1,ScanCaseno);
+ end;
+ end;
+
+ ScanPath := ImageSavePath+ScanCaseno+'\';
+ Str2Dir(ScanPath);
+
+ ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
+//ShowMessage('AA ScanDocDir='+ScanDocDir);
+
+//ShowMessage('BB ScanDocDir='+ScanDocDir);
+ if DocNoNeedDiv(DocNo)then //要分份數
+ begin
+ //Showmessage(DocNo+#13+FormCode2Page(FormID)+#13+inttostr(GetDocDir_Page(ScanCaseno,ScanDocDir))+#13+ScanDocDir);
+ if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
+ begin
+ //ScanInfo.ImageCount := 0;
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ end
+ Else //不分份數
+ begin
+ if DocNo <> '' then
+ ScanDocDir := DocNo
+ else //Attach 附件
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ //ScanDocDir := GetDocNoDir(ImageSavePath+ScanCaseno+'\',DocNo);
+ if FirstDocDir = '' then
+ FirstDocDir := ScanDocDir;
+
+ ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
+ //Showmessage(ScanPath);
+ if (not DirectoryExists(ScanPath)) and (ScanDocdir <> AttName) then
+ begin
+ //Showmessage('ADD:'+ScanCaseno+','+ScanDocdir);
+ SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
+ end;
+ Str2Dir(ScanPath);
+
+
+ ScanSaveFilename := FormID;
+
+ Str2Dir(ScanPath);
+ if ScanSaveFilename = '' then //附件
+ ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+ext
+ //ScanSaveFilename:= Add_Zoo(ScanInfo.ImageCount+1,3)+ext
+ Else
+ ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+'_'+ScanSaveFilename+ext;
+ if not FindNoSaveBarCode then //沒有不儲存影像的條碼
+ begin
+ if ScanInfo.ImageCount = 0 then
+ begin
+ SetCaseList('A',-1,ScanCaseno);
+ WriteCaseIndex(ImageSavePath + ScanCaseno+'\'); //寫入案件索引
+ MyTreeNode1 := TreeView1.Items.AddChild(NewTreenode,ScanCaseno);
+ MyTreenode1.ImageIndex := 2;
+ MyTreenode1.SelectedIndex := 2;
+ Application.ProcessMessages;
+ end;
+
+ SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
+ //ContextList.Add(ScanSaveFilename);
+ //ContextList.SaveToFile(ScanPath+'Context.dat');
+
+ PEFileName := ScanPath+ScanSaveFilename;
+ end;
+ end;
+ smReplace:
+ begin
+ if ScanInfo.ImageCount = 0 then
+ begin
+ DeleteFile(ScanPath+ScanSaveFilename);
+ PEFileName := ScanPath+ScanSaveFilename;
+ end;
+ end;
+ smInsert:
+ begin
+ ScanSaveFilename := '';
+ FormID := BarCode2FormID; //取出FormID
+ if (FormID <> '') and ISGuideFormID(FormID) then //20170510 註解 因為DSCAN 會全擠在導引頁下
+ NowGuideFormID := FormID;
+ if (NowGuideFormID <> '') {and (FormID = '')} then //20170510 註解 因為DSCAN 會全擠在導引頁下
+ FormID := NowGuideFormID;
+ DocNo := FormCode2DocNo(FormID);
+ ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
+
+ if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then //20180207 加入的特殊邏輯
+ begin
+ ScanDocDir := FindLastestDocDirForPage(ScanCaseno, DocNo,FormID);
+ end;
+
+ if (DocNoNeedDiv(DocNo)) then //要分份數
+ begin
+ if TreeView1.Selected = MyTreeNode1 then //20170421 掃瞄插頁時選則在案號上才要分份數 選在FormID上就不分份數
+ begin
+ if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
+ begin
+ ScanInfo.ImageCount := 0;
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ end;
+ end
+ Else //不分份數
+ begin
+ if DocNo <> '' then
+ ScanDocDir := DocNo
+ else //Attach 附件
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ if FirstDocDir = '' Then
+ FirstDocDir := ScanDocDir;
+
+ ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
+ if (not DirectoryExists(ScanPath)) and (ScanDocdir <> 'Attach') and (ScanDocdir <> 'S_Attach') then
+ SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
+
+
+ ScanSaveFilename := FormID;
+ Str2Dir(ScanPath);
+ if ScanSaveFilename = '' then //附件
+ ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+ext
+ Else
+ ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+'_'+ScanSaveFilename+ext;
+ //ContextList.Add(ScanSaveFilename);
+ //ContextList.SaveToFile(ScanPath+'Context.dat');
+ SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
+ //Showmessage(ScanPath+ScanSaveFilename);
+ //Showmessage('Stop');
+ PEFileName := ScanPath+ScanSaveFilename;
+ end;
+ smSample:
+ begin
+ if ScanInfo.ImageCount = 0 then
+ begin
+ DeleteFile(ScanPath+ScanSaveFilename);
+ PEFileName := ScanPath+ScanSaveFilename;
+ BarStr := '';
+ for i := 1 to MpsBarCodeinf.Count do
+ begin
+ BarStr := BarStr + MpsBarCodeinf.Text[i];
+ end;
+ Showmessage(_Msg('辨識到的BarCode:')+#13+BarStr);
+ end;
+ end;
+ smRTS:
+ begin
+
+ end;
+ end;
+ Application.ProcessMessages;
+
+end;
+
+
+procedure TCB_IMGPSScanX.ExportBtClick(Sender: TObject);
+var
+ SendData : String;
+ EnCodeDateTime : String;
+ S : TStringlist;
+ SFileName,VFileName : String;
+begin
+ SFileName := En_DecryptionStr_Base64('E','MPSLIC_SCAN.lic','9338430');
+ VFileName := En_DecryptionStr_Base64('E','MPSLIC_VIEW.lic','9338430');
+ IIS_File2Web.S_LicEnName := SFileName;
+ IIS_File2Web.V_LicEnName := VFileName;
+
+ /////下載MPSLIC_SCAN.lic //////
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
+
+ //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_SCAN.lic'+'&mode=sample';
+ //if not dnFile(HTTPSClient,Furl,'servlet/CWC03',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Exit;
+ end;
+ /////下載MPSLIC_SCAN.lic /////
+
+ /////下載MPSLIC_VIEW.lic //////
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_VIEW.lic'+'&mode=sample'; //這裡改成必傳CW 20121212
+ //if not dnFile(HTTPSClient,Furl,'service/slic/SLIC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_VIEW.lic';
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Exit;
+ end;
+ /////下載MPSLIC_VIEW.lic /////
+
+ ////壓zip/////
+ S := TStringlist.Create;
+ try
+ S.Add(En_DecryptionStr_Base64('E',GetDate,'9338430'));
+ S.Add(SFileName);
+ S.Add(VFileName);
+ S.SaveToFile(LngPath+'mps.dat');
+ S.Clear;
+ S.Add(LngPath+'mps.dat');
+ S.Add(LngPath+SFileName);
+ S.Add(LngPath+VFileName);
+ if FileExists(LngPath+'mps.zip') then
+ DeleteFile(LngPath+'mps.zip');
+ ExecuteZip_Pwd(LngPath+'mps.zip',LngPath,S,False,False,'9338430');
+
+ finally
+ S.Free;
+ DeleteFile(LngPath+SFileName);
+ DeleteFile(LngPath+VFileName);
+ DeleteFile(LngPath+'mps.dat');
+ end;
+ ////壓zip//////
+ Showmessage(_Msg('匯出完成,匯出檔案:')+LngPath+'mps.zip');
+end;
+
+procedure TCB_IMGPSScanX.ImportBtClick(Sender: TObject);
+var
+ SendData : String;
+ EnCodeDateTime : String;
+ S : TStringlist;
+ SFileName,VFileName : String;
+ OpenDialog1 : TOpenDialog;
+ ZipPath : String;
+ ZipFile,ZipName : String;
+ LicName : String;
+ i : Integer;
+begin
+ OpenDialog1 := TOpenDialog.Create(self);
+ S := TStringlist.Create;
+ try
+ OpenDialog1.Filter := 'Zip files (*.zip)|*.ZIP';
+ if OpenDialog1.Execute then
+ begin
+ ZipFile:= ExtractFileName(OpenDialog1.FileName);
+ ZipName := Copy(ZipFile,1,length(ZipFile)-length(ExtractFileExt(OpenDialog1.FileName)));
+ ZipPath := LngPath+ZipName+'\';
+
+ str2dir(ZipPath);
+ if not ExecuteUnZip_Pwd(OpenDialog1.FileName,ZipPath,False,'9338430') then
+ Showmessage(_Msg('無法解壓縮'));
+ if not FileExists(ZipPath+'mps.dat') then
+ begin
+ Showmessage(_Msg('格式不符,無法匯入'));
+ Exit;
+ end;
+ S.LoadFromFile(ZipPath+'mps.dat');
+ if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then
+ begin
+ Showmessage(_Msg('檔案過期,無法匯入'));
+ Exit;
+ end;
+
+ for i := 1 to S.Count -1 do
+ begin
+ LicName := En_DecryptionStr_Base64('D',S.Strings[i],'9338430');
+ RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);
+ if (LicName = 'MPSLIC_SCAN.lic') or (LicName = 'MPSLIC_VIEW.lic') then
+
+ /////上傳MPSLICXXXX.lic ////
+ //if not upFile(HTTPSClient,FUrl,'servlet/CWC04','formid='+LicName+'@workno=CW@mode=sample','file',ZipPath+LicName,FReWrite,Memo1,False) then
+ //begin
+ SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file_name='+LicName;
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',ZipPath+LicName,FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+ /////上傳MPSLICXXXX.lic /////
+ end;
+ end;
+ Finally
+ OpenDialog1.Free;
+ S.Free;
+ _DelTree(ZipPath);
+ end;
+ Showmessage(_Msg('匯入完成'));
+end;
+
+procedure TCB_IMGPSScanX.HotKeyDown (var Msg : TMessage);
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.InitialLanguage(Sender: TObject);
+var
+ ini : Tmeminifile;
+ i,n : Integer;
+ FormName : String;
+ NowForm : TComponent;
+begin
+ if Sender is TActiveForm then
+ NowForm := TActiveForm(Sender);
+ if Sender is TForm then
+ NowForm := TForm(Sender);
+
+ FormName := NowForm.Name;
+ IISUnit.IIS_LngfileName := LngPath+'Language.Lng'; //給IISUnit 轉多國語言字串用
+ if FLanguage = '' then
+ FLanguage := 'zh_tw';
+ IISUnit.IIS_NowLng := FLanguage;
+ ini := TMeminifile.Create(LngPath+'Language.Lng');
+ try
+ IF NowForm is TForm Then
+ TForm(NowForm).Caption := ini.ReadString(FLanguage,FormName+'.FormTitle','');
+ for i := 0 to NowForm.ComponentCount - 1 do
+ begin
+//ShowMessage(NowForm.Components[i].Name);
+ if NowForm.Components[i] is TButton then
+ begin
+ TButton(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TButton(NowForm.Components[i]).Name,'');
+ //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
+ //TButton(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
+ end
+ Else if NowForm.Components[i] is TBitBtn then
+ begin
+ TBitBtn(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TBitBtn(NowForm.Components[i]).Name,'');
+ //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
+ TBitBtn(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
+ end
+ Else if NowForm.Components[i] is TMenuItem then
+ begin
+ if ini.ValueExists(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name) then
+ TMenuItem(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TCheckBox then
+ begin
+ TCheckBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TCheckBox(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TPJMenuSpeedButton then
+ begin
+ TPJMenuSpeedButton(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TPJMenuSpeedButton(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TLabel then
+ begin
+ TLabel(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TLabel(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TGroupBox then
+ begin
+ TGroupBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TGroupBox(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TListView then
+ begin
+ for n := 0 to TListView(NowForm.Components[i]).Columns.Count - 1 do
+ begin
+ TListView(NowForm.Components[i]).Columns.Items[n].Caption := ini.ReadString(FLanguage,FormName+'.'+TListView(NowForm.Components[i]).Name+'_'+inttostr(n),'');
+ end;
+ end
+ Else if NowForm.Components[i] is TRadioGroup then
+ begin
+ TRadioGroup(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name,'');
+ for n := 0 to TRadioGroup(NowForm.Components[i]).Items.Count - 1 do
+ begin
+ TRadioGroup(NowForm.Components[i]).Items.Strings[n] := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name+'_'+inttostr(n),'');
+ end;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+end;
+
+function TCB_IMGPSScanX.GetSiteOMR(FileName,Site:String;bt: Integer): Integer;
+var
+ OMRRect : TRect;
+ Xdpi,Ydpi : Integer;
+ W,H : Integer;
+begin
+ Result := 0;
+//ShowMessage('GetSiteOMR');
+
+ IF (ImageScrollBox1.FileName <> FileName) and (FileName <> '') then
+ begin
+//ShowMessage('11111'+ImageScrollBox1.FileName+#10#13+FileName);
+ ImageScrollBox1.LoadFromFile(FileName,1);
+{
+ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
+'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
+'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
+'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
+ FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');
+ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
+'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
+'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
+'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
+}
+ ClearLine(ISB_BW.Graphic,bt);
+ ISB_BW.Redraw(True);
+ Application.ProcessMessages;
+ end;
+ If ImageScrollBox1.FileName <> '' Then
+ begin
+
+//ShowMessage('22222'+ImageScrollBox1.FileName);
+ Xdpi := ImagescrollBox1.Graphic.XDotsPerInch;
+ Ydpi := ImagescrollBox1.Graphic.YDotsPerInch;
+ H := ImageScrollBox1.Graphic.Height;
+ W := ImageScrollBox1.Graphic.Width;
+//ShowMessage('Xdpi='+IntToStr(Xdpi)+#10#13+'Ydpi='+IntToStr(Ydpi)+#10#13+'H='+IntToStr(H)+#10#13+'W='+IntToStr(W)+#10#13);
+//ShowMessage('Site='+Site);
+ OMRRect := CM_Str2Rect(Site,Xdpi,UpLPoint);
+Display1.Lines.Add('UpLPoint=('+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+');'+Site+';'+IntToStr(OMRRect.Left)+','+IntToStr(OMRRect.top)+','+IntToStr(OMRRect.Right)+','+IntToStr(OMRRect.Bottom));
+ if OMRRect.Left < 0 then
+ OMRRect.Left := 0;
+ if OMRRect.Top < 0 then
+ OMRRect.Top := 0;
+ if OMRRect.Right > ImageScrollBox1.Graphic.Width then
+ OMRRect.Right := ImageScrollBox1.Graphic.Width;
+ if OMRRect.Bottom > ImageScrollBox1.Graphic.Height then
+ OMRRect.Bottom := ImageScrollBox1.Graphic.Height;
+
+ result := Get_OMR(ISB_BW.Graphic,OMRRect);
+//ShowMessage('result='+IntToStr(result));
+
+ end;
+end;
+
+Function TCB_IMGPSScanX.FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示
+var
+ i,n : Integer;
+ ISB : TImageScrollBox;
+begin
+ case Vmode of
+ 0 : n := 1;
+ 1 : n := 2;
+ 2 : n := 4;
+ 3 : n := 6;
+ 4 : n := 8;
+ end;
+ for i := 1 to 8 do
+ begin
+ if i > n then Break;
+ ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
+ if (i = n) and (ISB.FileName <> '') then
+ begin
+ clearView(i);
+ Result := ISB1;
+ end
+ Else if ISB.FileName = '' then
+ Result := ISB;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.R_W_Scanini(Mode:Char); //'R'讀取;'W'寫入
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(ScaniniPath+'FBScan.ini');
+ try
+ case Mode of
+ 'R':begin
+ DeviceDelete := ini.ReadBool('DeviceDelete','Mode',Def_DeviceDelete);
+ DeviceDeleteSize := ini.ReadInteger('DeviceDelete','Size_New',Def_DeviceDeleteSize);
+ ScannerReverse := ini.ReadBool('Scanner','Reverse',Def_ScannerReverse);
+ BoardClear := ini.ReadBool('Scanner','BoardClear',Def_BoardClear);
+ //ScanDpi := ini.ReadInteger('Scanner','Dpi',Def_ScanDpi);
+ //ScanDuplex := ini.ReadBool('Scanner','Duplex',Def_ScanDuplex);
+ ScanRotate := ini.ReadInteger('Scanner','ScanRotate',Def_ScanRotate);
+ ScanDeskew := ini.ReadBool('Scanner','ScanDeskew',Def_ScanDeskew);
+ ScanBright := ini.ReadInteger('Scanner','ScanBright',Def_ScanBright);
+ ScanContrast := ini.ReadInteger('Scanner','ScanContrast',Def_ScanContrast);
+ ScanImgShowMode := ini.ReadInteger('Scanner','ScanImgShowMode',Def_ScanImgShowMode);
+ ScanImgSetUse := ini.ReadBool('Scanner','ScanImgSetUse',Def_ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
+ end;
+ 'W':begin
+ ini.WriteBool('DeviceDelete','Mode',DeviceDelete);
+ ini.WriteInteger('DeviceDelete','Size_New',DeviceDeleteSize);
+ ini.WriteBool('Scanner','Reverse',ScannerReverse);
+ ini.WriteBool('Scanner','BoardClear',BoardClear);
+ //ini.ReadInteger('Scanner','Dpi',ScanDpi);
+ //ini.WriteBool('Scanner','Duplex',ScanDuplex);
+ ini.WriteInteger('Scanner','ScanRotate',ScanRotate);
+ ini.WriteBool('Scanner','ScanDeskew',ScanDeskew);
+ ini.WriteInteger('Scanner','ScanBright',ScanBright);
+ ini.WriteInteger('Scanner','ScanContrast',ScanContrast);
+ ini.WriteInteger('Scanner','ScanImgShowMode',ScanImgShowMode);
+ ini.WriteBool('Scanner','ScanImgSetUse',ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
+ end;
+ end;
+
+ finally
+ ini.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.GetDefScanIni; //取得掃瞄的預設值
+var
+ i : Integer;
+ PARA_NO,PARA_CONTENT: String;
+begin
+ Def_DeviceDelete := True;
+ Def_DeviceDeleteSize := 3072; //20120821 改成3000(出現)
+ Def_ScannerReverse := False;
+ Def_BoardClear := False;
+ Def_ScanDpi := 300;
+ Def_ScanDuplex := True;
+ Def_ScanRotate := 0;
+ Def_ScanDeskew := False;
+ Def_ScanImgSetUse := False;
+ Def_ScanBright := 0;
+ Def_ScanContrast := 0;
+ Def_ScanImgShowMode := 2;
+
+ for i := 0 to WORK_INF_List.Count - 1 do
+ begin
+ IF GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_USE' Then //空白頁啟動
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_DeviceDelete := True
+ Else
+ Def_DeviceDelete := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_SIZE' Then //空白頁Size
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '' then
+ Def_DeviceDeleteSize := 0
+ Else
+ Def_DeviceDeleteSize := Strtoint(PARA_CONTENT);
+
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_REVERSE' Then //是否需反相
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScannerReverse := True
+ Else
+ Def_ScannerReverse := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BOARDCLEAR' Then //是否清黑邊
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_BoardClear := True
+ Else
+ Def_BoardClear := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DPI' Then //掃瞄DPI
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '' then
+ Def_ScanDpi := 300
+ else
+ Def_ScanDpi := Strtoint(PARA_CONTENT);
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DUPLEX' Then //是否雙面掃瞄
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScanDuplex := True
+ Else
+ Def_ScanDuplex := False;
+
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_ROTATE_MODE' Then //掃瞄時旋轉角度
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '0' then
+ Def_ScanRotate := 0
+ Else if PARA_CONTENT = '1' then
+ Def_ScanRotate := 270
+ Else if PARA_CONTENT = '2' then
+ Def_ScanRotate := 180
+ Else if PARA_CONTENT = '3' then
+ Def_ScanRotate := 90
+ Else
+ Def_ScanRotate := 0;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DESKEW' Then //是否傾斜矯正
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScanDeskew := True
+ Else
+ Def_ScanDeskew := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_IMGSET_USE' Then //是否使用亮度對比設定
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScanImgSetUse := True
+ else
+ Def_ScanImgSetUse := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BRIGHT' Then //亮度
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT ='' then
+ Def_ScanBright := 0
+ Else
+ Def_ScanBright := strtoint(PARA_CONTENT);
+ if (Def_ScanBright > 255) or (Def_ScanBright < -255) then
+ Def_ScanBright := 0;
+
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_CONTRAST' Then //對比
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT ='' then
+ Def_ScanContrast := 0
+ Else
+ Def_ScanContrast := strtoint(PARA_CONTENT);
+ if (Def_ScanContrast > 255) or (Def_ScanContrast < -255) then
+ Def_ScanContrast := 0;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_SHOW_MODE' Then
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '0' then
+ Def_ScanImgShowMode := 0
+ Else if PARA_CONTENT = '1' then
+ Def_ScanImgShowMode := 1
+ Else if PARA_CONTENT = '2' then
+ Def_ScanImgShowMode := 2
+ Else
+ Def_ScanImgShowMode := 0;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'CASE_IN_TIME' Then //取進件截止時間
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ ScanDenialTime := PARA_CONTENT;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_HINT' Then //掃描提示字串
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ ScanDenialHint := PARA_CONTENT;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'NO_SAVE_FORM_ID' Then //掃描不存檔之表單代號
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ NoSaveBarCodeList.CommaText := PARA_CONTENT;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'LOCAL_PATH' Then //本機端路徑
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ ImagePath:= PARA_CONTENT;
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'GUIDEFORMID' Then //當導引頁的表單
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ GuideFormIDList.CommaText := PARA_CONTENT;
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'DIVPAGEFORMID' Then //當分案頁的表單
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ DivPageFormIDList.CommaText := PARA_CONTENT;
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'FILE_COMPRESSION' Then //20171211 jpg to tif 壓縮比
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ FJpgCompression := StrToInt(PARA_CONTENT);
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'MAX_UPLOAD_SIZE' Then //取得 上傳大小的限制(MB)
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ FMaxUploadSize := PARA_CONTENT;
+ end;
+ end;
+ ScanDuplex := Def_ScanDuplex;
+end;
+
+procedure TCB_IMGPSScanX.HTTPSClientCertificateValidate(Sender: TObject;
+ X509Certificate: TElX509Certificate; var Validate: Boolean);
+begin
+ Validate := True;
+end;
+
+procedure TCB_IMGPSScanX.HTTPSClientRedirection(Sender: TObject;
+ const OldURL: string; var NewURL: string; var AllowRedirection: Boolean);
+begin
+ AllowRedirection := True;
+end;
+
+procedure TCB_IMGPSScanX.EnableImage(v:integer;Sender : TObject);
+var bmp : Tbitmap;
+begin
+ DesableImage;
+ bmp := TBitmap.Create;
+ try
+ ImageList3.GetBitmap(v,bmp);
+ TBitBtn(Sender).Glyph.Assign(bmp);
+ finally
+ bmp.Free;
+ end;
+ ViewMouseMode(v);
+end;
+
+procedure TCB_IMGPSScanX.DesableImage;
+var bmp : Tbitmap;
+ i : integer;
+begin
+ NowClick := -1;
+ bmp := Tbitmap.Create;
+ try
+ For i:= 0 to 6 do
+ begin
+ ImageList4.GetBitmap(i,bmp);
+ TBitBtn(FindComponent('FC'+IntToStr(i))).Glyph.Assign(bmp);
+ bmp.Width:=0;
+ bmp.Handle:=0;
+ end;
+ finally
+ bmp.Free;
+ end;
+ ViewMouseMode(NowClick);
+end;
+
+Procedure TCB_IMGPSScanX.ViewMouseMode(v:Integer);
+var
+ i : Integer;
+ Md : TMouseMode;
+ ISB : TImageScrollBox;
+begin
+//ShowMessage(IntToStr(v));
+ case v of
+ -1 : Md := TMouseMode(mmUser);
+ 0 : Md := TMouseMode(mmAmplifier);
+ 1 : Md := TMouseMode(mmZoom);
+ 2 : Md := TMouseMode(mmDrag);
+ 3 : Md := TMouseMode(mmR270);
+ 4 : Md := TMouseMode(mmR180);
+ 5 : Md := TMouseMode(mmR90);
+ 6 : Md := TMouseMode(mmDelete);
+ end;
+ for i := 1 to 8 do
+ begin
+ ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
+ ISB.MouseMode := TMouseMode(Md);
+ //Label3.Caption:='v='+IntToStr(v)+' time'+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.GoViewMode;
+begin
+ case VMode of
+ 0: DisplayMode(VMode,1,1,Panel9);
+ 1: DisplayMode(VMode,1,1,Panel9);
+ 2: DisplayMode(VMode,2,2,Panel9);
+ 3: DisplayMode(VMode,2,3,Panel9);
+ 4: DisplayMode(VMode,2,4,Panel9);
+ end;
+end;
+
+
+Procedure TCB_IMGPSScanX.DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel);
+Var
+ W,H,T,L:Integer;
+ i,n,Count: Integer;
+ Pl :TPanel;
+ bmp : TBitmap;
+begin
+ for i := 1 to 8 do
+ begin
+ TPanel(Findcomponent('imgp'+inttostr(i))).Visible := False;
+ end;
+ W := Round((BasePanel.Width - ((W_Count+1) * Seg)) / W_Count);
+ H := Round((BasePanel.Height -((H_Count+1) * Seg)) / H_Count);
+ Count := 1;
+ for i := 1 to H_Count do
+ begin
+ T := i * Seg + H * (i-1);
+ for n := 1 to W_Count do
+ begin
+ L := n * Seg + W * (n-1);
+ Pl := TPanel(Findcomponent('imgp'+inttostr(Count)));
+ Pl.Visible := True;
+ Pl.Left := L;
+ Pl.Top := T;
+ Pl.Width := W;
+ Pl.Height := H;
+ inc(Count);
+ end;
+ end;
+ Shape1.Width := W + (Seg * 2);
+ Shape1.Height := H + (Seg * 2);
+ Shape1.Visible := True;
+
+
+ bmp := Tbitmap.Create;
+ try
+ ImageList2.GetBitmap(index,bmp);
+ ViewModeBtn.Glyph.Assign(bmp);
+ finally
+ bmp.Free;
+ end;
+ ISB1Click(ISB1);
+end;
+
+Function TCB_IMGPSScanX.GetServerDate : Boolean;
+begin
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/servertimeforocx','',FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ ServerDate := memo1.Lines.Strings[1];
+ ServerTime := Copy(ServerDate,9,6);
+ ServerDate := Copy(ServerDate,1,8);
+ Balance := GetBalance(ServerTime); //Server 跟Local的時間差
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.GetSampleInf : Boolean;
+var
+ str:String;
+begin
+ Result := False;
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/serversampleforocx','work_no='+FWork_no,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ str := memo1.Lines.Strings[1];
+ SampleFormIDList.CommaText:=str;
+
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.GetSetInf1 : Boolean; //取系統設定資訊Mode1 DOC_INF
+Var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM DOC_INF WHERE WORK_NO = '%s' ORDER BY DOC_TYPE, DOC_NO, DOC_VERSION"
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
+ ColumeStr := 'WORK_NO,DOC_NO,DOC_U_DESC,DOC_TYPE,DOC_VERSION,FORM_PAGES,START_DATE,STOP_DATE,IS_DOC_DIV,IS_IN_WH';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=1&col='+Doc_Inf_Colume+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=1&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,Doc_Inf_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetSetInf2 : Boolean; //取系統設定資訊Mode2 DM_FORM_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM DM_FORM_INF
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'WORK_NO,MAIN_FORM_ID,DOC_VERSION,DEPE_FORM_ID,MUTEX_FORM_ID';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=2&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=2&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,DM_FORM_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT distinct %s FROM FORM_INF T1 LEFT JOIN DOC_INF T2 ON T2.DOC_NO = T1.DOC_NO AND T1.DOC_VERSION = T2.DOC_VERSION AND T1.WORK_NO = T2.WORK_NO WHERE T2.IS_USE = 'Y' AND T2.WORK_NO = %s
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ //ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_KIND,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.MERGE_IMAGE,T1.CC_FORM_ID,T1.CC_MERGE_FORMID,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
+ ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.IS_PRINT,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=3&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=3&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,FORM_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM CHECK_RULE_INF WHERE CHECK_TYPE = 'S'
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'WORK_NO,CHECK_NO,CHECK_RULE_DESC,MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=4&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=4&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,CHECK_RULE_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ CheckRule2OMRErrInfo;
+end;
+
+Function TCB_IMGPSScanX.GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF
+ var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM MEMO_INF T1 LEFT JOIN MEMO_TYPE_INF T2 ON T2.MEMO_TYPE_NO = T1.MEMO_TYPE WHERE T1.MEMO_SOURCE = '01'
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'T1.WORK_NO,T1.MEMO_TYPE,T1.MEMO_CONTENT,T2.MEMO_TYPE_NAME';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=5&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,MEMO_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetSetInf6 : Boolean; //取系統設定資訊mode5 WORK_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM WORK_INF
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'WORK_NO,PARA_NO,PARA_CONTENT';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=6&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,WORK_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetSetInf7 : Boolean; //取系統設定資訊mode5 LASTEST_FORM_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT FORM_ID,DOC_NO,DOC_VERSION FROM FORM_INF WHERE (DOC_NO,DOC_VERSION) in (SELECT DOC_NO, MAX(DOC_VERSION) FROM FORM_INF GROUP BY DOC_NO) ORDER BY DOC_NO
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'FORM_ID,DOC_NO';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=7&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,LASTEST_FORM_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡 20130403增加
+var
+ i : Integer;
+begin
+ for i := 1 to FORM_INF_List.Count-1 do
+ begin
+ FormID_List.Add(GetSQLData(FORM_INF_List,'T1.FORM_ID',i));
+ DocNo_List.Add(GetSQLData(FORM_INF_List,'T1.DOC_NO',i));
+ end;
+
+end;
+
+Procedure TCB_IMGPSScanX.SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+var
+ i : Integer;
+begin
+ for i := 1 to Doc_Inf_List.Count - 1 do
+ begin
+
+ if GetSQLData(Doc_Inf_List,'IS_IN_WH',i) = 'Y' then
+ IN_WH_DocNoList.Add(GetSQLData(Doc_Inf_List,'DOC_NO',i));
+ end;
+ {Showmessage(IN_WH_DocNoList.Text);
+ StringtoFile(IN_WH_DocNoList.Text,'D:\121.txt');}
+end;
+
+function TCB_IMGPSScanX.CheckRequiredColumnValues(workno, caseno:String): Boolean;
+begin
+//
+ Result:=False;
+ if (workno='HLN') and (caseno[9]='3') then
+ Result:=True;
+ if (workno='HLN') and (caseno[9]='4') then
+ Result:=True;
+end;
+
+Procedure TCB_IMGPSScanX.CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record
+var i : Integer;
+ CheckNo : String;
+begin
+ for I := 1 to 11 do
+ begin
+ CheckNo := Add_Zoo(i,3);
+
+ if FindSQLData(CHECK_RULE_INF_List,'MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE','CHECK_NO',CheckNo,0,FindResult) then
+ begin
+ if GetFindResult('MESG_SHOW_TYPE') = '1' then
+ OMRErrInfo[i].Display := True //顯示
+ Else if GetFindResult('MESG_SHOW_TYPE') = '2' then
+ OMRErrInfo[i].Display := False; //不顯示
+
+ if GetFindResult('MESG_DISP_TYPE') = '1' then
+ OMRErrInfo[i].Ignore := True //可忽略
+ Else if GetFindResult('MESG_DISP_TYPE') = '2' then
+ OMRErrInfo[i].Ignore := False; //不可忽略
+
+ OMRErrInfo[i].Info := GetFindResult('CHECK_MESG');
+ OMRErrInfo[i].Mode := GetFindResult('SCAN_MODE');
+ end;
+ end;
+end;
+
+
+
+Procedure TCB_IMGPSScanX.ReNameContext(Path,OldName,NewName:String);
+var
+ i : Integer;
+begin
+ for i := 0 to ContextList.Count - 1 do
+ begin
+ if OldName = ContextList.Strings[i] then
+ begin
+ ContextList.Strings[i] := NewName;
+ ContextList.SaveToFile(Path+'Context.dat');
+ Context_DocnoList.Strings[i] := FormCode2DocNo(FileName2FormCode(NewName));
+ Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
+ Break;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案 (無法得到DocDir用)
+var
+ i : Integer;
+ FileList:TStringlist;
+ DocDir : String;
+begin
+
+
+ DeleteFile(Path+FileName);
+ DocDir := Path2DocDir(Path,CaseID);
+//ShowMessage('DocDir='+DocDir);
+ SetContextList('D',-1,CaseID,DocDir,FileName);
+ {FileList:=TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ FileList.LoadFromFile(Path+'Context.dat');
+ for i := 0 to FileList.Count - 1 do
+ begin
+ if FileName = FileList.Strings[i] then
+ begin
+ FileList.Delete(i);
+ FileList.SaveToFile(Path+'Context.dat');
+ Break;
+ end;
+ end;
+ if FileList.Count = 0 then
+ DeleteFile(Path+'Context.dat');
+ finally
+ FileList.Free;
+ end;}
+end;
+
+Procedure TCB_IMGPSScanX.DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件
+var
+ i: Integer;
+ FileList : TStringlist;
+begin
+ FileList := TStringlist.Create;
+ try
+ FileList.Clear;
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+
+ for i := FileList.Count - 1 downto 0 do
+ begin
+ if FileName2FormCode(FileList.Strings[i]) = FormID then
+ begin
+ if (FMode = 'ESCAN') and (FModeName<>_Msg('異動件')) then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\'+DocDir+'\'+FileList.Strings[i]) then
+ begin
+ //ShowMessage('有圖為非當次掃瞄，不可刪除');
+ Break;
+ end;
+ end;
+//ShowMessage(FileList.Strings[i]);
+ DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);
+ end;
+ end;
+ finally
+ FileList.Free;
+ end;
+ ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');
+ {for i := ContextList.Count - 1 downto 0 do
+ begin
+ FName := ContextList.Strings[i];
+ if FormID = 'Err' then //刪未註冊文件
+ begin
+ If not FormIDExists(FileName2FormCode(FName),False,0) Then
+ begin
+ DeleteFile(Path+FName);
+ ContextList.Delete(i);
+ end;
+ end
+ Else
+ begin
+ If FormID = FileName2FormCode(FName) then
+ begin
+ DeleteFile(Path+FName);
+ ContextList.Delete(i);
+ end;
+ end;
+ end;
+ ContextList.SaveToFile(Path+'Context.dat');
+ ReSortFileName(Path); }
+end;
+
+Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件
+var
+ i: Integer;
+ FName : String;
+begin
+ Result := False;
+ for i := ContextList.Count - 1 downto 0 do
+ begin
+ FName := ContextList.Strings[i];
+ If DocNo = FormCode2DocNo(FileName2FormCode(FName)) then
+ begin
+ DeleteFile(Path+FName);
+ ContextList.Delete(i);
+ Context_DocnoList.Delete(i);
+ Result := True; //有刪到指定文件
+ end;
+ end;
+ ContextList.SaveToFile(Path+'Context.dat');
+ Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
+ ReSortFileName(Path);
+ ContextList.LoadFromFile(Path+'Context.dat');
+ Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
+ if FileExists(Path+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
+end;
+
+Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean; //刪除指定DocNo文件
+var
+ i,j,k: Integer;
+ FName : String;
+ ST1,ST2,ST3:TStringList;
+
+begin
+
+ Result := False;
+//ShowMessage(DocNo);
+ for i := ContextList.Count - 1 downto 0 do
+ begin
+ FName := ContextList.Strings[i];
+ If (DocNo = FormCode2DocNo(FileName2FormCode(FName))) or (DocNo=AttName) then
+ begin
+ if not ISExistImg(Path+'\'+FName) then
+ begin
+ DeleteFile(Path+'\'+FName);
+ ContextList.Delete(i);
+ end;
+ Result := True; //有刪到指定文件
+ end;
+ end;
+ ContextList.SaveToFile(Path+'\Context.dat');
+ ContextList.LoadFromFile(Path+'\Context.dat');
+
+ if ContextList.Count=0 then
+ begin
+ _DelTree(Path);
+ SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
+ end;
+
+end;
+
+Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //刪除顯示中的影像
+var
+ i : Integer;
+ DelFile : String;
+begin
+ for i := 0 to NowShowFileList.Count - 1 do
+ begin
+ DelFile := NowShowFileList.Strings[i];
+ DeleteFile(Path+DelFile);
+ SetContextList('D',-1,NowCaseno,NowDocNo,DelFile);
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數
+var
+ P : String;
+begin
+ Result := 0;
+ If FindSQLData(Doc_Inf_List,'FORM_PAGES','DOC_NO,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) Then
+ begin
+ P := GetFindResult('FORM_PAGES');
+ if P <> '' then
+ Result := strtoint(P)
+ else
+ Result := 0;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //取案件裡的文件_版本頁數
+var
+ i,n,Count : integer;
+ S, S2 : TStringlist;
+ FormCode,iPage : String;
+ docInt,tempInt:integer;
+ v,v2:integer;
+begin
+ Count := 0;
+ docInt:=0;
+ tempInt:=0;
+ S := TStringlist.Create;
+ S2 := TStringlist.Create;
+//ShowMessage('page='+IntToStr(Pages));
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+ S2.LoadFromFile(ImageSavePath+CaseID+'\upload\DocDir.dat'); //2017 1220 改成只承認第一份的
+
+ for I := 1 to pages do //從0到pages-1 改成 1到pages 20170316 這樣可以修改檢核的頁數問題
+ begin
+ iPage := Add_Zoo(i,2);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[n]) then
+ begin
+ Continue;
+ end;
+ end;
+
+ if (Length(S2.Strings[n])>8) and (Pos(DocNo,S2.Strings[n])<>0) then //2017 1220 改成只承認第一份的
+ begin
+//LogFile1.LogToFile(logTimeString+'有進'+docno+','+S2.Strings[n]+IntToStr(Pos(DocNo,S2.Strings[n])));
+ v:=Pos('(',S2.Strings[n]);
+ v2:=Pos(')',S2.Strings[n]);
+ tempInt:=StrToInt(Copy(S2.Strings[n],v+1,v2-v-1));
+
+ if docInt=0 then
+ begin
+ docInt:=tempInt;
+ end;
+ if docInt<>tempInt then
+ begin
+//LogFile1.LogToFile(logTimeString+'docInt='+IntToStr(docInt)+',tempInt='+IntToStr(tempInt));
+ Result := Count;
+ Break;
+ end;
+ end;
+
+ FormCode := FileName2FormCode(S.Strings[n]);
+//LogFile1.LogToFile(logTimeString+'S.Strings[n]='+S.Strings[n]);
+//Showmessage('1:'+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
+//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
+LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
+//ShowMessage(DocNo+','+IntToStr(docInt)+','+IntToStr(tempInt));
+//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
+ if (version = FormCode2Version(FormCode)) and (DocNo = FormCode2DocNo(FormCode)) and (ipage = FormCode2Page(FormCode)) then
+ begin
+LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
+//Showmessage(version+','+DocNo+',iPage='+iPage);
+//Showmessage(inttostr(Count+1));
+ Inc(Count);
+ Break; //找到了...離開
+ end;
+ end;
+ end;
+ finally
+ S.Free;
+ S2.free;
+ end;
+ Result := Count;
+end;
+
+Function TCB_IMGPSScanX.FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數
+var
+ i,Count : integer;
+ S : TStringlist;
+ iFormCode : String;
+begin
+ Count := 0;
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ iFormCode := FileName2FormCode(S.Strings[i]);
+ if FormCode = iFormCode then
+ begin
+ Inc(Count);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+ Result := Count;
+end;
+
+Function TCB_IMGPSScanX.GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數
+begin
+ If FindSQLData(FORM_INF_List,'T1.MAX_PAGE','T1.FORM_ID',FormCode,0,FindResult) Then
+ begin
+ IF GetFindResult('T1.MAX_PAGE') = '' Then
+ Result := 9999
+ Else
+ Result := Strtoint(GetFindResult('T1.MAX_PAGE'));
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CaseReSize(CaseID:String); //案件的影像縮放
+var
+ S : TStringlist;
+ FileName : String;
+ i : Integer;
+begin
+ {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
+ if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');
+ For i := 0 to S.Count -1 do
+ begin
+ FileName := S.Strings[i];
+ ImageReSize_FormID(CaseID,FileName); //依十字定位點做縮放
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放
+var
+ FormID : String;
+ DH,DW : String;
+ NowW,NowH : Integer;
+ ANCHOR : String; //是否有十字線
+ SizeStr : String;
+ S : TStringlist;
+ v,v1:Integer;
+ IsRecordMD5:Boolean;
+begin
+ IsRecordMD5:=False;
+ FormID := FileName2FormCode(FileName);
+ if FormID = '' then Exit;
+
+ IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
+ begin
+ DH := GetFindResult('T1.FORM_HEIGHT');
+ DW := GetFindResult('T1.FORM_WIDTH');
+ ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
+ ANCHOR := Index2Anchor(ANCHOR);
+Display1.Lines.Add(FormID+','+DH+','+DW);
+//ShowMessage('AAAAAAAAA');
+ if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
+ begin
+//ShowMessage('BBBBBBB');
+ ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);
+
+ if (FWH_category='N') and ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName) then
+ begin
+ Exit;//20171103 補件 原有的圖不作resize
+ end;
+
+ //FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH);
+ FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
+
+ SizeStr := CheckSize(ISB_BW,UpLPoint,UpRPoint,DownLPoint,DW,DH);
+ ImageResize(ImageScrollBox1.Graphic,ISB_BW.Graphic.Width,ISB_BW.Graphic.Height);
+
+ FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
+ v := 5;
+ v1 := length(SizeStr);
+ IF (SizeStr <> '') and (Copy(SizeStr,1,v) <> 'ERROR') then
+ begin
+//ShowMessage('CCCCC');
+ if (ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName)) and (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName))=-1) then
+ begin
+ IsRecordMD5:=True;
+ end;
+ ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);
+ if IsRecordMD5 then
+ begin
+ reSizeExistImgList.add(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName));
+ end;
+//showmessage(ImageSavePath+CaseID+'\Upload\'+FileName);
+ S := TStringlist.Create; ///20110422拿掉 換成上傳才做
+ if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then
+ S.LoadFromFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
+ //S.Add(FormCode2FormName(FormID)+' '+SizeStr);
+ S.Add(FileName+','+SizeStr+#8+DateTimetoStr(Now));
+ S.SaveToFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
+ S.Free;
+ end;
+ if (Copy(SizeStr,1,v) = 'ERROR') then //未找到三個定位點
+ begin
+ S := TStringlist.Create;
+ if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
+ S.LoadFromFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
+ S.Add(FileName+'-->'+Copy(SizeStr,V+1,V1-v));
+ S.SaveToFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
+ S.Free;
+ end;
+
+ ImageScrollBox1.FileName := '';
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔)
+var
+ DH,DW : String;
+ ANCHOR : String; //是否有十字線
+ SizeStr : String;
+ S : TStringlist;
+begin
+ IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
+ begin
+ DH := GetFindResult('T1.FORM_HEIGHT');
+ DW := GetFindResult('T1.FORM_WIDTH');
+ ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
+ ANCHOR := Index2Anchor(ANCHOR);
+ if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
+ begin
+ ImageScrollBox1.LoadFromFile(FileName,1);
+ SizeStr := CheckSize(ImageScrollBox1,UpLPoint,UpRPoint,DownLPoint,DW,DH);
+ IF SizeStr <> '' then
+ begin
+ ImageScrollBox1.SaveToFile(FileName);
+ end;
+ ImageScrollBox1.FileName := '';
+ end;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+begin
+ IF ImageScrollBox1.Graphic.Empty Then Exit;
+ ISB_BW.Graphic.Assign(ImageScrollBox1.Graphic);
+ If ImageScrollBox1.Graphic.ImageFormat <> ifBlackWhite Then
+ begin
+ ConvertToBW(ISB_BW.Graphic);
+ end;
+end;
+
+Function TCB_IMGPSScanX.TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件
+Var
+ i,n,v: Integer;
+ ZipFileList : TStringlist;
+ UpFormID:String;
+ pages : Integer;
+ TransName : String;
+ MaskPath : String;
+ HaveMask : Boolean;
+ S : String;
+ SendData:String;
+ Doc_Data,Doc_Data1 : String;
+ In_Doc1,In_Doc2 : String;
+ AttachYN : String; //是否有附件 Y:有 N:沒有
+
+ ST1,ST2,ST3:TStringList;
+ str1,str2:String;
+ must_formidStr :string;
+ last_add_formidstr :string;
+ ScanListStr:String;
+ casepath:String;
+ filesizeInt:integer;
+ case_page:string;
+ Fname:String;
+ FileRec:TSearchrec;
+begin
+ Result := True;
+ TransName := CaseID;
+ MaskPath := Path+'MaskImg\';
+ if fileExists(Path+'Context.dat') then
+ begin
+ ContextList.LoadFromFile(Path+'Context.dat');
+ Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
+ end;
+
+ if FileExists(Path+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
+
+ Pages := ContextList.Count;
+ case_page:=IntToStr(pages);
+ if (FMode = 'NSCAN') or (FMode = 'ESCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'RSCAN') then
+ begin
+ //Showmessage('1');
+ UpformID := GetCaseFormID(Path);
+ {if UpformID = '' then //20131213 yuu說不管主form
+ begin
+ Showmessage(_msg('取不到主FormID!!'));
+ Result := False;
+ DataLoading(False,False);
+ Exit;
+ end;}
+ end;
+
+ CaseResort2Scanlist(Path); //檔名照設定排序產生scanlist.dat
+ //CaseResort(Path); //檔名照設定排序
+ CreateFormID_FormName(Path,CaseID); //產生FormID_FormName.dat
+ CreateDocNo_DocName(Path,CaseID); //產生DocNo_Name.dat
+ Doc_Data := CreateDocNo_Info(CaseID); //產生保管袋文件 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
+ Doc_Data1 := CreateCustDocNo_Info(CaseID); //產生自定文件 Docname,份數,頁數;Docno,份數,頁數 的回傳字串
+ In_Doc1 := CreateDocnoFrom_Info(CaseID); //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+ In_Doc2 := CreateCustDocNoFrom_Info(CaseID); //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+ AttachYN := CreateAttach_Info(CaseID); //是否還有附件 Y:有 N:沒有
+ ReadCaseIndex(Path);
+ //LoanDoc := 'Y';
+ //產生遮罩影像
+// if FWork_No = 'CW' then
+// HaveMask := Case2Mask(Path,MaskPath);
+ //產生遮罩影像
+ // S := S +#13+'5-->'+ Timetostr(now);
+
+ ///////必要formid 20170315 start //////////////////////////////
+ must_formidStr:='';
+ last_add_formidstr:='';
+ ST1:=TStringList.Create;
+ ST1.LoadFromFile(path+'FormCode_Name.dat');
+//ShowMessage(ST1.Text);
+//ShowMessage(LastInitFormidList.Text);
+ ST2:=TStringList.Create;
+ ST3:=TStringlist.Create;
+
+ for I := 0 to ST1.Count - 1 do
+ begin
+ if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
+ begin
+ str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
+ ST2.Add(str1);
+ must_formidStr:= must_formidStr+str1+'@#,';
+ end;
+ end;
+ must_formidStr:=Copy(must_formidStr,1,Length(must_formidStr)-3) ;
+//ShowMessage('must_formidStr='+must_formidStr);
+//ShowMessage('AST2='+ST2.Text);
+
+
+ for I := 0 to LastInitFormidList.Count - 1 do
+ begin
+ if ST2.IndexOf(LastInitFormidList.Strings[i]) <> -1 then
+ begin
+ ST2.Delete(ST2.IndexOf(LastInitFormidList.Strings[i]));
+ end;
+ end;
+//ShowMessage('BST2='+ST2.Text);
+ for I := 0 to ST2.Count - 1 do
+ begin
+ last_add_formidstr:=last_add_formidstr+ST2.Strings[i]+'@#,';
+ end;
+ last_add_formidstr:=Copy(last_add_formidstr,1,Length(last_add_formidstr)-3) ;
+
+ ST3.LoadFromFile(path+'scanlist.dat');
+ for I := 0 to ST3.Count - 1 do
+ begin
+ if ScanListStr = '' then
+ ScanListStr := FileName2FormCode(ST3.Strings[i])
+ else
+ ScanListStr := Format('%s,%s',[ScanListStr,FileName2FormCode(ST3.Strings[i])]);
+ end;
+
+ ST1.Free;
+ ST2.Free;
+ ST3.Free;
+//ShowMessage('last_add_formidstr='+last_add_formidstr);
+ ///////必要formid 20170315 end //////////////////////////
+
+ ///保留外部影像 start///////////////////////////////
+ casepath:= Copy(Path,1,pos('Upload',path)-1);
+//ShowMessage('casepath='+casepath);
+//FIsExternal:='Y';
+ if (FMode='ESCAN') and (FIsExternal='Y') then
+ begin
+ if FileExists(casepath+'Download\FirstImg.zip') then
+ begin
+ CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);
+ end
+ else
+ begin
+ CopyFile(PWChar(casepath+'Download\'+CaseID+'.zip'),PWChar(path+'FirstImg.zip'),false);
+ end;
+ end;
+ ///保留外部影像 end///////////////////////////////
+
+ //file_size 計算 就先不做 20170316
+ filesizeInt:=0;
+
+
+ //////壓檔/////
+ ZipMainFile(Path,Path,'Img.zip');
+ if HaveMask then
+ ZipMaskFile(Path,MaskPath,Path,'MaskImg.zip'); //有遮罩設定的才產生
+ /////壓檔////
+ ///檢查上傳的zip大小////
+ FName :=Path+ 'Img.zip';
+
+ FindFirst(FName, faAnyfile, FileRec);
+
+ //FMaxUploadSize
+//ShowMessage(IntToStr(FileRec.Size));
+//Result:=False;
+//exit; //目前上傳檔案大小為xxMB，已超過50MB，無法上傳 %.3f ,[FileRec.Size / 1048576]
+ If FileRec.Size > StrtoInt(FMaxUploadSize) * 1048576 Then // 檢查檔案大小
+ Begin
+ ShowMessage(Format(_Msg('%s目前上傳檔案大小為%.3fMB，已超過%sMB，無法上傳'),[caseid,FileRec.Size / 1048576,FMaxUploadSize]));
+ //ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) );
+ FindClose(FileRec);
+ Result := False;
+ Exit;
+ End;
+ FindClose(FileRec);
+ ///檢查上傳的zip大小////
+//ShowMessage('last_add_formidstr='+last_add_formidstr);
+ if not GetftpInfo(CaseID,'upload') then //取案件上傳方式
+ begin
+ //Showmessage(_Msg()Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
+ DownFileErrStr := _Msg('取案件上傳資訊失敗!!')+HttpErrStr;
+ Result := False;
+ Exit;
+ end;
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))
+ +'&verify='+FVerify
+ +'&form_id='+UpformID
+ +'&loan_doc='+Case_loandoc
+ +'&case_no='+TransName
+ +'&doc_data='+HTTPEncode(UTF8Encode(Doc_Data))
+ +'&doc_data1='+HTTPEncode(UTF8Encode(Doc_Data1))
+ +'&attach='+AttachYN
+ +'&case_page='+case_page
+ +'&file_size='+IntToStr(filesizeInt)
+ +'&must_formid='+must_formidStr //擁有的 formid
+ +'&last_add_formid='+last_add_formidstr //當次新加的 formid
+ +'&form_code='+ScanListStr //scanlist.dat 表單代號
+ +'&ftp_image_path='+FFtpExtraPath //加傳FTP目錄 HTTP上傳時會是空白
+ +'&in_doc1='+HTTPEncode(UTF8Encode(In_Doc1))
+ +'&in_doc2='+HTTPEncode(UTF8Encode(In_Doc2));
+
+ case TransMode of
+ tsHttp :
+ begin
+ ////上傳/////
+ ShowText := CaseID+_Msg('資料上傳中(Http),請稍候');
+ DataLoading(True,True);
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then
+ begin
+ Showmessage(Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
+ Result := False;
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(Format(_Msg('')+_Msg(''),[CaseID])+memo1.Lines.Strings[1]+'。');
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(Format(_Msg('')+_Msg('')+_Msg('閒置過久或被登出,請重新登入'),[CaseID]));
+ Result := False;
+ Exit;
+ end;
+ ////上傳////
+ end;
+ tsFtp :
+ begin
+ ShowText := CaseID+_Msg('資料上傳中(Ftp),請稍候');
+ DataLoading(True,True);
+ SetFtpInfo;
+ try
+ if not IIS_Ftp.FtpsConnect then
+ begin
+ Showmessage(Format('無法連上Ftp主機,錯誤原因:%s',[FtpErrReason]));
+ Result := False;
+ Exit;
+ end;
+ if not IIS_Ftp.FtpsToMain(FFtpExtraPath,CaseID+'.zip',Path+'Img.zip',display1) then
+ begin
+ Showmessage(Format(_msg('上傳案件(%s)時,發生錯誤,錯誤原因:%s'),[CaseID,FtpErrStr]));
+ Result := False;
+ Exit;
+ end;
+
+ if not FtpCaseComplete(SendData) then //Ftp上傳後通知完成
+ begin
+ Showmessage(Format(_Msg('通知案件(%s)Ftp上傳完成時,發生錯誤!!'),[CaseID])+HttpErrStr);
+ Result := False;
+ Exit;
+ end;
+ finally
+ IIS_Ftp.FtpsClose;
+ end;
+ end;
+
+ end;
+
+
+ if FMode = 'ESCAN' then //上傳舊件引入檔案 //20140616 原本先搬舊件再搬新件,改為先搬新件再搬舊件
+ begin
+ if not TransOldCaseFile(ImageSavePath+CaseID+'\') then
+ begin
+ Result := False;
+ Exit;
+ end;
+ end;
+ // 呼叫Server完成 /////
+ {If not CaseComplete(Path,CaseID,MainCase) Then
+ begin
+ Showmessage(_Msg('通知案件傳送完成時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Result := False;
+ Exit;
+ end; }
+ /// 呼叫Server完成////
+
+ ////刪檔////
+ //_DelTree(Path); //會只刪TransPath
+//ShowMessage('STOP');
+ _DelTree(ImageSavePath+CaseID);
+ SetCaseList('D',-1,CaseID);
+ ////刪檔////
+end;
+
+Procedure TCB_IMGPSScanX.NewTreeNodeRefresh;
+var
+ v : Integer;
+begin
+ //v := Pos('-',NewTreeNode.Text);
+ //NewTreeNode.Text := Copy(NewTreeNode.Text,1,v-1)+'-共'+inttostr(NewTreeNode.Count)+'筆';
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+end;
+
+Procedure TCB_IMGPSScanX.MyTreeNode1Refresh;
+var
+ v : Integer;
+begin
+ v := Pos('-',MyTreeNode1.Text);
+ MyTreeNode1.Text := Format(_Msg('%s-%d筆'),[Copy(MyTreeNode1.Text,1,v-1),MyTreeNode1.Count]);
+end;
+
+Procedure TCB_IMGPSScanX.MyTreeNode2ReFresh(CaseID:String);
+var
+ P : Integer;
+begin
+ //p:= ContextList.Count;
+ //MytreeNode1.Text := Format(_Msg('%s-%d頁'),[CaseID,p]);
+ DrawDocItem2(MytreeNode1,CaseID);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
+end;
+
+Procedure TCB_IMGPSScanX.MyTreeNode3ReFresh(CaseID:String);
+begin
+
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID); //201408280改
+ DrawDocItem2(MytreeNode1,CaseID);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
+end;
+
+Function TCB_IMGPSScanX.Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來
+var
+ v,v1,v2 : Integer;
+begin
+ v := Posend('{',Node2.Text);
+ v1 := Posend('}',Node2.Text);
+ v2 := Posend('-',Node2.Text);
+ Result := Copy(Node2.Text,v+1,v1-v-1);
+ IF v1 = 0 Then
+ begin
+ Result := '';
+ end;
+end;
+
+Function TCB_IMGPSScanX.Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來
+var
+ v,v1,v2 : Integer;
+begin
+ v := Posend('{',Node3.Parent.Text);
+ v1 := Posend('}',Node3.Parent.Text);
+ v2 := Posend('-',Node3.Parent.Text);
+ Result := Copy(Node3.Parent.Text,v+1,v1-v-1);
+ IF v1 = 0 Then
+ begin
+ Result := '';
+ end;
+end;
+
+Function TCB_IMGPSScanX.Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來
+var
+ v,v1,v2 : Integer;
+begin
+ v := Pos('{',Node3.Text);
+ v1 := Pos('}',Node3.Text);
+ v2 := Posend('-',Node3.Text);
+ Result := Copy(Node3.Text,v+1,v1-v-1);
+ IF v1 = 0 Then
+ begin
+ Result := '';
+ end;
+end;
+
+
+Function TCB_IMGPSScanX.GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
+var
+ v : Integer;
+begin
+ v := Posend('-',Node2.Text);
+ Result := Copy(Node2.Text,1,v-1);
+end;
+
+{Function TCB_IMGPSScanX.Down_Replace_Img(SPath,DPath,CaseID:String):Boolean;
+var
+ EnCodeDateTime : String;
+ DownUrl : String;
+ SC,Main_C : TStringlist;
+ i,n : Integer;
+ FormID,DocNo,Version : String;
+ OldFName,NewMainFName,NewSubFName : String;
+ AttPath : String;
+begin
+ SC := TStringlist.Create;
+ Main_C := TStringlist.Create;
+ try
+ Result := True;
+ HaveAppDoc := False;
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ DownUrl := FUrl+CaseID+'&checktime='+EnCodeDateTime;
+ if not dnFile(HTTPSClient,DownUrl,'','',DPath+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if Memo1.Lines.Strings[0] = '1' then
+ begin
+ HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ AttPath := DPath + 'AttFile\';
+ if FileExists(DPath+CaseID+'.zip') then
+ begin
+ ExecuteUnZip(DPath+CaseID+'.zip',DPath,True);
+ if FileExists(DPath+'img.zip') then
+ begin
+ ExecuteUnZip(DPath+'img.zip',DPath,False);
+ end;
+ if FileExists(DPath+'att.zip') then
+ begin
+ Str2Dir(AttPath);
+ ExecuteUnZip(DPath+'att.zip',AttPath,False);
+ end;
+ end
+ Else
+ begin
+ if ((FMode = 'FSCAN') or (FMode = 'ISCAN')) and (Memo1.Lines.Strings[0] ='NO_FILE') then //FGIS前台匯入件沒有影像是對的
+ begin
+ SC.Clear;
+ SC.SaveToFile(DPath+'Context.dat');
+ end
+ Else
+ begin
+ HttpErrStr := _Msg('找不到影像');
+ Result := False;
+ Exit;
+ end;
+ end;
+
+
+ if FileExists(SPath+'Context.dat') then
+ SC.LoadFromFile(SPath+'Context.dat');
+ for I := 0 to SC.Count - 1 do
+ begin
+ FormID := FileName2FormCode(SC.Strings[i]);
+ DocNo := FormCode2DocNo(FormID);
+ Version := FormCode2Version(FormID);
+ If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
+ begin
+ if GetFindResult('ADD_SCAN_RULE') = 'R' then //替換的先刪再加 20101026 User由刪FormCode改刪DocNo
+ begin
+ //DeleteFormCodeFile(DPath,FormID);
+ ContextList.LoadFromFile(DPath+'Context.dat');
+ DeleteDocNoFile(DPath,DocNo);
+ end;
+ end;
+ end;
+ for I := 0 to SC.Count - 1 do //複製補充進來的影像
+ begin
+ OldFName := SC.Strings[i];
+ Main_C.LoadFromFile(DPath+'Context.dat');
+ //NewMainFName:= Add_Zoo(Main_C.Count+1,3)+Copy(OldFName,4,length(OldFName)-3);
+ NewMainFName:= Add_Zoo(Main_C.Count+1,3)+FileName2NoQuene_Filename(OldFName);
+ FormID := FileName2FormCode(OldFName);
+ DocNo := FormCode2DocNo(FormID);
+ Version := FormCode2Version(FormID);
+ If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
+ begin
+ CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
+ end;
+ if FormID = '' then //附件
+ begin
+ CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
+ end;
+ Main_C.Add(NewMainFName);
+ Main_C.SaveToFile(DPath+'Context.dat');
+ end;
+ finally
+ SC.Free;
+ Main_C.Free;
+ end;
+ ///加入的電子檔匯入案件裡
+ if DirectoryExists(SPath+'AttFile\') then
+ AttFile_Arrange(SPath+'AttFile\',DPath+'AttFile\');
+end;}
+
+Function TCB_IMGPSScanX.DownLoadImage(Path,CaseID:String):Boolean;
+begin
+ Result := True;
+ if not GetftpInfo(CaseID,'download') then //取案件下載方式
+ begin
+ DownFileErrStr := _Msg('取案件下載資訊失敗,')+HttpErrStr;
+ Result := False;
+ Exit;
+ end;
+ case TransMode of
+ tsHttp:
+ begin
+ ShowText := _Msg('案件下載中(Http),請稍候');
+ DataLoading(True,True);
+ If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
+ begin
+ Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+ tsFtp:
+ begin
+ ShowText := _Msg('案件下載中(Ftp),請稍候');
+ DataLoading(True,True);
+ SetFtpInfo;
+
+ if not IIS_Ftp.FtpsConnect then
+ begin
+ DownFileErrStr := Format(_Msg('無法連上Ftp主機,錯誤原因:%s')+#13+'%s',[FtpErrReason,FTPSClient1.LastReceivedReply]);
+ Result := False;
+ Exit;
+ end;
+ if not IIS_Ftp.FtpsDownloadFile(FFtpExtraPath,CaseID+'.zip',Path+CaseID+'.zip',display1) then
+ begin
+ DownFileErrStr := Format(_Msg('錯誤原因:%s'),[FtpErrStr]);
+ Result := False;
+ Exit;
+ end;
+ ExecuteUnZip(Path+CaseID+'.zip',Path,False);
+ DeleteFile(Path+CaseID+'.zip');
+ end;
+ end;
+end;
+
+
+Function TCB_IMGPSScanX.Down_Img(Path,CaseID:String):Boolean;
+var
+ EnCodeDateTime : String;
+ SendData : String;
+ AttPath : String;
+begin
+ Result := True;
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ///service/slic/SLIC04/case?data=&verify=&case_no=&file=
+ SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&file=';
+//ShowMessage(SendData);
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if Memo1.Lines.Strings[0] = '1' then
+ begin
+ HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1]+'。';
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+//ShowMessage('替換zip');
+ AttPath := Path + 'AttFile\';
+ if FileExists(Path+CaseID+'.zip') then
+ begin
+ ExecuteUnZip(Path+CaseID+'.zip',Path,True);
+ if FileExists(Path+'img.zip') then
+ begin
+ ExecuteUnZip(Path+'img.zip',Path,False);
+ end;
+ if FileExists(Path+'att.zip') then
+ begin
+ Str2Dir(AttPath);
+ ExecuteUnZip(Path+'att.zip',AttPath,False);
+ end;
+ end
+ Else
+ begin
+ HttpErrStr := _Msg('找不到影像');
+ Result := True;
+ Exit;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //取未配號XXXX
+var
+ i : Integer;
+begin
+ for i := 1 to 9999 do
+ begin
+ if Not DirectoryExists(Path+_Msg('未配號')+Add_Zoo(i,4)) then
+ begin
+ Result := _Msg('未配號')+Add_Zoo(i,4);
+ Break;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno排)
+var
+ i,n,v,v1 : Integer;
+ S,S1 : TStringlist;
+ FormID,OldName,NewName,DocNo,Doc_Type:String;
+ x : Integer;
+begin
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ X := 0;
+ {for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ if FormCode2FileName(FormID,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+
+ {for I := 0 to FORM_INF_List.Count - 1 do //次文件 照FormID 1~8碼+掃瞄順序排 20110512為了某個文件要先打的原因要求改
+ begin
+ for n := 0 to S.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ if (S.Strings[n][1] <> '*') and (Copy(FileName2FormCode(S.Strings[n]),1,8) = Copy(FormID,1,8)) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+ for I := 0 to Doc_Inf_List.Count - 1 do //主文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
+ begin
+ DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
+ if DocNo2FileName(DocNo,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='1') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+
+ for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
+ begin
+ DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
+ if DocNo2FileName(DocNo,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+ {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for i := 0 to FORM_INF_List.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+ for i := 0 to S.Count - 1 do //FormID沒設定的或附件
+ begin
+ if S.Strings[i][1] <> '*' then
+ begin
+ Inc(X);
+ OldName := S.Strings[i];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
+ S.Strings[i] := '*'+S.Strings[i];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ S.Clear;
+ for i := 0 to S1.Count - 1 do //開始轉換檔名
+ begin
+ v := Pos(',',S1.Strings[i]);
+ v1 := length(S1.Strings[i]);
+ OldName := copy(S1.Strings[i],1,v-1);
+ NewName := copy(S1.Strings[i],v+1,v1-v);
+ if FileExists(Path+OldName) then
+ begin
+ ReNameFile(Path+OldName,Path+NewName);
+ S.Add(NewName);
+ S.SaveToFile(Path+'Context.dat');
+ end;
+ end;
+ ReSortFileName(Path);
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
+var
+ i,n,v,v1 : Integer;
+ S,S1 : TStringlist;
+ FormID,OldName,NewName,DocNo,Doc_Type:String;
+ x : Integer;
+begin
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ S.LoadFromFile(Path+'Context.dat');
+ X := 0;
+ for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ if FormCode2FileName(FormID,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+ for I := 0 to FORM_INF_List.Count - 1 do //次文件 照SQL排 20110512為了某個文件要先打的原因要求改
+ begin
+
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ if FormCode2FileName(FormID,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+ {for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
+ begin
+ DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
+ Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+
+ {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
+ begin
+ for i := 0 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+ for i := 0 to S.Count - 1 do //FormID沒設定的或附件
+ begin
+ if S.Strings[i][1] <> '*' then
+ begin
+ Inc(X);
+ OldName := S.Strings[i];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
+ S.Strings[i] := '*'+S.Strings[i];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+
+ S.Clear;
+ for i := 0 to S1.Count - 1 do //開始轉換檔名
+ begin
+ v := Pos(',',S1.Strings[i]);
+ v1 := length(S1.Strings[i]);
+ OldName := copy(S1.Strings[i],1,v-1);
+ NewName := copy(S1.Strings[i],v+1,v1-v);
+ //if FileExists(Path+OldName) then
+ //begin
+ //ReNameFile(Path+OldName,Path+NewName);
+ S.Add(NewName);
+ S.SaveToFile(Path+'scanlist.dat');
+ //end;
+ end;
+ ReSortFileName2Scanlist(Path);
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+
+Procedure TCB_IMGPSScanX.DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
+var
+ i,n,v : Integer;
+ S : TStringlist;
+ FormCode,DocNo,Ver : String;
+ Doc_Ver : String;
+ Exists : Boolean;
+begin
+ S := TSTringlist.Create;
+ try
+ DocNo_VerinCase.Clear;
+ S.LoadFromFile(Path+'Context.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ if FWH_category='N' then
+ begin
+ if (ISExistImg(Path+S.Strings[i])) or (reSizeExistImgList.IndexOf(LoadFileGetMD5(Path+S.Strings[i]))<>-1) then
+ begin
+ Continue;
+ end;
+ end;
+ FormCode := FileName2FormCode(S.Strings[i]);
+ DocNo := FormCode2DocNo(FormCode);
+ Ver := FormCode2Version(FormCode);
+ if (Docno <> '') and (Ver <> '') then
+ begin
+ Doc_Ver := DocNo+'_'+Ver;
+ Exists := False;
+ for n := 0 to DocNo_VerinCase.Count-1 do
+ begin
+ if Doc_Ver = DocNo_VerinCase.Strings[n] then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ DocNo_VerinCase.Add(Doc_Ver);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.DistinctDocNoinCase(Path:String); //列出案件裡的Docno
+var
+ i,n,v : Integer;
+ S : TStringlist;
+ FormCode,DocNo,Ver : String;
+ Exists : Boolean;
+begin
+ S := TSTringlist.Create;
+ try
+ CaseDocNoList.Clear;
+ S.LoadFromFile(Path+'Context.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ FormCode := FileName2FormCode(S.Strings[i]);
+ DocNo := FormCode2DocNo(FormCode);
+ if (Docno <> '') then
+ begin
+ Exists := False;
+ for n := 0 to CaseDocNoList.Count-1 do
+ begin
+ if DocNo = CaseDocNoList.Strings[n] then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ CaseDocNoList.Add(DocNo);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+
+end;
+
+Procedure TCB_IMGPSScanX.ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案
+var
+ i : Integer;
+begin
+ if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then
+ DeleteFile(ImageSavePath+CaseID+'\Checkerr.ini');
+ if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\CheckMemo.dat');
+ {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then //20110421拿掉 因為記錄會不見
+ DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
+ if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
+ if FileExists(ImageSavePath+CaseID+'\OMRCheckOk.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+ CaseHelpBtn.Visible := False;
+ CaseNode.ImageIndex := 2;
+ CaseNode.SelectedIndex := 2;
+end;
+
+Procedure TCB_IMGPSScanX.SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+begin
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ case Mode of
+ 'A':begin
+ CaseList.Add(Text);
+ end;
+ 'I':begin
+ CaseList.Insert(Index,Text);
+ end;
+ 'E':begin
+ CaseList.Strings[Index] := Text;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ CaseList.Delete(Index)
+ Else if (text <> '') then
+ begin
+ for i := 0 to CaseList.Count - 1 do
+ begin
+ if Text = CaseList.Strings[i] then
+ begin
+ CaseList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if CaseList.Count = 0 then
+ DeleteFile(ImageSavePath + 'CaseList.dat');
+ end;
+ end;
+ if CaseList.Count > 0 then
+ CaseList.SaveToFile(ImageSavePath+'CaseList.dat');
+end;
+
+Procedure TCB_IMGPSScanX.SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+ CaseDocNoList : TStringlist;
+ CaseDocNo_copiesList : TStringlist;
+begin
+ CaseDocNoList := TStringlist.Create;
+ CaseDocNo_CopiesList := TStringlist.Create;
+ try
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+ if FileExists(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
+ case Mode of
+ 'A':begin
+ CaseDocNoList.Add(DocDir);
+ CaseDocNo_CopiesList.Add(Copies);
+ SetRecordEditedDocDir('A',CaseNo,DocDir);
+ end;
+ 'I':begin
+ CaseDocNoList.Insert(Index,DocDir);
+ CaseDocNo_CopiesList.Insert(Index,Copies);
+ end;
+ 'E':begin
+ CaseDocNoList.Strings[Index] := DocDir;
+ CaseDocNo_CopiesList.Strings[Index] := Copies;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ begin
+ //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[Index]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
+ SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[Index]); //20170912 要刪除 不然我寫不下去
+
+ CaseDocNoList.Delete(Index);
+ CaseDocNo_CopiesList.Delete(Index);
+
+ end
+ Else if (DocDir <> '') then
+ begin
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ if DocDir = CaseDocNoList.Strings[i] then
+ begin
+ //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[i]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
+ SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[i]); //20170912 要刪除 不然我寫不下去
+ CaseDocNoList.Delete(i);
+ CaseDocNo_CopiesList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if ContextList.Count = 0 then
+ begin
+ DeleteFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+ end;
+ end;
+ end;
+ //Showmessage('abc'+#13+ImageSavePath+CaseNo+'\CaseDocNo.dat'+#13+inttostr(CaseDocNoList.Count)+#13+CaseDocNoList.Text);
+ if CaseDocNoList.Count >= 0 then
+ begin
+ CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+ CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
+ //Showmessage('存了');
+ end;
+ finally
+ CaseDocNoList.Free;
+ CaseDocNo_CopiesList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+ //DocNo:String;
+begin
+ //DocNo := FormCode2DocNo(FileName2FormCode(FileName));
+//ShowMessage('FileName='+FileName);
+ if DocDir = '' then
+ DocDir := AttName ; //附件
+ ContextList.Clear;
+ if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then
+ ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+ SetRecordEditedDocDir('A',CaseNo,DocDir); //記錄文件有異動
+ case Mode of
+ 'A':begin
+ ContextList.Add(FileName);
+ end;
+ 'I':begin
+ ContextList.Insert(Index,FileName);
+ end;
+ 'E':begin
+ ContextList.Strings[Index] := FileName;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ begin
+ ContextList.Delete(Index);
+ end
+ Else if (text <> '') then
+ begin
+ for i := 0 to ContextList.Count - 1 do
+ begin
+ if FileName = ContextList.Strings[i] then
+ begin
+ ContextList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if ContextList.Count = 0 then
+ DeleteFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+ end;
+ end;
+ if ContextList.Count > 0 then
+ begin
+ ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+begin
+ AttContextList.Clear;
+ if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then
+ AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');
+ case Mode of
+ 'A':begin
+ AttContextList.Add(FileName);
+ end;
+ 'I':begin
+ AttContextList.Insert(Index,FileName);
+ end;
+ 'E':begin
+ AttContextList.Strings[Index] := FileName;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ begin
+ AttContextList.Delete(Index);
+ end
+ Else if (text <> '') then
+ begin
+ for i := 0 to AttContextList.Count - 1 do
+ begin
+ if FileName = AttContextList.Strings[i] then
+ begin
+ AttContextList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if AttContextList.Count = 0 then
+ DeleteFile(ImageSavePath+CaseNo+'\AttContext.dat');
+ end;
+ end;
+ if AttContextList.Count > 0 then
+ begin
+ AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');
+ end;
+end;
+
+Function TCB_IMGPSScanX.checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核
+var
+ i : Integer;
+begin
+ Result := True;
+ for I := 0 to NewTreeNode.Count - 1 do
+ begin
+ if NewTreeNode.Item[i].ImageIndex <> 7 then
+ begin
+ Result := False;
+ Break;
+ end;
+ end;
+end;
+
+function TCB_IMGPSScanX.checkFormCodeIsCustom(path, formcode: string): boolean;
+var
+ i:integer;
+ ini : Tmeminifile;
+ str1:String;
+begin
+//ShowMessage(path);
+ ini := Tmeminifile.Create(Path+'CustomDocNo.ini');
+ str1:=ini.ReadString(Copy(formcode,1,8),'FormID','');
+//ShowMessage('str1'+str1);
+ if str1 = formcode then
+ begin
+ Result:=True;
+ end
+ else
+ begin
+ Result := False;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.CheckCaseID_OK:Boolean; //檢查是否有未配號的案件
+var
+ i,n : Integer;
+begin
+ Result := True;
+ for i := 0 to NewTreeNode.Count - 1 do
+ begin
+ if Pos(_msg('未配號'),NewTreeNode.Item[i].Text) > 0 then
+ begin
+ Result := False;
+ Break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckCaseAttach_OK:Boolean; //檢查是否有未歸類的案件
+var
+ i,j : Integer;
+begin
+ Result := True;
+ for i := 0 to NewTreeNode.Count - 1 do
+ begin
+ for j := 0 to NewTreeNode.Item[i].Count - 1 do
+ begin
+ if Pos(_msg('未歸類'),NewTreeNode.Item[i].Item[j].Text) > 0 then
+ begin
+ Result := False;
+ Break;
+ end;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用)
+var
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ S.SaveToFile(Path+CaseID+'\Context.dat');
+ S.Add(FCaseID);
+ S.SaveToFile(Path+'CaseList.dat')
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.InitScrollRec;
+var i : Integer;
+begin
+ for I := 1 to 8 do
+ begin
+ ScrollRec[i].HScroll := 0;
+ ScrollRec[i].VScroll := 0;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single);
+var
+ index : Integer;
+begin
+ index := strtoint(copy(ISB.Name,4,1));
+ HS := ScrollRec[Index].HScroll;
+ VS := ScrollRec[Index].VScroll;
+ iRate := ScrollRec[Index].Rate;
+end;
+
+Procedure TCB_IMGPSScanX.SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single);
+var
+ index : Integer;
+begin
+ index := strtoint(copy(ISB.Name,4,1));
+ ScrollRec[Index].HScroll := HS;
+ ScrollRec[Index].VScroll := VS;
+ ScrollRec[Index].Rate := iRate;
+end;
+
+Procedure TCB_IMGPSScanX.FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID
+var
+ i : Integer;
+ OldFileList,NewFileList : TStringlist;
+ NewDocNo,NewDocDir:String;
+ FormID : String;
+ OldFile,NewFile:String;
+ Ext : String;
+ ST1:TStringList;
+begin
+ ST1:=TStringList.Create;
+ OldFileList := TStringlist.Create;
+ NewFileList := TStringlist.Create;
+ try
+ NewDocNo := FormCode2DocNo(NewFormID);
+ NewDocDir := FindLastestDocDir(CaseID,NewDocNo);
+
+ /////20190319 Hong 原本的程式判斷怪怪的先Mark在下方,改用這段
+ if DocNoNeedDiv(NewDocNo) then //要分份數
+ begin
+ if ((FormCode2Page(NewFormID) = '01') and (GetDocDir_Page(CaseID,NewDocDir)>0)) or (NewDocDir = '') then
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
+ end
+ else
+ begin //20171016 真對補件影響 所加的判斷
+ ST1.Clear;
+ if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');
+ if (ST1.Count > 0) and ISExistImg(ImageSavePath + CaseID+'\'+NewDocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
+ end;
+ end;
+ end;
+ end
+ Else //不分份數
+ begin
+ if NewDocNo <> '' then
+ NewDocDir := NewDocNo
+ else //Attach 附件
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
+ end;
+
+ {if NewDocDir = '' then
+ begin
+ if DocNoNeedDiv(NewDocNo) then
+ begin
+ NewDocDir:=DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
+ end
+ else
+ begin
+ NewDocDir := NewDocNo;
+ end;
+ end;
+//ShowMessage('NewDocDir='+NewDocDir);
+ if DocNoNeedDiv(NewDocNo) and (FormCode2Page(NewFormID)='01') then
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',NewDocNo);
+ end
+ else
+ begin
+ ST1.Clear;
+ if FileExists(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat');
+ if ISExistImg(ImageSavePath + NowCaseno+'\'+NewDocDir+'\'+ST1.Strings[0]) then
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
+ end;
+ end;
+ end; }
+ if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then
+ begin
+ MkDir(ImageSavePath+CaseID+'\'+NewDocDir);
+ SetDocNoList('A',-1,CaseID,NewDocDir,'1');
+ end;
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ OldFileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ if FileExists(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat') then
+ NewFileList.LoadFromFile(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat');
+ for i := 0 to OldFileList.Count - 1 do
+ begin
+ OldFile := OldFileList.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ if FileName2FormCode(OldFile) = OldFormID then
+ begin
+ NewFile := Add_Zoo(NewFileList.Count+1,3)+'_'+NewFormID+Ext;
+ CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);
+ NewFileList.Add(NewFile);
+ SetContextList('A',-1,CaseID,NewDocDir,NewFile);
+ end;
+ end;
+ DeleteFormCodeFile(CaseID,DocDir,OldFormID);
+
+ {for i := 0 to S.Count - 1 do
+ begin
+ FormID := FileName2FormCode(S.Strings[i]);
+ if FormID = OldFormID then
+ begin
+ OldFile := S.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ //NewFile := Copy(S.Strings[i],1,3)+'_'+NewFormID+Ext;
+ NewFile := Add_Zoo(FileName2ScanPage(S.Strings[i]),3)+'_'+NewFormID+Ext;
+ ReNameFile(Path+OldFile,Path+NewFile);
+ S.Strings[i] := NewFile;
+ end;
+ end;
+ S.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat'); }
+
+ finally
+ OldFileList.Free;
+ NewFileList.Free;
+ ST1.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID
+var
+ i,n : Integer;
+ OldFile,NewFile:String;
+ Ext : String;
+begin
+ for i := 0 to NowShowFileList.Count - 1 do
+ begin
+ OldFile := NowShowFileList.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ NewFile := Add_Zoo(FileName2ScanPage(OldFile),3)+'_'+NewFormID+Ext;
+ ReNameFile(Path+OldFile,Path+NewFile);
+ SetContextList('E',FileName2Index(OldFile),NowCaseno,NowDocNo,NewFile);
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID
+var
+ i,n : Integer;
+ S,S1 : TStringlist;
+ OldFile,NewFile:String;
+ Ext : String;
+begin
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ if NowFormID = 'ALL' then
+ S1.Add(S.Strings[i])
+ Else if NowFormID = 'Err' then
+ begin
+ if not FormIDExists(FileName2FormCode(S.Strings[i]),False,0) then
+ S1.Add(S.Strings[i])
+ end
+ Else
+ begin
+ if NowFormID = FileName2FormCode(S.Strings[i]) then
+ S1.Add(S.Strings[i])
+ end;
+ end;
+ for I := 0 to PageLV.Items.Count - 1 do
+ begin
+ if PageLV.Items.Item[i].Selected then
+ begin
+ OldFile := S1.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ //NewFile := Copy(S1.Strings[i],1,3)+'_'+NewFormID+Ext;
+ NewFile := Add_Zoo(FileName2ScanPage(S1.Strings[i]),3)+'_'+NewFormID+Ext;
+ ReNameFile(Path+OldFile,Path+NewFile);
+ for n := 0 to S.Count - 1 do
+ begin
+ if OldFile = S.Strings[n] then
+ S.Strings[n] := NewFile;
+ end;
+ end;
+ end;
+ S.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat');
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核
+begin
+ Result := False;
+ if Pos(ScanMode,OMRMode) > 0 then
+ Result := True;
+end;
+
+Function TCB_IMGPSScanX.GetCasePage(Path,CaseID:String):Integer;
+var
+ DocDirList,FileList,ST1 :TStringlist;
+ iDocDir,iDocNo : String;
+ i,n,Count : Integer;
+begin
+ Count := 0;
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ ST1:=TStringList.Create;
+ try
+ if FileExists(Path+CaseID+'\CaseDocNo.dat') then
+ DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');
+ //Showmessage(DocDirList.Text);
+ for i := 0 to DocDirList.Count - 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocno := DocNoDir2DocNo(iDocDir);
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
+ ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
+ begin
+ Continue;
+ end;}
+ //if not DocNoAppear(iDocNo) then Continue; //20170817 先註解
+
+ FileList.Clear;
+ if FileExists(Path+CaseID+'\'+iDocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(Path+CaseID+'\'+iDocDir+'\Context.dat');
+
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ ST1.Clear;
+ for n := 0 to FileList.Count - 1 do
+ begin
+ if ISExistImg(Path+CaseID+'\'+iDocDir+'\'+FileList.Strings[n]) then
+ begin
+ ST1.Add(FileList.Strings[n]);
+ end;
+ end;
+
+ for n := 0 to ST1.Count - 1 do
+ begin
+ if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
+ begin
+ FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
+ end;
+ end;
+ end
+ Else
+ if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該要加這段
+ end;
+
+
+ Count := Count+ FileList.Count;
+ end;
+ if FileExists(Path+CaseID+'\'+AttName+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(Path+CaseID+'\'+AttName+'\Context.dat');
+ Count := Count+ FileList.Count;
+ end;
+
+ Result := Count;
+ finally
+ DocDirList.Free;
+ FileList.Free;
+ ST1.free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetFormIDPage(FileList:TStringlist;FormID:String):Integer;
+var
+ i,Cnt : Integer;
+begin
+ Cnt := 0;
+ for i := 0 to FileList.Count - 1 do
+ begin
+ if FormID = FileName2FormCode(FileList.Strings[i]) then
+ begin
+ inc(Cnt);
+ end;
+ end;
+ Result := Cnt;
+end;
+
+Procedure TCB_IMGPSScanX.SetFile2Case(CaseID,FileName:String);
+var
+ S :TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');
+ S.Add(FileName);
+ S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.WriteResize(ImgName,TxtName:String); //產生Resize.dat
+var
+ TagTxt : String;
+ RecHeight,RecWidth : String;
+ ImgHeight,ImgWidth : String;
+ S : TStringlist;
+ v,v1:Integer;
+begin
+ ImageScrollBox1.LoadFromFile(ImgName,1);
+ ImgHeight := Inttostr(ImageScrollBox1.Graphic.Height);
+ ImgWidth := Inttostr(ImageScrollBox1.Graphic.Width);
+ Try
+ TagTxt := GetTag(ImgName);
+ Except
+ TagTxt := '';
+ End;
+ if TagTxt <> '' then
+ begin
+ S := TStringlist.Create;
+ try
+ S.CommaText := TagTxt;
+ if S.Count = 2 then
+ begin
+ v := Pos(':',S.Strings[0]);
+ v1 := length(S.Strings[0]);
+ RecHeight := Copy(S.Strings[0],v+1,v1-v);
+ v := Pos(':',S.Strings[1]);
+ v1 := length(S.Strings[1]);
+ RecWidth := Copy(S.Strings[1],v+1,v1-v);
+ end;
+ S.Clear;
+ if FileExists(TxtName) then
+ S.LoadFromFile(TxtName);
+ if (RecHeight <> '') and (RecWidth <> '') and ((RecHeight<>ImgHeight) or (RecWidth<>ImgWidth)) then
+ S.Add(ExtractfileName(ImgName)+',原長:'+RecHeight+',原寬:'+RecWidth+',長變動:'+ImgHeight+',寬變動:'+ImgWidth);
+ S.SaveToFile(TxtName);
+ finally
+ S.Free;
+ end;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數
+var
+ i,n,k: Integer;
+ CaseList,DocList,FileList,ST1 : TStringlist;
+begin
+ Result := False;
+ CaseCount := 0;
+ PageCount := 0;
+ CaseList := TStringlist.Create;
+ DocList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ ST1:= TStringlist.Create;
+ try
+ ImageSavePath := ImagePath;
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ CaseCount := CaseCount+CaseList.Count;
+//ShowMessage('ImageSavePath='+ImageSavePath+#10#13+'CaseList.Count='+IntToStr(CaseList.Count));
+ for i := 0 to CaseList.Count - 1 do
+ begin
+ DocList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') Then
+ DocList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
+//ShowMessage('DocList='+DocList.Text);
+ for n := 0 to DocList.Count - 1 do
+ begin
+//ShowMessage(DocList.Strings[n]+','+BoolToStr(DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])),true));
+ if not DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])) then Continue;
+ FileList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat') Then
+ FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat');
+ PageCount := PageCount+FileList.Count;
+ end;
+ //Showmessage(inttostr(PageCount));
+ FileList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat') Then
+ FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
+ //Showmessage(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
+//Showmessage('FileList='+FileList.Text);
+ PageCount := PageCount+FileList.Count;
+//Showmessage('PageCount='+inttostr(PageCount));
+ if (FWH_category='N') and (FIs_In_Wh='Y') then //20170912 針對非入庫並當次掃描做頁數計算
+ begin
+ if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
+ for n := 0 to ST1.Count - 1 do
+ begin
+ if ST1.Strings[n]=AttName then Continue;
+//ShowMessage(ST1.Strings[n]+','+BoolToStr(DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])),true));
+ if not DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])) then
+ begin
+
+ FileList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat');
+ for k := 0 to FileList.Count - 1 do
+ begin
+ if not ISExistImg(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\'+FileList.Strings[k]) then
+ PageCount := PageCount+1;
+ end;
+ end;
+ end;
+ end;
+ end;
+ end;
+ end;
+ Finally
+ CaseList.Free;
+ DocList.Free;
+ FileList.Free;
+ ST1.Free
+ end;
+ Result := True;
+end;
+
+Function TCB_IMGPSScanX.FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼
+var
+ i,n : Integer;
+begin
+ Result := False;
+ for i := 1 to MpsBarcodeinf.Count do
+ begin
+ for n := 0 to NoSaveBarCodeList.Count - 1 do
+ begin
+ if MpsBarcodeinf.Text[i] = NoSaveBarCodeList.Strings[n] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ if Result then
+ Break;
+ end;
+end;
+
+Function TCB_IMGPSScanX.BarCode2CaseID : String; //Barcode依規則轉成CaseID
+var
+ i : Integer;
+ iCaseID : String;
+begin
+ Result := ''; //沒找到
+ iCaseID := '';
+ for i := 1 to MpsBarcodeinf.Count do //20180920 拿掉-1
+ begin
+ if (Length(MpsBarcodeinf.text[i]) = CaseIDLength) then
+ begin
+ iCaseID := MpsBarcodeinf.text[i];
+ Result := iCaseID;
+ Break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.BarCode2FormID : String; //Barcode依規則轉成FormID
+var
+ i : Integer;
+ FormID : String;
+begin
+ Result := ''; //沒找到
+ FormID := '';
+ for i := 1 to MpsBarcodeinf.Count do
+ begin
+ if (Length(MpsBarcodeinf.Text[i]) = FormIDLength) then
+ begin
+ FormID := MpsBarcodeinf.text[i];
+ if not FormIDAppear(FormID) then
+ FormID := '';
+ end;
+ if (FormID <> '') and FormIDExists(FormID,False,0) then //有可用的FormID就離開
+ begin
+ Result := FormID;
+ Break;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.WriteCaseIndex(Path:String);
+Var
+ S : TStringlist;
+begin
+ if Path = '' then Exit;
+ S := TStringlist.Create;
+ try
+ try
+ S.Add(Case_loandoc);
+ S.SaveToFile(Path+'CaseIndex.dat');
+ except on E: Exception do
+ end;
+
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ReadCaseIndex(Path:String);
+Var
+ S : TStringlist;
+begin
+ AddCredit1RG.ItemIndex := -1;
+ S := TStringlist.Create;
+ try
+ if FileExists(Path+'CaseIndex.dat') then
+ begin
+ S.LoadFromFile(Path+'CaseIndex.dat');
+ Case_loandoc := S.Strings[0];
+ end;
+ if (Case_loandoc = '') and (FLoanDoc_Value <> '') then
+ begin
+ Case_loandoc := FLoanDoc_Value;
+ WriteCaseIndex(Path);
+ end;
+ if Case_loandoc = 'Y' then
+ AddCredit1RG.ItemIndex := 0
+ Else if Case_loandoc = 'N' then
+ AddCredit1RG.ItemIndex := 1;
+
+ finally
+ S.Free;
+ end;
+
+end;
+
+
+procedure TCB_IMGPSScanX.ReduceLogFile; //20171011 必免log檔掌太大
+var
+ ST1:TStringlist;
+ I:integer;
+begin
+ ST1:=TStringList.Create;
+ if FileExists(LngPath+'IMGPSCheck.log') then
+ begin
+ ST1.LoadFromFile(LngPath+'IMGPSCheck.log');
+ if ST1.count>100000 then
+ begin
+ for I := 0 to 10000 do
+ begin
+ ST1.Delete(0);
+ end;
+ ST1.SaveToFile(LngPath+'IMGPSCheck.log');
+ end;
+ end;
+ ST1.Free;
+end;
+
+Procedure TCB_IMGPSScanX.ClearCaseIndex;
+begin
+ AddCredit1RG.Enabled := False;
+ AddCredit1RG.ItemIndex := -1;
+end;
+
+Procedure TCB_IMGPSScanX.GetSelectImageFile;
+var
+ i : Integer;
+ FormID,FormName,DocNo : String;
+ PreNode2Name : String;
+ iFormID : String;
+ iISBName : String;
+ iISB : TImageScrollBox;
+begin
+ NowSelectFileList.Clear;
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ NowSelectFileList.Add(iISB.FileName);
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數
+var
+ i : Integer;
+ iDocNo : String;
+begin
+ if (DocNo <> '') then
+ begin
+ i := 0;
+ Repeat
+ begin
+ inc(i);
+ iDocNo := Format('%s_%d',[DocNo,i]);
+ end;
+ until not DirectoryExists(Path+iDocNo);
+ Result := iDocNo;
+ end
+ Else
+ begin
+ Result := AttName;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡
+var
+ i : Integer;
+begin
+ Result := False;
+ for i := 0 to DocNoNode.Count - 1 do
+ begin
+ if FormID = Node3FormID(DocNoNode.Item[i]) then
+ begin
+ Result := True;
+ break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄
+var
+ i : Integer;
+ iDocNo : String;
+begin
+ if (DocNo <> '') then
+ begin
+ i := 0;
+ Repeat
+ begin
+ inc(i);
+ iDocNo := Format('%s(%d)',[DocNo,i]);
+ end;
+ until not DirectoryExists(Path+iDocNo);
+ Result := iDocNo;
+ end
+ Else
+ begin
+ Result := AttName;
+ end;
+end;
+
+Function TCB_IMGPSScanX.DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo
+var
+ v,ln : Integer;
+begin
+ if (DocNoDir <> 'Attach') and (DocNoDir <> 'S_Attach') then
+ begin
+ v := Pos('(',DocNoDir);
+ if v > 0 then
+ Result := Copy(DocNoDir,1,v-1)
+ else
+ Result := DocNoDir;
+ end
+ Else
+ Result := DocNoDir
+end;
+
+Function TCB_IMGPSScanX.DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index
+var
+ i : Integer;
+ CaseNo_List : TStringlist;
+begin
+ Result := -1;
+ CaseNo_List := TStringlist.Create;
+ try
+ CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');
+ for i := 0 to CaseNo_List.Count - 1 do
+ begin
+ if DocNoDir = CaseNo_List.Strings[i] then
+ begin
+ Result := i;
+ Break;
+ end;
+ end;
+ finally
+ CaseNo_List.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ZipMainFile(SoPath,DePath,ZipName:String);
+var
+ ZipFileList : TStringlist;
+ n : Integer;
+begin
+ ZipFileList := TStringlist.Create;
+ try
+ if fileExists(DePath+ZipName) then
+ DeleteFile(DePath+ZipName);
+ {if FileExists(SoPath+'ReSize.dat') then
+ DeleteFile(SoPath+'ReSize.dat');}
+ //Showmessage(SoPath+#13+ContextList.Text);
+ for n := 0 to ContextList.Count - 1 do
+ begin
+ {WriteResize(SoPath+ContextList.Strings[n],SoPath+'ReSize.dat');}
+ ZipFileList.Add(SoPath+ContextList.Strings[n]);
+ if FileExists(SoPath+'@'+ContextList.Strings[n]) then
+ ZipFileList.Add(SoPath+'@'+ContextList.Strings[n]);
+ end;
+ if FileExists(SoPath+'Context.dat') then
+ ZipFileList.Add(SoPath+'Context.dat');
+
+ AttContextList.Clear;
+ if FileExists(SoPath+'ATTContext.dat') then
+ AttContextList.LoadFromFile(SoPath+'ATTContext.dat');
+ for n := 0 to AttContextList.Count - 1 do
+ begin
+ ZipFileList.Add(SoPath+AttContextList.Strings[n]);
+ end;
+ if FileExists(SoPath+'ATTContext.dat') then
+ ZipFileList.Add(SoPath+'ATTContext.dat');
+
+
+ if FileExists(SoPath+'Context_DocNo.dat') then
+ ZipFileList.Add(SoPath+'Context_DocNo.dat');
+ if FileExists(SoPath+'scanlist.dat') then
+ ZipFileList.Add(SoPath+'scanlist.dat');
+ if FileExists(SoPath+'FormCode_Name.dat') then
+ ZipfileList.Add(SoPath+'FormCode_Name.dat');
+ if FileExists(SoPath+'DocNo_Name.dat') then
+ ZipfileList.Add(SoPath+'DocNo_Name.dat');
+ if FileExists(SoPath+'ReSize.dat') then
+ ZipfileList.Add(SoPath+'ReSize.dat');
+ if FileExists(SoPath+'FormIDReplace.dat') then
+ ZipfileList.Add(SoPath+'FormIDReplace.dat');
+ if FileExists(SoPath+'AnchorError.dat') then
+ ZipfileList.Add(SoPath+'AnchorError.dat');
+ if FileExists(SoPath+'CaseDocNo.dat') then
+ ZipfileList.Add(SoPath+'CaseDocNo.dat');
+ if FileExists(SoPath+'CaseDocNo_Copies.dat') then
+ ZipfileList.Add(SoPath+'CaseDocNo_Copies.dat');
+ if FileExists(SoPath+'CustomDocNo.ini') then
+ ZipfileList.Add(SoPath+'CustomDocNo.ini');
+ if FileExists(SoPath+'DocDir.dat') then
+ ZipfileList.Add(SoPath+'DocDir.dat');
+ if FileExists(SoPath+'In_Wh.dat') then
+ ZipfileList.Add(SoPath+'In_Wh.dat');
+ if FileExists(SoPath+'UseCase.ini') then
+ ZipfileList.Add(SoPath+'UseCase.ini');
+
+ if FileExists(SoPath+'FirstImg.zip') then//20170315 加的
+ begin
+ ZipfileList.Add(SoPath+'FirstImg.zip');
+ end;
+
+
+ ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
+ //Showmessage('111');
+ finally
+ ZipFileList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔
+var
+ ZipFileList : TStringlist;
+ n : Integer;
+begin
+ ZipFileList := TStringlist.Create;
+ try
+ if fileExists(DePath+ZipName) then
+ DeleteFile(DePath+ZipName);
+
+ for n := 0 to ContextList.Count - 1 do
+ begin
+ ZipFileList.Add(MarkPath+ContextList.Strings[n]);
+ end;
+ if FileExists(SoPath+'Context.dat') then
+ ZipFileList.Add(SoPath+'Context.dat');
+ if FileExists(SoPath+'scanlist.dat') then
+ ZipFileList.Add(SoPath+'scanlist.dat');
+ if FileExists(SoPath+'FormCode_Name.dat') then
+ ZipfileList.Add(SoPath+'FormCode_Name.dat');
+ if FileExists(SoPath+'DocNo_Name.dat') then
+ ZipfileList.Add(SoPath+'DocNo_Name.dat');
+ if FileExists(SoPath+'ReSize.dat') then
+ ZipfileList.Add(SoPath+'ReSize.dat');
+ if FileExists(SoPath+'Err.jpg') then
+ ZipfileList.Add(SoPath+'Err.jpg');
+ if FileExists(SoPath+'auth.jpg') then
+ ZipfileList.Add(SoPath+'auth.jpg');
+ ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
+ finally
+ ZipFileList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ParserPoint(S:String); //解析十字點的字串
+var
+ PointList : TStringlist;
+ Rect : TRect;
+begin
+ PointList := TStringlist.Create;
+ try
+ PointList.Text := S;
+ IF PointList.Count <> 6 Then
+ begin
+ UpLPoint := Str2Point('0,0');
+ UpRPoint := Str2Point('0,0');
+ DownLPoint := Str2Point('0,0');
+ DownRPoint := Str2Point('0,0');
+ Point_Width := '0';
+ Point_Height := '0';
+ end
+ Else
+ begin
+ UpLPoint := Str2Point(PointList[0]);
+ DownLPoint := Str2Point(PointList[1]);
+ UpRPoint := Str2Point(PointList[2]);
+ DownRPoint := Str2Point(PointList[3]);
+ Point_Width := PointList[4];
+ Point_Height := PointList[5];
+ end;
+ finally
+ PointList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckScanDenialTime:Boolean;
+Var
+ NowTime : String;
+begin
+ NowTime := GetBalance2Time(Balance);
+ NowTime := Copy(NowTime,1,2)+':'+Copy(NowTime,3,2)+':'+Copy(NowTime,5,2);
+ Result := True;
+ if ScanDenialTime <> '' then
+ begin
+ if StrtoTime(NowTime) >= StrtoTime(ScanDenialTime) then
+ Result := False;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormID2Anchor(FormID:String):String; //用FormID取出十字模式
+var
+ Anchor : String;
+begin
+ Result := 'NONE';
+ IF FindSQLData(FORM_INF_List,'T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
+ begin
+ ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
+ end;
+ Result := Index2Anchor(Anchor);
+end;
+
+Function TCB_IMGPSScanX.Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME
+begin
+ if Anchor = '0' then
+ Result := 'NONE'
+ else if Anchor = '1' then
+ Result := 'ANCHOR'
+ else if Anchor = '2' then
+ Result := 'FRAME';
+end;
+
+procedure TCB_IMGPSScanX.ScanDuplexCBClick(Sender: TObject);
+begin
+ ScanDuplex := ScanDuplexCB.Checked;
+ //R_W_ScanIni('W'); //user要求改成預設後不能改
+end;
+
+procedure TCB_IMGPSScanX.ScanGrayCBClick(Sender: TObject);
+begin
+
+ if ScanGrayCB.Checked then
+ begin
+ ScanColor:=ifGray256;
+ end
+ else
+ begin
+ if FScanColor = 0 then
+ begin
+ ScanColor := ifBlackWhite;
+ end;
+
+ if FScanColor = 1 then
+ begin
+ //ScanColor := ifGray256 ;
+ ScanColor := ifBlackWhite; //
+ end;
+
+
+ if FScanColor = 2 then
+ begin
+ ScanColor := ifTrueColor ;
+ end;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.GetFormatID(CaseID: string):String;
+Var
+ S : TStringlist;
+ FormatID : String;
+begin
+ Result := '';
+ S := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
+ //Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號or原案件受編)
+ //Result := Format_ID;
+ //Handle_No := S.Strings[0]; //經辦代號
+ //Cen_Uid := S.Strings[1]; //被保人ID
+ //Cen_Cliname := S.Strings[2]; //被保人姓名
+ //Cen_Platno := S.Strings[3]; //車號
+ //Case_Priority := S.Strings[4];//案件等級
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼
+var
+ i : Integer;
+begin
+ if Mode = 'ID' then
+ begin
+ Result := _Msg('自行輸入');
+ for i := 0 to ID_S.Count - 1 do
+ begin
+ if Str = ID_S.Strings[i] then
+ begin
+ Result := Name_S.Strings[i];
+ Break;
+ end;
+ end;
+ end
+ else if Mode = 'NAME' then
+ begin
+ Result := '00';
+ for i := 0 to Name_S.Count - 1 do
+ begin
+ if Str = Name_S.Strings[i] then
+ begin
+ Result := ID_S.Strings[i];
+ Break;
+ end;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入
+var
+ i : Integer;
+begin
+ ToList.Clear;
+ ToList.Add(ColumeStr);
+ For i := 1 to FromList.Count -1 do
+ begin
+ ToList.Add(FromList.Strings[i]);
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值
+var
+ i,col,v,v1 : Integer;
+ ColStr,DataStr: TStringList;
+ TmpStr : String;
+ P1,p2 : Integer;
+begin
+ Result := '';
+ ColStr := TStringList.Create;
+ DataStr := TSTringList.Create;
+ ColStr.CommaText := TableList.Strings[0];
+ TmpStr := TableList.Strings[ColNo];
+ //DataStr.Text:=StringReplace(TmpStr,'!@!',#13,[rfReplaceAll]);
+
+ While Length(Tmpstr) > 0 do
+ begin
+ v:= Pos('!@!',TmpStr);
+ v1 := Length(TmpStr);
+ If v > 0 Then
+ begin
+ DataStr.Add(Copy(TmpStr,1,v-1));
+ TmpStr := Copy(TmpStr,v+3,V1-(V-2));
+ end
+ Else
+ begin
+ DataStr.Add(TmpStr);
+ TmpStr := '';
+ end;
+ end;
+ For i := 0 to ColStr.Count-1 do
+ begin
+ IF ColStr.Strings[i] = ColName Then
+ begin
+ Result := '';
+ If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
+ Result := DataStr.Strings[i];
+ //If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
+ //begin
+ {if i = 0 then
+ begin
+ P1 := 1;
+ p2 := PosN('!@!',TmpStr,1)-1;
+ end
+ else
+ begin
+ P1 := PosN('!@!',TmpStr,i)+3;
+ p2 := PosN('!@!',TmpStr,i+1)-p1;
+ end;
+
+
+ Result :=Copy(tmpstr,p1,p2);}
+ //end;
+ //Result := DataStr.Strings[i];
+
+ Break;
+ end;
+ end;
+ ColStr.Free;
+ DataStr.Free;
+end;
+
+Function TCB_IMGPSScanX.FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料
+Var i,n,Findindex : Integer;
+ ColList,KeyColList,KeyList : TStringlist;
+ Cols,Keycols,keys :String;
+ Find:Boolean;
+begin
+ ResultList.Clear;
+ if (KeyStr = '') or (TableList.Count <= 1) then
+ begin
+ Result := False;
+ Exit;
+ end;
+
+ ColList := TStringlist.Create;
+ KeyColList := TStringlist.Create;
+ KeyList := TStringlist.Create;
+ try
+ ColList.CommaText := ColumeStr;
+ KeyColList.CommaText := KeyColumeStr;
+ KeyList.CommaText := KeyStr;
+ if ColNo = 0 then
+ begin
+ for i := 1 to TableList.Count -1 do //找key對不對
+ begin
+ Findindex := i;
+ for n := 0 to KeyColList.Count - 1 do
+ begin
+ Find := True;
+ Keycols := KeyColList.Strings[n];
+ keys := KeyList.Strings[n];
+ //Showmessage(keys);
+ //Showmessage(TableList.Strings[i]);
+ if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
+ //if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度 //20130521發現找資料會有問題
+ Continue
+ Else //不對.離開
+ begin
+ Find := False;
+ Break;
+ end;
+ end;
+ if Find then Break; // 找到了離開
+ end;
+ end
+ Else
+ begin
+ i := ColNo;
+ Findindex := i;
+ for n := 0 to KeyColList.Count - 1 do
+ begin
+ Find := True;
+ Keycols := KeyColList.Strings[n];
+ keys := KeyList.Strings[n];
+ //if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
+ if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度
+ Continue
+ Else //不對.離開
+ begin
+ Find := False;
+ Break;
+ end;
+ end;
+ end;
+ if Find then //有找到key
+ begin
+ for n := 0 to ColList.Count -1 do
+ begin
+ Cols := ColList.Strings[n];
+ ResultList.Add(Cols+','+GetSQLData(TableList,Cols,Findindex));
+ end;
+ end;
+ finally
+ Result := Find;
+ ColList.Free;
+ KeyColList.Free;
+ KeyList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetFindResult(Col:String):String;
+var
+ i,v,v1 : Integer;
+ S,RCol,RValue : String;
+begin
+ Result := '';
+ for I := 0 to FindResult.Count - 1 do
+ begin
+ S := FindResult.Strings[i];
+ v := Pos(',',S);
+ v1 := length(S);
+ RCol := copy(S,1,v-1);
+ RValue := Copy(S,v+1,v1-v);
+ if Col =RCol then
+ Result := RValue;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.DataLoading(Loading:Boolean;UseTimer:Boolean); //資料載入中要停止點選的動作
+begin
+ If Loading Then
+ begin
+ Screen.Cursor := -11;
+ if UseTimer then
+ begin
+ Panel22.Caption := ShowText;
+ Panel22.Left := (Panel9.Width div 2) - (Panel22.Width div 2);
+ Panel22.Top := (Panel9.Height div 2) - (Panel22.Height div 2);
+ Panel22.Visible := True;
+ Timer2.Enabled := True;
+ end
+ Else
+ begin
+ Panel8.Left := (Panel9.Width div 2) - (Panel8.Width div 2);
+ Panel8.Top := (Panel9.Height div 2) - (Panel8.Height div 2);
+ Panel8.Visible := True;
+ end;
+ Application.ProcessMessages;
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ end
+ Else
+ begin
+ Panel22.Visible := False;
+ Panel8.Visible := False;
+ Timer2.Enabled := False;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ Screen.Cursor := 0;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.CaseHelpBtnClick(Sender: TObject);
+var
+ ErrlistForm : TErrlistForm;
+ S : TStringlist;
+ UpFormID : String;
+ Anchor : String;
+begin
+ ShowText := _Msg('處理檢核失敗中,請稍候');
+ DataLoading(True,True);
+LogFile1.LogToFile(logTimeString+'處理檢核失敗中開始');
+ ErrlistForm := TErrlistForm.Create(Self);
+ RejectCase := False;
+ S := TStringlist.Create;
+ try
+ InitialLanguage(ErrlistForm);
+ Application.ProcessMessages;
+ ErrlistForm.LogFile1.LogFile:=LogFile1.LogFile;
+ ErrlistForm.DeleteBt.Caption := ErrlistForm.DeleteBt.Caption+'(&D)';
+ ErrlistForm.iniPath := ImageSavePath + NowCaseNo+'\upload\';
+ OMRErrini2List(NowCaseno,ErrlistForm);
+ ErrlistForm.ErrListLV.ItemIndex := ErrIndex;
+ ErrlistForm.Timer1.Enabled := true;
+ if ErrlistForm.ShowModal = mrok then
+ begin
+ TransPath := ImageSavePath+NowCaseNo+'\upload\';
+ if FMode = 'ISCAN' then
+ TransPath := ImageSavePath + NowCaseNo+'\DownTemp\';
+ ShowText := NowCaseNo+_Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+
+ if FMode = 'ISCAN' then
+ begin
+ If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
+ begin
+ DataLoading(False,False);
+ Exit;
+ end;
+ end
+ Else
+ begin
+ If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
+ begin
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+ CaseHelpBtn.Visible := False;
+ LoadImgFile;
+ if (FMode='NSCAN') or (FMode='DSCAN') then
+ begin
+ Showmessage(NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程。'));
+ end;
+
+ if FMode='ESCAN' then
+ begin
+ Showmessage(NowCaseNo+_Msg('影像已補件完成。'));
+ end;
+
+ DataLoading(False,False);
+ end
+ Else
+ begin
+ MyTreeNode2ReFresh(NowCaseNo);
+ end;
+ finally
+ ErrlistForm.Free;
+ DataLoading(False,False);
+ S.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.CheckCaseBtnClick(Sender: TObject);
+Var
+ CaseID : String;
+ i,n,v : Integer;
+ S : TStringlist;
+begin
+ //if TreeView1.Selected = nil then Exit;
+ //if TreeView1.Selected = NewTreeNode then Exit;
+ Displaypath := ''; //20130327 修正報價單號會錯置的問題
+ S := TStringlist.Create;
+ try
+ ClearView(1);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ For i := 0 to NewTreeNode.Count -1 do
+ begin
+ v := posend('-',NewTreenode.Item[i].Text);
+ CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
+ begin
+ If OMRCheckCase(CaseID) then //有成功
+ begin
+ S.Add('Y');
+ S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+ end;
+ end;
+ //MyTreeNode2ReFresh(CaseID); //原本是OMR單一案件,後改成OMR全部案件 所以這個要mark
+ end;
+ LoadImgFile;
+ TreeView1Click(nil);
+ DataLoading(False,False);
+ finally
+ S.Free;
+ end;
+ Showmessage(_Msg('檢核完成'));
+end;
+
+procedure TCB_IMGPSScanX.ClearView(stkv:Integer);
+var i:integer;
+ ISB : TImageScrollBox;
+ lb : TLabel;
+begin
+ For i:= stkv to 8 do
+ begin
+ ISB := TImageScrollBox(FindComponent('ISB'+intToStr(i)));
+ ISB.FileName := '';
+ Lb := TLabel(FindComponent('Lb'+intToStr(i)));
+ Lb.Caption := '';
+ end;
+ FreePreViewISB;
+ ISB1Click(ISB1);
+end;
+
+Function TCB_IMGPSScanX.DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree
+Var
+ i,n,m : Integer;
+ DocNode,FormNode : TTreeNode;
+ DocNoPage,FormPage : Integer;
+ DocNoCopies : Integer;
+ DocNo,iDocNo : String;
+ DocVer : String;
+ FileList : TStringlist;
+ FormID,iFormID : String;
+ FormName : String;
+ CaseDocNoList,CaseDocNo_CopiesList,StrList : TStringlist;
+ iiDocNo,iiFormID,iiDocVer : String;
+ ST1:TStringList;
+begin
+ Result := False;
+ FileList := TStringlist.Create;
+ CaseDocNoList := TStringlist.Create;
+ CaseDocNo_CopiesList := TStringlist.Create;
+ StrList := TStringlist.Create;
+ ST1:=TStringList.Create;
+LogFile1.LogToFile(logTimeString+'產文件樹開始');
+ try
+ CaseNode.ImageIndex := 1;
+ CaseNode.SelectedIndex := 1;
+ While CaseNode.Count > 0 do //全刪
+ begin
+ CaseNode.Item[0].Delete;
+ end;
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');
+ if FileExists(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat');
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ FileList.Clear;
+ //Showmessage(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
+ if FileExists(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
+ iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
+ ST1.Clear;
+
+LogFile1.LogToFile(logTimeString+'FileList.Text='+FileList.CommaText);
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ for n := 0 to FileList.Count - 1 do
+ begin
+ if ISExistImg(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\'+FileList.Strings[n]) then
+ begin
+ ST1.Add(FileList.Strings[n]);
+ end;
+ end;
+ for n := 0 to ST1.Count - 1 do
+ begin
+ if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
+ begin
+ FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
+ end;
+ end;
+ end
+ Else
+ if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該加這段
+
+
+
+LogFile1.LogToFile(logTimeString+'WH_category='+FWH_category+',Is_In_Wh='+FIs_In_Wh+',FileList.Text='+FileList.CommaText);
+ if FileList.Count=0 then Continue;
+
+ DocNoCopies := Strtoint(CaseDocNo_CopiesList.Strings[i]);
+ DocNoPage := FileList.Count;
+ iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
+//Showmessage(iDocNo);
+//Showmessage(DocNo2DocName(Caseno,iDocNo));
+//ShowMessage('FileList='+FileList.Text);
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
+ ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
+ begin
+ Continue;
+ end;}
+
+ //if not DocNoAppear(iDocNo) then Continue;
+
+
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('頁'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoPage]));
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoCopies]));
+//ShowMessage('iDocNo='+iDocNo);
+ DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),CaseDocNoList.Strings[i],DocNoCopies]));
+
+ if GetUseCase('F',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
+ begin
+ DocNode.ImageIndex := 8;
+ DocNode.SelectedIndex := 8;
+ end
+ Else if GetUseCase('T',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
+ begin
+ DocNode.ImageIndex := 9;
+ DocNode.SelectedIndex := 9;
+ end
+ Else
+ begin
+ DocNode.ImageIndex := 2;
+ DocNode.SelectedIndex := 2;
+ end;
+ if ((Pos('ZZZZZ',DocNode.Text) = 0) and (Pos('YYYYY',DocNode.Text) = 0)) and (FileList.Count =0) then //制式文件
+ begin
+ for n := 1 to LASTEST_FORM_INF_List.Count - 1 do
+ begin
+ StrList := SplitString('!@!',LASTEST_FORM_INF_List.Strings[n]);
+ iiFormID := StrList.Strings[0];
+ iiDocNo := StrList.Strings[1];
+ if iiDocNo = iDocNo then
+ begin
+ FormID := iiFormID;
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ DocNode.AlphaSort(True);
+ end;
+ end;
+ end
+ else if (Pos('ZZZZZ',DocNode.Text) > 0) or (Pos('YYYYY',DocNode.Text) > 0) then //自訂文件
+ begin
+ FormID := GetCustomFormID(ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]);
+ //showmessage(FileList.Text);
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ DocNode.AlphaSort(True);
+ end;
+ SortDocDir_FormID(Caseno,CaseDocNoList.Strings[i]); //檔名依FormID排序
+
+ for n := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[n]);
+ DocVer := FormCode2Version(FormID);
+ DocNo := FormCode2DocNo(FormID);
+ if CheckFormIDExists(DocNode,FormID) then Continue;
+ //Showmessage(FormID+#13+DocNo+#13+DocVer);
+ for m := 0 to FormID_List.Count - 1 do
+ begin
+ iiFormID := FormID_List.Strings[m];
+ iiDocNo := DocNo_List.Strings[m];
+ iiDocVer := FormCode2Version(iiFormID);
+ if (iiDocNo = DocNo) and (iiDocVer = DocVer) then
+ begin
+ //Showmessage(iiFormID+#13+iiDocNo+#13+iiDocVer);
+ FormID := iiFormID;
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ DocNode.AlphaSort(True);
+ end;
+ end;
+
+
+ //if not CheckFormIDExists(DocNode,FormID) then
+ //begin
+ // Application.ProcessMessages;
+ // FormPage := GetFormIDPage(FileList,FormID);
+ /// FormName := FormCode2FormName(Caseno,FormID);
+ /// FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ // FormNode.ImageIndex := 4;
+ // FormNode.SelectedIndex := 4;
+ //end;
+ end;
+ end;
+
+ if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then
+ begin
+
+ FileList.Clear;
+ if FileExists(ImageSavePath+Caseno+'\'+AttName+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+Caseno+'\'+AttName+'\Context.dat')
+ Else
+ begin
+ Rmdir(ImageSavePath+Caseno+'\'+AttName);
+ Exit;
+ end;
+ DocNoPage := FileList.Count;
+ iDocNo := DocNoDir2DocNo(AttName);
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
+ DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),AttName,1]));
+ DocNode.ImageIndex := 2;
+ DocNode.SelectedIndex := 2;
+ for n := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[n]);
+ if not CheckFormIDExists(DocNode,FormID) then
+ begin
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ end;
+ end;
+ end;
+
+ if FModeName='件' then //20170904 先裝死 因為異動 同時存在兩種附件太難寫
+ begin
+ if DirectoryExists(ImageSavePath+Caseno+'\Attach') then
+ begin
+ FileList.Clear;
+ if FileExists(ImageSavePath+Caseno+'\Attach'+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+Caseno+'\Attach'+'\Context.dat')
+ Else
+ begin
+ Rmdir(ImageSavePath+Caseno+'\Attach');
+ Exit;
+ end;
+ DocNoPage := FileList.Count;
+ iDocNo := DocNoDir2DocNo(AttName);
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
+ DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
+
+ DocNode.ImageIndex := 2;
+ DocNode.SelectedIndex := 2;
+ for n := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[n]);
+ if not CheckFormIDExists(DocNode,FormID) then
+ begin
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ end;
+ end;
+ end;
+ end;
+LogFile1.LogToFile(logTimeString+'產文件樹結束');
+ Finally
+ FileList.Free;
+ CaseDocNoList.Free;
+ CaseDocNo_CopiesList.Free;
+ StrList.Free;
+ ST1.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.initkscan;
+begin
+ ScanDuplexCB.Enabled := False;
+ if Scanner.IsConfigured then
+ begin
+ try
+ Scanner.OpenSource;
+ IF Scanner.DuplexCap > 0 Then
+ begin
+ ScanDuplexCB.Enabled := True;
+ end;
+ {IF Scanner.FEEDERCAP Then
+ ScanFlatCB.Enabled := True; }
+ Except
+ DataLoading(False,True);
+ Exit;
+ end;
+ Scanner.CloseSource;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.initParameter;
+begin
+
+// if FCaseNoLength=0 then
+// begin
+//
+// end;
+
+ if FFileSizeLimit = 0 then
+ begin
+ FFileSizeLimit := 5*1024;
+ end;
+
+
+ if FImgDPI=0 then
+ begin
+ FImgDPI := 300;
+ ScanDpi := FImgDPI;
+ end
+ else
+ begin
+ //FImgDPI := StrToInt(Value);
+ ScanDpi := FImgDPI;
+ end;
+
+ if FScanColor = 0 then
+ begin
+ ScanColor := ifBlackWhite;
+ end;
+
+ if FScanColor = 1 then
+ begin
+ ScanColor := ifGray256 ;
+ ScanGrayCB.Checked:=True;
+ end;
+
+ if FScanColor = 2 then
+ begin
+ ScanColor := ifTrueColor ;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PrtLbClick(Sender: TObject);
+var
+ Width : Double;
+ Height : Double;
+ i : Integer;
+ DocDirList,FileList :TStringlist;
+ iDocDir,iDocNo : String;
+ PrtDialog : TPrintDialog;
+ S : String;
+begin
+ ShowText := _Msg('列印中,請稍候');
+ DataLoading(True,True);
+ Case2upload(NowCaseNo); //產生原影像結構
+
+
+ //ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
+
+ PrintForm := TPrintForm.create(Self);
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ FileList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
+ DocDirList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\DocDir.dat');
+
+ InitialLanguage(PrintForm); //載入多國語言
+ PrintForm.CheckListBox1.Items.Clear;
+ For i := 0 to FileList.Count - 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocno := DocNoDir2DocNo(iDocDir);
+
+ if not DocNoAppear(iDocNo) then Continue;
+
+ PrintForm.CheckListBox1.Items.Add(FileList.Strings[i]);
+ if CheckFormID_Prt(FileName2FormCode(FileList.Strings[i])) then
+ PrintForm.CheckListBox1.Checked[i] := True;
+ PrintForm.ListBox1.Items.Add(Add_Zoo(i+1,3))
+ end;
+ If (PrintForm.ShowModal = mrOK) then
+ begin
+ S := '';
+ for I := 0 to PrintForm.CheckListBox1.Count -1 do
+ begin
+ if PrintForm.CheckListBox1.Checked[i] then
+ begin
+ if S = '' then
+ S := S+PrintForm.CheckListBox1.Items[i]
+ Else
+ S := S+#13+PrintForm.CheckListBox1.Items[i];
+ end;
+ end;
+ if S = '' then
+ begin
+ Showmessage(_msg('尚未選擇欲列印文件'));
+ Exit;
+ end
+ Else
+ begin
+ PrintImg(S,FUserID,ServerDate,ImageSavePath+NowCaseNo+'\Upload\');
+ If not Writelog(NowCaseNo) then
+ begin
+ //Showmessage('false');
+ end;
+ end;
+ end;
+ finally
+ DataLoading(False,False);
+ PrintForm.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.UseOldCaseLbClick(Sender: TObject);
+var
+ i,n : Integer;
+ CaseID,Year,BS_No,IS_Old : String;
+ OldCaseInfoForm : TOldCaseInfoForm;
+ OldCaseInfoList,Caseinfolist,FileList,DocNoList,iFileList,iDocNoList,iDocNo_CopiesList : TStringlist;
+ OldDocdir,OldDocNo,OldDocName,NewDocDir,FileName : String;
+ OldPath,NewPath,OldFile,NewFile:String;
+ Oldcopies:Integer;
+begin
+ OldCaseInfoForm := TOldCaseInfoForm.Create(Self);
+ OldCaseInfoList := TStringlist.Create;
+ Caseinfolist := TStringlist.Create;
+ FileList := TStringlist.Create;
+ DocNoList := TStringlist.Create;
+ iDocNo_CopiesList := TStringlist.Create;
+ iFileList := TStringlist.Create;
+ iDocNoList := TStringlist.Create;
+ OldCaseInfoForm.OldDocDirList := TStringlist.Create;
+ OldCaseInfoForm.OldDocNameList := TStringlist.Create;
+ OldCaseInfoForm.IN_WH_DocNoList := TStringlist.Create;
+ OldCaseInfoForm.OldCopiesList := TStringlist.Create;
+ try
+ InitialLanguage(OldCaseInfoForm); //載入多國語言
+ OldCaseInfoForm.Notebook1.ActivePage := 'CaseInfo';
+ OldCaseInfoForm.ImageSavePath := ImageSavePath;
+ OldCaseInfoForm.CaseID := NowCaseNo;
+ OldCaseInfoForm.Furl := Furl;
+ OldCaseInfoForm.Fdata := FData;
+ OldCaseInfoForm.FVerify := FVerify;
+ OldCaseInfoForm.FReWrite := FReWrite;
+ OldCaseInfoForm.FOldCaseInfo := FOldCaseInfo;
+
+ //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數]
+ OldCaseInfoList.StrictDelimiter := true;
+ OldCaseInfoList.Delimiter := #9;
+ OldCaseInfoList.DelimitedText := FOldCaseInfo;
+ //Showmessage(FOldCaseInfo);
+ //Showmessage(OldCaseInfoList.Text);
+ OldCaseInfoForm.IN_WH_DocNoList.Assign(IN_WH_DocNoList);
+ OldCaseInfoForm.FIs_In_Wh := FIs_In_Wh;
+ for i := 0 to OldCaseInfoList.Count - 1 do
+ begin
+ Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
+ //Caseinfolist.Delimiter := '_';
+ //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
+ CaseID := Caseinfolist.Strings[0];
+ Year := Caseinfolist.Strings[1];
+ BS_No := Caseinfolist.Strings[2];
+ IS_Old := Caseinfolist.Strings[3];
+ With OldCaseInfoForm.OldCaseLV.Items.Add do
+ begin
+ Caption := CaseID;
+ SubItems.Add(Year);
+ SubItems.Add(BS_No);
+ SubItems.Add(IS_Old);
+ end;
+ end;
+
+ if OldCaseInfoForm.ShowModal = MrOk then
+ begin
+ OldPath := ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\';
+ NewPath := ImageSavePath+NowCaseNo+'\';
+
+ iDocNoList.Clear;
+ if FileExists(NewPath+'CaseDocNo.dat') then
+ iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');
+ if FileExists(NewPath+'CaseDocNo_Copies.dat') then
+ iDocNo_CopiesList.LoadFromFile(NewPath+'CaseDocNo_Copies.dat');
+
+ for i := 0 to OldCaseInfoForm.OldDocDirList.Count - 1 do
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ DocNoList.LoadFromFile(OldPath+'DocDir.dat');
+
+
+ OldDocName := OldCaseInfoForm.OldDocNameList.Strings[i];
+ OldDocDir := OldCaseInfoForm.OldDocDirList.Strings[i];
+ OldDocNo := DocNoDir2DocNo(OldDocDir);
+ if Copy(OldDocNo,1,5)<>'ZZZZZ' then
+ begin
+ if DocNoNeedDiv(OldDocNo) then
+ NewDocDir := DocNo2DocNoDir(NewPath,OldDocNo)
+ else
+ NewDocDir := OldDocNo;
+ end
+ Else
+ begin
+ NewDocDir := GetNewCustomDocNo(NewPath,OldDocName);
+ end;
+ SetRecordEditedDocDir('A',NowCaseNo,NewDocDir);
+ iFileList.Clear;
+ if FileExists(NewPath+NewDocDir+'\Context.dat') then
+ iFileList.LoadFromFile(NewPath+NewDocDir+'\Context.dat');
+
+ if Not DirectoryExists(NewPath+NewDocDir) then
+ begin
+
+
+ iDocNoList.Add(NewDocDir);
+ Oldcopies := GetDocDirCopies(NowCaseNo+'\'+OldCaseInfoForm.UseCaseID,OldDocDir); //舊案的CaseID 放在新案CaseID目錄裡
+ if FileExists(ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\CaseDocNo_Copies.dat') then
+ iDocNo_CopiesList.Add(inttostr(Oldcopies))
+ else
+ begin
+ OldCopies := GetDocDircopies_Rec(OldPath,OldCaseInfoForm.UseCaseID,OldDocDir);
+ iDocNo_CopiesList.Add(inttostr(Oldcopies));
+ //iDocNo_CopiesList.Add('1');
+ end;
+ MkDir(NewPath+NewDocDir);
+ end;
+ SetUseCase('A',NewPath,NewDocDir,OldCaseInfoForm.UseCaseID,''); //NewDocDir 從哪來的
+ SetUseCase('A',OldPath,OldDocDir,'',NowCaseNo); //OldDocDir 去哪了
+ StringtoFile('Y',OldPath+'UseCase.dat'); //要上傳
+ for n := 0 to DocNoList.Count - 1 do
+ begin
+ if OldDocDir = DocNoList.Strings[n] then
+ begin
+ OldFile := FileList.Strings[n];
+ if Copy(NewDocDir,1,5)<>'ZZZZZ' then
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile)
+ Else
+ NewFile := Add_Zoo(iFileList.Count+1,3)+'_'+GetCustomFormID(NewPath,NewDocDir)+ExtractFileExt(OldFile);
+
+ iFileList.Add(NewFile);
+ CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);
+ end;
+ end;
+ iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');
+ end;
+
+ iDocNoList.SaveToFile(NewPath+'CaseDocNo.dat');
+ iDocNo_CopiesList.SaveToFile(NewPath+'CaseDocNo_Copies.dat');
+ DrawDocItem2(MyTreeNode1,NowCaseNo);
+ //MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ NewTreeNodeRefresh;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ end;
+ finally
+ OldCaseInfoForm.OldDocDirList.Free;
+ OldCaseInfoForm.OldDocNameList.Free;
+ OldCaseInfoForm.OldCopiesList.Free;
+ OldCaseInfoList.Free;
+ Caseinfolist.Free;
+ FileList.Free;
+ DocNoList.Free;
+ iDocNo_CopiesList.Free;
+ iFileList.Free;
+ iDocNoList.Free;
+ OldCaseInfoForm.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.LastInitFormidListCreate(path: string);
+var
+ i:integer;
+ ST1:TStringList;
+ str1:string;
+begin
+//ShowMessage('path='+path);
+ ST1:=TStringList.Create;
+ ST1.LoadFromFile(path+'FormCode_Name.dat');
+ for I := 0 to ST1.Count - 1 do
+ begin
+ if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
+ begin
+ str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
+ LastInitFormidList.Add(str1);
+ end;
+ end;
+
+ ST1.Free;
+end;
+
+function TCB_IMGPSScanX.LoadFileGetMD5(const filename: string): string;
+var
+ Stream: TFileStream;
+ //Buffer: array[0..1023] of AnsiChar;
+ Buffer: array[0..1023] of AnsiChar;
+ TempStr: string;
+ i: Integer;
+ idmd5:TIdHashMessageDigest5; //import IdHashMessageDigest, idHash
+
+begin
+ idmd5 := TIdHashMessageDigest5.Create;
+
+ try
+ Stream := TFileStream.Create(filename, fmOpenRead);
+ Stream.Read(Buffer[0], SizeOf(Buffer));
+
+ result := idmd5.HashStreamAsHex(Stream) ;
+ finally
+ idmd5.Free;
+ Stream.Free;
+
+ end;
+end;
+
+procedure TCB_IMGPSScanX.LoadImgFile; //載入新件及替換件
+Var
+ i,v,v1,m : Integer;
+ CasePage : integer;
+ TempName : String;
+ BarName : String;
+ DocName : String;
+ //S : String;
+begin
+ ClearView(1);
+ PageLV.Clear;
+ AttListBox.Items.Clear;
+ AddAttFileLB.Enabled := False;
+ DelAttFileLB.Enabled := False;
+ DisplayPath := '';
+ ClearCaseIndex;
+ CaseHelpBtn.Visible := False;
+ //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ TreeView1.Items.Clear;
+ NewTreeNode := nil;
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ MyTreenode3 := nil;
+ NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
+ NewTreenode.ImageIndex := 0;
+ NewTreenode.SelectedIndex := 0;
+ Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ GetCase_PageCount(CaseCount,PageCount);
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ for i := 0 to CaseList.Count - 1 do
+ begin
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
+ if not FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat') then
+ begin
+ CaseDocNo_CopiesList.Clear;
+ for m := 0 to CaseDocNoList.Count - 1 do
+ begin
+ CaseDocNo_CopiesList.Add('1');
+ CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');
+ end;
+ end;
+
+ CasePage := GetCasePage(ImageSavePath,CaseList.Strings[i]);
+//ShowMessage('CasePage='+IntToStr(CasePage));
+ MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[i],CasePage]));
+ MytreeNode1.ImageIndex := 1;
+ MytreeNode1.SelectedIndex := 1;
+ DrawDocItem2(MytreeNode1,CaseList.Strings[i]); //長出文件名稱的樹並傳回是否有申請書的影像
+ if Pos(_Msg('未配號'),CaseList.Strings[i]) > 0 then
+ begin
+ MytreeNode1.ImageIndex := 5;
+ MytreeNode1.SelectedIndex := 5;
+ end;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\OMRCheckOk.dat') Then
+ begin
+ MytreeNode1.ImageIndex := 7;
+ MytreeNode1.SelectedIndex := 7;
+ CaseHelpBtn.Visible := False;
+ end
+ Else IF FileExists(ImageSavePath+CaseList.Strings[i]+'\Checkerr.ini') Then
+ begin
+ MyTreenode1.ImageIndex := 5;
+ MyTreenode1.SelectedIndex := 5;
+
+ //AllEnforceLb.Visible := True; //全部強迫送件
+ end;
+ end;
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ If NewTreeNode <> nil Then
+ begin
+ TreeView1.Selected := NewTreeNode;
+ NewTreeNode.Expand(False);
+ end;
+ IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
+ begin
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.LoadImgFile1; //載入新件及替換件
+Var
+ i,n,v,v1,m : Integer;
+ p : integer;
+ iCaseNo,iDocNo : String;
+ TempName : String;
+ BarName : String;
+ DocName : String;
+ //S : String;
+begin
+ ClearView(1);
+ PageLV.Clear;
+ DisplayPath := '';
+ ClearCaseIndex;
+ CaseHelpBtn.Visible := False;
+ //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ TreeView1.Items.Clear;
+ NewTreeNode := nil;
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ MyTreenode3 := nil;
+ NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
+ NewTreenode.ImageIndex := 0;
+ NewTreenode.SelectedIndex := 0;
+
+ Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ GetCase_PageCount(CaseCount,PageCount);
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ for n := 0 to CaseList.Count - 1 do
+ begin
+ iCaseNo := CaseList.Strings[n];
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat');
+
+ for m := 0 to CaseDocNoList.Count - 1 do
+ begin
+ iDocNo := CaseDocNoList.Strings[i];
+ MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
+ MytreeNode1.ImageIndex := 1;
+ MytreeNode1.SelectedIndex := 1;
+ end;
+
+
+ ContextList.Clear;
+ Context_DocnoList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[n]+'\Context.dat') Then
+ begin
+ ContextList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context.dat');
+ if FileExists(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat') then
+ Context_DocnoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat')
+ else
+ begin
+ for m := 0 to ContextList.Count - 1 do
+ begin
+ Context_DocnoList.Add(FormCode2DocNo(FileName2FormCode(ContextList.Strings[m])));
+ end;
+ Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');
+ end;
+ Cust_DocNoList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat');
+
+ P := ContextList.Count;
+ MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
+ MytreeNode1.ImageIndex := 1;
+ MytreeNode1.SelectedIndex := 1;
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像
+ DrawDocItem2(MytreeNode1,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像 20140820改
+
+ if Pos(_Msg('未配號'),CaseList.Strings[n]) > 0 then
+ begin
+ MytreeNode1.ImageIndex := 5;
+ MytreeNode1.SelectedIndex := 5;
+ end;
+ If FileExists(ImageSavePath+CaseList.Strings[n]+'\OMRCheckOk.dat') Then
+ begin
+ MytreeNode1.ImageIndex := 7;
+ MytreeNode1.SelectedIndex := 7;
+ CaseHelpBtn.Visible := False;
+ end
+ Else IF FileExists(ImageSavePath+CaseList.Strings[n]+'\Checkerr.ini') Then
+ begin
+ MyTreenode1.ImageIndex := 5;
+ MyTreenode1.SelectedIndex := 5;
+
+ //AllEnforceLb.Visible := True; //全部強迫送件
+ end;
+ end;
+ end;
+
+
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ If NewTreeNode <> nil Then
+ begin
+ TreeView1.Selected := NewTreeNode;
+ NewTreeNode.Expand(False);
+ end;
+ ContextList.Clear;
+ IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
+ begin
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.LoadAttFile(CaseID:String); //載入附加檔案
+var
+ AttContextList : TStringlist;
+ i : Integer;
+begin
+ AttListBox.Clear;
+ AttContextList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then
+ begin
+ AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');
+ end;
+ for i := 0 to AttContextList.Count - 1 do
+ begin
+ AttListBox.Items.Add(UTF8Decode(HTTPDEcode(AttContextList.Strings[i])));
+ end;
+ finally
+ AttContextList.Free;
+ end;
+end;
+
+function TCB_IMGPSScanX.logTimeString: String;
+begin
+Result:=FormatDateTime('yyyymmdd hh:mm:ss',now) +' caseNo='+NowCaseno+' ';
+end;
+
+Function TCB_IMGPSScanX.FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼
+var
+ i : Integer;
+ DelBarCode : String;
+ S : TStringlist;
+ iMode : String;
+begin
+ Result := False;
+ iMode := FMode;
+ S := TStringlist.Create;
+ try
+ IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DIVISION','T1.FORM_ID',FormCode,0,FindResult) then
+ begin
+ S.CommaText := GetFindResult('T1.DIVISION');
+ for i := 0 to S.Count - 1 do //可能有多組
+ begin
+ if S.Strings[i] = iMode then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckAvailable:Boolean; //檢查是否可使用元件
+var
+ SendData : String;
+ Msg:String;
+ Nowcount,Totalcount,Lic_Idx : Integer;
+ MacID,IPStr,LegalDate :String;
+begin
+ Result := False;
+ /////下載MPSLIC_SCAN.lic //////
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Exit;
+ end;
+ /////下載MPSLIC_SCAN.lic ///
+
+ if CheckLicensebyIP_new(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,LegalDate,Msg,Nowcount,Totalcount,Lic_Idx) then //檢查是否己註冊過
+ begin
+ if (LegalDate <> '') and (ServerDate>LegalDate) and (Lic_Idx>(Totalcount)) then
+ begin
+ Showmessage(_Msg('已經超過可使用期限及超出授權數請連絡廠商'));
+ Result := False;
+ //Exit;
+ end
+ else
+ Result := True;
+ end
+ Else
+ begin
+ if Msg <> '' then
+ begin
+ Showmessage(Format(_Msg('註冊檔有問題,請連絡廠商 錯誤原因:%s'),[Msg]));
+ Result := false;
+ Exit;
+ end
+ Else
+ begin
+ if (LegalDate <> '') and (ServerDate>LegalDate) and (NowCount =0 ) then
+ begin
+ Lic_Idx := 0;
+ Showmessage(_Msg('已經超過可使用期限請連絡廠商'));
+ Result := False;
+ //Exit;
+ end
+ //else if (LegalDate = '') and (Nowcount >= Totalcount+10) then //超過註冊數量
+ else if ((LegalDate = '') or ((LegalDate <> '') and (ServerDate>LegalDate)) ) and (Nowcount >= Totalcount) then //超過註冊數量 20150717 yuu說拿掉送的10個
+ begin
+ Lic_Idx := 0;
+ Showmessage(_Msg('已經超過授權數請連絡廠商'));
+ Result := False;
+ end
+ Else //未超過註冊數量要寫入註冊檔
+ begin
+ {if Messagedlg(_Msg('您尚未註冊授權是否要進行註冊??'),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then
+ begin
+ Result := False;
+ Exit;
+ end;}
+ ShowText := _Msg('授權中,請稍候');
+ AddLicense(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,Msg);
+ Nowcount := Nowcount + 1;
+ DataLoading(True,True);
+
+ /////上傳MPSLICSCAN.lic ////
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'@verify='+FVerify+'@work_no=PLN@file_name=MPSLIC_SCAN.lic';
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+ /////上傳MPSLICSCAN.lic /////
+ //Sleep(30000); //第一次註冊睡30秒 先不睡
+ Result := True;
+ end;
+ end;
+ end;
+ if FileExists(LngPath+'MPSLIC_SCAN.lic') then
+ DeleteFile(LngPath+'MPSLIC_SCAN.lic');
+ if LegalDate = '' then
+ StatusBar1.Panels[4].Text := Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID,inttostr(Totalcount-Nowcount)]);
+ if LegalDate <> '' then
+ StatusBar1.Panels[4].Text := '*'+Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID+'('+inttostr(Lic_Idx)+')',inttostr(Totalcount-Nowcount)]);
+end;
+
+procedure TCB_IMGPSScanX.SmoothCBClick(Sender: TObject);
+begin
+ if SmoothCB.Checked then
+ begin
+ Image_Smooth(ISB1.Graphic);
+ ISB1.Redraw(True);
+ end;
+end;
+
+Function TCB_IMGPSScanX.Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像 20170639 發現沒用到
+var
+ XT : TXMLTool;
+ i : Integer;
+ S : TStringlist;
+ SiteList : TStringlist;
+ FormID : String;
+ ColEName : String;
+ FileName : String;
+ nodename : String;
+ Site : String;
+ Anchor : String;
+begin
+ Result := False;
+ if DirectoryExists(DePath) then
+ _DelTree(DePath);
+ Str2Dir(DePath);
+ DeleteFile(SoPath+'MaskImg.zip');
+ SiteList := TStringlist.Create;
+ S := TStringlist.Create;
+ XT := TXMLTool.Create;
+ try
+ S.LoadFromFile(SoPath+'Context.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ SiteList.Clear;
+ ImageScrollBox1.LoadFromFile(SoPath+S.Strings[i],1);
+
+ FormID := FileName2FormCode(S.Strings[i]);
+ Anchor := FormID2Anchor(FormID);
+ //ParserPoint(CropMpsV.FindPoint(Anchor));
+ FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,Anchor);
+ if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then //沒有Xml就不用遮罩
+ begin
+ XT.LoadFromFile(CheckXmlPath+FWork_no+'\'+FormID+'.xml');
+ if XT.SubNodes['/form/settype10/'].First then
+ Repeat
+ ColEName := XT.SubNodes['/form/settype10/'].NodeName;
+ if XT.SubNodes['/form/settype10/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype10/'+ColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ Site := XT.Node['/form/settype10/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
+ SiteList.Add(Site);
+ Result := True; //有設定
+ end
+ Else
+ begin
+ //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
+ end;
+ Until not XT.SubNodes['/form/settype10/'+ColEName+'/'].Next;
+ Until not XT.SubNodes['/form/settype10/'].Next ;
+ FieldMask(ImageScrollBox1,SiteList.Text,'Mask',UpLPoint);
+ end;
+ SaveAnnotation(ImageScrollBox1,DePath+S.Strings[i]);
+ end;
+ finally
+ SiteList.Free;
+ S.Free;
+ XT.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
+Var
+ i,FormIDCount : Integer;
+begin
+ Result := False;
+ FormIDCount := 0;
+ if (Graphic.Width > (4 * Graphic.XDotsPerInch)) {or (Graphic.Height > (15 * Graphic.YDotsPerInch))} then
+ //if (Graphic.Width > (6 * Graphic.XDotsPerInch)) then
+ begin
+ for I := 1 to MpsBarcodeinf.Count do
+ begin
+ if (Length(MpsBarcodeinf.Text[i])=FormIDLength) and FormIDExists(MpsBarcodeinf.Text[i],False,0) then
+ begin
+ inc(FormIDCount);
+ end;
+ end;
+
+ end;
+
+//ShowMessage('FormIDCount='+IntToStr(FormIDCount)+#10#13+'MpsBarcodeinf.count='+IntToStr(MpsBarcodeinf.count));
+ if FormIDCount = 2 then
+ begin
+ Result := True;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號
+var
+ ini : Tinifile;
+ Ct:Integer;
+ DocNo,FormID : String;
+
+ {i,n,v,ln : Integer;
+ C_No,C_Name : String;
+ CNo : Integer;
+ S : TStringlist;
+ NewDocNo : String;}
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Ct := ini.ReadInteger('CustomCount','Count',0);
+ inc(Ct);
+ DocNo := 'ZZZZZ'+Add_Zoo(Ct,3);
+ if FIs_In_Wh <> 'Y' then //不是入庫文件
+ DocNo := 'YYYYY'+Add_Zoo(Ct,3);
+
+ if (FMode='ESCAN') and (FWH_category='N') then //20170914 補件下改成非入庫的自定文件
+ begin
+ DocNo := 'YYYYY'+Add_Zoo(Ct,3);
+ end;
+
+ FormID := DocNo+'010101A';
+ ini.WriteInteger('CustomCount','Count',Ct);
+ ini.WriteString(DocNo,'FormID',FormID);
+ ini.WriteString(DocNo,'Name',DocName);
+ Result := DocNo;
+ finally
+ ini.Free;
+ end;
+
+ {S := TStringlist.Create;
+ try
+ NewDocNo :='ZZZZZ001';
+ if FileExists(Path+'CustomDocNo.dat') then
+ begin
+ /// ZZZZZ001_自定文件名稱 001_自定文件名稱
+ S.LoadFromFile(Path+'CustomDocNo.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ v := Pos('_',S.Strings[i]);
+ ln := Length(S.Strings[i]);
+ C_No := Copy(S.Strings[i],1,v-1);
+ C_Name := Copy(S.Strings[i],v+1,ln-v);
+ if DocName = C_Name then
+ begin
+ Showmessage('文件名稱已存在');
+ Result := '';
+ Exit;
+ end;
+ end;
+ CNo := strtoint(Copy(C_No,6,3))+1;
+ NewDocNo := 'ZZZZZ'+Add_Zoo(CNo,3);
+ end;
+ S.Add(NewDocNo+'_'+DocName);
+ S.SaveToFile(Path+'CustomDocNo.dat');
+ Result := NewDocNo;
+ finally
+ S.Free;
+ end; }
+end;
+
+Function TCB_IMGPSScanX.GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Result := ini.ReadString(DocNo,'Name','');
+ finally
+ ini.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Result := ini.ReadString(DocNo,'FormID','');
+ finally
+ ini.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir
+var
+ i,ct:integer;
+ ini : Tinifile;
+begin
+ Result := '';
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ ct := ini.ReadInteger('CustomCount','Count',0);
+ for i := 1 to ct do
+ begin
+ if ini.ReadString('ZZZZZ'+Add_Zoo(i,3),'Name','') = DocName then
+ begin
+ Result := 'ZZZZZ'+Add_Zoo(i,3);
+ Break;
+ end;
+ if ini.ReadString('YYYYY'+Add_Zoo(i,3),'Name','') = DocName then
+ begin
+ Result := 'YYYYY'+Add_Zoo(i,3);
+ Break;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在
+var
+ ini : Tinifile;
+ Ct,i:Integer;
+ DocNo,FormID : String;
+begin
+ Result := False;
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Ct := ini.ReadInteger('CustomCount','Count',0);
+ for I := 1 to Ct do
+ begin
+ DocNo := 'ZZZZZ'+Add_Zoo(i,3);
+ if DocName = ini.ReadString(DocNo,'Name','') then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.DelAttFileLBClick(Sender: TObject);
+var
+ AttFile : String;
+ SelectCount : Integer;
+ i : Integer;
+begin
+ SelectCount := 0;
+ for i := 0 to AttListBox.Items.Count - 1 do
+ begin
+ if AttListBox.Selected[i] then
+ inc(SelectCount);
+ end;
+ if SelectCount = 0 then
+ begin
+ Showmessage(_Msg('請選擇要刪除的電子檔'));
+ Exit;
+ end;
+
+ if SelectCount > 0 then
+ begin
+ if Messagedlg(Format(_Msg('是否刪除這%d筆??'),[SelectCount]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ for i := 0 to AttListBox.Items.Count - 1 do
+ begin
+ if AttListBox.Selected[i] then
+ begin
+ AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[i]));
+ DeleteFile(ImageSavePath+NowCaseNo+'\'+AttFile);
+ SetAttContextList('D',-1,NowCaseno,AttFile);
+ end;
+ end;
+ end;
+ LoadAttFile(NowCaseNo);
+ Showmessage(_msg('刪除完成'));
+end;
+
+Procedure TCB_IMGPSScanX.DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ ini.EraseSection(DocNo);
+ finally
+ ini.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印
+begin
+ Result := False;
+ If FindSQLData(FORM_INF_List,'T1.IS_PRINT','T1.FORM_ID',FormID,0,FindResult) Then
+ begin
+ if GetFindResult('T1.IS_PRINT') = 'Y' Then
+ Result := True;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.PrintImg(FileName, LoginID, Datetime,
+ Path: WideString);
+var
+ PrintMode : TEnvisionPrintMode;
+ GraphicPrinter : TDibGraphicPrinter;
+ PrtDialog : TPrintDialog;
+ S : TStringlist;
+ i,Pages,Page : Integer;
+ Prt_String : String;
+ Prt_H : Integer;
+ procedure PrintWithManualPrintJob(LoginID,DateTime:String;Pages,Page:Integer);
+ begin
+ If Page = 1 Then
+ begin
+ { if UsePrintJob is False, Printer.BeginDoc and Printer.EndDoc must be
+ called by the user. This allows printing multiple images in the
+ same job (or page). }
+ GraphicPrinter.UsePrintJob := False;
+
+ { if UsePrintJob is False, the print job name that appears in the
+ print manager must be specified in using the Title property of the
+ Printer object. Otherwise, if UsePrintJob is True, the Title
+ property of the TDibGraphicPrinter object is used to specify the
+ job name. }
+ Printer.Title := _Msg('影像列印');
+ end;
+
+ IF (Page mod 2) = 1 Then
+ Printer.BeginDoc
+ Else
+ Printer.NewPage;
+
+ ImageScrollBox1.DisplayedGraphic.Canvas.Font.Size := 24;
+
+ //ImageScrollBox1.DisplayedGraphic.Canvas.TextOut(20,20, _Msg('列印人員:')+LoginID+' '+_Msg('列印分行:')+FUserUnit+' '+_Msg('列印日期:')+DateTime);
+
+ GraphicPrinter.Print(ImageScrollBox1.DisplayedGraphic);
+
+
+ { this shows how to print text on a page.
+ Printer.Canvas.TextOut(10,10, 'Envision Image Library');
+ }
+ If ((Page mod 2) = 0) or (Page = pages) Then
+ Printer.EndDoc;
+ end;
+
+ procedure PrintWithAutoPrintJob;
+ begin
+ GraphicPrinter.UsePrintJob := True;
+ GraphicPrinter.Title := _Msg('影像列印');
+ GraphicPrinter.Print(ImageScrollBox1.Graphic);
+ end;
+
+begin
+ S := TStringlist.Create;
+ GraphicPrinter := TDibGraphicPrinter.Create;
+ PrtDialog := TPrintDialog.Create(self);
+ //PrtDialog.Copies:=99;
+ try
+ IF PrtDialog.Execute Then
+ begin
+ S.Text := FileName;
+ Pages := S.Count;
+
+ for i := 0 to S.Count -1 do
+ begin
+ ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);
+ watermark2(Image1.Picture.Bitmap,70,'',ImageScrollBox1.DisplayedGraphic);
+ PrintWithManualPrintJob(LoginID,DateTime,Pages,i+1);
+ end;
+ end;
+
+ Finally
+ PrtDialog.Free;
+ GraphicPrinter.Free;
+ S.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir
+var
+ i : Integer;
+ DocNoList,FileList : TStringlist;
+begin
+ Result := '';
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := DocNoList.Count-1 downto 0 do
+ begin
+ if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
+ begin
+ Result := DocNoList.Strings[i];
+ Break;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ FileList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FindLastestDocDirForPage(CaseID,DocNo,formid:String):String; //找出最新的DocDir 20180207 排除隱藏的資料夾
+var
+ i,j:integer;
+ DocNoList,FileList : TStringlist;
+ Imglist: TStringlist;
+ DirIsHide:Boolean;
+begin
+ Result := '';
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ imglist := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ for i := DocNoList.Count-1 downto 0 do
+ begin
+ if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
+ begin
+//ShowMessage(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]);
+ if not DocNoIsExistImg(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
+ begin
+//ShowMessage('DDDDD');
+ Result := '';
+ Break;
+ end
+ else
+ begin
+ Result := DocNoList.Strings[i];
+ Break;
+ end;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ FileList.Free;
+ imglist.Free;
+ end;
+
+end;
+
+
+Procedure TCB_IMGPSScanX.Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件
+var
+ i,n : Integer;
+ C_DocNoList,C_DocNameList : TStringlist;
+ DocNo,DocName,DocDir : String;
+ DocNo_Ct,NowDocNo_Ct :integer;
+ DocName_Ct : Integer;
+ inx : Integer;
+begin
+ C_DocNoList := TStringlist.Create;
+ C_DocNameList := TStringlist.Create;
+ try
+
+ if FC_DocNoList <> '' then
+ begin
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ //Showmessage(C_DocNoList.Text);
+ for i := 0 to C_DocNoList.Count - 1 do
+ begin
+ DocNo := C_DocNoList.Strings[i];
+ //舊件不長出錯誤的文件出來
+ if (FIs_OldCase = 'Y') and (FWork_no='HLN') and (DocNo = FormCode2DocNo('10000001011112A')) then
+ Continue;
+ NowDocNo_Ct := GetDocNoCount(CaseID,DocNo);
+ if DocNoNeedDiv(DocNo) then
+ begin
+ DocNo_Ct := 0;
+ for n := 0 to i do
+ begin
+ if C_DocNoList.Strings[n] = DocNo then
+ inc(DocNo_Ct);
+ end;
+ if DocNo_CT <= NowDocNo_Ct then
+ Continue;
+ if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then //存在了
+ Continue;
+ if (DocNo_Ct = 1) and DirectoryExists(ImageSavePath+CaseID+'\'+DocNo) then //存在了 20140327加
+ Continue;
+ DocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',DocNo)
+
+ end
+ else
+ begin
+ DocDir := DocNo;
+ end;
+ if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
+ begin
+ MkDir(ImageSavePath+CaseID+'\'+DocDir);
+ SetDocNoList('A',-1,CaseID,DocDir,'1');
+ end;
+ if not DocNoNeedDiv(DocNo) then //不分份的秀數
+ SetDocDirCopies(CaseID,DocNo,GetCustomDocNoCount(DocNo));
+
+ end;
+ end;
+ if FC_DocNameList <> '' then
+ begin
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+ //Showmessage(C_DocNameList.Text);
+ for i := 0 to C_DocNameList.Count - 1 do
+ begin
+ DocName := C_DocNameList.Strings[i];
+ DocName_Ct := GetCustomNameCount(DocName);
+ if not FindCustomDocName(ImageSavePath+CaseID+'\',DocName) then
+ begin
+ DocDir := GetNewCustomDocNo(ImageSavePath+CaseID+'\',DocName);
+ if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
+ begin
+ MkDir(ImageSavePath+CaseID+'\'+DocDir);
+ SetDocNoList('A',-1,CaseID,DocDir,inttostr(DocName_Ct));
+ end;
+ end
+ Else
+ begin
+ DocDir := GetCustomDocDir(ImageSavePath+CaseID+'\',DocName);
+ //inx := DocNoDir2Index(ImageSavePath+CaseID+'\',DocDir);
+ SetDocDirCopies(CaseID,DocDir,DocName_Ct);
+ end;
+ end;
+ end;
+
+ finally
+ C_DocNoList.Free;
+ C_DocNameList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
+var
+ i,n : Integer;
+ C_DocNoList,C_DocNameList : TStringlist;
+ DocNoList,DocNo_CopiesList : TStringlist;
+ DocNo,DocName,DocDir : String;
+ DocNo_Ct :integer;
+begin
+ C_DocNoList := TStringlist.Create;
+ C_DocNameList := TStringlist.Create;
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ DocNo_CopiesList.Add('0');
+ end;
+ //Showmessage(FC_DocNoList);
+ if FC_DocNoList <> '' then
+ begin
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ //showmessage(C_DocNoList.Text+#13+#13+DocNoList.Text);
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ //DocNo := DocNoList.Strings[i];
+ DocNo := DocNoDir2DocNo(DocNoList.Strings[i]); //20140812 因轉舊案錯誤件會出現DocnoDir
+ DocNo_Ct := 0;
+ for n := 0 to C_DocNoList.Count - 1 do
+ begin
+ if DocNo = C_DocNoList.Strings[n] then
+ inc(DocNo_Ct);
+ end;
+ if DocNo_CT > 0 Then
+ DocNo_CopiesList.Strings[i] := inttostr(DocNo_CT);
+ end;
+ DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ end;
+ if FC_DocNameList <> '' then
+ begin
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ DocNo := DocNoList.Strings[i];
+ DocNo_Ct := 0;
+ for n := 0 to C_DocNameList.Count - 1 do
+ begin
+ if GetCustomDocName(ImageSavePath+CaseID+'\',DocNo) = C_DocNameList.Strings[n] then
+ inc(DocNo_Ct);
+ end;
+
+ if DocNo_CT > 0 Then
+ DocNo_CopiesList.Strings[i] :=inttostr(DocNo_CT);
+ end;
+ end;
+ DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ finally
+ C_DocNoList.Free;
+ C_DocNameList.Free;
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+
+end;
+
+Procedure TCB_IMGPSScanX.ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
+var
+ DocNoList,FileList :TStringlist;
+ EDocNo,CDocNo,iDocNo,iFormID :String;
+ EDocDir,CDocDir:String;
+ OldFile,NewFile :String;
+ iPath,iiPath : String;
+ i,n : Integer;
+begin
+ EDocNo := FormCode2DocNo(EFormID);
+ CDocNo := FormCode2DocNo(CFormID);
+ DocNoList :=TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ EDocDir := DocNoList.Strings[i];
+ iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
+ iPath := ImageSavePath+CaseID+'\'+EDocDir+'\';
+ if FileExists(iPath+'Context.dat') then //20140909漏加這個判斷造成自訂文件但沒影像會出錯誤訊息
+ FileList.LoadFromFile(iPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ iFormID := FileName2FormCode(FileList.Strings[n]);
+ if iFormID = EFormID then
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := StringReplace(FileList.Strings[n],iFormID,CFormID,[rfReplaceAll]);
+ FileList.Strings[n] := NewFile;
+ RenameFile(iPath+OldFile,iPath+NewFile);
+ FileList.SaveToFile(iPath+'Context.dat');
+ end;
+ end;
+ if iDocNo = EDocNo then
+ begin
+ CDocDir := StringReplace(EDocDir,EDocNo,CDocNo,[rfReplaceAll]);
+ iiPath := ImageSavePath+CaseID+'\'+CDocDir+'\';
+ MoveFile(PWideChar(iPath),PWideChar(iiPath));
+ DocNoList.Strings[i] := StringReplace(DocNoList.Strings[i],iDocNo,CDocNo,[rfReplaceAll]);
+ DocNoList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ //SetRecordEditedDocDir('A',CaseID,CDocNo); //20140918 yuu說改成不紀錄
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ FileList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
+var
+ i : Integer;
+ Exists : Boolean;
+ EditedDocDirList : TStringlist;
+begin
+ EditedDocDirList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
+ EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ case Mode of
+ 'A':begin
+ Exists := False;
+ for i := 0 to EditedDocDirList.Count - 1 do
+ begin
+ if EditedDocDirList.Strings[i]=DocDir then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ begin
+ EditedDocDirList.Add(DocDir);
+ EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ end;
+ end;
+ 'D':begin
+ for i := 0 to EditedDocDirList.Count - 1 do
+ begin
+ if EditedDocDirList.Strings[i] = DocDir then
+ begin
+ EditedDocDirList.Delete(i);
+ if EditedDocDirList.Count > 0 then
+ EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat')
+ else
+ DeleteFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ Break;
+ end;
+ end;
+ end;
+ end;
+
+ finally
+ EditedDocDirList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocDir_Page(CaseID,DocDir:String):Integer;
+var
+ FileList : TStringlist;
+begin
+ Result := 0;
+ FileList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ Result := FileList.Count;
+ end;
+ finally
+ FileList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.Path2DocDir(Path,CaseID:String):String;
+var
+ i : Integer;
+ DocnoList : TStringlist;
+begin
+ Result := '';
+ DocNoList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ if Path[length(Path)]<>'\' then
+ path := path+'\';
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if (path=ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
+ begin
+ Result := DocNoList.Strings[i];
+ Break;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+var
+ i :Integer;
+begin
+ Result := False;
+ for i := 0 to IN_WH_DocNoList.Count - 1 do
+ begin
+ if DocNo = IN_WH_DocNoList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序
+var
+ i,n,v,ln : Integer;
+ Exists:Boolean;
+ FileList,SortFileList,FormIDList : TStringlist;
+ FormID,iFormID:String;
+ OldName,NewName : String;
+begin
+ FileList := TStringlist.Create;
+ SortFileList := TStringlist.Create;
+ FormIDList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ ////取出FormID/////
+ for i := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[i]);
+ if (FormID = 'Attach') or (FormID = 'S_Attach') then Continue; //附件離開
+ Exists := False;
+ for n := 0 to FormIDList.Count - 1 do //查一下FORMID是否已經存在了
+ begin
+ if FormID = FormIDList.Strings[n] then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ FormIDList.Add(FormID);
+ end;
+ FormIDList.Sort;
+ //排序後產要更名的清單
+ for i := 0 to FormIDList.Count - 1 do
+ begin
+ iFormID := FormIDList.Strings[i];
+ for n := 0 to FileList.Count - 1 do
+ begin
+ if FileName2FormCode(FileList.Strings[n]) = iFormID then
+ begin
+ SortFileList.Add(FileList.Strings[n]+','+'@'+Add_Zoo(SortFileList.Count+1,3)+'_'+iFormID+ExtractFileExt(FileList.Strings[n]));
+ end;
+ end;
+ end;
+ FileList.Clear;
+ //更名成新順序的檔名
+ for i := 0 to SortFileList.Count - 1 do
+ begin
+ v := Pos(',',SortFileList.Strings[i]);
+ ln := Length(SortFileList.Strings[i]);
+ OldName := Copy(SortFileList.Strings[i],1,v-1);
+ NewName := Copy(SortFileList.Strings[i],v+1,ln-v);
+ RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
+ FileList.Add(NewName);
+ end;
+ //去掉@開頭
+ for i := 0 to FileList.Count - 1 do
+ begin
+ OldName := FileList.Strings[i];
+ NewName := StringReplace(OldName,'@','',[rfReplaceAll]);
+ ReNameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
+ FileList.Strings[i] := NewName;
+ end;
+ FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ end;
+ finally
+ FileList.Free;
+ SortFileList.Free;
+ FormIDList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.GotoAttach(OldLevel:Integer);
+var
+ i : Integer;
+begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ if Pos('Attach',MyTreeNode1.Item[i].Text) > 0 then
+ begin
+ if OldLevel = 2 then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i];
+ end
+ else if OldLevel = 3 then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i].Item[0];
+ end;
+ Break;
+ end;
+ end;
+ //TreeView1click(nil);
+end;
+
+Function TCB_IMGPSScanX.DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+var
+ i : Integer;
+begin
+ Result := False;
+ if (Copy(DocNo,1,5)='ZZZZZ') then //20140728 yuu 說自訂文件也是入庫文件
+ begin
+ Result := True;
+ Exit;
+ end;
+ for i := 0 to IN_WH_DocNoList.Count -1 do
+ begin
+ if DocNo = IN_WH_DocNoList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CreateCaseNeedData(Path:String);
+var
+ FileList,DocNoList,CaseDocNoList,CaseDocNo_CopiesList : TStringlist;
+ i,n : Integer;
+ Docno : String;
+ Exists : Boolean;
+begin
+ FileList := TStringlist.Create;
+ DocNoList := TStringlist.Create;
+ CaseDocNoList := TStringlist.Create;
+ CaseDocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ begin
+ FileList.LoadFromFile(Path+'Context.dat');
+ for i := 0 to FileList.Count - 1 do
+ begin
+ Docno := FormCode2DocNo(FileName2FormCode(FileList.Strings[i]));
+//ShowMessage('Docno='+Docno);
+ DocNoList.Add(DocNo);
+ Exists := False;
+ for n := 0 to CaseDocNoList.Count - 1 do
+ begin
+ if Docno = CaseDocNoList.Strings[n] then
+ Exists := True;
+ end;
+ if not Exists then
+ begin
+ CaseDocNoList.Add(DocNo);
+ CaseDocNo_CopiesList.Add('1');
+ end;
+ end;
+//ShowMessage('CreateCaseNeedData DocNoList='+DocNoList.Text);
+ DocNoList.SaveToFile(Path+'DocDir.dat');
+ CaseDocNoList.SaveToFile(Path+'CaseDocNo.dat');
+ CaseDocNo_CopiesList.SaveToFile(Path+'CaseDocNo_Copies.dat')
+ end;
+
+ finally
+ FileList.Free;
+ DocNoList.Free;
+ CaseDocNoList.Free;
+ CaseDocNo_CopiesList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String);
+var
+ i : Integer;
+begin
+ for i := 0 to CaseNode.Count - 1 do
+ begin
+ if Pos(DocDir+'{',CaseNode.Item[i].Text) > 0 then
+ begin
+ TreeView1.Selected := CaseNode.Item[i];
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像
+var
+ i : Integer;
+ iISBName : String;
+ iISB : TImageScrollBox;
+ ImgPath,DocDir : String;
+begin
+ Result := False;
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ //Showmessage(Components[i].Name);
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ ImgPath := ExtractFilePath(iISB.FileName);
+ DocDir := Path2DocDir(ImgPath,CaseID);
+ if GetUseCase('T',Path,DocDir) <> '' then
+ Result := True;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.TransOldCaseFile(Path:String):Boolean;
+var
+ i : Integer;
+ OldCaseID,Year,Data,Verify:String;
+ SendData : String;
+ OldCaseInfoList,Caseinfolist : TStringlist;
+ OldCasePath : String;
+begin
+ Result := True;
+ OldCaseInfoList := TStringlist.Create;
+ Caseinfolist := TStringlist.Create;
+ try
+ OldCaseInfoList.StrictDelimiter := True;
+ OldCaseInfoList.Delimiter := #9;
+ OldCaseInfoList.DelimitedText := FOldCaseInfo;
+ for i := 0 to OldCaseInfoList.Count - 1 do
+ begin
+ Caseinfolist := SplitString('@#,',OldCaseInfoList.Strings[i]);
+ //Caseinfolist.Delimiter := '_';
+ //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
+ OldCaseID := Caseinfolist.Strings[0];
+ Year := Caseinfolist.Strings[1];
+ Data := Caseinfolist.Strings[4];
+ Verify := Caseinfolist.Strings[5];
+ OldCasePath := Path+OldCaseID+'\';
+ if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then
+ begin
+ //////壓檔/////
+ //ZipMainFile(Path,Path,'Img.zip');
+
+ ////上傳/////
+ SendData:='data='+HTTPEncode(UTF8Encode(Data))+'&verify='+Verify+'&other_case_no='+OldCaseID;
+ //Showmessage(FUrl+'service/slic/SLIC02/useOther?'+senddata);
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then
+ begin
+ Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Result := False;
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ ////上傳////
+ end;
+ finally
+ OldCaseInfoList.Free;
+ Caseinfolist.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.Writelog(CaseID : String):Boolean;
+var
+ SendData : String;
+begin
+ Result := True;
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID;
+ If not ProcessServlet(HTTPSClient,FURL+'service/imgpsc/IMGPSC06/printlog',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetFtpinfo(CaseID,Action:String):Boolean;
+var
+ SendData : String;
+
+ Procedure DecodeFtpInfo(EncryStr:String);
+ var
+ FtpStr : String;
+ ftpinfoList : TStringlist;
+ begin
+ if EncryStr = '' then Exit;
+ ftpinfoList := TStringlist.Create;
+ try
+ FtpStr := En_DecryptionStr_Base64('D',EncryStr,MpsKey);
+ SplitString('!@!',FtpStr,ftpinfoList);
+ if ftpinfoList[0] = 'ftps' then
+ FFtpProtocol := fpftps
+ else if ftpinfoList[0] = 'ftp' then
+ FFtpProtocol := fpftp;
+ FFtpIP := ftpinfoList[1];
+ FFtpPort := strtoint(ftpinfoList[2]);
+ FFtpID := ftpinfoList[3];
+ FFtpPwd := ftpinfoList[4];
+
+ finally
+ ftpinfoList.Free;
+ end;
+ end;
+begin
+ Result := True;
+ SendData:='product='+FWork_no+'&case_no='+CaseID+'&department='+FUserUnit+'&action='+Action;
+ If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/ftps',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF (memo1.Lines.Strings[0] = '1') Then
+ begin
+ if memo1.Lines.Strings[1]='nodata' then //nodata 為正常可繼續的判斷
+ begin
+ TransMode := tsNone;
+ Result := True;
+ Exit;
+ end
+ else
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end
+ else if (memo1.Lines.Strings[0] <> '0') then//不認識的字串
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[0];
+ Result := False;
+ Exit;
+ end;
+ TransMode := tsHttp;
+ FFtpExtraPath := '';
+
+ if memo1.Lines.Strings[0] = '0' then
+ begin
+ if memo1.Lines.Strings[2] = 'Y' then //要使用FTP
+ TransMode := tsFtp;
+ if memo1.Lines.Count > 3 then
+ begin
+ FFtpExtraPath := memo1.Lines.Strings[3];
+ DecodeFtpInfo(memo1.Lines.Strings[4]);
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetFtpInfo; //餵入FTP資訊
+begin
+ IIS_Ftp.Display1 := Display1;
+ IIS_Ftp.FTPSClient1 := FTPSClient1;
+ IIS_Ftp.ElMemoryCertStorage := ElMemoryCertStorage;
+ IIS_Ftp.Display1 := Display1;
+ IIS_Ftp.Ftpip := FFtpIP;
+ IIS_Ftp.Ftpuserid := FFtpID;
+ IIS_Ftp.FtpPwd := FFtpPwd;
+ IIS_Ftp.FtpPath := FFtpRootPath;
+ IIS_Ftp.FtpPort := FFtpPort;
+ IIS_Ftp.FtpSSL := True;
+ IIS_Ftp.FtpPassive := True;
+ if FFtpProtocol = fpftp then
+ IIS_Ftp.FtpSSL := False;
+ IIS_Ftp.FtpEncryptDataChannel := true;
+ FTPSClient1.OnControlReceiveAsString := IIS_Ftp.EventHandlers.ControlReceiveAsString;
+ FTPSClient1.OnControlSendAsString := IIS_Ftp.EventHandlers.ControlSendAsString;
+ FTPSClient1.OnSSLError := IIS_Ftp.EventHandlers.SSLError;
+ FTPSClient1.OnCertificateValidate := IIS_Ftp.EventHandlers.CertificateValidate;
+ FTPSClient1.OnTextDataLine := IIS_Ftp.EventHandlers.TextDataLine;
+
+ {Showmessage(Format('Ftpip:%s'+#13
+ +'Ftpid:%s'+#13
+ +'Ftppwd:%s'+#13
+ +'Ftppath:%s'+#13
+ +'Ftpport:%s'+#13
+ ,[FFtpIP,FFtpid,FFtpPwd,Ftppath,inttostr(Ftpport)]));}
+end;
+
+Function TCB_IMGPSScanX.FtpCaseComplete(SendData:String):Boolean;
+begin
+ Result := True;
+ If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/caseupload',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF (memo1.Lines.Strings[0] = '1') or (memo1.Lines.Strings[0] <> '0') Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormIDAppear(FormID:String):Boolean; //FormID是否可出現
+var
+ iDocNo : String;
+begin
+ Result := True;
+ iDocNo := FormCode2DocNo(FormID);
+ if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
+ ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
+ Result := False;
+
+ if (FIs_In_Wh='Y') and (FWH_category='Y') then //20170816 新加
+ begin
+ if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
+ ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
+ Result := False;
+ end;
+
+ if (FIs_In_Wh='Y') and (FWH_category='N') then //20170816 新加
+ begin
+ Result:=True;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
+begin
+ Result := True;
+
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach')) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') )) {and //非入庫掃描不看入庫文件
+ (Copy(DocNo,1,5)<>'ZZZZZ')} {then
+ {Result := False;}
+ //20181031 應該要換成下面的判斷比較對,FIs_In_Wh傳空的話才會出全部
+ if (((FIs_In_Wh = 'Y') and ((not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach'))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and ((DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') ))) {and //非入庫掃描不看入庫文件
+ (Copy(DocNo,1,5)<>'ZZZZZ')} then
+ Result := False;
+
+
+end;
+
+Function TCB_IMGPSScanX.GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量
+var
+ i : Integer;
+ Doc_Ct:Integer;
+ iDocNo : String;
+ DocNoList,DocNo_CopiesList : TStringlist;
+begin
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ begin
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ end;
+ Doc_Ct := 0;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
+ if iDocNo = DocNo then
+ Doc_Ct := Doc_Ct + strtoint(DocNo_CopiesList.Strings[i]);
+ end;
+ Result := Doc_Ct;
+ // Showmessage(DocNo+#13+inttostr(Doc_Ct));
+ finally
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir數量
+var
+ i : Integer;
+ DocNoList,DocNo_CopiesList : TStringlist;
+begin
+ Result := 1; //預設回傳1 //20140521 由0改成1
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat') then
+ begin
+ DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if (DocDir = DocNoList.Strings[i]) and (i <= DocNo_CopiesList.Count-1) then
+ begin
+ Result := strtoint(DocNo_CopiesList.Strings[i]);
+ Break;
+ end;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數
+var
+ i : Integer;
+ DocNoList,DocNo_CopiesList : TStringlist;
+begin
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ begin
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ end;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if DocDir = DocNoList.Strings[i] then
+ begin
+ DocNo_CopiesList.Strings[i] := inttostr(NewCopies);
+ DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ Break;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數
+var
+ i,n,v,v1 : Integer;
+ OldCaseInfoList,Caseinfolist : TStringlist;
+ iCaseID,Year,iBS_No,iIS_Old,iDocNo,iCopies:String;
+begin
+ Result := 1;
+ OldCaseInfoList := TStringlist.Create;
+ Caseinfolist := TStringlist.Create;
+ try
+ //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數]
+ OldCaseInfoList.StrictDelimiter := true;
+ OldCaseInfoList.Delimiter := #9;
+ OldCaseInfoList.DelimitedText := FOldCaseInfo;
+
+ for i := 0 to OldCaseInfoList.Count - 1 do
+ begin
+ Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
+ //Caseinfolist.Delimiter := '_';
+ //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
+ iCaseID := Caseinfolist.Strings[0];
+ Year := Caseinfolist.Strings[1];
+ iBS_No := Caseinfolist.Strings[2];
+ iIS_Old := Caseinfolist.Strings[3];
+ if CaseID = iCaseID then
+ begin
+ for n := 6 to Caseinfolist.Count - 1 do
+ begin
+ v := Pos('[',Caseinfolist.Strings[n]);
+ v1 := Pos(']',Caseinfolist.Strings[n]);
+ iDocNo := Copy(Caseinfolist.Strings[n],1,v-1);
+ iCopies := Copy(Caseinfolist.Strings[n],v+1,v1-v-1);
+ if Copy(DocDir,1,5) = 'ZZZZZ' then
+ begin
+ if iDocNo = GetCustomDocName(Path,DocDir) then
+ Result := strtoint(iCopies);
+ end
+ else
+ begin
+ if iDocNo = DocNoDir2DocNo(DocDir) then
+ Result := strtoint(iCopies);
+ end;
+ end;
+
+ end;
+ end;
+ finally
+ OldCaseInfoList.Free;
+ Caseinfolist.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量
+var
+ i,ct : Integer;
+ C_DocNameList : TStringlist;
+begin
+ C_DocNameList := TStringlist.Create;
+ try
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+ ct := 0;
+ for i := 0 to C_DocNameList.Count - 1 do
+ begin
+ if C_DocNameList.Strings[i] = CustomName then
+ begin
+ inc(ct);
+ end;
+ end;
+ Result := ct;
+ finally
+ C_DocNameList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量
+var
+ i,ct : Integer;
+ C_DocNoList : TStringlist;
+begin
+ C_DocNoList := TStringlist.Create;
+ try
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ ct := 0;
+ for i := 0 to C_DocNoList.Count - 1 do
+ begin
+ if C_DocNoList.Strings[i] = Docno then
+ begin
+ inc(ct);
+ end;
+ end;
+ Result := ct;
+ finally
+ C_DocNoList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.ISGuideFormID(FormID:String):Boolean;
+var
+ i : Integer;
+begin
+ Result := False;
+ for i := 0 to GuideFormIDList.Count - 1 do
+ begin
+ if FormID = GuideFormIDList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.ISDivPageFormID(FormID:String):Boolean;
+var
+ i : Integer;
+begin
+ Result := False;
+
+ for i := 0 to DivPageFormIDList.Count - 1 do
+ begin
+ if FormID = DivPageFormIDList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+function TCB_IMGPSScanX.ISExistImg(const filename: string): boolean;
+begin
+ if ExistImgList.IndexOf(LoadFileGetMD5(filename))<>-1 then
+ begin
+ Result:=True;
+ end
+ else
+ begin
+ Result:=False;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除
+var
+ i : Integer;
+ CaseDocNoList : TStringlist;
+begin
+ Result := True;
+ CaseDocNoList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ if GetUseCase('T',DisplayPath,CaseDocNoList.Strings[i]) <> '' then //有被引用走的
+ Result := False;
+ end;
+
+ finally
+ CaseDocNoList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.MoveImage(Path:String;mp:Integer); //移動頁數
+var
+ i,n,inx:Integer;
+ FList,D_Flist:TStringlist;
+begin
+ FList := TStringlist.Create;
+ D_Flist := TStringlist.Create;
+ try
+ FList.LoadFromFile(Path+'Context.dat');
+ //Showmessage(Path);
+ //Showmessage(Flist.Text);
+ for i := 0 to FList.Count - 1 do
+ begin
+ Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
+ Flist.Strings[i]:= '@'+Flist.Strings[i];
+ end;
+
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
+ D_Flist.Add(Flist.Strings[inx-1]);
+ //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
+ end;
+ end;
+ //Showmessage('aa');
+ for i := 0 to D_Flist.Count -1 do
+ begin
+ for n := 0 to FList.Count - 1 do
+ begin
+ //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
+ if Flist.Strings[n]=D_Flist.Strings[i] then
+ begin
+ Flist.Delete(n);
+ Break;
+ end;
+ end;
+ end;
+ //Showmessage('bb');
+ for i := 0 to D_Flist.Count - 1 do
+ begin
+ Flist.Insert(mp-1+i,D_Flist.Strings[i]);
+ end;
+
+ Flist.SaveToFile(Path+'Context.dat');
+ //Showmessage(Flist.Text);
+ //Showmessage('CC');
+ ReSortFileName(Path);
+ TreeView1click(self);
+
+
+ finally
+ FList.Free;
+ D_Flist.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數
+var
+ i,n,inx:Integer;
+ FList,D_Flist:TStringlist;
+begin
+ FList := TStringlist.Create;
+ D_Flist := TStringlist.Create;
+ try
+ FList.LoadFromFile(Path+'Context.dat');
+ for i := 0 to FList.Count - 1 do
+ begin
+ Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
+ Flist.Strings[i]:= '@'+Flist.Strings[i];
+ end;
+
+ D_Flist.Add(Flist.Strings[fp-1]);
+
+ {for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
+ D_Flist.Add(Flist.Strings[inx-1]);
+ //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
+ end;
+ end;}
+ //Showmessage('aa');
+ for i := 0 to D_Flist.Count -1 do
+ begin
+ for n := 0 to FList.Count - 1 do
+ begin
+ //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
+ if Flist.Strings[n]=D_Flist.Strings[i] then
+ begin
+ Flist.Delete(n);
+ Break;
+ end;
+ end;
+ end;
+ //Showmessage('bb');
+ for i := 0 to D_Flist.Count - 1 do
+ begin
+ Flist.Insert(tp-1+i,D_Flist.Strings[i]);
+ end;
+
+ Flist.SaveToFile(Path+'Context.dat');
+ //Showmessage(Flist.Text);
+ //Showmessage('CC');
+ ReSortFileName(Path);
+ TreeView1click(self);
+
+
+ finally
+ FList.Free;
+ D_Flist.Free;
+ end;
+end;
+
+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;
+
+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;
+
+Procedure TCB_IMGPSScanX.Case2upload(CaseID:String);
+var
+ i,n:Integer;
+ OldPath,NewPath,DocDir : String;
+ OldFile,NewFile,AttFile : String;
+ DocNoList,FileList:TStringlist;
+ iFileList,iFile_DocNoList :TStringlist;
+ iDocDirList : TStringlist;
+ iAttFileList : TStringlist;
+begin
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ iFileList := TStringlist.Create;
+ iFile_DocNoList := TStringlist.Create;
+ iDocDirList := TStringlist.Create;
+ iAttFileList := TStringlist.Create;
+ try
+ OldPath := ImageSavePath+CaseID+'\';
+ NewPath := ImageSavePath+CaseID+'\Upload\';
+ if DirectoryExists(NewPath) then
+ _DelTree(NewPath);
+ str2dir(NewPath);
+ CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
+ CopyFile(PWideChar(OldPath+'CaseDocNo_Copies.dat'),PWideChar(NewPath+'CaseDocNo_Copies.dat'),False);
+ CopyFile(PWideChar(OldPath+'CustomDocNo.ini'),PWideChar(NewPath+'CustomDocNo.ini'),False);
+ CopyFile(PWideChar(OldPath+'CaseIndex.dat'),PWideChar(NewPath+'CaseIndex.dat'),False);
+ CopyFile(PWideChar(OldPath+'In_Wh.dat'),PWideChar(NewPath+'In_Wh.dat'),False);
+ CopyFile(PWideChar(OldPath+'UseCase.ini'),PWideChar(NewPath+'UseCase.ini'),False);
+
+ if FileExists(OldPath+'CaseDocNo.dat') then
+ begin
+ DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');
+ end
+ else
+ begin
+ DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');
+ CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
+ end;
+
+ for i := 0 to DocNoList.Count-1 do
+ begin
+ DocDir := DocNoList.Strings[i];
+ OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
+
+ FileList.Clear;
+ if FileExists(OldPath+'Context.dat') then
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
+ iFileList.Add(NewFile);
+ iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
+ iDocDirList.Add(DocDir);
+ end;
+ end;
+ end;
+ if DirectoryExists(ImageSavePath+CaseID+'\Attach') then
+ begin
+ DocDir := 'Attach';
+ OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
+
+ FileList.Clear;
+ if FileExists(OldPath+'Context.dat') then
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
+ iFileList.Add(NewFile);
+ iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
+ iDocDirList.Add(DocDir);
+ end;
+ end;
+ end;
+
+ if DirectoryExists(ImageSavePath+CaseID+'\S_Attach') then
+ begin
+ DocDir := 'S_Attach';
+ OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
+
+ FileList.Clear;
+ if FileExists(OldPath+'Context.dat') then
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
+ iFileList.Add(NewFile);
+ iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
+ iDocDirList.Add(DocDir);
+ end;
+ end;
+ end;
+ OldPath := ImageSavePath+CaseID+'\';
+ if FileExists(OldPath+'AttContext.dat') then
+ begin
+ iAttFileList.LoadFromFile(OldPath+'AttContext.dat');
+ for n := 0 to iAttFileList.Count - 1 do
+ begin
+ AttFile := iAttFileList.Strings[n];
+ CopyFile(PWideChar(OldPath+AttFile),PWideChar(NewPath+AttFile),False);
+ end;
+ iAttFileList.SaveToFile(NewPath+'AttContext.dat');
+ end;
+
+
+ iFileList.SaveToFile(NewPath+'Context.dat');
+ iFile_DocNoList.SaveToFile(NewPath+'Context_DocNo.dat');
+ iDocDirList.SaveToFile(NewPath+'DocDir.dat');
+
+ finally
+ iFileList.Free;
+ iAttFileList.Free;
+ iFile_DocNoList.Free;
+ DocNoList.Free;
+ FileList.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.Download2Case(SoDir,DeDir:String);
+var
+ i,n : Integer;
+ DocDir:String;
+ OldFile,NewFile,AttFile:String;
+ DocNoList,FileList : TStringlist;
+ iFileList,iFile_DocDirList :TStringlist;
+ iAttFileList :TStringlist;
+ AA,AA2,AA3,AA4:Boolean;
+begin
+
+ if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then //截畫面會沒這些檔
+ begin
+//ShowMessage('產生必要的文字檔');
+ CreateCaseNeedData(SoDir); //產生必要的文字檔
+ end;
+
+ AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
+ AA2:=CopyFile(PWideChar(SoDir+'CaseDocNo_Copies.dat'),PWideChar(DeDir+'CaseDocNo_Copies.dat'),False);
+ AA3:=CopyFile(PWideChar(SoDir+'CustomDocNo.ini'),PWideChar(DeDir+'CustomDocNo.ini'),False);
+ AA4:=CopyFile(PWideChar(SoDir+'UseCase.ini'),PWideChar(DeDir+'UseCase.ini'),False);
+//ShowMessage(BoolToStr(AA)+#10#13+BoolToStr(AA2)+#10#13+BoolToStr(AA3)+#10#13+BoolToStr(AA4));
+ if FileExists(SoDir+'DocDir.dat') then //20170222 新加
+ begin
+ CopyFile(PWideChar(SoDir+'DocDir.dat'),PWideChar(DeDir+'DocDir.dat'),False);
+ end;
+
+
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ iFileList := TStringlist.Create;
+ iFile_DocDirList := TStringlist.Create;
+ iAttFileList := TStringlist.Create;
+ try
+ //if Not FileExists(SoDir+'Context.dat') then Exit;
+ //iFileList.LoadFromFile(SoDir+'Context.dat');
+ //if iFileList.Count = 0 then Exit;
+ if FileExists(SoDir+'Context.dat') then
+ iFileList.LoadFromFile(SoDir+'Context.dat');
+ if FileExists(SoDir+'DocDir.dat') then
+ iFile_DocDirList.LoadFromFile(SoDir+'DocDir.dat');
+ if iFileList.Count <> iFile_DocDirList.Count then
+ begin
+ for i := 0 to iFileList.Count - 1 do
+ begin
+ if i > iFile_DocDirList.Count -1 then
+ begin
+ iFile_DocDirList.Add(FormCode2DocNo(FileName2FormCode(iFileList.Strings[i])));
+ end;
+ end;
+ end;
+ if FileExists(SoDir+'CaseDocNo.dat') then
+ DocNoList.LoadFromFile(SoDir+'CaseDocNo.dat');
+ if FileExists(DeDir+'CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
+ {for i := 0 to DocNoList.Count - 1 do
+ begin
+ DocDir := DocNoList.Strings[i];
+ MkDir(DeDir+DocDir);
+ end;}
+//ShowMessage('DocNoList='+DocNoList.Text);
+
+ for i := DocNoList.Count - 1 downto 0 do
+ begin
+ DocDir := DocNoList.Strings[i];
+ if not DirectoryExists(DeDir+DocDir) then
+ begin
+ MkDir(DeDir+DocDir);
+ if not FileExists(DeDir+DocDir+'\Context.dat') then
+ StringtoFile('',DeDir+DocDir+'\Context.dat');
+ end
+ else
+ begin
+//ShowMessage('GGG');
+ DocNoList.Delete(i);
+ DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+ if i <= CaseDocNo_CopiesList.Count-1 then
+ begin
+//ShowMessage('KKKK');
+ CaseDocNo_CopiesList.Delete(i);
+ CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ end;
+ end;
+ end;
+ //20170221 先註解起來 因為他在補充掃瞄時好像會有顯示的問題
+
+ for i := 0 to iFileList.Count - 1 do
+ begin
+ OldFile := iFileList.Strings[i];
+ DocDir := iFile_DocDirList.Strings[i];
+ if (DocDir = 'Attach') or (DocDir = 'S_Attach') then
+ begin
+ if not DirectoryExists(DeDir+DocDir) then
+ MkDir(DeDir+DocDir);
+ end;
+
+ FileList.Clear;
+ if FileExists(DeDir+DocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(DeDir+DocDir+'\Context.dat');
+ end;
+ NewFile := Add_Zoo(FileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(SoDir+OldFile),PWideChar(DeDir+DocDir+'\'+NewFile),False);
+ FileList.Add(NewFile);
+ FileList.SaveToFile(DeDir+DocDir+'\Context.dat');
+ end;
+
+ for i := DocNoList.Count -1 downto 0 do
+ begin
+ if (DocNoList.Strings[i] = 'Attach') or (DocNoList.Strings[i] = 'S_Attach') then
+ begin
+ DocNoList.Delete(i);
+ DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+ end;
+ end;
+
+ {if (DocNoList.Count > 0) and ((DocNoList.Strings[DocNoList.Count-1] = 'Attach') or (DocNoList.Strings[DocNoList.Count-1] = 'S_Attach')) then
+ begin
+ DocNoList.Delete(DocNoList.Count-1);
+ DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+ end; }
+ CaseDocNo_CopiesList.Clear;
+
+ if FileExists(DeDir+'CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
+ if DocNoList.Count > CaseDocNo_CopiesList.Count then
+ begin
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if i > CaseDocNo_CopiesList.Count-1 then
+ begin
+ CaseDocNo_CopiesList.Add('1');
+ //CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ end;
+ end;
+ end;
+ CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ {if (not FileExists(DeDir+'CaseDocNo_Copies.dat') then
+ begin
+ CaseDocNo_CopiesList.Free;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ CaseDocNo_CopiesList.Add('1');
+ CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ end;
+ end;}
+ if FileExists(SoDir+'AttContext.dat') then
+ begin
+ iAttFileList.LoadFromFile(SoDir+'AttContext.dat');
+ for i := 0 to iAttFileList.Count - 1 do
+ begin
+ AttFile := iAttFileList.Strings[i];
+ CopyFile(PWideChar(SoDir+AttFile),PWideChar(DeDir+AttFile),False);
+ end;
+ iAttFileList.SaveToFile(DeDir+'AttContext.dat');
+ end;
+
+
+ if FMode='ESCAN' then
+ begin
+ InitExistImgList(DeDir);
+ end;
+
+
+ finally
+ iFileList.Free;
+ FileList.Free;
+ DocNoList.Free;
+ iFile_DocDirList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱
+var
+ i,v,ln : Integer;
+ DelBarCode : String;
+ CusDocNo,CusDocName : String;
+begin
+ Result := '';
+ if (FormCode = '') or (FormCode = 'Attach') or (FormCode = 'S_Attach') then
+ Result := _Msg('未歸類')
+ //showmessage('a');
+ //stringtofile(FORM_INF_List.Text,'D:\121.txt');
+ Else If FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.FORM_DESC','T1.FORM_ID',FormCode,0,FindResult) then
+ Result := GetFindResult('T1.FORM_DESC');
+
+ ////// 到自訂文件找//////
+ if Result = '' then
+ Result := GetCustomDocName(ImageSavePath+CaseID+'\',FormCode2DocNo(FormCode));
+ {for i := 0 to Cust_DocNoList.Count - 1 do
+ begin
+ v := Pos('_',Cust_DocNoList.Strings[i]);
+ ln := Length(Cust_DocNoList.Strings[i]);
+ CusDocNo := copy(Cust_DocNoList.Strings[i],1,v-1);
+ CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
+ if CusDocNo = FormCode2DocNo(FormCode) then
+ Result := DocNo2DocName(CusDocNo);
+
+ end;}
+
+
+ {DelBarCode := '**'+FormCode;
+ for I := 0 to FormCodeList.Count - 1 do
+ begin
+ if FindDel then //要找下架的
+ begin
+ if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
+ begin
+ Result := FormNameList.Strings[i];
+ Break;
+ end;
+ end
+ Else
+ begin
+ if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
+ begin
+ Result := FormNameList.Strings[i];
+ Break;
+ end;
+ end;
+ end; }
+end;
+
+Function TCB_IMGPSScanX.FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁)
+var
+ i : Integer;
+ v,v1 : Integer;
+begin
+ Result := '';
+ for i := 0 to List.Count - 1 do
+ begin
+ V := pos('_',List.Strings[i]);
+ v1 := pos('.',List.Strings[i]);
+ if (FormCode = '') and (V = 0)then //FormCode 為空的則找附件出來
+ begin
+ Result := List.Strings[i];
+ Break;
+ end;
+ IF FormCode = Copy(List.Strings[i],v+1,v1-v-1) then
+ begin
+ Result := List.Strings[i];
+ Break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FileName2FormCode(FileName:String):String; //從檔名取出FormCode
+var
+ v,v1 : Integer;
+begin
+ FileName := ExtractFileName(FileName);
+ v := Pos('_',FileName);
+ v1 := Pos('.',FileName);
+ if v > 0 then
+ begin
+ Result := Copy(FileName,v+1,v1-v-1);
+ end
+ Else //附件
+ begin
+ Result := '';
+ end;
+end;
+
+Function TCB_IMGPSScanX.FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱
+begin
+ Result := FormCode2FormName(CaseID,FileName2FormCode(FileName));
+end;
+
+Function TCB_IMGPSScanX.FileName2ScanPage(FileName:String):Integer; //從檔名轉出掃瞄頁數
+Var
+ v : Integer;
+ FName : String;
+begin
+ FName := ExtractFileName(FileName);
+ v := Pos('_',FName);
+ if v = 0 then //附件
+ v := pos('.',FName);
+ Result := Strtoint(Copy(FName,1,v-1));
+end;
+
+Function TCB_IMGPSScanX.FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名
+var
+ v,v1 : Integer;
+ FName : String;
+begin
+ FName := ExtractFileName(FileName);
+ v := Pos('_',FName);
+ if v = 0 then //附件
+ v := pos('.',FName);
+ v1 := length(FName);
+ Result := Copy(FName,v,v1-v+1);
+end;
+
+Function TCB_IMGPSScanX.FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號
+var
+ i : Integer;
+begin
+ for i := 0 to ContextList.Count - 1 do
+ begin
+ if FileName = ContextList.Strings[i] then
+ begin
+ Result := i;
+ Break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號
+var
+ i : Integer;
+begin
+ for I := 0 to CTList.Count -1 do
+ begin
+ if FileName = CTList.Strings[i] then
+ begin
+ Result := DNList.Strings[i];
+ break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormCode2DocNo(FormCode:String):String; //FormCode轉Docno
+Var
+ i : Integer;
+begin
+ Result := '';
+ for i := 0 to FormID_List.Count-1 do
+ begin
+ if FormID_List.Strings[i] = FormCode then
+ begin
+ Result := DocNo_List.Strings[i];
+ Break;
+ end;
+
+ end;
+ if (FormCode <> '') and (Result = '') then //是自訂文件
+ begin
+ Result := Copy(FormCode,1,8); //20170224 DocNo 固定長度8碼
+ end;
+
+ {If FindSQLData(FORM_INF_List,'T1.DOC_NO','T1.FORM_ID',FormCode,0,FindResult) Then //20130403太慢了..換掉
+ begin
+ Result := GetFindResult('T1.DOC_NO');
+ end;}
+end;
+
+Function TCB_IMGPSScanX.FormCode2Version(FormCode:String):String; //FormCode轉版本
+begin
+ Result := Copy(FormCode,11,5);
+end;
+
+Function TCB_IMGPSScanX.FormCode2Page(FormCode:String):String; //FormCode轉頁數
+begin
+ Result := Copy(FormCode,9,2)
+end;
+
+Function TCB_IMGPSScanX.DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱
+var
+ i,v,ln : Integer;
+ CusDocNo,CusDocName : String;
+begin
+ Result := '';
+ if DocNo = AttName then
+ begin
+ Result := _Msg('未歸類');
+ end
+ Else
+ begin
+ If FindSQLData(Doc_Inf_List,'DOC_U_DESC','DOC_NO',DocNo,0,FindResult) Then
+ begin
+//ShowMessage(FindResult.Text);
+ Result := GetFindResult('DOC_U_DESC');
+ end;
+ end;
+
+ if Result = '' then //去自訂文件裡找
+ begin
+ Result := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ {for i := 0 to Cust_DocNoList.Count - 1 do
+ begin
+ v := Pos('_',Cust_DocNoList.Strings[i]);
+ ln := length(Cust_DocNoList.Strings[i]);
+ CusDocNo := Copy(Cust_DocNoList.Strings[i],1,v-1);
+ CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
+ if DocNo = CusDocNo then
+ begin
+ Result := CusDocName;
+ Break;
+ end;
+ end;}
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁)
+var
+ i : Integer;
+begin
+ Result := '';
+ for i := 0 to List.Count - 1 do
+ begin
+ IF DocNo = FormCode2DocNo(FileName2FormCode(List.Strings[i])) then
+ begin
+ Result := List.Strings[i];
+ Break;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別
+begin
+ Result := '';
+ If FindSQLData(FORM_INF_List,'T1.WORK_NO','T1.FORM_ID',FormCode,0,FindResult) Then
+ begin
+ Result := GetFindResult('T1.WORK_NO');
+ end;
+end;
+
+Function TCB_IMGPSScanX.DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別
+begin
+ Result := '';
+ If FindSQLData(Doc_Inf_List,'WORK_NO','DOC_NO',DocNo,0,FindResult) Then
+ begin
+ Result := GetFindResult('WORK_NO');
+ end;
+end;
+
+Function TCB_IMGPSScanX.DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號
+var
+ NeedDiv : String;
+begin
+ Result := False;
+ If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
+ begin
+ NeedDiv := GetFindResult('IS_DOC_DIV');
+ if NeedDiv = 'Y' then
+ Result := True;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page
+var
+ v,ln : Integer;
+begin
+ //XXXXXX-XX頁
+ V := Pos('-',Node.Text);
+ ln := Length(Node.Text);
+ case Mode of
+ 'I': Result := Copy(Node.Text,1,v-1); //CaseID
+ 'P': Result := Copy(Node.Text,v+1,ln-v-1); //CasePage
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group
+var
+ v,v1,v2,v3,ln :integer;
+begin
+ //文件名稱@組數{文件代號}-XX頁
+ V := PosEnd('@',Node.Text);
+ v1 := PosEnd('{',Node.Text);
+ v2 := PosEnd('}',Node.Text);
+ v3 := PosEnd('-',Node.Text);
+ ln := Length(Node.Text);
+ case Mode of
+ 'I': Result := Copy(Node.Text,v1+1,v2-v1-1); //DocNo
+ 'N': Result := Copy(Node.Text,1,v-1); //DocName
+ 'P': Result := Copy(Node.Text,v3+1,ln-v3-1); //DocPage
+ 'G': Result := Copy(Node.Text,v+1,v1-v-1); //DocGroup
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page
+var
+ v,v1,v2,ln :integer;
+begin
+ //表單代號{表單名稱}-XX頁
+ v := Pos('{',Node.Text);
+ v1 := PosEnd('}',Node.Text);
+ v2 := PosEnd('-',Node.Text);
+ ln := Length(Node.Text);
+ case Mode of
+ 'I': Result := Copy(Node.Text,1,v-1); //FormID
+ 'N': Result := Copy(Node.Text,v1+1,v2-v1-1); //FormName
+ 'P': Result := Copy(Node.Text,v2+1,ln-v2-1); //Page
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.PriorPage(Page:Integer); //上一頁
+var
+ iISB : TImageScrollBox;
+begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page-1)));
+ if iISB <> nil then
+ begin
+ ISBClick(iISB);
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.NextPage(Page:Integer); //下一頁
+var
+ iISB : TImageScrollBox;
+begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page+1)));
+ if iISB <> nil then
+ begin
+ ISBClick(iISB);
+ end;
+end;
+
+Function TCB_IMGPSScanX.DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //是否己存在樹裡
+var
+ i : Integer;
+begin
+ Result := False;
+ for I := 0 to CaseNode.Count - 1 do
+ begin
+ if DocNo = DocNode2Info(CaseNode.Item[i],'I') Then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+
+end;
+
+Function TCB_IMGPSScanX.DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組
+begin
+ Result := False;
+ If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
+ begin
+ if GetFindResult('IS_DOC_DIV') = 'Y' Then
+ Result := True;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.DistinctFormCode(CaseID:String); //從案件裡的FormCode取出第一頁
+var
+ i,n : Integer;
+ LForm,OForm : String;
+ Addok : Boolean;
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+LogFile1.LogToFile(logTimeString+S.Strings[i]+' ISExistImg='+BoolToStr(ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]),true));
+LogFile1.LogToFile(logTimeString+S.Strings[i]+' reSizeExistImgList='+BoolToStr(reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1,true));
+ if FWH_category='N' then
+ begin
+ if (ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))
+ or (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1) then
+ begin
+ Continue;
+ end;
+ end;
+
+ LForm := FileName2FormCode(S.Strings[i]);
+ AddOk := True;
+ for n := 0 to OMRFileList.Count - 1 do
+ begin
+ OForm := FileName2FormCode(OMRFileList.Strings[n]);
+ if (LForm <> '') and (LForm = OForm) then
+ begin
+ AddOk := False;
+ Break;
+ end;
+ end;
+ if AddOk then
+ begin
+ OMRFileList.Add(S.Strings[i]);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+
+end;
+
+
+Function TCB_IMGPSScanX.OMRCheckCase(CaseID:String):Boolean; //OMR檢核
+var
+ i,n,m,v,v1 : Integer;
+ XT,RelaXT,ValueXT : TXmltool;
+ OMRFormCode,OMRFile,OMRFormName,ColEName,ColCName,Site : String;
+ Pixel : Integer;
+ RelaFormCode,RelaFile,RelaFormName,RelaColEName,RelaColCName,RelaSite : String;
+ RelaDocNo,RelaDocName : string;
+ RelaPixel : Integer;
+ s : String;
+ nodename : String;
+ OMROK : Boolean;
+ CaseOk : Boolean;
+ ErrStr : String;
+ SiteRec,RelaSiteRec : String; //多組位置記錄
+ OMRValue : String;
+ MainFormID,MainDocNo,MainVersion : String; //主FormID
+ MainFormPage,CaseFormPage : Integer; //主要文件需要的頁數
+ NeedDocNoStr,NoDocNoStr : String; //相依 互斥文件字串
+ List : TStringlist;
+ FormCode : String;
+ FormDataPages : Integer;
+ NoSite : Boolean; //未定位
+ Anchor,Anchor1 : String;
+ OMROkCount : Integer;
+ //Casecheck : Boolean; //是否要做檢核
+ //AllCheck : Boolean; //是否要做完整檢核
+
+ ISB8W,ISB8H:integer;
+begin
+ ///OMRErrInfo 1: 必要文件 2:相依文件 3:互斥文件 4:必填 5:欄位有值附文件 6:欄位有值不附文件
+ /// 7: 欄位有值相關欄位也要有值 8:欄位有值要寫備註 9:停用日期 10:最大頁數
+ //Casecheck := True;
+ //Allcheck := True;
+ //if (FMode = 'ISCAN') then
+ //Allcheck := False;
+ CaseOk := True;
+ //if Casecheck then
+ //begin
+ DeleteFile(ImageSavePath+CaseID+'\upload\Checkerr.ini');
+ DeleteFile(ImageSavePath+CaseID+'\upload\CheckMemo.dat');
+ //DeleteFile(ImageSavePath+CaseID+'\upload\ReSize.dat');
+ DeleteFile(ImageSavePath+CaseID+'\upload\RemoveMemo.dat');
+ DeleteFile(ImageSavePath+CaseID+'\upload\OMRCheckOk.dat');
+ Memo1.Lines.Clear;
+ OMRFileList.Clear;
+
+ MainFormID := GetCaseFormID(ImageSavePath+CaseID+'\upload\');
+ List := TStringlist.Create;
+ try
+ //if AllCheck then
+ //begin
+ if GetCasePage(ImageSavePath,CaseID) =0 then
+ begin
+
+ end;
+//ShowMessage('MainFormID='+MainFormID);
+LogFile1.LogToFile(logTimeString+' '+FModeName+' '+CaseID+' '+'MainFormID='+MainFormID);
+ if MainFormID = ''then
+ begin
+ //20131203 yuu說不檢查這個,先拿掉 20170315 楷琳說未歸類要擋 20170726 因此有檢查必要FormID 所以 可以拿掉
+ {if FCheck_main_form='Y' then
+ begin
+ if (FMode <> 'SSCAN') AND (FMode<>'ESCAN') then //簽署章件會換主FormID,先跳過 20170629 ESCAN 也不檢查
+ begin
+ ErrStr:=_Msg('找不到分案文件'); //找不到主文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
+ CaseOk := false;
+//ShowMessage('AAAAA');
+ end;
+ end;
+ }
+ end
+ Else
+ begin
+ //////主要非主要文件//////
+ DistinctDocinCase(ImageSavePath+CaseID+'\upload\');
+//ShowMessage(DocNo_VerinCase.Text);
+//DocNo_VerinCase.Add('31A00101_1706A');
+LogFile1.LogToFile(logTimeString+' '+CaseID+' '+'DocNo_VerinCase.Text='+DocNo_VerinCase.Text);
+ if ModeNeedCheck(OMRErrInfo[1].Mode,FMode) then //是否要檢核
+ begin
+ for i := 0 to DocNo_VerinCase.Count - 1 do
+ begin
+ v := Pos('_', DocNo_VerinCase.Strings[i]);
+ v1 := length(DocNo_VerinCase.Strings[i]);
+ MainDocNo := Copy(DocNo_VerinCase.Strings[i],1,v-1); //FormCode2DocNo(MainFormID);
+ MainVersion :=Copy(DocNo_VerinCase.Strings[i],v+1,v1-v); //FormCode2Version(MainFormID);
+ MainFormPage := GetDataDocNoPage(MainDocNo,MainVersion); //資料庫記錄主文件頁數
+ CaseFormPage := CheckCaseDocNoPage(CaseID,MainDocNo,MainVersion,MainFormPage); //案件主文件的頁數
+LogFile1.LogToFile(logTimeString+CaseID+',MainDocNo='+MainDocNo+',MainVersion='+MainVersion+',MainFormPage='+IntToStr(MainFormPage)+',CaseFormPage='+IntToStr(CaseFormPage));
+ //CheckFirstDocNoPage
+ IF (MainFormPage > 0) and (MainFormPage <> CaseFormPage) then
+ begin
+ ErrStr:=MainDocNo+Format(OMRErrInfo[1].Info,[Inttostr(MainFormPage),Inttostr(CaseFormPage)]); //主要文件需有XX頁僅附XX頁
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[1].Ignore,OMRErrInfo[1].Display);
+ if OMRErrInfo[1].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ //////主要非主要文件/////
+//showmessage(MainFormID);
+ MainDocNo := FormCode2DocNo(MainFormID);
+ MainVersion := FormCode2Version(MainFormID);
+ if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
+ begin
+ NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
+ NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
+ end
+ Else if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
+ begin
+ NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
+ NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
+ end;
+
+ //////相依文件/////
+ if ModeNeedCheck(OMRErrInfo[2].Mode,FMode) then //是否要檢核
+ begin
+ List.CommaText := NeedDocNoStr;
+ for I := 0 to List.Count - 1 do
+ begin
+ if not Case_DocNoExists(CaseID,List.Strings[i]) then //沒附相依文件
+ begin
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ ErrStr:=Format(OMRErrInfo[2].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //沒附相依文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[2].Ignore,OMRErrInfo[2].Display);
+ if OMRErrInfo[2].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ //////相依文件/////
+
+ //////互斥文件/////
+ if ModeNeedCheck(OMRErrInfo[3].Mode,FMode) then //是否要檢核
+ begin
+ List.CommaText := NoDocNoStr;
+ for I := 0 to List.Count - 1 do
+ begin
+ if Case_DocNoExists(CaseID,List.Strings[i]) then //附了互斥文件
+ begin
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ ErrStr:=Format(OMRErrInfo[3].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //有附互斥文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[3].Ignore,OMRErrInfo[3].Display);
+ if OMRErrInfo[3].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ //////互斥文件/////
+ end; //MainFormID結束
+ //end;
+ List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
+ for i := 0 to List.Count - 1 do
+ begin
+ FormCode := FileName2FormCode(List.Strings[i]);
+ /////未歸類///
+ {IF FormCode = 'Attach' Then //20140211 yuu說不檢查了
+ begin
+ ErrStr:=_Msg('尚有文件未歸類');
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
+ CaseOk := false;
+ end; }
+ /////未歸類//////
+
+ /////未註冊文件/////
+ {IF not FormIDExists(FormCode,False) then //未註冊文件
+ begin
+ ErrStr:=FormCode+_Msg('不為此業務的表單代碼');
+ OMRErr2ini(CaseID,ErrStr,'','','','',False,False,True);
+ CaseOk := false;
+ end }
+ /////未註冊文件/////
+ //////停用文件//
+ {Else} IF ModeNeedCheck(OMRErrInfo[9].Mode,FMode) and (not FormIDExists(FormCode,True,0)) and (not checkFormCodeIsCustom(ImageSavePath + CaseID+'\upload\',FormCode)) then //有停用的文件
+ begin
+//ShowMessage('AAAA');
+ ErrStr:=Format(OMRErrInfo[9].Info,[FormCode2FormName(CaseID,FormCode)]); //有停用文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[9].Ignore,OMRErrInfo[9].Display);
+//ShowMessage('ErrStr='+ErrStr);
+ if OMRErrInfo[9].Display then
+ CaseOk := false;
+ end;
+ //////停用文件////
+ end;
+ finally
+ List.Free;
+ end;
+ //if AllCheck then
+ //begin
+ //////最大頁數///
+LogFile1.LogToFile(logTimeString+'最大頁數A段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
+ DistinctFormCode(CaseID);
+ if ModeNeedCheck(OMRErrInfo[10].Mode,FMode) then //是否要檢核
+ begin
+//ShowMessage('AAA'+OMRFileList.Text);
+LogFile1.LogToFile(logTimeString+'最大頁數B段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
+ For i := 0 to OMRFileList.Count - 1 do
+ begin
+ if FModeName=_Msg('異動件') then Continue;
+
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+OMRFileList.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ FormCode := FileName2FormCode(OMRFileList.Strings[i]);
+ FormDataPages := GetDataFormCodePages(FormCode);
+
+ IF (FormCode <> '') and (FormDataPages > 0) and (FindFormCodePages(CaseID,FormCode) > FormDataPages) then //有超過最大頁數的文件
+ begin
+ ErrStr:=Format(OMRErrInfo[10].Info,[FormCode2FormName(CaseID,FormCode),inttostr(FormDataPages)]); //有超過最大頁數文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[10].Ignore,OMRErrInfo[10].Display);
+ if OMRErrInfo[10].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ /////最大頁數/////
+ //end;
+ ImageScrollBox1.FileName := '';
+ //if FWork_No = 'CW' then //理賠就不做下面的檢核了
+ //begin
+ //////OMR檢核///////
+ ContextList.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+ DistinctFormCode(CaseID);
+ ValueXT := TXmltool.Create;
+ Try
+//ShowMessage('必填'+OMRFileList.Text);
+LogFile1.LogToFile(logTimeString+'必填 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
+ For i := 0 to OMRFileList.Count - 1 do
+ begin
+//ShowMessage('OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+ if CheckRequiredColumnValues(FWork_NO,CaseID) then Continue;
+
+ OMRFile := OMRFileList.Strings[i];
+ OMRFormCode := FileName2FormCode(OMRFileList.Strings[i]);
+ OMRFormName := FormCode2FormName(CaseID,OMRFormCode);
+ Anchor := FormID2Anchor(OMRFormCode);
+ ///依十字定位點縮放////
+ ImageReSize_FormID(CaseID,OMRFile);
+ ////依十字定位點縮放///
+//Display1.Lines.Add('OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
+LogFile1.LogToFile(logTimeString+'OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
+//ShowMessage('KKKKK');
+ if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then //沒有Xml就不用檢核
+ Continue;
+
+//ShowMessage('11638 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+ XT := TXmltool.Create(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml');
+ RelaXT := TXmltool.Create;
+//ShowMessage('ModeNeedCheck='+BoolToStr(ModeNeedCheck(OMRErrInfo[4].Mode,FMode),true));
+ try
+ //*******必填********
+ if ModeNeedCheck(OMRErrInfo[4].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype1/'].First then
+ Repeat
+ OMROK := False;
+ SiteRec := ''; //清掉
+ ColEName := XT.SubNodes['/form/settype1/'].NodeName;
+ ColCName := XT.Node['/form/settype1/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ if XT.SubNodes['/form/settype1/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype1/'+ColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ Pixel := Strtoint(XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
+ Site := XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ //有填就ok
+ //Showmessage(ColCName +','+ inttostr(OMRMpsV1.GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site))+','+inttostr(Pixel + SafePixel));
+//SafePixel:=90000;
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+//FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,ANCHOR);
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ //Showmessage('oh');
+ OMROK := True;
+ Break;
+ end;
+ end
+ Else
+ begin
+ //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
+ end;
+ Until not XT.SubNodes['/form/settype1/'+ColEName+'/'].Next;
+ if not OMROk then
+ begin
+ ErrStr:=Format(OMRErrInfo[4].Info,[ColCName]); //XX欄位未填寫
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[4].Ignore,OMRErrInfo[4].Display);
+ if OMRErrInfo[4].Display then
+ CaseOk := false;
+ end;
+ Until not XT.SubNodes['/form/settype1/'].Next ;
+ end;
+ //*******必填********
+//ShowMessage('11692 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+ //if AllCheck then
+ //begin
+ //*******有值相關文件的欄位也要有值*******
+ if ModeNeedCheck(OMRErrInfo[7].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype3/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ ColEName := XT.SubNodes['/form/settype3/'].NodeName;
+ ColCName := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['pixel'];
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+
+ if XT.SubNodes['/form/settype3/'+ColEName+'/'].First then
+ Repeat
+ RelaSiteRec := '';
+ nodename := XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeName;
+ If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ RelaFormCode := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaColEName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
+ RelaColCName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
+ RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
+ RelaFile := FormCode2FileName(RelaFormCode,ContextList);
+ RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
+ Anchor1 := FormID2Anchor(RelaFormCode);
+ RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
+Display1.Lines.Add(RelaFile+','+RelaFormName);
+//ShowMessage(RelaFile);
+//ShowMessage(ImageSavePath+CaseID+'\upload\'+RelaFile);
+ if RelaFile<>'' then
+ begin
+ ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
+ ISB8W:= ISB8.Graphic.Width;
+ ISB8H:= ISB8.Graphic.Height;
+ FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
+ end;
+
+ OMROK := False;
+ //OMROK := False;
+ //if RelaXT.SubNodes['/form/settype2/'].First then
+ //Repeat
+ NoSite := True;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
+ NoSite := False;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
+ Repeat
+ nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
+ RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
+ if RelaSiteRec= '' then //記錄位置
+ RelaSiteRec := RelaSite
+ else
+ RelaSiteRec := RelaSiteRec+'@'+RelaSite;
+ if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ begin
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
+ begin
+ OMROK := True;
+ Break;
+ end;
+ ///依十字定位點縮放////
+ ImageReSize_FormID(CaseID,OMRFile); //20170815 重新抓定位
+ ////依十字定位點縮放////
+ end;
+ end;
+
+ Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
+ if not OMROk then
+ begin
+ if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位未填寫
+ Else if NoSite then
+ ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
+ Else
+ ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位未填寫
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
+ if OMRErrInfo[7].Display then
+ CaseOk := false;
+ end;
+ //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
+
+ end;
+ Until not XT.SubNodes['/form/settype3/'+ColEName+'/'].Next;
+ end;
+ Until not XT.SubNodes['/form/settype3/'].Next ;
+ end;
+ //*******有值相關文件的欄位也要有值*******
+//ShowMessage('11788 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+
+ //*******有值相關文件的欄位不能有值*******
+ if ModeNeedCheck(OMRErrInfo[11].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype8/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ OMROkCount := 0;
+ ColEName := XT.SubNodes['/form/settype8/'].NodeName;
+ ColCName := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['pixel'];
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫// //
+ inc(OMROkCount);
+ end;
+ if XT.SubNodes['/form/settype8/'+ColEName+'/'].First then
+ Repeat
+ RelaSiteRec := '';
+ nodename := XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeName;
+ If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ RelaFormCode := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaColEName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
+ RelaColCName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
+ RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
+ RelaFile := FormCode2FileName(RelaFormCode,ContextList);
+ RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
+ Anchor1 := FormID2Anchor(RelaFormCode);
+ RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
+
+ if RelaFile<>'' then
+ begin
+ ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
+ ISB8W:= ISB8.Graphic.Width;
+ ISB8H:= ISB8.Graphic.Height;
+ FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
+ end;
+
+ OMROK := False;
+ //OMROK := False;
+ //if RelaXT.SubNodes['/form/settype2/'].First then
+ //Repeat
+ NoSite := True;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
+ NoSite := False;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
+ Repeat
+ nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
+ RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
+ if RelaSiteRec= '' then //記錄位置
+ RelaSiteRec := RelaSite
+ else
+ RelaSiteRec := RelaSiteRec+'@'+RelaSite;
+ if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ begin
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
+ begin
+ inc(OMROkCount);
+ //OMROK := True;
+ //Break;
+ end;
+ ///依十字定位點縮放////
+ ImageReSize_FormID(CaseID,OMRFile);
+ ////依十字定位點縮放////
+ end;
+ end;
+ //Else
+ //begin
+ //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
+ //end;
+ Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
+ if OMROkCount > 1 then
+ begin
+ if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位也填寫
+ Else if NoSite then
+ ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
+ Else
+ ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位也填寫
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
+ if OMRErrInfo[11].Display then
+ CaseOk := false;
+ end;
+ //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
+
+ end;
+ Until not XT.SubNodes['/form/settype8/'+ColEName+'/'].Next;
+ Until not XT.SubNodes['/form/settype8/'].Next ;
+ end;
+ //*******有值相關文件的欄位不能有值*******
+
+//ShowMessage('11889 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+
+ //*******有值相依文件*******
+ if ModeNeedCheck(OMRErrInfo[5].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype4/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ ColEName := XT.SubNodes['/form/settype4/'].NodeName;
+ ColCName := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['pixel'];
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+ if XT.SubNodes['/form/settype4/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeName;
+ If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ {RelaFormCode := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := FormCode2FileName(RelaFormCode);
+ RelaFormName := FormCode2FormName(RelaFormCode); }
+ RelaDocNo := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := DocNo2FileName(RelaDocNo,ContextList);
+ RelaDocName := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
+ if RelaFile='' then
+ begin
+ ErrStr:=Format(OMRErrInfo[5].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,需附XX文件
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[5].Ignore,OMRErrInfo[5].Display);
+ if OMRErrInfo[5].Display then
+ CaseOk := false;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype4/'+ColEName+'/'].Next;
+ end;
+ Until not XT.SubNodes['/form/settype4/'].Next ;
+ end;
+ //*******有值相依文件*******
+
+ //*******有值互斥文件*******
+ if ModeNeedCheck(OMRErrInfo[6].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype5/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ ColEName := XT.SubNodes['/form/settype5/'].NodeName;
+ ColCName := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['pixel'];
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+ if XT.SubNodes['/form/settype5/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeName;
+ If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ {RelaFormCode := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := FormCode2FileName(RelaFormCode);
+ RelaFormName := FormCode2FormName(RelaFormCode);}
+ RelaDocNo := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := DocNo2FileName(RelaDocNo,ContextList);
+ RelaDocName := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
+ if RelaFile<>'' then //有附 20130604看到(='')改的(未測)
+ begin
+ ErrStr:=Format(OMRErrInfo[6].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,不能附XX文件
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[6].Ignore,OMRErrInfo[6].Display);
+ if OMRErrInfo[6].Display then
+ CaseOk := false;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype5/'+ColEName+'/'].Next;
+ end;
+ Until not XT.SubNodes['/form/settype5/'].Next ;
+ end;
+ //*******有值互斥文件*******
+
+ //*******有值寫備註*******
+ if ModeNeedCheck(OMRErrInfo[8].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype6/'].First then
+ Repeat
+ SiteRec := '';
+ ColEName := XT.SubNodes['/form/settype6/'].NodeName;
+ ColCName := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['colxy'];
+ Pixel := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['pixel'];
+
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+ if not FileExists(ImageSavePath+CaseID+'ScanMemo.dat') then
+ begin
+ ErrStr:=Format(OMRErrInfo[8].Info,[ColCName]); //XX文件XX欄位填寫時,需寫備註
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[8].Ignore,OMRErrInfo[8].Display);
+ if OMRErrInfo[8].Display then
+ CaseOk := false;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype6/'].Next ;
+ end;
+ //*******有值寫備註*******
+
+ //*******OMR帶值********
+ if XT.SubNodes['/form/settype7/'].First then
+ Repeat
+ ColEName := XT.SubNodes['/form/settype7/'].NodeName;
+ ValueXT['/content/'+ColEName+'/@savevalue'] := ''; //先給預設空白
+ if XT.SubNodes['/form/settype7/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype7/'+ColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ Pixel := Strtoint(XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
+ Site := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
+ OMRValue := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['getvalue'];
+
+ //有填就ok
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ValueXT['/content/'+ColEName+'/@savevalue'] := OMRValue; //有填就換成設定的值
+ Break;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype7/'+ColEName+'/'].Next;
+ Until not XT.SubNodes['/form/settype7/'].Next ;
+
+ //*******OMR帶值********
+ //end;
+ Finally
+ if (OMRValue <> '') then
+ ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');
+ XT.Free;
+ RelaXT.Free;
+ end;
+ end;
+ //必填迴圈結束
+ Finally
+ ValueXT.Free;
+ end;
+ //end;
+ //end;
+ Result := CaseOk;
+end;
+
+Procedure TCB_IMGPSScanX.OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ S : TStringlist;
+begin
+ if Display then
+ begin
+ ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0); //透過Errcount來對應
+ inc(ErrCount);
+ ini.WriteString(inttostr(ErrCount),'Reason',Reason);
+ ini.WriteBool(inttostr(ErrCount),'Ingnore',Ingnore);
+ ini.writeString(inttostr(ErrCount),'FileName',FileName);
+ ini.WriteString(inttostr(ErrCount),'Site',Site);
+ ini.WriteString(inttostr(ErrCount),'RelaFileName',RelaFileName);
+ ini.WriteString(inttostr(ErrCount),'RelaSite',RelaSite);
+ ini.WriteString(inttostr(ErrCount),'Anchor',Anchor);
+ ini.WriteString(inttostr(ErrCount),'RelaAnchor',Anchor1);
+ ini.WriteBool(inttostr(ErrCount),'Del',Del);
+ ini.WriteInteger('OMRCount','Count',ErrCount);
+ finally
+ ini.Free;
+ end;
+ end
+ Else
+ begin
+ S := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then
+ S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');
+ S.Add(Reason);
+ S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');
+ finally
+ S.Free;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.OMRErrini2List(CaseID:String;ErrlistForm:TErrlistForm); //OMR檢核失敗從ini寫入ListView
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ Del : Boolean;
+ i : Integer;
+begin
+ ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0);
+
+ for i := 1 to ErrCount do
+ begin
+ Del := ini.ReadBool(inttostr(i),'Del',False); //是否被移除了
+ if Not Del then
+ begin
+ With ErrlistForm.ErrListLV.Items.Add do
+ begin
+ Caption := ini.ReadString(inttostr(i),'Reason','');
+ SubItems.Add(inttostr(i));
+ end;
+ end;
+ end;
+ if Errlistform.ErrListLV.Items.Count > 0 then
+ Errlistform.ImmediateBt.Enabled := False;
+ finally
+ ini.Free;
+ end;
+end;
+
+function TCB_IMGPSScanX.OMRErrini2ListForLog(CaseID: String): String;
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ Del : Boolean;
+ i,j : Integer;
+ ST,CaseList:TStringList;
+
+begin
+ Result:='';
+ //CaseList.dat
+ ST:=TStringList.Create;
+ CaseList:=TStringList.Create;
+ CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');
+ for I := 0 to CaseList.Count - 1 do
+ begin
+ ini := Tinifile.Create(ImageSavePath + CaseList.Strings[i]+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0);
+
+ for j := 1 to ErrCount do
+ begin
+ Del := ini.ReadBool(inttostr(j),'Del',False); //是否被移除了
+ if Not Del then
+ begin
+ ST.Add(ini.ReadString(inttostr(j),'Reason','')) ;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+ end;
+ Result:=ST.Text;
+ ST.Free;
+ CaseList.Free;
+end;
+
+
+Function TCB_IMGPSScanX.DownLanguage:Boolean; //下載多國語言檔
+begin
+ Result := True; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ //dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)
+ If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像
+var i,p:integer;
+ ISB : TImageScrollBox;
+ lb : TLabel;
+ v ,v1 : Integer;
+ page : Integer;
+ List_FormCode,Err_FormCode: String;
+ iFormID : String;
+begin
+ ShowText := _Msg('影像顯示中,請稍候');
+ DataLoading(True,True);
+
+ IF FormCode = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
+ begin
+ ClearView(1);
+ CreatePreViewISB(ContextList.Count);
+ For i := Stpage-1 to ContextList.Count -1 do
+ begin
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(stview+i)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+ContextList.Strings[i],1);
+
+ {GetScrollData(ISB,HS,VS,iRate);
+ if iRate = 0 then
+ ISB.ZoomMode := zmFittoPage
+ Else
+ ISB.ZoomPercent := iRate;
+ ISB.HorzScrollBar.Position := HS;
+ ISB.VertScrollBar.Position := VS;
+
+ List_FormCode := FileName2FormCode(ContextList.Strings[i]);
+ lb := TLabel(FindComponent('lb'+intToStr(stview)));
+ lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
+ If List_FormCode = '' Then
+ lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+')'
+ Else
+ lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+'-'+List_FormCode+')';
+ Inc(Stview);
+ If ((VMode = 0) and (Stview>1))
+ or ((VMode = 1) and ((Stview>2)))
+ or ((VMode = 2) and ((Stview>4)))
+ or ((VMode = 3) and ((Stview>6)))
+ or ((VMode = 4) and ((Stview>8))) Then
+ break;
+ }
+ end;
+ FitPreViewISB;
+ end
+ Else //顯示指定FormCode的影像
+ begin
+ If (TreeView1.Selected <> nil) Then
+ begin
+ If Stpage = 0 Then
+ Stpage := 1;
+ Page := 0;
+ ClearView(stview);
+ If Stpage > ContextList.Count Then Exit;
+ For i := 0 to ContextList.Count -1 do
+ begin
+ List_FormCode := FileName2FormCode(ContextList.Strings[i]);
+ {iFormID := GetMainFormID(List_FormCode);
+ if iFormID <> '' then
+ List_FormCode := iFormID;}
+
+ Err_FormCode := 'NoCode';
+ if (List_Formcode <> '') and (not FormIDExists(List_Formcode,False,0)) then
+ Err_FormCode := 'Err';
+ IF (List_FormCode = FormCode) or (Err_FormCode=Formcode) or (FormCode2DocNo(List_FormCode) = FormCode) Then
+ begin
+ Inc(Page);
+ IF Page< Stpage Then
+ Continue;
+ ISB := TImageScrollBox(FindComponent('ISB'+intToStr(stview)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+ContextList.Strings[i],1);
+
+ GetScrollData(ISB,HS,VS,iRate);
+ if iRate = 0 then
+ ISB.ZoomMode := zmFittoPage
+ Else
+ ISB.ZoomPercent := iRate;
+ ISB.HorzScrollBar.Position := HS;
+ ISB.VertScrollBar.Position := VS;
+ {if not SortMode then
+ begin
+ SetScrollData(MPSViewX,MPSViewX.HorzScrollBarPos,MPSViewX.VertScrollBarPos,MPSViewX.ZoomPercent);
+ end;}
+ //MPSViewX.ImageZoomMode := zmFullpage;
+ //MPSViewX.AntiAliased := True;
+ lb := TLabel(FindComponent('lb'+intToStr(stview)));
+ lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
+ If List_FormCode = '' Then
+ lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseno,List_FormCode)+')'
+ Else
+ lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseNo,List_FormCode)+'-'+List_FormCode+')';
+ Inc(Stview);
+ end;
+ If ((VMode = 0) and (Stview>1))
+ or ((VMode = 1) and ((Stview>2)))
+ or ((VMode = 2) and ((Stview>4)))
+ or ((VMode = 3) and ((Stview>6)))
+ or ((VMode = 4) and ((Stview>8))) Then
+ break;
+ end;
+ end;
+ end;
+ ISB1Click(ISB1);
+
+
+ DataLoading(False,False);
+end;
+
+procedure TCB_IMGPSScanX.view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像
+var i,n,p:integer;
+ ISB : TImageScrollBox;
+ lb : TLabel;
+ v ,v1 : Integer;
+ List_DocNo,Trans_DocNo,List_FormCode,Form_Page: String;
+ iDocNo : String;
+ iGroupNo,page,Ct,int1 : Integer;
+ ST1:TStringList;
+begin
+ ShowText := _Msg('影像顯示中,請稍候');
+ DataLoading(True,True);
+ST1:=TStringList.Create;
+//Display1.Lines.Clear;
+ IF DocNo = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
+ begin
+ ClearView(1);
+ if GetCasePage(ImageSavePath,NowCaseno) > 30 then
+ begin
+ DataLoading(False,False);
+ Exit;
+ end;
+ CreatePreViewISB(GetCasePage(ImageSavePath,NowCaseno));
+//Showmessage(inttostr(GetCasePage(ImageSavePath,NowCaseno)));
+ Ct := 0;
+ For i := 0 to CaseDocNoList.Count-1 do
+ begin
+
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
+ end;
+ end;
+
+ iDocNo := CaseDocNoList.Strings[i];
+//ShowMessage('ST1.Count='+IntToStr(ST1.Count));
+ if ST1.Count<>0 then
+ begin
+ if ST1.IndexOf(iDocNo)<>-1 then
+ begin
+ end
+ else
+ begin
+ if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
+ end;
+ end
+ else
+ begin
+ if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
+ end;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+//ShowMessage('ContextList='+ContextList.Text);
+ for n := 0 to ContextList.Count - 1 do
+ begin
+
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[n]) then
+ begin
+
+ if not DocNoIs_In_WH(Copy(iDocNo,1,8)) then
+ begin
+ Continue;
+ end;
+ end;
+ end;
+
+ inc(Ct);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
+
+ DpiResize(ISB.Graphic,36,False);
+ ISB.Redraw(true);
+
+ end;
+
+ end;
+ //if DirectoryExists(Path+'Attach') then
+ if DirectoryExists(Path+AttName) then
+ begin
+ //iDocNo := 'Attach';
+ iDocNo := AttName;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+ for n := 0 to ContextList.Count - 1 do
+ begin
+ inc(Ct);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
+ end;
+ end;
+
+ FitPreViewISB;
+
+ end
+ Else if (DocNo <> '') and (FormID = '') then //顯示指定DocNo+組別的影像 附件傳 Attach
+ begin //顯示 文件層下的影像
+ iDocNo := DocNo;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+
+//ShowMessage('ContextList.Count='+IntToStr(ContextList.Count));
+ CreatePreViewISB(ContextList.Count);
+//ShowMessage(IntToStr(ContextList.Count));
+ int1:=0;
+//ShowMessage(BoolToStr(DocNoIs_In_WH(Copy(iDocNo,1,8)),true));
+ For i := 0 to ContextList.Count -1 do
+ begin
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
+ begin
+
+ if not DocNoIs_In_WH(Copy(iDocNo,1,8)) and ( iDocNo<>'Attach') then
+ begin
+ inc(int1);
+ Continue;
+ end;
+ end;
+ end;
+//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(i+1-int1)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
+ DpiResize(ISB.Graphic,36,False);
+ ISB.Redraw(true);
+ end;
+ FitPreViewISB;
+ end
+ Else if (FormID <> '') {and (FormID <> 'Attach')} then //顯示指定FormID的影像
+ begin
+ If (TreeView1.Selected <> nil) Then
+ begin
+ iDocNo := DocNo;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+ iGroupNo := 0;
+ page := 0;
+ Ct := 0;
+ CreatePreViewISB(Pages);
+//ShowMessage('formID page'+IntToStr(Pages)+', ContextList='+ContextList.Text);
+ For i := 0 to ContextList.Count -1 do
+ begin
+ if FileName2FormCode(ContextList.Strings[i]) = FormID then
+ begin
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
+//ShowMessage(BoolToStr(ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]),true));
+ if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
+ begin
+ if not DocNoIs_In_WH(FormCode2DocNo(FormID)) then
+ Continue;
+ end;
+ end;
+ inc(Ct);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
+//ShowMessage(ISB.Name);
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
+ DpiResize(ISB.Graphic,36,False);
+ ISB.Redraw(true);
+
+ //NowShowFileList.Add(ContextList.Strings[i]);
+ end;
+ end;
+ FitPreViewISB;
+ end;
+ end;
+
+ if FindComponent(ISBName+'1') <> nil then
+ begin
+ ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
+ end;
+ ISB1Click(ISB1);
+ DataLoading(False,False);
+end;
+
+Function TCB_IMGPSScanX.ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName
+begin
+ Result := ISBName+Copy(SP.Name,3,length(SP.Name)-2);
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton14Click(Sender: TObject);
+var
+ Count : Integer;
+begin
+ if not ISB1.Graphic.IsEmpty then
+ begin
+ ISB1.LoadFromFile(ISB1.FileName,1);
+ Rotate(ISB1.Graphic,270);
+ if ISB1.Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+ TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+ end
+ Else
+ ISB1.SaveToFile(ISB1.FileName);
+ ISB1.Redraw(True);
+ SelectISB.Graphic.Assign(ISB1.Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton15Click(Sender: TObject);
+begin
+ if not ISB1.Graphic.IsEmpty then
+ begin
+ ISB1.LoadFromFile(ISB1.FileName,1);
+ Rotate(ISB1.Graphic,180);
+ if ISB1.Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+ TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+ end
+ Else
+ ISB1.SaveToFile(ISB1.FileName);
+ ISB1.Redraw(True);
+ SelectISB.Graphic.Assign(ISB1.Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton16Click(Sender: TObject);
+begin
+ if not ISB1.Graphic.IsEmpty then
+ begin
+ ISB1.LoadFromFile(ISB1.FileName,1);
+ Rotate(ISB1.Graphic,90);
+ if ISB1.Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+ TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+ end
+ Else
+ ISB1.SaveToFile(ISB1.FileName);
+ ISB1.Redraw(True);
+ SelectISB.Graphic.Assign(ISB1.Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton17Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFitHeight;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton18Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFitWidth;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton19Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmOriginalSize;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton20Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFittoPage;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton21Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmPercent;
+ ISB1.ZoomPercent := 50;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton22Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmPercent;
+ ISB1.ZoomPercent := 25;
+end;
+
+procedure TCB_IMGPSScanX.SpeedButton3Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFullPage;
+end;
+
+Procedure TCB_IMGPSScanX.CreatePreViewISB(Count:Integer);
+var
+ ISB : TImageScrollBox;
+ Panel : TPanel;
+ i,W,H : Integer;
+ myDate : TDateTime;
+begin
+ FreePreViewISB;
+ ScrollBox1.HorzScrollBar.Visible := False;
+ W := 150;
+ H := 250;
+ for I := 1 to Count do
+ begin
+
+ if FindComponent('M_Pl'+inttostr(i))=nil then
+ begin
+ Panel := TPanel.Create(Self);
+ Panel.Name := 'M_Pl'+inttostr(i);//FormatDateTime('yyyymmddhhnnsszzz', now)
+ Panel.Left := 4;
+ Panel.Top := (i-1)*H+(6*i);
+ Panel.Height := H;
+ Panel.Width := W;
+ Panel.Parent := ScrollBox1;
+ Panel.Caption :='';
+
+ if FindComponent(ISBName+inttostr(i))=nil then
+ begin
+ ISB := TImageScrollBox.Create(Self);
+ ISB.Name := ISBName+inttostr(i);
+ ISB.Parent := Panel;
+ ISB.Align := alClient;
+ ISB.ZoomMode := zmFullPage;
+ ISB.DragMode := dmAutomatic;
+ ISB.MouseMode := mmuser;
+ ISB.OnImageClick := ISBClick;
+ ISB.OnImageMouseMove := ISBMouseMove;
+ ISB.PopupMenu := PopupMenu6;
+ ISB.OnImageMouseDown := ISBImageMouseDown;
+ ISB.OnImageMouseUp := ISBImageMouseUp;
+ ISB.OnEndDrag := ISBEndDrag;
+ ISB.OnDragDrop := ISBDragDrop;
+ ISB.OnDragOver := ISBDragOver;
+ end;
+ end;
+
+ end;
+
+end;
+
+Procedure TCB_IMGPSScanX.FreePreViewISB;
+var
+ i : Integer;
+begin
+try
+ For i:= ComponentCount -1 downto 0 do
+ begin
+ IF (Components[i] is TImageScrollBox) and (Components[i]<>nil) Then
+ begin
+ IF Pos(ISBName,Components[i].Name) > 0 Then
+ Components[i].Free;
+ end
+ Else If (Components[i] is TPanel) and (Components[i]<>nil) Then
+ begin
+ IF Pos('M_Pl',Components[i].Name) > 0 Then
+ Components[i].Free;
+ end
+ Else If (Components[i] is TShape) and (Components[i]<>nil) Then
+ begin
+ IF Pos('SP',Components[i].Name) > 0 Then
+ Components[i].Free;
+ end;
+ end;
+ Application.ProcessMessages;
+except on E: Exception do
+end;
+
+ //showmessage(inttostr(Count));
+end;
+
+Procedure TCB_IMGPSScanX.FitPreViewISB;
+var
+ i : Integer;
+ iISB : TImageScrollBox;
+ iPanel : TPanel;
+ T,H : Integer;
+begin
+ T := 0;
+ i := 1;
+
+ while FindComponent(ISBName+inttostr(i)) <> nil do
+ begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ iISB.Parent.Height := 250;
+ iISB.Parent.Top := T+4;
+ iISB.Parent.Height := iISB.DisplayedGraphic.Height;
+ H := iISB.Parent.Height;
+ T := iISB.Parent.Top+H;
+ inc(i);
+ end;
+
+
+ {For i:= 1 to Count do
+ begin
+ if TImageScrollBox(FindComponent(ISBName+inttostr(i))) = nil then Break;
+
+
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ iISB.Parent.Height := H;
+ iISB.Parent.Top := T+4;
+ iISB.Parent.Height := iISB.DisplayedGraphic.Height;
+ H := iISB.Parent.Height;
+ T := iISB.Parent.Top+H;
+ end;}
+
+end;
+
+Procedure TCB_IMGPSScanX.PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像
+var
+ i,F_No,T_No : Integer;
+ SP : TShape;
+ ISB : TImageScrollBox;
+ Function GetImgNo(iISB:TImageScrollBox):Integer;
+ begin
+ Result := strtoint(Copy(iISB.Name,length(ISBName)+1,length(iISB.Name)-length(ISBName))); //'PreViewISB'
+ end;
+begin
+ IF ToImg = nil Then //只畫單一個
+ begin
+ ISB := TImageScrollBox(FindComponent(ISBName+inttostr(GetImgNo(FromImg))));
+ if TShape(FindComponent('SP'+inttostr(GetImgNo(FromImg)))) = nil then
+ begin
+
+ SP := TShape.Create(self);
+ SP.Pen.Color := clblue;
+ SP.Pen.Width := 3;
+ SP.Parent := ScrollBox1;
+ SP.Name := 'SP'+inttostr(GetImgNo(FromImg));
+ SP.Left := ISB.Parent.Left-4;
+ SP.Top := ISB.Parent.Top -4;
+ SP.Width := ISB.Parent.Width + 8;
+ SP.Height := ISB.Parent.Height + 8;
+ end;
+ end
+ Else
+ begin
+ FreeShapeobj(nil);
+ IF GetImgNo(FromImg) <= GetImgNo(ToImg) Then
+ begin
+ F_No := GetImgNo(FromImg);
+ T_No := GetImgNo(ToImg);
+ end
+ Else
+ begin
+ F_No := GetImgNo(ToImg);
+ T_No := GetImgNo(FromImg);
+ end;
+ For i := F_No to T_No do
+ begin
+ ISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ SP := TShape.Create(self);
+ SP.Pen.Color := clblue;
+ SP.Pen.Width := 3;
+ SP.Parent := ScrollBox1;
+ SP.Name := 'SP'+inttostr(i);
+ SP.Left := ISB.Parent.Left-4;
+ SP.Top := ISB.Parent.Top -4;
+ SP.Width := ISB.Parent.Width + 8;
+ SP.Height := ISB.Parent.Height + 8;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.FreeShapeobj(SelectISB : TImageScrollBox);
+var
+ i : Integer;
+begin
+ IF SelectISB = nil then //全Free;
+ begin
+ For i:= ComponentCount -1 downto 0 do
+ begin
+ IF Components[i] is TShape Then
+ begin
+ IF Pos('SP',Components[i].Name) > 0 Then
+ Components[i].Free;
+ end;
+ end;
+ end
+ Else //只Free指定的
+ begin
+ TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))).Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ISBClick(Sender : TObject);
+var
+ v,ln:Integer;
+begin
+ if (GetKeyState(VK_SHIFT) < 0) Then
+ begin
+ PaintShape(SelectISB,TImageScrollBox(Sender));
+ SelectISB := TImageScrollBox(Sender);
+ end
+ Else if (GetKeyState(VK_CONTROL) < 0) Then
+ begin
+ SelectISB := TImageScrollBox(Sender);
+ IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
+ PaintShape(SelectISB,nil)
+ else
+ FreeShapeobj(SelectISB);
+ end
+ Else
+ begin
+ FreeShapeobj(nil);
+ SelectISB := TImageScrollBox(Sender);
+ PaintShape(SelectISB,nil);
+ end;
+ GetSelectImageFile;
+
+ v := length(ISBName);
+ ln := length(SelectISB.Name);
+ SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
+ ISB1.ZoomMode := zmFittoPage;
+//ShowMessage('SelectISB.FileName='+SelectISB.FileName);
+ //if SelectISB.FileName='' then exit;
+
+ ISB1.LoadFromFile(SelectISB.FileName,1);
+ if (ISB1.Graphic.ImageFormat <> ifBlackWhite) and (SmoothCB.Checked)then
+ Image_Smooth(ISB1.Graphic);
+ ISB1.Redraw(True);
+ ISB1Click(ISB1);
+end;
+
+Procedure TCB_IMGPSScanX.ISBMouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+begin
+ //Edit1.SetFocus;
+ if Draging then
+ begin
+ if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ begin
+ SelectISB.BeginDrag(False);
+ Draging := False;
+ end;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.ISBImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+var
+ v,ln:Integer;
+begin
+ if Button = TMouseButton(mbLeft) Then
+ begin
+ Draging := True;
+ //if SelectISB <> nil then
+
+ //if not Draging then
+ //begin
+
+ end;
+ //end;
+
+ {if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ begin
+ //Showmessage('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)));
+ if (Button = TMouseButton(mbLeft)) and (GetKeyState(VK_CONTROL) >= 0) then
+ begin
+ if SelectISB <> nil then
+ SelectISB.BeginDrag(False);
+ end;
+ end;
+ //if (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ //begin
+ //else
+ //begin
+ if not Draging then
+ begin
+ if (GetKeyState(VK_SHIFT) < 0) Then
+ begin
+ PaintShape(SelectISB,TImageScrollBox(Sender));
+ SelectISB := TImageScrollBox(Sender);
+ end
+ Else if (GetKeyState(VK_CONTROL) < 0) Then
+ begin
+ SelectISB := TImageScrollBox(Sender);
+ IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
+ PaintShape(SelectISB,nil)
+ else
+ FreeShapeobj(SelectISB);
+ end
+ Else
+ begin
+ FreeShapeobj(nil);
+ SelectISB := TImageScrollBox(Sender);
+ PaintShape(SelectISB,nil);
+ end;
+ v := length(ISBName);
+ ln := length(SelectISB.Name);
+ SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
+ ISB1.ZoomMode := zmFittoPage;
+ ISB1.LoadFromFile(SelectISB.FileName,1);
+ ISB1Click(ISB1);
+ end;
+ //end;
+ //end
+ //Else
+ //begin
+
+ //end; }
+
+ {if (Button = TMouseButton(mbRight)) and (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ begin
+ //ISBClick(Sender);
+ end;
+ if (Button = TMouseButton(mbLeft)) then
+ begin
+
+ end; }
+end;
+
+procedure TCB_IMGPSScanX.ISBImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+begin
+ Draging := False;
+end;
+
+procedure TCB_IMGPSScanX.ISBEndDrag(Sender, Target: TObject; X, Y: Integer);
+begin
+ TreeView1Click(self);
+end;
+
+procedure TCB_IMGPSScanX.ISBDragDrop(Sender, Source: TObject; X, Y: Integer);
+var
+ fp,tp : Integer;
+begin
+ fp := FileName2ScanPage(TimageScrollBox(Source).FileName);
+ tp := FileName2ScanPage(TimageScrollBox(Sender).FileName);
+ MoveImage_Drag(DisplayPath+NowDocDir+'\',fp,tp );
+
+end;
+
+procedure TCB_IMGPSScanX.ISBDragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+var
+ So : Boolean;
+begin
+ {if (TObject(Source) is TImageScrollBox) and (TObject(Sender) is TImageScrollBox) then
+ begin
+ Label3.Caption := TImageScrollBox(Source).FileName+#13+TImageScrollBox(Sender).FileName;
+ end; }
+
+ So := False;
+ if TObject(Source) is TImageScrollBox then
+ So := True;
+ Accept := True;
+ if not So
+ or (TImageScrollBox(Source).FileName = TImageScrollBox(Sender).FileName)
+ or (TreeView1.Selected.Level <> 2)
+ Then
+ Accept := False;
+end;
+
+Function TCB_IMGPSScanX.FindMpsView(Vmode: Integer):TImageScrollBox;
+var
+ i,n : Integer;
+ ISB : TImageScrollBox;
+begin
+ case Vmode of
+ 0 : n := 1;
+ 1 : n := 2;
+ 2 : n := 4;
+ 3 : n := 6;
+ 4 : n := 8;
+ end;
+ for i := 1 to 8 do
+ begin
+ if i > n then Break;
+ ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
+ if (i = n) and (ISB.FileName <> '') then
+ begin
+ clearView(i);
+ Result := ISB1;
+ end
+ Else if ISB.FileName = '' then
+ Result := ISB;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetCaseFormID(Path:String):String; //取案件的主FormID
+var i,n : Integer;
+ FileFormID : String;
+begin
+ Result := '';
+ ContextList.LoadFromFile(Path+'Context.dat');
+ for I := 0 to ContextList.Count - 1 do
+ begin
+ FileFormID := FileName2FormCode(ContextList.Strings[i]);
+
+ if DivPageFormIDList.IndexOf(FileFormID)<>-1 then //20170509 跳過分案頁的formid
+ begin
+ Continue;
+ end;
+ if FindDivFormCode(FileFormID) then
+ begin
+ Result := FileFormID;
+ Break;
+ end;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat
+var i : Integer;
+ S : TStringlist;
+ FormID : String;
+ FormName : String;
+begin
+ S := TStringlist.Create;
+ try
+ for I := 0 to ContextList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(ContextList.Strings[i]);
+ FormName := FormCode2FormName(CaseID,FormID);
+ S.Add(FormID+'_'+FormName);
+ end;
+ S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat
+var
+ i : Integer;
+ S : TStringlist;
+ Doc_Name : String;
+begin
+ S := TStringlist.Create;
+ try
+ DistinctDocNoinCase(Path);
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ Doc_Name := CaseDocNoList.Strings[i]+'_'+DocNo2DocName(CaseID,CaseDocNoList.Strings[i]);
+ if not DocnoNeedGroup(CaseDocNoList.Strings[i]) Then //不用分組的加*號給智豪
+ Doc_Name := '*'+Doc_Name;
+ S.Add(Doc_Name);
+ end;
+ S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);
+ finally
+ S.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.CreateIn_WH(CaseID:String); //產生In_WH.dat
+var
+ i,n : Integer;
+ DocDirList,In_WH_List : TStringlist;
+ iDocNo : String;
+begin
+ DocDirList := TStringlist.Create;
+ In_WH_List := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to DocDirList.Count - 1 do
+ begin
+ iDocNo := DocNoDir2DocNo(DocDirList.Strings[i]);
+ for n := 0 to IN_WH_DocNoList.Count - 1 do
+ begin
+ if (iDocNo = IN_WH_DocNoList.Strings[n]) or (Copy(iDocNo,1,5)='ZZZZZ') then
+ begin
+ In_WH_List.Add(DocDirList.Strings[i]);
+ Break;
+ end;
+ end;
+ end;
+ In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');
+
+ finally
+ DocDirList.Free;
+ In_WH_List.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CreateDocNo_Info(CaseID:String):String; //產生 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動
+var
+ i,n : Integer;
+ DocDirList,DocDir_CopiesList,FileList,C_DocNoList : TStringlist;
+ DocNo,iDocDir,iDocNo,iEdit:String;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ DocDir_CopiesList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ C_DocNoList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ if DocDirList.Count =0 then exit;//20170222 新加
+
+
+ DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if Copy(iDocDir,1,5) <> 'ZZZZZ' then //不為自定文件
+ begin
+ //icopys := 1;
+ icopys := GetDocNoCount(CaseID,DocNo);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,'');
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if iDocNo = DocNo then
+ begin
+ //inc(icopys);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit]);
+ end;
+ DocDirList.Delete(0);
+ end;
+
+
+ finally
+ DocDirList.Free;
+ DocDir_CopiesList.Free;
+ FileList.Free;
+ C_DocNoList.Free;
+ end;
+ Result := Str;
+
+ {S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ S1.LoadFromFile(Path+'Context_DocNo.dat');
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ iDocNo := CaseDocNoList.Strings[i];
+ iCopys := GetDocNo_Count(Path,iDocNo);
+ iPages := GetDocNo_Page(Path,iDocNo);
+ if str = '' then
+ Str := Format('%s,%d,%d',[iDocNo,iCopys,iPages])
+ else
+ Str := Str+';'+ Format('%s,%d,%d',[iDocNo,iCopys,iPages]);
+ end;
+ Result := Str;
+
+ finally
+ S.Free;
+ S1.Free;
+ end; }
+end;
+
+Function TCB_IMGPSScanX.CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動
+var
+ i,n : Integer;
+ DocDirList,FileList : TStringlist;
+ DocNo,DocName,iDocDir,iDocNo,iEdit:String;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+//ShowMessage(DocDirList.Text);
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
+ begin
+ //icopys := 1;
+ DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ icopys := GetDocNoCount(CaseID,DocNo);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if iDocNo = DocNo then
+ begin
+ //inc(icopys);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit]);
+ end;
+ DocDirList.Delete(0);
+ end;
+ finally
+ DocDirList.Free;
+ FileList.Free;
+ end;
+ Result := Str;
+end;
+
+Function TCB_IMGPSScanX.CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+var
+ i,n : Integer;
+ DocDirList,DocDir_CopiesList,FileList : TStringlist;
+ DocNo,iDocDir,iDocNo,iEdit:String;
+ FromCaseID : string;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ DocDir_CopiesList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ if DocDirList.Count=0 then exit;//20170222 新加
+
+
+ DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if (Copy(iDocDir,1,5) <> 'ZZZZZ') then //不為自定文件
+ begin
+ //icopys := 1;
+ //icopys := GetDocNoCount(CaseID,DocNo);
+ icopys := GetDocDirCopies(CaseID,iDocDir);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,'');
+ FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
+ if FromCaseID <> '' then
+ begin
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
+ begin
+ FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
+ //inc(icopys);
+ icopys := icopys + GetDocDirCopies(CaseID,iDocDir);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID]);
+ end;
+ end;
+ DocDirList.Delete(0);
+ end;
+ finally
+ DocDirList.Free;
+ DocDir_CopiesList.Free;
+ FileList.Free;
+ end;
+ Result := Str;
+end;
+
+Function TCB_IMGPSScanX.CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+var
+ i,n : Integer;
+ DocDirList,FileList : TStringlist;
+ DocNo,DocName,iDocDir,iDocNo,iEdit:String;
+ FromCaseID : string;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
+ begin
+ //icopys := 1;
+ //icopys := GetDocNoCount(CaseID,DocNo);
+ icopys := GetDocDirCopies(CaseID,iDocDir);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
+ FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
+ if FromCaseID <> '' then
+ begin
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
+ begin
+ FromCaseID := GetUseCase('F',DisplayPath,iDocDir);
+ //inc(icopys);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID]);
+ end;
+ end;
+ DocDirList.Delete(0);
+ end;
+ finally
+ DocDirList.Free;
+ FileList.Free;
+ end;
+ Result := Str;
+end;
+
+Function TCB_IMGPSScanX.CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有
+begin
+ Result := 'N';
+ if GetDocDir_Page(CaseID,AttName) > 0 Then
+ Result := 'Y';
+end;
+
+Function TCB_IMGPSScanX.GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N)
+var
+ i : Integer;
+ EditedDocDirList : TStringlist;
+ C_DocNoList,C_DocNameList : TStringlist;
+begin
+ Result := 'N';
+ EditedDocDirList := TStringlist.Create;
+ C_DocNoList := TStringlist.Create;
+ C_DocNameList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
+ EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+
+ //Showmessage(C_DocNoList.Text);
+ if (DocName = '') and (C_DocNoList.IndexOf(DocNo)=-1 ) then
+ Result := 'Y';
+ if (DocName <> '') and (C_DocNameList.IndexOf(DocName)=-1) then
+ Result := 'Y';
+ for i := 0 to EditedDocDirList.Count - 1 do
+ begin
+ if (DocNo = DocNoDir2DocNo(EditedDocDirList.Strings[i])) then
+ begin
+ Result := 'Y';
+ Break;
+ end;
+ end;
+ finally
+ EditedDocDirList.Free;
+ C_DocNoList.Free;
+ C_DocNameList.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數
+var
+ i : Integer;
+ iCopys : integer;
+ S,S1 : TStringlist;
+ iFormID : String;
+ DocFirst : Boolean;
+begin
+ Result := 0;
+ if not DocnoNeedGroup(DocNo) then
+ begin
+ Result := 1;
+ Exit;
+ end;
+
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ S1.LoadFromFile(Path+'Context_DocNo.dat');
+ iCopys := 0;
+
+ for i := 0 to S.Count - 1 do
+ begin
+ iFormID := FileName2FormCode(S.Strings[i]);
+ DocFirst := False;
+ if FormCode2Page(iFormID) = '01' then
+ DocFirst := True;
+ if ((iCopys = 0) or DocFirst) and (Docno = S1.Strings[i]) then
+ begin
+ inc(iCopys);
+ end;
+ end;
+ Result := iCopys;
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數
+var
+ i : Integer;
+ ipages : integer;
+ S,S1 : TStringlist;
+begin
+ Result := 0;
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ S1.LoadFromFile(Path+'Context_DocNo.dat');
+ iPages := 0;
+ for i := 0 to S.Count - 1 do
+ begin
+ if Docno = S1.Strings[i] then
+ begin
+ inc(iPages);
+ end;
+ end;
+ Result := ipages;
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+Function TCB_IMGPSScanX.FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在
+var
+ STDate,SPDate : String;
+ Docno,Version : String;
+begin
+ Result := False;
+ If FormCode = '' then //附件不檢查
+ begin
+ Result := True;
+ Exit;
+ end;
+ if CheckDate then //要檢查日期
+ begin
+ STDate := '00000000'; //沒設定
+ SPDate := '99999999'; //沒設定
+
+ IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DOC_NO','T1.FORM_ID',FormCode,index,FindResult) then
+ begin
+ DocNo := GetFindResult('T1.DOC_NO');
+ Version := FormCode2Version(FormCode);
+ if FindSQLData(Doc_Inf_List,'START_DATE,STOP_DATE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) then
+ begin
+ Result := True;
+ STDate := GetFindResult('START_DATE');
+ SPDate := GetFindResult('STOP_DATE');
+ if STDate = '' then STDate := '00000000'; //沒設定
+ if SPDate = '' then SPDate := '99999999'; //沒設定
+ if (ServerDate < STDate) or (ServerDate > SPDate) then
+ Result := False;
+ end;
+ end;
+ end
+ Else
+ begin
+ Result := FindSQLData(FORM_INF_List,'T1.FORM_ID','T1.FORM_ID',FormCode,index,FindResult);
+ end;
+end;
+
+Function TCB_IMGPSScanX.Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡
+var
+ i : Integer;
+ S : TStringlist;
+ iDocNo : String;
+begin
+ Result := False;
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ iDocNo := FormCode2DocNo(FileName2FormCode(S.Strings[i]));
+ if Docno = iDocNo then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.CB1Click(Sender: TObject);
+begin
+ TwainShowUI := CB1.Checked;
+end;
+
+Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //檔名重新排序
+var
+ i : Integer;
+ OldName,NewName : String;
+ Filelist : TStringlist;
+begin
+ Filelist := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ begin
+ Filelist.LoadFromFile(Path+'Context.dat');
+ for i := 0 to Filelist.Count - 1 do
+ begin
+ OldName := Filelist.Strings[i];
+ //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
+//ShowMessage(OldName+#10#13+NewName);
+ ReNameFile(Path+OldName,Path+NewName);
+ Filelist.Strings[i] := NewName;
+ end;
+ Filelist.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat');
+ end;
+ finally
+ Filelist.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //檔名重新排序
+var
+ i : Integer;
+ OldName,NewName : String;
+ Filelist : TStringlist;
+begin
+ Filelist := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ begin
+ Filelist.LoadFromFile(Path+'Context.dat');
+ for i := Filelist.Count - 1 downto 0 do
+ begin
+ OldName := Filelist.Strings[i];
+ //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
+ ReNameFile(Path+OldName,Path+NewName);
+ Filelist.Strings[i] := NewName;
+ end;
+ Filelist.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat');
+ end;
+ finally
+ Filelist.Free;
+ end;
+end;
+
+Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat
+var
+ i : Integer;
+ OldName,NewName : String;
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ if FileExists(Path+'scanlist.dat') then
+ S.LoadFromFile(Path+'scanlist.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ OldName := S.Strings[i];
+ //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
+ //ReNameFile(Path+OldName,Path+NewName);
+ S.Strings[i] := NewName;
+ end;
+ S.SaveToFile(Path+'scanlist.dat');
+ finally
+ S.Free;
+ end;
+end;
+
+
+Function TCB_IMGPSScanX.GetOMRCheckSet : Boolean; //下載OMR檢核XML檔
+var
+ SendData : String;
+ LastDateTime : String;
+ S : TStringlist;
+begin
+ Result := True;
+ S := TStringlist.Create;
+ Try
+ if FileExists(CheckXmlPath+'OMRSet.zip') then
+ DeleteFile(CheckXmlPath+'OMRSet.zip');
+
+ LastDateTime := '00000000000000';
+ if FileExists(CheckXmlPath+'LastDateTime.dat') then
+ begin
+ S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');
+ LastDateTime := S.Strings[0];
+ end;
+
+ SendData := 'settype=3&lastupdate='+LastDateTime;
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if FileExists(CheckXmlPath+'OMRSet.zip') then //有更新
+ begin
+ ExecuteUnZip(CheckXmlPath+'OMRSet.zip',CheckXmlPath,True);
+ S.Clear;
+ S.Add(ServerDate+GetBalance2Time(Balance));
+ S.SaveToFile(CheckXmlPath+'LastDateTime.dat');
+ end
+ Else
+ begin
+ if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
+ begin
+ Result := True;
+ end
+ Else if (Memo1.Lines.Strings[0] = '1') Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ Finally
+ S.Free;
+ End;
+
+end;
+
+Function TCB_IMGPSScanX.GetKeyinSet : Boolean; //取登打設定
+var
+ SendData : String;
+ LastDateTime : String;
+ S : TStringlist;
+begin
+ Result := True;
+ S := TStringlist.Create;
+ Try
+ if FileExists(SitePath+'KeyinSet.zip') then
+ DeleteFile(SitePath+'KeyinSet.zip');
+
+ LastDateTime := '00000000000000';
+ if FileExists(SitePath+'LastDateTime.dat') then
+ begin
+ S.LoadFromFile(SitePath+'LastDateTime.dat');
+ LastDateTime := S.Strings[0];
+ end;
+ SendData := 'settype=2&lastupdate='+LastDateTime;
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if FileExists(SitePath+'KeyinSet.zip') then //有更新
+ begin
+ ExecuteUnZip(SitePath+'KeyinSet.zip',SitePath,True);
+ S.Clear;
+ S.Add(ServerDate+GetBalance2Time(Balance));
+ S.SaveToFile(SitePath+'LastDateTime.dat');
+ end
+ Else
+ begin
+ if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
+ begin
+ Result := True;
+ end
+ Else if (Memo1.Lines.Strings[0] = '1') Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ Finally
+ S.Free;
+ End;
+
+end;
+
+
+Function TCB_IMGPSScanX.CaseAsk(CaseID: string):Integer;
+var
+ SendData : String;
+begin
+//Memo1.Clear;
+ SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&work_no='+FWork_no;
+ if (FMode = 'NSCAN') or (FMode = 'DSCAN') then
+ begin
+//ShowMessage('JJJJJ');
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := -1;
+ Exit;
+ end;
+ end;
+//ShowMessage(SendData);
+
+ IF memo1.Lines.Strings[0] <> '0' Then
+ begin
+ HttpErrStr := _Msg('')+memo1.Lines.Strings[1]+'。';
+ Result := -1;
+ Exit;
+ end
+ Else
+ begin
+ if (memo1.Lines.Count < 2) then
+ begin
+ HttpErrStr := _Msg('')+'OCX:Index Count error';
+ Result := -1;
+ Exit;
+ end
+ Else
+ begin
+ if memo1.Lines.Strings[1] = '0' then
+ begin
+ Result := 0;
+ end
+ Else if memo1.Lines.Strings[1] = '1' then
+ Result := 1
+ Else
+ begin
+ HttpErrStr := _Msg('')+'OCX:Value error';
+ Result := -1;
+ Exit;
+ end;
+ end;
+ end;
+end;
+
+Function TCB_IMGPSScanX.CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成
+var
+ OMRValue,Batchnum,Usermemo,Checkmemo,UpformID,ReMoveMemo: String;
+ Case_type,Handle_no,Format_id,Cen_Uid,Cen_Cliname,Cen_Platno,Cen_Apolyno,Case_priority : String;
+ Pages : Integer;
+ EnCodeDateTime : String;
+ SendData : String;
+ S : TStringlist;
+ i,v,v1 : Integer;
+ UpSortID : String;
+begin
+ Result := True;
+ S := TStringlist.Create;
+ try
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
+ UpformID := GetCaseFormID(Path);
+
+
+ Case_type := '0';
+ if FileExists(Path+'Context.dat') then //掃描頁數
+ begin
+ S.LoadFromFile(Path+'Context.dat');
+ Pages := S.Count;
+ end;
+ if not FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then //如果沒這個檔就重產生預設值
+ begin
+ ClearCaseIndex;
+ WriteCaseIndex(ImageSavePath+CaseID+'\');
+ end;
+ {if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
+
+ Handle_No := S.Strings[0]; //經辦代號
+ Cen_Uid := S.Strings[1]; //被保人ID
+ Cen_Cliname := S.Strings[2]; //被保人姓名
+ Cen_Platno := S.Strings[3]; //車號
+ Case_Priority := S.Strings[4];//案件等級
+ if FMode = 'SSCAN' then //簽署章件的時候一律傳Format_ID
+ begin
+ Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
+ end
+ Else
+ begin
+ if (Length(UpformID) = 12) and (UpformID[2] = '-') then
+ Format_ID := S.Strings[5] //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
+ else
+ Cen_Apolyno := S.Strings[5]; //強制證號
+ end;
+ if (FMode = 'MSCAN') and (length(Format_ID) = 16) and (Copy(Format_ID,1,2) = '05') then
+ begin
+ Format_ID := Copy(Format_ID,3,14); //20130606 yuu說監理站件的主鍵值為16碼且開開為05的要去掉
+ end;
+
+ end; }
+ if FileExists(ImageSavePath+CaseID+'\GetValue.xml') then //掃描帶值
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\GetValue.xml');
+ OMRValue := Trim(S.Text);
+ end;
+ if MainCase then //雙主約的主要案件
+ begin
+ if FileExists(ImageSavePath+CaseID+'\Batchnum.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\Batchnum.dat');
+ Batchnum := Trim(S.Text);
+ end;
+ end
+ Else //雙主約的第二案件
+ begin
+ if FileExists(ImageSavePath+CaseID+'\SecBatchnum.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\SecBatchnum.dat');
+ Batchnum := Trim(S.Text);
+ end;
+ end;
+ if FileExists(ImageSavePath+CaseID+'\Scan_Memo.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\Scan_Memo.dat');
+ Usermemo := Trim(S.Text);
+ end;
+ if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\CheckMemo.dat');
+ Checkmemo := Trim(S.Text);
+ end;
+
+ if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
+ ReMoveMemo := Trim(S.Text);
+ end;
+
+
+ finally
+ S.Free;
+ end;
+ case_priority:='0';
+ if (FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&work_no='+FWork_No //作業別
+ +'&case_id='+CaseID //受理編號
+ +'&form_id='+UpformID //表單代號
+ +'&scan_page='+inttostr(pages) //掃描頁數
+ +'&scan_get_value='+HTTPEncode(UTF8Encode(OMRValue)) //掃描帶值
+ +'&case_priority='+case_priority //案件等級
+ +'&batch_no='+batchnum //車隊批號
+ +'&user_memo='+HTTPEncode(UTF8Encode(usermemo)) //使用者註記
+ +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo)) //檢核註記
+ +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo)) //檢核移除註記
+ +'&case_type='+Case_type //進件種類 進件0 歸檔1
+ +'&handle_no='+Handle_no //經辦代號
+ +'&format_id='+Format_id //案件主鍵值
+ +'&cen_uid='+Cen_Uid //被保人ID
+ +'&cen_cliname='+HTTPEncode(UTF8Encode(Cen_Cliname)) //被保人姓名
+ +'&cen_platno='+Cen_Platno //車牌
+ +'&cen_apolyno='+Cen_Apolyno //強制證號
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ Showmessage(SendData);
+ if not RejectCase then
+ begin
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC05',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else
+ begin
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC06',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end;
+
+
+ end
+ Else if FMode = 'ISCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&work_no='+FWork_No
+ +'&case_id='+CaseID
+ +'&form_id='+UpformID
+ +'&format_id='+Format_id
+ +'&scan_page='+inttostr(pages)
+ +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ //Showmessage(SendData);
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC08',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if FMode = 'FSCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&work_no='+FWork_No
+ +'&case_id='+CaseID
+ +'&scan_page='+inttostr(pages)
+ +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC09',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if FMode = 'RSCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&act=rescan'
+ +'&workno='+FWork_No
+ +'&caseid='+CaseID
+ +'&formid='+UpformID
+ +'&scanpage='+inttostr(pages)
+ // +'&areano='+FUserArea
+ +'&scangetvalue='+HTTPEncode(UTF8Encode(OMRValue))
+ +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if FMode = 'ESCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&act=escan'
+ +'&workno='+FWork_No
+ +'&caseid='+CaseID
+ +'&formid='+UpformID
+ +'&scanpage='+inttostr(pages)
+ +'&batchnum='+batchnum
+ +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ if Memo1.Lines.Strings[0] <> '0'then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+Memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.Timer1Timer(Sender: TObject);
+var
+ StampDate,StampTime : String;
+ i: Integer;
+begin
+ Timer1.Enabled := False;
+ //FIs_In_Wh:='Y'; /// test 記得關掉
+ //FWH_category :='N'; // test 記得關掉
+// FImgDelete := 'Y'; //test 記得關掉
+ //Showmessage('a');
+ //self.FIs_OldCase := 'Y';
+ PageLVclear := True;
+ InitialOk := False;
+
+ FMaxUploadSize:='10';
+ FJpgCompression:=50;
+ FFtpRootPath := ''; //影像平台沒有給FtpRoot目錄,會直接用FFtpExtraPath切換至指定目錄
+ //FMode := 'DSCAN' ;
+ //FIs_In_Wh := 'Y';
+ if FIs_In_Wh = 'Y' then
+ AttName := 'Attach' //入庫附件
+ else
+ AttName := 'S_Attach'; //Smartlending 附件
+//ShowMessage('1111111');
+ if FMode = 'SAMPLESCAN' then
+ begin
+ NewScanBtn.Visible := False;
+ PJLinkedMenuSpeedButton2.Visible := False;
+ AddScanBtn.Visible := False;
+ CheckCaseBtn.Visible := False;
+ Panel18.Visible := False;
+ TransBtn.Visible := False;
+ FC6.Visible := False;
+ SampleScanBtn.Visible := True;
+ Panel1.Visible := True;
+ Panel6.Visible := True;
+ ScanDuplexCB.Visible := False; //雙面掃描
+ end
+ Else if (FMode = 'NSCAN') then
+ begin
+ Panel18.Visible := True;
+ Panel1.Visible := True;
+ Panel6.Visible := True;
+ Panel21.Visible := True;
+ Panel23.Visible := True;
+
+ AttFileGB.Visible := True;
+ Splitter2.Visible := True;
+ ScanDuplexCB.Visible := True; //雙面掃描
+ end
+ Else if FMode = 'FSCAN' then
+ begin
+ Panel1.Visible := True;
+ //Panel6.Visible := True;
+ end
+ Else
+ begin
+ Panel18.Visible := True;
+ Panel1.Visible := True;
+ Panel6.Visible := True;
+ Panel21.Visible := True;
+ Panel23.Visible := True;
+ AttFileGB.Visible := True;
+ Splitter2.Visible := True;
+ end;
+ DisplayMode(1,1,1,Panel9);
+ Application.ProcessMessages;
+ StatusBar1.Panels[0].Text := 'Ver'+GetCurrentVersionNo;
+ StatusBar1.Panels[1].Text := 'Login User:'+FUserName;
+ {$IFDEF Test}
+ StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text+'(test)';
+ {$ENDIF}
+ StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text;
+
+ if FPrintyn = 'Y' then
+ PrtLB.Visible := True;
+
+ initParameter; //20170222 針對新加的parameter 作初始化參數
+ InitScrollRec;
+ If FUrl = '' then
+ begin
+ Showmessage(_Msg('URL cannot be empty,please contact system administrator'));
+ Exit;
+ end;
+ if FUrl[length(FUrl)]<>'/' then
+ FUrl := FUrl + '/';
+ //20221028 把語言檔改放至 Local目錄裡,才不會有些文字來不及使用
+ LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';
+ Str2Dir(LngPath);
+ ////下載語言檔///// 20170218 先拿調以便測試
+ If not DownLanguage Then
+ begin
+ Showmessage('Language File error!!'+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ InitialLanguage(Self); //載入多國語言
+
+
+ if FWork_no='' then
+ begin
+ Showmessage(_Msg('業務別不能為空白,請洽詢程式人員'));
+ Exit;
+ end;
+
+ if CaseIDLength = 0 then
+ begin
+ Showmessage(_Msg('案件編號長度限制不能為空白,請洽詢程式人員'));
+ //Exit; //測試時不退出
+ end;
+
+ //********清單區********
+
+ Doc_Inf_List := TStringList.Create; //Doc_Inf 清單 Docno + 版本為key
+ DM_FORM_INF_List := TStringList.Create; //DM_FORM_INF 清單 Docno + 版本為key
+ FORM_INF_List := TStringList.Create; //FORM_INF的清單
+ CHECK_RULE_INF_List := TStringList.Create; //CHECK_RULE_INF 清單
+ MEMO_INF_List := TStringList.Create; //MEMO_INF 清單
+ WORK_INF_List := TStringList.Create; //WORK_INF 清單
+ LASTEST_FORM_INF_List := TStringList.Create; // LASTEST_FORM_INF 清單
+ FindResult := TStringlist.Create; //找SQLData的結果
+
+ OMRFileList := TStringList.Create; //要OMR檢核的文件(只檢查每種Form的第一頁)
+ FormCode_PageSize := TStringList.Create; //文件的預設大小 FormCode_Height_Width
+ DocNo_NeedDoc := TStringList.Create; //有Docno時要相依的文件 DocNo_相依文件_相依文件
+ DocNo_NoDoc := TStringList.Create; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
+ DocNo_VerinCase := TStringList.Create; //案件裡的DocNo+版本的清單
+ CaseDocNoList := TStringlist.Create; //案件裡的DocNo清單
+ CaseDocNo_CopiesList := TStringlist.Create; //案件裡的DocNo份數清單
+ CaseList := TStringList.Create; //記錄掃瞄案件的順序
+ Context_DocnoList := TStringlist.Create; //案件裡的檔案Docno清單
+ ContextList := TStringlist.Create; //案件裡的檔案清單
+ AttContextList := TStringlist.Create; //案件裡的附加檔案清單
+ NoSaveBarCodeList := TStringlist.Create; //不儲存的條碼清單
+ FormID_List := TStringlist.Create; //FormID清單
+ DocNo_List := TStringlist.Create; //DocNo清單
+ NowShowFileList := TStringlist.Create; //目前顯示的影像清單
+ NowSelectFileList := TStringlist.Create; //目前被點選的影像清單
+ Cust_DocNoList := TStringlist.Create; //自行定義的文件名稱
+ IN_WH_DocNoList := TStringlist.Create; //入庫的文件清單
+ GuideFormIDList := TStringlist.Create; //要當導引頁表單清單
+ DivPageFormIDList := TStringList.Create; //要當分案頁表單清單
+ LastInitFormidList :=TStringList.Create;
+ LastAddFormidList := TStringList.Create;
+ SampleFormIDList := TStringList.Create;//20170627 加入
+ ExistImgList := TStringList.Create; //20170724 新增
+ reSizeExistImgList :=TStringList.Create; //20171012 新增
+ //********清單區********
+
+ ShowText := _Msg('資料載入中,請稍候');
+ DataLoading(True,True);
+
+ IF not GetServerDate Then
+ begin
+ Showmessage(_Msg('取主機時間時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ if FMode='SAMPLESCAN' then
+ begin
+ IF not GetSampleInf Then //取已存在sample
+ begin
+ Showmessage(_Msg('取存在範本資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+
+
+
+//ShowMessage('GetServerDate '+ServerDate+' , '+ServerTime);
+ ////下載系統資訊////
+ IF not GetSetInf1 Then //取DOC_INF 文件資訊
+ begin
+ Showmessage(_Msg('取文件資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf1');
+ //showmessage(self.Doc_Inf_List.Text);
+ IF not GetSetInf2 Then //取DM_FORM_INF 相依互斥資訊
+ begin
+ Showmessage(_Msg('取相依互斥資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf2');
+ //Showmessage(self.Doc_Inf_List.Text);
+ IF not GetSetInf3 Then //取FORM_INF 表單資訊
+ begin
+ Showmessage(_Msg('取表單資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf3');
+ IF not GetSetInf4 Then //取CHECK_RULE_INF 檢核規則資訊
+ begin
+ Showmessage(_Msg('取檢核規則資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ //showmessage(self.CHECK_RULE_INF_List.Text);
+//ShowMessage('GetSetInf4');
+ IF not GetSetInf5 Then //取MEMO_INF 常用片語資訊
+ begin
+ Showmessage(_Msg('取常用片語資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf5');
+ //showmessage(self.MEMO_INF_List.Text);
+ IF not GetSetInf6 Then //取WORK_INF 系統參數資訊
+ begin
+ Showmessage(_Msg('取系統參數資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf6');
+ //showmessage(FORM_INF_List.Text);
+ IF not GetSetInf7 Then //取LASTES_FORM_INF 系統參數資訊
+ begin
+ Showmessage(_Msg('取最新版FORMID參數資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf7');
+ //Showmessage(LASTEST_FORM_INF_List.Text);
+ SetFormID_DocNo; //將FormID及Docno抽出塞入List裡 20130403增加
+ SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+ GetDefScanIni; //取得掃描預設值及相關設定
+
+ ////下載系統資訊/////
+ if ImagePath = '' then
+ begin
+ Showmessage(_Msg('本機暫存路徑不得為空白'));
+ DataLoading(False,False);
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ Exit;
+ end;
+ initkscan;
+ if ImagePath[Length(ImagePath)] <> '\' then
+ ImagePath := ImagePath + '\';
+//ShowMessage('ImagePath='+ImagePath);
+ //CheckXmlPath := ImagePath+'OMRSITE\'+FWork_No;
+ CheckXmlPath := ImagePath+'OMRSITE\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
+//ShowMessage('CheckXmlPath='+CheckXmlPath);
+ //SitePath := ImagePath+'Site\'+FWork_No+'\';
+ SitePath := ImagePath+'Site\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
+ //LngPath := ImagePath; //改放至上面取Local目錄
+ SamplePath := ImagePath+'Sample\'+FWork_No+'\';
+ ImagePath := ImagePath + 'Scantemp\';
+//ShowMessage('AA ImagePath='+ImagePath);
+ ScaniniPath :=ImagePath+FWork_No+'\'+FUserUnit +'\';
+//ShowMessage('ScaniniPath='+ScaniniPath);
+ ImagePath := ImagePath + FWork_No+'\'+FUserUnit+'\'+FMode+'\';
+ ImagePath := StringReplace(ImagePath, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
+//ShowMessage('BB ImagePath='+ImagePath);
+ ImageSavePath := ImagePath;
+ str2dir(CheckXmlPath);
+ str2dir(SitePath);
+ str2dir(ImagePath);
+ str2dir(SamplePath);
+ Del_Sub_NothingPath(ImagePath); //清掉案件目錄是空的
+
+
+ LogFile1.LogFile:=LngPath+'IMGPSCheck.log';
+
+ ReduceLogFile;
+
+ LogFile1.LogToFile(logTimeString+'OCX取表data結束');
+
+ ShowText := _Msg('資料載入中,請稍候');
+ DataLoading(True,True);
+
+// if not CheckAvailable Then //檢查授權 20170218 說不用了
+// begin
+// DataLoading(False,False);
+// Panel1.Enabled := False;
+// Panel2.Enabled := False;
+// Exit;
+// end;
+
+//Button3Click(Self);
+//ShowMessage('CheckAvailable');
+ ShowText := _Msg('資料載入中,請稍候');
+ DataLoading(True,True);
+
+
+ StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName;
+ //FCaseID:='20150302180133';//測試用
+ ////下載語言檔/////
+//ShowMessage('OOOO');
+
+ if (FMode = 'RSCAN') or (FMode = 'DSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //重掃件及異動件要只能掃指定編號的件
+ begin
+ _Deltree(ImagePath);
+ str2dir(ImagePath);
+ ImageSavePath := ImagePath;
+ str2dir(ImageSavePath);
+ MkDir(ImageSavePath+FCaseID);
+ CreateEmptyCase(ImageSavePath,FCaseID);
+ MkDir(ImageSavePath+FCaseID+'\Download');
+ IF (FMode = 'ESCAN') or (FMode = 'DSCAN') then //異動件先下載影像
+ begin
+ ShowText := _Msg('案件下載中,請稍候');
+ DataLoading(True,True);
+ If not DownLoadImage(ImageSavePath+FCaseID+'\Download\',FCaseID) Then
+ begin
+ Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+DownFileErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ {If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
+ begin
+ Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;}
+//Showmessage(ImageSavePath+FCaseID+'\Download\'+#10#13+ImageSavePath+FCaseID+'\');
+ Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
+//Showmessage('aaa');
+ //Download2Case('C:\Users\Hong\Downloads\沒有括號\',ImageSavePath+FCaseID+'\');
+ if (FIs_OldCase = 'Y') then
+ begin
+ if (FWork_no='HLN') then
+ ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
+ //if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //這個會在Download2Case時一律產生所以不能有這行 20141013
+ OldCasetoNewCase(FCaseID);
+ //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
+ //LoadImgFile;
+ end;
+// if (FIs_OldCase = 'Y') and (FWork_no='HLN') then //77版的
+// begin
+// ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
+// if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then
+// OldCasetoNewCase(FCaseID);
+// //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
+// //LoadImgFile;
+// end;
+ Create_Cust_DocDir(FCaseID); //產生外面傳入的文件
+ if FMode='ESCAN' then
+ LastInitFormidListCreate(ImageSavePath+FCaseID+'\Download\');
+ end;
+ end;
+
+//ShowMessage('GetOMRCheckSet前');
+ ////下載檢核XML//////
+ IF not GetOMRCheckSet Then
+ begin
+ Showmessage(_Msg('下載檢核定位檔案時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ ////下載檢核XML/////
+//ShowMessage('GetOMRCheckSet後來');
+ ////下載登打設定/////
+ IF not GetKeyinSet Then
+ begin
+ Showmessage(_Msg('下載登打定位檔案時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ ////下載登打設定/////
+//ShowMessage('GetKeyinSet');
+ if ScanDenialHint <> '' then //有設定提示字串就秀在右上角
+ begin
+ DenialTimeLb.Visible := True;
+ DenialTimeLb.Caption := Format(ScanDenialHint,[ScanDenialTime]);
+ end;
+//ShowMessage(IntToStr(ScanDpi));
+ R_W_Scanini('R'); //掃瞄設定的ini
+//ShowMessage(IntToStr(ScanDpi));
+//ShowMessage('停掉DataLoading');
+//DataLoading(False,False);
+ ScanDuplexCB.Checked := ScanDuplex;
+ if FMode <> 'SAMPLESCAN' then
+ LoadImgFile;
+ if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then
+ begin
+ if TreeView1.Items.Count > 0 then
+ begin
+ TreeView1.Selected := NewTreeNode.Item[0];
+ TreeView1click(self);
+ end;
+ end;
+ InitialOk := True;
+
+ {AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
+ Splitter2.Visible := True;
+ AttFileGB.Visible := False; //附加電子檔窗
+ Splitter2.Visible := False; }
+//ShowMessage('ImageSavePath='+ImageSavePath);
+ DataLoading(False,False);
+
+ LogFile1.LogToFile(logTimeString+'OCX初始化結束');
+ LogFile1.LogToFile(logTimeString+'FUrl='+FUrl+
+ ',FCaseID='+FCaseID+
+ ',FMode='+FMode+
+ ',FModeName='+FModeName+
+ ',FWork_no='+FWork_no+
+ ',FUserID='+FUserID+
+ ',FUserName='+FUserName+
+ ',FUserUnit='+FUserUnit+
+ ',FData='+FData+
+ ',FVerify='+FVerify+
+ ',FReWrite='+FReWrite+
+ ',FLanguage='+FLanguage+
+ ',FLoanDoc_Value='+FLoanDoc_Value+
+ ',FLoanDoc_Enable='+FLoanDoc_Enable+
+ ',FUseProxy='+FUseProxy+
+ ',FC_DocNoList='+FC_DocNoList+
+ ',FC_DocNameList='+FC_DocNameList+
+ ',FFixFileList='+FFixFileList+
+ ',FIs_In_Wh='+FIs_In_Wh+
+ ',FOldCaseInfo='+FOldCaseInfo+
+ ',FPrintyn='+FPrintyn+
+ ',FIs_OldCase='+FIs_OldCase+
+ ',FCustDocYN='+FCustDocYN);
+ LogFile1.LogToFile(logTimeString+'FImgDPI='+IntToStr(FImgDPI)+
+ ',FScanColor='+ IntToStr(FScanColor)+
+ ',FFileSizeLimit='+ IntToStr(FFileSizeLimit)+
+ ',FCaseNoLength='+ IntToStr(FCaseNoLength)+
+ ',FImgDelete='+FImgDelete+
+ ',FIsExternal='+FIsExternal+
+ ',FWH_category='+FWH_category+
+ ',FCheck_main_form='+FCheck_main_form+
+ ',FMaxUploadSize='+FMaxUploadSize);
+
+end;
+
+procedure TCB_IMGPSScanX.Timer2Timer(Sender: TObject);
+begin
+ IF Panel22.Caption = ShowText+'......' Then
+ Panel22.Caption := ShowText
+ Else
+ Panel22.Caption := Panel22.Caption + '.';
+ Application.ProcessMessages;
+end;
+
+procedure TCB_IMGPSScanX.TransBtnClick(Sender: TObject);
+Var
+ CaseID : String;
+ i,n,v: Integer;
+ ZipFileList : TStringlist;
+ CaseTrans : Integer; //-1:失敗 0:可 1:不行
+ SuccessCount,ReCasecount,CheckErrCount : Integer;
+ TransMsg : String;
+ AreaStr : String;
+ S : TStringlist;
+ CheckStr : String;
+ uploadMsg:String;//20171122 新增 配合不同mode下要秀不能上傳訊息
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+LogFile1.LogToFile(logTimeString+'按下上傳');
+ ClearView(1);
+ CaseHelpBtn.Visible := False;
+ DisplayPath := '';
+ ClearCaseIndex;
+ RejectCase := False;
+ uploadMsg:='';
+ if not CheckCaseID_OK then //檢查是否有未配號的案件
+ begin
+ Showmessage(_Msg('尚有「無案件編號」之案件，無法上傳'));
+ Exit;
+ end;
+
+ if not CheckCaseAttach_OK then //20170911檢查是否有未歸類的案件
+ begin
+ Showmessage(_Msg('尚有未歸類文件,無法上傳'));
+ Exit;
+ end;
+
+
+ if NewTreeNode.Count = 0 then
+ begin
+ Showmessage(_Msg('無影像需傳送'));
+ Exit;
+ end;
+
+ SuccessCount := 0;
+ ReCasecount := 0;
+ CheckErrCount := 0;
+ if (FMode = 'NSCAN') and (not CheckScanDenialTime) then
+ begin
+ if Messagedlg(Format(_Msg('己超過收件時間(%s),預定作業日為下個營業日,是否繼續上傳??'),[ScanDenialTime]),mtConfirmation,[mbyes,mbcancel],0)=mrcancel then Exit;
+ end;
+
+ ShowText := _Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+
+ For i := 0 to NewTreeNode.Count -1 do
+ begin
+ v := posend('-',NewTreenode.Item[i].Text);
+ CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
+ ShowText := CaseID+_Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+ CreateIn_WH(CaseID); //產生入庫文件文字檔 In_Wh.dat
+ Case2upload(CaseID); //產生原影像結構
+ TransPath := ImageSavePath+CaseID+'\Upload\';
+ {if FMode = 'ESCAN' then //20140320 yuu說拿掉此檢查
+ begin
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(TransPath + 'Context.dat');
+ if S.Count = 0 then
+ begin
+ Showmessage(_Msg('無影像檔無法傳送'));
+ DataLoading(False,False);
+ LoadImgFile;
+ Exit;
+ end;
+ finally
+ s.Free;
+ end;
+ end;}
+ if (FMode = 'NSCAN') or (FMode = 'DSCAN') then //20170406 待掃瞄也要問一下
+ begin
+ /////訊問是否可上傳/////
+ CaseTrans := CaseAsk(CaseID);
+ //Showmessage('記得改回來');
+ //CaseTrans := 0;
+
+ /////訊問是否可上傳////
+ end
+ Else ///不是新件、重掃件、異動件的不查
+ begin
+ CaseTrans := 0;
+ end;
+ if CaseTrans = -1 then //失敗
+ begin
+ Showmessage(_Msg('')+HttpErrStr+'.');
+ DataLoading(False,False);
+ LoadImgFile;
+ Exit;
+ end;
+ if CaseTrans = 1 then
+ begin
+ ////重複處理/////
+ Inc(ReCasecount);
+ ////重複處理/////
+ Continue;
+ end
+ Else if CaseTrans = 0 then //可以傳送
+ begin
+ ///////檢核////// 20100927 User改為搬至外面做 ///20101019 User又改回上傳要做
+ //if FMode = 'NSCAN' then //20101019改成讀設定那些模式要做那些檢核
+ //begin
+ ///依十字定位點縮放////
+ CaseReSize(CaseID); //所以影像再做一次縮放
+ ////依十字定位點縮放/////// }
+ if (FMode <> 'FSCAN') then
+ begin
+ if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
+ begin
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ If not OMRCheckCase(CaseID) then //進檢核
+ begin
+ Inc(CheckErrCount);
+ Continue;
+ end;
+ end;
+ if (NewTreenode.Item[i].ImageIndex = 5) then
+ begin
+ Inc(CheckErrCount);
+ Continue;
+ end;
+ end;
+ //end;
+ ///////檢核//////
+ ShowText := CaseID+_Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+//ShowMessage('退出');DataLoading(False,False);Exit;
+ If Not TransCaseID(TransPath,CaseID,True) Then //傳送案件
+ begin
+ DataLoading(False,False);
+ LoadImgFile;
+ Exit;
+ end;
+ Inc(SuccessCount);
+ end;
+ end;
+ DataLoading(False,False);
+ TransMsg := Format(_Msg('成功件【%d】件'),[SuccessCount]);
+ if ReCasecount > 0 then
+ TransMsg := TransMsg + #13#10 + Format(_Msg('無法上傳件【%d】件'),[ReCasecount]);
+ if CheckErrCount > 0 then
+ begin
+ TransMsg := TransMsg + #13#10 + Format(_Msg('檢核失敗件【%d】件，請先點選「案件編號」，再點選「問號」查看錯誤原因'),[CheckErrCount]);
+LogFile1.LogToFile(logTimeString+'檢核失敗原因:'+OMRErrini2ListForLog(''));
+ end;
+
+ if (FMode = 'DSCAN') and (SuccessCount = 1) then
+ begin
+ uploadMsg:=NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程');
+ end;
+ if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) and (SuccessCount = 1) then
+ begin
+ uploadMsg:=NowCaseNo+_Msg('影像已補件完成');
+ end;
+//ShowMessage('uploadMsg='+uploadMsg);
+ if uploadMsg<>'' then
+ begin
+ ShowMessage(uploadMsg);
+ end
+ else
+ begin
+ Showmessage(_Msg('傳送完成')+#13#10+TransMsg);
+ end;
+
+ LoadImgFile;
+ if (FMode = 'ESCAN') and (SuccessCount = 1) then
+ begin
+ if FEvents <> nil Then
+ begin
+ FEvents.OnClosePage;
+ end;
+ end;
+ if (FMode = 'DSCAN') and (SuccessCount = 1) then
+ begin
+ if FEvents <> nil Then
+ begin
+ FEvents.OnClosePage;
+ end;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.TreeView1Click(Sender: TObject);
+Var
+ v,v1,v2,v3,ln : Integer;
+ i,page : Integer;
+ F : TSearchrec;
+begin
+ ScanMode := smNew;
+ IF TreeView1.Selected = nil Then Exit;
+ Scrollbar1.Position := 1;
+ Scrollbar1.Max := 1;
+ DisplayPath := '';
+ NowCaseno := '';
+ NowDocDir := '';
+ NowDocNo := '';
+ NowFormCode := '';
+ NowFormName := '';
+ NowPage := 0;
+ NowShowFileList.Clear;
+ StatusBar1.Panels[2].Text := '';
+ ClearCaseIndex;
+ PageLv.Items.Clear; //頁數清單
+ //Panel18.Enabled:= False;
+ AttListBox.Items.Clear;
+ AddAttFileLB.Enabled := False;
+ DelAttFileLB.Enabled := False;
+ UseOldCaseLb.Visible := False;
+ PM107.Visible := False; //備註功能
+ CaseHelpBtn.Visible := False; //檢核失敗原因鈕
+ Panel5.Visible := True;
+ ContextList.Clear;
+ SortMode := false;
+ ISB1.ZoomMode := zmFullPage;
+ IF TreeView1.Selected.Parent <> nil Then
+ begin
+ if TreeView1.Selected.Parent = NewTreenode then //點在案件上
+ begin
+ //Panel18.Enabled := True;
+ PM107.Visible := True; //備註功能
+ MyTreeNode1 := TreeView1.Selected;
+ MyTreeNode2 := nil;
+ MyTreeNode3 := nil;
+ v := Posend('-',MyTreenode1.Text);
+ v1 := Length(MyTreenode1.Text);
+ NowCaseNo := Copy(TreeView1.Selected.Text,1,v-1);
+ if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
+ UseOldCaseLb.Visible := True;
+ ClearView(1);
+ DisplayPath := ImageSavePath+NowCaseNo+'\';
+ if FLoanDoc_Enable = 'Y' then
+ begin
+ AddCredit1RG.Enabled := True;
+ end;
+ ReadCaseIndex(DisplayPath);
+ If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ IF FileExists(DisplayPath+'CaseDocNo.dat') Then
+ begin
+ CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');
+
+
+ view_image_DocNo(DisplayPath,'ShowAll','',1);
+ end;
+ if FileExists(DisplayPath+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
+
+
+ Page := ContextList.Count;
+ For i := 1 to page do
+ begin
+ With PageLV.Items.Add do
+ begin
+ Caption := Add_Zoo(i,3);
+ end;
+ end;
+ If Page > 0 then
+ ScrollBar1.Max := page;
+ MyTreeNode1.Expand(True);
+ end
+ Else If TreeView1.Selected.Parent.Parent = NewTreenode Then //點在文件上
+ begin
+
+ MyTreeNode1 := TreeView1.Selected.Parent;
+ MyTreeNode2 := TreeView1.Selected;
+ MyTreeNode3 := nil;
+ v := Pos('-',MyTreenode1.Text);
+ NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
+
+ v := Posend('{',MyTreenode2.Text);
+ v1 := Posend('}',MyTreenode2.Text);
+ v2 := posend('-',MyTreenode2.Text);
+ ln := length(MyTreenode2.Text);
+ NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
+ NowDocNo := DocNoDir2DocNo(NowDocDir);
+ page :=Strtoint(Copy(MyTreeNode2.Text,v2+1,ln-v2-1));
+ if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
+ UseOldCaseLb.Visible := True;
+ ClearView(1);
+ DisplayPath := ImageSavePath+NowCaseNo+'\';
+
+ if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
+ if FLoanDoc_Enable = 'Y' then
+ begin
+ AddCredit1RG.Enabled := True;
+ end;
+ ReadCaseIndex(DisplayPath);
+ If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ If Page > 0 then
+ ScrollBar1.Max := page;
+ For i := 1 to page do
+ begin
+ With PageLV.Items.Add do
+ begin
+ Caption := Add_Zoo(i,3);
+ end;
+ end;
+
+ If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ IF FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
+ begin
+ ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
+ //Context_DocnoList.LoadFromFile(DisplayPath+'Context_Docno.dat');
+ view_image_DocNo(DisplayPath,NowDocDir,'',Page);
+ end;
+ if FileExists(DisplayPath+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
+ MyTreeNode1.Expand(True);
+ end
+ Else If (NewTreenode <> nil) and (TreeView1.Selected.Parent.Parent.Parent = NewTreenode) Then //點在表單上
+ begin
+ //NoteBtn.Visible := True; //備註功能
+ //Panel18.Enabled := True;
+ ClearView(1);
+ PM107.Visible := True; //備註功能
+ MyTreeNode1 := TreeView1.Selected.Parent.Parent;
+ MyTreeNode2 := TreeView1.Selected.Parent;
+ MyTreeNode3 := TreeView1.Selected;
+
+ v := Posend('-',MyTreenode1.Text);
+ NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
+
+ if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
+ UseOldCaseLb.Visible := True;
+
+ v := Posend('{',MyTreenode2.Text);
+ v1 := Posend('}',MyTreenode2.Text);
+ v2 := posend('-',MyTreenode2.Text);
+ ln := length(MyTreenode2.Text);
+ NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
+ NowDocNo := DocNoDir2DocNo(NowDocDir);
+
+ v := Posend('{',MyTreenode3.Text);
+ v1 := Posend('}',MyTreeNode3.Text);
+ v2 := Posend('-',MyTreeNode3.Text);
+ ln := Length(MyTreeNode3.Text);
+ if v>0 then
+ begin
+ NowFormCode := Copy(MyTreeNode3.Text,v+1,v1-v-1);
+ if (NowFormCode = 'Attach') or (NowFormCode = 'S_Attach') then
+ NowFormCode := '';
+ NowFormName := Copy(MyTreeNode3.Text,v+1,v1-v-1);
+ page := strtoint(Copy(MyTreeNode3.Text,v2+1,ln-v2-1));
+ end
+ Else //點在附件的頁數
+ begin
+ NowFormCode := '';
+ page := 1;
+ end;
+
+ DisplayPath := ImageSavePath+NowCaseNo+'\';
+
+ if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
+
+ if FLoanDoc_Enable = 'Y' then
+ begin
+ AddCredit1RG.Enabled := True;
+ end;
+ ReadCaseIndex(DisplayPath);
+ If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ If Page > 0 then
+ ScrollBar1.Max := page;
+ For i := 1 to page do
+ begin
+ With PageLV.Items.Add do
+ begin
+ Caption := Add_Zoo(i,3);
+ end;
+ end;
+ If FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
+ begin
+ ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
+ view_image_DocNo(DisplayPath,NowDocDir,NowFormCode,Page);
+ //view_image_FormCode(DisplayPath,NowFormCode,1,1);
+ end;
+ if FileExists(DisplayPath+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
+ end;
+ MyTreeNode1.Expand(True);
+ AddAttFileLB.Enabled := True;
+ if FileExists(DisplayPath+'ATTContext.dat') then
+ begin
+ LoadAttFile(NowCaseno);
+ end;
+ end
+ Else //點在NewTreenode or MyTreenode1 上
+ begin
+ ClearView(1);
+ MyTreeNode1 := nil;
+ MyTreeNode2 := nil;
+ MyTreeNode3 := nil;
+ end;
+ TreeView1.Selected.MakeVisible;
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ //CountCaseno;
+ //CountCaseCount;
+ Application.ProcessMessages;
+end;
+
+procedure TCB_IMGPSScanX.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
+var
+ NewCaseno,NewDocNo,NewDocDir,NewFormCode,NewFormName : String;
+ NewPath,NewFileName:String;
+ OldFileName : String;
+ iTreeNode1,iTreeNode2,iTreeNode3: TTreeNode;
+ i,v,v1,v2 : Integer;
+ PreIndex,Precount,NowCount:Integer;
+ GoAtt : Boolean;
+ AttLv : Integer;
+begin
+ NewCaseno := '';
+ NewFormCode := '';
+ NewFormName := '';
+ Precount := MyTreeNode1.Count;
+ PreIndex := -1;
+ GoAtt := False;
+ if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
+ begin
+ AttLv := TreeView1.Selected.Level;
+ GoAtt := True;
+ end;
+
+ if TTreeView(Sender).GetNodeAt(X,Y).Level =2 then
+ begin
+ iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y);
+ iTreeNode1 := iTreeNode2.Parent;
+ v := Pos('-',iTreenode1.Text);
+ v1 := Length(iTreenode1.Text);
+ NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
+ v := Posend('{',iTreeNode2.Text);
+ v1 := Posend('}',iTreeNode2.Text);
+ NewDocNo := Copy(iTreeNode2.Text,v+1,v1-v-1);
+ NewPath := ImagePath+NewCaseNo+'\';
+ OldFileName := ExtractFileName(DisplayISB.FileName);
+ if Copy(NewDocNo,1,5) = 'ZZZZZ' then //自訂文件
+ begin
+ NewFileName := Add_Zoo(FileName2ScanPage(OldFileName),3)+'_'+NewDocNo+'0000000'+ExtractFileExt(OldFileName);
+ NewFormCode := NewDocNo+'0000000';
+ {ReNameFile(DisplayISB.FileName,NewPath+NewFileName);
+ ReNameContext(DisplayPath,OldFileName,NewFileName);
+ MyTreeNode2ReFresh(NowCaseno);
+ TreeView1Click(nil);}
+ end;
+ //NewFileName := Add_Zoo(GetCasePage(ImagePath,NewCaseno)+1,3)+FileName2NoQuene_Filename(OldFileName);
+ end
+ Else if TTreeView(Sender).GetNodeAt(X,Y).Level =3 then
+ begin
+ OldFileName := ExtractFileName(DisplayISB.FileName);
+ iTreeNode1 := TTreeView(Sender).GetNodeAt(X,Y).Parent.Parent;
+ iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y).Parent;
+ iTreeNode3 := TTreeView(Sender).GetNodeAt(X,Y);
+ v := Pos('-',iTreenode1.Text);
+ v1 := Length(iTreenode1.Text);
+ NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
+ v := Pos('{',iTreeNode2.Text);
+ v1 := Pos('}',iTreeNode2.Text);
+ NewDocDir := Copy(iTreeNode2.Text,v+1,v1-v-1);
+
+ v := Pos('{',iTreeNode3.Text);
+ v1 := Pos('}',iTreeNode3.Text);
+ NewFormName := Copy(iTreeNode3.Text,1,v-1);
+ NewFormCode := Copy(iTreeNode3.Text,v+1,v1-v-1);
+ IF v = 0 Then
+ begin
+ NewFormCode := '';
+ v := Posend('-',iTreeNode3.Text);
+ NewFormName := Copy(iTreeNode3.Text,1,v1-1);
+ end;
+ NewPath := ImagePath+NewCaseNo+'\'+NewDocDir+'\';
+ if NewPath = DisplayPath Then //同案件
+ begin
+ if NewFormCode <> '' then
+ //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ Else
+ //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
+ end
+ else //不同案件
+ begin
+ if NewFormCode <> '' then
+ //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ Else
+ //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
+ end;
+ end;
+ //Showmessage('a');
+ for I := 0 to NowSelectFileList.Count - 1 do
+ begin
+ OldFileName := NowSelectFileList.Strings[i];
+ if NewFormCode <> '' then
+ //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ Else
+ //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+ExtractFileExt(OldFileName);
+
+ if NewCaseNo = NowCaseNo then //同案件不改順序
+ begin
+ CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);
+ SetContextList('A',-1,NewCaseNo,NewDocDir,NewFileName);
+ DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);
+ TreeView1.Selected := MyTreeNode1;
+ //ReNameFile(DisplayPath + OldFileName,NewPath+NewFileName);
+ //ReNameContext(DisplayPath,OldFileName,NewFileName);
+ //MyTreeNode2ReFresh(NowCaseno);
+ //TreeView1Click(nil);
+ end
+ Else
+ begin
+ //Showmessage(DisplayMpsView.FileName+#13+NewPath+NewFileName);
+ ContextList.LoadFromFile(DisplayPath+'Context.dat');
+ if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
+ begin
+ if Messagedlg(Format(_Msg('移動後(%s)案件無影像,將刪除此案件,是否確定移動?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
+ end;
+ CopyFile(PWideChar(DisplayISB.FileName),PWideChar(NewPath+NewFileName),False);
+ ContextList.LoadFromFile(NewPath+'Context.dat');
+ ContextList.Add(NewFileName);
+ ContextList.SaveToFile(NewPath+'Context.dat');
+ //Showmessage('1');
+ iTreeNode2.Text := Format(_Msg('%s-%d頁'),[NewCaseNo,GetCasePage(ImagePath,NewCaseNo)]);
+ //Showmessage('2');
+ //DrawDocItem(iTreeNode1,FORM_INF_List,NewCaseNo);
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NewCaseno); 20140820改
+ DrawDocItem2(MytreeNode1,NewCaseno);
+ //Showmessage('3');
+ ClearErrini(NewCaseNo,iTreeNode1);
+ ContextList.LoadFromFile(DisplayPath+'Context.dat');
+ if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
+ begin
+ _DelTree(DisplayPath);
+ SetCaseList('D',MyTreeNode1.IndexOf(MyTreeNode2),'');
+ LoadImgFile;
+ end
+ Else
+ begin
+ ContextList.Delete(ContextList.IndexOf(ExtractFileName(DisplayISB.FileName)));
+ ContextList.SaveToFile(DisplayPath+'Context.dat');
+ DeleteFile(DisplayISB.FileName);
+ ReSortFileName(DisplayPath);
+ ClearErrini(NowCaseNo,MyTreeNode1);
+ MyTreeNode2ReFresh(NowCaseno);
+ //MyTreeNode3ReFresh(NowCaseno);
+ ContextList.LoadFromFile(DisplayPath+'Context.dat');
+ NowCount := MyTreeNode1.Count;
+ if PreCount = NowCount then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[PreIndex];
+ TreeView1Click(nil);
+ end
+ Else
+ begin
+ TreeView1.Selected := MyTreeNode1;
+ TreeView1Click(nil);
+ end;
+ end;
+ end;
+ end;
+ for I := 0 to NowSelectFileList.Count - 1 do
+ begin
+ OldFileName := NowSelectFileList.Strings[i];
+ ReSortFileName(ExtractFilePath(OldFileName));
+ end;
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ if GoAtt then
+ begin
+ GotoAttach(AttLv);
+ end;
+ //TreeView1Click(nil);
+
+end;
+
+procedure TCB_IMGPSScanX.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+var
+ NewNode : TTreeNode;
+ ImgFormCode : String;
+ ImgDocNo : String;
+ So : Boolean;
+begin
+ ImgFormCode := FileName2FormCode(ExtractFileName(DisplayISB.FileName));
+ ImgDocNo := Path2DocDir(ExtractFilePath(DisplayISB.FileName),NowCaseno);
+ //ImgDocNo := FileName2NowDcoNo(ExtractFileName(DisplayISB.FileName),ContextList,Context_DocnoList);
+ NewNode := TTreeView(Sender).GetNodeAt(X,Y);
+ //Label3.Caption := format('%d/%s/%s',[NewNode.Level,ImgDocNo,Node2DocNo(NewNode)]);
+ So := False;
+ if TObject(Source) is TImageScrollBox then
+ So := True;
+ Accept := True;
+ if not So
+ or(NewNode=nil)
+ or((NewNode.Level<>3))
+ or((NewNode.Level =3) and (((ImgFormCode=Node3FormID(NewNode)) and (ImgDocNo = Node3DocNo(NewNode))) or (Node3DocNo(NewNode)='')))
+ or(Pos(_Msg('Attach'),Newnode.Text)>0)
+ Then
+ Accept := False;
+
+ {if not So
+ or(NewNode=nil)
+ or((NewNode.Level <>2) and (NewNode.Level<>3))
+ or((NewNode.Level =2) and ((ImgDocNo = Node2DocNo(NewNode))or(Node2DocNo(NewNode)='')or (copy(Node2DocNo(NewNode),1,5)<>'ZZZZZ')))
+ or((NewNode.Level =3) and ((ImgFormCode=Node3FormID(NewNode)) or (ImgDocNo = Node3DocNo(NewNode)) or (Node3DocNo(NewNode)='')))
+ or(Pos(_Msg('未註冊文件'),Newnode.Text)>0)
+ Then
+ Accept := False;}
+end;
+
+procedure TCB_IMGPSScanX.TreeView1KeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ IF TreeView1.Selected.Parent <> nil Then
+ begin
+ TreeView1Click(nil);
+ end
+ else
+ begin
+ ClearView(1);
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.TreeView1MouseDown(Sender: TObject;
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+ IF Button = TMouseButton(MbRight) Then
+ begin
+ MDown := True;
+ If TreeView1.GetNodeAt(X,Y) = nil then Exit;
+ TreeView1.Selected := TreeView1.GetNodeAt(X,Y);
+ end;
+end;
+
+procedure TCB_IMGPSScanX.TreeView1MouseEnter(Sender: TObject);
+begin
+TreeView1.SetFocus;
+end;
+
+procedure TCB_IMGPSScanX.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+begin
+ //TreeView1.SetFocus;
+ {UnRegisterHotKey(Handle, HotKeyId1);
+ UnRegisterHotKey(Handle, HotKeyId2); }
+end;
+
+procedure TCB_IMGPSScanX.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+begin
+ IF Button = TMouseButton(MbRight) Then
+ begin
+ If TreeView1.GetNodeAt(X,Y) = nil then Exit;
+ if MDown then
+ begin
+ TreeView1Click(self);
+ TreeView1.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
+ end;
+ Application.ProcessMessages; //需加這行,不然有些全域變數會沒變到
+ MDown:= False;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.ViewModeBtnMouseEnter(Sender: TObject);
+begin
+ AddToolTip(TBitBtn(Sender).Parent.Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
+end;
+
+procedure TCB_IMGPSScanX.Set_caseid(const Value: WideString);
+begin
+ FCaseID := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_data(const Value: WideString);
+begin
+ FData := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_mode(const Value: WideString);
+begin
+ FMode := UpperCase(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_rewrite(const Value: WideString);
+begin
+ FReWrite := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_url(const Value: WideString);
+begin
+ FUrl := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_userid(const Value: WideString);
+begin
+ FUserID := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_username(const Value: WideString);
+begin
+ FUserName := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_verify(const Value: WideString);
+begin
+ FVerify := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_language(const Value: WideString);
+begin
+ FLanguage := lowercase(Value);
+ if FLanguage='zh-tw' then
+ begin
+ FLanguage:='zh_tw'
+ end;
+ if FileExists(LngPath+'Language.lng') then
+ begin
+ InitialLanguage(Self); //載入多國語言
+ end;
+end;
+
+procedure TCB_IMGPSScanX.Set_modename(const Value: WideString);
+begin
+ FModeName := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_userunit(const Value: WideString);
+begin
+ FUserUnit := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_work_no(const Value: WideString);
+begin
+ FWork_no := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_loandoc_enable(const Value: WideString);
+begin
+ FLoanDoc_Enable := Value;
+ if FLoanDoc_Enable = 'Y' then
+ AddCredit1RG.Enabled := True;
+ if FLoanDoc_Enable = 'I' then
+ begin
+ AddCredit1RG.Visible := False;
+ Panel5.Visible := False;
+ end;
+end;
+
+procedure TCB_IMGPSScanX.Set_loandoc_value(const Value: WideString);
+begin
+ FLoanDoc_Value := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_useproxy(const Value: WideString);
+begin
+ FUseProxy := UpperCase(Value);
+ if FUseProxy = 'Y' then
+ UseProxy := True; //要不要用Proxy
+
+end;
+
+procedure TCB_IMGPSScanX.Set_c_docnamelist(const Value: WideString);
+begin
+ FC_DocNameList := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_c_docnolist(const Value: WideString);
+begin
+ FC_DocNoList := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_fixfilelist(const Value: WideString);
+begin
+ FFixFileList := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_is_in_wh(const Value: WideString);
+begin
+ FIs_In_Wh := UpperCase(Value);
+end;
+
+procedure TCB_IMGPSScanX.Set_oldcaseinfo(const Value: WideString);
+begin
+ FOldCaseInfo := Value;
+end;
+
+function TCB_IMGPSScanX.Get_c_docnamelist: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_c_docnolist: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_caseid: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_data: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_fixfilelist: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_is_in_wh: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_language: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_loandoc_enable: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_loandoc_value: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_mode: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_modename: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_oldcaseinfo: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_rewrite: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_url: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_useproxy: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_userid: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_username: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_userunit: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_verify: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_work_no: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_printyn: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_printyn(const Value: WideString);
+begin
+ FPrintyn := UpperCase(Value);
+end;
+
+function TCB_IMGPSScanX.Get_is_oldcase: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_is_oldcase(const Value: WideString);
+begin
+ FIs_OldCase := UpperCase(Value);
+end;
+
+function TCB_IMGPSScanX.Get_custdocyn: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_custdocyn(const Value: WideString);
+begin
+ FCustDocYN := UpperCase(Value);
+end;
+
+function TCB_IMGPSScanX.Get_casenolength: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_filesizelimit: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_imgdpi: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_scancolor: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_casenolength(const Value: WideString);
+begin
+ if Value ='' then
+ begin
+ FCaseNoLength := 0 ;
+ CaseIDLength := FCaseNoLength;
+ end
+ else
+ begin
+ FCaseNoLength := StrToInt(Value) ;
+ CaseIDLength := FCaseNoLength;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.Set_filesizelimit(const Value: WideString);
+begin
+//ShowMessage(Value);
+ FFileSizeLimit:=0;
+ if Value ='' then
+ begin
+ FFileSizeLimit := 5*1024;
+ end
+ else
+ begin
+ FFileSizeLimit := StrToInt(Value);
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.Set_imgdpi(const Value: WideString);
+begin
+ if Value ='' then
+ begin
+ FImgDPI := 300;
+ ScanDpi := FImgDPI;
+ end
+ else
+ begin
+ FImgDPI := StrToInt(Value);
+ ScanDpi := FImgDPI;
+ Def_ScanDpi := FImgDPI;
+ end;
+
+end;
+
+procedure TCB_IMGPSScanX.Set_scancolor(const Value: WideString);
+begin
+ if value='' then
+ begin
+ FScanColor := 0;
+ ScanColor := ifBlackWhite;
+ end
+ else
+ begin
+ FScanColor := StrToInt(Value);
+ ScanColor := ifBlackWhite;
+ end;
+
+ if FScanColor = 1 then
+ begin
+ ScanColor := ifGray256 ;
+ end;
+
+ if FScanColor = 2 then
+ begin
+ ScanColor := ifTrueColor ;
+ end;
+
+end;
+
+function TCB_IMGPSScanX.Get_imgdelete: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_imgdelete(const Value: WideString);
+begin
+ FImgDelete:=Value;
+end;
+
+function TCB_IMGPSScanX.Get_check_main_form: WideString;
+begin
+
+end;
+
+function TCB_IMGPSScanX.Get_isExternal: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_check_main_form(const Value: WideString);
+begin
+ FCheck_main_form := Value;
+end;
+
+procedure TCB_IMGPSScanX.Set_isExternal(const Value: WideString);
+begin
+ FIsExternal:=Value;
+end;
+
+function TCB_IMGPSScanX.Get_WH_CATEGORY: WideString;
+begin
+
+end;
+
+procedure TCB_IMGPSScanX.Set_WH_CATEGORY(const Value: WideString);
+begin
+ FWH_category:=Value;
+end;
+
+initialization
+ TActiveFormFactory.Create(
+ ComServer,
+ TActiveFormControl,
+ TCB_IMGPSScanX,
+ Class_CB_IMGPSScanX,
+ 1,
+ '',
+ OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
+ tmApartment);
+
+ {SetLicenseKey('5B4451E676A1D2976FBB0F3BB18341336AF114C80B5ABAE7F6926B1CAF671F44' +
+ 'BD2F098CCEDA922F6389BFAE398DA6AEE67F97EEA0C17234C20D75C12173DBDA' +
+ '594924D56DD8E342F454389C836AD880BB4352CA3BE62C4933B1BA3828E7462C' +
+ '60514F2ECDAD322E6128D841F12D24DA00B623106D3F08EBCAA917D8A97CAA34' +
+ '3D65F2DA567316457395BF9123EE53DF235D181F191A5712DBB27735284AA92D' +
+ '5DFA0C8308308505F384707E900C6063F53F1BFF4C6972607955D1AE517B19D0' +
+ '82CDD16301885403AD229D57BAEF98C056F31430861E5F68F339D658D72E1F92' +
+ '63899412EC2D07891FE3AFD35F3E4A4390B2F0A8A1BF1B7D6160E5F1CC009B17'); }
+ SetLicenseKey('4B2CF65E8C2A86CE8A0DD0F6A7DB03BC0B0126168B48AE4C27EBD78CAE75CF0F' +
+ 'A612190861E0D99F6FAE3ED97AC1941B5E97843CFFCF705A3787989072D4EB2C' +
+ 'AE6CAB3F5B69B86616ACC8A37AD6A2AB21C7BDD5C9AE1EDF9E4193D353805C9A' +
+ '403631CE8A3D0803FEBB1BE4C209CE7A63B1298EF080EB34B8628CED567D2B68' +
+ 'E777FAC58E2E32B7411FC217A04336231D1E861A93474759DAA6EDF53F6EB632' +
+ 'A3055229A52F3053FB844754741409022DDE3DFB19473510F2BE63328E74BE20' +
+ 'A6A29AA24878F91ADA9DF8CE1F320AF4DAF58EBF95D9BE761D70EEA274E19475' +
+ '1C15948B184264C5C49E60493F3BCD2FFAE2CA8B021D00B96F45550C5F050D8A');
+
+
+ SetLicenseKey('A6A94A8D91B08A9D58F300C0573EA9EF1B9DB0BF69B90E13B958DB4CB6B44F5A' +
+ '4EE9CB22C9A68C2D07ED52ED4D13C755D890E4074996755361E6CDE2A6F1B563' +
+ '5DDC8999AC4D71FB092EA9F1F87BFA25694FBF0D6D250087D2B39629713FCCB0' +
+ 'D0A83135BC14FC63A4E8331CFF9E24C45C2D9CFD837EB70BAFDB79A75B7B97D5' +
+ 'E9EB271685118C29D90A7C85E7793908989E295DA50021C795A448366026E975' +
+ 'F49EA75B721B80427B99E5CF24A225FB498C07946ED7B806B483654C00D85C66' +
+ 'E34215CA3EDEF1D4C3F5896090E97E1E2C9752BA2D5B49EE58CF19A0D374077F' +
+ '6D13B90B6FED22D9EBC3AD6CDC76E595E08725BF2E12B8EF30A524A2E00504DF');
+end.
diff --git a/reassemble/CB_IMGPSScanImp.api.pas b/reassemble/CB_IMGPSScanImp.api.pas
new file mode 100644
index 0000000..5215da9
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.api.pas
@@ -0,0 +1,986 @@
+{ ==============================================================================
+ 方法名稱：GetServerDate
+ 引用相依：ProcessServlet_Get
+ 方法描述：從伺服器獲取伺服器時間。透過 HTTPS 請求取得時間字串，解析日期與時間，並
+ 計算 Server 與本機的時間差（Balance）供後續校時使用。
+============================================================================== }
+Function TCB_IMGPSScanX.GetServerDate : Boolean;
+begin
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/servertimeforocx','',FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ ServerDate := memo1.Lines.Strings[1];
+ ServerTime := Copy(ServerDate,9,6);
+ ServerDate := Copy(ServerDate,1,8);
+ Balance := GetBalance(ServerTime); //Server 跟Local的時間差
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSampleInf
+ 引用相依：ProcessServlet_Get
+ 方法描述：從伺服器獲取已註冊的範本表單 ID 清單，並存入 SampleFormIDList。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSampleInf : Boolean;
+var
+ str:String;
+begin
+ Result := False;
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/serversampleforocx','work_no='+FWork_no,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ str := memo1.Lines.Strings[1];
+ SampleFormIDList.CommaText:=str;
+
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf1
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 DOC_INF 資料表資訊（模式 1）。方法會加密目前伺服器時間戳記
+ 並發送 HTTP GET 請求。若成功取得資料（狀態碼 '0'），則利用 SetSQLData 將
+ 結果解析並存入本地快取 Doc_Inf_List；若發生通訊錯誤或 Session 逾時（偵
+ 測到登入頁面標籤），則會記錄對應的 HttpErrStr 並返回 False。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf1 : Boolean; //取系統設定資訊Mode1 DOC_INF
+Var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM DOC_INF WHERE WORK_NO = '%s' ORDER BY DOC_TYPE, DOC_NO, DOC_VERSION"
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
+ ColumeStr := 'WORK_NO,DOC_NO,DOC_U_DESC,DOC_TYPE,DOC_VERSION,FORM_PAGES,START_DATE,STOP_DATE,IS_DOC_DIV,IS_IN_WH';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=1&col='+Doc_Inf_Colume+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=1&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,Doc_Inf_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf2
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 DM_FORM_INF 表單關聯資訊（模式 2）。流程包含加密請求參數與
+ 發送 GET 請求。此方法負責取得表單間的主從關係、相依性以及互斥規則，並將
+ 回傳的資料行解析後存入本地的 DM_FORM_INF_List。若通訊失敗或 Session
+ 過期，會設定錯誤訊息並中斷流程。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf2 : Boolean; //取系統設定資訊Mode2 DM_FORM_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM DM_FORM_INF
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'WORK_NO,MAIN_FORM_ID,DOC_VERSION,DEPE_FORM_ID,MUTEX_FORM_ID';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=2&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=2&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,DM_FORM_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf3
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 FORM_INF 表單詳細資料（模式 3）。方法會取得包含表單名稱、說
+ 明、分類、定位點類型（ANCHOR/FRAME）、最大頁數及預設高寬等中繼數據。取得的
+ 資料會被快取至 FORM_INF_List，作為影像處理（如自動縮放與 OMR 檢核）的重
+ 要依據。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT distinct %s FROM FORM_INF T1 LEFT JOIN DOC_INF T2 ON T2.DOC_NO = T1.DOC_NO AND T1.DOC_VERSION = T2.DOC_VERSION AND T1.WORK_NO = T2.WORK_NO WHERE T2.IS_USE = 'Y' AND T2.WORK_NO = %s
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ //ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_KIND,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.MERGE_IMAGE,T1.CC_FORM_ID,T1.CC_MERGE_FORMID,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
+ ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.IS_PRINT,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=3&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=3&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,FORM_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf4
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 CHECK_RULE_INF 檢核規則資訊（模式 4）。此方法取得包含檢核
+ 代號、描述及顯示類型在內的驗證規則，並將其儲存於 CHECK_RULE_INF_List。
+ 最後會呼叫 CheckRule2OMRErrInfo，將取得的規則同步更新至 OMR 錯誤資訊
+ 記錄中，以確保前端檢核邏輯與伺服器同步。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM CHECK_RULE_INF WHERE CHECK_TYPE = 'S'
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'WORK_NO,CHECK_NO,CHECK_RULE_DESC,MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=4&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=4&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,CHECK_RULE_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ CheckRule2OMRErrInfo;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf5
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 MEMO_INF 註記資訊（模式 5）。方法會取得預設的註記內容及其
+ 對應的類型名稱，並將其快取至 MEMO_INF_List。這些資料通常用於 UI 上的註
+ 記選擇選單，方便掃瞄人員在影像處理過程中快速標註預設的說明文字。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF
+ var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM MEMO_INF T1 LEFT JOIN MEMO_TYPE_INF T2 ON T2.MEMO_TYPE_NO = T1.MEMO_TYPE WHERE T1.MEMO_SOURCE = '01'
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'T1.WORK_NO,T1.MEMO_TYPE,T1.MEMO_CONTENT,T2.MEMO_TYPE_NAME';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=5&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,MEMO_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf6
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 WORK_INF 工作參數資訊（模式 6）。此方法取得當前工作項目的
+ 全域參數（如 PARA_NO 與 PARA_CONTENT），並儲存於 WORK_INF_List。這些參數
+ 控制了掃瞄器的預設行為（如 DPI、雙面掃瞄等），是系統初始化環境設定的關鍵
+ 步驟。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf6 : Boolean; //取系統設定資訊mode5 WORK_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT %s FROM WORK_INF
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'WORK_NO,PARA_NO,PARA_CONTENT';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=6&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,WORK_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSetInf7
+ 引用相依：En_DecryptionStr_Base64, ProcessServlet_Get
+ 方法描述：向伺服器請求 LASTEST_FORM_INF 最新表單版本資訊（模式 7）。方法會獲取各
+ 文件編號對應的最新表單 ID 與版本號，並儲存於 LASTEST_FORM_INF_List。此
+ 資訊用於確保使用者掃瞄的是最新版表單，或是用於舊案件轉檔時的版本對照。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSetInf7 : Boolean; //取系統設定資訊mode5 LASTEST_FORM_INF
+var
+ ColumeStr : String;
+ S : TStringlist;
+ EnCodeDateTime : String;
+begin
+ //SELECT FORM_ID,DOC_NO,DOC_VERSION FROM FORM_INF WHERE (DOC_NO,DOC_VERSION) in (SELECT DOC_NO, MAX(DOC_VERSION) FROM FORM_INF GROUP BY DOC_NO) ORDER BY DOC_NO
+
+ Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ColumeStr := 'FORM_ID,DOC_NO';
+ //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=7&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else IF memo1.Lines.Strings[0] = '0' Then
+ begin
+ S := TStringlist.Create;
+ S.Text := Memo1.Lines.Text;
+ SetSQLData(ColumeStr,S,LASTEST_FORM_INF_List);
+ S.Free;
+ Result := True;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TransOldCaseFile
+ 引用相依：FileExists, upFile
+ 方法描述：處理舊件引用的檔案傳送。遍歷舊件清單，若發現有引用記錄，則透過 HTTPS 將
+ 引用資訊上傳至伺服器，並處理伺服器回傳狀態。
+============================================================================== }
+Function TCB_IMGPSScanX.TransOldCaseFile(Path:String):Boolean;
+var
+ i : Integer;
+ OldCaseID,Year,Data,Verify:String;
+ SendData : String;
+ OldCaseInfoList,Caseinfolist : TStringlist;
+ OldCasePath : String;
+begin
+ Result := True;
+ OldCaseInfoList := TStringlist.Create;
+ Caseinfolist := TStringlist.Create;
+ try
+ OldCaseInfoList.StrictDelimiter := True;
+ OldCaseInfoList.Delimiter := #9;
+ OldCaseInfoList.DelimitedText := FOldCaseInfo;
+ for i := 0 to OldCaseInfoList.Count - 1 do
+ begin
+ Caseinfolist := SplitString('@#,',OldCaseInfoList.Strings[i]);
+ //Caseinfolist.Delimiter := '_';
+ //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
+ OldCaseID := Caseinfolist.Strings[0];
+ Year := Caseinfolist.Strings[1];
+ Data := Caseinfolist.Strings[4];
+ Verify := Caseinfolist.Strings[5];
+ OldCasePath := Path+OldCaseID+'\';
+ if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then
+ begin
+ //////壓檔/////
+ //ZipMainFile(Path,Path,'Img.zip');
+
+ ////上傳/////
+ SendData:='data='+HTTPEncode(UTF8Encode(Data))+'&verify='+Verify+'&other_case_no='+OldCaseID;
+ //Showmessage(FUrl+'service/slic/SLIC02/useOther?'+senddata);
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then
+ begin
+ Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Result := False;
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ ////上傳////
+ end;
+ finally
+ OldCaseInfoList.Free;
+ Caseinfolist.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Writelog
+ 引用相依：
+ 方法描述：透過 ProcessServlet 向伺服器發送列印日誌記錄。傳送案件編號與 FData 等
+ 參數，並檢查伺服器回傳是否成功或 Session 是否失效。
+============================================================================== }
+Function TCB_IMGPSScanX.Writelog(CaseID : String):Boolean;
+var
+ SendData : String;
+begin
+ Result := True;
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID;
+ If not ProcessServlet(HTTPSClient,FURL+'service/imgpsc/IMGPSC06/printlog',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DownLanguage
+ 引用相依：dnFile, dnFile_Get
+ 方法描述：從伺服器下載多國語言設定檔 Language.Lng。使用 HTTPS 客戶端執行 GET 請
+ 求，下載至本地語系路徑。下載後會檢查回傳內容，驗證是否發生錯誤、伺服器回
+ 傳錯誤訊息，或是因為閒置過久導致 Session 過期被導向登入頁面，並設定對
+ 應的錯誤字串。
+============================================================================== }
+Function TCB_IMGPSScanX.DownLanguage:Boolean; //下載多國語言檔
+begin
+ Result := True; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
+ //dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)
+ If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF memo1.Lines.Strings[0] = '1' Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetOMRCheckSet
+ 引用相依：FileExists, LoadFromFile, SaveToFile, dnFile_Get, dnFile
+ 方法描述：從伺服器下載並更新 OMR 檢核設定檔（OMRSet.zip）。程序會檢查本地 LastDat
+ eTime.dat 取得最後更新時間，並發送請求。若伺服器有新資料，則下載後解壓
+ 縮並更新本地時間戳記；若無更新則維持現狀，並包含完整的錯誤處理邏輯。
+============================================================================== }
+Function TCB_IMGPSScanX.GetOMRCheckSet : Boolean; //下載OMR檢核XML檔
+var
+ SendData : String;
+ LastDateTime : String;
+ S : TStringlist;
+begin
+ Result := True;
+ S := TStringlist.Create;
+ Try
+ if FileExists(CheckXmlPath+'OMRSet.zip') then
+ DeleteFile(CheckXmlPath+'OMRSet.zip');
+
+ LastDateTime := '00000000000000';
+ if FileExists(CheckXmlPath+'LastDateTime.dat') then
+ begin
+ S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');
+ LastDateTime := S.Strings[0];
+ end;
+
+ SendData := 'settype=3&lastupdate='+LastDateTime;
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if FileExists(CheckXmlPath+'OMRSet.zip') then //有更新
+ begin
+ ExecuteUnZip(CheckXmlPath+'OMRSet.zip',CheckXmlPath,True);
+ S.Clear;
+ S.Add(ServerDate+GetBalance2Time(Balance));
+ S.SaveToFile(CheckXmlPath+'LastDateTime.dat');
+ end
+ Else
+ begin
+ if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
+ begin
+ Result := True;
+ end
+ Else if (Memo1.Lines.Strings[0] = '1') Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ Finally
+ S.Free;
+ End;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetKeyinSet
+ 引用相依：FileExists, LoadFromFile, SaveToFile, dnFile_Get, dnFile
+ 方法描述：從伺服器下載並更新登打設定檔（KeyinSet.zip）。運作機制與 GetOMRCheckSet
+ 相同，透過比對時間戳記決定是否執行下載與解壓縮，確保本地的登打定位資
+ 訊與伺服器同步。
+============================================================================== }
+Function TCB_IMGPSScanX.GetKeyinSet : Boolean; //取登打設定
+var
+ SendData : String;
+ LastDateTime : String;
+ S : TStringlist;
+begin
+ Result := True;
+ S := TStringlist.Create;
+ Try
+ if FileExists(SitePath+'KeyinSet.zip') then
+ DeleteFile(SitePath+'KeyinSet.zip');
+
+ LastDateTime := '00000000000000';
+ if FileExists(SitePath+'LastDateTime.dat') then
+ begin
+ S.LoadFromFile(SitePath+'LastDateTime.dat');
+ LastDateTime := S.Strings[0];
+ end;
+ SendData := 'settype=2&lastupdate='+LastDateTime;
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if FileExists(SitePath+'KeyinSet.zip') then //有更新
+ begin
+ ExecuteUnZip(SitePath+'KeyinSet.zip',SitePath,True);
+ S.Clear;
+ S.Add(ServerDate+GetBalance2Time(Balance));
+ S.SaveToFile(SitePath+'LastDateTime.dat');
+ end
+ Else
+ begin
+ if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
+ begin
+ Result := True;
+ end
+ Else if (Memo1.Lines.Strings[0] = '1') Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ Finally
+ S.Free;
+ End;
+
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：CaseAsk
+ 引用相依：ProcessServlet_Get
+ 方法描述：在上傳案件前，向伺服器詢問該案件是否可進行傳送。針對 NSCAN 或 DSCAN 模
+ 式，會封裝案件編號與加密驗證資訊發送至 IMGPSC05/isnew 服務。根據伺服器
+ 回傳結果（0 表示可上傳，1 表示重複），決定後續的上傳流程。
+============================================================================== }
+Function TCB_IMGPSScanX.CaseAsk(CaseID: string):Integer;
+var
+ SendData : String;
+begin
+//Memo1.Clear;
+ SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&work_no='+FWork_no;
+ if (FMode = 'NSCAN') or (FMode = 'DSCAN') then
+ begin
+//ShowMessage('JJJJJ');
+ If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := -1;
+ Exit;
+ end;
+ end;
+//ShowMessage(SendData);
+
+ IF memo1.Lines.Strings[0] <> '0' Then
+ begin
+ HttpErrStr := _Msg('')+memo1.Lines.Strings[1]+'。';
+ Result := -1;
+ Exit;
+ end
+ Else
+ begin
+ if (memo1.Lines.Count < 2) then
+ begin
+ HttpErrStr := _Msg('')+'OCX:Index Count error';
+ Result := -1;
+ Exit;
+ end
+ Else
+ begin
+ if memo1.Lines.Strings[1] = '0' then
+ begin
+ Result := 0;
+ end
+ Else if memo1.Lines.Strings[1] = '1' then
+ Result := 1
+ Else
+ begin
+ HttpErrStr := _Msg('')+'OCX:Value error';
+ Result := -1;
+ Exit;
+ end;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseComplete
+ 引用相依：FileExists, LoadFromFile, En_DecryptionStr_Base64
+ 方法描述：通知伺服器案件傳送完成。函式會收集案件的各項元數據，包含總頁數、主表單
+ ID、經辦資訊、被保人資料等，並根據不同的業務模式（如 NSCAN, ESCAN）格式化
+ 發送數據。若包含 OMR 檢核失敗資訊或備註，也會一併封裝傳送，最後根據伺服
+ 器回傳值判定作業是否成功。
+============================================================================== }
+Function TCB_IMGPSScanX.CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成
+var
+ OMRValue,Batchnum,Usermemo,Checkmemo,UpformID,ReMoveMemo: String;
+ Case_type,Handle_no,Format_id,Cen_Uid,Cen_Cliname,Cen_Platno,Cen_Apolyno,Case_priority : String;
+ Pages : Integer;
+ EnCodeDateTime : String;
+ SendData : String;
+ S : TStringlist;
+ i,v,v1 : Integer;
+ UpSortID : String;
+begin
+ Result := True;
+ S := TStringlist.Create;
+ try
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
+ UpformID := GetCaseFormID(Path);
+
+
+ Case_type := '0';
+ if FileExists(Path+'Context.dat') then //掃描頁數
+ begin
+ S.LoadFromFile(Path+'Context.dat');
+ Pages := S.Count;
+ end;
+ if not FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then //如果沒這個檔就重產生預設值
+ begin
+ ClearCaseIndex;
+ WriteCaseIndex(ImageSavePath+CaseID+'\');
+ end;
+ {if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
+
+ Handle_No := S.Strings[0]; //經辦代號
+ Cen_Uid := S.Strings[1]; //被保人ID
+ Cen_Cliname := S.Strings[2]; //被保人姓名
+ Cen_Platno := S.Strings[3]; //車號
+ Case_Priority := S.Strings[4];//案件等級
+ if FMode = 'SSCAN' then //簽署章件的時候一律傳Format_ID
+ begin
+ Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
+ end
+ Else
+ begin
+ if (Length(UpformID) = 12) and (UpformID[2] = '-') then
+ Format_ID := S.Strings[5] //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
+ else
+ Cen_Apolyno := S.Strings[5]; //強制證號
+ end;
+ if (FMode = 'MSCAN') and (length(Format_ID) = 16) and (Copy(Format_ID,1,2) = '05') then
+ begin
+ Format_ID := Copy(Format_ID,3,14); //20130606 yuu說監理站件的主鍵值為16碼且開開為05的要去掉
+ end;
+
+ end; }
+ if FileExists(ImageSavePath+CaseID+'\GetValue.xml') then //掃描帶值
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\GetValue.xml');
+ OMRValue := Trim(S.Text);
+ end;
+ if MainCase then //雙主約的主要案件
+ begin
+ if FileExists(ImageSavePath+CaseID+'\Batchnum.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\Batchnum.dat');
+ Batchnum := Trim(S.Text);
+ end;
+ end
+ Else //雙主約的第二案件
+ begin
+ if FileExists(ImageSavePath+CaseID+'\SecBatchnum.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\SecBatchnum.dat');
+ Batchnum := Trim(S.Text);
+ end;
+ end;
+ if FileExists(ImageSavePath+CaseID+'\Scan_Memo.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\Scan_Memo.dat');
+ Usermemo := Trim(S.Text);
+ end;
+ if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\CheckMemo.dat');
+ Checkmemo := Trim(S.Text);
+ end;
+
+ if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
+ ReMoveMemo := Trim(S.Text);
+ end;
+
+
+ finally
+ S.Free;
+ end;
+ case_priority:='0';
+ if (FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&work_no='+FWork_No //作業別
+ +'&case_id='+CaseID //受理編號
+ +'&form_id='+UpformID //表單代號
+ +'&scan_page='+inttostr(pages) //掃描頁數
+ +'&scan_get_value='+HTTPEncode(UTF8Encode(OMRValue)) //掃描帶值
+ +'&case_priority='+case_priority //案件等級
+ +'&batch_no='+batchnum //車隊批號
+ +'&user_memo='+HTTPEncode(UTF8Encode(usermemo)) //使用者註記
+ +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo)) //檢核註記
+ +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo)) //檢核移除註記
+ +'&case_type='+Case_type //進件種類 進件0 歸檔1
+ +'&handle_no='+Handle_no //經辦代號
+ +'&format_id='+Format_id //案件主鍵值
+ +'&cen_uid='+Cen_Uid //被保人ID
+ +'&cen_cliname='+HTTPEncode(UTF8Encode(Cen_Cliname)) //被保人姓名
+ +'&cen_platno='+Cen_Platno //車牌
+ +'&cen_apolyno='+Cen_Apolyno //強制證號
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ Showmessage(SendData);
+ if not RejectCase then
+ begin
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC05',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else
+ begin
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC06',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end;
+
+
+ end
+ Else if FMode = 'ISCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&work_no='+FWork_No
+ +'&case_id='+CaseID
+ +'&form_id='+UpformID
+ +'&format_id='+Format_id
+ +'&scan_page='+inttostr(pages)
+ +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ //Showmessage(SendData);
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC08',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if FMode = 'FSCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&work_no='+FWork_No
+ +'&case_id='+CaseID
+ +'&scan_page='+inttostr(pages)
+ +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC09',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if FMode = 'RSCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&act=rescan'
+ +'&workno='+FWork_No
+ +'&caseid='+CaseID
+ +'&formid='+UpformID
+ +'&scanpage='+inttostr(pages)
+ // +'&areano='+FUserArea
+ +'&scangetvalue='+HTTPEncode(UTF8Encode(OMRValue))
+ +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if FMode = 'ESCAN' then
+ begin
+ SendData := 'checktime='+EnCodeDateTime
+ +'&act=escan'
+ +'&workno='+FWork_No
+ +'&caseid='+CaseID
+ +'&formid='+UpformID
+ +'&scanpage='+inttostr(pages)
+ +'&batchnum='+batchnum
+ +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
+ +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
+ +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
+ +'&has_authorize='+Has_Authorize; //是否有授權書影像
+ If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ end;
+
+ if Memo1.Lines.Strings[0] <> '0'then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+Memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.caseMgr.pas b/reassemble/CB_IMGPSScanImp.caseMgr.pas
new file mode 100644
index 0000000..36dde85
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.caseMgr.pas
@@ -0,0 +1,107 @@
+{ ==============================================================================
+ 方法名稱：Node2DocNo
+ 引用相依：
+ 方法描述：從樹狀結構節點 2（文件層）的文字中解析並提取文件編號（DocNo）。
+============================================================================== }
+Function TCB_IMGPSScanX.Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來
+var
+ v,v1,v2 : Integer;
+begin
+ v := Posend('{',Node2.Text);
+ v1 := Posend('}',Node2.Text);
+ v2 := Posend('-',Node2.Text);
+ Result := Copy(Node2.Text,v+1,v1-v-1);
+ IF v1 = 0 Then
+ begin
+ Result := '';
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Node3DocNo
+ 引用相依：
+ 方法描述：從樹狀結構節點 3（表單層）的父節點文字中提取文件編號（DocNo）。
+============================================================================== }
+Function TCB_IMGPSScanX.Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來
+var
+ v,v1,v2 : Integer;
+begin
+ v := Posend('{',Node3.Parent.Text);
+ v1 := Posend('}',Node3.Parent.Text);
+ v2 := Posend('-',Node3.Parent.Text);
+ Result := Copy(Node3.Parent.Text,v+1,v1-v-1);
+ IF v1 = 0 Then
+ begin
+ Result := '';
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseDelete_Enable
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：判斷案件是否允許刪除。若案件下有任何文件目錄已被其他程序引用，則禁止刪
+ 除。
+============================================================================== }
+Function TCB_IMGPSScanX.CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除
+var
+ i : Integer;
+ CaseDocNoList : TStringlist;
+begin
+ Result := True;
+ CaseDocNoList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ if GetUseCase('T',DisplayPath,CaseDocNoList.Strings[i]) <> '' then //有被引用走的
+ Result := False;
+ end;
+
+ finally
+ CaseDocNoList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoExistsinTree
+ 引用相依：
+ 方法描述：檢查指定的案件節點下，是否已經存在具備該文件代號（DocNo）的子節點。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //是否己存在樹裡
+var
+ i : Integer;
+begin
+ Result := False;
+ for I := 0 to CaseNode.Count - 1 do
+ begin
+ if DocNo = DocNode2Info(CaseNode.Item[i],'I') Then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocnoNeedGroup
+ 引用相依：
+ 方法描述：查詢 Doc_Inf_List 判斷傳入的文件代號是否需要進行文件分組（IS_DOC_DIV
+ = "Y"）。
+============================================================================== }
+Function TCB_IMGPSScanX.DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組
+begin
+ Result := False;
+ If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
+ begin
+ if GetFindResult('IS_DOC_DIV') = 'Y' Then
+ Result := True;
+ end;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.convert.pas b/reassemble/CB_IMGPSScanImp.convert.pas
new file mode 100644
index 0000000..5288d5f
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.convert.pas
@@ -0,0 +1,480 @@
+{ ==============================================================================
+ 方法名稱：Path2DocDir
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：將實體路徑轉換為案件內的文件目錄名稱。透過比對路徑字串與 CaseDocNo.da
+ t 中的清單來識別對應的目錄。
+============================================================================== }
+Function TCB_IMGPSScanX.Path2DocDir(Path,CaseID:String):String;
+var
+ i : Integer;
+ DocnoList : TStringlist;
+begin
+ Result := '';
+ DocNoList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ if Path[length(Path)]<>'\' then
+ path := path+'\';
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if (path=ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
+ begin
+ Result := DocNoList.Strings[i];
+ Break;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormCode2FormName
+ 引用相依：
+ 方法描述：將表單代碼轉換為易讀的文件名稱。優先查詢系統定義表，若無則至自定義文件
+ 清單中搜尋。
+============================================================================== }
+Function TCB_IMGPSScanX.FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱
+var
+ i,v,ln : Integer;
+ DelBarCode : String;
+ CusDocNo,CusDocName : String;
+begin
+ Result := '';
+ if (FormCode = '') or (FormCode = 'Attach') or (FormCode = 'S_Attach') then
+ Result := _Msg('未歸類')
+ //showmessage('a');
+ //stringtofile(FORM_INF_List.Text,'D:\121.txt');
+ Else If FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.FORM_DESC','T1.FORM_ID',FormCode,0,FindResult) then
+ Result := GetFindResult('T1.FORM_DESC');
+
+ ////// 到自訂文件找//////
+ if Result = '' then
+ Result := GetCustomDocName(ImageSavePath+CaseID+'\',FormCode2DocNo(FormCode));
+ {for i := 0 to Cust_DocNoList.Count - 1 do
+ begin
+ v := Pos('_',Cust_DocNoList.Strings[i]);
+ ln := Length(Cust_DocNoList.Strings[i]);
+ CusDocNo := copy(Cust_DocNoList.Strings[i],1,v-1);
+ CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
+ if CusDocNo = FormCode2DocNo(FormCode) then
+ Result := DocNo2DocName(CusDocNo);
+
+ end;}
+
+
+ {DelBarCode := '**'+FormCode;
+ for I := 0 to FormCodeList.Count - 1 do
+ begin
+ if FindDel then //要找下架的
+ begin
+ if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
+ begin
+ Result := FormNameList.Strings[i];
+ Break;
+ end;
+ end
+ Else
+ begin
+ if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
+ begin
+ Result := FormNameList.Strings[i];
+ Break;
+ end;
+ end;
+ end; }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormCode2FileName
+ 引用相依：
+ 方法描述：在指定的檔案清單中，根據表單代碼尋找其對應的第一個影像檔名。
+============================================================================== }
+Function TCB_IMGPSScanX.FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁)
+var
+ i : Integer;
+ v,v1 : Integer;
+begin
+ Result := '';
+ for i := 0 to List.Count - 1 do
+ begin
+ V := pos('_',List.Strings[i]);
+ v1 := pos('.',List.Strings[i]);
+ if (FormCode = '') and (V = 0)then //FormCode 為空的則找附件出來
+ begin
+ Result := List.Strings[i];
+ Break;
+ end;
+ IF FormCode = Copy(List.Strings[i],v+1,v1-v-1) then
+ begin
+ Result := List.Strings[i];
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FileName2FormCode
+ 引用相依：
+ 方法描述：從影像檔名中提取表單代碼（底線與點號之間的部分）。若檔名格式不符則視為
+ 附件並回傳空字串。
+============================================================================== }
+Function TCB_IMGPSScanX.FileName2FormCode(FileName:String):String; //從檔名取出FormCode
+var
+ v,v1 : Integer;
+begin
+ FileName := ExtractFileName(FileName);
+ v := Pos('_',FileName);
+ v1 := Pos('.',FileName);
+ if v > 0 then
+ begin
+ Result := Copy(FileName,v+1,v1-v-1);
+ end
+ Else //附件
+ begin
+ Result := '';
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FileName2FormName
+ 引用相依：
+ 方法描述：根據案件編號與檔案名稱，先取得表單代碼，再轉換為對應的表單名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱
+begin
+ Result := FormCode2FormName(CaseID,FileName2FormCode(FileName));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FileName2ScanPage
+ 引用相依：
+ 方法描述：從檔案名稱中提取掃描頁碼。透過尋找底線或點號的位置，截取檔名前段並轉換
+ 為整數。
+============================================================================== }
+Function TCB_IMGPSScanX.FileName2ScanPage(FileName:String):Integer; //從檔名轉出掃瞄頁數
+Var
+ v : Integer;
+ FName : String;
+begin
+ FName := ExtractFileName(FileName);
+ v := Pos('_',FName);
+ if v = 0 then //附件
+ v := pos('.',FName);
+ Result := Strtoint(Copy(FName,1,v-1));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FileName2NoQuene_Filename
+ 引用相依：
+ 方法描述：從檔案名稱中移除序號部分，僅保留從底線或點號開始的剩餘檔名結構。
+============================================================================== }
+Function TCB_IMGPSScanX.FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名
+var
+ v,v1 : Integer;
+ FName : String;
+begin
+ FName := ExtractFileName(FileName);
+ v := Pos('_',FName);
+ if v = 0 then //附件
+ v := pos('.',FName);
+ v1 := length(FName);
+ Result := Copy(FName,v,v1-v+1);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FileName2Index
+ 引用相依：
+ 方法描述：在 ContextList 清單中搜尋指定的檔案名稱，並回傳其所在的索引位置。
+============================================================================== }
+Function TCB_IMGPSScanX.FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號
+var
+ i : Integer;
+begin
+ for i := 0 to ContextList.Count - 1 do
+ begin
+ if FileName = ContextList.Strings[i] then
+ begin
+ Result := i;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FileName2NowDcoNo
+ 引用相依：
+ 方法描述：從檔案名稱對應的 CTList 中尋找索引，並從 DNList 取得其歸屬的文件代號。
+============================================================================== }
+Function TCB_IMGPSScanX.FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號
+var
+ i : Integer;
+begin
+ for I := 0 to CTList.Count -1 do
+ begin
+ if FileName = CTList.Strings[i] then
+ begin
+ Result := DNList.Strings[i];
+ break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormCode2DocNo
+ 引用相依：
+ 方法描述：將表單代碼 (FormCode) 轉換為對應的文件編號 (DocNo)。方法遍歷預載的 Fo
+ rmID_List，若找到匹配的表單代碼，則返回 DocNo_List 中相同索引位置的數
+ 值。若表單代碼不在清單中（通常為使用者自訂的文件），則預設截取代碼的前 8
+ 位字元作為文件編號返回。
+============================================================================== }
+Function TCB_IMGPSScanX.FormCode2DocNo(FormCode:String):String; //FormCode轉Docno
+Var
+ i : Integer;
+begin
+ Result := '';
+ for i := 0 to FormID_List.Count-1 do
+ begin
+ if FormID_List.Strings[i] = FormCode then
+ begin
+ Result := DocNo_List.Strings[i];
+ Break;
+ end;
+
+ end;
+ if (FormCode <> '') and (Result = '') then //是自訂文件
+ begin
+ Result := Copy(FormCode,1,8); //20170224 DocNo 固定長度8碼
+ end;
+
+ {If FindSQLData(FORM_INF_List,'T1.DOC_NO','T1.FORM_ID',FormCode,0,FindResult) Then //20130403太慢了..換掉
+ begin
+ Result := GetFindResult('T1.DOC_NO');
+ end;}
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormCode2Version
+ 引用相依：
+ 方法描述：從表單代碼（FormCode）的特定位置（第 11 位開始取 5 位）提取版本資訊。
+============================================================================== }
+Function TCB_IMGPSScanX.FormCode2Version(FormCode:String):String; //FormCode轉版本
+begin
+ Result := Copy(FormCode,11,5);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormCode2Page
+ 引用相依：
+ 方法描述：從表單代碼（FormCode）的特定位置（第 9 位開始取 2 位）提取頁數資訊。
+============================================================================== }
+Function TCB_IMGPSScanX.FormCode2Page(FormCode:String):String; //FormCode轉頁數
+begin
+ Result := Copy(FormCode,9,2)
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNo2DocName
+ 引用相依：
+ 方法描述：解析文件編號對應的描述性名稱。優先權邏輯為：
+ 1. 若編號符合附件名稱 (AttName)，返回「未歸類」。
+ 2. 從系統定義快取 (Doc_Inf_List) 中搜尋對應的描述 (DOC_U_DESC)。
+ 3. 若系統定義查無結果，則呼叫 GetCustomDocName 從案件本地的自訂文件設
+ 定中尋找對應名稱。此方法確保 UI 上能顯示人類可讀的文件類別名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱
+var
+ i,v,ln : Integer;
+ CusDocNo,CusDocName : String;
+begin
+ Result := '';
+ if DocNo = AttName then
+ begin
+ Result := _Msg('未歸類');
+ end
+ Else
+ begin
+ If FindSQLData(Doc_Inf_List,'DOC_U_DESC','DOC_NO',DocNo,0,FindResult) Then
+ begin
+//ShowMessage(FindResult.Text);
+ Result := GetFindResult('DOC_U_DESC');
+ end;
+ end;
+
+ if Result = '' then //去自訂文件裡找
+ begin
+ Result := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ {for i := 0 to Cust_DocNoList.Count - 1 do
+ begin
+ v := Pos('_',Cust_DocNoList.Strings[i]);
+ ln := length(Cust_DocNoList.Strings[i]);
+ CusDocNo := Copy(Cust_DocNoList.Strings[i],1,v-1);
+ CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
+ if DocNo = CusDocNo then
+ begin
+ Result := CusDocName;
+ Break;
+ end;
+ end;}
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNo2FileName
+ 引用相依：
+ 方法描述：根據文件代號，在指定的檔案清單中搜尋並回傳該文件第一頁的檔案名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁)
+var
+ i : Integer;
+begin
+ Result := '';
+ for i := 0 to List.Count - 1 do
+ begin
+ IF DocNo = FormCode2DocNo(FileName2FormCode(List.Strings[i])) then
+ begin
+ Result := List.Strings[i];
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormCode2WorkNo
+ 引用相依：
+ 方法描述：透過 FORM_INF_List 查詢表單代碼對應的作業別（WORK_NO）。
+============================================================================== }
+Function TCB_IMGPSScanX.FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別
+begin
+ Result := '';
+ If FindSQLData(FORM_INF_List,'T1.WORK_NO','T1.FORM_ID',FormCode,0,FindResult) Then
+ begin
+ Result := GetFindResult('T1.WORK_NO');
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNo2WorkNo
+ 引用相依：
+ 方法描述：透過 Doc_Inf_List 查詢文件代號對應的作業別（WORK_NO）。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別
+begin
+ Result := '';
+ If FindSQLData(Doc_Inf_List,'WORK_NO','DOC_NO',DocNo,0,FindResult) Then
+ begin
+ Result := GetFindResult('WORK_NO');
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoNeedDiv
+ 引用相依：
+ 方法描述：檢查指定的文件類型是否需要執行頁面拆分（分份數）。方法透過 FindSQLData
+ 在 Doc_Inf_List 中查詢該編號的 'IS_DOC_DIV' 欄位，若旗標值為 'Y' 則返
+ 回 True，否則返回 False。此設定決定了掃瞄流程中是否需要根據條碼自動切
+ 分文件目錄。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號
+var
+ NeedDiv : String;
+begin
+ Result := False;
+ If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
+ begin
+ NeedDiv := GetFindResult('IS_DOC_DIV');
+ if NeedDiv = 'Y' then
+ Result := True;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseNode2Info
+ 引用相依：
+ 方法描述：從樹狀結構的案件節點文字中，根據指定的模式提取案件編號或案件頁數。
+============================================================================== }
+Function TCB_IMGPSScanX.CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page
+var
+ v,ln : Integer;
+begin
+ //XXXXXX-XX頁
+ V := Pos('-',Node.Text);
+ ln := Length(Node.Text);
+ case Mode of
+ 'I': Result := Copy(Node.Text,1,v-1); //CaseID
+ 'P': Result := Copy(Node.Text,v+1,ln-v-1); //CasePage
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNode2Info
+ 引用相依：
+ 方法描述：從樹狀結構的文件節點文字中提取詳細資訊。節點文字格式預期為「文件名稱@
+ 組數{文件代號}-XX頁」。此函式會根據傳入的模式（Mode），利用分隔符號（@, {,
+ }, -）定位並截取回傳文件代號（I）、文件名稱（N）、文件頁碼（P）或文件組別（G）
+ 。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group
+var
+ v,v1,v2,v3,ln :integer;
+begin
+ //文件名稱@組數{文件代號}-XX頁
+ V := PosEnd('@',Node.Text);
+ v1 := PosEnd('{',Node.Text);
+ v2 := PosEnd('}',Node.Text);
+ v3 := PosEnd('-',Node.Text);
+ ln := Length(Node.Text);
+ case Mode of
+ 'I': Result := Copy(Node.Text,v1+1,v2-v1-1); //DocNo
+ 'N': Result := Copy(Node.Text,1,v-1); //DocName
+ 'P': Result := Copy(Node.Text,v3+1,ln-v3-1); //DocPage
+ 'G': Result := Copy(Node.Text,v+1,v1-v-1); //DocGroup
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormNode2Info
+ 引用相依：
+ 方法描述：從樹狀結構的表單節點文字中提取資訊。節點文字格式預期為「表單代號{表單
+ 名稱}-XX頁」。根據模式（Mode）參數，解析並回傳表單代號（I）、表單名稱（N）或頁
+ 碼（P）。
+============================================================================== }
+Function TCB_IMGPSScanX.FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page
+var
+ v,v1,v2,ln :integer;
+begin
+ //表單代號{表單名稱}-XX頁
+ v := Pos('{',Node.Text);
+ v1 := PosEnd('}',Node.Text);
+ v2 := PosEnd('-',Node.Text);
+ ln := Length(Node.Text);
+ case Mode of
+ 'I': Result := Copy(Node.Text,1,v-1); //FormID
+ 'N': Result := Copy(Node.Text,v1+1,v2-v1-1); //FormName
+ 'P': Result := Copy(Node.Text,v2+1,ln-v2-1); //Page
+ end;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.custdoc.pas b/reassemble/CB_IMGPSScanImp.custdoc.pas
new file mode 100644
index 0000000..7da4bd4
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.custdoc.pas
@@ -0,0 +1,332 @@
+{ ==============================================================================
+ 方法名稱：GetNewCustomDocNo
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：產生一個全新的自定義文件編號。讀取 CustomDocNo.ini 中的計數器，根據入
+ 庫/非入庫性質產生 ZZZZZ 或 YYYYY 開頭的編號，並預設其內部的第一個表單
+ 代碼，最後將新設定寫回 INI 檔。
+============================================================================== }
+Function TCB_IMGPSScanX.GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號
+var
+ ini : Tinifile;
+ Ct:Integer;
+ DocNo,FormID : String;
+
+ {i,n,v,ln : Integer;
+ C_No,C_Name : String;
+ CNo : Integer;
+ S : TStringlist;
+ NewDocNo : String;}
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Ct := ini.ReadInteger('CustomCount','Count',0);
+ inc(Ct);
+ DocNo := 'ZZZZZ'+Add_Zoo(Ct,3);
+ if FIs_In_Wh <> 'Y' then //不是入庫文件
+ DocNo := 'YYYYY'+Add_Zoo(Ct,3);
+
+ if (FMode='ESCAN') and (FWH_category='N') then //20170914 補件下改成非入庫的自定文件
+ begin
+ DocNo := 'YYYYY'+Add_Zoo(Ct,3);
+ end;
+
+ FormID := DocNo+'010101A';
+ ini.WriteInteger('CustomCount','Count',Ct);
+ ini.WriteString(DocNo,'FormID',FormID);
+ ini.WriteString(DocNo,'Name',DocName);
+ Result := DocNo;
+ finally
+ ini.Free;
+ end;
+
+ {S := TStringlist.Create;
+ try
+ NewDocNo :='ZZZZZ001';
+ if FileExists(Path+'CustomDocNo.dat') then
+ begin
+ /// ZZZZZ001_自定文件名稱 001_自定文件名稱
+ S.LoadFromFile(Path+'CustomDocNo.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ v := Pos('_',S.Strings[i]);
+ ln := Length(S.Strings[i]);
+ C_No := Copy(S.Strings[i],1,v-1);
+ C_Name := Copy(S.Strings[i],v+1,ln-v);
+ if DocName = C_Name then
+ begin
+ Showmessage('文件名稱已存在');
+ Result := '';
+ Exit;
+ end;
+ end;
+ CNo := strtoint(Copy(C_No,6,3))+1;
+ NewDocNo := 'ZZZZZ'+Add_Zoo(CNo,3);
+ end;
+ S.Add(NewDocNo+'_'+DocName);
+ S.SaveToFile(Path+'CustomDocNo.dat');
+ Result := NewDocNo;
+ finally
+ S.Free;
+ end; }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCustomDocName
+ 引用相依：
+ 方法描述：從 CustomDocNo.ini 中讀取指定自定義文件編號對應的顯示名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Result := ini.ReadString(DocNo,'Name','');
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCustomFormID
+ 引用相依：
+ 方法描述：從 CustomDocNo.ini 中讀取指定自定義文件編號對應的表單代碼（FormID）。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Result := ini.ReadString(DocNo,'FormID','');
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCustomDocDir
+ 引用相依：
+ 方法描述：根據自定義文件名稱尋找對應的目錄代號（如 ZZZZZ001）。遍歷 CustomDocNo.i
+ ni 中的所有區段，讀取 Name 欄位進行比對，成功則回傳該編號。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir
+var
+ i,ct:integer;
+ ini : Tinifile;
+begin
+ Result := '';
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ ct := ini.ReadInteger('CustomCount','Count',0);
+ for i := 1 to ct do
+ begin
+ if ini.ReadString('ZZZZZ'+Add_Zoo(i,3),'Name','') = DocName then
+ begin
+ Result := 'ZZZZZ'+Add_Zoo(i,3);
+ Break;
+ end;
+ if ini.ReadString('YYYYY'+Add_Zoo(i,3),'Name','') = DocName then
+ begin
+ Result := 'YYYYY'+Add_Zoo(i,3);
+ Break;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindCustomDocName
+ 引用相依：
+ 方法描述：檢查指定的自定義文件名稱是否已存在於 CustomDocNo.ini 設定檔中。
+============================================================================== }
+Function TCB_IMGPSScanX.FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在
+var
+ ini : Tinifile;
+ Ct,i:Integer;
+ DocNo,FormID : String;
+begin
+ Result := False;
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ Ct := ini.ReadInteger('CustomCount','Count',0);
+ for I := 1 to Ct do
+ begin
+ DocNo := 'ZZZZZ'+Add_Zoo(i,3);
+ if DocName = ini.ReadString(DocNo,'Name','') then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Create_Cust_DocDir
+ 引用相依：DirectoryExists
+ 方法描述：根據外部傳入的清單（FC_DocNoList 或 FC_DocNameList）預先產生案件所需的
+ 文件目錄。會自動處理分份文件的命名、檢查是否已存在，並在 CustomDocNo.in
+ i 中註冊新名稱。
+============================================================================== }
+Procedure TCB_IMGPSScanX.Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件
+var
+ i,n : Integer;
+ C_DocNoList,C_DocNameList : TStringlist;
+ DocNo,DocName,DocDir : String;
+ DocNo_Ct,NowDocNo_Ct :integer;
+ DocName_Ct : Integer;
+ inx : Integer;
+begin
+ C_DocNoList := TStringlist.Create;
+ C_DocNameList := TStringlist.Create;
+ try
+
+ if FC_DocNoList <> '' then
+ begin
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ //Showmessage(C_DocNoList.Text);
+ for i := 0 to C_DocNoList.Count - 1 do
+ begin
+ DocNo := C_DocNoList.Strings[i];
+ //舊件不長出錯誤的文件出來
+ if (FIs_OldCase = 'Y') and (FWork_no='HLN') and (DocNo = FormCode2DocNo('10000001011112A')) then
+ Continue;
+ NowDocNo_Ct := GetDocNoCount(CaseID,DocNo);
+ if DocNoNeedDiv(DocNo) then
+ begin
+ DocNo_Ct := 0;
+ for n := 0 to i do
+ begin
+ if C_DocNoList.Strings[n] = DocNo then
+ inc(DocNo_Ct);
+ end;
+ if DocNo_CT <= NowDocNo_Ct then
+ Continue;
+ if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then //存在了
+ Continue;
+ if (DocNo_Ct = 1) and DirectoryExists(ImageSavePath+CaseID+'\'+DocNo) then //存在了 20140327加
+ Continue;
+ DocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',DocNo)
+
+ end
+ else
+ begin
+ DocDir := DocNo;
+ end;
+ if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
+ begin
+ MkDir(ImageSavePath+CaseID+'\'+DocDir);
+ SetDocNoList('A',-1,CaseID,DocDir,'1');
+ end;
+ if not DocNoNeedDiv(DocNo) then //不分份的秀數
+ SetDocDirCopies(CaseID,DocNo,GetCustomDocNoCount(DocNo));
+
+ end;
+ end;
+ if FC_DocNameList <> '' then
+ begin
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+ //Showmessage(C_DocNameList.Text);
+ for i := 0 to C_DocNameList.Count - 1 do
+ begin
+ DocName := C_DocNameList.Strings[i];
+ DocName_Ct := GetCustomNameCount(DocName);
+ if not FindCustomDocName(ImageSavePath+CaseID+'\',DocName) then
+ begin
+ DocDir := GetNewCustomDocNo(ImageSavePath+CaseID+'\',DocName);
+ if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
+ begin
+ MkDir(ImageSavePath+CaseID+'\'+DocDir);
+ SetDocNoList('A',-1,CaseID,DocDir,inttostr(DocName_Ct));
+ end;
+ end
+ Else
+ begin
+ DocDir := GetCustomDocDir(ImageSavePath+CaseID+'\',DocName);
+ //inx := DocNoDir2Index(ImageSavePath+CaseID+'\',DocDir);
+ SetDocDirCopies(CaseID,DocDir,DocName_Ct);
+ end;
+ end;
+ end;
+
+ finally
+ C_DocNoList.Free;
+ C_DocNameList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCustomNameCount
+ 引用相依：
+ 方法描述：統計外部傳入清單中，特定自定義文件名稱出現的次數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量
+var
+ i,ct : Integer;
+ C_DocNameList : TStringlist;
+begin
+ C_DocNameList := TStringlist.Create;
+ try
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+ ct := 0;
+ for i := 0 to C_DocNameList.Count - 1 do
+ begin
+ if C_DocNameList.Strings[i] = CustomName then
+ begin
+ inc(ct);
+ end;
+ end;
+ Result := ct;
+ finally
+ C_DocNameList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCustomDocNoCount
+ 引用相依：
+ 方法描述：統計外部傳入清單中，特定文件編號（DocNo）出現的次數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量
+var
+ i,ct : Integer;
+ C_DocNoList : TStringlist;
+begin
+ C_DocNoList := TStringlist.Create;
+ try
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ ct := 0;
+ for i := 0 to C_DocNoList.Count - 1 do
+ begin
+ if C_DocNoList.Strings[i] = Docno then
+ begin
+ inc(ct);
+ end;
+ end;
+ Result := ct;
+ finally
+ C_DocNoList.Free;
+ end;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.docmod.pas b/reassemble/CB_IMGPSScanImp.docmod.pas
new file mode 100644
index 0000000..d484a01
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.docmod.pas
@@ -0,0 +1,196 @@
+{ ==============================================================================
+ 方法名稱：OldCasetoNewCase
+ 引用相依：LoadFromFile, SaveToFile
+ 方法描述：將舊系統格式的案件文件份數轉換為新系統規則。方法會載入案件的文件目錄
+ 清單 (CaseDocNo.dat)，並解析由全域變數傳入的舊案文件編號與名稱清單（以
+ Tab 字串傳遞）。流程中會針對每個目錄編號統計其在舊資料中的出現次數，並
+ 將統計後的份數結果更新至 CaseDocNo_Copies.dat 檔案中，以完成歷史資料
+ 的規格對接。
+============================================================================== }
+Procedure TCB_IMGPSScanX.OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
+var
+ i,n : Integer;
+ C_DocNoList,C_DocNameList : TStringlist;
+ DocNoList,DocNo_CopiesList : TStringlist;
+ DocNo,DocName,DocDir : String;
+ DocNo_Ct :integer;
+begin
+ C_DocNoList := TStringlist.Create;
+ C_DocNameList := TStringlist.Create;
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ DocNo_CopiesList.Add('0');
+ end;
+ //Showmessage(FC_DocNoList);
+ if FC_DocNoList <> '' then
+ begin
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ //showmessage(C_DocNoList.Text+#13+#13+DocNoList.Text);
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ //DocNo := DocNoList.Strings[i];
+ DocNo := DocNoDir2DocNo(DocNoList.Strings[i]); //20140812 因轉舊案錯誤件會出現DocnoDir
+ DocNo_Ct := 0;
+ for n := 0 to C_DocNoList.Count - 1 do
+ begin
+ if DocNo = C_DocNoList.Strings[n] then
+ inc(DocNo_Ct);
+ end;
+ if DocNo_CT > 0 Then
+ DocNo_CopiesList.Strings[i] := inttostr(DocNo_CT);
+ end;
+ DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ end;
+ if FC_DocNameList <> '' then
+ begin
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ DocNo := DocNoList.Strings[i];
+ DocNo_Ct := 0;
+ for n := 0 to C_DocNameList.Count - 1 do
+ begin
+ if GetCustomDocName(ImageSavePath+CaseID+'\',DocNo) = C_DocNameList.Strings[n] then
+ inc(DocNo_Ct);
+ end;
+
+ if DocNo_CT > 0 Then
+ DocNo_CopiesList.Strings[i] :=inttostr(DocNo_CT);
+ end;
+ end;
+ DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ finally
+ C_DocNoList.Free;
+ C_DocNameList.Free;
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ErrFormtoCurrentForm
+ 引用相依：LoadFromFile, FileExists, RenameFile, SaveToFile, MoveFile
+ 方法描述：修正案件中歸類錯誤的表單代碼及其關聯檔案。邏輯如下：
+ 1. 取得錯誤與正確表單對應的文件編號。
+ 2. 遍歷案件下的所有文件目錄，載入各目錄的影像索引檔 (Context.dat)。
+ 3. 識別檔名中包含 EFormID 的影像，執行實體重新命名並更新索引。
+ 4. 若該目錄編號與錯誤文件編號一致，則會執行 MoveFile 搬移整個目錄至新
+ 路徑，並同步更新總文件清單 (CaseDocNo.dat)，確保影像與分類資訊的一致性
+ 。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
+var
+ DocNoList,FileList :TStringlist;
+ EDocNo,CDocNo,iDocNo,iFormID :String;
+ EDocDir,CDocDir:String;
+ OldFile,NewFile :String;
+ iPath,iiPath : String;
+ i,n : Integer;
+begin
+ EDocNo := FormCode2DocNo(EFormID);
+ CDocNo := FormCode2DocNo(CFormID);
+ DocNoList :=TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ EDocDir := DocNoList.Strings[i];
+ iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
+ iPath := ImageSavePath+CaseID+'\'+EDocDir+'\';
+ if FileExists(iPath+'Context.dat') then //20140909漏加這個判斷造成自訂文件但沒影像會出錯誤訊息
+ FileList.LoadFromFile(iPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ iFormID := FileName2FormCode(FileList.Strings[n]);
+ if iFormID = EFormID then
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := StringReplace(FileList.Strings[n],iFormID,CFormID,[rfReplaceAll]);
+ FileList.Strings[n] := NewFile;
+ RenameFile(iPath+OldFile,iPath+NewFile);
+ FileList.SaveToFile(iPath+'Context.dat');
+ end;
+ end;
+ if iDocNo = EDocNo then
+ begin
+ CDocDir := StringReplace(EDocDir,EDocNo,CDocNo,[rfReplaceAll]);
+ iiPath := ImageSavePath+CaseID+'\'+CDocDir+'\';
+ MoveFile(PWideChar(iPath),PWideChar(iiPath));
+ DocNoList.Strings[i] := StringReplace(DocNoList.Strings[i],iDocNo,CDocNo,[rfReplaceAll]);
+ DocNoList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ //SetRecordEditedDocDir('A',CaseID,CDocNo); //20140918 yuu說改成不紀錄
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ FileList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetRecordEditedDocDir
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：記錄案件中曾被異動（新增或刪除）的文件目錄。將目錄名稱存入 EditedDocDir
+ .dat，以便後續判斷哪些內容需要同步上傳或重新計算。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
+var
+ i : Integer;
+ Exists : Boolean;
+ EditedDocDirList : TStringlist;
+begin
+ EditedDocDirList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
+ EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ case Mode of
+ 'A':begin
+ Exists := False;
+ for i := 0 to EditedDocDirList.Count - 1 do
+ begin
+ if EditedDocDirList.Strings[i]=DocDir then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ begin
+ EditedDocDirList.Add(DocDir);
+ EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ end;
+ end;
+ 'D':begin
+ for i := 0 to EditedDocDirList.Count - 1 do
+ begin
+ if EditedDocDirList.Strings[i] = DocDir then
+ begin
+ EditedDocDirList.Delete(i);
+ if EditedDocDirList.Count > 0 then
+ EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat')
+ else
+ DeleteFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ Break;
+ end;
+ end;
+ end;
+ end;
+
+ finally
+ EditedDocDirList.Free;
+ end;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.docq.pas b/reassemble/CB_IMGPSScanImp.docq.pas
new file mode 100644
index 0000000..c13a05d
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.docq.pas
@@ -0,0 +1,553 @@
+{ ==============================================================================
+ 方法名稱：GetDataDocNoPage
+ 引用相依：
+ 方法描述：從 DOC_INF_List 資料中查詢特定文件與版本的預設頁數設定。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數
+var
+ P : String;
+begin
+ Result := 0;
+ If FindSQLData(Doc_Inf_List,'FORM_PAGES','DOC_NO,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) Then
+ begin
+ P := GetFindResult('FORM_PAGES');
+ if P <> '' then
+ Result := strtoint(P)
+ else
+ Result := 0;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckCaseDocNoPage
+ 引用相依：LoadFromFile
+ 方法描述：計算案件中特定文件與版本的實際頁數。透過讀取 upload 目錄下的 Context.
+ dat 與 DocDir.dat，精確比對 FormID、DocNo、版本與頁碼索引，並排除入庫狀
+ 態影像，回傳符合條件的影像總數。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //取案件裡的文件_版本頁數
+var
+ i,n,Count : integer;
+ S, S2 : TStringlist;
+ FormCode,iPage : String;
+ docInt,tempInt:integer;
+ v,v2:integer;
+begin
+ Count := 0;
+ docInt:=0;
+ tempInt:=0;
+ S := TStringlist.Create;
+ S2 := TStringlist.Create;
+//ShowMessage('page='+IntToStr(Pages));
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+ S2.LoadFromFile(ImageSavePath+CaseID+'\upload\DocDir.dat'); //2017 1220 改成只承認第一份的
+
+ for I := 1 to pages do //從0到pages-1 改成 1到pages 20170316 這樣可以修改檢核的頁數問題
+ begin
+ iPage := Add_Zoo(i,2);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[n]) then
+ begin
+ Continue;
+ end;
+ end;
+
+ if (Length(S2.Strings[n])>8) and (Pos(DocNo,S2.Strings[n])<>0) then //2017 1220 改成只承認第一份的
+ begin
+//LogFile1.LogToFile(logTimeString+'有進'+docno+','+S2.Strings[n]+IntToStr(Pos(DocNo,S2.Strings[n])));
+ v:=Pos('(',S2.Strings[n]);
+ v2:=Pos(')',S2.Strings[n]);
+ tempInt:=StrToInt(Copy(S2.Strings[n],v+1,v2-v-1));
+
+ if docInt=0 then
+ begin
+ docInt:=tempInt;
+ end;
+ if docInt<>tempInt then
+ begin
+//LogFile1.LogToFile(logTimeString+'docInt='+IntToStr(docInt)+',tempInt='+IntToStr(tempInt));
+ Result := Count;
+ Break;
+ end;
+ end;
+
+ FormCode := FileName2FormCode(S.Strings[n]);
+//LogFile1.LogToFile(logTimeString+'S.Strings[n]='+S.Strings[n]);
+//Showmessage('1:'+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
+//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
+LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
+//ShowMessage(DocNo+','+IntToStr(docInt)+','+IntToStr(tempInt));
+//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
+ if (version = FormCode2Version(FormCode)) and (DocNo = FormCode2DocNo(FormCode)) and (ipage = FormCode2Page(FormCode)) then
+ begin
+LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
+//Showmessage(version+','+DocNo+',iPage='+iPage);
+//Showmessage(inttostr(Count+1));
+ Inc(Count);
+ Break; //找到了...離開
+ end;
+ end;
+ end;
+ finally
+ S.Free;
+ S2.free;
+ end;
+ Result := Count;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindFormCodePages
+ 引用相依：LoadFromFile
+ 方法描述：計算案件中特定 FormID 的實際影像總數，可用於檢核。
+============================================================================== }
+Function TCB_IMGPSScanX.FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數
+var
+ i,Count : integer;
+ S : TStringlist;
+ iFormCode : String;
+begin
+ Count := 0;
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ iFormCode := FileName2FormCode(S.Strings[i]);
+ if FormCode = iFormCode then
+ begin
+ Inc(Count);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+ Result := Count;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDataFormCodePages
+ 引用相依：
+ 方法描述：查詢特定表單 ID 的最大頁數限制，若未設定則回傳 9999。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數
+begin
+ If FindSQLData(FORM_INF_List,'T1.MAX_PAGE','T1.FORM_ID',FormCode,0,FindResult) Then
+ begin
+ IF GetFindResult('T1.MAX_PAGE') = '' Then
+ Result := 9999
+ Else
+ Result := Strtoint(GetFindResult('T1.MAX_PAGE'));
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocDir_Page
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：取得特定文件目錄下的影像總頁數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocDir_Page(CaseID,DocDir:String):Integer;
+var
+ FileList : TStringlist;
+begin
+ Result := 0;
+ FileList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ Result := FileList.Count;
+ end;
+ finally
+ FileList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocNoCount
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：統計指定案件中某文件編號（DocNo）的總份數。讀取 CaseDocNo.dat 與 CaseDo
+ cNo_Copies.dat 並累加匹配項目的份數值。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量
+var
+ i : Integer;
+ Doc_Ct:Integer;
+ iDocNo : String;
+ DocNoList,DocNo_CopiesList : TStringlist;
+begin
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ begin
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ end;
+ Doc_Ct := 0;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
+ if iDocNo = DocNo then
+ Doc_Ct := Doc_Ct + strtoint(DocNo_CopiesList.Strings[i]);
+ end;
+ Result := Doc_Ct;
+ // Showmessage(DocNo+#13+inttostr(Doc_Ct));
+ finally
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocDirCopies
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：取得特定文件目錄（DocDir）目前的份數設定。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir數量
+var
+ i : Integer;
+ DocNoList,DocNo_CopiesList : TStringlist;
+begin
+ Result := 1; //預設回傳1 //20140521 由0改成1
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat') then
+ begin
+ DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if (DocDir = DocNoList.Strings[i]) and (i <= DocNo_CopiesList.Count-1) then
+ begin
+ Result := strtoint(DocNo_CopiesList.Strings[i]);
+ Break;
+ end;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetDocDirCopies
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：修改並儲存特定文件目錄的份數設定至 CaseDocNo_Copies.dat。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數
+var
+ i : Integer;
+ DocNoList,DocNo_CopiesList : TStringlist;
+begin
+ DocNoList := TStringlist.Create;
+ DocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ begin
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ end;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if DocDir = DocNoList.Strings[i] then
+ begin
+ DocNo_CopiesList.Strings[i] := inttostr(NewCopies);
+ DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ Break;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ DocNo_CopiesList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocDirCopies_Rec
+ 引用相依：
+ 方法描述：從 FOldCaseInfo 記錄字串中解析並取得特定文件目錄在舊案中的份數。支援
+ 自定義文件名稱與一般文件編號的匹配。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數
+var
+ i,n,v,v1 : Integer;
+ OldCaseInfoList,Caseinfolist : TStringlist;
+ iCaseID,Year,iBS_No,iIS_Old,iDocNo,iCopies:String;
+begin
+ Result := 1;
+ OldCaseInfoList := TStringlist.Create;
+ Caseinfolist := TStringlist.Create;
+ try
+ //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數]
+ OldCaseInfoList.StrictDelimiter := true;
+ OldCaseInfoList.Delimiter := #9;
+ OldCaseInfoList.DelimitedText := FOldCaseInfo;
+
+ for i := 0 to OldCaseInfoList.Count - 1 do
+ begin
+ Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
+ //Caseinfolist.Delimiter := '_';
+ //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
+ iCaseID := Caseinfolist.Strings[0];
+ Year := Caseinfolist.Strings[1];
+ iBS_No := Caseinfolist.Strings[2];
+ iIS_Old := Caseinfolist.Strings[3];
+ if CaseID = iCaseID then
+ begin
+ for n := 6 to Caseinfolist.Count - 1 do
+ begin
+ v := Pos('[',Caseinfolist.Strings[n]);
+ v1 := Pos(']',Caseinfolist.Strings[n]);
+ iDocNo := Copy(Caseinfolist.Strings[n],1,v-1);
+ iCopies := Copy(Caseinfolist.Strings[n],v+1,v1-v-1);
+ if Copy(DocDir,1,5) = 'ZZZZZ' then
+ begin
+ if iDocNo = GetCustomDocName(Path,DocDir) then
+ Result := strtoint(iCopies);
+ end
+ else
+ begin
+ if iDocNo = DocNoDir2DocNo(DocDir) then
+ Result := strtoint(iCopies);
+ end;
+ end;
+
+ end;
+ end;
+ finally
+ OldCaseInfoList.Free;
+ Caseinfolist.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocNoEdit
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：檢查指定文件是否被異動。程序會載入已編輯目錄清單，並與原始的文件代號/
+ 名稱清單（FC_DocNoList）進行比對。若文件代號或名稱不在原始清單中，或存在
+ 於已編輯清單內，則判定該文件已被異動並回傳 "Y"。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N)
+var
+ i : Integer;
+ EditedDocDirList : TStringlist;
+ C_DocNoList,C_DocNameList : TStringlist;
+begin
+ Result := 'N';
+ EditedDocDirList := TStringlist.Create;
+ C_DocNoList := TStringlist.Create;
+ C_DocNameList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
+ EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+ C_DocNoList.StrictDelimiter := True;
+ C_DocNoList.Delimiter := #9;
+ C_DocNoList.DelimitedText := FC_DocNoList;
+ C_DocNameList.StrictDelimiter := True;
+ C_DocNameList.Delimiter := #9;
+ C_DocNameList.DelimitedText := FC_DocNameList;
+
+ //Showmessage(C_DocNoList.Text);
+ if (DocName = '') and (C_DocNoList.IndexOf(DocNo)=-1 ) then
+ Result := 'Y';
+ if (DocName <> '') and (C_DocNameList.IndexOf(DocName)=-1) then
+ Result := 'Y';
+ for i := 0 to EditedDocDirList.Count - 1 do
+ begin
+ if (DocNo = DocNoDir2DocNo(EditedDocDirList.Strings[i])) then
+ begin
+ Result := 'Y';
+ Break;
+ end;
+ end;
+ finally
+ EditedDocDirList.Free;
+ C_DocNoList.Free;
+ C_DocNameList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocNo_Count
+ 引用相依：LoadFromFile
+ 方法描述：計算指定文件代號在案件中的份數。若文件不需分組則直接回傳 1。否則，遍歷
+ 影像清單（Context.dat），根據檔案名稱解析出的頁碼是否為第一頁（"01"）來累
+ 計該文件的份數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數
+var
+ i : Integer;
+ iCopys : integer;
+ S,S1 : TStringlist;
+ iFormID : String;
+ DocFirst : Boolean;
+begin
+ Result := 0;
+ if not DocnoNeedGroup(DocNo) then
+ begin
+ Result := 1;
+ Exit;
+ end;
+
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ S1.LoadFromFile(Path+'Context_DocNo.dat');
+ iCopys := 0;
+
+ for i := 0 to S.Count - 1 do
+ begin
+ iFormID := FileName2FormCode(S.Strings[i]);
+ DocFirst := False;
+ if FormCode2Page(iFormID) = '01' then
+ DocFirst := True;
+ if ((iCopys = 0) or DocFirst) and (Docno = S1.Strings[i]) then
+ begin
+ inc(iCopys);
+ end;
+ end;
+ Result := iCopys;
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocNo_Page
+ 引用相依：LoadFromFile
+ 方法描述：計算指定文件代號在案件中擁有的總影像頁數。遍歷影像對應的文件清單（Cont
+ ext_DocNo.dat），統計與傳入代號相符的項目數量。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數
+var
+ i : Integer;
+ ipages : integer;
+ S,S1 : TStringlist;
+begin
+ Result := 0;
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ S1.LoadFromFile(Path+'Context_DocNo.dat');
+ iPages := 0;
+ for i := 0 to S.Count - 1 do
+ begin
+ if Docno = S1.Strings[i] then
+ begin
+ inc(iPages);
+ end;
+ end;
+ Result := ipages;
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormIDExists
+ 引用相依：
+ 方法描述：檢查指定的表單代碼（FormID）是否存在於系統資料庫中。支援日期檢核模式：若
+ 啟用，則會進一步查詢該表單所屬文件的起迄效期（START_DATE, STOP_DATE），
+ 並與伺服器當前日期比對，確保表單仍在有效期限內。
+============================================================================== }
+Function TCB_IMGPSScanX.FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在
+var
+ STDate,SPDate : String;
+ Docno,Version : String;
+begin
+ Result := False;
+ If FormCode = '' then //附件不檢查
+ begin
+ Result := True;
+ Exit;
+ end;
+ if CheckDate then //要檢查日期
+ begin
+ STDate := '00000000'; //沒設定
+ SPDate := '99999999'; //沒設定
+
+ IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DOC_NO','T1.FORM_ID',FormCode,index,FindResult) then
+ begin
+ DocNo := GetFindResult('T1.DOC_NO');
+ Version := FormCode2Version(FormCode);
+ if FindSQLData(Doc_Inf_List,'START_DATE,STOP_DATE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) then
+ begin
+ Result := True;
+ STDate := GetFindResult('START_DATE');
+ SPDate := GetFindResult('STOP_DATE');
+ if STDate = '' then STDate := '00000000'; //沒設定
+ if SPDate = '' then SPDate := '99999999'; //沒設定
+ if (ServerDate < STDate) or (ServerDate > SPDate) then
+ Result := False;
+ end;
+ end;
+ end
+ Else
+ begin
+ Result := FindSQLData(FORM_INF_List,'T1.FORM_ID','T1.FORM_ID',FormCode,index,FindResult);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Case_DocNoExists
+ 引用相依：LoadFromFile
+ 方法描述：檢查指定的文件代號是否存在於特定案件的 Context.dat 影像清單中。
+============================================================================== }
+Function TCB_IMGPSScanX.Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡
+var
+ i : Integer;
+ S : TStringlist;
+ iDocNo : String;
+begin
+ Result := False;
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ iDocNo := FormCode2DocNo(FileName2FormCode(S.Strings[i]));
+ if Docno = iDocNo then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.fileOp.pas b/reassemble/CB_IMGPSScanImp.fileOp.pas
new file mode 100644
index 0000000..c39b416
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.fileOp.pas
@@ -0,0 +1,347 @@
+{ ==============================================================================
+ 方法名稱：ReNameContext
+ 引用相依：SaveToFile
+ 方法描述：在指定路徑下執行影像清單的更名同步。遍歷 ContextList，比對舊檔名後更新
+ 為新檔名，同步更新 Context.dat 及對應的文件編號清單（Context_DocNo.dat
+ ）。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ReNameContext(Path,OldName,NewName:String);
+var
+ i : Integer;
+begin
+ for i := 0 to ContextList.Count - 1 do
+ begin
+ if OldName = ContextList.Strings[i] then
+ begin
+ ContextList.Strings[i] := NewName;
+ ContextList.SaveToFile(Path+'Context.dat');
+ Context_DocnoList.Strings[i] := FormCode2DocNo(FileName2FormCode(NewName));
+ Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeleteImageFile
+ 引用相依：DeleteImageFile, FileExists, LoadFromFile, SaveToFile
+ 方法描述：刪除指定的影像檔案。執行實體刪除後，自動計算文件目錄，並呼叫 SetContext
+ List 從 Context 清單中移除對應的影像記錄。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案 (無法得到DocDir用)
+var
+ i : Integer;
+ FileList:TStringlist;
+ DocDir : String;
+begin
+
+
+ DeleteFile(Path+FileName);
+ DocDir := Path2DocDir(Path,CaseID);
+//ShowMessage('DocDir='+DocDir);
+ SetContextList('D',-1,CaseID,DocDir,FileName);
+ {FileList:=TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ FileList.LoadFromFile(Path+'Context.dat');
+ for i := 0 to FileList.Count - 1 do
+ begin
+ if FileName = FileList.Strings[i] then
+ begin
+ FileList.Delete(i);
+ FileList.SaveToFile(Path+'Context.dat');
+ Break;
+ end;
+ end;
+ if FileList.Count = 0 then
+ DeleteFile(Path+'Context.dat');
+ finally
+ FileList.Free;
+ end;}
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeleteFormCodeFile
+ 引用相依：FileExists, LoadFromFile, DeleteImageFile, ReSortFileName, SaveToFil
+ e
+ 方法描述：刪除案件中指定 FormID 的所有文件。讀取 Context.dat 並遍歷，若 FormID
+ 匹配則執行刪除（在 ESCAN 模式下會檢查是否非當次掃瞄以保護舊圖）。刪除後
+ 執行檔案序號重新排序。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件
+var
+ i: Integer;
+ FileList : TStringlist;
+begin
+ FileList := TStringlist.Create;
+ try
+ FileList.Clear;
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+
+ for i := FileList.Count - 1 downto 0 do
+ begin
+ if FileName2FormCode(FileList.Strings[i]) = FormID then
+ begin
+ if (FMode = 'ESCAN') and (FModeName<>_Msg('異動件')) then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\'+DocDir+'\'+FileList.Strings[i]) then
+ begin
+ //ShowMessage('有圖為非當次掃瞄，不可刪除');
+ Break;
+ end;
+ end;
+//ShowMessage(FileList.Strings[i]);
+ DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);
+ end;
+ end;
+ finally
+ FileList.Free;
+ end;
+ ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');
+ {for i := ContextList.Count - 1 downto 0 do
+ begin
+ FName := ContextList.Strings[i];
+ if FormID = 'Err' then //刪未註冊文件
+ begin
+ If not FormIDExists(FileName2FormCode(FName),False,0) Then
+ begin
+ DeleteFile(Path+FName);
+ ContextList.Delete(i);
+ end;
+ end
+ Else
+ begin
+ If FormID = FileName2FormCode(FName) then
+ begin
+ DeleteFile(Path+FName);
+ ContextList.Delete(i);
+ end;
+ end;
+ end;
+ ContextList.SaveToFile(Path+'Context.dat');
+ ReSortFileName(Path); }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeleteDocNoFile
+ 引用相依：DeleteDocNoFile, SaveToFile, ReSortFileName, LoadFromFile, FileExist
+ s
+ 方法描述：刪除指定的文件編號（DocNo）影像。遍歷 ContextList，比對文件編號後執行實
+ 體刪除與清單移除（含 Context 與 Context_DocNo）。處理完成後執行檔案重新
+ 排序並重新載入清單。
+============================================================================== }
+Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件
+var
+ i: Integer;
+ FName : String;
+begin
+ Result := False;
+ for i := ContextList.Count - 1 downto 0 do
+ begin
+ FName := ContextList.Strings[i];
+ If DocNo = FormCode2DocNo(FileName2FormCode(FName)) then
+ begin
+ DeleteFile(Path+FName);
+ ContextList.Delete(i);
+ Context_DocnoList.Delete(i);
+ Result := True; //有刪到指定文件
+ end;
+ end;
+ ContextList.SaveToFile(Path+'Context.dat');
+ Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
+ ReSortFileName(Path);
+ ContextList.LoadFromFile(Path+'Context.dat');
+ Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
+ if FileExists(Path+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeleteDocNoFileForESCAN
+ 引用相依：DeleteDocNoFile, SaveToFile, LoadFromFile, _DelTree
+ 方法描述：在補件模式 (ESCAN) 下刪除屬於特定文件類型 (DocNo) 的影像。方法會從索
+ 引清單 (ContextList) 的末尾開始向前遍歷，識別符合目標文件編號或附件名
+ 稱的圖檔。若該檔案並非預先存在的（ISExistImg 返回 False），則執行實體刪
+ 除並從索引清單中移除。若整個文件目錄因此清空，則會進一步移除該目錄並從
+ 文件清單中刪除紀錄。
+============================================================================== }
+Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean; //刪除指定DocNo文件
+var
+ i,j,k: Integer;
+ FName : String;
+ ST1,ST2,ST3:TStringList;
+
+begin
+
+ Result := False;
+//ShowMessage(DocNo);
+ for i := ContextList.Count - 1 downto 0 do
+ begin
+ FName := ContextList.Strings[i];
+ If (DocNo = FormCode2DocNo(FileName2FormCode(FName))) or (DocNo=AttName) then
+ begin
+ if not ISExistImg(Path+'\'+FName) then
+ begin
+ DeleteFile(Path+'\'+FName);
+ ContextList.Delete(i);
+ end;
+ Result := True; //有刪到指定文件
+ end;
+ end;
+ ContextList.SaveToFile(Path+'\Context.dat');
+ ContextList.LoadFromFile(Path+'\Context.dat');
+
+ if ContextList.Count=0 then
+ begin
+ _DelTree(Path);
+ SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeleteShowFile
+ 引用相依：DeleteShowFile
+ 方法描述：刪除當前顯示清單（NowShowFileList）中的影像檔案並更新索引。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //刪除顯示中的影像
+var
+ i : Integer;
+ DelFile : String;
+begin
+ for i := 0 to NowShowFileList.Count - 1 do
+ begin
+ DelFile := NowShowFileList.Strings[i];
+ DeleteFile(Path+DelFile);
+ SetContextList('D',-1,NowCaseno,NowDocNo,DelFile);
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeleteCustomDocDir
+ 引用相依：
+ 方法描述：從 CustomDocNo.ini 中刪除指定的自定義文件區段。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(Path+'CustomDocNo.ini');
+ try
+ ini.EraseSection(DocNo);
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ReSortFileName
+ 引用相依：ReSortFileName, FileExists, LoadFromFile, RenameFile, SaveToFile
+ 方法描述：執行影像檔案名稱的重新排序與更名。讀取目錄下的 Context.dat，根據目前的
+ 排列順序為每個檔案產生新的三位數序號前綴，並呼叫 ReNameFile 執行磁碟
+ 更名，最後同步更新清單內容並儲存。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //檔名重新排序
+var
+ i : Integer;
+ OldName,NewName : String;
+ Filelist : TStringlist;
+begin
+ Filelist := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ begin
+ Filelist.LoadFromFile(Path+'Context.dat');
+ for i := 0 to Filelist.Count - 1 do
+ begin
+ OldName := Filelist.Strings[i];
+ //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
+//ShowMessage(OldName+#10#13+NewName);
+ ReNameFile(Path+OldName,Path+NewName);
+ Filelist.Strings[i] := NewName;
+ end;
+ Filelist.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat');
+ end;
+ finally
+ Filelist.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ReSortFileName_New
+ 引用相依：ReSortFileName, FileExists, LoadFromFile, RenameFile, SaveToFile
+ 方法描述：與 ReSortFileName 類似，執行影像檔案名稱的重新排序，但採用從清單末尾向
+ 前遍歷的方式執行更名與儲存。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //檔名重新排序
+var
+ i : Integer;
+ OldName,NewName : String;
+ Filelist : TStringlist;
+begin
+ Filelist := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ begin
+ Filelist.LoadFromFile(Path+'Context.dat');
+ for i := Filelist.Count - 1 downto 0 do
+ begin
+ OldName := Filelist.Strings[i];
+ //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
+ ReNameFile(Path+OldName,Path+NewName);
+ Filelist.Strings[i] := NewName;
+ end;
+ Filelist.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat');
+ end;
+ finally
+ Filelist.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ReSortFileName2Scanlist
+ 引用相依：ReSortFileName, FileExists, LoadFromFile, RenameFile, SaveToFile
+ 方法描述：針對 scanlist.dat 檔案內的影像路徑進行序號重排。讀取清單後，依序為檔案
+ 名稱加上新的序號前綴並存回。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat
+var
+ i : Integer;
+ OldName,NewName : String;
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ if FileExists(Path+'scanlist.dat') then
+ S.LoadFromFile(Path+'scanlist.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ OldName := S.Strings[i];
+ //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
+ //ReNameFile(Path+OldName,Path+NewName);
+ S.Strings[i] := NewName;
+ end;
+ S.SaveToFile(Path+'scanlist.dat');
+ finally
+ S.Free;
+ end;
+end;
+
+
+
diff --git a/reassemble/CB_IMGPSScanImp.inbound.pas b/reassemble/CB_IMGPSScanImp.inbound.pas
new file mode 100644
index 0000000..5c4fe03
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.inbound.pas
@@ -0,0 +1,147 @@
+{ ==============================================================================
+ 方法名稱：GetDocNo_IS_WH
+ 引用相依：
+ 方法描述：判斷指定文件編號是否屬於「入庫文件」類別。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+var
+ i :Integer;
+begin
+ Result := False;
+ for i := 0 to IN_WH_DocNoList.Count - 1 do
+ begin
+ if DocNo = IN_WH_DocNoList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoIs_In_WH
+ 引用相依：
+ 方法描述：判斷指定文件編號（包含自定義 ZZZZZ 系列）是否為入庫文件。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+var
+ i : Integer;
+begin
+ Result := False;
+ if (Copy(DocNo,1,5)='ZZZZZ') then //20140728 yuu 說自訂文件也是入庫文件
+ begin
+ Result := True;
+ Exit;
+ end;
+ for i := 0 to IN_WH_DocNoList.Count -1 do
+ begin
+ if DocNo = IN_WH_DocNoList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormIDAppear
+ 引用相依：
+ 方法描述：判斷特定的表單代碼（FormID）是否符合目前入庫/非入庫作業模式的顯示規則。
+ 主要過濾掉不屬於當前作業範疇的文件。
+============================================================================== }
+Function TCB_IMGPSScanX.FormIDAppear(FormID:String):Boolean; //FormID是否可出現
+var
+ iDocNo : String;
+begin
+ Result := True;
+ iDocNo := FormCode2DocNo(FormID);
+ if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
+ ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
+ Result := False;
+
+ if (FIs_In_Wh='Y') and (FWH_category='Y') then //20170816 新加
+ begin
+ if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
+ ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
+ Result := False;
+ end;
+
+ if (FIs_In_Wh='Y') and (FWH_category='N') then //20170816 新加
+ begin
+ Result:=True;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoAppear
+ 引用相依：
+ 方法描述：判斷文件編號（DocNo）是否應在介面上顯示。包含針對附件與入庫屬性的互斥過
+ 濾。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
+begin
+ Result := True;
+
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach')) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') )) {and //非入庫掃描不看入庫文件
+ (Copy(DocNo,1,5)<>'ZZZZZ')} {then
+ {Result := False;}
+ //20181031 應該要換成下面的判斷比較對,FIs_In_Wh傳空的話才會出全部
+ if (((FIs_In_Wh = 'Y') and ((not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach'))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and ((DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') ))) {and //非入庫掃描不看入庫文件
+ (Copy(DocNo,1,5)<>'ZZZZZ')} then
+ Result := False;
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISGuideFormID
+ 引用相依：
+ 方法描述：檢查指定的表單代碼是否屬於「引導頁（Guide Page）」清單。
+============================================================================== }
+Function TCB_IMGPSScanX.ISGuideFormID(FormID:String):Boolean;
+var
+ i : Integer;
+begin
+ Result := False;
+ for i := 0 to GuideFormIDList.Count - 1 do
+ begin
+ if FormID = GuideFormIDList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISDivPageFormID
+ 引用相依：
+ 方法描述：檢查指定的表單代碼是否屬於「分案頁（Division Page）」清單。
+============================================================================== }
+Function TCB_IMGPSScanX.ISDivPageFormID(FormID:String):Boolean;
+var
+ i : Integer;
+begin
+ Result := False;
+
+ for i := 0 to DivPageFormIDList.Count - 1 do
+ begin
+ if FormID = DivPageFormIDList.Strings[i] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.lfcycle.pas b/reassemble/CB_IMGPSScanImp.lfcycle.pas
new file mode 100644
index 0000000..30e973a
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.lfcycle.pas
@@ -0,0 +1,771 @@
+{ ==============================================================================
+ 方法名稱：DefinePropertyPages
+ 引用相依：
+ 方法描述：Delphi ActiveForm 用於定義屬性頁面的存根方法，目前未實作具體內容。
+============================================================================== }
+procedure TCB_IMGPSScanX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
+begin
+ { Define property pages here. Property pages are defined by calling
+ DefinePropertyPage with the class id of the page. For example,
+ DefinePropertyPage(Class_CBS_IMScanXPage); }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：EventSinkChanged
+ 引用相依：
+ 方法描述：當事件接收器改變時觸發。將傳入的 EventSink 轉換為 ICB_IMGPSScanXEvent
+ s 並賦值給 FEvents，同時呼叫繼承的 EventSinkChanged 方法。
+============================================================================== }
+procedure TCB_IMGPSScanX.EventSinkChanged(const EventSink: IUnknown);
+begin
+ FEvents := EventSink as ICB_IMGPSScanXEvents;
+ inherited EventSinkChanged(EventSink);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ActivateEvent
+ 引用相依：
+ 方法描述：觸發 COM 介面的 OnActivate 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.ActivateEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnActivate;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ClickEvent
+ 引用相依：
+ 方法描述：觸發 COM 介面的 OnClick 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.ClickEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnClick;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateEvent
+ 引用相依：
+ 方法描述：觸發 COM 介面的 OnCreate 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.CreateEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnCreate;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DblClickEvent
+ 引用相依：
+ 方法描述：觸發 COM 介面的 OnDblClick 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.DblClickEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnDblClick;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DeactivateEvent
+ 引用相依：
+ 方法描述：觸發 COM 介面的 OnDeactivate 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.DeactivateEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnDeactivate;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DestroyEvent
+ 引用相依：_DelTree
+ 方法描述：銷毀元件時的清理工作。負責釋放大量的 TStringList 物件，包含各類資訊清
+ 單（表單、規則、註記、工作、影像路徑、條碼等）。針對特定模式（DSCAN/ESCAN），若
+ ImagePath 不為空則刪除該目錄及其子目錄。最後觸發 COM 介面的 OnDestro
+ y 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.DestroyEvent(Sender: TObject);
+begin
+ //********清單區********
+ Doc_Inf_List.Free; //Doc_Inf 清單 Docno + 版本為key
+ DM_FORM_INF_List.Free; //DM_FORM_INF 清單 Docno + 版本為key
+ FORM_INF_List.Free; //FORM_INF的清單
+ CHECK_RULE_INF_List.Free; //CHECK_RULE_INF 清單
+ MEMO_INF_List.Free; //MEMO_INF 清單
+ WORK_INF_List.Free; //WORK_INF 清單
+ LASTEST_FORM_INF_List.Free; // LASTEST_FORM_INF 清單
+ FindResult.Free ; //找SQLData的結果
+ OMRFileList.Free; //要OMR檢核的文件(只檢查每種Form的第一頁)
+ FormCode_PageSize.Free; //文件的預設大小 FormCode_Height_Width
+ DocNo_NeedDoc.Free; //有Docno時要相依的文件 DocNo_相依文件_相依文件
+ DocNo_NoDoc.Free; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
+ DocNo_VerinCase.Free; //案件裡的DocNo+版本的清單
+ CaseDocNoList.Free; //案件裡的DocNo清單
+ CaseDocNo_CopiesList.Free; //案件裡的DocNo份數清單
+ CaseList.Free; //記錄掃瞄案件的順序
+ NoSaveBarCodeList.Free; //不儲存的條碼清單
+ FormID_List.Free; //FormID清單
+ DocNo_List.Free; //DocNo清單
+ Context_DocnoList.Free; //案件裡的檔案Docno清單
+ ContextList.Free; //案件裡的檔案清單
+ AttContextList.Free; //案件裡的附加檔案清單
+ NowShowFileList.Free; //目前顯示的影像清單
+ NowSelectFileList.Free; //目前被點選的影像清單
+ Cust_DocNoList.Free; //自行定義文件名稱
+ IN_WH_DocNoList.Free; //入庫的文件清單
+ GuideFormIDList.Free; //要當導引頁表單清單
+ DivPageFormIDList.Free; //要當分案頁表單清單
+ LastInitFormidList.Free;
+ LastAddFormidList.Free;
+ SampleFormIDList.Free;
+ ExistImgList.Free;
+ reSizeExistImgList.Free;
+ //********清單區********
+ if (FMode = 'DSCAN') or (FMode = 'ESCAN') then //重掃件及異動件要只能掃指定編號的件
+ begin
+ if ImagePath<>'' then
+ _Deltree(ImagePath);
+ end;
+
+ if FEvents <> nil then FEvents.OnDestroy;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：KeyPressEvent
+ 引用相依：
+ 方法描述：處理鍵盤按鈕事件，並將按鍵資訊傳遞至 COM 介面的 OnKeyPress 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.KeyPressEvent(Sender: TObject; var Key: Char);
+var
+ TempKey: Smallint;
+begin
+ TempKey := Smallint(Key);
+ if FEvents <> nil then FEvents.OnKeyPress(TempKey);
+ Key := Char(TempKey);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MouseEnterEvent
+ 引用相依：
+ 方法描述：當滑鼠進入元件時，觸發 COM 介面的 OnMouseEnter 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.MouseEnterEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnMouseEnter;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MouseLeaveEvent
+ 引用相依：
+ 方法描述：當滑鼠離開元件時，觸發 COM 介面的 OnMouseLeave 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.MouseLeaveEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnMouseLeave;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PaintEvent
+ 引用相依：
+ 方法描述：當元件需要重繪時，觸發 COM 介面的 OnPaint 事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.PaintEvent(Sender: TObject);
+begin
+ if FEvents <> nil then FEvents.OnPaint;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ActiveFormCreate
+ 引用相依：
+ 方法描述：ActiveForm 建立時的初始化處理。發送啟動訊息、設定預設檢視模式並初始化
+ 影像顯示區域。遍歷所有影像捲軸盒（ISB），設定預設滑鼠模式為 mmUser 並將
+ 縮放模式設為全頁顯示，最後延遲啟動 Timer。
+============================================================================== }
+procedure TCB_IMGPSScanX.ActiveFormCreate(Sender: TObject);
+var IScrollBox : TImageScrollBox;
+ i :integer;
+begin
+ {HotKeyId1 := GlobalAddAtom('MyHotKey1')-$C000;
+ HotKeyId2 := GlobalAddAtom('MyHotKey2')-$C000;
+ HotKeyId3 := GlobalAddAtom('MyHotKey3')-$C000;
+ HotKeyId4 := GlobalAddAtom('MyHotKey4')-$C000;
+ RegisterHotKey(handle,HotKeyId1,0,VK_UP); //printscreen
+ RegisterHotKey(handle,HotKeyId1,0,VK_Down); //printscreen }
+ PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
+ vmode := 1;
+ DesableImage;
+ For i:= 1 to 8 do begin
+ IScrollBox := TImageScrollBox( FindComponent('ISB'+IntToStr(i)));
+ IScrollBox.MouseMode := mmUser;
+ iScrollBox.ZoomMode := zmFullPage;
+ end;
+ Sleep(500);
+ Timer1.Enabled := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：HotKeyDown
+ 引用相依：
+ 方法描述：熱鍵按下處理程序，目前為空實作。
+============================================================================== }
+procedure TCB_IMGPSScanX.HotKeyDown (var Msg : TMessage);
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：InitialLanguage
+ 引用相依：
+ 方法描述：元件多國語言初始化核心函式。讀取 Language.Lng 設定檔，根據指定的語系遞
+ 迴設定畫面上所有控制項（按鈕、選單、標籤、清單、群組框等）的 Caption 或 Hi
+ nt 文字，實現介面語系動態切換。
+============================================================================== }
+procedure TCB_IMGPSScanX.InitialLanguage(Sender: TObject);
+var
+ ini : Tmeminifile;
+ i,n : Integer;
+ FormName : String;
+ NowForm : TComponent;
+begin
+ if Sender is TActiveForm then
+ NowForm := TActiveForm(Sender);
+ if Sender is TForm then
+ NowForm := TForm(Sender);
+
+ FormName := NowForm.Name;
+ IISUnit.IIS_LngfileName := LngPath+'Language.Lng'; //給IISUnit 轉多國語言字串用
+ if FLanguage = '' then
+ FLanguage := 'zh_tw';
+ IISUnit.IIS_NowLng := FLanguage;
+ ini := TMeminifile.Create(LngPath+'Language.Lng');
+ try
+ IF NowForm is TForm Then
+ TForm(NowForm).Caption := ini.ReadString(FLanguage,FormName+'.FormTitle','');
+ for i := 0 to NowForm.ComponentCount - 1 do
+ begin
+//ShowMessage(NowForm.Components[i].Name);
+ if NowForm.Components[i] is TButton then
+ begin
+ TButton(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TButton(NowForm.Components[i]).Name,'');
+ //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
+ //TButton(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
+ end
+ Else if NowForm.Components[i] is TBitBtn then
+ begin
+ TBitBtn(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TBitBtn(NowForm.Components[i]).Name,'');
+ //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
+ TBitBtn(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
+ end
+ Else if NowForm.Components[i] is TMenuItem then
+ begin
+ if ini.ValueExists(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name) then
+ TMenuItem(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TCheckBox then
+ begin
+ TCheckBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TCheckBox(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TPJMenuSpeedButton then
+ begin
+ TPJMenuSpeedButton(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TPJMenuSpeedButton(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TLabel then
+ begin
+ TLabel(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TLabel(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TGroupBox then
+ begin
+ TGroupBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TGroupBox(NowForm.Components[i]).Name,'');
+ end
+ Else if NowForm.Components[i] is TListView then
+ begin
+ for n := 0 to TListView(NowForm.Components[i]).Columns.Count - 1 do
+ begin
+ TListView(NowForm.Components[i]).Columns.Items[n].Caption := ini.ReadString(FLanguage,FormName+'.'+TListView(NowForm.Components[i]).Name+'_'+inttostr(n),'');
+ end;
+ end
+ Else if NowForm.Components[i] is TRadioGroup then
+ begin
+ TRadioGroup(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name,'');
+ for n := 0 to TRadioGroup(NowForm.Components[i]).Items.Count - 1 do
+ begin
+ TRadioGroup(NowForm.Components[i]).Items.Strings[n] := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name+'_'+inttostr(n),'');
+ end;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Timer1Timer
+ 引用相依：FJpgCompression, GetLocalAppDir, Str2Dir, _DelTree, FileExists, init
+ kscan
+ 方法描述：OCX 元件初始化的核心程序。負責從伺服器下載各類基礎資訊（業務、表單、文件
+ 、檢核規則、常用片語、系統參數等），並設定本地暫存路徑（ScanTemp）。針對異動
+ 或重掃模式，會自動建立空案件並下載既有影像。最後執行各類屬性與語系設定
+ ，確保掃描環境就緒。
+============================================================================== }
+procedure TCB_IMGPSScanX.Timer1Timer(Sender: TObject);
+var
+ StampDate,StampTime : String;
+ i: Integer;
+begin
+ Timer1.Enabled := False;
+ //FIs_In_Wh:='Y'; /// test 記得關掉
+ //FWH_category :='N'; // test 記得關掉
+// FImgDelete := 'Y'; //test 記得關掉
+ //Showmessage('a');
+ //self.FIs_OldCase := 'Y';
+ PageLVclear := True;
+ InitialOk := False;
+
+ FMaxUploadSize:='10';
+ FJpgCompression:=50;
+ FFtpRootPath := ''; //影像平台沒有給FtpRoot目錄,會直接用FFtpExtraPath切換至指定目錄
+ //FMode := 'DSCAN' ;
+ //FIs_In_Wh := 'Y';
+ if FIs_In_Wh = 'Y' then
+ AttName := 'Attach' //入庫附件
+ else
+ AttName := 'S_Attach'; //Smartlending 附件
+//ShowMessage('1111111');
+ if FMode = 'SAMPLESCAN' then
+ begin
+ NewScanBtn.Visible := False;
+ PJLinkedMenuSpeedButton2.Visible := False;
+ AddScanBtn.Visible := False;
+ CheckCaseBtn.Visible := False;
+ Panel18.Visible := False;
+ TransBtn.Visible := False;
+ FC6.Visible := False;
+ SampleScanBtn.Visible := True;
+ Panel1.Visible := True;
+ Panel6.Visible := True;
+ ScanDuplexCB.Visible := False; //雙面掃描
+ end
+ Else if (FMode = 'NSCAN') then
+ begin
+ Panel18.Visible := True;
+ Panel1.Visible := True;
+ Panel6.Visible := True;
+ Panel21.Visible := True;
+ Panel23.Visible := True;
+
+ AttFileGB.Visible := True;
+ Splitter2.Visible := True;
+ ScanDuplexCB.Visible := True; //雙面掃描
+ end
+ Else if FMode = 'FSCAN' then
+ begin
+ Panel1.Visible := True;
+ //Panel6.Visible := True;
+ end
+ Else
+ begin
+ Panel18.Visible := True;
+ Panel1.Visible := True;
+ Panel6.Visible := True;
+ Panel21.Visible := True;
+ Panel23.Visible := True;
+ AttFileGB.Visible := True;
+ Splitter2.Visible := True;
+ end;
+ DisplayMode(1,1,1,Panel9);
+ Application.ProcessMessages;
+ StatusBar1.Panels[0].Text := 'Ver'+GetCurrentVersionNo;
+ StatusBar1.Panels[1].Text := 'Login User:'+FUserName;
+ {$IFDEF Test}
+ StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text+'(test)';
+ {$ENDIF}
+ StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text;
+
+ if FPrintyn = 'Y' then
+ PrtLB.Visible := True;
+
+ initParameter; //20170222 針對新加的parameter 作初始化參數
+ InitScrollRec;
+ If FUrl = '' then
+ begin
+ Showmessage(_Msg('URL cannot be empty,please contact system administrator'));
+ Exit;
+ end;
+ if FUrl[length(FUrl)]<>'/' then
+ FUrl := FUrl + '/';
+ //20221028 把語言檔改放至 Local目錄裡,才不會有些文字來不及使用
+ LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';
+ Str2Dir(LngPath);
+ ////下載語言檔///// 20170218 先拿調以便測試
+ If not DownLanguage Then
+ begin
+ Showmessage('Language File error!!'+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ InitialLanguage(Self); //載入多國語言
+
+
+ if FWork_no='' then
+ begin
+ Showmessage(_Msg('業務別不能為空白,請洽詢程式人員'));
+ Exit;
+ end;
+
+ if CaseIDLength = 0 then
+ begin
+ Showmessage(_Msg('案件編號長度限制不能為空白,請洽詢程式人員'));
+ //Exit; //測試時不退出
+ end;
+
+ //********清單區********
+
+ Doc_Inf_List := TStringList.Create; //Doc_Inf 清單 Docno + 版本為key
+ DM_FORM_INF_List := TStringList.Create; //DM_FORM_INF 清單 Docno + 版本為key
+ FORM_INF_List := TStringList.Create; //FORM_INF的清單
+ CHECK_RULE_INF_List := TStringList.Create; //CHECK_RULE_INF 清單
+ MEMO_INF_List := TStringList.Create; //MEMO_INF 清單
+ WORK_INF_List := TStringList.Create; //WORK_INF 清單
+ LASTEST_FORM_INF_List := TStringList.Create; // LASTEST_FORM_INF 清單
+ FindResult := TStringlist.Create; //找SQLData的結果
+
+ OMRFileList := TStringList.Create; //要OMR檢核的文件(只檢查每種Form的第一頁)
+ FormCode_PageSize := TStringList.Create; //文件的預設大小 FormCode_Height_Width
+ DocNo_NeedDoc := TStringList.Create; //有Docno時要相依的文件 DocNo_相依文件_相依文件
+ DocNo_NoDoc := TStringList.Create; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
+ DocNo_VerinCase := TStringList.Create; //案件裡的DocNo+版本的清單
+ CaseDocNoList := TStringlist.Create; //案件裡的DocNo清單
+ CaseDocNo_CopiesList := TStringlist.Create; //案件裡的DocNo份數清單
+ CaseList := TStringList.Create; //記錄掃瞄案件的順序
+ Context_DocnoList := TStringlist.Create; //案件裡的檔案Docno清單
+ ContextList := TStringlist.Create; //案件裡的檔案清單
+ AttContextList := TStringlist.Create; //案件裡的附加檔案清單
+ NoSaveBarCodeList := TStringlist.Create; //不儲存的條碼清單
+ FormID_List := TStringlist.Create; //FormID清單
+ DocNo_List := TStringlist.Create; //DocNo清單
+ NowShowFileList := TStringlist.Create; //目前顯示的影像清單
+ NowSelectFileList := TStringlist.Create; //目前被點選的影像清單
+ Cust_DocNoList := TStringlist.Create; //自行定義的文件名稱
+ IN_WH_DocNoList := TStringlist.Create; //入庫的文件清單
+ GuideFormIDList := TStringlist.Create; //要當導引頁表單清單
+ DivPageFormIDList := TStringList.Create; //要當分案頁表單清單
+ LastInitFormidList :=TStringList.Create;
+ LastAddFormidList := TStringList.Create;
+ SampleFormIDList := TStringList.Create;//20170627 加入
+ ExistImgList := TStringList.Create; //20170724 新增
+ reSizeExistImgList :=TStringList.Create; //20171012 新增
+ //********清單區********
+
+ ShowText := _Msg('資料載入中,請稍候');
+ DataLoading(True,True);
+
+ IF not GetServerDate Then
+ begin
+ Showmessage(_Msg('取主機時間時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ if FMode='SAMPLESCAN' then
+ begin
+ IF not GetSampleInf Then //取已存在sample
+ begin
+ Showmessage(_Msg('取存在範本資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+
+
+
+//ShowMessage('GetServerDate '+ServerDate+' , '+ServerTime);
+ ////下載系統資訊////
+ IF not GetSetInf1 Then //取DOC_INF 文件資訊
+ begin
+ Showmessage(_Msg('取文件資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf1');
+ //showmessage(self.Doc_Inf_List.Text);
+ IF not GetSetInf2 Then //取DM_FORM_INF 相依互斥資訊
+ begin
+ Showmessage(_Msg('取相依互斥資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf2');
+ //Showmessage(self.Doc_Inf_List.Text);
+ IF not GetSetInf3 Then //取FORM_INF 表單資訊
+ begin
+ Showmessage(_Msg('取表單資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf3');
+ IF not GetSetInf4 Then //取CHECK_RULE_INF 檢核規則資訊
+ begin
+ Showmessage(_Msg('取檢核規則資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ //showmessage(self.CHECK_RULE_INF_List.Text);
+//ShowMessage('GetSetInf4');
+ IF not GetSetInf5 Then //取MEMO_INF 常用片語資訊
+ begin
+ Showmessage(_Msg('取常用片語資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf5');
+ //showmessage(self.MEMO_INF_List.Text);
+ IF not GetSetInf6 Then //取WORK_INF 系統參數資訊
+ begin
+ Showmessage(_Msg('取系統參數資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf6');
+ //showmessage(FORM_INF_List.Text);
+ IF not GetSetInf7 Then //取LASTES_FORM_INF 系統參數資訊
+ begin
+ Showmessage(_Msg('取最新版FORMID參數資訊時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+//ShowMessage('GetSetInf7');
+ //Showmessage(LASTEST_FORM_INF_List.Text);
+ SetFormID_DocNo; //將FormID及Docno抽出塞入List裡 20130403增加
+ SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+ GetDefScanIni; //取得掃描預設值及相關設定
+
+ ////下載系統資訊/////
+ if ImagePath = '' then
+ begin
+ Showmessage(_Msg('本機暫存路徑不得為空白'));
+ DataLoading(False,False);
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ Exit;
+ end;
+ initkscan;
+ if ImagePath[Length(ImagePath)] <> '\' then
+ ImagePath := ImagePath + '\';
+//ShowMessage('ImagePath='+ImagePath);
+ //CheckXmlPath := ImagePath+'OMRSITE\'+FWork_No;
+ CheckXmlPath := ImagePath+'OMRSITE\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
+//ShowMessage('CheckXmlPath='+CheckXmlPath);
+ //SitePath := ImagePath+'Site\'+FWork_No+'\';
+ SitePath := ImagePath+'Site\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
+ //LngPath := ImagePath; //改放至上面取Local目錄
+ SamplePath := ImagePath+'Sample\'+FWork_No+'\';
+ ImagePath := ImagePath + 'Scantemp\';
+//ShowMessage('AA ImagePath='+ImagePath);
+ ScaniniPath :=ImagePath+FWork_No+'\'+FUserUnit +'\';
+//ShowMessage('ScaniniPath='+ScaniniPath);
+ ImagePath := ImagePath + FWork_No+'\'+FUserUnit+'\'+FMode+'\';
+ ImagePath := StringReplace(ImagePath, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
+//ShowMessage('BB ImagePath='+ImagePath);
+ ImageSavePath := ImagePath;
+ str2dir(CheckXmlPath);
+ str2dir(SitePath);
+ str2dir(ImagePath);
+ str2dir(SamplePath);
+ Del_Sub_NothingPath(ImagePath); //清掉案件目錄是空的
+
+
+ LogFile1.LogFile:=LngPath+'IMGPSCheck.log';
+
+ ReduceLogFile;
+
+ LogFile1.LogToFile(logTimeString+'OCX取表data結束');
+
+ ShowText := _Msg('資料載入中,請稍候');
+ DataLoading(True,True);
+
+// if not CheckAvailable Then //檢查授權 20170218 說不用了
+// begin
+// DataLoading(False,False);
+// Panel1.Enabled := False;
+// Panel2.Enabled := False;
+// Exit;
+// end;
+
+//Button3Click(Self);
+//ShowMessage('CheckAvailable');
+ ShowText := _Msg('資料載入中,請稍候');
+ DataLoading(True,True);
+
+
+ StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName;
+ //FCaseID:='20150302180133';//測試用
+ ////下載語言檔/////
+//ShowMessage('OOOO');
+
+ if (FMode = 'RSCAN') or (FMode = 'DSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //重掃件及異動件要只能掃指定編號的件
+ begin
+ _Deltree(ImagePath);
+ str2dir(ImagePath);
+ ImageSavePath := ImagePath;
+ str2dir(ImageSavePath);
+ MkDir(ImageSavePath+FCaseID);
+ CreateEmptyCase(ImageSavePath,FCaseID);
+ MkDir(ImageSavePath+FCaseID+'\Download');
+ IF (FMode = 'ESCAN') or (FMode = 'DSCAN') then //異動件先下載影像
+ begin
+ ShowText := _Msg('案件下載中,請稍候');
+ DataLoading(True,True);
+ If not DownLoadImage(ImageSavePath+FCaseID+'\Download\',FCaseID) Then
+ begin
+ Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+DownFileErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ {If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
+ begin
+ Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;}
+//Showmessage(ImageSavePath+FCaseID+'\Download\'+#10#13+ImageSavePath+FCaseID+'\');
+ Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
+//Showmessage('aaa');
+ //Download2Case('C:\Users\Hong\Downloads\沒有括號\',ImageSavePath+FCaseID+'\');
+ if (FIs_OldCase = 'Y') then
+ begin
+ if (FWork_no='HLN') then
+ ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
+ //if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //這個會在Download2Case時一律產生所以不能有這行 20141013
+ OldCasetoNewCase(FCaseID);
+ //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
+ //LoadImgFile;
+ end;
+// if (FIs_OldCase = 'Y') and (FWork_no='HLN') then //77版的
+// begin
+// ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
+// if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then
+// OldCasetoNewCase(FCaseID);
+// //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
+// //LoadImgFile;
+// end;
+ Create_Cust_DocDir(FCaseID); //產生外面傳入的文件
+ if FMode='ESCAN' then
+ LastInitFormidListCreate(ImageSavePath+FCaseID+'\Download\');
+ end;
+ end;
+
+//ShowMessage('GetOMRCheckSet前');
+ ////下載檢核XML//////
+ IF not GetOMRCheckSet Then
+ begin
+ Showmessage(_Msg('下載檢核定位檔案時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ ////下載檢核XML/////
+//ShowMessage('GetOMRCheckSet後來');
+ ////下載登打設定/////
+ IF not GetKeyinSet Then
+ begin
+ Showmessage(_Msg('下載登打定位檔案時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ ////下載登打設定/////
+//ShowMessage('GetKeyinSet');
+ if ScanDenialHint <> '' then //有設定提示字串就秀在右上角
+ begin
+ DenialTimeLb.Visible := True;
+ DenialTimeLb.Caption := Format(ScanDenialHint,[ScanDenialTime]);
+ end;
+//ShowMessage(IntToStr(ScanDpi));
+ R_W_Scanini('R'); //掃瞄設定的ini
+//ShowMessage(IntToStr(ScanDpi));
+//ShowMessage('停掉DataLoading');
+//DataLoading(False,False);
+ ScanDuplexCB.Checked := ScanDuplex;
+ if FMode <> 'SAMPLESCAN' then
+ LoadImgFile;
+ if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then
+ begin
+ if TreeView1.Items.Count > 0 then
+ begin
+ TreeView1.Selected := NewTreeNode.Item[0];
+ TreeView1click(self);
+ end;
+ end;
+ InitialOk := True;
+
+ {AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
+ Splitter2.Visible := True;
+ AttFileGB.Visible := False; //附加電子檔窗
+ Splitter2.Visible := False; }
+//ShowMessage('ImageSavePath='+ImageSavePath);
+ DataLoading(False,False);
+
+ LogFile1.LogToFile(logTimeString+'OCX初始化結束');
+ LogFile1.LogToFile(logTimeString+'FUrl='+FUrl+
+ ',FCaseID='+FCaseID+
+ ',FMode='+FMode+
+ ',FModeName='+FModeName+
+ ',FWork_no='+FWork_no+
+ ',FUserID='+FUserID+
+ ',FUserName='+FUserName+
+ ',FUserUnit='+FUserUnit+
+ ',FData='+FData+
+ ',FVerify='+FVerify+
+ ',FReWrite='+FReWrite+
+ ',FLanguage='+FLanguage+
+ ',FLoanDoc_Value='+FLoanDoc_Value+
+ ',FLoanDoc_Enable='+FLoanDoc_Enable+
+ ',FUseProxy='+FUseProxy+
+ ',FC_DocNoList='+FC_DocNoList+
+ ',FC_DocNameList='+FC_DocNameList+
+ ',FFixFileList='+FFixFileList+
+ ',FIs_In_Wh='+FIs_In_Wh+
+ ',FOldCaseInfo='+FOldCaseInfo+
+ ',FPrintyn='+FPrintyn+
+ ',FIs_OldCase='+FIs_OldCase+
+ ',FCustDocYN='+FCustDocYN);
+ LogFile1.LogToFile(logTimeString+'FImgDPI='+IntToStr(FImgDPI)+
+ ',FScanColor='+ IntToStr(FScanColor)+
+ ',FFileSizeLimit='+ IntToStr(FFileSizeLimit)+
+ ',FCaseNoLength='+ IntToStr(FCaseNoLength)+
+ ',FImgDelete='+FImgDelete+
+ ',FIsExternal='+FIsExternal+
+ ',FWH_category='+FWH_category+
+ ',FCheck_main_form='+FCheck_main_form+
+ ',FMaxUploadSize='+FMaxUploadSize);
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Timer2Timer
+ 引用相依：
+ 方法描述：處理進度條或提示文字的動態點點動畫。每觸發一次就會在 ShowText 後方增
+ 加一個點，模擬載入中的視覺效果。
+============================================================================== }
+procedure TCB_IMGPSScanX.Timer2Timer(Sender: TObject);
+begin
+ IF Panel22.Caption = ShowText+'......' Then
+ Panel22.Caption := ShowText
+ Else
+ Panel22.Caption := Panel22.Caption + '.';
+ Application.ProcessMessages;
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.listMgr.pas b/reassemble/CB_IMGPSScanImp.listMgr.pas
new file mode 100644
index 0000000..6fff09c
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.listMgr.pas
@@ -0,0 +1,38 @@
+{ ==============================================================================
+ 方法名稱：SetFormID_DocNo
+ 引用相依：
+ 方法描述：提取 FORM_INF_List 中的 FormID 與 DocNo 欄位至獨立清單。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡 20130403增加
+var
+ i : Integer;
+begin
+ for i := 1 to FORM_INF_List.Count-1 do
+ begin
+ FormID_List.Add(GetSQLData(FORM_INF_List,'T1.FORM_ID',i));
+ DocNo_List.Add(GetSQLData(FORM_INF_List,'T1.DOC_NO',i));
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetIn_WH_DocNo
+ 引用相依：
+ 方法描述：提取所有入庫屬性（IS_IN_WH）為 'Y' 的文件編號至清單。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+var
+ i : Integer;
+begin
+ for i := 1 to Doc_Inf_List.Count - 1 do
+ begin
+
+ if GetSQLData(Doc_Inf_List,'IS_IN_WH',i) = 'Y' then
+ IN_WH_DocNoList.Add(GetSQLData(Doc_Inf_List,'DOC_NO',i));
+ end;
+ {Showmessage(IN_WH_DocNoList.Text);
+ StringtoFile(IN_WH_DocNoList.Text,'D:\121.txt');}
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.misc.pas b/reassemble/CB_IMGPSScanImp.misc.pas
new file mode 100644
index 0000000..6c79aa4
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.misc.pas
@@ -0,0 +1,171 @@
+{ ==============================================================================
+ 方法名稱：GetCurrentVersionNo
+ 引用相依：
+ 方法描述：獲取當前模組的版本號。透過 GetModuleFileName 獲取檔案路徑，再利用 GetF
+ ileVersionInfoSize 和 GetFileVersionInfo 讀取版本資訊。接著從 VarFile
+ Info\Translation 取得語系資訊，最後從 StringFileInfo 中提取 FileVersi
+ on 並回傳為字串。
+============================================================================== }
+function TCB_IMGPSScanX.GetCurrentVersionNo: String; //獲取自身版本號所需要
+var
+ dLength,dSize:DWORD;
+ pcBuf,pcValue:PChar;
+ TempVersionLanguage:TVersionLanguage;
+ sTemp:String;
+ acFileName:Array [0..255] of Char;
+begin
+ Result:='';
+
+ GetModuleFileName(HInstance,acFileName,SizeOf(acFileName)-1);
+
+ dSize:=GetFileVersionInfoSize(acFileName,dSize);
+
+ if dSize=0 then Exit;
+
+ pcBuf:=AllocMem(dSize);
+
+ GetFileVersionInfo(acFileName,0,dSize,pcBuf);
+
+ if VerQueryValue(pcBuf, PChar('\VarFileInfo\Translation'),Pointer(pcValue),dLength) then
+ begin
+ for TempVersionLanguage := vlArabic to vlUnknown do
+ if LoWord(Longint(Pointer(pcValue)^)) = LanguageValues[TempVersionLanguage] then Break;
+
+ sTemp:=IntToHex(MakeLong(HiWord(Longint(Pointer(pcValue)^)),LoWord(Longint(Pointer(pcValue)^))), 8);
+
+ if VerQueryValue(pcBuf,PChar('StringFileInfo\'+sTemp+'\FileVersion'),Pointer(pcValue),dLength) then
+ Result:=StrPas(pcValue);
+ end;
+
+ FreeMem(pcBuf,dSize);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：WMMOUSEWHEEL
+ 引用相依：
+ 方法描述：處理滑鼠滾輪事件。根據滾輪捲動方向（WHEEL_DELTA）對 ScrollBox1 或當前顯
+ 示的影像捲軸盒（DisplayISB）進行垂直捲動（SB_Lineup 或 SB_LINEDOWN）。若
+ 同時按下特定鍵（message.Keys=50），則會調整影像的縮放百分比（ZoomPercent
+ ）。此外也會遍歷所有影像捲軸盒元件並對取得焦點的元件執行捲動操作。
+============================================================================== }
+procedure TCB_IMGPSScanX.WMMOUSEWHEEL(var message: TWMMouseWheel);
+var
+ I: Integer;
+ iISB : TImageScrollBox;
+begin
+ inherited;
+ //lb1.Caption:=IntToStr(message.Keys);
+ if (message.WheelDelta = WHEEL_DELTA) Then
+ begin
+
+ if ScrollBox1.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+ if DisplayISB <> nil then
+ begin
+ if (DisplayISB.Focused) and (message.Keys=0) then
+ begin
+ DisplayISB.VertScrollBar.Increment := 50;
+ DisplayISB.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+
+ if (DisplayISB.Focused) and (message.Keys=50) then
+ begin
+ DisplayISB.ZoomMode := zmPercent;
+ if DisplayISB.ZoomPercent < 90 then
+ DisplayISB.ZoomPercent := DisplayISB.ZoomPercent+10;
+ end;
+
+ end;
+ i:=0;
+ while FindComponent(ISBName+inttostr(i)) <> nil do
+ begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ if iISB.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+ inc(i);
+ end;
+
+ end
+ else if (message.WheelDelta = -WHEEL_DELTA) then
+ begin
+
+ if ScrollBox1.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
+ end;
+ if DisplayISB <> nil then
+ begin
+ if (DisplayISB.Focused) and (message.Keys=0) then
+ begin
+ DisplayISB.VertScrollBar.Increment := 50;
+ DisplayISB.Perform(WM_VSCROLL,SB_LINEDOWN,0);
+ end;
+ if (DisplayISB.Focused) and (message.Keys=50) then
+ begin
+ DisplayISB.ZoomMode := zmPercent;
+ if DisplayISB.ZoomPercent > 10 then
+ DisplayISB.ZoomPercent := DisplayISB.ZoomPercent-10;
+ end;
+
+
+ end;
+
+ i:=0;
+ while FindComponent(ISBName+inttostr(i)) <> nil do
+ begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ if iISB.Focused then
+ begin
+ ScrollBox1.VertScrollBar.Increment := 50;
+ ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
+ end;
+ inc(i);
+ end;
+
+ end;
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：InitExistImgList
+ 引用相依：LoadFromFile, LoadFileGetMD5
+ 方法描述：初始化已存在的影像清單。讀取案件路徑下 Download\Context.dat 的檔案內
+ 容，計算每個檔案的 MD5 雜湊值並存入 ExistImgList，同時將處理過程記錄至
+ 日誌檔。
+============================================================================== }
+procedure TCB_IMGPSScanX.InitExistImgList(casepath: String);
+var
+ ST1,ST2,ST3,ST4:TStringList;
+ i,j,k:Integer;
+begin
+
+ ST1:=TStringList.Create;
+ ST2:=TStringList.Create;
+ ST3:=TStringList.Create;
+
+ ExistImgList.Clear;
+ ST1.LoadFromFile(casepath+'Download\Context.dat');
+ for I := 0 to ST1.Count - 1 do
+ begin
+LogFile1.LogToFile(logTimeString+casepath+'Download\'+ST1.Strings[i]+',MD5='+LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i]));
+ ExistImgList.Add(LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i])) ;
+ end;
+LogFile1.LogToFile(logTimeString+'ExistImgList.text'+ExistImgList.CommaText);
+
+ ST1.Free;
+ ST2.Free;
+ ST3.Free;
+
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.omr.pas b/reassemble/CB_IMGPSScanImp.omr.pas
new file mode 100644
index 0000000..a4dd812
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.omr.pas
@@ -0,0 +1,980 @@
+{ ==============================================================================
+ 方法名稱：CheckRule2OMRErrInfo
+ 引用相依：
+ 方法描述：將檢核規則清單（CHECK_RULE_INF_List）中的資料轉換為內部的 OMRErrInfo R
+ ecord 陣列，設定各項規則的顯示類型（Display）、是否可忽略（Ignore）及提示
+ 訊息與掃瞄模式。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record
+var i : Integer;
+ CheckNo : String;
+begin
+ for I := 1 to 11 do
+ begin
+ CheckNo := Add_Zoo(i,3);
+
+ if FindSQLData(CHECK_RULE_INF_List,'MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE','CHECK_NO',CheckNo,0,FindResult) then
+ begin
+ if GetFindResult('MESG_SHOW_TYPE') = '1' then
+ OMRErrInfo[i].Display := True //顯示
+ Else if GetFindResult('MESG_SHOW_TYPE') = '2' then
+ OMRErrInfo[i].Display := False; //不顯示
+
+ if GetFindResult('MESG_DISP_TYPE') = '1' then
+ OMRErrInfo[i].Ignore := True //可忽略
+ Else if GetFindResult('MESG_DISP_TYPE') = '2' then
+ OMRErrInfo[i].Ignore := False; //不可忽略
+
+ OMRErrInfo[i].Info := GetFindResult('CHECK_MESG');
+ OMRErrInfo[i].Mode := GetFindResult('SCAN_MODE');
+ end;
+ end;
+end;
+
+
+
+
+{ ==============================================================================
+ 方法名稱：DistinctFormCode
+ 引用相依：LoadFromFile, LoadFileGetMD5
+ 方法描述：從案件的 Context.dat 檔案中提取不重複的表單代碼（FormCode）並存入 OMRF
+ ileList。程序會遍歷上傳目錄下的所有檔案，檢查檔案是否存在且未被處理過。
+ 接著比對 OMRFileList 中已有的表單代碼，若為新出現的表單代碼且檔案有效
+ ，則將其加入清單中，用於後續 OMR 處理。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DistinctFormCode(CaseID:String); //從案件裡的FormCode取出第一頁
+var
+ i,n : Integer;
+ LForm,OForm : String;
+ Addok : Boolean;
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+LogFile1.LogToFile(logTimeString+S.Strings[i]+' ISExistImg='+BoolToStr(ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]),true));
+LogFile1.LogToFile(logTimeString+S.Strings[i]+' reSizeExistImgList='+BoolToStr(reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1,true));
+ if FWH_category='N' then
+ begin
+ if (ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))
+ or (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1) then
+ begin
+ Continue;
+ end;
+ end;
+
+ LForm := FileName2FormCode(S.Strings[i]);
+ AddOk := True;
+ for n := 0 to OMRFileList.Count - 1 do
+ begin
+ OForm := FileName2FormCode(OMRFileList.Strings[n]);
+ if (LForm <> '') and (LForm = OForm) then
+ begin
+ AddOk := False;
+ Break;
+ end;
+ end;
+ if AddOk then
+ begin
+ OMRFileList.Add(S.Strings[i]);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：OMRCheckCase
+ 引用相依：ImageReSize_FormID, GetSiteOMR, FindPoint, LoadFromFile, FileExists,
+ SaveToFile
+ 方法描述：執行案件的自動化 OMR 規則檢核，這是確保掃瞄案件合規性的核心邏輯。程序
+ 流程：
+ 1. 初始化檢核日誌。
+ 2. 識別主文件並驗證必要文件是否缺漏、相依與互斥文件是否衝突、以及表單
+ 是否已停用。
+ 3. 檢查各文件類型是否超過預設的最大頁數。
+ 4. 針對案件內每張影像，執行十字定位點縮放 (ImageReSize_FormID) 後，載
+ 入對應表單的 XML 規則檔。
+ 5. 執行欄位級檢核，包含必填項 (settype1)、跨文件欄位關聯 (settype3/set
+ type8)、相依文件需求 (settype4) 及備註填寫要求 (settype6) 等。
+ 6. 將所有檢核失敗原因紀錄至 Checkerr.ini。最終返回案件是否通過所有檢
+ 核規則。
+============================================================================== }
+Function TCB_IMGPSScanX.OMRCheckCase(CaseID:String):Boolean; //OMR檢核
+var
+ i,n,m,v,v1 : Integer;
+ XT,RelaXT,ValueXT : TXmltool;
+ OMRFormCode,OMRFile,OMRFormName,ColEName,ColCName,Site : String;
+ Pixel : Integer;
+ RelaFormCode,RelaFile,RelaFormName,RelaColEName,RelaColCName,RelaSite : String;
+ RelaDocNo,RelaDocName : string;
+ RelaPixel : Integer;
+ s : String;
+ nodename : String;
+ OMROK : Boolean;
+ CaseOk : Boolean;
+ ErrStr : String;
+ SiteRec,RelaSiteRec : String; //多組位置記錄
+ OMRValue : String;
+ MainFormID,MainDocNo,MainVersion : String; //主FormID
+ MainFormPage,CaseFormPage : Integer; //主要文件需要的頁數
+ NeedDocNoStr,NoDocNoStr : String; //相依 互斥文件字串
+ List : TStringlist;
+ FormCode : String;
+ FormDataPages : Integer;
+ NoSite : Boolean; //未定位
+ Anchor,Anchor1 : String;
+ OMROkCount : Integer;
+ //Casecheck : Boolean; //是否要做檢核
+ //AllCheck : Boolean; //是否要做完整檢核
+
+ ISB8W,ISB8H:integer;
+begin
+ ///OMRErrInfo 1: 必要文件 2:相依文件 3:互斥文件 4:必填 5:欄位有值附文件 6:欄位有值不附文件
+ /// 7: 欄位有值相關欄位也要有值 8:欄位有值要寫備註 9:停用日期 10:最大頁數
+ //Casecheck := True;
+ //Allcheck := True;
+ //if (FMode = 'ISCAN') then
+ //Allcheck := False;
+ CaseOk := True;
+ //if Casecheck then
+ //begin
+ DeleteFile(ImageSavePath+CaseID+'\upload\Checkerr.ini');
+ DeleteFile(ImageSavePath+CaseID+'\upload\CheckMemo.dat');
+ //DeleteFile(ImageSavePath+CaseID+'\upload\ReSize.dat');
+ DeleteFile(ImageSavePath+CaseID+'\upload\RemoveMemo.dat');
+ DeleteFile(ImageSavePath+CaseID+'\upload\OMRCheckOk.dat');
+ Memo1.Lines.Clear;
+ OMRFileList.Clear;
+
+ MainFormID := GetCaseFormID(ImageSavePath+CaseID+'\upload\');
+ List := TStringlist.Create;
+ try
+ //if AllCheck then
+ //begin
+ if GetCasePage(ImageSavePath,CaseID) =0 then
+ begin
+
+ end;
+//ShowMessage('MainFormID='+MainFormID);
+LogFile1.LogToFile(logTimeString+' '+FModeName+' '+CaseID+' '+'MainFormID='+MainFormID);
+ if MainFormID = ''then
+ begin
+ //20131203 yuu說不檢查這個,先拿掉 20170315 楷琳說未歸類要擋 20170726 因此有檢查必要FormID 所以 可以拿掉
+ {if FCheck_main_form='Y' then
+ begin
+ if (FMode <> 'SSCAN') AND (FMode<>'ESCAN') then //簽署章件會換主FormID,先跳過 20170629 ESCAN 也不檢查
+ begin
+ ErrStr:=_Msg('找不到分案文件'); //找不到主文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
+ CaseOk := false;
+//ShowMessage('AAAAA');
+ end;
+ end;
+ }
+ end
+ Else
+ begin
+ //////主要非主要文件//////
+ DistinctDocinCase(ImageSavePath+CaseID+'\upload\');
+//ShowMessage(DocNo_VerinCase.Text);
+//DocNo_VerinCase.Add('31A00101_1706A');
+LogFile1.LogToFile(logTimeString+' '+CaseID+' '+'DocNo_VerinCase.Text='+DocNo_VerinCase.Text);
+ if ModeNeedCheck(OMRErrInfo[1].Mode,FMode) then //是否要檢核
+ begin
+ for i := 0 to DocNo_VerinCase.Count - 1 do
+ begin
+ v := Pos('_', DocNo_VerinCase.Strings[i]);
+ v1 := length(DocNo_VerinCase.Strings[i]);
+ MainDocNo := Copy(DocNo_VerinCase.Strings[i],1,v-1); //FormCode2DocNo(MainFormID);
+ MainVersion :=Copy(DocNo_VerinCase.Strings[i],v+1,v1-v); //FormCode2Version(MainFormID);
+ MainFormPage := GetDataDocNoPage(MainDocNo,MainVersion); //資料庫記錄主文件頁數
+ CaseFormPage := CheckCaseDocNoPage(CaseID,MainDocNo,MainVersion,MainFormPage); //案件主文件的頁數
+LogFile1.LogToFile(logTimeString+CaseID+',MainDocNo='+MainDocNo+',MainVersion='+MainVersion+',MainFormPage='+IntToStr(MainFormPage)+',CaseFormPage='+IntToStr(CaseFormPage));
+ //CheckFirstDocNoPage
+ IF (MainFormPage > 0) and (MainFormPage <> CaseFormPage) then
+ begin
+ ErrStr:=MainDocNo+Format(OMRErrInfo[1].Info,[Inttostr(MainFormPage),Inttostr(CaseFormPage)]); //主要文件需有XX頁僅附XX頁
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[1].Ignore,OMRErrInfo[1].Display);
+ if OMRErrInfo[1].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ //////主要非主要文件/////
+//showmessage(MainFormID);
+ MainDocNo := FormCode2DocNo(MainFormID);
+ MainVersion := FormCode2Version(MainFormID);
+ if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
+ begin
+ NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
+ NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
+ end
+ Else if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
+ begin
+ NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
+ NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
+ end;
+
+ //////相依文件/////
+ if ModeNeedCheck(OMRErrInfo[2].Mode,FMode) then //是否要檢核
+ begin
+ List.CommaText := NeedDocNoStr;
+ for I := 0 to List.Count - 1 do
+ begin
+ if not Case_DocNoExists(CaseID,List.Strings[i]) then //沒附相依文件
+ begin
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ ErrStr:=Format(OMRErrInfo[2].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //沒附相依文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[2].Ignore,OMRErrInfo[2].Display);
+ if OMRErrInfo[2].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ //////相依文件/////
+
+ //////互斥文件/////
+ if ModeNeedCheck(OMRErrInfo[3].Mode,FMode) then //是否要檢核
+ begin
+ List.CommaText := NoDocNoStr;
+ for I := 0 to List.Count - 1 do
+ begin
+ if Case_DocNoExists(CaseID,List.Strings[i]) then //附了互斥文件
+ begin
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ ErrStr:=Format(OMRErrInfo[3].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //有附互斥文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[3].Ignore,OMRErrInfo[3].Display);
+ if OMRErrInfo[3].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ //////互斥文件/////
+ end; //MainFormID結束
+ //end;
+ List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
+ for i := 0 to List.Count - 1 do
+ begin
+ FormCode := FileName2FormCode(List.Strings[i]);
+ /////未歸類///
+ {IF FormCode = 'Attach' Then //20140211 yuu說不檢查了
+ begin
+ ErrStr:=_Msg('尚有文件未歸類');
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
+ CaseOk := false;
+ end; }
+ /////未歸類//////
+
+ /////未註冊文件/////
+ {IF not FormIDExists(FormCode,False) then //未註冊文件
+ begin
+ ErrStr:=FormCode+_Msg('不為此業務的表單代碼');
+ OMRErr2ini(CaseID,ErrStr,'','','','',False,False,True);
+ CaseOk := false;
+ end }
+ /////未註冊文件/////
+ //////停用文件//
+ {Else} IF ModeNeedCheck(OMRErrInfo[9].Mode,FMode) and (not FormIDExists(FormCode,True,0)) and (not checkFormCodeIsCustom(ImageSavePath + CaseID+'\upload\',FormCode)) then //有停用的文件
+ begin
+//ShowMessage('AAAA');
+ ErrStr:=Format(OMRErrInfo[9].Info,[FormCode2FormName(CaseID,FormCode)]); //有停用文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[9].Ignore,OMRErrInfo[9].Display);
+//ShowMessage('ErrStr='+ErrStr);
+ if OMRErrInfo[9].Display then
+ CaseOk := false;
+ end;
+ //////停用文件////
+ end;
+ finally
+ List.Free;
+ end;
+ //if AllCheck then
+ //begin
+ //////最大頁數///
+LogFile1.LogToFile(logTimeString+'最大頁數A段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
+ DistinctFormCode(CaseID);
+ if ModeNeedCheck(OMRErrInfo[10].Mode,FMode) then //是否要檢核
+ begin
+//ShowMessage('AAA'+OMRFileList.Text);
+LogFile1.LogToFile(logTimeString+'最大頁數B段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
+ For i := 0 to OMRFileList.Count - 1 do
+ begin
+ if FModeName=_Msg('異動件') then Continue;
+
+ if FWH_category='N' then
+ begin
+ if ISExistImg(ImageSavePath+CaseID+'\upload\'+OMRFileList.Strings[i]) then
+ begin
+ Continue;
+ end;
+ end;
+ FormCode := FileName2FormCode(OMRFileList.Strings[i]);
+ FormDataPages := GetDataFormCodePages(FormCode);
+
+ IF (FormCode <> '') and (FormDataPages > 0) and (FindFormCodePages(CaseID,FormCode) > FormDataPages) then //有超過最大頁數的文件
+ begin
+ ErrStr:=Format(OMRErrInfo[10].Info,[FormCode2FormName(CaseID,FormCode),inttostr(FormDataPages)]); //有超過最大頁數文件
+ OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[10].Ignore,OMRErrInfo[10].Display);
+ if OMRErrInfo[10].Display then
+ CaseOk := false;
+ end;
+ end;
+ end;
+ /////最大頁數/////
+ //end;
+ ImageScrollBox1.FileName := '';
+ //if FWork_No = 'CW' then //理賠就不做下面的檢核了
+ //begin
+ //////OMR檢核///////
+ ContextList.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+ DistinctFormCode(CaseID);
+ ValueXT := TXmltool.Create;
+ Try
+//ShowMessage('必填'+OMRFileList.Text);
+LogFile1.LogToFile(logTimeString+'必填 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
+ For i := 0 to OMRFileList.Count - 1 do
+ begin
+//ShowMessage('OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+ if CheckRequiredColumnValues(FWork_NO,CaseID) then Continue;
+
+ OMRFile := OMRFileList.Strings[i];
+ OMRFormCode := FileName2FormCode(OMRFileList.Strings[i]);
+ OMRFormName := FormCode2FormName(CaseID,OMRFormCode);
+ Anchor := FormID2Anchor(OMRFormCode);
+ ///依十字定位點縮放////
+ ImageReSize_FormID(CaseID,OMRFile);
+ ////依十字定位點縮放///
+//Display1.Lines.Add('OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
+LogFile1.LogToFile(logTimeString+'OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
+//ShowMessage('KKKKK');
+ if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then //沒有Xml就不用檢核
+ Continue;
+
+//ShowMessage('11638 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+ XT := TXmltool.Create(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml');
+ RelaXT := TXmltool.Create;
+//ShowMessage('ModeNeedCheck='+BoolToStr(ModeNeedCheck(OMRErrInfo[4].Mode,FMode),true));
+ try
+ //*******必填********
+ if ModeNeedCheck(OMRErrInfo[4].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype1/'].First then
+ Repeat
+ OMROK := False;
+ SiteRec := ''; //清掉
+ ColEName := XT.SubNodes['/form/settype1/'].NodeName;
+ ColCName := XT.Node['/form/settype1/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ if XT.SubNodes['/form/settype1/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype1/'+ColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ Pixel := Strtoint(XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
+ Site := XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ //有填就ok
+ //Showmessage(ColCName +','+ inttostr(OMRMpsV1.GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site))+','+inttostr(Pixel + SafePixel));
+//SafePixel:=90000;
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+//FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,ANCHOR);
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ //Showmessage('oh');
+ OMROK := True;
+ Break;
+ end;
+ end
+ Else
+ begin
+ //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
+ end;
+ Until not XT.SubNodes['/form/settype1/'+ColEName+'/'].Next;
+ if not OMROk then
+ begin
+ ErrStr:=Format(OMRErrInfo[4].Info,[ColCName]); //XX欄位未填寫
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[4].Ignore,OMRErrInfo[4].Display);
+ if OMRErrInfo[4].Display then
+ CaseOk := false;
+ end;
+ Until not XT.SubNodes['/form/settype1/'].Next ;
+ end;
+ //*******必填********
+//ShowMessage('11692 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+ //if AllCheck then
+ //begin
+ //*******有值相關文件的欄位也要有值*******
+ if ModeNeedCheck(OMRErrInfo[7].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype3/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ ColEName := XT.SubNodes['/form/settype3/'].NodeName;
+ ColCName := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['pixel'];
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+
+ if XT.SubNodes['/form/settype3/'+ColEName+'/'].First then
+ Repeat
+ RelaSiteRec := '';
+ nodename := XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeName;
+ If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ RelaFormCode := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaColEName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
+ RelaColCName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
+ RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
+ RelaFile := FormCode2FileName(RelaFormCode,ContextList);
+ RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
+ Anchor1 := FormID2Anchor(RelaFormCode);
+ RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
+Display1.Lines.Add(RelaFile+','+RelaFormName);
+//ShowMessage(RelaFile);
+//ShowMessage(ImageSavePath+CaseID+'\upload\'+RelaFile);
+ if RelaFile<>'' then
+ begin
+ ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
+ ISB8W:= ISB8.Graphic.Width;
+ ISB8H:= ISB8.Graphic.Height;
+ FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
+ end;
+
+ OMROK := False;
+ //OMROK := False;
+ //if RelaXT.SubNodes['/form/settype2/'].First then
+ //Repeat
+ NoSite := True;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
+ NoSite := False;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
+ Repeat
+ nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
+ RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
+ if RelaSiteRec= '' then //記錄位置
+ RelaSiteRec := RelaSite
+ else
+ RelaSiteRec := RelaSiteRec+'@'+RelaSite;
+ if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ begin
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
+ begin
+ OMROK := True;
+ Break;
+ end;
+ ///依十字定位點縮放////
+ ImageReSize_FormID(CaseID,OMRFile); //20170815 重新抓定位
+ ////依十字定位點縮放////
+ end;
+ end;
+
+ Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
+ if not OMROk then
+ begin
+ if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位未填寫
+ Else if NoSite then
+ ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
+ Else
+ ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位未填寫
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
+ if OMRErrInfo[7].Display then
+ CaseOk := false;
+ end;
+ //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
+
+ end;
+ Until not XT.SubNodes['/form/settype3/'+ColEName+'/'].Next;
+ end;
+ Until not XT.SubNodes['/form/settype3/'].Next ;
+ end;
+ //*******有值相關文件的欄位也要有值*******
+//ShowMessage('11788 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+
+ //*******有值相關文件的欄位不能有值*******
+ if ModeNeedCheck(OMRErrInfo[11].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype8/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ OMROkCount := 0;
+ ColEName := XT.SubNodes['/form/settype8/'].NodeName;
+ ColCName := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['pixel'];
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫// //
+ inc(OMROkCount);
+ end;
+ if XT.SubNodes['/form/settype8/'+ColEName+'/'].First then
+ Repeat
+ RelaSiteRec := '';
+ nodename := XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeName;
+ If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ RelaFormCode := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaColEName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
+ RelaColCName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
+ RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
+ RelaFile := FormCode2FileName(RelaFormCode,ContextList);
+ RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
+ Anchor1 := FormID2Anchor(RelaFormCode);
+ RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
+
+ if RelaFile<>'' then
+ begin
+ ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
+ ISB8W:= ISB8.Graphic.Width;
+ ISB8H:= ISB8.Graphic.Height;
+ FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
+ end;
+
+ OMROK := False;
+ //OMROK := False;
+ //if RelaXT.SubNodes['/form/settype2/'].First then
+ //Repeat
+ NoSite := True;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
+ NoSite := False;
+ if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
+ Repeat
+ nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
+ RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
+ if RelaSiteRec= '' then //記錄位置
+ RelaSiteRec := RelaSite
+ else
+ RelaSiteRec := RelaSiteRec+'@'+RelaSite;
+ if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ begin
+Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
+ begin
+ inc(OMROkCount);
+ //OMROK := True;
+ //Break;
+ end;
+ ///依十字定位點縮放////
+ ImageReSize_FormID(CaseID,OMRFile);
+ ////依十字定位點縮放////
+ end;
+ end;
+ //Else
+ //begin
+ //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
+ //end;
+ Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
+ if OMROkCount > 1 then
+ begin
+ if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
+ ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位也填寫
+ Else if NoSite then
+ ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
+ Else
+ ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位也填寫
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
+ if OMRErrInfo[11].Display then
+ CaseOk := false;
+ end;
+ //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
+
+ end;
+ Until not XT.SubNodes['/form/settype8/'+ColEName+'/'].Next;
+ Until not XT.SubNodes['/form/settype8/'].Next ;
+ end;
+ //*******有值相關文件的欄位不能有值*******
+
+//ShowMessage('11889 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
+
+ //*******有值相依文件*******
+ if ModeNeedCheck(OMRErrInfo[5].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype4/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ ColEName := XT.SubNodes['/form/settype4/'].NodeName;
+ ColCName := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['pixel'];
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+ if XT.SubNodes['/form/settype4/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeName;
+ If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ {RelaFormCode := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := FormCode2FileName(RelaFormCode);
+ RelaFormName := FormCode2FormName(RelaFormCode); }
+ RelaDocNo := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := DocNo2FileName(RelaDocNo,ContextList);
+ RelaDocName := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
+ if RelaFile='' then
+ begin
+ ErrStr:=Format(OMRErrInfo[5].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,需附XX文件
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[5].Ignore,OMRErrInfo[5].Display);
+ if OMRErrInfo[5].Display then
+ CaseOk := false;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype4/'+ColEName+'/'].Next;
+ end;
+ Until not XT.SubNodes['/form/settype4/'].Next ;
+ end;
+ //*******有值相依文件*******
+
+ //*******有值互斥文件*******
+ if ModeNeedCheck(OMRErrInfo[6].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype5/'].First then
+ Repeat
+ SiteRec := '';
+ RelaSiteRec := '';
+ ColEName := XT.SubNodes['/form/settype5/'].NodeName;
+ ColCName := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['colxy'];
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+ Pixel := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['pixel'];
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+ if XT.SubNodes['/form/settype5/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeName;
+ If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeIsAttr) then
+ begin
+ {RelaFormCode := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := FormCode2FileName(RelaFormCode);
+ RelaFormName := FormCode2FormName(RelaFormCode);}
+ RelaDocNo := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
+ RelaFile := DocNo2FileName(RelaDocNo,ContextList);
+ RelaDocName := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
+ if RelaFile<>'' then //有附 20130604看到(='')改的(未測)
+ begin
+ ErrStr:=Format(OMRErrInfo[6].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,不能附XX文件
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[6].Ignore,OMRErrInfo[6].Display);
+ if OMRErrInfo[6].Display then
+ CaseOk := false;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype5/'+ColEName+'/'].Next;
+ end;
+ Until not XT.SubNodes['/form/settype5/'].Next ;
+ end;
+ //*******有值互斥文件*******
+
+ //*******有值寫備註*******
+ if ModeNeedCheck(OMRErrInfo[8].Mode,FMode) then //是否要檢核
+ begin
+ if XT.SubNodes['/form/settype6/'].First then
+ Repeat
+ SiteRec := '';
+ ColEName := XT.SubNodes['/form/settype6/'].NodeName;
+ ColCName := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['coldesc'];
+ ColCName := Copy(ColCName,1,length(ColCName)-6);
+ Site := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['colxy'];
+ Pixel := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['pixel'];
+
+ if SiteRec= '' then //記錄位置
+ SiteRec := Site
+ else
+ SiteRec := SiteRec+'@'+Site;
+
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ////有填寫////
+ if not FileExists(ImageSavePath+CaseID+'ScanMemo.dat') then
+ begin
+ ErrStr:=Format(OMRErrInfo[8].Info,[ColCName]); //XX文件XX欄位填寫時,需寫備註
+ OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[8].Ignore,OMRErrInfo[8].Display);
+ if OMRErrInfo[8].Display then
+ CaseOk := false;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype6/'].Next ;
+ end;
+ //*******有值寫備註*******
+
+ //*******OMR帶值********
+ if XT.SubNodes['/form/settype7/'].First then
+ Repeat
+ ColEName := XT.SubNodes['/form/settype7/'].NodeName;
+ ValueXT['/content/'+ColEName+'/@savevalue'] := ''; //先給預設空白
+ if XT.SubNodes['/form/settype7/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype7/'+ColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ Pixel := Strtoint(XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
+ Site := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
+ OMRValue := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['getvalue'];
+
+ //有填就ok
+ Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
+
+ if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
+ begin
+ ValueXT['/content/'+ColEName+'/@savevalue'] := OMRValue; //有填就換成設定的值
+ Break;
+ end;
+ end;
+ Until not XT.SubNodes['/form/settype7/'+ColEName+'/'].Next;
+ Until not XT.SubNodes['/form/settype7/'].Next ;
+
+ //*******OMR帶值********
+ //end;
+ Finally
+ if (OMRValue <> '') then
+ ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');
+ XT.Free;
+ RelaXT.Free;
+ end;
+ end;
+ //必填迴圈結束
+ Finally
+ ValueXT.Free;
+ end;
+ //end;
+ //end;
+ Result := CaseOk;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：OMRErr2ini
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：紀錄 OMR 檢核失敗的詳細資訊。方法根據 Display 旗標決定紀錄方式：若為 T
+ rue，則在案件目錄下的 Checkerr.ini 中建立新的錯誤序號區段，詳細紀錄失
+ 敗原因、檔案路徑、OMR 座標點、關聯檔案及定位點類型，用於後續 UI 呈現；若
+ 為 False，則僅將錯誤原因字串附加於 CheckMemo.dat 純文字日誌中，作為背
+ 景紀錄之用。
+============================================================================== }
+Procedure TCB_IMGPSScanX.OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ S : TStringlist;
+begin
+ if Display then
+ begin
+ ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0); //透過Errcount來對應
+ inc(ErrCount);
+ ini.WriteString(inttostr(ErrCount),'Reason',Reason);
+ ini.WriteBool(inttostr(ErrCount),'Ingnore',Ingnore);
+ ini.writeString(inttostr(ErrCount),'FileName',FileName);
+ ini.WriteString(inttostr(ErrCount),'Site',Site);
+ ini.WriteString(inttostr(ErrCount),'RelaFileName',RelaFileName);
+ ini.WriteString(inttostr(ErrCount),'RelaSite',RelaSite);
+ ini.WriteString(inttostr(ErrCount),'Anchor',Anchor);
+ ini.WriteString(inttostr(ErrCount),'RelaAnchor',Anchor1);
+ ini.WriteBool(inttostr(ErrCount),'Del',Del);
+ ini.WriteInteger('OMRCount','Count',ErrCount);
+ finally
+ ini.Free;
+ end;
+ end
+ Else
+ begin
+ S := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then
+ S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');
+ S.Add(Reason);
+ S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');
+ finally
+ S.Free;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：OMRErrini2List
+ 引用相依：
+ 方法描述：將檢核失敗紀錄從 INI 設定檔載入至 UI 介面。方法會讀取 Checkerr.ini，遍
+ 歷所有錯誤紀錄，並過濾掉已標記為刪除 (Del) 的項目。將符合條件的錯誤原
+ 因填入 ErrlistForm 中的 ListView 元件，供使用者查看與修正。若清單中仍
+ 存在錯誤，會同步停用介面上的上傳按鈕以防止不合規案件送出。
+============================================================================== }
+Procedure TCB_IMGPSScanX.OMRErrini2List(CaseID:String;ErrlistForm:TErrlistForm); //OMR檢核失敗從ini寫入ListView
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ Del : Boolean;
+ i : Integer;
+begin
+ ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0);
+
+ for i := 1 to ErrCount do
+ begin
+ Del := ini.ReadBool(inttostr(i),'Del',False); //是否被移除了
+ if Not Del then
+ begin
+ With ErrlistForm.ErrListLV.Items.Add do
+ begin
+ Caption := ini.ReadString(inttostr(i),'Reason','');
+ SubItems.Add(inttostr(i));
+ end;
+ end;
+ end;
+ if Errlistform.ErrListLV.Items.Count > 0 then
+ Errlistform.ImmediateBt.Enabled := False;
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：OMRErrini2List
+ 引用相依：
+ 方法描述：將 OMR 檢核失敗的記錄從 Checkerr.ini 讀取並顯示在 ListView 中。程序會
+ 開啟指定案件目錄下的設定檔，讀取錯誤總數後逐一檢查每筆記錄是否已被移
+ 除（Del 標記）。若記錄有效，則將錯誤原因及索引值新增至傳入的 ErrlistForm
+ 中的 ErrListLV 列表。
+============================================================================== }
+Procedure TCB_IMGPSScanX.OMRErrini2List(CaseID:String;ErrlistForm:TErrlistForm); //OMR檢核失敗從ini寫入ListView
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ Del : Boolean;
+ i : Integer;
+begin
+ ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0);
+
+ for i := 1 to ErrCount do
+ begin
+ Del := ini.ReadBool(inttostr(i),'Del',False); //是否被移除了
+ if Not Del then
+ begin
+ With ErrlistForm.ErrListLV.Items.Add do
+ begin
+ Caption := ini.ReadString(inttostr(i),'Reason','');
+ SubItems.Add(inttostr(i));
+ end;
+ end;
+ end;
+ if Errlistform.ErrListLV.Items.Count > 0 then
+ Errlistform.ImmediateBt.Enabled := False;
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：OMRErrini2ListForLog
+ 引用相依：LoadFromFile
+ 方法描述：彙整系統中所有活動案件的 OMR 檢核錯誤訊息。方法讀取全域的 CaseList.da
+ t，依次遍歷每個案件子目錄下的 Checkerr.ini，收集所有未被移除的錯誤原因
+ ，並將其合併為一個完整的文字區塊返回。此功能主要用於產生系統運行日誌，
+ 方便追蹤與審查多案件的檢核狀態。
+============================================================================== }
+function TCB_IMGPSScanX.OMRErrini2ListForLog(CaseID: String): String;
+var
+ ini : Tinifile;
+ Errcount : Integer;
+ Del : Boolean;
+ i,j : Integer;
+ ST,CaseList:TStringList;
+
+begin
+ Result:='';
+ //CaseList.dat
+ ST:=TStringList.Create;
+ CaseList:=TStringList.Create;
+ CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');
+ for I := 0 to CaseList.Count - 1 do
+ begin
+ ini := Tinifile.Create(ImageSavePath + CaseList.Strings[i]+'\upload\Checkerr.ini');
+ try
+ Errcount := ini.ReadInteger('OMRCount','Count',0);
+
+ for j := 1 to ErrCount do
+ begin
+ Del := ini.ReadBool(inttostr(j),'Del',False); //是否被移除了
+ if Not Del then
+ begin
+ ST.Add(ini.ReadString(inttostr(j),'Reason','')) ;
+ end;
+ end;
+ finally
+ ini.Free;
+ end;
+ end;
+ Result:=ST.Text;
+ ST.Free;
+ CaseList.Free;
+end;
+
+
+
diff --git a/reassemble/CB_IMGPSScanImp.prUpload.pas b/reassemble/CB_IMGPSScanImp.prUpload.pas
new file mode 100644
index 0000000..0715269
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.prUpload.pas
@@ -0,0 +1,800 @@
+{ ==============================================================================
+ 方法名稱：CreateCaseNeedData
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：掃描案件目錄下的 Context.dat 影像清單，自動推導並產生該案件所需的 Doc
+ Dir.dat、CaseDocNo.dat 及份數清單，用於修復或重建案件結構。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CreateCaseNeedData(Path:String);
+var
+ FileList,DocNoList,CaseDocNoList,CaseDocNo_CopiesList : TStringlist;
+ i,n : Integer;
+ Docno : String;
+ Exists : Boolean;
+begin
+ FileList := TStringlist.Create;
+ DocNoList := TStringlist.Create;
+ CaseDocNoList := TStringlist.Create;
+ CaseDocNo_CopiesList := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ begin
+ FileList.LoadFromFile(Path+'Context.dat');
+ for i := 0 to FileList.Count - 1 do
+ begin
+ Docno := FormCode2DocNo(FileName2FormCode(FileList.Strings[i]));
+//ShowMessage('Docno='+Docno);
+ DocNoList.Add(DocNo);
+ Exists := False;
+ for n := 0 to CaseDocNoList.Count - 1 do
+ begin
+ if Docno = CaseDocNoList.Strings[n] then
+ Exists := True;
+ end;
+ if not Exists then
+ begin
+ CaseDocNoList.Add(DocNo);
+ CaseDocNo_CopiesList.Add('1');
+ end;
+ end;
+//ShowMessage('CreateCaseNeedData DocNoList='+DocNoList.Text);
+ DocNoList.SaveToFile(Path+'DocDir.dat');
+ CaseDocNoList.SaveToFile(Path+'CaseDocNo.dat');
+ CaseDocNo_CopiesList.SaveToFile(Path+'CaseDocNo_Copies.dat')
+ end;
+
+ finally
+ FileList.Free;
+ DocNoList.Free;
+ CaseDocNoList.Free;
+ CaseDocNo_CopiesList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Case2upload
+ 引用相依：DirectoryExists, _DelTree, Str2Dir, CopyFile, FileExists, LoadFromFi
+ le, SaveToFile
+ 方法描述：準備案件上傳用的資料夾結構。將分散在各文件子目錄下的影像檔案複製到單
+ 一的 Upload 目錄下並重新編號檔名，同時產生彙整後的索引檔與附件。
+============================================================================== }
+Procedure TCB_IMGPSScanX.Case2upload(CaseID:String);
+var
+ i,n:Integer;
+ OldPath,NewPath,DocDir : String;
+ OldFile,NewFile,AttFile : String;
+ DocNoList,FileList:TStringlist;
+ iFileList,iFile_DocNoList :TStringlist;
+ iDocDirList : TStringlist;
+ iAttFileList : TStringlist;
+begin
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ iFileList := TStringlist.Create;
+ iFile_DocNoList := TStringlist.Create;
+ iDocDirList := TStringlist.Create;
+ iAttFileList := TStringlist.Create;
+ try
+ OldPath := ImageSavePath+CaseID+'\';
+ NewPath := ImageSavePath+CaseID+'\Upload\';
+ if DirectoryExists(NewPath) then
+ _DelTree(NewPath);
+ str2dir(NewPath);
+ CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
+ CopyFile(PWideChar(OldPath+'CaseDocNo_Copies.dat'),PWideChar(NewPath+'CaseDocNo_Copies.dat'),False);
+ CopyFile(PWideChar(OldPath+'CustomDocNo.ini'),PWideChar(NewPath+'CustomDocNo.ini'),False);
+ CopyFile(PWideChar(OldPath+'CaseIndex.dat'),PWideChar(NewPath+'CaseIndex.dat'),False);
+ CopyFile(PWideChar(OldPath+'In_Wh.dat'),PWideChar(NewPath+'In_Wh.dat'),False);
+ CopyFile(PWideChar(OldPath+'UseCase.ini'),PWideChar(NewPath+'UseCase.ini'),False);
+
+ if FileExists(OldPath+'CaseDocNo.dat') then
+ begin
+ DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');
+ end
+ else
+ begin
+ DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');
+ CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
+ end;
+
+ for i := 0 to DocNoList.Count-1 do
+ begin
+ DocDir := DocNoList.Strings[i];
+ OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
+
+ FileList.Clear;
+ if FileExists(OldPath+'Context.dat') then
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
+ iFileList.Add(NewFile);
+ iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
+ iDocDirList.Add(DocDir);
+ end;
+ end;
+ end;
+ if DirectoryExists(ImageSavePath+CaseID+'\Attach') then
+ begin
+ DocDir := 'Attach';
+ OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
+
+ FileList.Clear;
+ if FileExists(OldPath+'Context.dat') then
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
+ iFileList.Add(NewFile);
+ iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
+ iDocDirList.Add(DocDir);
+ end;
+ end;
+ end;
+
+ if DirectoryExists(ImageSavePath+CaseID+'\S_Attach') then
+ begin
+ DocDir := 'S_Attach';
+ OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
+
+ FileList.Clear;
+ if FileExists(OldPath+'Context.dat') then
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ for n := 0 to FileList.Count - 1 do
+ begin
+ OldFile := FileList.Strings[n];
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
+ iFileList.Add(NewFile);
+ iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
+ iDocDirList.Add(DocDir);
+ end;
+ end;
+ end;
+ OldPath := ImageSavePath+CaseID+'\';
+ if FileExists(OldPath+'AttContext.dat') then
+ begin
+ iAttFileList.LoadFromFile(OldPath+'AttContext.dat');
+ for n := 0 to iAttFileList.Count - 1 do
+ begin
+ AttFile := iAttFileList.Strings[n];
+ CopyFile(PWideChar(OldPath+AttFile),PWideChar(NewPath+AttFile),False);
+ end;
+ iAttFileList.SaveToFile(NewPath+'AttContext.dat');
+ end;
+
+
+ iFileList.SaveToFile(NewPath+'Context.dat');
+ iFile_DocNoList.SaveToFile(NewPath+'Context_DocNo.dat');
+ iDocDirList.SaveToFile(NewPath+'DocDir.dat');
+
+ finally
+ iFileList.Free;
+ iAttFileList.Free;
+ iFile_DocNoList.Free;
+ DocNoList.Free;
+ FileList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Download2Case
+ 引用相依：FileExists, CopyFile, LoadFromFile, DirectoryExists, SaveToFile
+ 方法描述：將下載或匯入的案件結構還原回本系統的多層級目錄結構。包含建立文件子目
+ 錄、檔案複製並重新編號、以及重建各類索引與份數設定檔。
+============================================================================== }
+Procedure TCB_IMGPSScanX.Download2Case(SoDir,DeDir:String);
+var
+ i,n : Integer;
+ DocDir:String;
+ OldFile,NewFile,AttFile:String;
+ DocNoList,FileList : TStringlist;
+ iFileList,iFile_DocDirList :TStringlist;
+ iAttFileList :TStringlist;
+ AA,AA2,AA3,AA4:Boolean;
+begin
+
+ if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then //截畫面會沒這些檔
+ begin
+//ShowMessage('產生必要的文字檔');
+ CreateCaseNeedData(SoDir); //產生必要的文字檔
+ end;
+
+ AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
+ AA2:=CopyFile(PWideChar(SoDir+'CaseDocNo_Copies.dat'),PWideChar(DeDir+'CaseDocNo_Copies.dat'),False);
+ AA3:=CopyFile(PWideChar(SoDir+'CustomDocNo.ini'),PWideChar(DeDir+'CustomDocNo.ini'),False);
+ AA4:=CopyFile(PWideChar(SoDir+'UseCase.ini'),PWideChar(DeDir+'UseCase.ini'),False);
+//ShowMessage(BoolToStr(AA)+#10#13+BoolToStr(AA2)+#10#13+BoolToStr(AA3)+#10#13+BoolToStr(AA4));
+ if FileExists(SoDir+'DocDir.dat') then //20170222 新加
+ begin
+ CopyFile(PWideChar(SoDir+'DocDir.dat'),PWideChar(DeDir+'DocDir.dat'),False);
+ end;
+
+
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ iFileList := TStringlist.Create;
+ iFile_DocDirList := TStringlist.Create;
+ iAttFileList := TStringlist.Create;
+ try
+ //if Not FileExists(SoDir+'Context.dat') then Exit;
+ //iFileList.LoadFromFile(SoDir+'Context.dat');
+ //if iFileList.Count = 0 then Exit;
+ if FileExists(SoDir+'Context.dat') then
+ iFileList.LoadFromFile(SoDir+'Context.dat');
+ if FileExists(SoDir+'DocDir.dat') then
+ iFile_DocDirList.LoadFromFile(SoDir+'DocDir.dat');
+ if iFileList.Count <> iFile_DocDirList.Count then
+ begin
+ for i := 0 to iFileList.Count - 1 do
+ begin
+ if i > iFile_DocDirList.Count -1 then
+ begin
+ iFile_DocDirList.Add(FormCode2DocNo(FileName2FormCode(iFileList.Strings[i])));
+ end;
+ end;
+ end;
+ if FileExists(SoDir+'CaseDocNo.dat') then
+ DocNoList.LoadFromFile(SoDir+'CaseDocNo.dat');
+ if FileExists(DeDir+'CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
+ {for i := 0 to DocNoList.Count - 1 do
+ begin
+ DocDir := DocNoList.Strings[i];
+ MkDir(DeDir+DocDir);
+ end;}
+//ShowMessage('DocNoList='+DocNoList.Text);
+
+ for i := DocNoList.Count - 1 downto 0 do
+ begin
+ DocDir := DocNoList.Strings[i];
+ if not DirectoryExists(DeDir+DocDir) then
+ begin
+ MkDir(DeDir+DocDir);
+ if not FileExists(DeDir+DocDir+'\Context.dat') then
+ StringtoFile('',DeDir+DocDir+'\Context.dat');
+ end
+ else
+ begin
+//ShowMessage('GGG');
+ DocNoList.Delete(i);
+ DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+ if i <= CaseDocNo_CopiesList.Count-1 then
+ begin
+//ShowMessage('KKKK');
+ CaseDocNo_CopiesList.Delete(i);
+ CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ end;
+ end;
+ end;
+ //20170221 先註解起來 因為他在補充掃瞄時好像會有顯示的問題
+
+ for i := 0 to iFileList.Count - 1 do
+ begin
+ OldFile := iFileList.Strings[i];
+ DocDir := iFile_DocDirList.Strings[i];
+ if (DocDir = 'Attach') or (DocDir = 'S_Attach') then
+ begin
+ if not DirectoryExists(DeDir+DocDir) then
+ MkDir(DeDir+DocDir);
+ end;
+
+ FileList.Clear;
+ if FileExists(DeDir+DocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(DeDir+DocDir+'\Context.dat');
+ end;
+ NewFile := Add_Zoo(FileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
+ CopyFile(PWideChar(SoDir+OldFile),PWideChar(DeDir+DocDir+'\'+NewFile),False);
+ FileList.Add(NewFile);
+ FileList.SaveToFile(DeDir+DocDir+'\Context.dat');
+ end;
+
+ for i := DocNoList.Count -1 downto 0 do
+ begin
+ if (DocNoList.Strings[i] = 'Attach') or (DocNoList.Strings[i] = 'S_Attach') then
+ begin
+ DocNoList.Delete(i);
+ DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+ end;
+ end;
+
+ {if (DocNoList.Count > 0) and ((DocNoList.Strings[DocNoList.Count-1] = 'Attach') or (DocNoList.Strings[DocNoList.Count-1] = 'S_Attach')) then
+ begin
+ DocNoList.Delete(DocNoList.Count-1);
+ DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+ end; }
+ CaseDocNo_CopiesList.Clear;
+
+ if FileExists(DeDir+'CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
+ if DocNoList.Count > CaseDocNo_CopiesList.Count then
+ begin
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ if i > CaseDocNo_CopiesList.Count-1 then
+ begin
+ CaseDocNo_CopiesList.Add('1');
+ //CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ end;
+ end;
+ end;
+ CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ {if (not FileExists(DeDir+'CaseDocNo_Copies.dat') then
+ begin
+ CaseDocNo_CopiesList.Free;
+ for i := 0 to DocNoList.Count - 1 do
+ begin
+ CaseDocNo_CopiesList.Add('1');
+ CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
+ end;
+ end;}
+ if FileExists(SoDir+'AttContext.dat') then
+ begin
+ iAttFileList.LoadFromFile(SoDir+'AttContext.dat');
+ for i := 0 to iAttFileList.Count - 1 do
+ begin
+ AttFile := iAttFileList.Strings[i];
+ CopyFile(PWideChar(SoDir+AttFile),PWideChar(DeDir+AttFile),False);
+ end;
+ iAttFileList.SaveToFile(DeDir+'AttContext.dat');
+ end;
+
+
+ if FMode='ESCAN' then
+ begin
+ InitExistImgList(DeDir);
+ end;
+
+
+ finally
+ iFileList.Free;
+ FileList.Free;
+ DocNoList.Free;
+ iFile_DocDirList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCaseFormID
+ 引用相依：LoadFromFile
+ 方法描述：從案件目錄的 Context.dat 檔案中搜尋並回傳該案件的主表單代碼（FormID）。
+ 程序會遍歷影像清單，提取各檔案的表單代碼，並排除特定的分案頁代碼，直到
+ 找到符合條件的主表單代碼為止。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCaseFormID(Path:String):String; //取案件的主FormID
+var i,n : Integer;
+ FileFormID : String;
+begin
+ Result := '';
+ ContextList.LoadFromFile(Path+'Context.dat');
+ for I := 0 to ContextList.Count - 1 do
+ begin
+ FileFormID := FileName2FormCode(ContextList.Strings[i]);
+
+ if DivPageFormIDList.IndexOf(FileFormID)<>-1 then //20170509 跳過分案頁的formid
+ begin
+ Continue;
+ end;
+ if FindDivFormCode(FileFormID) then
+ begin
+ Result := FileFormID;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateFormID_FormName
+ 引用相依：SaveToFile
+ 方法描述：遍歷 ContextList，提取每個檔案的表單代號與名稱並格式化為「代號_名稱」，
+ 最後存成 FormCode_Name.dat 供上傳使用。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat
+var i : Integer;
+ S : TStringlist;
+ FormID : String;
+ FormName : String;
+begin
+ S := TStringlist.Create;
+ try
+ for I := 0 to ContextList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(ContextList.Strings[i]);
+ FormName := FormCode2FormName(CaseID,FormID);
+ S.Add(FormID+'_'+FormName);
+ end;
+ S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateDocNo_DocName
+ 引用相依：SaveToFile
+ 方法描述：產生包含文件代號與名稱的對應檔 DocNo_Name.dat。首先執行案件內文件去重
+ ，接著遍歷 CaseDocNoList 取得對應名稱，針對不需分組的文件會在名稱前加
+ 上星號標記，最後將結果以 UTF-8 編碼儲存。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat
+var
+ i : Integer;
+ S : TStringlist;
+ Doc_Name : String;
+begin
+ S := TStringlist.Create;
+ try
+ DistinctDocNoinCase(Path);
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ Doc_Name := CaseDocNoList.Strings[i]+'_'+DocNo2DocName(CaseID,CaseDocNoList.Strings[i]);
+ if not DocnoNeedGroup(CaseDocNoList.Strings[i]) Then //不用分組的加*號給智豪
+ Doc_Name := '*'+Doc_Name;
+ S.Add(Doc_Name);
+ end;
+ S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateIn_WH
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：產生在席文件清單檔 In_Wh.dat。讀取案件的文件目錄清單後，比對全域的在席
+ 文件清單（IN_WH_DocNoList），若文件代號匹配或屬於特定系統目錄（ZZZZZ），則
+ 將其加入清單並儲存，用於標記需留存實體的文件。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CreateIn_WH(CaseID:String); //產生In_WH.dat
+var
+ i,n : Integer;
+ DocDirList,In_WH_List : TStringlist;
+ iDocNo : String;
+begin
+ DocDirList := TStringlist.Create;
+ In_WH_List := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := 0 to DocDirList.Count - 1 do
+ begin
+ iDocNo := DocNoDir2DocNo(DocDirList.Strings[i]);
+ for n := 0 to IN_WH_DocNoList.Count - 1 do
+ begin
+ if (iDocNo = IN_WH_DocNoList.Strings[n]) or (Copy(iDocNo,1,5)='ZZZZZ') then
+ begin
+ In_WH_List.Add(DocDirList.Strings[i]);
+ Break;
+ end;
+ end;
+ end;
+ In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');
+
+ finally
+ DocDirList.Free;
+ In_WH_List.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateDocNo_Info
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：產生案件內標準文件（非自訂）的彙總資訊字串。方法讀取 CaseDocNo.dat，針對
+ 每個非 'ZZZZZ' 開頭的文件編號，計算其在案件中的總份數、累計總頁數，並檢
+ 查編輯狀態（異動旗標）。結果以「編號[Tab]份數[Tab]頁數[Tab]狀態」的格式逐
+ 行組成，作為案件上傳時與伺服器比對資料完整性的核心依據。
+============================================================================== }
+Function TCB_IMGPSScanX.CreateDocNo_Info(CaseID:String):String; //產生 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動
+var
+ i,n : Integer;
+ DocDirList,DocDir_CopiesList,FileList,C_DocNoList : TStringlist;
+ DocNo,iDocDir,iDocNo,iEdit:String;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ DocDir_CopiesList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ C_DocNoList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ if DocDirList.Count =0 then exit;//20170222 新加
+
+
+ DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if Copy(iDocDir,1,5) <> 'ZZZZZ' then //不為自定文件
+ begin
+ //icopys := 1;
+ icopys := GetDocNoCount(CaseID,DocNo);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,'');
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if iDocNo = DocNo then
+ begin
+ //inc(icopys);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit]);
+ end;
+ DocDirList.Delete(0);
+ end;
+
+
+ finally
+ DocDirList.Free;
+ DocDir_CopiesList.Free;
+ FileList.Free;
+ C_DocNoList.Free;
+ end;
+ Result := Str;
+
+ {S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ S1.LoadFromFile(Path+'Context_DocNo.dat');
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ iDocNo := CaseDocNoList.Strings[i];
+ iCopys := GetDocNo_Count(Path,iDocNo);
+ iPages := GetDocNo_Page(Path,iDocNo);
+ if str = '' then
+ Str := Format('%s,%d,%d',[iDocNo,iCopys,iPages])
+ else
+ Str := Str+';'+ Format('%s,%d,%d',[iDocNo,iCopys,iPages]);
+ end;
+ Result := Str;
+
+ finally
+ S.Free;
+ S1.Free;
+ end; }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateCustDocNo_Info
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：產生案件內自訂文件的彙總資訊字串。方法專門處理代碼開頭為 'ZZZZZ' 的文
+ 件目錄，透過 GetCustomDocName 取得使用者定義的文件名稱，並彙整其總份數
+ 、總頁數與編輯異動狀態。最終格式與標準文件一致，但首位欄位改為顯示自訂
+ 名稱，確保自訂類別的文件也能正確被伺服器識別與儲存。
+============================================================================== }
+Function TCB_IMGPSScanX.CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動
+var
+ i,n : Integer;
+ DocDirList,FileList : TStringlist;
+ DocNo,DocName,iDocDir,iDocNo,iEdit:String;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+//ShowMessage(DocDirList.Text);
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
+ begin
+ //icopys := 1;
+ DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ icopys := GetDocNoCount(CaseID,DocNo);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if iDocNo = DocNo then
+ begin
+ //inc(icopys);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit]);
+ end;
+ DocDirList.Delete(0);
+ end;
+ finally
+ DocDirList.Free;
+ FileList.Free;
+ end;
+ Result := Str;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateDocnoFrom_Info
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：產生被引進的保管袋文件詳細資訊字串。程序遍歷案件的文件目錄，排除自定義
+ 文件後，取得各文件的份數、總頁數、異動狀態及來源案件編號（UseCase）。若同
+ 一文件來自多個目錄，則會累加數據，最後產出以 Tab 分隔的文件資訊清單。
+============================================================================== }
+Function TCB_IMGPSScanX.CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+var
+ i,n : Integer;
+ DocDirList,DocDir_CopiesList,FileList : TStringlist;
+ DocNo,iDocDir,iDocNo,iEdit:String;
+ FromCaseID : string;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ DocDir_CopiesList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ if DocDirList.Count=0 then exit;//20170222 新加
+
+
+ DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if (Copy(iDocDir,1,5) <> 'ZZZZZ') then //不為自定文件
+ begin
+ //icopys := 1;
+ //icopys := GetDocNoCount(CaseID,DocNo);
+ icopys := GetDocDirCopies(CaseID,iDocDir);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,'');
+ FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
+ if FromCaseID <> '' then
+ begin
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
+ begin
+ FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
+ //inc(icopys);
+ icopys := icopys + GetDocDirCopies(CaseID,iDocDir);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID]);
+ end;
+ end;
+ DocDirList.Delete(0);
+ end;
+ finally
+ DocDirList.Free;
+ DocDir_CopiesList.Free;
+ FileList.Free;
+ end;
+ Result := Str;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateCustDocNoFrom_Info
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：產出自定義文件的引進資訊字串。專門處理前綴為 "ZZZZZ" 的目錄，提取自定
+ 義文件名稱、份數及來源案件。與保管袋文件類似，會執行重複合併並統計總頁
+ 數，最後產出格式化的資訊字串。
+============================================================================== }
+Function TCB_IMGPSScanX.CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+var
+ i,n : Integer;
+ DocDirList,FileList : TStringlist;
+ DocNo,DocName,iDocDir,iDocNo,iEdit:String;
+ FromCaseID : string;
+ icopys,ipages : integer;
+ S,S1 : TStringlist;
+ Str : String;
+begin
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ Str := '';
+ if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+ DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ while DocDirList.Count > 0 do
+ begin
+ iDocDir := DocDirList.Strings[0];
+ DocNo := DocNoDir2DocNo(iDocDir);
+ if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
+ begin
+ //icopys := 1;
+ //icopys := GetDocNoCount(CaseID,DocNo);
+ icopys := GetDocDirCopies(CaseID,iDocDir);
+ ipages := GetDocDir_Page(CaseID,iDocDir);
+ iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
+ FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
+ if FromCaseID <> '' then
+ begin
+ for i := DocDirList.Count - 1 downto 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
+ begin
+ FromCaseID := GetUseCase('F',DisplayPath,iDocDir);
+ //inc(icopys);
+ ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
+ DocDirList.Delete(i);
+ end;
+ end;
+ DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
+ if str = '' then
+ Str := Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID])
+ else
+ Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID]);
+ end;
+ end;
+ DocDirList.Delete(0);
+ end;
+ finally
+ DocDirList.Free;
+ FileList.Free;
+ end;
+ Result := Str;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateAttach_Info
+ 引用相依：
+ 方法描述：判斷案件是否存在附加電子檔。透過檢查附加檔案目錄的總頁數是否大於 0，回
+ 傳 "Y" 或 "N"。
+============================================================================== }
+Function TCB_IMGPSScanX.CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有
+begin
+ Result := 'N';
+ if GetDocDir_Page(CaseID,AttName) > 0 Then
+ Result := 'Y';
+end;
+
+
diff --git a/reassemble/CB_IMGPSScanImp.preview.pas b/reassemble/CB_IMGPSScanImp.preview.pas
new file mode 100644
index 0000000..083a906
--- /dev/null
+++ b/reassemble/CB_IMGPSScanImp.preview.pas
@@ -0,0 +1,467 @@
+{ ==============================================================================
+ 方法名稱：ShapeName2PreViewISBName
+ 引用相依：
+ 方法描述：將 TShape 元件的名稱轉換為對應的預覽影像捲軸盒（PreViewISB）名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName
+begin
+ Result := ISBName+Copy(SP.Name,3,length(SP.Name)-2);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreatePreViewISB
+ 引用相依：
+ 方法描述：動態建立指定數量的縮圖預覽組件。首先清空既有的預覽組件，接著在 ScrollB
+ ox1 中為每個縮圖建立一個 TPanel 作為容器，並在其內嵌入一個 TImageScro
+ llBox。設定組件的對齊方式、預設縮放模式及多項事件處理函式（如 Click, Mo
+ useMove, DragDrop 等），並掛載右鍵選單。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CreatePreViewISB(Count:Integer);
+var
+ ISB : TImageScrollBox;
+ Panel : TPanel;
+ i,W,H : Integer;
+ myDate : TDateTime;
+begin
+ FreePreViewISB;
+ ScrollBox1.HorzScrollBar.Visible := False;
+ W := 150;
+ H := 250;
+ for I := 1 to Count do
+ begin
+
+ if FindComponent('M_Pl'+inttostr(i))=nil then
+ begin
+ Panel := TPanel.Create(Self);
+ Panel.Name := 'M_Pl'+inttostr(i);//FormatDateTime('yyyymmddhhnnsszzz', now)
+ Panel.Left := 4;
+ Panel.Top := (i-1)*H+(6*i);
+ Panel.Height := H;
+ Panel.Width := W;
+ Panel.Parent := ScrollBox1;
+ Panel.Caption :='';
+
+ if FindComponent(ISBName+inttostr(i))=nil then
+ begin
+ ISB := TImageScrollBox.Create(Self);
+ ISB.Name := ISBName+inttostr(i);
+ ISB.Parent := Panel;
+ ISB.Align := alClient;
+ ISB.ZoomMode := zmFullPage;
+ ISB.DragMode := dmAutomatic;
+ ISB.MouseMode := mmuser;
+ ISB.OnImageClick := ISBClick;
+ ISB.OnImageMouseMove := ISBMouseMove;
+ ISB.PopupMenu := PopupMenu6;
+ ISB.OnImageMouseDown := ISBImageMouseDown;
+ ISB.OnImageMouseUp := ISBImageMouseUp;
+ ISB.OnEndDrag := ISBEndDrag;
+ ISB.OnDragDrop := ISBDragDrop;
+ ISB.OnDragOver := ISBDragOver;
+ end;
+ end;
+
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FreePreViewISB
+ 引用相依：
+ 方法描述：釋放所有與縮圖預覽相關的動態組件。遍歷所有組件，尋找名稱中包含特定前綴
+ （如 ISBName, M_Pl, SP）的 TImageScrollBox、TPanel 與 TShape 並執行 Fre
+ e 動作。最後呼叫 ProcessMessages 確保 UI 資源正確釋放。
+============================================================================== }
+Procedure TCB_IMGPSScanX.FreePreViewISB;
+var
+ i : Integer;
+begin
+try
+ For i:= ComponentCount -1 downto 0 do
+ begin
+ IF (Components[i] is TImageScrollBox) and (Components[i]<>nil) Then
+ begin
+ IF Pos(ISBName,Components[i].Name) > 0 Then
+ Components[i].Free;
+ end
+ Else If (Components[i] is TPanel) and (Components[i]<>nil) Then
+ begin
+ IF Pos('M_Pl',Components[i].Name) > 0 Then
+ Components[i].Free;
+ end
+ Else If (Components[i] is TShape) and (Components[i]<>nil) Then
+ begin
+ IF Pos('SP',Components[i].Name) > 0 Then
+ Components[i].Free;
+ end;
+ end;
+ Application.ProcessMessages;
+except on E: Exception do
+end;
+
+ //showmessage(inttostr(Count));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FitPreViewISB
+ 引用相依：
+ 方法描述：自動調整所有預覽縮圖面板的高度與位置。遍歷所有已建立的預覽組件（ISB），
+ 根據每個影像實際顯示的高度（DisplayedGraphic.Height）動態設定其父面板
+ 的高度，並依序由上而下排列，確保縮圖之間緊密銜接。
+============================================================================== }
+Procedure TCB_IMGPSScanX.FitPreViewISB;
+var
+ i : Integer;
+ iISB : TImageScrollBox;
+ iPanel : TPanel;
+ T,H : Integer;
+begin
+ T := 0;
+ i := 1;
+
+ while FindComponent(ISBName+inttostr(i)) <> nil do
+ begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ iISB.Parent.Height := 250;
+ iISB.Parent.Top := T+4;
+ iISB.Parent.Height := iISB.DisplayedGraphic.Height;
+ H := iISB.Parent.Height;
+ T := iISB.Parent.Top+H;
+ inc(i);
+ end;
+
+
+ {For i:= 1 to Count do
+ begin
+ if TImageScrollBox(FindComponent(ISBName+inttostr(i))) = nil then Break;
+
+
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ iISB.Parent.Height := H;
+ iISB.Parent.Top := T+4;
+ iISB.Parent.Height := iISB.DisplayedGraphic.Height;
+ H := iISB.Parent.Height;
+ T := iISB.Parent.Top+H;
+ end;}
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PaintShape
+ 引用相依：
+ 方法描述：在預覽縮圖周圍繪製藍色選取框（TShape）。若僅傳入單一影像（ToImg 為 nil），
+ 則只在該影像位置建立選取框；若傳入起點與終點影像，則會在範圍內的所有影
+ 像組件上建立選取框。框線寬度設為 3 且顏色為藍色，用於視覺化標記選取狀
+ 態。
+============================================================================== }
+Procedure TCB_IMGPSScanX.PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像
+var
+ i,F_No,T_No : Integer;
+ SP : TShape;
+ ISB : TImageScrollBox;
+ Function GetImgNo(iISB:TImageScrollBox):Integer;
+ begin
+ Result := strtoint(Copy(iISB.Name,length(ISBName)+1,length(iISB.Name)-length(ISBName))); //'PreViewISB'
+ end;
+begin
+ IF ToImg = nil Then //只畫單一個
+ begin
+ ISB := TImageScrollBox(FindComponent(ISBName+inttostr(GetImgNo(FromImg))));
+ if TShape(FindComponent('SP'+inttostr(GetImgNo(FromImg)))) = nil then
+ begin
+
+ SP := TShape.Create(self);
+ SP.Pen.Color := clblue;
+ SP.Pen.Width := 3;
+ SP.Parent := ScrollBox1;
+ SP.Name := 'SP'+inttostr(GetImgNo(FromImg));
+ SP.Left := ISB.Parent.Left-4;
+ SP.Top := ISB.Parent.Top -4;
+ SP.Width := ISB.Parent.Width + 8;
+ SP.Height := ISB.Parent.Height + 8;
+ end;
+ end
+ Else
+ begin
+ FreeShapeobj(nil);
+ IF GetImgNo(FromImg) <= GetImgNo(ToImg) Then
+ begin
+ F_No := GetImgNo(FromImg);
+ T_No := GetImgNo(ToImg);
+ end
+ Else
+ begin
+ F_No := GetImgNo(ToImg);
+ T_No := GetImgNo(FromImg);
+ end;
+ For i := F_No to T_No do
+ begin
+ ISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
+ SP := TShape.Create(self);
+ SP.Pen.Color := clblue;
+ SP.Pen.Width := 3;
+ SP.Parent := ScrollBox1;
+ SP.Name := 'SP'+inttostr(i);
+ SP.Left := ISB.Parent.Left-4;
+ SP.Top := ISB.Parent.Top -4;
+ SP.Width := ISB.Parent.Width + 8;
+ SP.Height := ISB.Parent.Height + 8;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FreeShapeobj
+ 引用相依：
+ 方法描述：刪除縮圖上的選取標記（TShape）。若傳入的 SelectISB 為 nil，則會刪除所有
+ 名稱前綴為 "SP" 的選取框組件；若指定了特定的影像組件，則僅刪除與該影像
+ 對應的選取框。
+============================================================================== }
+Procedure TCB_IMGPSScanX.FreeShapeobj(SelectISB : TImageScrollBox);
+var
+ i : Integer;
+begin
+ IF SelectISB = nil then //全Free;
+ begin
+ For i:= ComponentCount -1 downto 0 do
+ begin
+ IF Components[i] is TShape Then
+ begin
+ IF Pos('SP',Components[i].Name) > 0 Then
+ Components[i].Free;
+ end;
+ end;
+ end
+ Else //只Free指定的
+ begin
+ TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))).Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBClick
+ 引用相依：Image_Smooth, LoadFromFile
+ 方法描述：處理縮圖點擊事件，支援組合鍵選取。若按下 Shift 鍵則執行連選（PaintShape
+ 範圍選取）；若按下 Control 鍵則切換單選狀態；一般點擊則清除舊選取並重
+ 新標記。點擊後會從選取的縮圖載入原圖至主顯示區（ISB1），並視需要執行影像
+ 平滑化處理。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ISBClick(Sender : TObject);
+var
+ v,ln:Integer;
+begin
+ if (GetKeyState(VK_SHIFT) < 0) Then
+ begin
+ PaintShape(SelectISB,TImageScrollBox(Sender));
+ SelectISB := TImageScrollBox(Sender);
+ end
+ Else if (GetKeyState(VK_CONTROL) < 0) Then
+ begin
+ SelectISB := TImageScrollBox(Sender);
+ IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
+ PaintShape(SelectISB,nil)
+ else
+ FreeShapeobj(SelectISB);
+ end
+ Else
+ begin
+ FreeShapeobj(nil);
+ SelectISB := TImageScrollBox(Sender);
+ PaintShape(SelectISB,nil);
+ end;
+ GetSelectImageFile;
+
+ v := length(ISBName);
+ ln := length(SelectISB.Name);
+ SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
+ ISB1.ZoomMode := zmFittoPage;
+//ShowMessage('SelectISB.FileName='+SelectISB.FileName);
+ //if SelectISB.FileName='' then exit;
+
+ ISB1.LoadFromFile(SelectISB.FileName,1);
+ if (ISB1.Graphic.ImageFormat <> ifBlackWhite) and (SmoothCB.Checked)then
+ Image_Smooth(ISB1.Graphic);
+ ISB1.Redraw(True);
+ ISB1Click(ISB1);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBMouseMove
+ 引用相依：
+ 方法描述：處理縮圖區的滑鼠移動事件。當處於拖曳狀態且滑鼠移動至已選取的影像（有 S
+ P 標記）時，觸發組件的 BeginDrag 開始執行拖放操作。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ISBMouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+begin
+ //Edit1.SetFocus;
+ if Draging then
+ begin
+ if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ begin
+ SelectISB.BeginDrag(False);
+ Draging := False;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBImageMouseDown
+ 引用相依：LoadFromFile
+ 方法描述：處理縮圖預覽影像的滑鼠按下事件。當按下左鍵時，將 Draging 標記設為 True
+ 以利後續拖曳判斷。若未處於拖曳中，則根據是否按下 Shift 或 Control 鍵，
+ 執行範圍選取、加選或單選操作。選取後會更新 SelectPage，並在主顯示區（ISB
+ 1）同步載入對應的影像檔案。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISBImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+var
+ v,ln:Integer;
+begin
+ if Button = TMouseButton(mbLeft) Then
+ begin
+ Draging := True;
+ //if SelectISB <> nil then
+
+ //if not Draging then
+ //begin
+
+ end;
+ //end;
+
+ {if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ begin
+ //Showmessage('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)));
+ if (Button = TMouseButton(mbLeft)) and (GetKeyState(VK_CONTROL) >= 0) then
+ begin
+ if SelectISB <> nil then
+ SelectISB.BeginDrag(False);
+ end;
+ end;
+ //if (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ //begin
+ //else
+ //begin
+ if not Draging then
+ begin
+ if (GetKeyState(VK_SHIFT) < 0) Then
+ begin
+ PaintShape(SelectISB,TImageScrollBox(Sender));
+ SelectISB := TImageScrollBox(Sender);
+ end
+ Else if (GetKeyState(VK_CONTROL) < 0) Then
+ begin
+ SelectISB := TImageScrollBox(Sender);
+ IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
+ PaintShape(SelectISB,nil)
+ else
+ FreeShapeobj(SelectISB);
+ end
+ Else
+ begin
+ FreeShapeobj(nil);
+ SelectISB := TImageScrollBox(Sender);
+ PaintShape(SelectISB,nil);
+ end;
+ v := length(ISBName);
+ ln := length(SelectISB.Name);
+ SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
+ ISB1.ZoomMode := zmFittoPage;
+ ISB1.LoadFromFile(SelectISB.FileName,1);
+ ISB1Click(ISB1);
+ end;
+ //end;
+ //end
+ //Else
+ //begin
+
+ //end; }
+
+ {if (Button = TMouseButton(mbRight)) and (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
+ begin
+ //ISBClick(Sender);
+ end;
+ if (Button = TMouseButton(mbLeft)) then
+ begin
+
+ end; }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBImageMouseUp
+ 引用相依：
+ 方法描述：處理縮圖預覽影像的滑鼠放開事件，將拖曳標記 Draging 重置為 False。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISBImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+begin
+ Draging := False;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBEndDrag
+ 引用相依：
+ 方法描述：當影像拖放操作結束時，觸發 TreeView1Click 事件以更新樹狀結構與顯示介
+ 面。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISBEndDrag(Sender, Target: TObject; X, Y: Integer);
+begin
+ TreeView1Click(self);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBDragDrop
+ 引用相依：
+ 方法描述：執行縮圖拖放後的影像移動操作。根據來源與目標影像的原始掃描頁碼，呼叫 M
+ oveImage_Drag 調整檔案在目錄中的順序。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISBDragDrop(Sender, Source: TObject; X, Y: Integer);
+var
+ fp,tp : Integer;
+begin
+ fp := FileName2ScanPage(TimageScrollBox(Source).FileName);
+ tp := FileName2ScanPage(TimageScrollBox(Sender).FileName);
+ MoveImage_Drag(DisplayPath+NowDocDir+'\',fp,tp );
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISBDragOver
+ 引用相依：
+ 方法描述：判斷拖放操作是否可接受。僅在來源為影像組件、檔案路徑不同且樹狀結構選取
+ 在文件層級（Level 2）時，才允許執行拖放。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISBDragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+var
+ So : Boolean;
+begin
+ {if (TObject(Source) is TImageScrollBox) and (TObject(Sender) is TImageScrollBox) then
+ begin
+ Label3.Caption := TImageScrollBox(Source).FileName+#13+TImageScrollBox(Sender).FileName;
+ end; }
+
+ So := False;
+ if TObject(Source) is TImageScrollBox then
+ So := True;
+ Accept := True;
+ if not So
+ or (TImageScrollBox(Source).FileName = TImageScrollBox(Sender).FileName)
+ or (TreeView1.Selected.Level <> 2)
+ Then
+ Accept := False;
+end;
+
+
diff --git a/reassemble/bloc/caseManager.pas b/reassemble/bloc/caseManager.pas
new file mode 100644
index 0000000..f7d6d2e
--- /dev/null
+++ b/reassemble/bloc/caseManager.pas
@@ -0,0 +1,60 @@
+{ ==============================================================================
+ 方法名稱：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;
+
+
diff --git a/reassemble/bloc/entityMapping.pas b/reassemble/bloc/entityMapping.pas
new file mode 100644
index 0000000..d53f2d8
--- /dev/null
+++ b/reassemble/bloc/entityMapping.pas
@@ -0,0 +1,59 @@
+{ ==============================================================================
+ 方法名稱：BarCode2CaseID
+ 引用相依：
+ 方法描述：從目前掃瞄到的條碼清單中提取案件編號 (CaseID)。方法會遍歷條碼暫存對象
+ (MpsBarcodeinf)，並將第一個長度正好等於預設 CaseIDLength 的條碼值視
+ 為合法的案件編號返回。若遍歷結束仍未找到符合長度限制的條碼，則返回空字
+ 串。
+============================================================================== }
+Function TCB_IMGPSScanX.BarCode2CaseID : String; //Barcode依規則轉成CaseID
+var
+ i : Integer;
+ iCaseID : String;
+begin
+ Result := ''; //沒找到
+ iCaseID := '';
+ for i := 1 to MpsBarcodeinf.Count do //20180920 拿掉-1
+ begin
+ if (Length(MpsBarcodeinf.text[i]) = CaseIDLength) then
+ begin
+ iCaseID := MpsBarcodeinf.text[i];
+ Result := iCaseID;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：BarCode2FormID
+ 引用相依：
+ 方法描述：從目前掃瞄到的條碼清單中識別有效的表單代碼 (FormID)。方法會過濾長度符
+ 合 FormIDLength 的條碼，並呼叫 FormIDAppear 驗證其格式。若初步驗證通過
+ ，會進一步呼叫 FormIDExists 確認該代碼在系統中已註冊且可用。返回第一個
+ 完全符合條件的表單代碼，否則返回空。
+============================================================================== }
+Function TCB_IMGPSScanX.BarCode2FormID : String; //Barcode依規則轉成FormID
+var
+ i : Integer;
+ FormID : String;
+begin
+ Result := ''; //沒找到
+ FormID := '';
+ for i := 1 to MpsBarcodeinf.Count do
+ begin
+ if (Length(MpsBarcodeinf.Text[i]) = FormIDLength) then
+ begin
+ FormID := MpsBarcodeinf.text[i];
+ if not FormIDAppear(FormID) then
+ FormID := '';
+ end;
+ if (FormID <> '') and FormIDExists(FormID,False,0) then //有可用的FormID就離開
+ begin
+ Result := FormID;
+ Break;
+ end;
+ end;
+end;
+
+
diff --git a/reassemble/img/anchor.pas b/reassemble/img/anchor.pas
new file mode 100644
index 0000000..3a5fcb3
--- /dev/null
+++ b/reassemble/img/anchor.pas
@@ -0,0 +1,68 @@
+{ ==============================================================================
+ 方法名稱：GetSiteOMR
+ 引用相依：GetSiteOMR, FindPoint, Get_OMR, LoadFromFile
+ 方法描述：在指定影像文件的特定座標執行 OMR (光學標記辨識)。核心邏輯包含：
+ 1. 檢查並載入影像檔（若尚未載入），並呼叫 ClearLine 初始化黑白緩衝區。
+ 2. 讀取影像的 DPI 與寬高資訊。
+ 3. 使用 CM_Str2Rect 將 Site 字串轉為 TRect 矩陣，並參考定位點 (UpLPoi
+ nt) 進行位移計算。
+ 4. 限制辨識區域座標不超出影像邊界。
+ 5. 呼叫 Get_OMR 對黑白圖形緩衝區執行辨識並返回結果值（通常為 1 或 0）。
+ 此方法是自動化資料檢核的重要工具。
+============================================================================== }
+function TCB_IMGPSScanX.GetSiteOMR(FileName,Site:String;bt: Integer): Integer;
+var
+ OMRRect : TRect;
+ Xdpi,Ydpi : Integer;
+ W,H : Integer;
+begin
+ Result := 0;
+//ShowMessage('GetSiteOMR');
+
+ IF (ImageScrollBox1.FileName <> FileName) and (FileName <> '') then
+ begin
+//ShowMessage('11111'+ImageScrollBox1.FileName+#10#13+FileName);
+ ImageScrollBox1.LoadFromFile(FileName,1);
+{
+ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
+'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
+'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
+'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
+ FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');
+ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
+'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
+'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
+'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
+}
+ ClearLine(ISB_BW.Graphic,bt);
+ ISB_BW.Redraw(True);
+ Application.ProcessMessages;
+ end;
+ If ImageScrollBox1.FileName <> '' Then
+ begin
+
+//ShowMessage('22222'+ImageScrollBox1.FileName);
+ Xdpi := ImagescrollBox1.Graphic.XDotsPerInch;
+ Ydpi := ImagescrollBox1.Graphic.YDotsPerInch;
+ H := ImageScrollBox1.Graphic.Height;
+ W := ImageScrollBox1.Graphic.Width;
+//ShowMessage('Xdpi='+IntToStr(Xdpi)+#10#13+'Ydpi='+IntToStr(Ydpi)+#10#13+'H='+IntToStr(H)+#10#13+'W='+IntToStr(W)+#10#13);
+//ShowMessage('Site='+Site);
+ OMRRect := CM_Str2Rect(Site,Xdpi,UpLPoint);
+Display1.Lines.Add('UpLPoint=('+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+');'+Site+';'+IntToStr(OMRRect.Left)+','+IntToStr(OMRRect.top)+','+IntToStr(OMRRect.Right)+','+IntToStr(OMRRect.Bottom));
+ if OMRRect.Left < 0 then
+ OMRRect.Left := 0;
+ if OMRRect.Top < 0 then
+ OMRRect.Top := 0;
+ if OMRRect.Right > ImageScrollBox1.Graphic.Width then
+ OMRRect.Right := ImageScrollBox1.Graphic.Width;
+ if OMRRect.Bottom > ImageScrollBox1.Graphic.Height then
+ OMRRect.Bottom := ImageScrollBox1.Graphic.Height;
+
+ result := Get_OMR(ISB_BW.Graphic,OMRRect);
+//ShowMessage('result='+IntToStr(result));
+
+ end;
+end;
+
+
diff --git a/reassemble/img/transformer.pas b/reassemble/img/transformer.pas
new file mode 100644
index 0000000..bab1317
--- /dev/null
+++ b/reassemble/img/transformer.pas
@@ -0,0 +1,165 @@
+{ ==============================================================================
+ 方法名稱：ImageReSize_FormID
+ 引用相依：ImageReSize_FormID, FindPoint, CheckSize, LoadFromFile, SaveToFile,
+ FileExists, LoadFileGetMD5
+ 方法描述：根據表單的十字定位點或邊框 (ANCHOR/FRAME) 對掃瞄影像進行縮放調整。流
+ 程如下：
+ 1. 從 FORM_INF_List 取得表單預設高寬與定位類型。
+ 2. 載入對應案件下的影像檔，若為補件模式則跳過原有圖檔。
+ 3. 呼叫 FindPoint 尋找影像中的十字線或邊框。
+ 4. 呼叫 CheckSize 計算偏移與縮放比例。
+ 5. 呼叫 ImageResize 執行實際調整。
+ 6. 成功縮放後，記錄檔案 MD5 並儲存更新後的影像，同時將操作記錄寫入 ReS
+ ize.dat；若定位點遺失或辨識錯誤，則記錄於 AnchorError.dat。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放
+var
+ FormID : String;
+ DH,DW : String;
+ NowW,NowH : Integer;
+ ANCHOR : String; //是否有十字線
+ SizeStr : String;
+ S : TStringlist;
+ v,v1:Integer;
+ IsRecordMD5:Boolean;
+begin
+ IsRecordMD5:=False;
+ FormID := FileName2FormCode(FileName);
+ if FormID = '' then Exit;
+
+ IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
+ begin
+ DH := GetFindResult('T1.FORM_HEIGHT');
+ DW := GetFindResult('T1.FORM_WIDTH');
+ ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
+ ANCHOR := Index2Anchor(ANCHOR);
+Display1.Lines.Add(FormID+','+DH+','+DW);
+//ShowMessage('AAAAAAAAA');
+ if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
+ begin
+//ShowMessage('BBBBBBB');
+ ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);
+
+ if (FWH_category='N') and ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName) then
+ begin
+ Exit;//20171103 補件 原有的圖不作resize
+ end;
+
+ //FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH);
+ FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
+
+ SizeStr := CheckSize(ISB_BW,UpLPoint,UpRPoint,DownLPoint,DW,DH);
+ ImageResize(ImageScrollBox1.Graphic,ISB_BW.Graphic.Width,ISB_BW.Graphic.Height);
+
+ FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
+ v := 5;
+ v1 := length(SizeStr);
+ IF (SizeStr <> '') and (Copy(SizeStr,1,v) <> 'ERROR') then
+ begin
+//ShowMessage('CCCCC');
+ if (ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName)) and (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName))=-1) then
+ begin
+ IsRecordMD5:=True;
+ end;
+ ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);
+ if IsRecordMD5 then
+ begin
+ reSizeExistImgList.add(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName));
+ end;
+//showmessage(ImageSavePath+CaseID+'\Upload\'+FileName);
+ S := TStringlist.Create; ///20110422拿掉 換成上傳才做
+ if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then
+ S.LoadFromFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
+ //S.Add(FormCode2FormName(FormID)+' '+SizeStr);
+ S.Add(FileName+','+SizeStr+#8+DateTimetoStr(Now));
+ S.SaveToFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
+ S.Free;
+ end;
+ if (Copy(SizeStr,1,v) = 'ERROR') then //未找到三個定位點
+ begin
+ S := TStringlist.Create;
+ if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
+ S.LoadFromFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
+ S.Add(FileName+'-->'+Copy(SizeStr,V+1,V1-v));
+ S.SaveToFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
+ S.Free;
+ end;
+
+ ImageScrollBox1.FileName := '';
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ImageReSize_tmp
+ 引用相依：ImageReSize_tmp, CheckSize, LoadFromFile, SaveToFile
+ 方法描述：針對暫存影像檔案執行十字定位點縮放處理。此方法是 ImageReSize_FormID
+ 的簡化版本，主要針對暫存檔 (FileName) 與指定的 FormID。邏輯包含從資料
+ 庫清單查詢表單尺寸與定位模式，若符合 ANCHOR 或 FRAME 類型，則載入影像
+ 並呼叫 CheckSize 檢查是否需要調整。若偵測到影像存在偏移或比例差異（Siz
+ eStr 非空），則將調整後的影像直接覆蓋儲存回原始路徑。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔)
+var
+ DH,DW : String;
+ ANCHOR : String; //是否有十字線
+ SizeStr : String;
+ S : TStringlist;
+begin
+ IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
+ begin
+ DH := GetFindResult('T1.FORM_HEIGHT');
+ DW := GetFindResult('T1.FORM_WIDTH');
+ ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
+ ANCHOR := Index2Anchor(ANCHOR);
+ if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
+ begin
+ ImageScrollBox1.LoadFromFile(FileName,1);
+ SizeStr := CheckSize(ImageScrollBox1,UpLPoint,UpRPoint,DownLPoint,DW,DH);
+ IF SizeStr <> '' then
+ begin
+ ImageScrollBox1.SaveToFile(FileName);
+ end;
+ ImageScrollBox1.FileName := '';
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckNeedCrop
+ 引用相依：TDibGraphic, CheckNeedCrop
+ 方法描述：判斷掃瞄影像是否為 A3 尺寸並需要進行切割（Crop）。判定邏輯有二：首先，檢
+ 查影像寬度是否大於 4 倍的 DPI 閥值，藉此初步判斷為大尺寸掃瞄件；其次，
+ 遍歷目前的條碼清單 (MpsBarcodeinf)，統計有效的表單代碼 (FormID) 數量。
+ 如果影像寬度達標且有效表單數量正好為 2，則返回 True。這代表此張大圖實
+ 際上是由兩份 A4 表單併排掃瞄而成，後續需依此旗標進行影像分割處理。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
+Var
+ i,FormIDCount : Integer;
+begin
+ Result := False;
+ FormIDCount := 0;
+ if (Graphic.Width > (4 * Graphic.XDotsPerInch)) {or (Graphic.Height > (15 * Graphic.YDotsPerInch))} then
+ //if (Graphic.Width > (6 * Graphic.XDotsPerInch)) then
+ begin
+ for I := 1 to MpsBarcodeinf.Count do
+ begin
+ if (Length(MpsBarcodeinf.Text[i])=FormIDLength) and FormIDExists(MpsBarcodeinf.Text[i],False,0) then
+ begin
+ inc(FormIDCount);
+ end;
+ end;
+
+ end;
+
+//ShowMessage('FormIDCount='+IntToStr(FormIDCount)+#10#13+'MpsBarcodeinf.count='+IntToStr(MpsBarcodeinf.count));
+ if FormIDCount = 2 then
+ begin
+ Result := True;
+ end;
+end;
+
+
diff --git a/reassemble/scan/twain.pas b/reassemble/scan/twain.pas
new file mode 100644
index 0000000..605cbd3
--- /dev/null
+++ b/reassemble/scan/twain.pas
@@ -0,0 +1,880 @@
+{ ==============================================================================
+ 方法名稱：StatrTwainScan
+ 引用相依：TTiffGraphic, StatrTwainScan, Scanner, Scanner.OpenSource, Scanner.C
+ loseSource, OnAcquire, Scanner.AcquireWithSourceOpen
+ 方法描述：啟動 TWAIN 掃瞄流程。此方法首先檢查掃瞄器驅動是否已安裝，接著初始化 Sc
+ anInfo 結構並設定掃瞄參數（如 DPI、影像格式、是否顯示 UI、雙面掃瞄模式、
+ 亮度與對比）。流程中會開啟掃瞄來源，呼叫 AcquireWithSourceOpen 執行實際
+ 掃瞄作業，並利用 try...finally 確保不論掃瞄成功與否，最終都會關閉掃瞄
+ 來源並釋放資源。
+============================================================================== }
+procedure TCB_IMGPSScanX.StatrTwainScan;
+var ScanInfo : TScanInfo;
+ i : Integer;
+begin
+ if not Scanner.IsConfigured then
+ begin
+ ShowMessage(_Msg('TWAIN 掃瞄驅動尚未安裝'));
+ Exit;
+ end;
+ FillChar(ScanInfo, SizeOf(ScanInfo), 0);
+ ScanInfo.MultiPage := True;
+ ScanInfo.ImageCount := 0;
+ ScanInfo.Graphic := TTiffGraphic.Create;
+ try
+ ISB := nil; //規零
+//ShowMessage(IntToStr(ScanDpi));
+ Scanner.RequestedXDpi := ScanDpi;
+ Scanner.RequestedYDpi := ScanDpi;
+ Scanner.RequestedImageFormat := ScanColor;
+ Scanner.ShowUI := TwainShowUI;
+
+ Try
+ Scanner.OpenSource;
+ Scanner.Duplex := ScanDuplex; //雙面
+
+ if FMode='SAMPLESCAN' then
+ Scanner.Duplex:=False;
+
+ //Scanner.FEEDERENABLED := not ScanFlatCB.Checked; // 先拿掉平台
+ If ScanImgSetUse Then
+ begin
+ Scanner.ScanBrightness := ScanBright;
+ Scanner.ScanContrast := ScanContrast;
+ end;
+ except
+ Showmessage(_Msg('掃瞄器發生錯誤!!'));
+ Scanner.CloseSource;
+ Exit;
+ end;
+ try
+ Try
+ Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));
+ Except
+ Scanner.CloseSource;
+ end;
+ finally
+ Scanner.CloseSource;
+ end;
+ finally
+ Scanner.CloseSource;
+ ScanInfo.Graphic.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：OnAcquire
+ 引用相依：TTiffGraphic, TJpegGraphic, OnAcquire
+ 方法描述：掃瞄影像獲取後的回呼處理函數。核心邏輯包含：
+ 1. 將獲取的 DIB 句柄轉為影像對象並設定 DPI。
+ 2. 依影像格式執行對應處理：黑白影像會進行條碼辨識、依條碼角度旋轉、影像
+ 反向、傾斜矯正及清黑邊；全彩或灰階影像則設定 JPEG 壓縮品質。
+ 3. 檢查是否需要進行 A3 切割為 A4 的處理。
+ 4. 透過 Deletepage 檢查並過濾空白頁（依據檔案大小）。
+ 5. 對於有效影像，更新 UI 顯示並呼叫 PageEnd 決定儲存路徑與檔名，最後依
+ 副檔名儲存為 TIFF 或 JPEG 並呼叫 PageDone 完成頁面流程。
+============================================================================== }
+procedure TCB_IMGPSScanX.OnAcquire( const DibHandle : THandle;
+ const XDpi : Word;
+ const YDpi : Word;
+ const CallBackData : LongInt );
+var
+ pScanInfo : TpScanInfo;
+ SaveFileName : String;
+ SaveStream : TFileStream;
+ strResults : TBarcodeStringResult;
+ DeleteStm : TMemoryStream;
+ isDelete : Boolean;
+ iGraphic,iGraphic_First,iGraphic_sec : TTiffGraphic;
+ iRect : TRect;
+ JpgGr : TJpegGraphic;
+ i : Integer;
+ TagTxt : String;
+ function Deletepage(Graphic:TDibGraphic;BlankSize:Integer):Boolean;
+ begin
+ DeleteStm := TMemoryStream.Create;
+ DeleteStm.Seek(0,soFromBeginning);
+ Graphic.AppendToStream(DeleteStm);
+
+ //DeleteStm.LoadFromFile(Path+'temp.tif');
+ //Isb1.Graphic.SaveToStream(DeleteStm);
+ //Isb1.Graphic.AppendToStream(DeleteStm);
+ if DeleteStm.Size < BlankSize Then
+ Result:= True
+ Else
+ Result := False;
+
+ DeleteStm.Free;
+ //DeleteFile(Path+'temp.tif');
+ end;
+begin
+ pScanInfo := TpScanInfo(CallBackData);
+ isDelete := False;
+
+ if pScanInfo^.MultiPage then
+ begin
+ pScanInfo^.Graphic.AssignFromDibHandle(DibHandle);
+ pScanInfo^.Graphic.XDotsPerInch := XDpi;
+ pScanInfo^.Graphic.YDotsPerInch := YDpi;
+ TagTxt := 'height:'+inttostr(pScanInfo^.Graphic.Height)+',width:'+inttostr(pScanInfo^.Graphic.Width);
+ if pScanInfo^.Graphic.ImageFormat = ifBlackWhite then
+ begin
+ ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
+ ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+
+ pScanInfo^.Graphic.Compression := tcGroup4;
+ MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf);
+ For i := 1 to MpsBarcodeinf.count do
+ begin
+ If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
+ begin
+ Rotate(pScanInfo^.Graphic,MpsBarcodeinf.r180[i]);
+ MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
+ Break;
+ end;
+ end;
+
+ //影像反向
+ IF ScannerReverse then
+ NegativeImg(pScanInfo^.Graphic);
+ //傾斜矯正
+ IF ScanDeskew Then
+ DeskewImg(pScanInfo^.Graphic);
+ //清黑邊
+ IF BoardClear then
+ CleanupBorder(pScanInfo^.Graphic);
+ end
+ else if pScanInfo^.Graphic.ImageFormat = ifTrueColor then
+ begin
+ //Ext := '.jpg';
+ ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
+ //ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
+ For i := 1 to MpsBarcodeinf.count do
+ begin
+ If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
+ begin
+ Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
+ Break;
+ end;
+ end;
+ pScanInfo^.Graphic.Compression := tcJpeg;
+ pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+ end
+ else if pScanInfo^.Graphic.ImageFormat = ifColor256 Then
+ begin
+ //Ext := '.jpg';
+ ConvertToGray(pScanInfo^.Graphic);
+ pScanInfo^.Graphic.Compression := tcJpeg;
+ pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+ end
+ else if pScanInfo^.Graphic.ImageFormat = ifGray256 Then
+ begin
+ //Ext := '.jpg';
+ ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
+ ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
+ For i := 1 to MpsBarcodeinf.count do
+ begin
+ If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
+ begin
+ Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
+ Break;
+ end;
+ end;
+ pScanInfo^.Graphic.Compression := tcJpeg;
+ pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+//ShowMessage(IntToStr(pScanInfo^.Graphic.JpegQuality));
+//if pScanInfo^.Graphic.Compression = tcJpeg then
+//begin
+//ShowMessage('jpg');
+//end;
+
+ end
+ else
+ begin
+ //Ext := '.tif';
+ pScanInfo^.Graphic.Compression := tcPackBits;
+ end;
+
+ end;
+ //Application.ProcessMessages;
+ iGraphic_First := TTiffGraphic.Create;
+ iGraphic_sec := TTiffGraphic.Create;
+ //iGraphic := TTiffGraphic.Create;
+ try
+ iGraphic_First.Assign(pScanInfo^.Graphic);
+ //Application.ProcessMessages;
+ if CheckNeedCrop(iGraphic_First) Then
+ begin
+ iRect.Left := pScanInfo^.Graphic.Width div 2; //先取左邊的影像
+ iRect.Top := 0;
+ iRect.Right := pScanInfo^.Graphic.Width;
+ iRect.Bottom := pScanInfo^.Graphic.Height;
+ CropImg(iGraphic_First,iRect);
+
+ iGraphic_Sec.Assign(pScanInfo^.Graphic); //再取右邊的影像
+ iRect.Left := 0;
+ iRect.Top := 0;
+ iRect.Right := pScanInfo^.Graphic.Width div 2;
+ iRect.Bottom := pScanInfo^.Graphic.Height;
+ CropImg(iGraphic_Sec,iRect);
+ end;
+ //iGraphic.Assign(iGraphic_First);
+ iGraphic := iGraphic_First;
+
+ if iGraphic.ImageFormat=ifGray256 then //20180104
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+ if iGraphic.ImageFormat=ifTrueColor then //20180104
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+
+//ShowMessage('WTF');
+ while not iGraphic.IsEmpty do
+ begin
+ //Application.ProcessMessages;
+ IF (not DeviceDelete) or (not Deletepage(iGraphic,DeviceDeleteSize)) Then
+ begin
+ ImageScrollBox1.Graphic.Assign(iGraphic);
+ ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
+
+ MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
+ For i := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If MpsBarcodeinf.r180[i] <> 0 Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[i]);
+ Break;
+ End;
+ End;
+
+ if iGraphic.ImageFormat=ifGray256 then //20180104 因此旋轉後變為回packbits 所以要改為jpeg
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+ if iGraphic.ImageFormat=ifTrueColor then
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=FJpgCompression;
+ end;
+ PageEnd;
+ IF PEFileName <> '' Then
+ begin
+ IF LowerCase(ExtractFileExt(PEFileName)) = '.tif' Then
+ begin
+ if FileExists( PEFileName ) then
+ SaveStream := TFileStream.Create( PEFileName ,fmOpenReadWrite)
+ Else
+ SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ try
+ SaveStream.Seek(0, soFromBeginning);
+ iGraphic.AppendToStream(SaveStream);
+ finally
+ SaveStream.Free;
+ end;
+ end
+ Else IF LowerCase(ExtractFileExt(PEFileName)) = '.jpg' Then
+ begin
+ if FileExists( PEFileName ) then
+ DeleteFile(PEFileName);
+ //SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ JpgGr := TJpegGraphic.Create;
+ try
+ JpgGr.Assign(iGraphic);
+ JpgGr.SaveQuality := FJpgCompression;
+ //JpgGr.AppendToStream(SaveStream);
+ JpgGr.SaveToFile(PEFileName);
+ finally
+ JpgGr.Free;
+ //SaveStream.Free;
+ end;
+ end;
+ PageDone;
+ end;
+ end;
+ if iGraphic = iGraphic_First then
+ iGraphic := iGraphic_Sec
+ else
+ iGraphic.Assign(nil);
+ //iGraphic.Assign(iGraphic_Sec);
+ end;
+ finally
+ //iGraphic.Free;
+ iGraphic_First.Free;
+ iGraphic_Sec.Free;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PageDone
+ 引用相依：LoadFromFile, PageDone
+ 方法描述：完成單頁影像處理後的 UI 更新邏輯。此方法會遞增掃瞄影像總計數，並根據目
+ 前的掃瞄模式（新建、取代、插入或取樣）將儲存好的影像檔載入到對應的 Image
+ ScrollBox 元件中。在新建模式下，還會根據 ScanImgShowMode 設定決定影像
+ 顯示的品質（反鋸齒開啟與否）與縮放模式（zmFittopage），確保使用者能即時預
+ 覽掃瞄結果。
+============================================================================== }
+procedure TCB_IMGPSScanX.PageDone;
+Var
+ ISB,NowISB : TImageScrollBox;
+begin
+ inc(Scaninfo.ImageCount);
+ case ScanMode of
+ smNew:
+ begin
+ if ScanImgShowMode = 0 then //清楚顯示
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.AntiAliased := True;
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end
+ Else if ScanImgShowMode = 1 then //模糊顯示
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.AntiAliased := False;
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end
+ Else if ScanImgShowMode = 1 then //不顯示
+ begin
+
+ end
+ end;
+ smReplace:
+ begin
+ DisplayISB.LoadFromFile(PEFileName,1);
+ end;
+ smInsert:
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end;
+ smSample:
+ begin
+ ISB := FindISB2View(VMode);
+ ISB.ZoomMode := zmFittopage;
+ ISB.LoadFromFile(PEFileName,1);
+ end;
+ smRTS:
+ begin
+
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PageEnd
+ 引用相依：GetNoNameCase, DirectoryExists, _DelTree, Str2Dir, SaveToFile, PageE
+ nd
+ 方法描述：管理掃瞄影像的儲存路徑與檔案命名規則。主要邏輯如下：
+ 1. 辨識條碼以取得 FormID，並判斷是否為導引頁或分案頁。
+ 2. 若偵測到分案頁，會重置計數並嘗試取得新的案件編號（CaseID）。
+ 3. 確定儲存目錄，包含處理「分份數」邏輯（依 DocNoNeedDiv 決定是否建立新
+ 子目錄）。
+ 4. 根據目前頁數與 FormID 產生標準化的檔名（如補零序號_FormID.tif）。
+ 5. 更新 ContextList（影像索引資訊）並在掃瞄新案件時更新 TreeView UI 結
+ 構。此方法確保每張影像都能正確歸類到對應的案件與文件目錄下。
+============================================================================== }
+procedure TCB_IMGPSScanX.PageEnd;
+Var
+ i,n : Integer;
+ SampleFormID : String;
+ DocNo,FormID,FormVersion : String;
+ BarStr : String;
+begin
+ case ScanMode of
+ smNew:
+ begin
+ ScanSaveFilename := '';
+ DocNo:='';
+ FormID:='';
+ FormVersion:='';
+ PEFileName := '';
+ //if not FindNoSaveBarCode then //沒有不儲存影像的條碼
+ //begin
+ if FormID = '' then
+ begin
+ FormID := BarCode2FormID; //取出FormID
+ end;
+
+ if (FormID <> '') and ISDivPageFormID(FormID) then
+ begin
+ NowDivPageFormID := FormID;
+ end;
+
+ if (FormID <> '') and ISGuideFormID(FormID) then
+ begin
+ NowGuideFormID := FormID;
+ end;
+//ShowMessage('NowGuideFormID='+NowGuideFormID);
+ if (not (FindDivFormCode(FormID))) and (NowGuideFormID <> '') {and (FormID = '')} then
+ FormID := NowGuideFormID;
+ DocNo := FormCode2DocNo(FormID);
+//ShowMessage('FormID='+FormID);
+//ShowMessage('ISDivPageFormID(FormID)='+BoolToStr(ISDivPageFormID(FormID),true));
+//ShowMessage('FindDivFormCode(FormID)='+BoolToStr(FindDivFormCode(FormID),true));
+//ShowMessage('A NowDivPageFormID='+NowDivPageFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
+ if (FormID <>'') and FindDivFormCode(FormID) and (NowDivPageFormID <> '') Then //只找分案頁上的案件條碼
+ begin
+
+ ScanInfo.ImageCount := 0;
+ ClearView(1);
+ ContextList.Clear;
+ Context_DocnoList.Clear;
+ ClearCaseIndex; //清掉案件索引
+ ScanCaseno := BarCode2CaseID; //取出案件編號
+ NowGuideFormID := '';
+ NowDivPageFormID :='';
+//ShowMessage('B NowGuideFormID='+NowGuideFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
+ end;
+ if ScanCaseno = '' then //一開始都沒找到
+ begin
+ ScanCaseno := GetNoNameCase(ImageSavePath);
+ end;
+ ImageSavePath := ImagePath;
+ if (ScanInfo.ImageCount = 0) then
+ begin
+ if DirectoryExists(ImageSavePath + ScanCaseno+'\') then
+ begin
+ _DelTree(ImageSavePath + ScanCaseno+'\');
+ SetCaseList('D',-1,ScanCaseno);
+ end;
+ end;
+
+ ScanPath := ImageSavePath+ScanCaseno+'\';
+ Str2Dir(ScanPath);
+
+ ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
+//ShowMessage('AA ScanDocDir='+ScanDocDir);
+
+//ShowMessage('BB ScanDocDir='+ScanDocDir);
+ if DocNoNeedDiv(DocNo)then //要分份數
+ begin
+ //Showmessage(DocNo+#13+FormCode2Page(FormID)+#13+inttostr(GetDocDir_Page(ScanCaseno,ScanDocDir))+#13+ScanDocDir);
+ if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
+ begin
+ //ScanInfo.ImageCount := 0;
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ end
+ Else //不分份數
+ begin
+ if DocNo <> '' then
+ ScanDocDir := DocNo
+ else //Attach 附件
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ //ScanDocDir := GetDocNoDir(ImageSavePath+ScanCaseno+'\',DocNo);
+ if FirstDocDir = '' then
+ FirstDocDir := ScanDocDir;
+
+ ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
+ //Showmessage(ScanPath);
+ if (not DirectoryExists(ScanPath)) and (ScanDocdir <> AttName) then
+ begin
+ //Showmessage('ADD:'+ScanCaseno+','+ScanDocdir);
+ SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
+ end;
+ Str2Dir(ScanPath);
+
+
+ ScanSaveFilename := FormID;
+
+ Str2Dir(ScanPath);
+ if ScanSaveFilename = '' then //附件
+ ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+ext
+ //ScanSaveFilename:= Add_Zoo(ScanInfo.ImageCount+1,3)+ext
+ Else
+ ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+'_'+ScanSaveFilename+ext;
+ if not FindNoSaveBarCode then //沒有不儲存影像的條碼
+ begin
+ if ScanInfo.ImageCount = 0 then
+ begin
+ SetCaseList('A',-1,ScanCaseno);
+ WriteCaseIndex(ImageSavePath + ScanCaseno+'\'); //寫入案件索引
+ MyTreeNode1 := TreeView1.Items.AddChild(NewTreenode,ScanCaseno);
+ MyTreenode1.ImageIndex := 2;
+ MyTreenode1.SelectedIndex := 2;
+ Application.ProcessMessages;
+ end;
+
+ SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
+ //ContextList.Add(ScanSaveFilename);
+ //ContextList.SaveToFile(ScanPath+'Context.dat');
+
+ PEFileName := ScanPath+ScanSaveFilename;
+ end;
+ end;
+ smReplace:
+ begin
+ if ScanInfo.ImageCount = 0 then
+ begin
+ DeleteFile(ScanPath+ScanSaveFilename);
+ PEFileName := ScanPath+ScanSaveFilename;
+ end;
+ end;
+ smInsert:
+ begin
+ ScanSaveFilename := '';
+ FormID := BarCode2FormID; //取出FormID
+ if (FormID <> '') and ISGuideFormID(FormID) then //20170510 註解 因為DSCAN 會全擠在導引頁下
+ NowGuideFormID := FormID;
+ if (NowGuideFormID <> '') {and (FormID = '')} then //20170510 註解 因為DSCAN 會全擠在導引頁下
+ FormID := NowGuideFormID;
+ DocNo := FormCode2DocNo(FormID);
+ ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
+
+ if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then //20180207 加入的特殊邏輯
+ begin
+ ScanDocDir := FindLastestDocDirForPage(ScanCaseno, DocNo,FormID);
+ end;
+
+ if (DocNoNeedDiv(DocNo)) then //要分份數
+ begin
+ if TreeView1.Selected = MyTreeNode1 then //20170421 掃瞄插頁時選則在案號上才要分份數 選在FormID上就不分份數
+ begin
+ if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
+ begin
+ ScanInfo.ImageCount := 0;
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ end;
+ end
+ Else //不分份數
+ begin
+ if DocNo <> '' then
+ ScanDocDir := DocNo
+ else //Attach 附件
+ ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
+ end;
+ if FirstDocDir = '' Then
+ FirstDocDir := ScanDocDir;
+
+ ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
+ if (not DirectoryExists(ScanPath)) and (ScanDocdir <> 'Attach') and (ScanDocdir <> 'S_Attach') then
+ SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
+
+
+ ScanSaveFilename := FormID;
+ Str2Dir(ScanPath);
+ if ScanSaveFilename = '' then //附件
+ ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+ext
+ Else
+ ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+'_'+ScanSaveFilename+ext;
+ //ContextList.Add(ScanSaveFilename);
+ //ContextList.SaveToFile(ScanPath+'Context.dat');
+ SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
+ //Showmessage(ScanPath+ScanSaveFilename);
+ //Showmessage('Stop');
+ PEFileName := ScanPath+ScanSaveFilename;
+ end;
+ smSample:
+ begin
+ if ScanInfo.ImageCount = 0 then
+ begin
+ DeleteFile(ScanPath+ScanSaveFilename);
+ PEFileName := ScanPath+ScanSaveFilename;
+ BarStr := '';
+ for i := 1 to MpsBarCodeinf.Count do
+ begin
+ BarStr := BarStr + MpsBarCodeinf.Text[i];
+ end;
+ Showmessage(_Msg('辨識到的BarCode:')+#13+BarStr);
+ end;
+ end;
+ smRTS:
+ begin
+
+ end;
+ end;
+ Application.ProcessMessages;
+
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：R_W_Scanini
+ 引用相依：Scanner
+ 方法描述：讀取或寫入掃瞄設定檔（FBScan.ini）。此方法使用 Tinifile 物件處理掃瞄相
+ 關參數的 I/O 作業。當 Mode 為 'R' 時，從設定檔讀取包含空白頁刪除設定、
+ 影像反向、清黑邊、旋轉角度、傾斜矯正、亮度對比以及 UI 顯示模式等參數；當
+ Mode 為 'W' 時，則將目前的系統變數值回寫至設定檔中，以利下次啟動時恢復
+ 使用者的個性化設定。
+============================================================================== }
+Procedure TCB_IMGPSScanX.R_W_Scanini(Mode:Char); //'R'讀取;'W'寫入
+var
+ ini : Tinifile;
+begin
+ ini := Tinifile.Create(ScaniniPath+'FBScan.ini');
+ try
+ case Mode of
+ 'R':begin
+ DeviceDelete := ini.ReadBool('DeviceDelete','Mode',Def_DeviceDelete);
+ DeviceDeleteSize := ini.ReadInteger('DeviceDelete','Size_New',Def_DeviceDeleteSize);
+ ScannerReverse := ini.ReadBool('Scanner','Reverse',Def_ScannerReverse);
+ BoardClear := ini.ReadBool('Scanner','BoardClear',Def_BoardClear);
+ //ScanDpi := ini.ReadInteger('Scanner','Dpi',Def_ScanDpi);
+ //ScanDuplex := ini.ReadBool('Scanner','Duplex',Def_ScanDuplex);
+ ScanRotate := ini.ReadInteger('Scanner','ScanRotate',Def_ScanRotate);
+ ScanDeskew := ini.ReadBool('Scanner','ScanDeskew',Def_ScanDeskew);
+ ScanBright := ini.ReadInteger('Scanner','ScanBright',Def_ScanBright);
+ ScanContrast := ini.ReadInteger('Scanner','ScanContrast',Def_ScanContrast);
+ ScanImgShowMode := ini.ReadInteger('Scanner','ScanImgShowMode',Def_ScanImgShowMode);
+ ScanImgSetUse := ini.ReadBool('Scanner','ScanImgSetUse',Def_ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
+ end;
+ 'W':begin
+ ini.WriteBool('DeviceDelete','Mode',DeviceDelete);
+ ini.WriteInteger('DeviceDelete','Size_New',DeviceDeleteSize);
+ ini.WriteBool('Scanner','Reverse',ScannerReverse);
+ ini.WriteBool('Scanner','BoardClear',BoardClear);
+ //ini.ReadInteger('Scanner','Dpi',ScanDpi);
+ //ini.WriteBool('Scanner','Duplex',ScanDuplex);
+ ini.WriteInteger('Scanner','ScanRotate',ScanRotate);
+ ini.WriteBool('Scanner','ScanDeskew',ScanDeskew);
+ ini.WriteInteger('Scanner','ScanBright',ScanBright);
+ ini.WriteInteger('Scanner','ScanContrast',ScanContrast);
+ ini.WriteInteger('Scanner','ScanImgShowMode',ScanImgShowMode);
+ ini.WriteBool('Scanner','ScanImgSetUse',ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
+ end;
+ end;
+
+ finally
+ ini.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDefScanIni
+ 引用相依：Rotate, FJpgCompression, Scanner
+ 方法描述：從資料庫參數清單（WORK_INF_List）初始化並設定掃瞄的系統預設值。流程首先
+ 設定一組程式內建的預設數值，隨後遍歷 WORK_INF_List 並比對 PARA_NO 關
+ 鍵字，動態更新包含：空白頁判斷大小、影像是否反相、清黑邊、掃瞄 DPI、雙面掃
+ 瞄開啟、影像旋轉角度、傾斜矯正、亮度對比、影像儲存路徑、導引頁與分案頁代
+ 碼列表、以及 JPEG 壓縮品質等關鍵參數。這使得掃瞄行為可以透過後台設定進
+ 行彈性調整。
+============================================================================== }
+Procedure TCB_IMGPSScanX.GetDefScanIni; //取得掃瞄的預設值
+var
+ i : Integer;
+ PARA_NO,PARA_CONTENT: String;
+begin
+ Def_DeviceDelete := True;
+ Def_DeviceDeleteSize := 3072; //20120821 改成3000(出現)
+ Def_ScannerReverse := False;
+ Def_BoardClear := False;
+ Def_ScanDpi := 300;
+ Def_ScanDuplex := True;
+ Def_ScanRotate := 0;
+ Def_ScanDeskew := False;
+ Def_ScanImgSetUse := False;
+ Def_ScanBright := 0;
+ Def_ScanContrast := 0;
+ Def_ScanImgShowMode := 2;
+
+ for i := 0 to WORK_INF_List.Count - 1 do
+ begin
+ IF GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_USE' Then //空白頁啟動
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_DeviceDelete := True
+ Else
+ Def_DeviceDelete := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_SIZE' Then //空白頁Size
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '' then
+ Def_DeviceDeleteSize := 0
+ Else
+ Def_DeviceDeleteSize := Strtoint(PARA_CONTENT);
+
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_REVERSE' Then //是否需反相
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScannerReverse := True
+ Else
+ Def_ScannerReverse := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BOARDCLEAR' Then //是否清黑邊
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_BoardClear := True
+ Else
+ Def_BoardClear := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DPI' Then //掃瞄DPI
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '' then
+ Def_ScanDpi := 300
+ else
+ Def_ScanDpi := Strtoint(PARA_CONTENT);
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DUPLEX' Then //是否雙面掃瞄
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScanDuplex := True
+ Else
+ Def_ScanDuplex := False;
+
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_ROTATE_MODE' Then //掃瞄時旋轉角度
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '0' then
+ Def_ScanRotate := 0
+ Else if PARA_CONTENT = '1' then
+ Def_ScanRotate := 270
+ Else if PARA_CONTENT = '2' then
+ Def_ScanRotate := 180
+ Else if PARA_CONTENT = '3' then
+ Def_ScanRotate := 90
+ Else
+ Def_ScanRotate := 0;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DESKEW' Then //是否傾斜矯正
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScanDeskew := True
+ Else
+ Def_ScanDeskew := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_IMGSET_USE' Then //是否使用亮度對比設定
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if UpperCase(PARA_CONTENT) ='Y' then
+ Def_ScanImgSetUse := True
+ else
+ Def_ScanImgSetUse := False;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BRIGHT' Then //亮度
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT ='' then
+ Def_ScanBright := 0
+ Else
+ Def_ScanBright := strtoint(PARA_CONTENT);
+ if (Def_ScanBright > 255) or (Def_ScanBright < -255) then
+ Def_ScanBright := 0;
+
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_CONTRAST' Then //對比
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT ='' then
+ Def_ScanContrast := 0
+ Else
+ Def_ScanContrast := strtoint(PARA_CONTENT);
+ if (Def_ScanContrast > 255) or (Def_ScanContrast < -255) then
+ Def_ScanContrast := 0;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_SHOW_MODE' Then
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ if PARA_CONTENT = '0' then
+ Def_ScanImgShowMode := 0
+ Else if PARA_CONTENT = '1' then
+ Def_ScanImgShowMode := 1
+ Else if PARA_CONTENT = '2' then
+ Def_ScanImgShowMode := 2
+ Else
+ Def_ScanImgShowMode := 0;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'CASE_IN_TIME' Then //取進件截止時間
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ ScanDenialTime := PARA_CONTENT;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_HINT' Then //掃描提示字串
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ ScanDenialHint := PARA_CONTENT;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'NO_SAVE_FORM_ID' Then //掃描不存檔之表單代號
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ NoSaveBarCodeList.CommaText := PARA_CONTENT;
+ end
+ Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'LOCAL_PATH' Then //本機端路徑
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ ImagePath:= PARA_CONTENT;
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'GUIDEFORMID' Then //當導引頁的表單
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ GuideFormIDList.CommaText := PARA_CONTENT;
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'DIVPAGEFORMID' Then //當分案頁的表單
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ DivPageFormIDList.CommaText := PARA_CONTENT;
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'FILE_COMPRESSION' Then //20171211 jpg to tif 壓縮比
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ FJpgCompression := StrToInt(PARA_CONTENT);
+ end
+ Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'MAX_UPLOAD_SIZE' Then //取得 上傳大小的限制(MB)
+ begin
+ PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
+ FMaxUploadSize := PARA_CONTENT;
+ end;
+ end;
+ ScanDuplex := Def_ScanDuplex;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：initkscan
+ 引用相依：initkscan, Scanner, Scanner.OpenSource, Scanner.CloseSource
+ 方法描述：初始化並偵測掃瞄器硬體能力。此方法會先將雙面掃瞄勾選框（ScanDuplexCB）
+ 設為停用，接著嘗試開啟掃瞄來源（OpenSource），檢查掃瞄器是否支援雙面掃瞄
+ 功能（DuplexCap > 0）。如果硬體支援，則啟用 UI 上的勾選框供使用者選擇。最
+ 後確保關閉掃瞄來源，若過程中發生異常，會呼叫 DataLoading(False,True)
+ 停止載入狀態提示。
+============================================================================== }
+procedure TCB_IMGPSScanX.initkscan;
+begin
+ ScanDuplexCB.Enabled := False;
+ if Scanner.IsConfigured then
+ begin
+ try
+ Scanner.OpenSource;
+ IF Scanner.DuplexCap > 0 Then
+ begin
+ ScanDuplexCB.Enabled := True;
+ end;
+ {IF Scanner.FEEDERCAP Then
+ ScanFlatCB.Enabled := True; }
+ Except
+ DataLoading(False,True);
+ Exit;
+ end;
+ Scanner.CloseSource;
+ end;
+end;
+
+
diff --git a/reassemble/transp/fileClient.pas b/reassemble/transp/fileClient.pas
new file mode 100644
index 0000000..a263192
--- /dev/null
+++ b/reassemble/transp/fileClient.pas
@@ -0,0 +1,161 @@
+{ ==============================================================================
+ 方法名稱：GetFtpinfo
+ 引用相依：
+ 方法描述：向伺服器請求案件上傳所需的 FTP 連線資訊。核心邏輯：
+ 1. 發送包含案件編號與動作代碼的 HTTP POST 請求至後台 Servlet。
+ 2. 解析伺服器回傳結果，若回傳 'nodata' 則維持 tsNone 模式；若回傳成功，
+ 則根據標籤判斷是否啟用 FTP 模式 (tsFtp)。
+ 3. 若為 FTP 模式，會進一步解析並呼叫 DecodeFtpInfo 對包含連線協定、IP、
+ Port、帳號及密碼的加密字串進行解密，並存入系統全域變數中。
+============================================================================== }
+Function TCB_IMGPSScanX.GetFtpinfo(CaseID,Action:String):Boolean;
+var
+ SendData : String;
+
+ Procedure DecodeFtpInfo(EncryStr:String);
+ var
+ FtpStr : String;
+ ftpinfoList : TStringlist;
+ begin
+ if EncryStr = '' then Exit;
+ ftpinfoList := TStringlist.Create;
+ try
+ FtpStr := En_DecryptionStr_Base64('D',EncryStr,MpsKey);
+ SplitString('!@!',FtpStr,ftpinfoList);
+ if ftpinfoList[0] = 'ftps' then
+ FFtpProtocol := fpftps
+ else if ftpinfoList[0] = 'ftp' then
+ FFtpProtocol := fpftp;
+ FFtpIP := ftpinfoList[1];
+ FFtpPort := strtoint(ftpinfoList[2]);
+ FFtpID := ftpinfoList[3];
+ FFtpPwd := ftpinfoList[4];
+
+ finally
+ ftpinfoList.Free;
+ end;
+ end;
+begin
+ Result := True;
+ SendData:='product='+FWork_no+'&case_no='+CaseID+'&department='+FUserUnit+'&action='+Action;
+ If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/ftps',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF (memo1.Lines.Strings[0] = '1') Then
+ begin
+ if memo1.Lines.Strings[1]='nodata' then //nodata 為正常可繼續的判斷
+ begin
+ TransMode := tsNone;
+ Result := True;
+ Exit;
+ end
+ else
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end
+ else if (memo1.Lines.Strings[0] <> '0') then//不認識的字串
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[0];
+ Result := False;
+ Exit;
+ end;
+ TransMode := tsHttp;
+ FFtpExtraPath := '';
+
+ if memo1.Lines.Strings[0] = '0' then
+ begin
+ if memo1.Lines.Strings[2] = 'Y' then //要使用FTP
+ TransMode := tsFtp;
+ if memo1.Lines.Count > 3 then
+ begin
+ FFtpExtraPath := memo1.Lines.Strings[3];
+ DecodeFtpInfo(memo1.Lines.Strings[4]);
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetFtpInfo
+ 引用相依：SetFtpInfo, IIS_Ftp
+ 方法描述：將 FTP 連線參數與事件回呼設定至 FTP 傳輸元件 (IIS_Ftp)。此方法會將先
+ 前取得並解碼的連線資訊（如 FTP IP、帳號、密碼、路徑、連接埠）指派給 IIS_Ft
+ p 物件，並根據協定類型設定是否開啟 SSL/TLS 以及被動模式 (Passive)。此
+ 外，也會關聯各項事件處理器（如 SSLError, CertificateValidate, TextData
+ Line 等），以監控傳輸過程中的通訊狀態。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetFtpInfo; //餵入FTP資訊
+begin
+ IIS_Ftp.Display1 := Display1;
+ IIS_Ftp.FTPSClient1 := FTPSClient1;
+ IIS_Ftp.ElMemoryCertStorage := ElMemoryCertStorage;
+ IIS_Ftp.Display1 := Display1;
+ IIS_Ftp.Ftpip := FFtpIP;
+ IIS_Ftp.Ftpuserid := FFtpID;
+ IIS_Ftp.FtpPwd := FFtpPwd;
+ IIS_Ftp.FtpPath := FFtpRootPath;
+ IIS_Ftp.FtpPort := FFtpPort;
+ IIS_Ftp.FtpSSL := True;
+ IIS_Ftp.FtpPassive := True;
+ if FFtpProtocol = fpftp then
+ IIS_Ftp.FtpSSL := False;
+ IIS_Ftp.FtpEncryptDataChannel := true;
+ FTPSClient1.OnControlReceiveAsString := IIS_Ftp.EventHandlers.ControlReceiveAsString;
+ FTPSClient1.OnControlSendAsString := IIS_Ftp.EventHandlers.ControlSendAsString;
+ FTPSClient1.OnSSLError := IIS_Ftp.EventHandlers.SSLError;
+ FTPSClient1.OnCertificateValidate := IIS_Ftp.EventHandlers.CertificateValidate;
+ FTPSClient1.OnTextDataLine := IIS_Ftp.EventHandlers.TextDataLine;
+
+ {Showmessage(Format('Ftpip:%s'+#13
+ +'Ftpid:%s'+#13
+ +'Ftppwd:%s'+#13
+ +'Ftppath:%s'+#13
+ +'Ftpport:%s'+#13
+ ,[FFtpIP,FFtpid,FFtpPwd,Ftppath,inttostr(Ftpport)]));}
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FtpCaseComplete
+ 引用相依：FtpCaseComplete, ProcessServlet_FormData
+ 方法描述：通知後台伺服器 FTP 案件上傳已完成。方法會將包含案件狀態的上傳數據發送
+ 至特定的 Servlet 介面。邏輯包含檢查 HTTP 通訊是否成功、解析伺服器回傳
+ 的結果代碼，並處理可能的登入過期（Session Timeout）情況。若執行失敗，會將
+ 錯誤原因記錄至 HttpErrStr，供後續 UI 顯示錯誤訊息。
+============================================================================== }
+Function TCB_IMGPSScanX.FtpCaseComplete(SendData:String):Boolean;
+begin
+ Result := True;
+ If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/caseupload',SendData,FReWrite,Memo1,False) Then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ IF (memo1.Lines.Strings[0] = '1') or (memo1.Lines.Strings[0] <> '0') Then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+end;
+
+
diff --git a/reassemble/transp/payloadArchiver.pas b/reassemble/transp/payloadArchiver.pas
new file mode 100644
index 0000000..e8dacd9
--- /dev/null
+++ b/reassemble/transp/payloadArchiver.pas
@@ -0,0 +1,130 @@
+{ ==============================================================================
+ 方法名稱：ZipMainFile
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：將案件的主要圖檔與所有中繼資料檔案打包壓縮為 ZIP。流程如下：
+ 1. 遍歷影像清單 (ContextList) 與附件清單 (AttContextList) 加入實體圖
+ 檔。
+ 2. 自動偵測並加入多種系統紀錄檔，包含索引檔 (Context.dat)、掃瞄清單 (s
+ canlist.dat)、縮放紀錄 (ReSize.dat)、案件分類資訊 (CaseDocNo_Copies.da
+ t) 及跨案引用設定 (UseCase.ini) 等。
+ 3. 檢查是否存在特殊壓縮檔 (FirstImg.zip) 並併入。
+ 4. 呼叫 ExeCuteZip 執行壓縮作業，確保上傳時案件資料的完整性。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ZipMainFile(SoPath,DePath,ZipName:String);
+var
+ ZipFileList : TStringlist;
+ n : Integer;
+begin
+ ZipFileList := TStringlist.Create;
+ try
+ if fileExists(DePath+ZipName) then
+ DeleteFile(DePath+ZipName);
+ {if FileExists(SoPath+'ReSize.dat') then
+ DeleteFile(SoPath+'ReSize.dat');}
+ //Showmessage(SoPath+#13+ContextList.Text);
+ for n := 0 to ContextList.Count - 1 do
+ begin
+ {WriteResize(SoPath+ContextList.Strings[n],SoPath+'ReSize.dat');}
+ ZipFileList.Add(SoPath+ContextList.Strings[n]);
+ if FileExists(SoPath+'@'+ContextList.Strings[n]) then
+ ZipFileList.Add(SoPath+'@'+ContextList.Strings[n]);
+ end;
+ if FileExists(SoPath+'Context.dat') then
+ ZipFileList.Add(SoPath+'Context.dat');
+
+ AttContextList.Clear;
+ if FileExists(SoPath+'ATTContext.dat') then
+ AttContextList.LoadFromFile(SoPath+'ATTContext.dat');
+ for n := 0 to AttContextList.Count - 1 do
+ begin
+ ZipFileList.Add(SoPath+AttContextList.Strings[n]);
+ end;
+ if FileExists(SoPath+'ATTContext.dat') then
+ ZipFileList.Add(SoPath+'ATTContext.dat');
+
+
+ if FileExists(SoPath+'Context_DocNo.dat') then
+ ZipFileList.Add(SoPath+'Context_DocNo.dat');
+ if FileExists(SoPath+'scanlist.dat') then
+ ZipFileList.Add(SoPath+'scanlist.dat');
+ if FileExists(SoPath+'FormCode_Name.dat') then
+ ZipfileList.Add(SoPath+'FormCode_Name.dat');
+ if FileExists(SoPath+'DocNo_Name.dat') then
+ ZipfileList.Add(SoPath+'DocNo_Name.dat');
+ if FileExists(SoPath+'ReSize.dat') then
+ ZipfileList.Add(SoPath+'ReSize.dat');
+ if FileExists(SoPath+'FormIDReplace.dat') then
+ ZipfileList.Add(SoPath+'FormIDReplace.dat');
+ if FileExists(SoPath+'AnchorError.dat') then
+ ZipfileList.Add(SoPath+'AnchorError.dat');
+ if FileExists(SoPath+'CaseDocNo.dat') then
+ ZipfileList.Add(SoPath+'CaseDocNo.dat');
+ if FileExists(SoPath+'CaseDocNo_Copies.dat') then
+ ZipfileList.Add(SoPath+'CaseDocNo_Copies.dat');
+ if FileExists(SoPath+'CustomDocNo.ini') then
+ ZipfileList.Add(SoPath+'CustomDocNo.ini');
+ if FileExists(SoPath+'DocDir.dat') then
+ ZipfileList.Add(SoPath+'DocDir.dat');
+ if FileExists(SoPath+'In_Wh.dat') then
+ ZipfileList.Add(SoPath+'In_Wh.dat');
+ if FileExists(SoPath+'UseCase.ini') then
+ ZipfileList.Add(SoPath+'UseCase.ini');
+
+ if FileExists(SoPath+'FirstImg.zip') then//20170315 加的
+ begin
+ ZipfileList.Add(SoPath+'FirstImg.zip');
+ end;
+
+
+ ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
+ //Showmessage('111');
+ finally
+ ZipFileList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ZipMaskFile
+ 引用相依：FileExists
+ 方法描述：壓縮遮罩影像檔及其相關設定檔。此方法會從指定遮罩路徑 (MarkPath) 收集
+ 與影像索引 (ContextList) 對應的遮罩圖檔，同時併入基本的案件資訊檔（如
+ Context.dat, scanlist.dat, DocNo_Name.dat）以及系統預設的錯誤與授權圖
+ 檔（Err.jpg, auth.jpg）。最後將這些檔案統一壓縮至目標路徑，供後續遮罩影
+ 像的上傳作業使用。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔
+var
+ ZipFileList : TStringlist;
+ n : Integer;
+begin
+ ZipFileList := TStringlist.Create;
+ try
+ if fileExists(DePath+ZipName) then
+ DeleteFile(DePath+ZipName);
+
+ for n := 0 to ContextList.Count - 1 do
+ begin
+ ZipFileList.Add(MarkPath+ContextList.Strings[n]);
+ end;
+ if FileExists(SoPath+'Context.dat') then
+ ZipFileList.Add(SoPath+'Context.dat');
+ if FileExists(SoPath+'scanlist.dat') then
+ ZipFileList.Add(SoPath+'scanlist.dat');
+ if FileExists(SoPath+'FormCode_Name.dat') then
+ ZipfileList.Add(SoPath+'FormCode_Name.dat');
+ if FileExists(SoPath+'DocNo_Name.dat') then
+ ZipfileList.Add(SoPath+'DocNo_Name.dat');
+ if FileExists(SoPath+'ReSize.dat') then
+ ZipfileList.Add(SoPath+'ReSize.dat');
+ if FileExists(SoPath+'Err.jpg') then
+ ZipfileList.Add(SoPath+'Err.jpg');
+ if FileExists(SoPath+'auth.jpg') then
+ ZipfileList.Add(SoPath+'auth.jpg');
+ ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
+ finally
+ ZipFileList.Free;
+ end;
+end;
+
+
diff --git a/reassemble/view/listView.pas b/reassemble/view/listView.pas
new file mode 100644
index 0000000..d30b3e0
--- /dev/null
+++ b/reassemble/view/listView.pas
@@ -0,0 +1,77 @@
+{ ==============================================================================
+ 方法名稱：PageLVClick
+ 引用相依：
+ 方法描述：處理影像列表點擊。選取項目後同步更新 ScrollBar1 的位置。
+============================================================================== }
+procedure TCB_IMGPSScanX.PageLVClick(Sender: TObject);
+begin
+ IF PageLV.Selected = nil Then Exit;
+ PageLVclear := False;
+ ScrollBar1.Position := PageLV.Selected.Index+1;
+ PageLVclear := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PageLVKeyUp
+ 引用相依：
+ 方法描述：處理影像列表按鍵放開事件。若有選取項目，則同步更新 ScrollBar1 的位置。
+============================================================================== }
+procedure TCB_IMGPSScanX.PageLVKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ IF PageLV.Selected = nil Then Exit;
+ ScrollBar1.Position := PageLV.Selected.Index+1;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PageLVMouseDown
+ 引用相依：
+ 方法描述：處理影像列表滑鼠按下事件。若是右鍵，則選取該項目並彈出右鍵選單。
+============================================================================== }
+procedure TCB_IMGPSScanX.PageLVMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+begin
+ IF Button = TMouseButton(MbRight) Then
+ begin
+ If PageLV.GetItemAt(X,Y) = nil then Exit;
+ PageLV.Selected := PageLV.GetItemAt(X,Y);
+ PageLVClick(self);
+ PageLV.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：AttListBoxClick
+ 引用相依：
+ 方法描述：處理附加檔案列表點擊，若有選取則啟用刪除按鈕。
+============================================================================== }
+procedure TCB_IMGPSScanX.AttListBoxClick(Sender: TObject);
+begin
+ DelAttFileLB.Enabled := False;
+ if AttListBox.ItemIndex >= 0 then
+ DelAttFileLB.Enabled := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：AttListBoxDblClick
+ 引用相依：FileExists
+ 方法描述：處理附加檔案列表連按兩下，呼叫 ShellExecute 開啟檔案。
+============================================================================== }
+procedure TCB_IMGPSScanX.AttListBoxDblClick(Sender: TObject);
+var
+ AttFile : String;
+begin
+ if AttListBox.ItemIndex < 0 then Exit;
+
+ AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[AttListBox.ItemIndex]));
+ if FileExists(DisplayPath+AttFile) then
+ ShellExecute(Application.Handle,'open',PChar(DisplayPath+AttFile),nil,nil,SW_SHOW)
+ else
+ Showmessage(Format(_Msg('找不到檔案:%s'),[AttFile]));
+end;
+
+
diff --git a/reassemble/view/misc.pas b/reassemble/view/misc.pas
new file mode 100644
index 0000000..b355f71
--- /dev/null
+++ b/reassemble/view/misc.pas
@@ -0,0 +1,6607 @@
+{ ==============================================================================
+ 方法名稱：Initialize
+ 引用相依：TDibGraphic
+ 方法描述：初始化元件狀態。註冊各類視窗與滑鼠事件處理函式（如 OnActivate, OnClick
+ , OnCreate 等），並設定多項預設參數，包含 MpsKey、瀏覽窗邊界、檔案副檔名、
+ 案件與表單編號長度、去直線容忍值及切圖條碼類型。
+============================================================================== }
+procedure TCB_IMGPSScanX.Initialize;
+begin
+ inherited Initialize;
+ OnActivate := ActivateEvent;
+ OnClick := ClickEvent;
+ OnCreate := CreateEvent;
+ OnDblClick := DblClickEvent;
+ OnDeactivate := DeactivateEvent;
+ OnDestroy := DestroyEvent;
+ OnKeyPress := KeyPressEvent;
+ OnMouseEnter := MouseEnterEvent;
+ OnMouseLeave := MouseLeaveEvent;
+ OnPaint := PaintEvent;
+ MpsKey := 'fbim';
+ Seg := 3; //瀏覽窗的邊界
+ Ext := '.tif';
+ SafePixel := 20;
+ CaseIDLength := 16; //案件編號長度 16碼 20170222 在用網頁參數來取代
+ FormIDLength := 15; //FormID長度 15碼 20170222 發現是用來辨識條碼用的
+ ///DocNoLength := 8; //DocNo長度 8碼 (1~8) //20170222 發現沒用到就註解吧
+ Bt :=4; //去直線時橫線判斷的容忍值
+ CropBarcode := 'CC';//要切影像的條碼
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Active
+ 引用相依：
+ 方法描述：獲取元件的 Active 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Active: WordBool;
+begin
+ Result := Active;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_AlignDisabled
+ 引用相依：
+ 方法描述：獲取元件的 AlignDisabled 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_AlignDisabled: WordBool;
+begin
+ Result := AlignDisabled;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_AlignWithMargins
+ 引用相依：
+ 方法描述：獲取元件的 AlignWithMargins 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_AlignWithMargins: WordBool;
+begin
+ Result := AlignWithMargins;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_AutoScroll
+ 引用相依：
+ 方法描述：獲取元件的 AutoScroll 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_AutoScroll: WordBool;
+begin
+ Result := AutoScroll;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_AutoSize
+ 引用相依：
+ 方法描述：獲取元件的 AutoSize 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_AutoSize: WordBool;
+begin
+ Result := AutoSize;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_AxBorderStyle
+ 引用相依：
+ 方法描述：獲取元件的 AxBorderStyle 邊框樣式。
+============================================================================== }
+function TCB_IMGPSScanX.Get_AxBorderStyle: TxActiveFormBorderStyle;
+begin
+ Result := Ord(AxBorderStyle);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Caption
+ 引用相依：
+ 方法描述：獲取元件的標題文字。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Caption: WideString;
+begin
+ Result := WideString(Caption);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Color
+ 引用相依：
+ 方法描述：獲取元件的背景顏色。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Color: OLE_COLOR;
+begin
+ Result := OLE_COLOR(Color);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_DockSite
+ 引用相依：
+ 方法描述：獲取元件的 DockSite 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_DockSite: WordBool;
+begin
+ Result := DockSite;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_DoubleBuffered
+ 引用相依：
+ 方法描述：獲獲取元件的 DoubleBuffered 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_DoubleBuffered: WordBool;
+begin
+ Result := DoubleBuffered;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_DropTarget
+ 引用相依：
+ 方法描述：獲取元件的 DropTarget 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_DropTarget: WordBool;
+begin
+ Result := DropTarget;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Enabled
+ 引用相依：
+ 方法描述：獲取元件的啟用狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Enabled: WordBool;
+begin
+ Result := Enabled;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ExplicitHeight
+ 引用相依：
+ 方法描述：獲取元件的明確高度。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ExplicitHeight: Integer;
+begin
+ Result := ExplicitHeight;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ExplicitLeft
+ 引用相依：
+ 方法描述：獲取元件的明確左座標。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ExplicitLeft: Integer;
+begin
+ Result := ExplicitLeft;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ExplicitTop
+ 引用相依：
+ 方法描述：獲取元件的明確頂座標。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ExplicitTop: Integer;
+begin
+ Result := ExplicitTop;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ExplicitWidth
+ 引用相依：
+ 方法描述：獲取元件的明確寬度。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ExplicitWidth: Integer;
+begin
+ Result := ExplicitWidth;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Font
+ 引用相依：
+ 方法描述：獲取元件的字型。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Font: IFontDisp;
+begin
+ GetOleFont(Font, Result);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_HelpFile
+ 引用相依：
+ 方法描述：獲取元件的說明檔路徑。
+============================================================================== }
+function TCB_IMGPSScanX.Get_HelpFile: WideString;
+begin
+ Result := WideString(HelpFile);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_KeyPreview
+ 引用相依：
+ 方法描述：獲取元件的鍵盤預覽狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_KeyPreview: WordBool;
+begin
+ Result := KeyPreview;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_MouseInClient
+ 引用相依：
+ 方法描述：獲取滑鼠是否在元件內部區域。
+============================================================================== }
+function TCB_IMGPSScanX.Get_MouseInClient: WordBool;
+begin
+ Result := MouseInClient;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ParentCustomHint
+ 引用相依：
+ 方法描述：獲取元件的 ParentCustomHint 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ParentCustomHint: WordBool;
+begin
+ Result := ParentCustomHint;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ParentDoubleBuffered
+ 引用相依：
+ 方法描述：獲取元件的 ParentDoubleBuffered 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ParentDoubleBuffered: WordBool;
+begin
+ Result := ParentDoubleBuffered;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_PixelsPerInch
+ 引用相依：
+ 方法描述：獲取元件的 PixelsPerInch 設定。
+============================================================================== }
+function TCB_IMGPSScanX.Get_PixelsPerInch: Integer;
+begin
+ Result := PixelsPerInch;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_PopupMode
+ 引用相依：
+ 方法描述：獲取元件的彈出視窗模式。
+============================================================================== }
+function TCB_IMGPSScanX.Get_PopupMode: TxPopupMode;
+begin
+ Result := Ord(PopupMode);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_PrintScale
+ 引用相依：
+ 方法描述：獲取元件的列印縮放比例。
+============================================================================== }
+function TCB_IMGPSScanX.Get_PrintScale: TxPrintScale;
+begin
+ Result := Ord(PrintScale);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Scaled
+ 引用相依：
+ 方法描述：獲取元件的 Scaled 縮放狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Scaled: WordBool;
+begin
+ Result := Scaled;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_ScreenSnap
+ 引用相依：
+ 方法描述：獲取元件的 ScreenSnap 狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_ScreenSnap: WordBool;
+begin
+ Result := ScreenSnap;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_SnapBuffer
+ 引用相依：
+ 方法描述：獲取元件的 SnapBuffer 設定。
+============================================================================== }
+function TCB_IMGPSScanX.Get_SnapBuffer: Integer;
+begin
+ Result := SnapBuffer;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_UseDockManager
+ 引用相依：
+ 方法描述：獲取元件是否使用 Dock 管理。
+============================================================================== }
+function TCB_IMGPSScanX.Get_UseDockManager: WordBool;
+begin
+ Result := UseDockManager;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_Visible
+ 引用相依：
+ 方法描述：獲取元件的顯示狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_Visible: WordBool;
+begin
+ Result := Visible;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_VisibleDockClientCount
+ 引用相依：
+ 方法描述：獲取元件的可見 Dock 客戶端數量。
+============================================================================== }
+function TCB_IMGPSScanX.Get_VisibleDockClientCount: Integer;
+begin
+ Result := VisibleDockClientCount;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：_Set_Font
+ 引用相依：
+ 方法描述：設定元件的字型。
+============================================================================== }
+procedure TCB_IMGPSScanX._Set_Font(var Value: IFontDisp);
+begin
+ SetOleFont(Font, Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：mode1Click
+ 引用相依：
+ 方法描述：切換至檢視模式 0（單頁顯示），呼叫 GoViewMode 更新佈局，並隱藏 Panel14
+ 控制面版。
+============================================================================== }
+procedure TCB_IMGPSScanX.mode1Click(Sender: TObject);
+begin
+ VMode := 0;
+ GoViewMode;
+ //ScrollBar1Change(Self);
+ Panel14.Visible := False;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：mode2Click
+ 引用相依：
+ 方法描述：切換至檢視模式 1（兩頁顯示），呼叫 GoViewMode 更新佈局，並顯示 Panel14
+ 控制面版。
+============================================================================== }
+procedure TCB_IMGPSScanX.mode2Click(Sender: TObject);
+begin
+ VMode := 1;
+ GoViewMode;
+ //ScrollBar1Change(Self);
+ Panel14.Visible := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：mode3Click
+ 引用相依：
+ 方法描述：切換至檢視模式 2（多頁網格顯示），呼叫 GoViewMode 更新佈局，並觸發捲軸變
+ 動以重新載入影像。
+============================================================================== }
+procedure TCB_IMGPSScanX.mode3Click(Sender: TObject);
+begin
+ VMode := 2;
+ GoViewMode;
+ ScrollBar1Change(Self);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：mode4Click
+ 引用相依：
+ 方法描述：切換至檢視模式 3（自定義檢視模式），呼叫 GoViewMode 更新佈局，並觸發捲軸
+ 變動以重新載入影像。
+============================================================================== }
+procedure TCB_IMGPSScanX.mode4Click(Sender: TObject);
+begin
+ VMode := 3;
+ GoViewMode;
+ ScrollBar1Change(Self);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_AlignWithMargins
+ 引用相依：
+ 方法描述：設定元件的 AlignWithMargins 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_AlignWithMargins(Value: WordBool);
+begin
+ AlignWithMargins := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_AutoScroll
+ 引用相依：
+ 方法描述：設定元件的 AutoScroll 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_AutoScroll(Value: WordBool);
+begin
+ AutoScroll := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_AutoSize
+ 引用相依：
+ 方法描述：設定元件的 AutoSize 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_AutoSize(Value: WordBool);
+begin
+ AutoSize := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_AxBorderStyle
+ 引用相依：
+ 方法描述：設定元件的 AxBorderStyle 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_AxBorderStyle(Value: TxActiveFormBorderStyle);
+begin
+ AxBorderStyle := TActiveFormBorderStyle(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_Caption
+ 引用相依：
+ 方法描述：設定元件的標題文字。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_Caption(const Value: WideString);
+begin
+ Caption := TCaption(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_Color
+ 引用相依：
+ 方法描述：設定元件的背景顏色。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_Color(Value: OLE_COLOR);
+begin
+ Color := TColor(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_DockSite
+ 引用相依：
+ 方法描述：設定元件的 DockSite 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_DockSite(Value: WordBool);
+begin
+ DockSite := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_DoubleBuffered
+ 引用相依：
+ 方法描述：設定元件的 DoubleBuffered 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_DoubleBuffered(Value: WordBool);
+begin
+ DoubleBuffered := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_DropTarget
+ 引用相依：
+ 方法描述：設定元件的 DropTarget 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_DropTarget(Value: WordBool);
+begin
+ DropTarget := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_Enabled
+ 引用相依：
+ 方法描述：設定元件的啟用狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_Enabled(Value: WordBool);
+begin
+ Enabled := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_Font
+ 引用相依：
+ 方法描述：設定元件的字型。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_Font(const Value: IFontDisp);
+begin
+ SetOleFont(Font, Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_HelpFile
+ 引用相依：
+ 方法描述：設定元件的說明檔路徑。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_HelpFile(const Value: WideString);
+begin
+ HelpFile := string(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_KeyPreview
+ 引用相依：
+ 方法描述：設定元件的鍵盤預覽狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_KeyPreview(Value: WordBool);
+begin
+ KeyPreview := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_ParentCustomHint
+ 引用相依：
+ 方法描述：設定元件的 ParentCustomHint 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_ParentCustomHint(Value: WordBool);
+begin
+ ParentCustomHint := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_ParentDoubleBuffered
+ 引用相依：
+ 方法描述：設定元件的 ParentDoubleBuffered 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_ParentDoubleBuffered(Value: WordBool);
+begin
+ ParentDoubleBuffered := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_PixelsPerInch
+ 引用相依：
+ 方法描述：設定元件的 PixelsPerInch 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_PixelsPerInch(Value: Integer);
+begin
+ PixelsPerInch := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_PopupMode
+ 引用相依：
+ 方法描述：設定元件的彈出視窗模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_PopupMode(Value: TxPopupMode);
+begin
+ PopupMode := TPopupMode(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_PrintScale
+ 引用相依：
+ 方法描述：設定元件的列印縮放比例。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_PrintScale(Value: TxPrintScale);
+begin
+ PrintScale := TPrintScale(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_Scaled
+ 引用相依：
+ 方法描述：設定元件的 Scaled 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_Scaled(Value: WordBool);
+begin
+ Scaled := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_ScreenSnap
+ 引用相依：
+ 方法描述：設定元件的 ScreenSnap 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_ScreenSnap(Value: WordBool);
+begin
+ ScreenSnap := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_SnapBuffer
+ 引用相依：
+ 方法描述：設定元件的 SnapBuffer 屬性。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_SnapBuffer(Value: Integer);
+begin
+ SnapBuffer := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_UseDockManager
+ 引用相依：
+ 方法描述：設定元件是否使用 Dock 管理。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_UseDockManager(Value: WordBool);
+begin
+ UseDockManager := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_Visible
+ 引用相依：
+ 方法描述：設定元件的顯示狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_Visible(Value: WordBool);
+begin
+ Visible := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：N1Click
+ 引用相依：
+ 方法描述：彈出對話框要求使用者輸入目標頁碼，呼叫 MoveImage 將當前顯示的影像移動
+ 到指定的位置。
+============================================================================== }
+procedure TCB_IMGPSScanX.N1Click(Sender: TObject);
+var
+ mp:string;
+begin
+ mp := InputBox(_Msg('移動頁數'),_Msg('請輸入移入頁碼'),'');
+ if (mp <> '') then
+ begin
+ MoveImage(DisplayPath+NowDocDir+'\',strtoint(mp));
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：N51Click
+ 引用相依：
+ 方法描述：切換至檢視模式 4，呼叫 GoViewMode 更新佈局，並觸發捲軸變動以重新載入影
+ 像。
+============================================================================== }
+procedure TCB_IMGPSScanX.N51Click(Sender: TObject);
+begin
+ VMode := 4;
+ GoViewMode;
+ ScrollBar1Change(Self);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Panel11DblClick
+ 引用相依：
+ 方法描述：Panel11 的連按兩下事件，目前實作已註解掉。
+============================================================================== }
+procedure TCB_IMGPSScanX.Panel11DblClick(Sender: TObject);
+begin
+ // Button3.Visible := not Button3.Visible;
+ //Button4.Visible := not Button4.Visible;
+ //self.FCustDocYN := 'N';
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Panel1DblClick
+ 引用相依：
+ 方法描述：Panel1 的連按兩下事件，用於切換 Button1 與 Button2 的顯示狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.Panel1DblClick(Sender: TObject);
+begin
+ Button1.Visible := not Button1.Visible;
+ Button2.Visible := not Button2.Visible;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Panel9Resize
+ 引用相依：
+ 方法描述：當 Panel9 大小改變時，呼叫 GoViewMode 重新調整影像佈局。
+============================================================================== }
+procedure TCB_IMGPSScanX.Panel9Resize(Sender: TObject);
+begin
+ GoViewMode;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoIsExistImg
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：檢查指定的文件目錄路徑下是否存在影像檔案。首先讀取目錄中的 Context.da
+ t 檔案，接著遍歷清單中的所有檔名並檢查實際檔案是否存在。若發現任何一個
+ 影像檔案存在則回傳 False（表示非空），否則回傳 True。
+============================================================================== }
+function TCB_IMGPSScanX.DocNoIsExistImg(DocNopath:String):boolean;
+var
+ i:integer;
+ ST:TStringList;
+begin
+ Result:=False;
+ ST:=TStringList.Create;
+ if FileExists(DocNopath+'\Context.dat') then /////20190319 Hong 當有空的Docno目錄時會掛掉,增加這行
+ ST.loadFromfile(DocNopath+'\Context.dat');
+ for I := 0 to ST.Count - 1 do
+ begin
+ if ISExistImg(DocNopath+ST.Strings[i]) then
+ begin
+
+ Result:=False;
+ Exit;
+ Break;
+ end;
+ end;
+ Result:=True;
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：_DelTreeForExistImg
+ 引用相依：_DelTree
+ 方法描述：存根方法，目前未包含具體實作邏輯。
+============================================================================== }
+procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);
+var
+ i:integer;
+ ST:TStringList;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ScrollBar1Change
+ 引用相依：
+ 方法描述：捲軸變動處理，目前實作已透過 Exit 暫時停用。
+============================================================================== }
+procedure TCB_IMGPSScanX.ScrollBar1Change(Sender: TObject);
+begin
+ Exit;
+ If (TreeView1.Selected = MyTreenode1) or (TreeView1.Selected.ImageIndex = 6) Then
+ begin
+ view_image_FormCode(DisplayPath,'ShowAll',ScrollBar1.Position,1);
+ end
+ Else IF (TreeView1.Selected = MyTreenode2) then
+ begin
+ view_image_FormCode(DisplayPath,NowDocNo,ScrollBar1.Position,1);
+ end
+ Else if (TreeView1.Selected = MyTreenode3) then
+ begin
+ view_image_FormCode(DisplayPath,NowFormCode,ScrollBar1.Position,1);
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ActiveFormKeyUp
+ 引用相依：
+ 方法描述：處理 ActiveForm 按鍵放開事件。當文字輸入框取得焦點且有選取影像時，攔截
+ 上下方向鍵並將其轉化為 PriorPage 或 NextPage 翻頁操作，並同步滾動捲軸
+ 。
+============================================================================== }
+procedure TCB_IMGPSScanX.ActiveFormKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ if Edit1.Focused then
+ begin
+ if selectISB = nil then Exit;
+
+ if (Key =VK_UP) then
+ begin
+ PriorPage(SelectPage);
+ if (SelectISB.Parent.Top-4) < 0 then
+ scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
+
+ //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
+ end;
+ if (Key =VK_Down) then
+ begin
+ NextPage(SelectPage);
+ if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
+ ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
+ //scrollBox1.VertScrollBar.ScrollPos := SelectISB.Parent.Top+SelectISB.Parent.Height;
+ //ISBClick(TImageScrollBox(FindComponent(ISBName+'2')));
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：AddAttFileLBClick
+ 引用相依：FileExists, CopyFile
+ 方法描述：處理「加入附加電子檔」按鈕點擊。開啟檔案對話框選取多個 PDF 檔案，支援覆
+ 蓋檢查。執行 CopyFile 將檔案複製到案件目錄下，並呼叫 SetAttContextList
+ 更新附加檔案清單後載入顯示。
+============================================================================== }
+procedure TCB_IMGPSScanX.AddAttFileLBClick(Sender: TObject);
+var
+ i : Integer;
+ Addfile : String;
+begin
+ OpenDialog1.Filter := 'PDF files|*.pdf';
+ OpenDialog1.Options := [ofAllowMultiSelect];
+ if OpenDialog1.Execute then
+ begin
+ ShowText :=_Msg('檔案加入中,請稍候');
+ DataLoading(True,True);
+ for i := 0 to OpenDialog1.Files.Count - 1 do
+ begin
+ AddFile := HTTPEncode(UTF8Encode(ExtractFileName(OpenDialog1.Files.Strings[i])));
+ if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then
+ begin
+ if Messagedlg(Format(_Msg('%s己存在,是否覆蓋??'),[Addfile]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Continue;
+ SetAttContextList('D',-1,NowCaseno,AddFile);
+ end;
+ // AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
+ // Splitter2.Visible := True;
+ CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);
+ SetAttContextList('A',-1,NowCaseno,AddFile);
+ LoadAttFile(NowCaseno);
+ end;
+ end;
+ DataLoading(False,False);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：AddCredit1RGClick
+ 引用相依：
+ 方法描述：處理信用註記點擊，更新 Case_loandoc 狀態並寫入索引檔。
+============================================================================== }
+procedure TCB_IMGPSScanX.AddCredit1RGClick(Sender: TObject);
+begin
+ if DisplayPath <> '' then
+ begin
+ Case AddCredit1RG.ItemIndex of
+ -1:Case_loandoc := '';
+ 0:Case_loandoc := 'Y';
+ 1:Case_loandoc := 'N';
+ end;
+ WriteCaseIndex(DisplayPath);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：BtnMouseEnter
+ 引用相依：
+ 方法描述：當滑鼠進入按鈕區域時，顯示該按鈕的 Hint 文字提示。
+============================================================================== }
+procedure TCB_IMGPSScanX.BtnMouseEnter(Sender: TObject);
+begin
+ AddToolTip(TBitBtn(Sender).Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Button3Click
+ 引用相依：initkscan
+ 方法描述：工程師測試用按鈕。用於顯示當前系統環境變數與參數狀態，包含伺服器 URL、
+ 案件資訊、權限、DPI 設定及各類長度限制，最後重新載入影像檔案。
+============================================================================== }
+procedure TCB_IMGPSScanX.Button3Click(Sender: TObject);
+begin
+ //Showmessage(CreateDocNo_Info(NowCaseNo)+#13+'******'+#13+CreateCustDocNo_Info(NowCaseNo));
+ //Showmessage(NowSelectFileList.Text);
+ //SetIn_WH_DocNo;
+ //CreateIn_WH(self.NowCaseno);
+ //Create_Cust_DocDir(NowCaseNo);
+ //Showmessage(self.GetDocNoDir(self.DisplayPath,'111'));
+ //Case2upload(NowCaseNo);
+ //mkdir(DisplayPath+'Test\');
+ //Download2Case(DisplayPath+'Upload\',DisplayPath+'Test\');
+ //CreateFormID_FormName(DisplayPath); //產生FormID_FormName.dat
+ //CreateDocNo_DocName(DisplayPath); //產生DocNo_Name.dat
+ //Showmessage(CreateDocNo_Info(DisplayPath)); //產生 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
+ //lb1.Caption:='AAAAAAAAAAA';
+ //Showmessage(CreateDocnoFrom_Info(NowCaseno));
+ //Showmessage(self.CreateCustDocNoFrom_Info(NowCaseno));
+ //ShowMessage('FMaxUploadSize='+FMaxUploadSize);
+ //initkscan;
+ showmessage('FUrl='+FUrl+#10#13+
+ 'FCaseID='+FCaseID+#10#13+
+ 'FMode='+FMode+#10#13+
+ 'FModeName='+FModeName+#10#13+
+ 'FWork_no='+FWork_no+#10#13+
+ 'FUserID='+FUserID+#10#13+
+ 'FUserName='+FUserName+#10#13+
+ 'FUserUnit='+FUserUnit+#10#13+
+ 'FData='+FData+#10#13+
+ 'FVerify='+FVerify+#10#13+
+ 'FReWrite='+FReWrite+#10#13+
+ 'FLanguage='+FLanguage+#10#13+
+ 'FLoanDoc_Value='+FLoanDoc_Value+#10#13+
+ 'FLoanDoc_Enable='+FLoanDoc_Enable+#10#13+
+ 'FUseProxy='+FUseProxy+#10#13+
+ 'FC_DocNoList='+FC_DocNoList+#10#13+
+ 'FC_DocNameList='+FC_DocNameList+#10#13+
+ 'FFixFileList='+FFixFileList+#10#13+
+ 'FIs_In_Wh='+FIs_In_Wh+#10#13+
+ 'FOldCaseInfo='+FOldCaseInfo+#10#13+
+ 'FPrintyn='+FPrintyn+#10#13+
+ 'FIs_OldCase='+FIs_OldCase+#10#13+
+ 'FCustDocYN='+FCustDocYN);
+ ShowMessage('FImgDPI='+IntToStr(FImgDPI)+#10#13+
+ 'FScanColor='+ IntToStr(FScanColor)+#10#13+
+ 'FFileSizeLimit='+ IntToStr(FFileSizeLimit) +#10#13+
+ 'FCaseNoLength='+ IntToStr(FCaseNoLength) +#10#13+
+ 'FImgDelete='+ FImgDelete+#10#13+
+ 'FIsExternal='+ FIsExternal+#10#13+
+ 'FWH_category='+FWH_category+
+ 'FCheck_main_form='+ FCheck_main_form+#10#13+
+ 'FMaxUploadSize='+FMaxUploadSize);
+ //FImgDelete:='Y';
+ LoadImgFile;
+ { ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
+ 'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
+ 'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
+ 'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
+ }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Button4Click
+ 引用相依：
+ 方法描述：工程師測試用按鈕。用於傾印內部多個 TStringList 與 Record 資料，包含 OM
+ R 錯誤資訊、表單與檢核規則清單、範本與已存在影像清單等，用於除錯。
+============================================================================== }
+procedure TCB_IMGPSScanX.Button4Click(Sender: TObject);
+var
+ i:integer;
+ str:String;
+begin
+ //Showmessage(self.Doc_Inf_List.Text);
+ //LoadImgFile;
+ //LoadImgFile1;
+ //ISB1.MouseMode:=mmAmplifier;
+
+ str:='';
+ for I := 1 to 11 do // 看 OMRErrInfo 的內容
+ begin
+ str:=str+BoolToStr(OMRErrInfo[i].Display,true)+','
+ +BoolToStr(OMRErrInfo[i].Ignore,true)+','+OMRErrInfo[i].Info+','
+ +OMRErrInfo[i].Mode+#10#13;
+ end;
+ ShowMessage('OMRErrInfo='+str);
+ ShowMessage('Doc_Inf_List='+Doc_Inf_List.Text);
+ ShowMessage('DM_FORM_INF_List='+DM_FORM_INF_List.Text) ;
+ ShowMessage('FORM_INF_List='+FORM_INF_List.Text) ;
+ ShowMessage('CHECK_RULE_INF_List='+CHECK_RULE_INF_List.Text) ;
+ ShowMessage('MEMO_INF_List='+MEMO_INF_List.Text) ;
+ ShowMessage('WORK_INF_List='+WORK_INF_List.Text) ;
+ ShowMessage('LASTEST_FORM_INF_List='+LASTEST_FORM_INF_List.Text) ;
+ ShowMessage('SampleFormIDList='+SampleFormIDList.Text);
+ ShowMessage('ExistImgList='+ExistImgList.Text);
+ ShowMessage('LastInitFormidList='+LastInitFormidList.Text);
+ ShowMessage('IN_WH_DocNoList='+IN_WH_DocNoList.Text);
+
+// SampleFormIDList.Add('31A00101011706A');
+// SampleFormIDList.Add('31A00101021706A');
+// SampleFormIDList.Add('31A00101031706A');
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Button5Click
+ 引用相依：SetFtpInfo, IIS_Ftp
+ 方法描述：測試 FTP 上傳功能。連線 FTP 後嘗試將特定的 PDF 檔案上傳至伺服器路徑。
+============================================================================== }
+procedure TCB_IMGPSScanX.Button5Click(Sender: TObject);
+begin
+ GetftpInfo(NowCaseno,'upload');
+ SetFtpInfo;
+ IIS_Ftp.FtpsConnect;
+
+ IIS_Ftp.FtpsToMain(FFtpExtraPath,NowCaseno+'.pdf','d:\1.pdf',display1);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Button6Click
+ 引用相依：SetFtpInfo, IIS_Ftp, Rotate, FJpgCompression, Scanner
+ 方法描述：測試 FTP 下載功能。連線 FTP 後嘗試從伺服器下載 ZIP 案件檔至本地。
+============================================================================== }
+procedure TCB_IMGPSScanX.Button6Click(Sender: TObject);
+begin
+ GetftpInfo(NowCaseno,'download');
+ SetFtpInfo;
+ IIS_Ftp.FtpsConnect;
+ IIS_Ftp.FtpsCWD(IIS_Ftp.FtpPath);
+ IIS_Ftp.FtpsReceive(NowCaseNo+'.zip','d:\'+NowCaseNo+'.zip');
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ExportBtClick
+ 引用相依：SaveToFile, FileExists, En_DecryptionStr_Base64, dnFile, dnFile_Get
+ 方法描述：處理「匯出授權檔」按鈕點擊。透過 HTTPS 下載掃瞄與檢視用的 .lic 授權檔案
+ 。將授權檔連同加密的 mps.dat 檔案打包成帶有密碼保護的 mps.zip 壓縮包，
+ 完成後清理暫存檔並提示路徑。
+============================================================================== }
+procedure TCB_IMGPSScanX.ExportBtClick(Sender: TObject);
+var
+ SendData : String;
+ EnCodeDateTime : String;
+ S : TStringlist;
+ SFileName,VFileName : String;
+begin
+ SFileName := En_DecryptionStr_Base64('E','MPSLIC_SCAN.lic','9338430');
+ VFileName := En_DecryptionStr_Base64('E','MPSLIC_VIEW.lic','9338430');
+ IIS_File2Web.S_LicEnName := SFileName;
+ IIS_File2Web.V_LicEnName := VFileName;
+
+ /////下載MPSLIC_SCAN.lic //////
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
+
+ //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_SCAN.lic'+'&mode=sample';
+ //if not dnFile(HTTPSClient,Furl,'servlet/CWC03',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Exit;
+ end;
+ /////下載MPSLIC_SCAN.lic /////
+
+ /////下載MPSLIC_VIEW.lic //////
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_VIEW.lic'+'&mode=sample'; //這裡改成必傳CW 20121212
+ //if not dnFile(HTTPSClient,Furl,'service/slic/SLIC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_VIEW.lic';
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Exit;
+ end;
+ /////下載MPSLIC_VIEW.lic /////
+
+ ////壓zip/////
+ S := TStringlist.Create;
+ try
+ S.Add(En_DecryptionStr_Base64('E',GetDate,'9338430'));
+ S.Add(SFileName);
+ S.Add(VFileName);
+ S.SaveToFile(LngPath+'mps.dat');
+ S.Clear;
+ S.Add(LngPath+'mps.dat');
+ S.Add(LngPath+SFileName);
+ S.Add(LngPath+VFileName);
+ if FileExists(LngPath+'mps.zip') then
+ DeleteFile(LngPath+'mps.zip');
+ ExecuteZip_Pwd(LngPath+'mps.zip',LngPath,S,False,False,'9338430');
+
+ finally
+ S.Free;
+ DeleteFile(LngPath+SFileName);
+ DeleteFile(LngPath+VFileName);
+ DeleteFile(LngPath+'mps.dat');
+ end;
+ ////壓zip//////
+ Showmessage(_Msg('匯出完成,匯出檔案:')+LngPath+'mps.zip');
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ImportBtClick
+ 引用相依：Str2Dir, FileExists, LoadFromFile, RenameFile, _DelTree, En_Decrypti
+ onStr_Base64, upFile
+ 方法描述：處理「匯入授權檔」按鈕點擊。選取 mps.zip 授權包後進行解壓與過期驗證。驗
+ 證通過後對授權檔執行重新命名，並透過 upFile 函式逐一上傳至伺服器範本
+ 目錄，過程中會嚴格檢查 Session 與回傳狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.ImportBtClick(Sender: TObject);
+var
+ SendData : String;
+ EnCodeDateTime : String;
+ S : TStringlist;
+ SFileName,VFileName : String;
+ OpenDialog1 : TOpenDialog;
+ ZipPath : String;
+ ZipFile,ZipName : String;
+ LicName : String;
+ i : Integer;
+begin
+ OpenDialog1 := TOpenDialog.Create(self);
+ S := TStringlist.Create;
+ try
+ OpenDialog1.Filter := 'Zip files (*.zip)|*.ZIP';
+ if OpenDialog1.Execute then
+ begin
+ ZipFile:= ExtractFileName(OpenDialog1.FileName);
+ ZipName := Copy(ZipFile,1,length(ZipFile)-length(ExtractFileExt(OpenDialog1.FileName)));
+ ZipPath := LngPath+ZipName+'\';
+
+ str2dir(ZipPath);
+ if not ExecuteUnZip_Pwd(OpenDialog1.FileName,ZipPath,False,'9338430') then
+ Showmessage(_Msg('無法解壓縮'));
+ if not FileExists(ZipPath+'mps.dat') then
+ begin
+ Showmessage(_Msg('格式不符,無法匯入'));
+ Exit;
+ end;
+ S.LoadFromFile(ZipPath+'mps.dat');
+ if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then
+ begin
+ Showmessage(_Msg('檔案過期,無法匯入'));
+ Exit;
+ end;
+
+ for i := 1 to S.Count -1 do
+ begin
+ LicName := En_DecryptionStr_Base64('D',S.Strings[i],'9338430');
+ RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);
+ if (LicName = 'MPSLIC_SCAN.lic') or (LicName = 'MPSLIC_VIEW.lic') then
+
+ /////上傳MPSLICXXXX.lic ////
+ //if not upFile(HTTPSClient,FUrl,'servlet/CWC04','formid='+LicName+'@workno=CW@mode=sample','file',ZipPath+LicName,FReWrite,Memo1,False) then
+ //begin
+ SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file_name='+LicName;
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',ZipPath+LicName,FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+ /////上傳MPSLICXXXX.lic /////
+ end;
+ end;
+ Finally
+ OpenDialog1.Free;
+ S.Free;
+ _DelTree(ZipPath);
+ end;
+ Showmessage(_Msg('匯入完成'));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：HTTPSClientCertificateValidate
+ 引用相依：HTTPSClientCertificateValidate
+ 方法描述：HTTPS 用戶端憑證驗證回呼函數，預設直接將 Validate 設為 True，以接受所
+ 有伺服器憑證。
+============================================================================== }
+procedure TCB_IMGPSScanX.HTTPSClientCertificateValidate(Sender: TObject;
+ X509Certificate: TElX509Certificate; var Validate: Boolean);
+begin
+ Validate := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：HTTPSClientRedirection
+ 引用相依：
+ 方法描述：處理 HTTPS 客戶端的重導向事件，目前為空實作。
+============================================================================== }
+procedure TCB_IMGPSScanX.HTTPSClientRedirection(Sender: TObject;
+ const OldURL: string; var NewURL: string; var AllowRedirection: Boolean);
+begin
+ AllowRedirection := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：EnableImage
+ 引用相依：
+ 方法描述：啟用滑鼠工具列功能，更新按鈕圖示並切換滑鼠模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.EnableImage(v:integer;Sender : TObject);
+var bmp : Tbitmap;
+begin
+ DesableImage;
+ bmp := TBitmap.Create;
+ try
+ ImageList3.GetBitmap(v,bmp);
+ TBitBtn(Sender).Glyph.Assign(bmp);
+ finally
+ bmp.Free;
+ end;
+ ViewMouseMode(v);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DesableImage
+ 引用相依：
+ 方法描述：停用所有工具列功能。重置點選狀態，將所有功能按鈕（FC0-FC6）圖示切換為灰
+ 階，並將所有影像捲軸盒的滑鼠模式切換回一般使用者模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.DesableImage;
+var bmp : Tbitmap;
+ i : integer;
+begin
+ NowClick := -1;
+ bmp := Tbitmap.Create;
+ try
+ For i:= 0 to 6 do
+ begin
+ ImageList4.GetBitmap(i,bmp);
+ TBitBtn(FindComponent('FC'+IntToStr(i))).Glyph.Assign(bmp);
+ bmp.Width:=0;
+ bmp.Handle:=0;
+ end;
+ finally
+ bmp.Free;
+ end;
+ ViewMouseMode(NowClick);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ViewMouseMode
+ 引用相依：
+ 方法描述：設定全域的滑鼠作業模式。根據參數對應至放大鏡、縮放、拖曳、旋轉或刪除等模
+ 式，並同步更新所有影像捲軸盒（ISB1-ISB8）的屬性，確保行為一致。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ViewMouseMode(v:Integer);
+var
+ i : Integer;
+ Md : TMouseMode;
+ ISB : TImageScrollBox;
+begin
+//ShowMessage(IntToStr(v));
+ case v of
+ -1 : Md := TMouseMode(mmUser);
+ 0 : Md := TMouseMode(mmAmplifier);
+ 1 : Md := TMouseMode(mmZoom);
+ 2 : Md := TMouseMode(mmDrag);
+ 3 : Md := TMouseMode(mmR270);
+ 4 : Md := TMouseMode(mmR180);
+ 5 : Md := TMouseMode(mmR90);
+ 6 : Md := TMouseMode(mmDelete);
+ end;
+ for i := 1 to 8 do
+ begin
+ ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
+ ISB.MouseMode := TMouseMode(Md);
+ //Label3.Caption:='v='+IntToStr(v)+' time'+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GoViewMode
+ 引用相依：
+ 方法描述：依檢視模式索引 VMode，呼叫 DisplayMode 來調整佈局。
+============================================================================== }
+Procedure TCB_IMGPSScanX.GoViewMode;
+begin
+ case VMode of
+ 0: DisplayMode(VMode,1,1,Panel9);
+ 1: DisplayMode(VMode,1,1,Panel9);
+ 2: DisplayMode(VMode,2,2,Panel9);
+ 3: DisplayMode(VMode,2,3,Panel9);
+ 4: DisplayMode(VMode,2,4,Panel9);
+ end;
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：DisplayMode
+ 引用相依：
+ 方法描述：調整影像視窗的網格佈局（1x1, 2x2 等）。隱藏所有影像面板後，根據行數與列
+ 數計算面板寬高與位置，重新排列並顯示。同時調整標記框 Shape1 的大小，最
+ 後更新模式圖示並初始化首個視窗。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel);
+Var
+ W,H,T,L:Integer;
+ i,n,Count: Integer;
+ Pl :TPanel;
+ bmp : TBitmap;
+begin
+ for i := 1 to 8 do
+ begin
+ TPanel(Findcomponent('imgp'+inttostr(i))).Visible := False;
+ end;
+ W := Round((BasePanel.Width - ((W_Count+1) * Seg)) / W_Count);
+ H := Round((BasePanel.Height -((H_Count+1) * Seg)) / H_Count);
+ Count := 1;
+ for i := 1 to H_Count do
+ begin
+ T := i * Seg + H * (i-1);
+ for n := 1 to W_Count do
+ begin
+ L := n * Seg + W * (n-1);
+ Pl := TPanel(Findcomponent('imgp'+inttostr(Count)));
+ Pl.Visible := True;
+ Pl.Left := L;
+ Pl.Top := T;
+ Pl.Width := W;
+ Pl.Height := H;
+ inc(Count);
+ end;
+ end;
+ Shape1.Width := W + (Seg * 2);
+ Shape1.Height := H + (Seg * 2);
+ Shape1.Visible := True;
+
+
+ bmp := Tbitmap.Create;
+ try
+ ImageList2.GetBitmap(index,bmp);
+ ViewModeBtn.Glyph.Assign(bmp);
+ finally
+ bmp.Free;
+ end;
+ ISB1Click(ISB1);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckRequiredColumnValues
+ 引用相依：
+ 方法描述：檢查特定業務邏輯下的必填欄位。針對特定的 workno 與案號格式（caseno[9]）
+ 判斷是否符合要求。
+============================================================================== }
+function TCB_IMGPSScanX.CheckRequiredColumnValues(workno, caseno:String): Boolean;
+begin
+//
+ Result:=False;
+ if (workno='HLN') and (caseno[9]='3') then
+ Result:=True;
+ if (workno='HLN') and (caseno[9]='4') then
+ Result:=True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseReSize
+ 引用相依：ImageReSize_FormID, FileExists, LoadFromFile
+ 方法描述：對案件執行影像縮放處理。清空舊有的檢核與定位錯誤記錄，隨後遍歷影像清單
+ ，對每個檔案執行 ImageReSize_FormID 處理。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CaseReSize(CaseID:String); //案件的影像縮放
+var
+ S : TStringlist;
+ FileName : String;
+ i : Integer;
+begin
+ {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
+ if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');
+ For i := 0 to S.Count -1 do
+ begin
+ FileName := S.Strings[i];
+ ImageReSize_FormID(CaseID,FileName); //依十字定位點做縮放
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TransCaseID
+ 引用相依：FileExists, LoadFromFile, CopyFile, FindFirst, _DelTree, upFile, Set
+ FtpInfo, IIS_Ftp, FtpCaseComplete
+ 方法描述：傳送案件核心程序。包含排序影像、產生描述檔（FormID/DocNo對照、OMR資訊、附
+ 件狀態等）、建立 ZIP 壓縮包（含主圖與遮罩）並檢查大小。最後根據 HTTP 或 F
+ TP 模式上傳至伺服器。上傳完成後針對異動模式處理舊件引入，並在最後清理
+ 本地暫存目錄。
+============================================================================== }
+Function TCB_IMGPSScanX.TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件
+Var
+ i,n,v: Integer;
+ ZipFileList : TStringlist;
+ UpFormID:String;
+ pages : Integer;
+ TransName : String;
+ MaskPath : String;
+ HaveMask : Boolean;
+ S : String;
+ SendData:String;
+ Doc_Data,Doc_Data1 : String;
+ In_Doc1,In_Doc2 : String;
+ AttachYN : String; //是否有附件 Y:有 N:沒有
+
+ ST1,ST2,ST3:TStringList;
+ str1,str2:String;
+ must_formidStr :string;
+ last_add_formidstr :string;
+ ScanListStr:String;
+ casepath:String;
+ filesizeInt:integer;
+ case_page:string;
+ Fname:String;
+ FileRec:TSearchrec;
+begin
+ Result := True;
+ TransName := CaseID;
+ MaskPath := Path+'MaskImg\';
+ if fileExists(Path+'Context.dat') then
+ begin
+ ContextList.LoadFromFile(Path+'Context.dat');
+ Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
+ end;
+
+ if FileExists(Path+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
+
+ Pages := ContextList.Count;
+ case_page:=IntToStr(pages);
+ if (FMode = 'NSCAN') or (FMode = 'ESCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'RSCAN') then
+ begin
+ //Showmessage('1');
+ UpformID := GetCaseFormID(Path);
+ {if UpformID = '' then //20131213 yuu說不管主form
+ begin
+ Showmessage(_msg('取不到主FormID!!'));
+ Result := False;
+ DataLoading(False,False);
+ Exit;
+ end;}
+ end;
+
+ CaseResort2Scanlist(Path); //檔名照設定排序產生scanlist.dat
+ //CaseResort(Path); //檔名照設定排序
+ CreateFormID_FormName(Path,CaseID); //產生FormID_FormName.dat
+ CreateDocNo_DocName(Path,CaseID); //產生DocNo_Name.dat
+ Doc_Data := CreateDocNo_Info(CaseID); //產生保管袋文件 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
+ Doc_Data1 := CreateCustDocNo_Info(CaseID); //產生自定文件 Docname,份數,頁數;Docno,份數,頁數 的回傳字串
+ In_Doc1 := CreateDocnoFrom_Info(CaseID); //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+ In_Doc2 := CreateCustDocNoFrom_Info(CaseID); //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+ AttachYN := CreateAttach_Info(CaseID); //是否還有附件 Y:有 N:沒有
+ ReadCaseIndex(Path);
+ //LoanDoc := 'Y';
+ //產生遮罩影像
+// if FWork_No = 'CW' then
+// HaveMask := Case2Mask(Path,MaskPath);
+ //產生遮罩影像
+ // S := S +#13+'5-->'+ Timetostr(now);
+
+ ///////必要formid 20170315 start //////////////////////////////
+ must_formidStr:='';
+ last_add_formidstr:='';
+ ST1:=TStringList.Create;
+ ST1.LoadFromFile(path+'FormCode_Name.dat');
+//ShowMessage(ST1.Text);
+//ShowMessage(LastInitFormidList.Text);
+ ST2:=TStringList.Create;
+ ST3:=TStringlist.Create;
+
+ for I := 0 to ST1.Count - 1 do
+ begin
+ if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
+ begin
+ str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
+ ST2.Add(str1);
+ must_formidStr:= must_formidStr+str1+'@#,';
+ end;
+ end;
+ must_formidStr:=Copy(must_formidStr,1,Length(must_formidStr)-3) ;
+//ShowMessage('must_formidStr='+must_formidStr);
+//ShowMessage('AST2='+ST2.Text);
+
+
+ for I := 0 to LastInitFormidList.Count - 1 do
+ begin
+ if ST2.IndexOf(LastInitFormidList.Strings[i]) <> -1 then
+ begin
+ ST2.Delete(ST2.IndexOf(LastInitFormidList.Strings[i]));
+ end;
+ end;
+//ShowMessage('BST2='+ST2.Text);
+ for I := 0 to ST2.Count - 1 do
+ begin
+ last_add_formidstr:=last_add_formidstr+ST2.Strings[i]+'@#,';
+ end;
+ last_add_formidstr:=Copy(last_add_formidstr,1,Length(last_add_formidstr)-3) ;
+
+ ST3.LoadFromFile(path+'scanlist.dat');
+ for I := 0 to ST3.Count - 1 do
+ begin
+ if ScanListStr = '' then
+ ScanListStr := FileName2FormCode(ST3.Strings[i])
+ else
+ ScanListStr := Format('%s,%s',[ScanListStr,FileName2FormCode(ST3.Strings[i])]);
+ end;
+
+ ST1.Free;
+ ST2.Free;
+ ST3.Free;
+//ShowMessage('last_add_formidstr='+last_add_formidstr);
+ ///////必要formid 20170315 end //////////////////////////
+
+ ///保留外部影像 start///////////////////////////////
+ casepath:= Copy(Path,1,pos('Upload',path)-1);
+//ShowMessage('casepath='+casepath);
+//FIsExternal:='Y';
+ if (FMode='ESCAN') and (FIsExternal='Y') then
+ begin
+ if FileExists(casepath+'Download\FirstImg.zip') then
+ begin
+ CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);
+ end
+ else
+ begin
+ CopyFile(PWChar(casepath+'Download\'+CaseID+'.zip'),PWChar(path+'FirstImg.zip'),false);
+ end;
+ end;
+ ///保留外部影像 end///////////////////////////////
+
+ //file_size 計算 就先不做 20170316
+ filesizeInt:=0;
+
+
+ //////壓檔/////
+ ZipMainFile(Path,Path,'Img.zip');
+ if HaveMask then
+ ZipMaskFile(Path,MaskPath,Path,'MaskImg.zip'); //有遮罩設定的才產生
+ /////壓檔////
+ ///檢查上傳的zip大小////
+ FName :=Path+ 'Img.zip';
+
+ FindFirst(FName, faAnyfile, FileRec);
+
+ //FMaxUploadSize
+//ShowMessage(IntToStr(FileRec.Size));
+//Result:=False;
+//exit; //目前上傳檔案大小為xxMB，已超過50MB，無法上傳 %.3f ,[FileRec.Size / 1048576]
+ If FileRec.Size > StrtoInt(FMaxUploadSize) * 1048576 Then // 檢查檔案大小
+ Begin
+ ShowMessage(Format(_Msg('%s目前上傳檔案大小為%.3fMB，已超過%sMB，無法上傳'),[caseid,FileRec.Size / 1048576,FMaxUploadSize]));
+ //ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) );
+ FindClose(FileRec);
+ Result := False;
+ Exit;
+ End;
+ FindClose(FileRec);
+ ///檢查上傳的zip大小////
+//ShowMessage('last_add_formidstr='+last_add_formidstr);
+ if not GetftpInfo(CaseID,'upload') then //取案件上傳方式
+ begin
+ //Showmessage(_Msg()Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
+ DownFileErrStr := _Msg('取案件上傳資訊失敗!!')+HttpErrStr;
+ Result := False;
+ Exit;
+ end;
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))
+ +'&verify='+FVerify
+ +'&form_id='+UpformID
+ +'&loan_doc='+Case_loandoc
+ +'&case_no='+TransName
+ +'&doc_data='+HTTPEncode(UTF8Encode(Doc_Data))
+ +'&doc_data1='+HTTPEncode(UTF8Encode(Doc_Data1))
+ +'&attach='+AttachYN
+ +'&case_page='+case_page
+ +'&file_size='+IntToStr(filesizeInt)
+ +'&must_formid='+must_formidStr //擁有的 formid
+ +'&last_add_formid='+last_add_formidstr //當次新加的 formid
+ +'&form_code='+ScanListStr //scanlist.dat 表單代號
+ +'&ftp_image_path='+FFtpExtraPath //加傳FTP目錄 HTTP上傳時會是空白
+ +'&in_doc1='+HTTPEncode(UTF8Encode(In_Doc1))
+ +'&in_doc2='+HTTPEncode(UTF8Encode(In_Doc2));
+
+ case TransMode of
+ tsHttp :
+ begin
+ ////上傳/////
+ ShowText := CaseID+_Msg('資料上傳中(Http),請稍候');
+ DataLoading(True,True);
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then
+ begin
+ Showmessage(Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
+ Result := False;
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(Format(_Msg('')+_Msg(''),[CaseID])+memo1.Lines.Strings[1]+'。');
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(Format(_Msg('')+_Msg('')+_Msg('閒置過久或被登出,請重新登入'),[CaseID]));
+ Result := False;
+ Exit;
+ end;
+ ////上傳////
+ end;
+ tsFtp :
+ begin
+ ShowText := CaseID+_Msg('資料上傳中(Ftp),請稍候');
+ DataLoading(True,True);
+ SetFtpInfo;
+ try
+ if not IIS_Ftp.FtpsConnect then
+ begin
+ Showmessage(Format('無法連上Ftp主機,錯誤原因:%s',[FtpErrReason]));
+ Result := False;
+ Exit;
+ end;
+ if not IIS_Ftp.FtpsToMain(FFtpExtraPath,CaseID+'.zip',Path+'Img.zip',display1) then
+ begin
+ Showmessage(Format(_msg('上傳案件(%s)時,發生錯誤,錯誤原因:%s'),[CaseID,FtpErrStr]));
+ Result := False;
+ Exit;
+ end;
+
+ if not FtpCaseComplete(SendData) then //Ftp上傳後通知完成
+ begin
+ Showmessage(Format(_Msg('通知案件(%s)Ftp上傳完成時,發生錯誤!!'),[CaseID])+HttpErrStr);
+ Result := False;
+ Exit;
+ end;
+ finally
+ IIS_Ftp.FtpsClose;
+ end;
+ end;
+
+ end;
+
+
+ if FMode = 'ESCAN' then //上傳舊件引入檔案 //20140616 原本先搬舊件再搬新件,改為先搬新件再搬舊件
+ begin
+ if not TransOldCaseFile(ImageSavePath+CaseID+'\') then
+ begin
+ Result := False;
+ Exit;
+ end;
+ end;
+ // 呼叫Server完成 /////
+ {If not CaseComplete(Path,CaseID,MainCase) Then
+ begin
+ Showmessage(_Msg('通知案件傳送完成時,網路發生錯誤!!')+HttpErrStr);
+ DataLoading(False,False);
+ Result := False;
+ Exit;
+ end; }
+ /// 呼叫Server完成////
+
+ ////刪檔////
+ //_DelTree(Path); //會只刪TransPath
+//ShowMessage('STOP');
+ _DelTree(ImageSavePath+CaseID);
+ SetCaseList('D',-1,CaseID);
+ ////刪檔////
+end;
+
+
+{ ==============================================================================
+ 方法名稱：NewTreeNodeRefresh
+ 引用相依：
+ 方法描述：更新樹狀結構根節點文字，顯示總案件筆數與總頁數。
+============================================================================== }
+Procedure TCB_IMGPSScanX.NewTreeNodeRefresh;
+var
+ v : Integer;
+begin
+ //v := Pos('-',NewTreeNode.Text);
+ //NewTreeNode.Text := Copy(NewTreeNode.Text,1,v-1)+'-共'+inttostr(NewTreeNode.Count)+'筆';
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MyTreeNode1Refresh
+ 引用相依：
+ 方法描述：更新樹狀結構案件層級節點文字，顯示該層下的項目數量。
+============================================================================== }
+Procedure TCB_IMGPSScanX.MyTreeNode1Refresh;
+var
+ v : Integer;
+begin
+ v := Pos('-',MyTreeNode1.Text);
+ MyTreeNode1.Text := Format(_Msg('%s-%d筆'),[Copy(MyTreeNode1.Text,1,v-1),MyTreeNode1.Count]);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MyTreeNode2ReFresh
+ 引用相依：
+ 方法描述：重新整理並繪製指定案件的文件層級樹狀結構。
+============================================================================== }
+Procedure TCB_IMGPSScanX.MyTreeNode2ReFresh(CaseID:String);
+var
+ P : Integer;
+begin
+ //p:= ContextList.Count;
+ //MytreeNode1.Text := Format(_Msg('%s-%d頁'),[CaseID,p]);
+ DrawDocItem2(MytreeNode1,CaseID);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MyTreeNode3ReFresh
+ 引用相依：
+ 方法描述：重新整理並繪製指定案件的表單層級樹狀結構。
+============================================================================== }
+Procedure TCB_IMGPSScanX.MyTreeNode3ReFresh(CaseID:String);
+begin
+
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID); //201408280改
+ DrawDocItem2(MytreeNode1,CaseID);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Node3FormID
+ 引用相依：
+ 方法描述：從樹狀結構節點 3（表單層）的文字中解析並提取表單 ID（FormID）。
+============================================================================== }
+Function TCB_IMGPSScanX.Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來
+var
+ v,v1,v2 : Integer;
+begin
+ v := Pos('{',Node3.Text);
+ v1 := Pos('}',Node3.Text);
+ v2 := Posend('-',Node3.Text);
+ Result := Copy(Node3.Text,v+1,v1-v-1);
+ IF v1 = 0 Then
+ begin
+ Result := '';
+ end;
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：GetNode2Name
+ 引用相依：FileExists, Str2Dir, SaveToFile, LoadFromFile, DeleteDocNoFile, Copy
+ File, DirectoryExists, En_DecryptionStr_Base64, dnFile
+ 方法描述：提取文件層級節點的識別名稱字串，用於記錄與恢復節點選取狀態。
+============================================================================== }
+Function TCB_IMGPSScanX.GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
+var
+ v : Integer;
+begin
+ v := Posend('-',Node2.Text);
+ Result := Copy(Node2.Text,1,v-1);
+end;
+
+{Function TCB_IMGPSScanX.Down_Replace_Img(SPath,DPath,CaseID:String):Boolean;
+var
+ EnCodeDateTime : String;
+ DownUrl : String;
+ SC,Main_C : TStringlist;
+ i,n : Integer;
+ FormID,DocNo,Version : String;
+ OldFName,NewMainFName,NewSubFName : String;
+ AttPath : String;
+begin
+ SC := TStringlist.Create;
+ Main_C := TStringlist.Create;
+ try
+ Result := True;
+ HaveAppDoc := False;
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ DownUrl := FUrl+CaseID+'&checktime='+EnCodeDateTime;
+ if not dnFile(HTTPSClient,DownUrl,'','',DPath+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if Memo1.Lines.Strings[0] = '1' then
+ begin
+ HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1];
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+ AttPath := DPath + 'AttFile\';
+ if FileExists(DPath+CaseID+'.zip') then
+ begin
+ ExecuteUnZip(DPath+CaseID+'.zip',DPath,True);
+ if FileExists(DPath+'img.zip') then
+ begin
+ ExecuteUnZip(DPath+'img.zip',DPath,False);
+ end;
+ if FileExists(DPath+'att.zip') then
+ begin
+ Str2Dir(AttPath);
+ ExecuteUnZip(DPath+'att.zip',AttPath,False);
+ end;
+ end
+ Else
+ begin
+ if ((FMode = 'FSCAN') or (FMode = 'ISCAN')) and (Memo1.Lines.Strings[0] ='NO_FILE') then //FGIS前台匯入件沒有影像是對的
+ begin
+ SC.Clear;
+ SC.SaveToFile(DPath+'Context.dat');
+ end
+ Else
+ begin
+ HttpErrStr := _Msg('找不到影像');
+ Result := False;
+ Exit;
+ end;
+ end;
+
+
+ if FileExists(SPath+'Context.dat') then
+ SC.LoadFromFile(SPath+'Context.dat');
+ for I := 0 to SC.Count - 1 do
+ begin
+ FormID := FileName2FormCode(SC.Strings[i]);
+ DocNo := FormCode2DocNo(FormID);
+ Version := FormCode2Version(FormID);
+ If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
+ begin
+ if GetFindResult('ADD_SCAN_RULE') = 'R' then //替換的先刪再加 20101026 User由刪FormCode改刪DocNo
+ begin
+ //DeleteFormCodeFile(DPath,FormID);
+ ContextList.LoadFromFile(DPath+'Context.dat');
+ DeleteDocNoFile(DPath,DocNo);
+ end;
+ end;
+ end;
+ for I := 0 to SC.Count - 1 do //複製補充進來的影像
+ begin
+ OldFName := SC.Strings[i];
+ Main_C.LoadFromFile(DPath+'Context.dat');
+ //NewMainFName:= Add_Zoo(Main_C.Count+1,3)+Copy(OldFName,4,length(OldFName)-3);
+ NewMainFName:= Add_Zoo(Main_C.Count+1,3)+FileName2NoQuene_Filename(OldFName);
+ FormID := FileName2FormCode(OldFName);
+ DocNo := FormCode2DocNo(FormID);
+ Version := FormCode2Version(FormID);
+ If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
+ begin
+ CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
+ end;
+ if FormID = '' then //附件
+ begin
+ CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
+ end;
+ Main_C.Add(NewMainFName);
+ Main_C.SaveToFile(DPath+'Context.dat');
+ end;
+ finally
+ SC.Free;
+ Main_C.Free;
+ end;
+ ///加入的電子檔匯入案件裡
+ if DirectoryExists(SPath+'AttFile\') then
+ AttFile_Arrange(SPath+'AttFile\',DPath+'AttFile\');
+end;}
+
+
+{ ==============================================================================
+ 方法名稱：DownLoadImage
+ 引用相依：SetFtpInfo, IIS_Ftp
+ 方法描述：處理影像下載流程。根據案件上傳/下載方式（HTTP 或 FTP），從伺服器下載對應
+ 的 ZIP 檔案並解壓縮至本地案件目錄，供後續異動或補件使用。
+============================================================================== }
+Function TCB_IMGPSScanX.DownLoadImage(Path,CaseID:String):Boolean;
+begin
+ Result := True;
+ if not GetftpInfo(CaseID,'download') then //取案件下載方式
+ begin
+ DownFileErrStr := _Msg('取案件下載資訊失敗,')+HttpErrStr;
+ Result := False;
+ Exit;
+ end;
+ case TransMode of
+ tsHttp:
+ begin
+ ShowText := _Msg('案件下載中(Http),請稍候');
+ DataLoading(True,True);
+ If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
+ begin
+ Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+ tsFtp:
+ begin
+ ShowText := _Msg('案件下載中(Ftp),請稍候');
+ DataLoading(True,True);
+ SetFtpInfo;
+
+ if not IIS_Ftp.FtpsConnect then
+ begin
+ DownFileErrStr := Format(_Msg('無法連上Ftp主機,錯誤原因:%s')+#13+'%s',[FtpErrReason,FTPSClient1.LastReceivedReply]);
+ Result := False;
+ Exit;
+ end;
+ if not IIS_Ftp.FtpsDownloadFile(FFtpExtraPath,CaseID+'.zip',Path+CaseID+'.zip',display1) then
+ begin
+ DownFileErrStr := Format(_Msg('錯誤原因:%s'),[FtpErrStr]);
+ Result := False;
+ Exit;
+ end;
+ ExecuteUnZip(Path+CaseID+'.zip',Path,False);
+ DeleteFile(Path+CaseID+'.zip');
+ end;
+ end;
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：Down_Img
+ 引用相依：FileExists, Str2Dir, En_DecryptionStr_Base64, dnFile_Get, dnFile
+ 方法描述：透過 HTTPS 從伺服器下載案件影像。下載 ZIP 檔案（含 img.zip 與 att.zip）
+ 後執行本地解壓縮，將主影像與附件部署至指定目錄。
+============================================================================== }
+Function TCB_IMGPSScanX.Down_Img(Path,CaseID:String):Boolean;
+var
+ EnCodeDateTime : String;
+ SendData : String;
+ AttPath : String;
+begin
+ Result := True;
+ EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+ ///service/slic/SLIC04/case?data=&verify=&case_no=&file=
+ SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&file=';
+//ShowMessage(SendData);
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
+ Result := False;
+ Exit;
+ end;
+ if Memo1.Lines.Strings[0] = '1' then
+ begin
+ HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1]+'。';
+ Result := False;
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
+ Result := False;
+ Exit;
+ end;
+//ShowMessage('替換zip');
+ AttPath := Path + 'AttFile\';
+ if FileExists(Path+CaseID+'.zip') then
+ begin
+ ExecuteUnZip(Path+CaseID+'.zip',Path,True);
+ if FileExists(Path+'img.zip') then
+ begin
+ ExecuteUnZip(Path+'img.zip',Path,False);
+ end;
+ if FileExists(Path+'att.zip') then
+ begin
+ Str2Dir(AttPath);
+ ExecuteUnZip(Path+'att.zip',AttPath,False);
+ end;
+ end
+ Else
+ begin
+ HttpErrStr := _Msg('找不到影像');
+ Result := True;
+ Exit;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetNoNameCase
+ 引用相依：GetNoNameCase, DirectoryExists
+ 方法描述：在指定的本地路徑中尋找尚未被佔用的「未配號XXXX」目錄名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //取未配號XXXX
+var
+ i : Integer;
+begin
+ for i := 1 to 9999 do
+ begin
+ if Not DirectoryExists(Path+_Msg('未配號')+Add_Zoo(i,4)) then
+ begin
+ Result := _Msg('未配號')+Add_Zoo(i,4);
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseResort
+ 引用相依：LoadFromFile, FileExists, RenameFile, SaveToFile, ReSortFileName
+ 方法描述：對案件檔案進行實體重新排序。依據文件清單（Doc_Inf_List）的順序，對主文件
+ 與次文件進行更名與重新編號，確保檔名序號符合業務邏輯。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno排)
+var
+ i,n,v,v1 : Integer;
+ S,S1 : TStringlist;
+ FormID,OldName,NewName,DocNo,Doc_Type:String;
+ x : Integer;
+begin
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ X := 0;
+ {for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ if FormCode2FileName(FormID,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+
+ {for I := 0 to FORM_INF_List.Count - 1 do //次文件 照FormID 1~8碼+掃瞄順序排 20110512為了某個文件要先打的原因要求改
+ begin
+ for n := 0 to S.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ if (S.Strings[n][1] <> '*') and (Copy(FileName2FormCode(S.Strings[n]),1,8) = Copy(FormID,1,8)) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+ for I := 0 to Doc_Inf_List.Count - 1 do //主文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
+ begin
+ DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
+ if DocNo2FileName(DocNo,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='1') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+
+ for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
+ begin
+ DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
+ if DocNo2FileName(DocNo,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+ {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for i := 0 to FORM_INF_List.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+ for i := 0 to S.Count - 1 do //FormID沒設定的或附件
+ begin
+ if S.Strings[i][1] <> '*' then
+ begin
+ Inc(X);
+ OldName := S.Strings[i];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
+ S.Strings[i] := '*'+S.Strings[i];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ S.Clear;
+ for i := 0 to S1.Count - 1 do //開始轉換檔名
+ begin
+ v := Pos(',',S1.Strings[i]);
+ v1 := length(S1.Strings[i]);
+ OldName := copy(S1.Strings[i],1,v-1);
+ NewName := copy(S1.Strings[i],v+1,v1-v);
+ if FileExists(Path+OldName) then
+ begin
+ ReNameFile(Path+OldName,Path+NewName);
+ S.Add(NewName);
+ S.SaveToFile(Path+'Context.dat');
+ end;
+ end;
+ ReSortFileName(Path);
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseResort2Scanlist
+ 引用相依：FileExists, LoadFromFile, RenameFile, SaveToFile, ReSortFileName
+ 方法描述：產生依表單代號排序的影像清單（scanlist.dat），用於上傳。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
+var
+ i,n,v,v1 : Integer;
+ S,S1 : TStringlist;
+ FormID,OldName,NewName,DocNo,Doc_Type:String;
+ x : Integer;
+begin
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ if FileExists(Path+'Context.dat') then
+ S.LoadFromFile(Path+'Context.dat');
+ X := 0;
+ for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ if FormCode2FileName(FormID,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+ for I := 0 to FORM_INF_List.Count - 1 do //次文件 照SQL排 20110512為了某個文件要先打的原因要求改
+ begin
+
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ if FormCode2FileName(FormID,S) = '' then
+ Continue;
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;
+
+ {for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
+ begin
+ DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
+ Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
+ for n := 0 to S.Count - 1 do
+ begin
+ if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+
+ {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
+ begin
+ for i := 0 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
+ if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
+ begin
+ Inc(X);
+ OldName := S.Strings[n];
+ NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
+ S.Strings[n] := '*'+S.Strings[n];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+ end;}
+ for i := 0 to S.Count - 1 do //FormID沒設定的或附件
+ begin
+ if S.Strings[i][1] <> '*' then
+ begin
+ Inc(X);
+ OldName := S.Strings[i];
+ //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
+ S.Strings[i] := '*'+S.Strings[i];
+ S1.Add(OldName+','+NewName);
+ end;
+ end;
+
+ S.Clear;
+ for i := 0 to S1.Count - 1 do //開始轉換檔名
+ begin
+ v := Pos(',',S1.Strings[i]);
+ v1 := length(S1.Strings[i]);
+ OldName := copy(S1.Strings[i],1,v-1);
+ NewName := copy(S1.Strings[i],v+1,v1-v);
+ //if FileExists(Path+OldName) then
+ //begin
+ //ReNameFile(Path+OldName,Path+NewName);
+ S.Add(NewName);
+ S.SaveToFile(Path+'scanlist.dat');
+ //end;
+ end;
+ ReSortFileName2Scanlist(Path);
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：DistinctDocinCase
+ 引用相依：LoadFromFile, LoadFileGetMD5
+ 方法描述：列出案件目錄下所有具備文件編號與版本的唯一組合。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
+var
+ i,n,v : Integer;
+ S : TStringlist;
+ FormCode,DocNo,Ver : String;
+ Doc_Ver : String;
+ Exists : Boolean;
+begin
+ S := TSTringlist.Create;
+ try
+ DocNo_VerinCase.Clear;
+ S.LoadFromFile(Path+'Context.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ if FWH_category='N' then
+ begin
+ if (ISExistImg(Path+S.Strings[i])) or (reSizeExistImgList.IndexOf(LoadFileGetMD5(Path+S.Strings[i]))<>-1) then
+ begin
+ Continue;
+ end;
+ end;
+ FormCode := FileName2FormCode(S.Strings[i]);
+ DocNo := FormCode2DocNo(FormCode);
+ Ver := FormCode2Version(FormCode);
+ if (Docno <> '') and (Ver <> '') then
+ begin
+ Doc_Ver := DocNo+'_'+Ver;
+ Exists := False;
+ for n := 0 to DocNo_VerinCase.Count-1 do
+ begin
+ if Doc_Ver = DocNo_VerinCase.Strings[n] then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ DocNo_VerinCase.Add(Doc_Ver);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DistinctDocNoinCase
+ 引用相依：LoadFromFile
+ 方法描述：列出案件目錄下所有實際存在的文件編號（DocNo）。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DistinctDocNoinCase(Path:String); //列出案件裡的Docno
+var
+ i,n,v : Integer;
+ S : TStringlist;
+ FormCode,DocNo,Ver : String;
+ Exists : Boolean;
+begin
+ S := TSTringlist.Create;
+ try
+ CaseDocNoList.Clear;
+ S.LoadFromFile(Path+'Context.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ FormCode := FileName2FormCode(S.Strings[i]);
+ DocNo := FormCode2DocNo(FormCode);
+ if (Docno <> '') then
+ begin
+ Exists := False;
+ for n := 0 to CaseDocNoList.Count-1 do
+ begin
+ if DocNo = CaseDocNoList.Strings[n] then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ CaseDocNoList.Add(DocNo);
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ClearErrini
+ 引用相依：FileExists
+ 方法描述：清除指定案件的所有檢核輔助檔案（如 Checkerr.ini, OMRCheckOk 等），並將
+ 樹狀節點恢復為預設的影像索引狀態。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案
+var
+ i : Integer;
+begin
+ if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then
+ DeleteFile(ImageSavePath+CaseID+'\Checkerr.ini');
+ if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\CheckMemo.dat');
+ {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then //20110421拿掉 因為記錄會不見
+ DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
+ if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
+ if FileExists(ImageSavePath+CaseID+'\OMRCheckOk.dat') then
+ DeleteFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+ CaseHelpBtn.Visible := False;
+ CaseNode.ImageIndex := 2;
+ CaseNode.SelectedIndex := 2;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetCaseList
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：維護本地案件清單資料。支援對 CaseList.dat 執行加入、插入、刪除或修改案
+ 號操作，確保本地磁碟目錄與資料清單狀態同步。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+begin
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ case Mode of
+ 'A':begin
+ CaseList.Add(Text);
+ end;
+ 'I':begin
+ CaseList.Insert(Index,Text);
+ end;
+ 'E':begin
+ CaseList.Strings[Index] := Text;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ CaseList.Delete(Index)
+ Else if (text <> '') then
+ begin
+ for i := 0 to CaseList.Count - 1 do
+ begin
+ if Text = CaseList.Strings[i] then
+ begin
+ CaseList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if CaseList.Count = 0 then
+ DeleteFile(ImageSavePath + 'CaseList.dat');
+ end;
+ end;
+ if CaseList.Count > 0 then
+ CaseList.SaveToFile(ImageSavePath+'CaseList.dat');
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetDocNoList
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：維護案件的文件目錄清單（CaseDocNo.dat）與份數清單（CaseDocNo_Copies.dat
+ ）。根據 Mode 參數執行「加入 (A)」、「插入 (I)」、「修改 (E)」或「刪除 (D)」操作
+ 。刪除時支援透過索引或目錄名稱進行，並會同步更新異動記錄（SetRecordEdit
+ edDocDir）。最後將更新後的清單存回檔案。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+ CaseDocNoList : TStringlist;
+ CaseDocNo_copiesList : TStringlist;
+begin
+ CaseDocNoList := TStringlist.Create;
+ CaseDocNo_CopiesList := TStringlist.Create;
+ try
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+ if FileExists(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
+ case Mode of
+ 'A':begin
+ CaseDocNoList.Add(DocDir);
+ CaseDocNo_CopiesList.Add(Copies);
+ SetRecordEditedDocDir('A',CaseNo,DocDir);
+ end;
+ 'I':begin
+ CaseDocNoList.Insert(Index,DocDir);
+ CaseDocNo_CopiesList.Insert(Index,Copies);
+ end;
+ 'E':begin
+ CaseDocNoList.Strings[Index] := DocDir;
+ CaseDocNo_CopiesList.Strings[Index] := Copies;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ begin
+ //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[Index]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
+ SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[Index]); //20170912 要刪除 不然我寫不下去
+
+ CaseDocNoList.Delete(Index);
+ CaseDocNo_CopiesList.Delete(Index);
+
+ end
+ Else if (DocDir <> '') then
+ begin
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ if DocDir = CaseDocNoList.Strings[i] then
+ begin
+ //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[i]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
+ SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[i]); //20170912 要刪除 不然我寫不下去
+ CaseDocNoList.Delete(i);
+ CaseDocNo_CopiesList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if ContextList.Count = 0 then
+ begin
+ DeleteFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+ end;
+ end;
+ end;
+ //Showmessage('abc'+#13+ImageSavePath+CaseNo+'\CaseDocNo.dat'+#13+inttostr(CaseDocNoList.Count)+#13+CaseDocNoList.Text);
+ if CaseDocNoList.Count >= 0 then
+ begin
+ CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+ CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
+ //Showmessage('存了');
+ end;
+ finally
+ CaseDocNoList.Free;
+ CaseDocNo_CopiesList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetContextList
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：維護特定文件目錄下的影像檔案清單（Context.dat）。支援「加入」、「插入」、「修
+ 改」與「刪除」模式。操作前會先從磁碟載入既有的清單，執行變動後再存回，並記
+ 錄該文件目錄已被異動。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+ //DocNo:String;
+begin
+ //DocNo := FormCode2DocNo(FileName2FormCode(FileName));
+//ShowMessage('FileName='+FileName);
+ if DocDir = '' then
+ DocDir := AttName ; //附件
+ ContextList.Clear;
+ if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then
+ ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+ SetRecordEditedDocDir('A',CaseNo,DocDir); //記錄文件有異動
+ case Mode of
+ 'A':begin
+ ContextList.Add(FileName);
+ end;
+ 'I':begin
+ ContextList.Insert(Index,FileName);
+ end;
+ 'E':begin
+ ContextList.Strings[Index] := FileName;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ begin
+ ContextList.Delete(Index);
+ end
+ Else if (text <> '') then
+ begin
+ for i := 0 to ContextList.Count - 1 do
+ begin
+ if FileName = ContextList.Strings[i] then
+ begin
+ ContextList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if ContextList.Count = 0 then
+ DeleteFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+ end;
+ end;
+ if ContextList.Count > 0 then
+ begin
+ ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetAttContextList
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：維護案件的附件檔案清單（AttContext.dat）。邏輯與 SetContextList 相似，針
+ 對附件目錄進行檔案名稱的「加入」、「插入」、「修改」與「刪除」管理，並將結果持
+ 久化至磁碟。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+var
+ i : Integer;
+begin
+ AttContextList.Clear;
+ if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then
+ AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');
+ case Mode of
+ 'A':begin
+ AttContextList.Add(FileName);
+ end;
+ 'I':begin
+ AttContextList.Insert(Index,FileName);
+ end;
+ 'E':begin
+ AttContextList.Strings[Index] := FileName;
+ end;
+ 'D':begin
+ if Index <> -1 then
+ begin
+ AttContextList.Delete(Index);
+ end
+ Else if (text <> '') then
+ begin
+ for i := 0 to AttContextList.Count - 1 do
+ begin
+ if FileName = AttContextList.Strings[i] then
+ begin
+ AttContextList.Delete(i);
+ Break;
+ end;
+ end;
+ end;
+ if AttContextList.Count = 0 then
+ DeleteFile(ImageSavePath+CaseNo+'\AttContext.dat');
+ end;
+ end;
+ if AttContextList.Count > 0 then
+ begin
+ AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：checkCaseOMRDone
+ 引用相依：
+ 方法描述：檢查當前案件是否已完成 OMR 檢核。遍歷 NewTreeNode 中的所有項目，判斷其
+ ImageIndex 是否皆為 7（代表已檢核通過的圖示索引），若有任何一項未達成
+ 則回傳 False。
+============================================================================== }
+Function TCB_IMGPSScanX.checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核
+var
+ i : Integer;
+begin
+ Result := True;
+ for I := 0 to NewTreeNode.Count - 1 do
+ begin
+ if NewTreeNode.Item[i].ImageIndex <> 7 then
+ begin
+ Result := False;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：checkFormCodeIsCustom
+ 引用相依：
+ 方法描述：檢查指定的表單代碼（FormCode）是否為自定義文件。透過讀取 CustomDocNo.in
+ i 設定檔中的 FormID 資訊，比對傳入的代碼是否與設定值一致。
+============================================================================== }
+function TCB_IMGPSScanX.checkFormCodeIsCustom(path, formcode: string): boolean;
+var
+ i:integer;
+ ini : Tmeminifile;
+ str1:String;
+begin
+//ShowMessage(path);
+ ini := Tmeminifile.Create(Path+'CustomDocNo.ini');
+ str1:=ini.ReadString(Copy(formcode,1,8),'FormID','');
+//ShowMessage('str1'+str1);
+ if str1 = formcode then
+ begin
+ Result:=True;
+ end
+ else
+ begin
+ Result := False;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckCaseID_OK
+ 引用相依：
+ 方法描述：檢查樹狀結構中是否存在「未配號」的案件。遍歷所有節點，若節點文字包含「未
+ 配號」字樣則回傳 False。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckCaseID_OK:Boolean; //檢查是否有未配號的案件
+var
+ i,n : Integer;
+begin
+ Result := True;
+ for i := 0 to NewTreeNode.Count - 1 do
+ begin
+ if Pos(_msg('未配號'),NewTreeNode.Item[i].Text) > 0 then
+ begin
+ Result := False;
+ Break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckCaseAttach_OK
+ 引用相依：
+ 方法描述：檢查樹狀結構中是否存在「未歸類」的文件。遞迴遍歷案件下的所有子節點，若有
+ 任何節點文字包含「未歸類」則回傳 False。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckCaseAttach_OK:Boolean; //檢查是否有未歸類的案件
+var
+ i,j : Integer;
+begin
+ Result := True;
+ for i := 0 to NewTreeNode.Count - 1 do
+ begin
+ for j := 0 to NewTreeNode.Item[i].Count - 1 do
+ begin
+ if Pos(_msg('未歸類'),NewTreeNode.Item[i].Item[j].Text) > 0 then
+ begin
+ Result := False;
+ Break;
+ end;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CreateEmptyCase
+ 引用相依：SaveToFile
+ 方法描述：產生一個空白的案件結構，主要用於重掃件。建立必要的目錄，並產生初始的 Co
+ ntext.dat 與更新 CaseList.dat。
+============================================================================== }
+Procedure TCB_IMGPSScanX.CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用)
+var
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ S.SaveToFile(Path+CaseID+'\Context.dat');
+ S.Add(FCaseID);
+ S.SaveToFile(Path+'CaseList.dat')
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：InitScrollRec
+ 引用相依：
+ 方法描述：初始化影像捲軸記錄，將 1 到 8 號影像視窗的水平與垂直捲軸位置重設為 0。
+============================================================================== }
+Procedure TCB_IMGPSScanX.InitScrollRec;
+var i : Integer;
+begin
+ for I := 1 to 8 do
+ begin
+ ScrollRec[i].HScroll := 0;
+ ScrollRec[i].VScroll := 0;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormIDReplace
+ 引用相依：FileExists, LoadFromFile, DirectoryExists, CopyFile, RenameFile, Sav
+ eToFile
+ 方法描述：將指定文件中的舊表單代碼替換為新代碼。首先決定目標目錄（考慮是否分份數
+ 、補件狀況），若目標目錄不存在則建立。接著將符合舊代碼的檔案複製到新目錄
+ 下並重新命名（產生新序號），同時更新新目錄的 Context.dat 與清單。最後刪
+ 除原目錄中的舊代碼檔案。
+============================================================================== }
+Procedure TCB_IMGPSScanX.FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID
+var
+ i : Integer;
+ OldFileList,NewFileList : TStringlist;
+ NewDocNo,NewDocDir:String;
+ FormID : String;
+ OldFile,NewFile:String;
+ Ext : String;
+ ST1:TStringList;
+begin
+ ST1:=TStringList.Create;
+ OldFileList := TStringlist.Create;
+ NewFileList := TStringlist.Create;
+ try
+ NewDocNo := FormCode2DocNo(NewFormID);
+ NewDocDir := FindLastestDocDir(CaseID,NewDocNo);
+
+ /////20190319 Hong 原本的程式判斷怪怪的先Mark在下方,改用這段
+ if DocNoNeedDiv(NewDocNo) then //要分份數
+ begin
+ if ((FormCode2Page(NewFormID) = '01') and (GetDocDir_Page(CaseID,NewDocDir)>0)) or (NewDocDir = '') then
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
+ end
+ else
+ begin //20171016 真對補件影響 所加的判斷
+ ST1.Clear;
+ if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');
+ if (ST1.Count > 0) and ISExistImg(ImageSavePath + CaseID+'\'+NewDocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
+ end;
+ end;
+ end;
+ end
+ Else //不分份數
+ begin
+ if NewDocNo <> '' then
+ NewDocDir := NewDocNo
+ else //Attach 附件
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
+ end;
+
+ {if NewDocDir = '' then
+ begin
+ if DocNoNeedDiv(NewDocNo) then
+ begin
+ NewDocDir:=DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
+ end
+ else
+ begin
+ NewDocDir := NewDocNo;
+ end;
+ end;
+//ShowMessage('NewDocDir='+NewDocDir);
+ if DocNoNeedDiv(NewDocNo) and (FormCode2Page(NewFormID)='01') then
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',NewDocNo);
+ end
+ else
+ begin
+ ST1.Clear;
+ if FileExists(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat');
+ if ISExistImg(ImageSavePath + NowCaseno+'\'+NewDocDir+'\'+ST1.Strings[0]) then
+ begin
+ NewDocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
+ end;
+ end;
+ end; }
+ if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then
+ begin
+ MkDir(ImageSavePath+CaseID+'\'+NewDocDir);
+ SetDocNoList('A',-1,CaseID,NewDocDir,'1');
+ end;
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ OldFileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ if FileExists(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat') then
+ NewFileList.LoadFromFile(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat');
+ for i := 0 to OldFileList.Count - 1 do
+ begin
+ OldFile := OldFileList.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ if FileName2FormCode(OldFile) = OldFormID then
+ begin
+ NewFile := Add_Zoo(NewFileList.Count+1,3)+'_'+NewFormID+Ext;
+ CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);
+ NewFileList.Add(NewFile);
+ SetContextList('A',-1,CaseID,NewDocDir,NewFile);
+ end;
+ end;
+ DeleteFormCodeFile(CaseID,DocDir,OldFormID);
+
+ {for i := 0 to S.Count - 1 do
+ begin
+ FormID := FileName2FormCode(S.Strings[i]);
+ if FormID = OldFormID then
+ begin
+ OldFile := S.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ //NewFile := Copy(S.Strings[i],1,3)+'_'+NewFormID+Ext;
+ NewFile := Add_Zoo(FileName2ScanPage(S.Strings[i]),3)+'_'+NewFormID+Ext;
+ ReNameFile(Path+OldFile,Path+NewFile);
+ S.Strings[i] := NewFile;
+ end;
+ end;
+ S.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat'); }
+
+ finally
+ OldFileList.Free;
+ NewFileList.Free;
+ ST1.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ShowFileReplace
+ 引用相依：RenameFile
+ 方法描述：將當前顯示清單（NowShowFileList）中的檔案更名為新的表單代碼。遍歷檔案，
+ 保留原序號但替換 FormID 部分，執行實體更名並同步更新全域的 ContextLis
+ t 記錄。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID
+var
+ i,n : Integer;
+ OldFile,NewFile:String;
+ Ext : String;
+begin
+ for i := 0 to NowShowFileList.Count - 1 do
+ begin
+ OldFile := NowShowFileList.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ NewFile := Add_Zoo(FileName2ScanPage(OldFile),3)+'_'+NewFormID+Ext;
+ ReNameFile(Path+OldFile,Path+NewFile);
+ SetContextList('E',FileName2Index(OldFile),NowCaseno,NowDocNo,NewFile);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PageReplaceFormID
+ 引用相依：LoadFromFile, RenameFile, SaveToFile
+ 方法描述：針對影像列表（PageLV）中選取的頁面進行表單代碼更換。先過濾出符合條件的
+ 檔案，再對選取項執行實體檔案更名（更新 FormID 部分），最後同步更新 Conte
+ xt.dat 檔案內容。
+============================================================================== }
+Procedure TCB_IMGPSScanX.PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID
+var
+ i,n : Integer;
+ S,S1 : TStringlist;
+ OldFile,NewFile:String;
+ Ext : String;
+begin
+ S := TStringlist.Create;
+ S1 := TStringlist.Create;
+ try
+ S.LoadFromFile(Path+'Context.dat');
+ for i := 0 to S.Count - 1 do
+ begin
+ if NowFormID = 'ALL' then
+ S1.Add(S.Strings[i])
+ Else if NowFormID = 'Err' then
+ begin
+ if not FormIDExists(FileName2FormCode(S.Strings[i]),False,0) then
+ S1.Add(S.Strings[i])
+ end
+ Else
+ begin
+ if NowFormID = FileName2FormCode(S.Strings[i]) then
+ S1.Add(S.Strings[i])
+ end;
+ end;
+ for I := 0 to PageLV.Items.Count - 1 do
+ begin
+ if PageLV.Items.Item[i].Selected then
+ begin
+ OldFile := S1.Strings[i];
+ Ext := ExtractFileExt(OldFile);
+ //NewFile := Copy(S1.Strings[i],1,3)+'_'+NewFormID+Ext;
+ NewFile := Add_Zoo(FileName2ScanPage(S1.Strings[i]),3)+'_'+NewFormID+Ext;
+ ReNameFile(Path+OldFile,Path+NewFile);
+ for n := 0 to S.Count - 1 do
+ begin
+ if OldFile = S.Strings[n] then
+ S.Strings[n] := NewFile;
+ end;
+ end;
+ end;
+ S.SaveToFile(Path+'Context.dat');
+ ContextList.LoadFromFile(Path+'Context.dat');
+ finally
+ S.Free;
+ S1.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ModeNeedCheck
+ 引用相依：
+ 方法描述：判斷目前的掃瞄模式是否需要執行 OMR 檢核。
+============================================================================== }
+Function TCB_IMGPSScanX.ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核
+begin
+ Result := False;
+ if Pos(ScanMode,OMRMode) > 0 then
+ Result := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCasePage
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：計算案件的總影像頁數。遍歷案件下所有的文件目錄（CaseDocNo.dat），讀取每
+ 個目錄的 Context.dat 並累加檔案數量。過程中會考慮入庫/非入庫文件的權
+ 限與顯示過濾條件，最後也包含附件目錄的計數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCasePage(Path,CaseID:String):Integer;
+var
+ DocDirList,FileList,ST1 :TStringlist;
+ iDocDir,iDocNo : String;
+ i,n,Count : Integer;
+begin
+ Count := 0;
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ ST1:=TStringList.Create;
+ try
+ if FileExists(Path+CaseID+'\CaseDocNo.dat') then
+ DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');
+ //Showmessage(DocDirList.Text);
+ for i := 0 to DocDirList.Count - 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocno := DocNoDir2DocNo(iDocDir);
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
+ ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
+ begin
+ Continue;
+ end;}
+ //if not DocNoAppear(iDocNo) then Continue; //20170817 先註解
+
+ FileList.Clear;
+ if FileExists(Path+CaseID+'\'+iDocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(Path+CaseID+'\'+iDocDir+'\Context.dat');
+
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ ST1.Clear;
+ for n := 0 to FileList.Count - 1 do
+ begin
+ if ISExistImg(Path+CaseID+'\'+iDocDir+'\'+FileList.Strings[n]) then
+ begin
+ ST1.Add(FileList.Strings[n]);
+ end;
+ end;
+
+ for n := 0 to ST1.Count - 1 do
+ begin
+ if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
+ begin
+ FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
+ end;
+ end;
+ end
+ Else
+ if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該要加這段
+ end;
+
+
+ Count := Count+ FileList.Count;
+ end;
+ if FileExists(Path+CaseID+'\'+AttName+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(Path+CaseID+'\'+AttName+'\Context.dat');
+ Count := Count+ FileList.Count;
+ end;
+
+ Result := Count;
+ finally
+ DocDirList.Free;
+ FileList.Free;
+ ST1.free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetFormIDPage
+ 引用相依：
+ 方法描述：在指定的檔案清單中，計算符合特定表單代碼（FormID）的影像頁數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetFormIDPage(FileList:TStringlist;FormID:String):Integer;
+var
+ i,Cnt : Integer;
+begin
+ Cnt := 0;
+ for i := 0 to FileList.Count - 1 do
+ begin
+ if FormID = FileName2FormCode(FileList.Strings[i]) then
+ begin
+ inc(Cnt);
+ end;
+ end;
+ Result := Cnt;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetFile2Case
+ 引用相依：LoadFromFile, SaveToFile
+ 方法描述：將指定的檔案名稱加入到案件的主 Context.dat 清單中。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetFile2Case(CaseID,FileName:String);
+var
+ S :TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');
+ S.Add(FileName);
+ S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：WriteResize
+ 引用相依：LoadFromFile, FileExists, SaveToFile
+ 方法描述：產生影像縮放記錄檔（Resize.dat）。載入影像後比對原始標記（Tag）中的長寬資
+ 訊與實際 Graphic 的長寬，若有變動則將差異記錄至文字檔中。
+============================================================================== }
+Procedure TCB_IMGPSScanX.WriteResize(ImgName,TxtName:String); //產生Resize.dat
+var
+ TagTxt : String;
+ RecHeight,RecWidth : String;
+ ImgHeight,ImgWidth : String;
+ S : TStringlist;
+ v,v1:Integer;
+begin
+ ImageScrollBox1.LoadFromFile(ImgName,1);
+ ImgHeight := Inttostr(ImageScrollBox1.Graphic.Height);
+ ImgWidth := Inttostr(ImageScrollBox1.Graphic.Width);
+ Try
+ TagTxt := GetTag(ImgName);
+ Except
+ TagTxt := '';
+ End;
+ if TagTxt <> '' then
+ begin
+ S := TStringlist.Create;
+ try
+ S.CommaText := TagTxt;
+ if S.Count = 2 then
+ begin
+ v := Pos(':',S.Strings[0]);
+ v1 := length(S.Strings[0]);
+ RecHeight := Copy(S.Strings[0],v+1,v1-v);
+ v := Pos(':',S.Strings[1]);
+ v1 := length(S.Strings[1]);
+ RecWidth := Copy(S.Strings[1],v+1,v1-v);
+ end;
+ S.Clear;
+ if FileExists(TxtName) then
+ S.LoadFromFile(TxtName);
+ if (RecHeight <> '') and (RecWidth <> '') and ((RecHeight<>ImgHeight) or (RecWidth<>ImgWidth)) then
+ S.Add(ExtractfileName(ImgName)+',原長:'+RecHeight+',原寬:'+RecWidth+',長變動:'+ImgHeight+',寬變動:'+ImgWidth);
+ S.SaveToFile(TxtName);
+ finally
+ S.Free;
+ end;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetCase_PageCount
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：獲取所有案件的總數量與總頁數。讀取 CaseList.dat 取得案件清單，逐一計算
+ 各案件目錄與附件目錄下的影像檔案數。針對非入庫且當次掃瞄的特殊情況，會
+ 額外檢查 EditedDocDir.dat 以精確計算實際變動的頁數。
+============================================================================== }
+Function TCB_IMGPSScanX.GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數
+var
+ i,n,k: Integer;
+ CaseList,DocList,FileList,ST1 : TStringlist;
+begin
+ Result := False;
+ CaseCount := 0;
+ PageCount := 0;
+ CaseList := TStringlist.Create;
+ DocList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ ST1:= TStringlist.Create;
+ try
+ ImageSavePath := ImagePath;
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ CaseCount := CaseCount+CaseList.Count;
+//ShowMessage('ImageSavePath='+ImageSavePath+#10#13+'CaseList.Count='+IntToStr(CaseList.Count));
+ for i := 0 to CaseList.Count - 1 do
+ begin
+ DocList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') Then
+ DocList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
+//ShowMessage('DocList='+DocList.Text);
+ for n := 0 to DocList.Count - 1 do
+ begin
+//ShowMessage(DocList.Strings[n]+','+BoolToStr(DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])),true));
+ if not DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])) then Continue;
+ FileList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat') Then
+ FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat');
+ PageCount := PageCount+FileList.Count;
+ end;
+ //Showmessage(inttostr(PageCount));
+ FileList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat') Then
+ FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
+ //Showmessage(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
+//Showmessage('FileList='+FileList.Text);
+ PageCount := PageCount+FileList.Count;
+//Showmessage('PageCount='+inttostr(PageCount));
+ if (FWH_category='N') and (FIs_In_Wh='Y') then //20170912 針對非入庫並當次掃描做頁數計算
+ begin
+ if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
+ for n := 0 to ST1.Count - 1 do
+ begin
+ if ST1.Strings[n]=AttName then Continue;
+//ShowMessage(ST1.Strings[n]+','+BoolToStr(DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])),true));
+ if not DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])) then
+ begin
+
+ FileList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat');
+ for k := 0 to FileList.Count - 1 do
+ begin
+ if not ISExistImg(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\'+FileList.Strings[k]) then
+ PageCount := PageCount+1;
+ end;
+ end;
+ end;
+ end;
+ end;
+ end;
+ end;
+ Finally
+ CaseList.Free;
+ DocList.Free;
+ FileList.Free;
+ ST1.Free
+ end;
+ Result := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindNoSaveBarCode
+ 引用相依：
+ 方法描述：檢查目前的條碼資訊中是否包含被標記為「不儲存影像」的條碼。遍歷所有辨識
+ 到的條碼，並與排除清單（NoSaveBarCodeList）進行比對，若匹配則回傳 True。
+============================================================================== }
+Function TCB_IMGPSScanX.FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼
+var
+ i,n : Integer;
+begin
+ Result := False;
+ for i := 1 to MpsBarcodeinf.Count do
+ begin
+ for n := 0 to NoSaveBarCodeList.Count - 1 do
+ begin
+ if MpsBarcodeinf.Text[i] = NoSaveBarCodeList.Strings[n] then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ if Result then
+ Break;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：WriteCaseIndex
+ 引用相依：SaveToFile
+ 方法描述：將案件的信用註記狀態（Case_loandoc）寫入到指定路徑下的 CaseIndex.dat
+ 檔案中。
+============================================================================== }
+Procedure TCB_IMGPSScanX.WriteCaseIndex(Path:String);
+Var
+ S : TStringlist;
+begin
+ if Path = '' then Exit;
+ S := TStringlist.Create;
+ try
+ try
+ S.Add(Case_loandoc);
+ S.SaveToFile(Path+'CaseIndex.dat');
+ except on E: Exception do
+ end;
+
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ReadCaseIndex
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：從磁碟讀取案件索引檔（CaseIndex.dat）。載入信用註記狀態，並據此更新畫面
+ 上 AddCredit1RG 選項組的選取狀態（Y 設為第一項，N 設為第二項）。若檔案不
+ 存在但有預設值，則自動建立檔案。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ReadCaseIndex(Path:String);
+Var
+ S : TStringlist;
+begin
+ AddCredit1RG.ItemIndex := -1;
+ S := TStringlist.Create;
+ try
+ if FileExists(Path+'CaseIndex.dat') then
+ begin
+ S.LoadFromFile(Path+'CaseIndex.dat');
+ Case_loandoc := S.Strings[0];
+ end;
+ if (Case_loandoc = '') and (FLoanDoc_Value <> '') then
+ begin
+ Case_loandoc := FLoanDoc_Value;
+ WriteCaseIndex(Path);
+ end;
+ if Case_loandoc = 'Y' then
+ AddCredit1RG.ItemIndex := 0
+ Else if Case_loandoc = 'N' then
+ AddCredit1RG.ItemIndex := 1;
+
+ finally
+ S.Free;
+ end;
+
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：ReduceLogFile
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：防止日誌檔案過大。檢查 IMGPSCheck.log，若行數超過 100,000 行，則自動刪
+ 除最前面的 10,000 行記錄並重新存檔。
+============================================================================== }
+procedure TCB_IMGPSScanX.ReduceLogFile; //20171011 必免log檔掌太大
+var
+ ST1:TStringlist;
+ I:integer;
+begin
+ ST1:=TStringList.Create;
+ if FileExists(LngPath+'IMGPSCheck.log') then
+ begin
+ ST1.LoadFromFile(LngPath+'IMGPSCheck.log');
+ if ST1.count>100000 then
+ begin
+ for I := 0 to 10000 do
+ begin
+ ST1.Delete(0);
+ end;
+ ST1.SaveToFile(LngPath+'IMGPSCheck.log');
+ end;
+ end;
+ ST1.Free;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ClearCaseIndex
+ 引用相依：
+ 方法描述：重設案件索引相關的 UI 狀態，將信用註記選項設為不可用且取消選取。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ClearCaseIndex;
+begin
+ AddCredit1RG.Enabled := False;
+ AddCredit1RG.ItemIndex := -1;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSelectImageFile
+ 引用相依：
+ 方法描述：取得當前所有被選取的影像檔案路徑。遍歷畫面上的 TShape 元件（選取框），透
+ 過名稱關聯找到對應的影像捲軸盒（ISB），並將其載入的檔名加入到 NowSelect
+ FileList 清單中。
+============================================================================== }
+Procedure TCB_IMGPSScanX.GetSelectImageFile;
+var
+ i : Integer;
+ FormID,FormName,DocNo : String;
+ PreNode2Name : String;
+ iFormID : String;
+ iISBName : String;
+ iISB : TImageScrollBox;
+begin
+ NowSelectFileList.Clear;
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ NowSelectFileList.Add(iISB.FileName);
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetDocNoDir
+ 引用相依：DirectoryExists
+ 方法描述：根據文件編號產生下一個可用的目錄名稱（用於區分份數）。若文件編號不為空，
+ 會遞增序號並檢查磁碟目錄是否存在，直到找到未使用的名稱（格式如 DocNo_1
+ ）；若編號為空則回傳附件目錄名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數
+var
+ i : Integer;
+ iDocNo : String;
+begin
+ if (DocNo <> '') then
+ begin
+ i := 0;
+ Repeat
+ begin
+ inc(i);
+ iDocNo := Format('%s_%d',[DocNo,i]);
+ end;
+ until not DirectoryExists(Path+iDocNo);
+ Result := iDocNo;
+ end
+ Else
+ begin
+ Result := AttName;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckFormIDExists
+ 引用相依：
+ 方法描述：檢查特定的表單代碼（FormID）是否已經存在於樹狀結構中指定文件的子節點中
+ 。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡
+var
+ i : Integer;
+begin
+ Result := False;
+ for i := 0 to DocNoNode.Count - 1 do
+ begin
+ if FormID = Node3FormID(DocNoNode.Item[i]) then
+ begin
+ Result := True;
+ break;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNo2DocNoDir
+ 引用相依：DirectoryExists
+ 方法描述：類似 GetDocNoDir，但產生的目錄名稱格式為 DocNo(1)。透過循環檢查目錄是
+ 否存在，自動產生下一個可用的份數目錄名稱。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄
+var
+ i : Integer;
+ iDocNo : String;
+begin
+ if (DocNo <> '') then
+ begin
+ i := 0;
+ Repeat
+ begin
+ inc(i);
+ iDocNo := Format('%s(%d)',[DocNo,i]);
+ end;
+ until not DirectoryExists(Path+iDocNo);
+ Result := iDocNo;
+ end
+ Else
+ begin
+ Result := AttName;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoDir2DocNo
+ 引用相依：
+ 方法描述：將包含份數括號的目錄名稱（如 A001(2)）還原為原始的文件編號（如 A001）。排
+ 除附件目錄後，尋找左括號的位置並擷取前面的字串。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo
+var
+ v,ln : Integer;
+begin
+ if (DocNoDir <> 'Attach') and (DocNoDir <> 'S_Attach') then
+ begin
+ v := Pos('(',DocNoDir);
+ if v > 0 then
+ Result := Copy(DocNoDir,1,v-1)
+ else
+ Result := DocNoDir;
+ end
+ Else
+ Result := DocNoDir
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DocNoDir2Index
+ 引用相依：LoadFromFile
+ 方法描述：將文件目錄名稱轉換為其在 CaseDocNo.dat 清單中的索引位置。
+============================================================================== }
+Function TCB_IMGPSScanX.DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index
+var
+ i : Integer;
+ CaseNo_List : TStringlist;
+begin
+ Result := -1;
+ CaseNo_List := TStringlist.Create;
+ try
+ CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');
+ for i := 0 to CaseNo_List.Count - 1 do
+ begin
+ if DocNoDir = CaseNo_List.Strings[i] then
+ begin
+ Result := i;
+ Break;
+ end;
+ end;
+ finally
+ CaseNo_List.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ParserPoint
+ 引用相依：
+ 方法描述：解析代表影像十字點座標的字串。將包含四個端點（左上、左下、右上、右下）座標
+ 及長寬資訊的字串拆解，並轉換為 TPoint 結構存入全域變數中，若字串格式不
+ 符則全部重設為 (0,0)。
+============================================================================== }
+Procedure TCB_IMGPSScanX.ParserPoint(S:String); //解析十字點的字串
+var
+ PointList : TStringlist;
+ Rect : TRect;
+begin
+ PointList := TStringlist.Create;
+ try
+ PointList.Text := S;
+ IF PointList.Count <> 6 Then
+ begin
+ UpLPoint := Str2Point('0,0');
+ UpRPoint := Str2Point('0,0');
+ DownLPoint := Str2Point('0,0');
+ DownRPoint := Str2Point('0,0');
+ Point_Width := '0';
+ Point_Height := '0';
+ end
+ Else
+ begin
+ UpLPoint := Str2Point(PointList[0]);
+ DownLPoint := Str2Point(PointList[1]);
+ UpRPoint := Str2Point(PointList[2]);
+ DownRPoint := Str2Point(PointList[3]);
+ Point_Width := PointList[4];
+ Point_Height := PointList[5];
+ end;
+ finally
+ PointList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckScanDenialTime
+ 引用相依：
+ 方法描述：檢查目前時間是否已超過系統設定的「禁止掃瞄時間」。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckScanDenialTime:Boolean;
+Var
+ NowTime : String;
+begin
+ NowTime := GetBalance2Time(Balance);
+ NowTime := Copy(NowTime,1,2)+':'+Copy(NowTime,3,2)+':'+Copy(NowTime,5,2);
+ Result := True;
+ if ScanDenialTime <> '' then
+ begin
+ if StrtoTime(NowTime) >= StrtoTime(ScanDenialTime) then
+ Result := False;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FormID2Anchor
+ 引用相依：
+ 方法描述：根據表單代碼（FormID）從 FORM_INF_List 中查詢對應的定位模式（ANCHOR 模
+ 式），並回傳轉換後的模式字串（NONE/ANCHOR/FRAME）。
+============================================================================== }
+Function TCB_IMGPSScanX.FormID2Anchor(FormID:String):String; //用FormID取出十字模式
+var
+ Anchor : String;
+begin
+ Result := 'NONE';
+ IF FindSQLData(FORM_INF_List,'T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
+ begin
+ ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
+ end;
+ Result := Index2Anchor(Anchor);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Index2Anchor
+ 引用相依：
+ 方法描述：將數值型的定位模式索引（0, 1, 2）轉換為易讀的模式名稱字串。
+============================================================================== }
+Function TCB_IMGPSScanX.Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME
+begin
+ if Anchor = '0' then
+ Result := 'NONE'
+ else if Anchor = '1' then
+ Result := 'ANCHOR'
+ else if Anchor = '2' then
+ Result := 'FRAME';
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ScanDuplexCBClick
+ 引用相依：
+ 方法描述：處理雙面掃瞄勾選框點擊事件，同步更新全域的 ScanDuplex 變數。
+============================================================================== }
+procedure TCB_IMGPSScanX.ScanDuplexCBClick(Sender: TObject);
+begin
+ ScanDuplex := ScanDuplexCB.Checked;
+ //R_W_ScanIni('W'); //user要求改成預設後不能改
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ScanGrayCBClick
+ 引用相依：ifGray256, ifBlackWhite, ifTrueColor
+ 方法描述：根據掃瞄勾選框狀態，設定掃瞄色彩模式（灰階、全彩或黑白）。
+============================================================================== }
+procedure TCB_IMGPSScanX.ScanGrayCBClick(Sender: TObject);
+begin
+
+ if ScanGrayCB.Checked then
+ begin
+ ScanColor:=ifGray256;
+ end
+ else
+ begin
+ if FScanColor = 0 then
+ begin
+ ScanColor := ifBlackWhite;
+ end;
+
+ if FScanColor = 1 then
+ begin
+ //ScanColor := ifGray256 ;
+ ScanColor := ifBlackWhite; //
+ end;
+
+
+ if FScanColor = 2 then
+ begin
+ ScanColor := ifTrueColor ;
+ end;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetFormatID
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：從案件索引檔（CaseIndex.dat）中獲取案件的 FormatID（主鍵值）。目前實作為
+ 存根，包含讀取邏輯但未回傳特定欄位。
+============================================================================== }
+Function TCB_IMGPSScanX.GetFormatID(CaseID: string):String;
+Var
+ S : TStringlist;
+ FormatID : String;
+begin
+ Result := '';
+ S := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
+ begin
+ S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
+ //Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號or原案件受編)
+ //Result := Format_ID;
+ //Handle_No := S.Strings[0]; //經辦代號
+ //Cen_Uid := S.Strings[1]; //被保人ID
+ //Cen_Cliname := S.Strings[2]; //被保人姓名
+ //Cen_Platno := S.Strings[3]; //車號
+ //Case_Priority := S.Strings[4];//案件等級
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MemoInfoTransfer
+ 引用相依：
+ 方法描述：註記代碼與類別名稱的轉換函數。支援「代碼轉名稱」或「名稱轉代碼」兩種模式，
+ 若無匹配代碼則預設為「自行輸入」。
+============================================================================== }
+Function TCB_IMGPSScanX.MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼
+var
+ i : Integer;
+begin
+ if Mode = 'ID' then
+ begin
+ Result := _Msg('自行輸入');
+ for i := 0 to ID_S.Count - 1 do
+ begin
+ if Str = ID_S.Strings[i] then
+ begin
+ Result := Name_S.Strings[i];
+ Break;
+ end;
+ end;
+ end
+ else if Mode = 'NAME' then
+ begin
+ Result := '00';
+ for i := 0 to Name_S.Count - 1 do
+ begin
+ if Str = Name_S.Strings[i] then
+ begin
+ Result := ID_S.Strings[i];
+ Break;
+ end;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetSQLData
+ 引用相依：
+ 方法描述：將 SQL 查詢結果格式化後塞入目標字串清單。此方法會先清除目標清單 (ToLi
+ st)，第一行加入欄位定義字串 (ColumeStr)，隨後將來源清單 (FromList) 中
+ 扣除標題後的資料列依序填入，用於更新系統本地的資料快取。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入
+var
+ i : Integer;
+begin
+ ToList.Clear;
+ ToList.Add(ColumeStr);
+ For i := 1 to FromList.Count -1 do
+ begin
+ ToList.Add(FromList.Strings[i]);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetSQLData
+ 引用相依：
+ 方法描述：從結構化字串清單中提取特定欄位的值。邏輯如下：
+ 1. 解析 TableList 的第一行（欄位定義）以確定目標欄位 (Colname) 的索引
+ 位置。
+ 2. 讀取指定行 (colNo) 的資料字串，該字串使用 '!@!' 作為欄位分隔符。
+ 3. 透過循環將資料拆分並存入臨時清單，最後返回對應欄位索引位置的數值內
+ 容。若找不到欄位或索引超出範圍，則返回空字串。
+============================================================================== }
+Function TCB_IMGPSScanX.GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值
+var
+ i,col,v,v1 : Integer;
+ ColStr,DataStr: TStringList;
+ TmpStr : String;
+ P1,p2 : Integer;
+begin
+ Result := '';
+ ColStr := TStringList.Create;
+ DataStr := TSTringList.Create;
+ ColStr.CommaText := TableList.Strings[0];
+ TmpStr := TableList.Strings[ColNo];
+ //DataStr.Text:=StringReplace(TmpStr,'!@!',#13,[rfReplaceAll]);
+
+ While Length(Tmpstr) > 0 do
+ begin
+ v:= Pos('!@!',TmpStr);
+ v1 := Length(TmpStr);
+ If v > 0 Then
+ begin
+ DataStr.Add(Copy(TmpStr,1,v-1));
+ TmpStr := Copy(TmpStr,v+3,V1-(V-2));
+ end
+ Else
+ begin
+ DataStr.Add(TmpStr);
+ TmpStr := '';
+ end;
+ end;
+ For i := 0 to ColStr.Count-1 do
+ begin
+ IF ColStr.Strings[i] = ColName Then
+ begin
+ Result := '';
+ If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
+ Result := DataStr.Strings[i];
+ //If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
+ //begin
+ {if i = 0 then
+ begin
+ P1 := 1;
+ p2 := PosN('!@!',TmpStr,1)-1;
+ end
+ else
+ begin
+ P1 := PosN('!@!',TmpStr,i)+3;
+ p2 := PosN('!@!',TmpStr,i+1)-p1;
+ end;
+
+
+ Result :=Copy(tmpstr,p1,p2);}
+ //end;
+ //Result := DataStr.Strings[i];
+
+ Break;
+ end;
+ end;
+ ColStr.Free;
+ DataStr.Free;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindSQLData
+ 引用相依：
+ 方法描述：在資料快取清單中搜尋符合鍵值的紀錄。核心邏輯：
+ 1. 支援多個鍵值比對 (KeyColumeStr 與 KeyStr 可包含多個欄位)。
+ 2. 若 ColNo 為 0，則從頭搜尋清單；若非 0 則僅檢查該指定行。
+ 3. 搜尋時會調用 GetSQLData 提取欄位值並與目標鍵值比對。
+ 4. 一旦匹配成功，會將 ColumeStr 中指定的所有欄位名稱及其對應數值（格式
+ 為「欄位名,數值」）填入 ResultList 中並返回 True。若搜尋無結果則返回 Fal
+ se。
+============================================================================== }
+Function TCB_IMGPSScanX.FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料
+Var i,n,Findindex : Integer;
+ ColList,KeyColList,KeyList : TStringlist;
+ Cols,Keycols,keys :String;
+ Find:Boolean;
+begin
+ ResultList.Clear;
+ if (KeyStr = '') or (TableList.Count <= 1) then
+ begin
+ Result := False;
+ Exit;
+ end;
+
+ ColList := TStringlist.Create;
+ KeyColList := TStringlist.Create;
+ KeyList := TStringlist.Create;
+ try
+ ColList.CommaText := ColumeStr;
+ KeyColList.CommaText := KeyColumeStr;
+ KeyList.CommaText := KeyStr;
+ if ColNo = 0 then
+ begin
+ for i := 1 to TableList.Count -1 do //找key對不對
+ begin
+ Findindex := i;
+ for n := 0 to KeyColList.Count - 1 do
+ begin
+ Find := True;
+ Keycols := KeyColList.Strings[n];
+ keys := KeyList.Strings[n];
+ //Showmessage(keys);
+ //Showmessage(TableList.Strings[i]);
+ if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
+ //if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度 //20130521發現找資料會有問題
+ Continue
+ Else //不對.離開
+ begin
+ Find := False;
+ Break;
+ end;
+ end;
+ if Find then Break; // 找到了離開
+ end;
+ end
+ Else
+ begin
+ i := ColNo;
+ Findindex := i;
+ for n := 0 to KeyColList.Count - 1 do
+ begin
+ Find := True;
+ Keycols := KeyColList.Strings[n];
+ keys := KeyList.Strings[n];
+ //if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
+ if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度
+ Continue
+ Else //不對.離開
+ begin
+ Find := False;
+ Break;
+ end;
+ end;
+ end;
+ if Find then //有找到key
+ begin
+ for n := 0 to ColList.Count -1 do
+ begin
+ Cols := ColList.Strings[n];
+ ResultList.Add(Cols+','+GetSQLData(TableList,Cols,Findindex));
+ end;
+ end;
+ finally
+ Result := Find;
+ ColList.Free;
+ KeyColList.Free;
+ KeyList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetFindResult
+ 引用相依：
+ 方法描述：從資料查詢結果（FindResult）中，根據指定的欄位名稱（Col）提取對應的值。
+============================================================================== }
+Function TCB_IMGPSScanX.GetFindResult(Col:String):String;
+var
+ i,v,v1 : Integer;
+ S,RCol,RValue : String;
+begin
+ Result := '';
+ for I := 0 to FindResult.Count - 1 do
+ begin
+ S := FindResult.Strings[i];
+ v := Pos(',',S);
+ v1 := length(S);
+ RCol := copy(S,1,v-1);
+ RValue := Copy(S,v+1,v1-v);
+ if Col =RCol then
+ Result := RValue;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ClearView
+ 引用相依：
+ 方法描述：清空指定的影像顯示區域。將索引從 stkv 到 8 的 TImageScrollBox 檔名重
+ 設為空，並清空對應的標籤文字，最後釋放預覽資源並將焦點設回 ISB1。
+============================================================================== }
+procedure TCB_IMGPSScanX.ClearView(stkv:Integer);
+var i:integer;
+ ISB : TImageScrollBox;
+ lb : TLabel;
+begin
+ For i:= stkv to 8 do
+ begin
+ ISB := TImageScrollBox(FindComponent('ISB'+intToStr(i)));
+ ISB.FileName := '';
+ Lb := TLabel(FindComponent('Lb'+intToStr(i)));
+ Lb.Caption := '';
+ end;
+ FreePreViewISB;
+ ISB1Click(ISB1);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：initParameter
+ 引用相依：ifBlackWhite, ifGray256, ifTrueColor
+ 方法描述：初始化掃瞄相關參數。設定檔案大小限制（預設 5MB）、DPI（預設 300）以及掃瞄
+ 顏色模式（黑白、灰階、全彩），並同步更新 UI 狀態（如 ScanGrayCB）。
+============================================================================== }
+procedure TCB_IMGPSScanX.initParameter;
+begin
+
+// if FCaseNoLength=0 then
+// begin
+//
+// end;
+
+ if FFileSizeLimit = 0 then
+ begin
+ FFileSizeLimit := 5*1024;
+ end;
+
+
+ if FImgDPI=0 then
+ begin
+ FImgDPI := 300;
+ ScanDpi := FImgDPI;
+ end
+ else
+ begin
+ //FImgDPI := StrToInt(Value);
+ ScanDpi := FImgDPI;
+ end;
+
+ if FScanColor = 0 then
+ begin
+ ScanColor := ifBlackWhite;
+ end;
+
+ if FScanColor = 1 then
+ begin
+ ScanColor := ifGray256 ;
+ ScanGrayCB.Checked:=True;
+ end;
+
+ if FScanColor = 2 then
+ begin
+ ScanColor := ifTrueColor ;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PrtLbClick
+ 引用相依：LoadFromFile
+ 方法描述：處理「列印」按鈕點擊。首先產生上傳用的暫存影像結構，接著開啟 TPrintForm
+ 供使用者勾選欲列印的文件。確認後呼叫 PrintImg 進行實體列印，並記錄操作
+ 日誌。
+============================================================================== }
+procedure TCB_IMGPSScanX.PrtLbClick(Sender: TObject);
+var
+ Width : Double;
+ Height : Double;
+ i : Integer;
+ DocDirList,FileList :TStringlist;
+ iDocDir,iDocNo : String;
+ PrtDialog : TPrintDialog;
+ S : String;
+begin
+ ShowText := _Msg('列印中,請稍候');
+ DataLoading(True,True);
+ Case2upload(NowCaseNo); //產生原影像結構
+
+
+ //ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
+
+ PrintForm := TPrintForm.create(Self);
+ DocDirList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ FileList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
+ DocDirList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\DocDir.dat');
+
+ InitialLanguage(PrintForm); //載入多國語言
+ PrintForm.CheckListBox1.Items.Clear;
+ For i := 0 to FileList.Count - 1 do
+ begin
+ iDocDir := DocDirList.Strings[i];
+ iDocno := DocNoDir2DocNo(iDocDir);
+
+ if not DocNoAppear(iDocNo) then Continue;
+
+ PrintForm.CheckListBox1.Items.Add(FileList.Strings[i]);
+ if CheckFormID_Prt(FileName2FormCode(FileList.Strings[i])) then
+ PrintForm.CheckListBox1.Checked[i] := True;
+ PrintForm.ListBox1.Items.Add(Add_Zoo(i+1,3))
+ end;
+ If (PrintForm.ShowModal = mrOK) then
+ begin
+ S := '';
+ for I := 0 to PrintForm.CheckListBox1.Count -1 do
+ begin
+ if PrintForm.CheckListBox1.Checked[i] then
+ begin
+ if S = '' then
+ S := S+PrintForm.CheckListBox1.Items[i]
+ Else
+ S := S+#13+PrintForm.CheckListBox1.Items[i];
+ end;
+ end;
+ if S = '' then
+ begin
+ Showmessage(_msg('尚未選擇欲列印文件'));
+ Exit;
+ end
+ Else
+ begin
+ PrintImg(S,FUserID,ServerDate,ImageSavePath+NowCaseNo+'\Upload\');
+ If not Writelog(NowCaseNo) then
+ begin
+ //Showmessage('false');
+ end;
+ end;
+ end;
+ finally
+ DataLoading(False,False);
+ PrintForm.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：UseOldCaseLbClick
+ 引用相依：FileExists, LoadFromFile, DirectoryExists, CopyFile, SaveToFile
+ 方法描述：處理「使用舊件」功能。開啟 TOldCaseInfoForm 讓使用者選擇舊有案件的文件。
+ 選定後，將舊件影像複製到新案件目錄下，自動產生新序號檔名，建立關聯記錄（
+ UseCase.dat），並同步更新新案件的文件清單與樹狀統計。
+============================================================================== }
+procedure TCB_IMGPSScanX.UseOldCaseLbClick(Sender: TObject);
+var
+ i,n : Integer;
+ CaseID,Year,BS_No,IS_Old : String;
+ OldCaseInfoForm : TOldCaseInfoForm;
+ OldCaseInfoList,Caseinfolist,FileList,DocNoList,iFileList,iDocNoList,iDocNo_CopiesList : TStringlist;
+ OldDocdir,OldDocNo,OldDocName,NewDocDir,FileName : String;
+ OldPath,NewPath,OldFile,NewFile:String;
+ Oldcopies:Integer;
+begin
+ OldCaseInfoForm := TOldCaseInfoForm.Create(Self);
+ OldCaseInfoList := TStringlist.Create;
+ Caseinfolist := TStringlist.Create;
+ FileList := TStringlist.Create;
+ DocNoList := TStringlist.Create;
+ iDocNo_CopiesList := TStringlist.Create;
+ iFileList := TStringlist.Create;
+ iDocNoList := TStringlist.Create;
+ OldCaseInfoForm.OldDocDirList := TStringlist.Create;
+ OldCaseInfoForm.OldDocNameList := TStringlist.Create;
+ OldCaseInfoForm.IN_WH_DocNoList := TStringlist.Create;
+ OldCaseInfoForm.OldCopiesList := TStringlist.Create;
+ try
+ InitialLanguage(OldCaseInfoForm); //載入多國語言
+ OldCaseInfoForm.Notebook1.ActivePage := 'CaseInfo';
+ OldCaseInfoForm.ImageSavePath := ImageSavePath;
+ OldCaseInfoForm.CaseID := NowCaseNo;
+ OldCaseInfoForm.Furl := Furl;
+ OldCaseInfoForm.Fdata := FData;
+ OldCaseInfoForm.FVerify := FVerify;
+ OldCaseInfoForm.FReWrite := FReWrite;
+ OldCaseInfoForm.FOldCaseInfo := FOldCaseInfo;
+
+ //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數]
+ OldCaseInfoList.StrictDelimiter := true;
+ OldCaseInfoList.Delimiter := #9;
+ OldCaseInfoList.DelimitedText := FOldCaseInfo;
+ //Showmessage(FOldCaseInfo);
+ //Showmessage(OldCaseInfoList.Text);
+ OldCaseInfoForm.IN_WH_DocNoList.Assign(IN_WH_DocNoList);
+ OldCaseInfoForm.FIs_In_Wh := FIs_In_Wh;
+ for i := 0 to OldCaseInfoList.Count - 1 do
+ begin
+ Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
+ //Caseinfolist.Delimiter := '_';
+ //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
+ CaseID := Caseinfolist.Strings[0];
+ Year := Caseinfolist.Strings[1];
+ BS_No := Caseinfolist.Strings[2];
+ IS_Old := Caseinfolist.Strings[3];
+ With OldCaseInfoForm.OldCaseLV.Items.Add do
+ begin
+ Caption := CaseID;
+ SubItems.Add(Year);
+ SubItems.Add(BS_No);
+ SubItems.Add(IS_Old);
+ end;
+ end;
+
+ if OldCaseInfoForm.ShowModal = MrOk then
+ begin
+ OldPath := ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\';
+ NewPath := ImageSavePath+NowCaseNo+'\';
+
+ iDocNoList.Clear;
+ if FileExists(NewPath+'CaseDocNo.dat') then
+ iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');
+ if FileExists(NewPath+'CaseDocNo_Copies.dat') then
+ iDocNo_CopiesList.LoadFromFile(NewPath+'CaseDocNo_Copies.dat');
+
+ for i := 0 to OldCaseInfoForm.OldDocDirList.Count - 1 do
+ begin
+ FileList.LoadFromFile(OldPath+'Context.dat');
+ DocNoList.LoadFromFile(OldPath+'DocDir.dat');
+
+
+ OldDocName := OldCaseInfoForm.OldDocNameList.Strings[i];
+ OldDocDir := OldCaseInfoForm.OldDocDirList.Strings[i];
+ OldDocNo := DocNoDir2DocNo(OldDocDir);
+ if Copy(OldDocNo,1,5)<>'ZZZZZ' then
+ begin
+ if DocNoNeedDiv(OldDocNo) then
+ NewDocDir := DocNo2DocNoDir(NewPath,OldDocNo)
+ else
+ NewDocDir := OldDocNo;
+ end
+ Else
+ begin
+ NewDocDir := GetNewCustomDocNo(NewPath,OldDocName);
+ end;
+ SetRecordEditedDocDir('A',NowCaseNo,NewDocDir);
+ iFileList.Clear;
+ if FileExists(NewPath+NewDocDir+'\Context.dat') then
+ iFileList.LoadFromFile(NewPath+NewDocDir+'\Context.dat');
+
+ if Not DirectoryExists(NewPath+NewDocDir) then
+ begin
+
+
+ iDocNoList.Add(NewDocDir);
+ Oldcopies := GetDocDirCopies(NowCaseNo+'\'+OldCaseInfoForm.UseCaseID,OldDocDir); //舊案的CaseID 放在新案CaseID目錄裡
+ if FileExists(ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\CaseDocNo_Copies.dat') then
+ iDocNo_CopiesList.Add(inttostr(Oldcopies))
+ else
+ begin
+ OldCopies := GetDocDircopies_Rec(OldPath,OldCaseInfoForm.UseCaseID,OldDocDir);
+ iDocNo_CopiesList.Add(inttostr(Oldcopies));
+ //iDocNo_CopiesList.Add('1');
+ end;
+ MkDir(NewPath+NewDocDir);
+ end;
+ SetUseCase('A',NewPath,NewDocDir,OldCaseInfoForm.UseCaseID,''); //NewDocDir 從哪來的
+ SetUseCase('A',OldPath,OldDocDir,'',NowCaseNo); //OldDocDir 去哪了
+ StringtoFile('Y',OldPath+'UseCase.dat'); //要上傳
+ for n := 0 to DocNoList.Count - 1 do
+ begin
+ if OldDocDir = DocNoList.Strings[n] then
+ begin
+ OldFile := FileList.Strings[n];
+ if Copy(NewDocDir,1,5)<>'ZZZZZ' then
+ NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile)
+ Else
+ NewFile := Add_Zoo(iFileList.Count+1,3)+'_'+GetCustomFormID(NewPath,NewDocDir)+ExtractFileExt(OldFile);
+
+ iFileList.Add(NewFile);
+ CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);
+ end;
+ end;
+ iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');
+ end;
+
+ iDocNoList.SaveToFile(NewPath+'CaseDocNo.dat');
+ iDocNo_CopiesList.SaveToFile(NewPath+'CaseDocNo_Copies.dat');
+ DrawDocItem2(MyTreeNode1,NowCaseNo);
+ //MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ NewTreeNodeRefresh;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ end;
+ finally
+ OldCaseInfoForm.OldDocDirList.Free;
+ OldCaseInfoForm.OldDocNameList.Free;
+ OldCaseInfoForm.OldCopiesList.Free;
+ OldCaseInfoList.Free;
+ Caseinfolist.Free;
+ FileList.Free;
+ DocNoList.Free;
+ iDocNo_CopiesList.Free;
+ iFileList.Free;
+ iDocNoList.Free;
+ OldCaseInfoForm.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：LastInitFormidListCreate
+ 引用相依：LoadFromFile
+ 方法描述：從 FormCode_Name.dat 檔案中提取表單代碼（底線前的部分），並將其加入到 L
+ astInitFormidList 清單中。
+============================================================================== }
+procedure TCB_IMGPSScanX.LastInitFormidListCreate(path: string);
+var
+ i:integer;
+ ST1:TStringList;
+ str1:string;
+begin
+//ShowMessage('path='+path);
+ ST1:=TStringList.Create;
+ ST1.LoadFromFile(path+'FormCode_Name.dat');
+ for I := 0 to ST1.Count - 1 do
+ begin
+ if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
+ begin
+ str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
+ LastInitFormidList.Add(str1);
+ end;
+ end;
+
+ ST1.Free;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：LoadFileGetMD5
+ 引用相依：LoadFileGetMD5, TIdHashMessageDigest5
+ 方法描述：計算指定檔案的 MD5 雜湊值。方法會以唯讀模式開啟檔案串流 (TFileStream)
+ ，利用 TIdHashMessageDigest5 元件處理串流內容，並返回以十六進位字串表
+ 示的 MD5 值。此功能主要用於確認影像檔案在傳輸或處理前後的完整性與一致
+ 性，防止資料受損或被重複處理。
+============================================================================== }
+function TCB_IMGPSScanX.LoadFileGetMD5(const filename: string): string;
+var
+ Stream: TFileStream;
+ //Buffer: array[0..1023] of AnsiChar;
+ Buffer: array[0..1023] of AnsiChar;
+ TempStr: string;
+ i: Integer;
+ idmd5:TIdHashMessageDigest5; //import IdHashMessageDigest, idHash
+
+begin
+ idmd5 := TIdHashMessageDigest5.Create;
+
+ try
+ Stream := TFileStream.Create(filename, fmOpenRead);
+ Stream.Read(Buffer[0], SizeOf(Buffer));
+
+ result := idmd5.HashStreamAsHex(Stream) ;
+ finally
+ idmd5.Free;
+ Stream.Free;
+
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：LoadImgFile
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：載入當前所有的影像案件至樹狀結構。清空舊有節點後，讀取 CaseList.dat，為
+ 每個案件建立父節點，並呼叫 DrawDocItem2 繪製子文件與表單。同時會根據 O
+ MR 檢核狀態設定對應的案件圖示。
+============================================================================== }
+procedure TCB_IMGPSScanX.LoadImgFile; //載入新件及替換件
+Var
+ i,v,v1,m : Integer;
+ CasePage : integer;
+ TempName : String;
+ BarName : String;
+ DocName : String;
+ //S : String;
+begin
+ ClearView(1);
+ PageLV.Clear;
+ AttListBox.Items.Clear;
+ AddAttFileLB.Enabled := False;
+ DelAttFileLB.Enabled := False;
+ DisplayPath := '';
+ ClearCaseIndex;
+ CaseHelpBtn.Visible := False;
+ //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ TreeView1.Items.Clear;
+ NewTreeNode := nil;
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ MyTreenode3 := nil;
+ NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
+ NewTreenode.ImageIndex := 0;
+ NewTreenode.SelectedIndex := 0;
+ Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ GetCase_PageCount(CaseCount,PageCount);
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ for i := 0 to CaseList.Count - 1 do
+ begin
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
+ if not FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat') then
+ begin
+ CaseDocNo_CopiesList.Clear;
+ for m := 0 to CaseDocNoList.Count - 1 do
+ begin
+ CaseDocNo_CopiesList.Add('1');
+ CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');
+ end;
+ end;
+
+ CasePage := GetCasePage(ImageSavePath,CaseList.Strings[i]);
+//ShowMessage('CasePage='+IntToStr(CasePage));
+ MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[i],CasePage]));
+ MytreeNode1.ImageIndex := 1;
+ MytreeNode1.SelectedIndex := 1;
+ DrawDocItem2(MytreeNode1,CaseList.Strings[i]); //長出文件名稱的樹並傳回是否有申請書的影像
+ if Pos(_Msg('未配號'),CaseList.Strings[i]) > 0 then
+ begin
+ MytreeNode1.ImageIndex := 5;
+ MytreeNode1.SelectedIndex := 5;
+ end;
+ If FileExists(ImageSavePath+CaseList.Strings[i]+'\OMRCheckOk.dat') Then
+ begin
+ MytreeNode1.ImageIndex := 7;
+ MytreeNode1.SelectedIndex := 7;
+ CaseHelpBtn.Visible := False;
+ end
+ Else IF FileExists(ImageSavePath+CaseList.Strings[i]+'\Checkerr.ini') Then
+ begin
+ MyTreenode1.ImageIndex := 5;
+ MyTreenode1.SelectedIndex := 5;
+
+ //AllEnforceLb.Visible := True; //全部強迫送件
+ end;
+ end;
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ If NewTreeNode <> nil Then
+ begin
+ TreeView1.Selected := NewTreeNode;
+ NewTreeNode.Expand(False);
+ end;
+ IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
+ begin
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：LoadImgFile1
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：載入影像檔案的另一種實作版本。包含更細緻的 Context_DocNo.dat 管理，若
+ 檔案不存在會自動掃描 ContextList 並根據 FormCode 產生對應的文件編號
+ 記錄。主要用於特定的資料結構載入。
+============================================================================== }
+procedure TCB_IMGPSScanX.LoadImgFile1; //載入新件及替換件
+Var
+ i,n,v,v1,m : Integer;
+ p : integer;
+ iCaseNo,iDocNo : String;
+ TempName : String;
+ BarName : String;
+ DocName : String;
+ //S : String;
+begin
+ ClearView(1);
+ PageLV.Clear;
+ DisplayPath := '';
+ ClearCaseIndex;
+ CaseHelpBtn.Visible := False;
+ //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ TreeView1.Items.Clear;
+ NewTreeNode := nil;
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ MyTreenode3 := nil;
+ NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
+ NewTreenode.ImageIndex := 0;
+ NewTreenode.SelectedIndex := 0;
+
+ Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
+ GetCase_PageCount(CaseCount,PageCount);
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ for n := 0 to CaseList.Count - 1 do
+ begin
+ iCaseNo := CaseList.Strings[n];
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat');
+
+ for m := 0 to CaseDocNoList.Count - 1 do
+ begin
+ iDocNo := CaseDocNoList.Strings[i];
+ MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
+ MytreeNode1.ImageIndex := 1;
+ MytreeNode1.SelectedIndex := 1;
+ end;
+
+
+ ContextList.Clear;
+ Context_DocnoList.Clear;
+ If FileExists(ImageSavePath+CaseList.Strings[n]+'\Context.dat') Then
+ begin
+ ContextList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context.dat');
+ if FileExists(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat') then
+ Context_DocnoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat')
+ else
+ begin
+ for m := 0 to ContextList.Count - 1 do
+ begin
+ Context_DocnoList.Add(FormCode2DocNo(FileName2FormCode(ContextList.Strings[m])));
+ end;
+ Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');
+ end;
+ Cust_DocNoList.Clear;
+ if FileExists(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat');
+
+ P := ContextList.Count;
+ MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
+ MytreeNode1.ImageIndex := 1;
+ MytreeNode1.SelectedIndex := 1;
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像
+ DrawDocItem2(MytreeNode1,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像 20140820改
+
+ if Pos(_Msg('未配號'),CaseList.Strings[n]) > 0 then
+ begin
+ MytreeNode1.ImageIndex := 5;
+ MytreeNode1.SelectedIndex := 5;
+ end;
+ If FileExists(ImageSavePath+CaseList.Strings[n]+'\OMRCheckOk.dat') Then
+ begin
+ MytreeNode1.ImageIndex := 7;
+ MytreeNode1.SelectedIndex := 7;
+ CaseHelpBtn.Visible := False;
+ end
+ Else IF FileExists(ImageSavePath+CaseList.Strings[n]+'\Checkerr.ini') Then
+ begin
+ MyTreenode1.ImageIndex := 5;
+ MyTreenode1.SelectedIndex := 5;
+
+ //AllEnforceLb.Visible := True; //全部強迫送件
+ end;
+ end;
+ end;
+
+
+ MyTreenode1 := nil;
+ MyTreenode2 := nil;
+ If NewTreeNode <> nil Then
+ begin
+ TreeView1.Selected := NewTreeNode;
+ NewTreeNode.Expand(False);
+ end;
+ ContextList.Clear;
+ IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
+ begin
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：LoadAttFile
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：載入指定案件的附件檔案。讀取 AttContext.dat，將附件檔名解碼後加入到 At
+ tListBox 列表中。
+============================================================================== }
+procedure TCB_IMGPSScanX.LoadAttFile(CaseID:String); //載入附加檔案
+var
+ AttContextList : TStringlist;
+ i : Integer;
+begin
+ AttListBox.Clear;
+ AttContextList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then
+ begin
+ AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');
+ end;
+ for i := 0 to AttContextList.Count - 1 do
+ begin
+ AttListBox.Items.Add(UTF8Decode(HTTPDEcode(AttContextList.Strings[i])));
+ end;
+ finally
+ AttContextList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：logTimeString
+ 引用相依：
+ 方法描述：產生帶有當前日期時間與案件編號的日誌前綴字串。
+============================================================================== }
+function TCB_IMGPSScanX.logTimeString: String;
+begin
+Result:=FormatDateTime('yyyymmdd hh:mm:ss',now) +' caseNo='+NowCaseno+' ';
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindDivFormCode
+ 引用相依：
+ 方法描述：檢查特定的表單代碼是否具有「分案」屬性。從 FORM_INF_List 中查詢該表單的
+ DIVISION 欄位，判斷是否包含目前的作業模式（如 NSCAN/ISCAN）。
+============================================================================== }
+Function TCB_IMGPSScanX.FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼
+var
+ i : Integer;
+ DelBarCode : String;
+ S : TStringlist;
+ iMode : String;
+begin
+ Result := False;
+ iMode := FMode;
+ S := TStringlist.Create;
+ try
+ IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DIVISION','T1.FORM_ID',FormCode,0,FindResult) then
+ begin
+ S.CommaText := GetFindResult('T1.DIVISION');
+ for i := 0 to S.Count - 1 do //可能有多組
+ begin
+ if S.Strings[i] = iMode then
+ begin
+ Result := True;
+ Break;
+ end;
+ end;
+ end;
+ finally
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckAvailable
+ 引用相依：FileExists, dnFile_Get, dnFile, upFile
+ 方法描述：檢查元件的使用授權。透過 HTTPS 下載掃瞄授權檔，並驗證 MacID、註冊數量與
+ 使用期限。若尚未註冊且仍有額度，則自動進行註冊並上傳新的授權檔至伺服器
+ 。最後在狀態列顯示註冊資訊。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckAvailable:Boolean; //檢查是否可使用元件
+var
+ SendData : String;
+ Msg:String;
+ Nowcount,Totalcount,Lic_Idx : Integer;
+ MacID,IPStr,LegalDate :String;
+begin
+ Result := False;
+ /////下載MPSLIC_SCAN.lic //////
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
+ if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then
+ begin
+ Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
+ Exit;
+ end;
+ /////下載MPSLIC_SCAN.lic ///
+
+ if CheckLicensebyIP_new(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,LegalDate,Msg,Nowcount,Totalcount,Lic_Idx) then //檢查是否己註冊過
+ begin
+ if (LegalDate <> '') and (ServerDate>LegalDate) and (Lic_Idx>(Totalcount)) then
+ begin
+ Showmessage(_Msg('已經超過可使用期限及超出授權數請連絡廠商'));
+ Result := False;
+ //Exit;
+ end
+ else
+ Result := True;
+ end
+ Else
+ begin
+ if Msg <> '' then
+ begin
+ Showmessage(Format(_Msg('註冊檔有問題,請連絡廠商 錯誤原因:%s'),[Msg]));
+ Result := false;
+ Exit;
+ end
+ Else
+ begin
+ if (LegalDate <> '') and (ServerDate>LegalDate) and (NowCount =0 ) then
+ begin
+ Lic_Idx := 0;
+ Showmessage(_Msg('已經超過可使用期限請連絡廠商'));
+ Result := False;
+ //Exit;
+ end
+ //else if (LegalDate = '') and (Nowcount >= Totalcount+10) then //超過註冊數量
+ else if ((LegalDate = '') or ((LegalDate <> '') and (ServerDate>LegalDate)) ) and (Nowcount >= Totalcount) then //超過註冊數量 20150717 yuu說拿掉送的10個
+ begin
+ Lic_Idx := 0;
+ Showmessage(_Msg('已經超過授權數請連絡廠商'));
+ Result := False;
+ end
+ Else //未超過註冊數量要寫入註冊檔
+ begin
+ {if Messagedlg(_Msg('您尚未註冊授權是否要進行註冊??'),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then
+ begin
+ Result := False;
+ Exit;
+ end;}
+ ShowText := _Msg('授權中,請稍候');
+ AddLicense(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,Msg);
+ Nowcount := Nowcount + 1;
+ DataLoading(True,True);
+
+ /////上傳MPSLICSCAN.lic ////
+ SendData:='data='+HTTPEncode(UTF8Encode(FData))+'@verify='+FVerify+'@work_no=PLN@file_name=MPSLIC_SCAN.lic';
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+ /////上傳MPSLICSCAN.lic /////
+ //Sleep(30000); //第一次註冊睡30秒 先不睡
+ Result := True;
+ end;
+ end;
+ end;
+ if FileExists(LngPath+'MPSLIC_SCAN.lic') then
+ DeleteFile(LngPath+'MPSLIC_SCAN.lic');
+ if LegalDate = '' then
+ StatusBar1.Panels[4].Text := Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID,inttostr(Totalcount-Nowcount)]);
+ if LegalDate <> '' then
+ StatusBar1.Panels[4].Text := '*'+Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID+'('+inttostr(Lic_Idx)+')',inttostr(Totalcount-Nowcount)]);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SmoothCBClick
+ 引用相依：Image_Smooth
+ 方法描述：處理「影像平滑化」勾選框。若勾選，則對 ISB1 的影像執行平滑化處理並重新繪
+ 製。
+============================================================================== }
+procedure TCB_IMGPSScanX.SmoothCBClick(Sender: TObject);
+begin
+ if SmoothCB.Checked then
+ begin
+ Image_Smooth(ISB1.Graphic);
+ ISB1.Redraw(True);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Case2Mask
+ 引用相依：FindPoint, DirectoryExists, _DelTree, Str2Dir, LoadFromFile, FileExi
+ sts
+ 方法描述：產生案件的遮罩影像（用於遮蔽敏感個資）。讀取 Context.dat，針對每張影像尋
+ 找定位點，並依據對應表單的 XML 定義執行區域遮罩，最後存入指定目錄。
+============================================================================== }
+Function TCB_IMGPSScanX.Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像 20170639 發現沒用到
+var
+ XT : TXMLTool;
+ i : Integer;
+ S : TStringlist;
+ SiteList : TStringlist;
+ FormID : String;
+ ColEName : String;
+ FileName : String;
+ nodename : String;
+ Site : String;
+ Anchor : String;
+begin
+ Result := False;
+ if DirectoryExists(DePath) then
+ _DelTree(DePath);
+ Str2Dir(DePath);
+ DeleteFile(SoPath+'MaskImg.zip');
+ SiteList := TStringlist.Create;
+ S := TStringlist.Create;
+ XT := TXMLTool.Create;
+ try
+ S.LoadFromFile(SoPath+'Context.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ SiteList.Clear;
+ ImageScrollBox1.LoadFromFile(SoPath+S.Strings[i],1);
+
+ FormID := FileName2FormCode(S.Strings[i]);
+ Anchor := FormID2Anchor(FormID);
+ //ParserPoint(CropMpsV.FindPoint(Anchor));
+ FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,Anchor);
+ if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then //沒有Xml就不用遮罩
+ begin
+ XT.LoadFromFile(CheckXmlPath+FWork_no+'\'+FormID+'.xml');
+ if XT.SubNodes['/form/settype10/'].First then
+ Repeat
+ ColEName := XT.SubNodes['/form/settype10/'].NodeName;
+ if XT.SubNodes['/form/settype10/'+ColEName+'/'].First then
+ Repeat
+ nodename := XT.SubNodes['/form/settype10/'+ColEName+'/'].NodeName;
+ If nodename <> '@coldesc' then
+ begin
+ Site := XT.Node['/form/settype10/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
+ SiteList.Add(Site);
+ Result := True; //有設定
+ end
+ Else
+ begin
+ //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
+ end;
+ Until not XT.SubNodes['/form/settype10/'+ColEName+'/'].Next;
+ Until not XT.SubNodes['/form/settype10/'].Next ;
+ FieldMask(ImageScrollBox1,SiteList.Text,'Mask',UpLPoint);
+ end;
+ SaveAnnotation(ImageScrollBox1,DePath+S.Strings[i]);
+ end;
+ finally
+ SiteList.Free;
+ S.Free;
+ XT.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DelAttFileLBClick
+ 引用相依：
+ 方法描述：處理「刪除附件電子檔」點擊。確認使用者選取的檔案後，從磁碟刪除實體檔案並
+ 呼叫 SetAttContextList 移除清單記錄。完成後重新載入附件清單並提示。
+============================================================================== }
+procedure TCB_IMGPSScanX.DelAttFileLBClick(Sender: TObject);
+var
+ AttFile : String;
+ SelectCount : Integer;
+ i : Integer;
+begin
+ SelectCount := 0;
+ for i := 0 to AttListBox.Items.Count - 1 do
+ begin
+ if AttListBox.Selected[i] then
+ inc(SelectCount);
+ end;
+ if SelectCount = 0 then
+ begin
+ Showmessage(_Msg('請選擇要刪除的電子檔'));
+ Exit;
+ end;
+
+ if SelectCount > 0 then
+ begin
+ if Messagedlg(Format(_Msg('是否刪除這%d筆??'),[SelectCount]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ for i := 0 to AttListBox.Items.Count - 1 do
+ begin
+ if AttListBox.Selected[i] then
+ begin
+ AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[i]));
+ DeleteFile(ImageSavePath+NowCaseNo+'\'+AttFile);
+ SetAttContextList('D',-1,NowCaseno,AttFile);
+ end;
+ end;
+ end;
+ LoadAttFile(NowCaseNo);
+ Showmessage(_msg('刪除完成'));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckFormID_Prt
+ 引用相依：
+ 方法描述：查詢指定表單（FormID）是否被設定為預設列印。透過 FORM_INF_List 檢核 IS_
+ PRINT 欄位是否為 'Y'。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印
+begin
+ Result := False;
+ If FindSQLData(FORM_INF_List,'T1.IS_PRINT','T1.FORM_ID',FormID,0,FindResult) Then
+ begin
+ if GetFindResult('T1.IS_PRINT') = 'Y' Then
+ Result := True;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PrintImg
+ 引用相依：TDibGraphic
+ 方法描述：執行影像列印的核心程序。開啟列印對話框供選擇印表機，隨後遍歷檔案清單，
+ 逐一載入影像、套用浮水印後發送至印表機。支援多頁列印於同一個任務或分頁
+ 處理。
+============================================================================== }
+procedure TCB_IMGPSScanX.PrintImg(FileName, LoginID, Datetime,
+ Path: WideString);
+var
+ PrintMode : TEnvisionPrintMode;
+ GraphicPrinter : TDibGraphicPrinter;
+ PrtDialog : TPrintDialog;
+ S : TStringlist;
+ i,Pages,Page : Integer;
+ Prt_String : String;
+ Prt_H : Integer;
+ procedure PrintWithManualPrintJob(LoginID,DateTime:String;Pages,Page:Integer);
+ begin
+ If Page = 1 Then
+ begin
+ { if UsePrintJob is False, Printer.BeginDoc and Printer.EndDoc must be
+ called by the user. This allows printing multiple images in the
+ same job (or page). }
+ GraphicPrinter.UsePrintJob := False;
+
+ { if UsePrintJob is False, the print job name that appears in the
+ print manager must be specified in using the Title property of the
+ Printer object. Otherwise, if UsePrintJob is True, the Title
+ property of the TDibGraphicPrinter object is used to specify the
+ job name. }
+ Printer.Title := _Msg('影像列印');
+ end;
+
+ IF (Page mod 2) = 1 Then
+ Printer.BeginDoc
+ Else
+ Printer.NewPage;
+
+ ImageScrollBox1.DisplayedGraphic.Canvas.Font.Size := 24;
+
+ //ImageScrollBox1.DisplayedGraphic.Canvas.TextOut(20,20, _Msg('列印人員:')+LoginID+' '+_Msg('列印分行:')+FUserUnit+' '+_Msg('列印日期:')+DateTime);
+
+ GraphicPrinter.Print(ImageScrollBox1.DisplayedGraphic);
+
+
+ { this shows how to print text on a page.
+ Printer.Canvas.TextOut(10,10, 'Envision Image Library');
+ }
+ If ((Page mod 2) = 0) or (Page = pages) Then
+ Printer.EndDoc;
+ end;
+
+ procedure PrintWithAutoPrintJob;
+ begin
+ GraphicPrinter.UsePrintJob := True;
+ GraphicPrinter.Title := _Msg('影像列印');
+ GraphicPrinter.Print(ImageScrollBox1.Graphic);
+ end;
+
+begin
+ S := TStringlist.Create;
+ GraphicPrinter := TDibGraphicPrinter.Create;
+ PrtDialog := TPrintDialog.Create(self);
+ //PrtDialog.Copies:=99;
+ try
+ IF PrtDialog.Execute Then
+ begin
+ S.Text := FileName;
+ Pages := S.Count;
+
+ for i := 0 to S.Count -1 do
+ begin
+ ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);
+ watermark2(Image1.Picture.Bitmap,70,'',ImageScrollBox1.DisplayedGraphic);
+ PrintWithManualPrintJob(LoginID,DateTime,Pages,i+1);
+ end;
+ end;
+
+ Finally
+ PrtDialog.Free;
+ GraphicPrinter.Free;
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindLastestDocDir
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：針對指定的文件編號，從 CaseDocNo.dat 中反向尋找最新的份數目錄名稱（例
+ 如 A001(2)）。
+============================================================================== }
+Function TCB_IMGPSScanX.FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir
+var
+ i : Integer;
+ DocNoList,FileList : TStringlist;
+begin
+ Result := '';
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+ for i := DocNoList.Count-1 downto 0 do
+ begin
+ if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
+ begin
+ Result := DocNoList.Strings[i];
+ Break;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ FileList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindLastestDocDirForPage
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：類似 FindLastestDocDir，但額外呼叫 DocNoIsExistImg 確保該目錄下確實存
+ 在影像檔案，若為空目錄則不視為有效結果。
+============================================================================== }
+Function TCB_IMGPSScanX.FindLastestDocDirForPage(CaseID,DocNo,formid:String):String; //找出最新的DocDir 20180207 排除隱藏的資料夾
+var
+ i,j:integer;
+ DocNoList,FileList : TStringlist;
+ Imglist: TStringlist;
+ DirIsHide:Boolean;
+begin
+ Result := '';
+ DocNoList := TStringlist.Create;
+ FileList := TStringlist.Create;
+ imglist := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+ DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+
+ for i := DocNoList.Count-1 downto 0 do
+ begin
+ if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
+ begin
+//ShowMessage(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]);
+ if not DocNoIsExistImg(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
+ begin
+//ShowMessage('DDDDD');
+ Result := '';
+ Break;
+ end
+ else
+ begin
+ Result := DocNoList.Strings[i];
+ Break;
+ end;
+ end;
+ end;
+ finally
+ DocNoList.Free;
+ FileList.Free;
+ imglist.Free;
+ end;
+
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：SortDocDir_FormID
+ 引用相依：FileExists, LoadFromFile, RenameFile, SaveToFile
+ 方法描述：對文件目錄內的影像檔案依表單代碼（FormID）進行重新排序。先提取所有檔案
+ 的 FormID 並排序，依序產生新檔名進行更名，最後更新 Context.dat 檔案順
+ 序。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序
+var
+ i,n,v,ln : Integer;
+ Exists:Boolean;
+ FileList,SortFileList,FormIDList : TStringlist;
+ FormID,iFormID:String;
+ OldName,NewName : String;
+begin
+ FileList := TStringlist.Create;
+ SortFileList := TStringlist.Create;
+ FormIDList := TStringlist.Create;
+ try
+ if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+ begin
+ FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ ////取出FormID/////
+ for i := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[i]);
+ if (FormID = 'Attach') or (FormID = 'S_Attach') then Continue; //附件離開
+ Exists := False;
+ for n := 0 to FormIDList.Count - 1 do //查一下FORMID是否已經存在了
+ begin
+ if FormID = FormIDList.Strings[n] then
+ begin
+ Exists := True;
+ Break;
+ end;
+ end;
+ if not Exists then
+ FormIDList.Add(FormID);
+ end;
+ FormIDList.Sort;
+ //排序後產要更名的清單
+ for i := 0 to FormIDList.Count - 1 do
+ begin
+ iFormID := FormIDList.Strings[i];
+ for n := 0 to FileList.Count - 1 do
+ begin
+ if FileName2FormCode(FileList.Strings[n]) = iFormID then
+ begin
+ SortFileList.Add(FileList.Strings[n]+','+'@'+Add_Zoo(SortFileList.Count+1,3)+'_'+iFormID+ExtractFileExt(FileList.Strings[n]));
+ end;
+ end;
+ end;
+ FileList.Clear;
+ //更名成新順序的檔名
+ for i := 0 to SortFileList.Count - 1 do
+ begin
+ v := Pos(',',SortFileList.Strings[i]);
+ ln := Length(SortFileList.Strings[i]);
+ OldName := Copy(SortFileList.Strings[i],1,v-1);
+ NewName := Copy(SortFileList.Strings[i],v+1,ln-v);
+ RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
+ FileList.Add(NewName);
+ end;
+ //去掉@開頭
+ for i := 0 to FileList.Count - 1 do
+ begin
+ OldName := FileList.Strings[i];
+ NewName := StringReplace(OldName,'@','',[rfReplaceAll]);
+ ReNameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
+ FileList.Strings[i] := NewName;
+ end;
+ FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+ end;
+ finally
+ FileList.Free;
+ SortFileList.Free;
+ FormIDList.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GotoAttach
+ 引用相依：
+ 方法描述：將樹狀結構的焦點跳轉至案件的附件節點。
+============================================================================== }
+Procedure TCB_IMGPSScanX.GotoAttach(OldLevel:Integer);
+var
+ i : Integer;
+begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ if Pos('Attach',MyTreeNode1.Item[i].Text) > 0 then
+ begin
+ if OldLevel = 2 then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i];
+ end
+ else if OldLevel = 3 then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i].Item[0];
+ end;
+ Break;
+ end;
+ end;
+ //TreeView1click(nil);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetDocDirtoSelected
+ 引用相依：
+ 方法描述：在樹狀結構中自動選取符合指定目錄名稱的節點。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String);
+var
+ i : Integer;
+begin
+ for i := 0 to CaseNode.Count - 1 do
+ begin
+ if Pos(DocDir+'{',CaseNode.Item[i].Text) > 0 then
+ begin
+ TreeView1.Selected := CaseNode.Item[i];
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckSelectImg_UseCase
+ 引用相依：
+ 方法描述：檢查當前選取的影像所在的文件目錄是否已被其他程序引用（UseKey 標記為 '
+ T'）。
+============================================================================== }
+Function TCB_IMGPSScanX.CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像
+var
+ i : Integer;
+ iISBName : String;
+ iISB : TImageScrollBox;
+ ImgPath,DocDir : String;
+begin
+ Result := False;
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ //Showmessage(Components[i].Name);
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ ImgPath := ExtractFilePath(iISB.FileName);
+ DocDir := Path2DocDir(ImgPath,CaseID);
+ if GetUseCase('T',Path,DocDir) <> '' then
+ Result := True;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISExistImg
+ 引用相依：LoadFileGetMD5
+ 方法描述：透過 MD5 雜湊值比對，檢查指定的影像檔案是否已存在於 ExistImgList 清單
+ 中。
+============================================================================== }
+function TCB_IMGPSScanX.ISExistImg(const filename: string): boolean;
+begin
+ if ExistImgList.IndexOf(LoadFileGetMD5(filename))<>-1 then
+ begin
+ Result:=True;
+ end
+ else
+ begin
+ Result:=False;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MoveImage
+ 引用相依：LoadFromFile, RenameFile, SaveToFile, ReSortFileName
+ 方法描述：執行影像頁面的位置移動。先對目錄下所有檔案進行臨時更名（加上 @ 標記），
+ 根據選取狀態重新排列清單順序，最後更新 Context.dat 並重新排序實體檔案
+ 。
+============================================================================== }
+Procedure TCB_IMGPSScanX.MoveImage(Path:String;mp:Integer); //移動頁數
+var
+ i,n,inx:Integer;
+ FList,D_Flist:TStringlist;
+begin
+ FList := TStringlist.Create;
+ D_Flist := TStringlist.Create;
+ try
+ FList.LoadFromFile(Path+'Context.dat');
+ //Showmessage(Path);
+ //Showmessage(Flist.Text);
+ for i := 0 to FList.Count - 1 do
+ begin
+ Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
+ Flist.Strings[i]:= '@'+Flist.Strings[i];
+ end;
+
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
+ D_Flist.Add(Flist.Strings[inx-1]);
+ //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
+ end;
+ end;
+ //Showmessage('aa');
+ for i := 0 to D_Flist.Count -1 do
+ begin
+ for n := 0 to FList.Count - 1 do
+ begin
+ //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
+ if Flist.Strings[n]=D_Flist.Strings[i] then
+ begin
+ Flist.Delete(n);
+ Break;
+ end;
+ end;
+ end;
+ //Showmessage('bb');
+ for i := 0 to D_Flist.Count - 1 do
+ begin
+ Flist.Insert(mp-1+i,D_Flist.Strings[i]);
+ end;
+
+ Flist.SaveToFile(Path+'Context.dat');
+ //Showmessage(Flist.Text);
+ //Showmessage('CC');
+ ReSortFileName(Path);
+ TreeView1click(self);
+
+
+ finally
+ FList.Free;
+ D_Flist.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：MoveImage_Drag
+ 引用相依：LoadFromFile, RenameFile, SaveToFile, ReSortFileName
+ 方法描述：處理影像拖拉移動。邏輯與 MoveImage 相似，但針對單一來源索引移動至目標
+ 索引的情境進行排列。
+============================================================================== }
+Procedure TCB_IMGPSScanX.MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數
+var
+ i,n,inx:Integer;
+ FList,D_Flist:TStringlist;
+begin
+ FList := TStringlist.Create;
+ D_Flist := TStringlist.Create;
+ try
+ FList.LoadFromFile(Path+'Context.dat');
+ for i := 0 to FList.Count - 1 do
+ begin
+ Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
+ Flist.Strings[i]:= '@'+Flist.Strings[i];
+ end;
+
+ D_Flist.Add(Flist.Strings[fp-1]);
+
+ {for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
+ D_Flist.Add(Flist.Strings[inx-1]);
+ //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
+ end;
+ end;}
+ //Showmessage('aa');
+ for i := 0 to D_Flist.Count -1 do
+ begin
+ for n := 0 to FList.Count - 1 do
+ begin
+ //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
+ if Flist.Strings[n]=D_Flist.Strings[i] then
+ begin
+ Flist.Delete(n);
+ Break;
+ end;
+ end;
+ end;
+ //Showmessage('bb');
+ for i := 0 to D_Flist.Count - 1 do
+ begin
+ Flist.Insert(tp-1+i,D_Flist.Strings[i]);
+ end;
+
+ Flist.SaveToFile(Path+'Context.dat');
+ //Showmessage(Flist.Text);
+ //Showmessage('CC');
+ ReSortFileName(Path);
+ TreeView1click(self);
+
+
+ finally
+ FList.Free;
+ D_Flist.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PriorPage
+ 引用相依：
+ 方法描述：跳轉至上一頁影像。根據當前頁碼尋找前一個影像捲軸盒組件（ISB），若存在則
+ 觸發其點擊事件。
+============================================================================== }
+Procedure TCB_IMGPSScanX.PriorPage(Page:Integer); //上一頁
+var
+ iISB : TImageScrollBox;
+begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page-1)));
+ if iISB <> nil then
+ begin
+ ISBClick(iISB);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：NextPage
+ 引用相依：
+ 方法描述：跳轉至下一頁影像。根據當前頁碼尋找下一個影像捲軸盒組件（ISB），若存在則
+ 觸發其點擊事件。
+============================================================================== }
+Procedure TCB_IMGPSScanX.NextPage(Page:Integer); //下一頁
+var
+ iISB : TImageScrollBox;
+begin
+ iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page+1)));
+ if iISB <> nil then
+ begin
+ ISBClick(iISB);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：view_image_FormCode
+ 引用相依：LoadFromFile
+ 方法描述：根據表單代碼（FormCode）顯示對應的影像。支援顯示全部影像（ShowAll）或指定
+ 表單的影像。若是顯示全部，會重置視窗並建立縮圖；若指定特定表單，則遍歷 C
+ ontextList 尋找匹配的檔案，載入至影像捲軸盒（ISB），並設定縮放模式（zmFit
+ toPage 或指定百分比）與捲軸位置，最後更新頁碼標籤資訊。
+============================================================================== }
+procedure TCB_IMGPSScanX.view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像
+var i,p:integer;
+ ISB : TImageScrollBox;
+ lb : TLabel;
+ v ,v1 : Integer;
+ page : Integer;
+ List_FormCode,Err_FormCode: String;
+ iFormID : String;
+begin
+ ShowText := _Msg('影像顯示中,請稍候');
+ DataLoading(True,True);
+
+ IF FormCode = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
+ begin
+ ClearView(1);
+ CreatePreViewISB(ContextList.Count);
+ For i := Stpage-1 to ContextList.Count -1 do
+ begin
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(stview+i)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+ContextList.Strings[i],1);
+
+ {GetScrollData(ISB,HS,VS,iRate);
+ if iRate = 0 then
+ ISB.ZoomMode := zmFittoPage
+ Else
+ ISB.ZoomPercent := iRate;
+ ISB.HorzScrollBar.Position := HS;
+ ISB.VertScrollBar.Position := VS;
+
+ List_FormCode := FileName2FormCode(ContextList.Strings[i]);
+ lb := TLabel(FindComponent('lb'+intToStr(stview)));
+ lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
+ If List_FormCode = '' Then
+ lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+')'
+ Else
+ lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+'-'+List_FormCode+')';
+ Inc(Stview);
+ If ((VMode = 0) and (Stview>1))
+ or ((VMode = 1) and ((Stview>2)))
+ or ((VMode = 2) and ((Stview>4)))
+ or ((VMode = 3) and ((Stview>6)))
+ or ((VMode = 4) and ((Stview>8))) Then
+ break;
+ }
+ end;
+ FitPreViewISB;
+ end
+ Else //顯示指定FormCode的影像
+ begin
+ If (TreeView1.Selected <> nil) Then
+ begin
+ If Stpage = 0 Then
+ Stpage := 1;
+ Page := 0;
+ ClearView(stview);
+ If Stpage > ContextList.Count Then Exit;
+ For i := 0 to ContextList.Count -1 do
+ begin
+ List_FormCode := FileName2FormCode(ContextList.Strings[i]);
+ {iFormID := GetMainFormID(List_FormCode);
+ if iFormID <> '' then
+ List_FormCode := iFormID;}
+
+ Err_FormCode := 'NoCode';
+ if (List_Formcode <> '') and (not FormIDExists(List_Formcode,False,0)) then
+ Err_FormCode := 'Err';
+ IF (List_FormCode = FormCode) or (Err_FormCode=Formcode) or (FormCode2DocNo(List_FormCode) = FormCode) Then
+ begin
+ Inc(Page);
+ IF Page< Stpage Then
+ Continue;
+ ISB := TImageScrollBox(FindComponent('ISB'+intToStr(stview)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+ContextList.Strings[i],1);
+
+ GetScrollData(ISB,HS,VS,iRate);
+ if iRate = 0 then
+ ISB.ZoomMode := zmFittoPage
+ Else
+ ISB.ZoomPercent := iRate;
+ ISB.HorzScrollBar.Position := HS;
+ ISB.VertScrollBar.Position := VS;
+ {if not SortMode then
+ begin
+ SetScrollData(MPSViewX,MPSViewX.HorzScrollBarPos,MPSViewX.VertScrollBarPos,MPSViewX.ZoomPercent);
+ end;}
+ //MPSViewX.ImageZoomMode := zmFullpage;
+ //MPSViewX.AntiAliased := True;
+ lb := TLabel(FindComponent('lb'+intToStr(stview)));
+ lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
+ If List_FormCode = '' Then
+ lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseno,List_FormCode)+')'
+ Else
+ lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseNo,List_FormCode)+'-'+List_FormCode+')';
+ Inc(Stview);
+ end;
+ If ((VMode = 0) and (Stview>1))
+ or ((VMode = 1) and ((Stview>2)))
+ or ((VMode = 2) and ((Stview>4)))
+ or ((VMode = 3) and ((Stview>6)))
+ or ((VMode = 4) and ((Stview>8))) Then
+ break;
+ end;
+ end;
+ end;
+ ISB1Click(ISB1);
+
+
+ DataLoading(False,False);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：view_image_DocNo
+ 引用相依：DpiResize, FileExists, LoadFromFile, DirectoryExists
+ 方法描述：根據文件代號（DocNo）或表單代號（FormID）顯示影像。函式包含三種模式：顯示
+ 案件內所有影像（ShowAll）、顯示指定文件夾（如 Attach）下的影像，以及顯示指
+ 定文件代號下特定表單的影像。處理過程中會檢查在席狀態（In_WH）、執行影像
+ DPI 調整、建立縮圖預覽視窗，並逐一載入檔案至對應的 ISB 元件中，最後自動
+ 點擊首張影像以進行預覽。
+============================================================================== }
+procedure TCB_IMGPSScanX.view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像
+var i,n,p:integer;
+ ISB : TImageScrollBox;
+ lb : TLabel;
+ v ,v1 : Integer;
+ List_DocNo,Trans_DocNo,List_FormCode,Form_Page: String;
+ iDocNo : String;
+ iGroupNo,page,Ct,int1 : Integer;
+ ST1:TStringList;
+begin
+ ShowText := _Msg('影像顯示中,請稍候');
+ DataLoading(True,True);
+ST1:=TStringList.Create;
+//Display1.Lines.Clear;
+ IF DocNo = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
+ begin
+ ClearView(1);
+ if GetCasePage(ImageSavePath,NowCaseno) > 30 then
+ begin
+ DataLoading(False,False);
+ Exit;
+ end;
+ CreatePreViewISB(GetCasePage(ImageSavePath,NowCaseno));
+//Showmessage(inttostr(GetCasePage(ImageSavePath,NowCaseno)));
+ Ct := 0;
+ For i := 0 to CaseDocNoList.Count-1 do
+ begin
+
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
+ end;
+ end;
+
+ iDocNo := CaseDocNoList.Strings[i];
+//ShowMessage('ST1.Count='+IntToStr(ST1.Count));
+ if ST1.Count<>0 then
+ begin
+ if ST1.IndexOf(iDocNo)<>-1 then
+ begin
+ end
+ else
+ begin
+ if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
+ end;
+ end
+ else
+ begin
+ if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
+ end;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+//ShowMessage('ContextList='+ContextList.Text);
+ for n := 0 to ContextList.Count - 1 do
+ begin
+
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[n]) then
+ begin
+
+ if not DocNoIs_In_WH(Copy(iDocNo,1,8)) then
+ begin
+ Continue;
+ end;
+ end;
+ end;
+
+ inc(Ct);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
+
+ DpiResize(ISB.Graphic,36,False);
+ ISB.Redraw(true);
+
+ end;
+
+ end;
+ //if DirectoryExists(Path+'Attach') then
+ if DirectoryExists(Path+AttName) then
+ begin
+ //iDocNo := 'Attach';
+ iDocNo := AttName;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+ for n := 0 to ContextList.Count - 1 do
+ begin
+ inc(Ct);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
+ end;
+ end;
+
+ FitPreViewISB;
+
+ end
+ Else if (DocNo <> '') and (FormID = '') then //顯示指定DocNo+組別的影像 附件傳 Attach
+ begin //顯示 文件層下的影像
+ iDocNo := DocNo;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+
+//ShowMessage('ContextList.Count='+IntToStr(ContextList.Count));
+ CreatePreViewISB(ContextList.Count);
+//ShowMessage(IntToStr(ContextList.Count));
+ int1:=0;
+//ShowMessage(BoolToStr(DocNoIs_In_WH(Copy(iDocNo,1,8)),true));
+ For i := 0 to ContextList.Count -1 do
+ begin
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
+ begin
+
+ if not DocNoIs_In_WH(Copy(iDocNo,1,8)) and ( iDocNo<>'Attach') then
+ begin
+ inc(int1);
+ Continue;
+ end;
+ end;
+ end;
+//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(i+1-int1)));
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
+ DpiResize(ISB.Graphic,36,False);
+ ISB.Redraw(true);
+ end;
+ FitPreViewISB;
+ end
+ Else if (FormID <> '') {and (FormID <> 'Attach')} then //顯示指定FormID的影像
+ begin
+ If (TreeView1.Selected <> nil) Then
+ begin
+ iDocNo := DocNo;
+ ContextList.Clear;
+ if FileExists(Path+iDocNo+'\Context.dat') then
+ ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
+ iGroupNo := 0;
+ page := 0;
+ Ct := 0;
+ CreatePreViewISB(Pages);
+//ShowMessage('formID page'+IntToStr(Pages)+', ContextList='+ContextList.Text);
+ For i := 0 to ContextList.Count -1 do
+ begin
+ if FileName2FormCode(ContextList.Strings[i]) = FormID then
+ begin
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
+//ShowMessage(BoolToStr(ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]),true));
+ if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
+ begin
+ if not DocNoIs_In_WH(FormCode2DocNo(FormID)) then
+ Continue;
+ end;
+ end;
+ inc(Ct);
+ ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
+//ShowMessage(ISB.Name);
+ ISB.AntiAliased := True;
+ if ISB.ZoomPercent > 100 then
+ ISB.AntiAliased := False;
+ ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
+ DpiResize(ISB.Graphic,36,False);
+ ISB.Redraw(true);
+
+ //NowShowFileList.Add(ContextList.Strings[i]);
+ end;
+ end;
+ FitPreViewISB;
+ end;
+ end;
+
+ if FindComponent(ISBName+'1') <> nil then
+ begin
+ ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
+ end;
+ ISB1Click(ISB1);
+ DataLoading(False,False);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CB1Click
+ 引用相依：
+ 方法描述：處理核取方塊點擊，設定是否要在掃描時顯示 TWAIN 使用者介面（TwainShowUI
+ ）。
+============================================================================== }
+procedure TCB_IMGPSScanX.CB1Click(Sender: TObject);
+begin
+ TwainShowUI := CB1.Checked;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ViewModeBtnMouseEnter
+ 引用相依：
+ 方法描述：當滑鼠進入檢視模式按鈕時，顯示該按鈕的 Hint 文字作為工具提示（Tooltip）
+ 。
+============================================================================== }
+procedure TCB_IMGPSScanX.ViewModeBtnMouseEnter(Sender: TObject);
+begin
+ AddToolTip(TBitBtn(Sender).Parent.Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_caseid
+ 引用相依：
+ 方法描述：設定內部變數 FCaseID 的值。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_caseid(const Value: WideString);
+begin
+ FCaseID := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_data
+ 引用相依：
+ 方法描述：設定內部變數 FData 的值。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_data(const Value: WideString);
+begin
+ FData := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_mode
+ 引用相依：
+ 方法描述：設定作業模式（FMode），並將傳入的字串轉換為大寫。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_mode(const Value: WideString);
+begin
+ FMode := UpperCase(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_rewrite
+ 引用相依：
+ 方法描述：設定是否強制覆蓋檔案的標記（FReWrite）。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_rewrite(const Value: WideString);
+begin
+ FReWrite := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_url
+ 引用相依：
+ 方法描述：設定後端伺服器的基礎 URL 路徑。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_url(const Value: WideString);
+begin
+ FUrl := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_userid
+ 引用相依：
+ 方法描述：設定當前登入的使用者代號。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_userid(const Value: WideString);
+begin
+ FUserID := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_username
+ 引用相依：
+ 方法描述：設定當前登入的使用者名稱。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_username(const Value: WideString);
+begin
+ FUserName := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_verify
+ 引用相依：
+ 方法描述：設定 API 呼叫所需的驗證字串。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_verify(const Value: WideString);
+begin
+ FVerify := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_language
+ 引用相依：FileExists
+ 方法描述：設定語系代碼並執行初始化。會自動修正語系格式（如 zh-tw 轉 zh_tw），若語
+ 言檔存在則觸發介面語系切換。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_language(const Value: WideString);
+begin
+ FLanguage := lowercase(Value);
+ if FLanguage='zh-tw' then
+ begin
+ FLanguage:='zh_tw'
+ end;
+ if FileExists(LngPath+'Language.lng') then
+ begin
+ InitialLanguage(Self); //載入多國語言
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_modename
+ 引用相依：
+ 方法描述：設定作業模式的顯示名稱。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_modename(const Value: WideString);
+begin
+ FModeName := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_userunit
+ 引用相依：
+ 方法描述：設定使用者所屬的單位代碼。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_userunit(const Value: WideString);
+begin
+ FUserUnit := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_work_no
+ 引用相依：
+ 方法描述：設定當前的業務別（WORK_NO）。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_work_no(const Value: WideString);
+begin
+ FWork_no := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_loandoc_enable
+ 引用相依：
+ 方法描述：設定信用註記功能是否啟用。根據參數（Y/I）動態切換 AddCredit1RG 元件的可
+ 用性與可見度。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_loandoc_enable(const Value: WideString);
+begin
+ FLoanDoc_Enable := Value;
+ if FLoanDoc_Enable = 'Y' then
+ AddCredit1RG.Enabled := True;
+ if FLoanDoc_Enable = 'I' then
+ begin
+ AddCredit1RG.Visible := False;
+ Panel5.Visible := False;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_loandoc_value
+ 引用相依：
+ 方法描述：設定信用註記的具體數值。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_loandoc_value(const Value: WideString);
+begin
+ FLoanDoc_Value := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_useproxy
+ 引用相依：
+ 方法描述：設定系統是否使用 Proxy 代理伺服器進行網路連線。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_useproxy(const Value: WideString);
+begin
+ FUseProxy := UpperCase(Value);
+ if FUseProxy = 'Y' then
+ UseProxy := True; //要不要用Proxy
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_c_docnamelist
+ 引用相依：
+ 方法描述：設定預設的文件名稱清單。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_c_docnamelist(const Value: WideString);
+begin
+ FC_DocNameList := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_c_docnolist
+ 引用相依：
+ 方法描述：設定預設的文件代號清單。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_c_docnolist(const Value: WideString);
+begin
+ FC_DocNoList := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_fixfilelist
+ 引用相依：
+ 方法描述：設定固定的檔案清單字串。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_fixfilelist(const Value: WideString);
+begin
+ FFixFileList := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_is_in_wh
+ 引用相依：
+ 方法描述：設定是否為在席（In-Warehouse）作業模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_is_in_wh(const Value: WideString);
+begin
+ FIs_In_Wh := UpperCase(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_oldcaseinfo
+ 引用相依：
+ 方法描述：設定舊案件的相關資訊字串。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_oldcaseinfo(const Value: WideString);
+begin
+ FOldCaseInfo := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_c_docnamelist
+ 引用相依：
+ 方法描述：獲取預設文件名稱清單的存根函式，目前未實作回傳內容。
+============================================================================== }
+function TCB_IMGPSScanX.Get_c_docnamelist: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_c_docnolist
+ 引用相依：
+ 方法描述：獲取預設文件代號清單的存根函式，目前未實作回傳內容。
+============================================================================== }
+function TCB_IMGPSScanX.Get_c_docnolist: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_caseid
+ 引用相依：
+ 方法描述：獲取內部案件編號（FCaseID）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_caseid: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_data
+ 引用相依：
+ 方法描述：獲取內部資料字串（FData）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_data: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_fixfilelist
+ 引用相依：
+ 方法描述：獲取固定的檔案清單字串（FFixFileList）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_fixfilelist: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_is_in_wh
+ 引用相依：
+ 方法描述：獲取是否為在席作業模式的標記（FIs_In_WH）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_is_in_wh: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_language
+ 引用相依：
+ 方法描述：獲取當前設定的語系代碼（FLanguage）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_language: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_loandoc_enable
+ 引用相依：
+ 方法描述：獲取信用註記功能是否啟用的狀態。
+============================================================================== }
+function TCB_IMGPSScanX.Get_loandoc_enable: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_loandoc_value
+ 引用相依：
+ 方法描述：獲取當前設定的信用註記數值。
+============================================================================== }
+function TCB_IMGPSScanX.Get_loandoc_value: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_mode
+ 引用相依：
+ 方法描述：獲取當前作業模式（FMode）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_mode: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_modename
+ 引用相依：
+ 方法描述：獲取作業模式的顯示名稱（FModeName）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_modename: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_oldcaseinfo
+ 引用相依：
+ 方法描述：獲取舊案件的相關資訊字串（FOldCaseInfo）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_oldcaseinfo: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_rewrite
+ 引用相依：
+ 方法描述：獲取是否強制覆蓋檔案的標記（FReWrite）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_rewrite: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_url
+ 引用相依：
+ 方法描述：獲取後端伺服器的基礎 URL（FUrl）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_url: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_useproxy
+ 引用相依：
+ 方法描述：獲取是否使用 Proxy 代理伺服器的設定。
+============================================================================== }
+function TCB_IMGPSScanX.Get_useproxy: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_userid
+ 引用相依：
+ 方法描述：獲取當前登入的使用者代號（FUserID）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_userid: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_username
+ 引用相依：
+ 方法描述：獲取當前登入的使用者名稱（FUserName）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_username: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_userunit
+ 引用相依：
+ 方法描述：獲取使用者所屬的單位代碼（FUserUnit）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_userunit: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_verify
+ 引用相依：
+ 方法描述：獲取 API 驗證字串（FVerify）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_verify: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_work_no
+ 引用相依：
+ 方法描述：獲取當前的業務別代碼（FWork_No）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_work_no: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_printyn
+ 引用相依：
+ 方法描述：獲取是否預設列印的標記（FPrintyn）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_printyn: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_printyn
+ 引用相依：
+ 方法描述：設定是否預設列印的標記，並將傳入值轉換為大寫。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_printyn(const Value: WideString);
+begin
+ FPrintyn := UpperCase(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_is_oldcase
+ 引用相依：
+ 方法描述：獲取是否為舊件處理模式的標記（FIs_OldCase）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_is_oldcase: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_is_oldcase
+ 引用相依：
+ 方法描述：設定是否為舊件處理模式，並將傳入值轉換為大寫。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_is_oldcase(const Value: WideString);
+begin
+ FIs_OldCase := UpperCase(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_custdocyn
+ 引用相依：
+ 方法描述：獲取是否支援自定義文件的標記（FCustDocYN）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_custdocyn: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_custdocyn
+ 引用相依：
+ 方法描述：設定是否支援自定義文件，並將傳入值轉換為大寫。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_custdocyn(const Value: WideString);
+begin
+ FCustDocYN := UpperCase(Value);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_casenolength
+ 引用相依：
+ 方法描述：獲取案件編號的長度限制。
+============================================================================== }
+function TCB_IMGPSScanX.Get_casenolength: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_filesizelimit
+ 引用相依：
+ 方法描述：獲取單一影像檔案的大小限制（KB）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_filesizelimit: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_imgdpi
+ 引用相依：
+ 方法描述：獲取掃描影像的 DPI 設定值。
+============================================================================== }
+function TCB_IMGPSScanX.Get_imgdpi: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_scancolor
+ 引用相依：
+ 方法描述：獲取掃描顏色模式的索引值。
+============================================================================== }
+function TCB_IMGPSScanX.Get_scancolor: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_casenolength
+ 引用相依：
+ 方法描述：設定案件編號的長度限制。若傳入值為空字串則設為 0；否則將字串轉換為整數
+ 後賦值給 FCaseNoLength 與全域變數 CaseIDLength。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_casenolength(const Value: WideString);
+begin
+ if Value ='' then
+ begin
+ FCaseNoLength := 0 ;
+ CaseIDLength := FCaseNoLength;
+ end
+ else
+ begin
+ FCaseNoLength := StrToInt(Value) ;
+ CaseIDLength := FCaseNoLength;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_filesizelimit
+ 引用相依：
+ 方法描述：設定影像檔案的大小限制（KB）。若傳入值為空，則預設為 5120 KB (5MB)；否則
+ 將字串轉換為整數後賦值給 FFileSizeLimit。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_filesizelimit(const Value: WideString);
+begin
+//ShowMessage(Value);
+ FFileSizeLimit:=0;
+ if Value ='' then
+ begin
+ FFileSizeLimit := 5*1024;
+ end
+ else
+ begin
+ FFileSizeLimit := StrToInt(Value);
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_imgdpi
+ 引用相依：
+ 方法描述：設定掃描 DPI。若傳入值為空，則預設為 300 DPI；否則將字串轉整數後賦值給
+ FImgDPI，並同步更新全域變數 ScanDpi 與 Def_ScanDpi。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_imgdpi(const Value: WideString);
+begin
+ if Value ='' then
+ begin
+ FImgDPI := 300;
+ ScanDpi := FImgDPI;
+ end
+ else
+ begin
+ FImgDPI := StrToInt(Value);
+ ScanDpi := FImgDPI;
+ Def_ScanDpi := FImgDPI;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_scancolor
+ 引用相依：ifBlackWhite, ifGray256, ifTrueColor
+ 方法描述：設定掃描色彩模式。將傳入的數值字串轉為整數。0 代表黑白（ifBlackWhite），1
+ 代表灰階（ifGray256），2 代表全彩（ifTrueColor）。此函式會同步更新 FScanC
+ olor 與全域變數 ScanColor，確保掃描器使用正確的色彩模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_scancolor(const Value: WideString);
+begin
+ if value='' then
+ begin
+ FScanColor := 0;
+ ScanColor := ifBlackWhite;
+ end
+ else
+ begin
+ FScanColor := StrToInt(Value);
+ ScanColor := ifBlackWhite;
+ end;
+
+ if FScanColor = 1 then
+ begin
+ ScanColor := ifGray256 ;
+ end;
+
+ if FScanColor = 2 then
+ begin
+ ScanColor := ifTrueColor ;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_imgdelete
+ 引用相依：
+ 方法描述：獲取影像刪除權限的標記（FImgDelete）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_imgdelete: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_imgdelete
+ 引用相依：
+ 方法描述：設定影像刪除權限。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_imgdelete(const Value: WideString);
+begin
+ FImgDelete:=Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_check_main_form
+ 引用相依：
+ 方法描述：獲取是否檢查主表單的標記（FCheck_main_form）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_check_main_form: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_isExternal
+ 引用相依：
+ 方法描述：獲取是否為外部呼叫模式的標記（FIsExternal）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_isExternal: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_check_main_form
+ 引用相依：
+ 方法描述：設定是否檢查主表單。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_check_main_form(const Value: WideString);
+begin
+ FCheck_main_form := Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_isExternal
+ 引用相依：
+ 方法描述：設定是否為外部呼叫模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_isExternal(const Value: WideString);
+begin
+ FIsExternal:=Value;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Get_WH_CATEGORY
+ 引用相依：
+ 方法描述：獲取倉庫類別資訊（FWH_category）。
+============================================================================== }
+function TCB_IMGPSScanX.Get_WH_CATEGORY: WideString;
+begin
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：Set_WH_CATEGORY
+ 引用相依：
+ 方法描述：設定倉庫類別（WH_CATEGORY）。此範圍除包含 setter 實作外，亦涵蓋了組件的
+ initialization 初始區段，負責註冊 ActiveForm 工廠並設定多組授權金鑰（L
+ icenseKey），確保 OCX 運作環境與權限正確初始化。
+============================================================================== }
+procedure TCB_IMGPSScanX.Set_WH_CATEGORY(const Value: WideString);
+begin
+ FWH_category:=Value;
+end;
+
+initialization
+ TActiveFormFactory.Create(
+ ComServer,
+ TActiveFormControl,
+ TCB_IMGPSScanX,
+ Class_CB_IMGPSScanX,
+ 1,
+ '',
+ OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
+ tmApartment);
+
+ {SetLicenseKey('5B4451E676A1D2976FBB0F3BB18341336AF114C80B5ABAE7F6926B1CAF671F44' +
+ 'BD2F098CCEDA922F6389BFAE398DA6AEE67F97EEA0C17234C20D75C12173DBDA' +
+ '594924D56DD8E342F454389C836AD880BB4352CA3BE62C4933B1BA3828E7462C' +
+ '60514F2ECDAD322E6128D841F12D24DA00B623106D3F08EBCAA917D8A97CAA34' +
+ '3D65F2DA567316457395BF9123EE53DF235D181F191A5712DBB27735284AA92D' +
+ '5DFA0C8308308505F384707E900C6063F53F1BFF4C6972607955D1AE517B19D0' +
+ '82CDD16301885403AD229D57BAEF98C056F31430861E5F68F339D658D72E1F92' +
+ '63899412EC2D07891FE3AFD35F3E4A4390B2F0A8A1BF1B7D6160E5F1CC009B17'); }
+ SetLicenseKey('4B2CF65E8C2A86CE8A0DD0F6A7DB03BC0B0126168B48AE4C27EBD78CAE75CF0F' +
+ 'A612190861E0D99F6FAE3ED97AC1941B5E97843CFFCF705A3787989072D4EB2C' +
+ 'AE6CAB3F5B69B86616ACC8A37AD6A2AB21C7BDD5C9AE1EDF9E4193D353805C9A' +
+ '403631CE8A3D0803FEBB1BE4C209CE7A63B1298EF080EB34B8628CED567D2B68' +
+ 'E777FAC58E2E32B7411FC217A04336231D1E861A93474759DAA6EDF53F6EB632' +
+ 'A3055229A52F3053FB844754741409022DDE3DFB19473510F2BE63328E74BE20' +
+ 'A6A29AA24878F91ADA9DF8CE1F320AF4DAF58EBF95D9BE761D70EEA274E19475' +
+ '1C15948B184264C5C49E60493F3BCD2FFAE2CA8B021D00B96F45550C5F050D8A');
+
+
+ SetLicenseKey('A6A94A8D91B08A9D58F300C0573EA9EF1B9DB0BF69B90E13B958DB4CB6B44F5A' +
+ '4EE9CB22C9A68C2D07ED52ED4D13C755D890E4074996755361E6CDE2A6F1B563' +
+ '5DDC8999AC4D71FB092EA9F1F87BFA25694FBF0D6D250087D2B39629713FCCB0' +
+ 'D0A83135BC14FC63A4E8331CFF9E24C45C2D9CFD837EB70BAFDB79A75B7B97D5' +
+ 'E9EB271685118C29D90A7C85E7793908989E295DA50021C795A448366026E975' +
+ 'F49EA75B721B80427B99E5CF24A225FB498C07946ED7B806B483654C00D85C66' +
+ 'E34215CA3EDEF1D4C3F5896090E97E1E2C9752BA2D5B49EE58CF19A0D374077F' +
+ '6D13B90B6FED22D9EBC3AD6CDC76E595E08725BF2E12B8EF30A524A2E00504DF');
+end.
+
+
diff --git a/reassemble/view/msger.pas b/reassemble/view/msger.pas
new file mode 100644
index 0000000..54d0bb2
--- /dev/null
+++ b/reassemble/view/msger.pas
@@ -0,0 +1,66 @@
+{ ==============================================================================
+ 方法名稱：StatusBar1DblClick
+ 引用相依：
+ 方法描述：處理狀態列連按兩下事件。用於切換測試功能按鈕及除錯訊息視窗（Memo1/Disp
+ lay1）的顯示，支援搭配 Control 鍵切換授權匯出/匯入功能。
+============================================================================== }
+procedure TCB_IMGPSScanX.StatusBar1DblClick(Sender: TObject);
+begin
+ Button3.Visible := not Button3.Visible;
+ Button4.Visible := not Button4.Visible;
+ if (GetKeyState(VK_CONTROL) < 0) Then
+ begin
+ ExportBt.Visible := not ExportBt.Visible;
+ ImportBt.Visible := not ImportBt.Visible;
+ end
+ Else
+ begin
+ Memo1.Visible := not Memo1.Visible;
+ Display1.Visible := not Display1.Visible;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：DataLoading
+ 引用相依：
+ 方法描述：控制資料載入時的 UI 狀態。啟用載入時會切換滑鼠游標為等待狀態、顯示提示
+ 面板（Panel22 或 Panel8），並禁用主要的操作面板（Panel1/Panel2）；關閉時則
+ 恢復正常狀態。支援使用計時器（Timer2）來顯示動態提示。
+============================================================================== }
+Procedure TCB_IMGPSScanX.DataLoading(Loading:Boolean;UseTimer:Boolean); //資料載入中要停止點選的動作
+begin
+ If Loading Then
+ begin
+ Screen.Cursor := -11;
+ if UseTimer then
+ begin
+ Panel22.Caption := ShowText;
+ Panel22.Left := (Panel9.Width div 2) - (Panel22.Width div 2);
+ Panel22.Top := (Panel9.Height div 2) - (Panel22.Height div 2);
+ Panel22.Visible := True;
+ Timer2.Enabled := True;
+ end
+ Else
+ begin
+ Panel8.Left := (Panel9.Width div 2) - (Panel8.Width div 2);
+ Panel8.Top := (Panel9.Height div 2) - (Panel8.Height div 2);
+ Panel8.Visible := True;
+ end;
+ Application.ProcessMessages;
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ end
+ Else
+ begin
+ Panel22.Visible := False;
+ Panel8.Visible := False;
+ Timer2.Enabled := False;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ Screen.Cursor := 0;
+ end;
+
+end;
+
+
diff --git a/reassemble/view/popupMenu.pas b/reassemble/view/popupMenu.pas
new file mode 100644
index 0000000..c2c62e0
--- /dev/null
+++ b/reassemble/view/popupMenu.pas
@@ -0,0 +1,2020 @@
+{ ==============================================================================
+ 方法名稱：PM401Click
+ 引用相依：GetNoNameCase, Str2Dir, RenameFile, SaveToFile, FileExists, LoadFrom
+ File
+ 方法描述：影像列表右鍵選單功能：從指定頁面分出新案。確認使用者選取的分案起點（不
+ 能為第一頁）後，取得新的流水案號並建立目錄。將原案件中該頁碼之後的所有
+ 影像檔案更名並搬移至新案目錄，同步更新原案與新案的 Context.dat 與 Cas
+ eIndex.dat。完成後重新載入影像列表並提示完成。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM401Click(Sender: TObject);
+var
+ i : Integer;
+ FromIndex : Integer;
+ CaseID : String;
+ NewPath : String;
+ OldName,NewName:String;
+ S : TStringlist;
+begin
+ S := TStringlist.Create;
+ try
+ FromIndex := PageLv.ItemIndex;
+ if FromIndex = 0 then
+ begin
+ Showmessage(_Msg('不能從第1頁分案'));
+ Exit;
+ end;
+
+ If MessageDlg(Format(_Msg('是否確定從%d頁分出新案'),[PageLV.ItemIndex+1]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ CaseID := GetNoNameCase(ImageSavePath);
+ NewPath := ImageSavePath + CaseID+'\';
+ Str2Dir(NewPath);
+ for i := FromIndex to ContextList.Count - 1 do
+ begin
+ OldName := ContextList.Strings[i];
+ //NewName := Add_Zoo(S.Count+1,3)+Copy(OldName,4,length(OldName)-3);
+ NewName := Add_Zoo(S.Count+1,3)+FileName2NoQuene_Filename(OldName);
+
+ ReNameFile(DisplayPath+OldName,NewPath+NewName);
+ S.Add(NewName);
+ S.SaveToFile(NewPath+'Context.dat');
+ end;
+ for i := ContextList.Count - 1 downto FromIndex do
+ begin
+ ContextList.Delete(i);
+ ContextList.SaveToFile(DisplayPath+'Context.dat');
+ end;
+ SetCaseList('I',MyTreeNode1.IndexOf(MyTreeNode2)+1,CaseID);
+ if FileExists(DisplayPath+'CaseIndex.dat') then //把原經辦代號取出來再寫入新件裡
+ begin
+ S.LoadFromFile(DisplayPath+'CaseIndex.dat');
+ end;
+ DisplayPath := '';
+
+ ClearCaseIndex;
+ WriteCaseIndex(NewPath);
+ finally
+ S.Free;
+ end;
+ LoadImgFile;
+ Showmessage(_Msg('分案完成'));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM402Click
+ 引用相依：
+ 方法描述：將影像列表（PageLV）中的所有項目設為選取狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM402Click(Sender: TObject);
+var
+ i : Integer;
+begin
+ for i := 0 to PageLV.Items.Count - 1 do
+ begin
+ PageLV.Items.Item[i].Selected := True;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM403Click
+ 引用相依：
+ 方法描述：將影像列表（PageLV）中的所有項目設為取消選取狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM403Click(Sender: TObject);
+var
+ i : Integer;
+begin
+ for i := 0 to PageLV.Items.Count - 1 do
+ begin
+ PageLV.Items.Item[i].Selected := False;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM404Click
+ 引用相依：
+ 方法描述：影像列表右鍵選單功能：文件歸類。開啟 TDocListForm 顯示可用的表單清單供
+ 使用者選擇。確認後根據當前 TreeView 的選取層級（案件級別、文件級別或特
+ 定表單），呼叫 PageReplaceFormID 將影像重新歸類至選定的表單類型。歸類完
+ 成後重新繪製樹狀結構並清空檢核記錄，最後回到原先選取的節點。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM404Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ FormID,FormName : String;
+ PreNode2Name : String;
+begin
+ PreNode2Name := '';
+ if TreeView1.Selected.Parent = MyTreeNode1 then
+ PreNode2Name:= GetNode2Name(MyTreeNode2);
+ ShowText := _Msg('文件歸類中,請稍候');
+ DataLoading(True,True);
+ DocListForm := TDocListForm.Create(self);
+ try
+ InitialLanguage(PatchDlg); //載入多國語言
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ if (FormID <> NowFormCode) and FormIDExists(FormID,True,0) then
+ begin
+ DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := FormID;
+ SubItems.Add(FormName);
+ end;
+ end;
+ end;
+
+ if DocListForm.ShowModal = mrOk then
+ begin
+ FormID := DocListForm.DocLV.Selected.Caption;
+ if (TreeView1.Selected.Level=1) then
+ begin
+ PageReplaceFormID(DisplayPath,'ALL',FormID);
+ end
+ Else if (TreeView1.Selected.Level=2) and (NowFormCode = '') then
+ PageReplaceFormID(DisplayPath,'',FormID)
+ Else
+ begin
+ PageReplaceFormID(DisplayPath,NowFormCode,FormID);
+ end;
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
+ if PreNode2Name <> '' then // 回到原本點選的文件節點上
+ begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i];
+ Break;
+ end;
+ end;
+ end;
+ TreeView1click(self);
+ end;
+ finally
+ DocListForm.Free;
+ DataLoading(False,False);
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM601Click
+ 引用相依：FileExists, LoadFromFile, DirectoryExists, CopyFile, SaveToFile, Del
+ eteImageFile, RenameFile, ReSortFileName
+ 方法描述：縮圖瀏覽區右鍵選單功能：文件歸類。針對所有被選取（由 Shape 標記）的影像，
+ 開啟 TDocListForm 選擇目標表單。核心邏輯包含：判斷目標文件是否需要區分
+ 份數、自動產生新的文件目錄或沿用既有目錄、根據檔案序號產生新檔名、執行
+ 檔案複製並更新 ContextList。最後刪除原檔案、重新排序原目錄並重新繪製樹
+ 狀結構。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM601Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ FormID,FormName,DocNo,DocDir : String;
+ PreNode2Name : String;
+ iFormID : String;
+ iISBName : String;
+ iISB : TImageScrollBox;
+ GoAtt : Boolean;
+ AttLv : Integer;
+ ST1 :TStringList;
+begin
+ PreNode2Name := '';
+ ST1:=TStringList.Create;
+ if TreeView1.Selected.Parent = MyTreeNode1 then
+ PreNode2Name:= GetNode2Name(MyTreeNode2);
+ ShowText := _Msg('文件歸類中,請稍候');
+LogFile1.LogToFile(logTimeString+'縮圖 歸類開始');
+ DataLoading(True,True);
+ GoAtt := False;
+ if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
+ begin
+ AttLv := TreeView1.Selected.Level;
+ GoAtt := True;
+ end;
+ DocListForm := TDocListForm.Create(self);
+ try
+ InitialLanguage(DocListForm); //載入多國語言
+ //InitialLanguage(PatchDlg); //載入多國語言
+ DocListForm.CheckBox1.Visible:=False;
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
+ if not FormIDAppear(FormID) then Continue; //20170816 先秀全部
+
+ //Showmessage(FORM_INF_List.Text);
+ //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
+ if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
+ begin
+ DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := FormID;
+ SubItems.Add(FormName);
+ end;
+ end;
+ end;
+ if DocListForm.ShowModal = mrOk then
+ begin
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ OldName := ExtractFileName(iISB.FileName);
+ Ext := ExtractFileExt(OldName);
+
+ if DocListForm.CheckBox1.Checked then
+ begin
+ FormID := DocListForm.Edit1.Text;
+ DocNo := GetNewCustomDocNo(DisplayPath,FormID);
+ end
+ else
+ begin
+ FormID := DocListForm.DocLV.Selected.Caption;
+ DocNo := FormCode2DocNo(FormID);
+ end;
+
+
+ if DocNoDir2DocNo(Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseno)) = DocNo then
+ DocDir := Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseNo)
+ Else
+ DocDir := FindLastestDocDir(NowCaseno,DocNo);
+
+//ShowMessage('DocNoNeedDiv(DocNo)='+BoolToStr(DocNoNeedDiv(DocNo),true));
+//ShowMessage('DocDir='+DocDir);
+
+ if DocNoNeedDiv(DocNo) then //要分份數
+ begin
+ if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(NowCaseno,DocDir)>0)) or (DocDir = '') then
+ begin
+ DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
+ end
+ else
+ begin //20171016 真對補件影響 所加的判斷
+ ST1.Clear;
+ if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then
+ begin
+ ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');
+ if (ST1.Count > 0) and ISExistImg(ImageSavePath + NowCaseno+'\'+DocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
+ begin
+ DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
+ end;
+ end;
+ end;
+ end
+ Else //不分份數
+ begin
+ if DocNo <> '' then
+ DocDir := DocNo
+ else //Attach 附件
+ DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
+ end;
+ if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then
+ SetDocNoList('A',-1,NowCaseno,DocDir,'1');
+
+ {if DocDir = '' then
+ begin
+ DocDir := DocNo;
+ if DocNoNeedDiv(DocNo) then
+ DocDir:=DocNo2DocNoDir(ImageSavePath+NowCaseno+'\',DocNo);
+ SetDocNoList('A',-1,NowCaseno,DocDir);
+ end; }
+LogFile1.LogToFile(logTimeString+'縮圖 FormID='+FormID);
+ if Not DirectoryExists(ImageSavePath+NowCaseno+'\'+DocDir) then
+ Mkdir(ImageSavePath+NowCaseno+'\'+DocDir);
+ ContextList.Clear;
+ if FileExists(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat') then
+ ContextList.LoadFromFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');
+ NewName := Add_Zoo(ContextList.Count+1,3)+'_'+FormID+Ext;
+ CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
+ {ContextList.Add(NewName);
+ ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }
+ SetContextList('A',-1,NowCaseNo,DocDir,NewName);
+ DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+ //RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
+ //ReNameContext(iISB.FileName,OldName,NewName);
+ end;
+ end;
+//ShowMessage('KKKK');
+ ReSortFileName(ExtractFilePath(iISB.FileName));
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+
+ if GoAtt then
+ begin
+ GotoAttach(AttLv);
+ end;
+ TreeView1click(self);
+
+ end;
+ finally
+ DataLoading(False,False);
+ DocListForm.Free;
+ ST1.Free;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM602Click
+ 引用相依：Str2Dir, FileExists, LoadFromFile, CopyFile, SaveToFile, DeleteImage
+ File, ReSortFileName
+ 方法描述：縮圖瀏覽區右鍵選單功能：歸類至自定義文件。彈出對話框要求使用者輸入新文
+ 件名稱，檢核名稱是否重複後產生新的自定義文件編號。接著將所有選取的影像
+ 複製到新建立的文件目錄下，更新 ContextList並刪除原檔案。最後重新排序並
+ 刷新樹狀顯示。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM602Click(Sender: TObject);
+var
+ FileList:TStringlist;
+ SavePath : String;
+ DocDir : String;
+ CustomDocName : String;
+ CustomDocNo : String;
+ i : Integer;
+ OldName,NewName,Ext : String;
+ FormID,FormName,DocNo : String;
+ PreNode2Name : String;
+ iFormID : String;
+ iISBName : String;
+ iISB : TImageScrollBox;
+ GoAtt : Boolean;
+ AttLv : Integer;
+begin
+ GoAtt := False;
+ if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
+ begin
+ AttLv := TreeView1.Selected.Level;
+ GoAtt := True;
+ end;
+
+ if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
+ begin
+ if FindCustomDocName(DisplayPath,CustomDocName) then
+ begin
+ Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[CustomDocName]));
+ Exit;
+ end;
+ CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
+ end;
+ if CustomDocNo = '' then Exit;
+ DocDir := CustomDocNo;
+LogFile1.LogToFile(logTimeString+'縮圖 歸類自訂文件 DocDir='+DocDir);
+ SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
+ Str2Dir(SavePath);
+ SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
+ FileList := TStringlist.Create;
+ try
+ FileList.Clear;
+ if FileExists(SavePath+'Context.dat') then
+ FileList.LoadFromFile(SavePath+'Context.dat');
+
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ OldName := ExtractFileName(iISB.FileName);
+ Ext := ExtractFileExt(OldName);
+ NewName := Add_Zoo(FileList.Count+1,3)+'_'+GetCustomFormID(ImageSavePath+NowCaseNo+'\',CustomDocNo)+ext;
+
+ //Showmessage(iISB.FileName+#13+ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
+ CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
+ SetContextList('A',-1,NowCaseno,DocDir,NewName);
+ FileList.Add(NewName);
+ {FileList.Add(NewName);
+ FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}
+ DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+ end;
+ end;
+ finally
+ FileList.Free;
+ end;
+ ReSortFileName(ExtractFilePath(iISB.FileName));
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+
+ if GoAtt then
+ begin
+ GotoAttach(AttLv);
+ end;
+ TreeView1click(self);
+ MyTreeNode1.Expand(True);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM604Click
+ 引用相依：DeskewImg, SaveToFile, LoadFromFile
+ 方法描述：縮圖瀏覽區右鍵選單功能：自動去偏斜（Deskew）。遍歷所有選取的影像元件，對
+ 其 Graphic 執行 DeskewImg 操作，重新繪製並將結果存回原檔案。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM604Click(Sender: TObject);
+var
+ i : Integer;
+ iISBName : String;
+ iISB : TImageScrollBox;
+begin
+ //Showmessage(inttostr(ComponentCount));
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ //Showmessage(Components[i].Name);
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+ DeskewImg(iISB.Graphic);
+ iISB.Redraw(True);
+ iISB.SaveToFile(iISB.FileName);
+ DisplayISB.LoadFromFile(DisplayISB.FileName,1);
+ end;
+ end;
+ //TreeView1Click(nil);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM605Click
+ 引用相依：DeleteImageFile, ReSortFileName
+ 方法描述：縮圖瀏覽區右鍵選單功能：刪除影像。在使用者確認後，遍歷所有選取的影像元
+ 件，呼叫 DeleteImageFile 刪除實際檔案。刪除完成後，執行檔案重新排序（ReS
+ ortFileName），更新樹狀結構上的頁數統計文字，並刷新顯示。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM605Click(Sender: TObject);
+var
+ i : Integer;
+ iISBName,OldName : String;
+ iISB : TImageScrollBox;
+begin
+ if MessageDlg(_Msg('是否確定刪除??'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+
+ for i := 0 to ComponentCount -1 do
+ begin
+ if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
+ begin
+ //Showmessage(Components[i].Name);
+ iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
+ iISB := TImageScrollBox(FindComponent(iISBName));
+//ShowMessage('iISB.FileName='+iISB.FileName);
+//ShowMessage(ExtractFilePath(iISB.FileName)+','+ExtractFileName(iISB.FileName)+','+NowCaseNo);
+// if (FMode = 'ESCAN') and (FModeName<>'異動件') then
+// begin
+// if ISExistImg(iISB.FileName) then
+// begin
+// ShowMessage(_Msg('此圖為非當次掃瞄，不可刪除'));
+// Exit;
+// end;
+// end;
+LogFile1.LogToFile(logTimeString+'縮圖刪除 iISB.FileName='+iISB.FileName);
+ DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+ end;
+ end;
+//ShowMessage('iISB.FileName='+iISB.FileName);
+ ReSortFileName(ExtractFilePath(iISB.FileName));
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ NewTreeNodeRefresh;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ TreeView1click(self);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM101Click
+ 引用相依：_DelTree, DirectoryExists, DeleteDocNoFile
+ 方法描述：處理樹狀結構（TreeView）的右鍵刪除選單。根據選取的節點類型（新掃瞄件、案
+ 件、文件或表單）執行不同範圍的刪除：包含刪除實體目錄、清空影像清單、更新
+ 案件索引及檢核記錄。針對異動模式（ESCAN），若刪除後無影像則會重建空案件
+ 以維持結構。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM101Click(Sender: TObject);
+var
+ P,v,v1,v2,ln,i : Integer;
+ iDocDir,iDocNo : String;
+begin
+LogFile1.LogToFile(logTimeString+'Tree 按下刪除');
+ if TreeView1.Selected = NewTreeNode then //全刪 //新掃描件
+ begin
+LogFile1.LogToFile(logTimeString+'Tree 全部刪除');
+ If Messagedlg(_Msg('是否刪除所有案件?'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ clearView(1);
+ Application.ProcessMessages;
+ _DelTree(ImageSavePath);
+ if (FMode = 'ESCAN') then
+ begin
+ MkDir(ImageSavePath+FCaseID);
+ CreateEmptyCase(ImageSavePath,FCaseID);
+ end;
+ LoadImgFile;
+ Showmessage(_Msg('刪除完成'));
+ end
+ Else if TreeView1.Selected = MyTreeNode1 then //案件編號
+ begin
+LogFile1.LogToFile(logTimeString+'Tree 案件編號刪除 NowCaseno='+NowCaseno);
+ If Messagedlg(Format(_Msg('編號(%s)是否刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ clearView(1);
+ Application.ProcessMessages;
+ if (FMode = 'ESCAN') then
+ begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ MyTreenode2 := MyTreeNode1.Item[i];
+ v := Posend('{',MyTreenode2.Text);
+ v1 := Posend('}',MyTreenode2.Text);
+ v2 := posend('-',MyTreenode2.Text);
+ ln := length(MyTreenode2.Text);
+ iDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
+ iDocNo := DocNoDir2DocNo(iDocDir);
+ _DelTree(ImageSavePath+NowCaseno+'\'+iDocDir);
+ SetUseCase('D',ImageSavePath+NowCaseno+'\',iDocDir,'','');
+ SetDocNoList('D',-1,NowCaseNo,iDocDir,'');
+ if (Copy(iDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
+ DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',iDocDir);
+
+ end
+ end
+ Else
+ begin
+ _DelTree(DisplayPath);
+ SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
+ end;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+
+ if (FMode = 'ESCAN') then
+ begin
+ if not DirectoryExists(ImageSavePath+FCaseID) then
+ begin
+ MkDir(ImageSavePath+FCaseID);
+ CreateEmptyCase(ImageSavePath,FCaseID);
+ end;
+ end;
+ LoadImgFile;
+ end
+ Else if TreeView1.Selected = MyTreeNode2 then //文件層
+ begin
+ If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[DocNo2DocName(NowCaseno,NowDocNo)]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+ ClearView(1);
+ Application.ProcessMessages;
+//ShowMessage(NowDocDir);
+LogFile1.LogToFile(logTimeString+'Tree 文件層號刪除 NowDocDir='+NowDocDir);
+ if (Length(NowDocDir)=8) or (NowDocDir=AttName) then
+ begin
+//ShowMessage('DeleteDocNoFileForESCAN');
+ DeleteDocNoFileForESCAN(ImageSavePath+NowCaseno+'\'+NowDocDir,NowDocDir);
+ end
+ else
+ begin
+ _DelTree(ImageSavePath+NowCaseno+'\'+NowDocDir);
+ SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
+ end;
+ SetUseCase('D',ImageSavePath+NowCaseno+'\',NowDocDir,'','');
+
+ if (Copy(NowDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
+ DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',NowDocDir);
+
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ NewTreeNodeRefresh;
+
+ end
+ Else if TreeView1.Selected = MyTreeNode3 then //FormID層
+ begin
+ If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[NowFormName]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
+LogFile1.LogToFile(logTimeString+'Tree FormID層號刪除 NowFormCode='+NowFormCode);
+ DeleteFormCodeFile(NowCaseNo,NowDocDir,NowFormCode);
+ SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ NewTreeNodeRefresh;
+
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM102Click
+ 引用相依：DirectoryExists, RenameFile
+ 方法描述：處理「修改案件編號」右鍵選單。彈出輸入盒要求輸入新編號並驗證長度與是否
+ 重複。確認修改後，先清空當前影像顯示，接著執行磁碟目錄更名並更新案件清
+ 單文字。最後重新繪製該案件的文件樹狀結構並提示完成。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM102Click(Sender: TObject);
+var
+ NewCaseID,ShowNewCaseID,ShowNowCaseID : String;
+ i,P,v : Integer;
+ InputOk : Boolean;
+begin
+ VMode := 0;
+ GoViewMode;
+ ISB1.ZoomMode := zmFitWidth;
+
+ NewCaseID := InputBox(_Msg('修改案件編號'),_Msg('新案件編號'),'');
+ ShowNewCaseID := NewCaseID;
+ ShowNowCaseID := NowCaseno;
+
+ if NewCaseID = '' then Exit;
+
+ IF Length(NewCaseID)<>CaseIDLength Then
+ begin
+ Showmessage(_Msg('輸入格式錯誤'));
+ Exit;
+ end;
+
+ if DirectoryExists(ImageSavePath+NewCaseID) then
+ begin
+ Showmessage(NewCaseID+_Msg('己存在,無法修改'));
+ Exit;
+ end;
+
+ if Messagedlg(Format(_Msg('是否將%s改為%s'),[ShowNowCaseID,ShowNewCaseID]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel then
+ Exit;
+ ClearView(1);
+ RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);
+ SetCaseList('E',NewTreeNode.IndexOf(MyTreeNode1),NewCaseID);
+
+ //P := ContextList.Count;
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NewCaseID,GetCasePage(ImageSavePath,NewCaseID)]);
+ //DrawDocItem(MyTreeNode1,FORM_INF_List,NewCaseID);
+ DrawDocItem2(MytreeNode1,NewCaseID);
+ Showmessage(_Msg('修改完成'));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM103Click
+ 引用相依：
+ 方法描述：處理樹狀結構的「掃瞄/追加掃瞄」右鍵選單。根據選取的節點層級，決定是啟動
+ 全新的案件掃瞄程序（NewScanBtnClick）或是針對現有案件進行追加掃瞄（AddS
+ canBtnclick），並在日誌中記錄操作行為。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM103Click(Sender: TObject);
+begin
+ if TreeView1.Selected = nil then Exit;
+
+ {if Treeview1.Selected = NewTreeNode then
+ begin
+ ShowMessage('AAAAA');
+ end;
+ if Treeview1.Selected = MyTreeNode1 then
+ begin
+ ShowMessage('BBBBB');
+ end;
+
+ if Treeview1.Selected = MyTreeNode2 then
+ begin
+ ShowMessage('CCCCC');
+ end;
+
+ if Treeview1.Selected = MyTreeNode3 then
+ begin
+ ShowMessage('DDDDD');
+ end;
+ }
+ if (Treeview1.Selected = NewTreeNode) {or (Treeview1.Selected = MyTreeNode1)} then
+ begin
+//ShowMessage('NewScanBtnClick');
+LogFile1.LogToFile(logTimeString+'Tree NewScanBtnClick');
+ NewScanBtnClick(self)
+ end
+ Else
+ begin
+//ShowMessage('AddScanBtnclick');
+LogFile1.LogToFile(logTimeString+'Tree AddScanBtnclick');
+ AddScanBtnclick(self);
+ end;
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：PM104Click
+ 引用相依：TTiffGraphic, TJpegGraphic, FJpgCompression, DeskewImg, ConvertToBW,
+ MpsGetBarcode, Rotate, CheckNeedCrop, CropImg, ifBlackWhite, tcGrou
+ p4, ifColor25, ConvertToGray, tcJpeg, ifTrueColor, ifGray256, SaveQu
+ ality, FindFirst, LoadFromFile, SaveToFile, DirectoryExists, _DelTre
+ e, GetNoNameCase, Str2Dir, FileExists
+ 方法描述：處理「匯入影像檔案」右鍵選單。開啟檔案對話框選取 TIF/JPG/PNG 檔，並檢查
+ 檔案大小是否超過限制。核心流程包含：計算總頁數、逐頁載入、執行自動去偏斜
+ （Deskew）、條碼辨識以判斷 FormID、處理 A3 切圖（左右分割）、將影像轉換為對
+ 應格式（黑白轉 TIF G4，彩色/灰階轉 JPG）並寫入磁碟，最後更新索引、樹狀結
+ 構與頁數統計。
+============================================================================== }
+Procedure TCB_IMGPSScanX.PM104Click(Sender: TObject);
+Var
+ i, n, m, ii, P, v, v1, page, imageCount: Integer;
+ FName: String;
+ CaseID, DocNo, FormID: String;
+ DocDir: String;
+ SavePath, SaveFilename: String;
+ ISB: TImageScrollBox;
+ FileRec: TSearchrec;
+
+ iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic;
+ iRect : TRect;
+ JpgGr : TJpegGraphic;
+ SaveStream : TFileStream;
+ SaveStreamA:TFileStream;
+ SaveStreamB:TFileStream;
+ cooom:integer;
+Begin
+ OpenDialog1.Filter := 'Image files|*.TIF;*.JPG;*.PNG';
+ If OpenDialog1.Execute Then
+ Begin
+ ISB := TImageScrollBox.Create(self);
+try
+ ShowText := _Msg('檔案加入中,請稍候');
+LogFile1.LogToFile(logTimeString+'檔案加入中開始');
+ DataLoading(True, True);
+ If TreeView1.Selected = Nil Then
+ Exit;
+ FName := OpenDialog1.FileName;
+
+ FindFirst(FName, faAnyfile, FileRec);
+
+ If FFileSizeLimit = 0 Then
+ Begin
+ FFileSizeLimit := 5 * 1024;
+ End;
+//FFileSizeLimit:=20*5*1024;
+//ShowMessage(IntToStr(FileRec.Size)+','+IntToStr(FFileSizeLimit * 1024));
+ If FileRec.Size > FFileSizeLimit * 1024 Then // 檢查檔案大小
+ Begin
+ ShowMessage(Format(_Msg('目前檔案大小為 %.3f MB,已超過單一檔案匯入限制%1.f MB'),[FileRec.Size / (1024*1024),FFileSizeLimit/1024]));
+ {ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) +
+ '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB');}
+ FindClose(FileRec);
+ DataLoading(false, false);
+ Exit;
+ End;
+ //MessageDlg()
+ //cooom:=StrToInt(InputBox('輸入百分比','輸入百分比',''));
+ cooom:=FJpgCompression;//20171211彩色tif採jpg壓縮的比例
+
+ FindClose(FileRec);
+ CaseID := NowCaseno;
+ imageCount := 0;
+ P := ISB.ImageCountFromFile(OpenDialog1.FileName);
+ For i := 1 To P Do
+ Begin
+ ShowText := Format(_Msg('檔案加入中,請稍候(%d/%d)'),[i,p]);
+ //ShowText := _Msg('檔案加入中,請稍候')+'(' + inttostr(i) + '/' + inttostr(P) + ')';
+ DataLoading(True, True);
+ ISB.LoadFromFile(FName, i);
+ DeskewImg(ISB.Graphic);
+
+
+ ISB_BW.Graphic.Assign(ISB.Graphic); //20180104
+ If ISB.Graphic.ImageFormat <> ifBlackWhite Then //20180104
+ begin
+ ConvertToBW(ISB_BW.Graphic);
+ end;
+ ///ISB_BW.SaveToFile('KKKKKKKK.tif');
+
+ iGraphic_First := TTiffGraphic.Create;
+ iGraphic_sec := TTiffGraphic.Create;
+
+
+ //ShowMessage(IntToStr(iGraphic_First.Palette.palNumEntries)); //彩色 會為0 黑白 為2
+
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //判斷A3 有用FormID 所以要先辨條碼
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
+ Begin
+ Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]);
+ //MpsGetBarcode(iGraphic_First, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+
+ iGraphic_First.Assign(ISB.Graphic);
+ //有必要的話先把影像轉正 再開始切圖
+ If CheckNeedCrop(iGraphic_First) Then
+ Begin
+ // 先取右邊的影像
+ iRect.Left := ISB.Graphic.Width Div 2;
+ iRect.Right := ISB.Graphic.Width;
+ iRect.Top := 0;
+ iRect.Bottom := ISB.Graphic.Height;
+ CropImg(iGraphic_First, iRect);
+
+ iGraphic_sec.Assign(ISB.Graphic);
+ // 再取左邊的影像
+ iRect.Left := 0;
+ iRect.Right := ISB.Graphic.Width Div 2;
+ iRect.Top := 0;
+ iRect.Bottom := ISB.Graphic.Height;
+ CropImg(iGraphic_sec, iRect);
+ End;
+ ISB.Graphic.Clear; //20220711 Hong 覺得ISB後面沒有到了,先清掉減少記憶體使用
+ iGraphic := iGraphic_First;
+
+ While Not iGraphic.IsEmpty Do
+ Begin
+ If (TreeView1.Selected = NewTreeNode) Or
+ (TreeView1.Selected = MyTreeNode1) Then
+ Begin
+ SaveFilename := '';
+ ISB_BW.Graphic.Assign(iGraphic); //20180104
+ If iGraphic.ImageFormat <> ifBlackWhite Then //20180104
+ begin
+ ConvertToBW(ISB_BW.Graphic);
+ end;
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
+//ShowMessage(IntToStr(MpsBarcodeinf.Count));
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[n]);
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+//ShowMessage('XXX '+IntToStr(MpsBarcodeinf.Count));
+ FormID := BarCode2FormID;
+//ShowMessage('FormID='+FormID);
+ // 取出FormID
+ SaveFilename := FormID;
+ If (TreeView1.Selected = NewTreeNode) Then
+ Begin
+ If FindDivFormCode(FormID) Then // 只找分案頁上的案件條碼
+ Begin
+ imageCount := 0;
+ ClearView(1);
+ ContextList.Clear;
+ CaseID := BarCode2CaseID;
+ If DirectoryExists(ImageSavePath + CaseID + '\') Then
+ Begin
+ _DelTree(ImageSavePath + CaseID + '\');
+ SetCaseList('D', -1, CaseID);
+ End;
+ End;
+ If CaseID = '' Then
+ Begin
+ CaseID := GetNoNameCase(ImageSavePath);
+ ContextList.Clear;
+ End;
+ End;
+ SavePath := ImageSavePath + CaseID + '\';
+ Str2Dir(SavePath);
+
+ DocNo := FormCode2DocNo(FormID);
+ DocDir := FindLastestDocDir(CaseID, DocNo);
+ if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then
+ begin
+ DocDir := FindLastestDocDirForPage(CaseID, DocNo,FormID);
+//ShowMessage('DocDir='+DocDir);
+ end;
+
+ If DocNoNeedDiv(DocNo) Then // 要分份數
+ Begin
+ If ((FormCode2Page(FormID) = '01') And
+ (GetDocDir_Page(CaseID, DocDir) > 0)) Or (DocDir = '') Then
+ begin
+ DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
+ end;
+ End
+ Else // 不分份數
+ Begin
+ If DocNo <> '' Then
+ DocDir := DocNo
+ Else // Attach 附件
+ DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
+ End;
+
+ If (Not DirectoryExists(ImageSavePath + CaseID + '\' + DocDir + '\'))
+ And (DocDir <> AttName) Then
+ SetDocNoList('A', -1, CaseID, DocDir, '1');
+ SavePath := ImageSavePath + CaseID + '\' + DocDir + '\';
+ Str2Dir(SavePath);
+ ContextList.Clear;
+ If FileExists(SavePath + 'Context.dat') Then
+ ContextList.LoadFromFile(SavePath + 'Context.dat');
+
+ WriteCaseIndex(ImageSavePath + CaseID + '\');
+ // 寫入案件索引
+ If SaveFilename = '' Then // 附件
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext
+ Else
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
+ SaveFilename + ext;
+
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[n]);
+ MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+//ShowMessage(IntToStr(iGraphic.Palette.palNumEntries));
+ if iGraphic.ImageFormat = ifBlackWhite then //20200806 出現無法匯入,是因color256無法壓JPEG,待報會後再開啟
+ begin
+ SaveFilename := changefileext(SaveFilename,'.tif'); //20240320 Hong 調整黑白存tif
+ iGraphic.Compression:=tcGroup4;
+ end
+ else if iGraphic.ImageFormat= ifColor256 then
+ begin
+ SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整Color256存jpg
+ ConverttoGray(iGraphic);
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end
+ else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then
+ begin
+ SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整彩色灰階存jpg
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end
+ else
+ begin
+ iGraphic.Compression:=tcLZW;
+ end;
+
+ {if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2 灰階256 //20200806拿掉
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end;}
+
+ If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ SaveStream := TFileStream.Create(SavePath + SaveFilename, fmOpenReadWrite)
+ Else
+ SaveStream := TFileStream.Create(SavePath + SaveFilename, fmCreate);
+ Try
+ SaveStream.Seek(0, soFromBeginning);
+ iGraphic.AppendToStream(SaveStream);
+ Finally
+ SaveStream.Free;
+ End;
+ End
+ Else If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ DeleteFile(SavePath + SaveFilename);
+ // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ JpgGr := TJpegGraphic.Create;
+ Try
+ JpgGr.Assign(iGraphic);
+ JpgGr.SaveQuality := 30;
+ // JpgGr.AppendToStream(SaveStream);
+ JpgGr.SaveToFile(SavePath + SaveFilename);
+ Finally
+ JpgGr.Free;
+ // SaveStream.Free;
+ End;
+ End;
+
+ SetContextList('A', -1, CaseID, DocDir, SaveFilename);
+ If (TreeView1.Selected = NewTreeNode) Then
+ Begin
+ If imageCount = 0 Then
+ Begin
+ SetCaseList('A', -1, CaseID);
+ MyTreeNode1 := TreeView1.Items.AddChild(NewTreeNode, CaseID);
+ MyTreeNode1.ImageIndex := 2;
+ MyTreeNode1.SelectedIndex := 2;
+ Application.ProcessMessages;
+ End;
+ End;
+ inc(imageCount);
+ // DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID);
+ // DrawDocItem(MyTreeNode1,FORM_INF_List,CaseID);
+ End
+ Else If TreeView1.Selected = MyTreeNode3 Then
+ Begin
+ SavePath := ImageSavePath + CaseID + '\' + NowDocDir + '\';
+ ContextList.Clear;
+ If FileExists(ImageSavePath + CaseID + '\' + NowDocDir +
+ '\Context.dat') Then
+ ContextList.LoadFromFile(ImageSavePath + CaseID + '\' + NowDocDir +
+ '\Context.dat');
+ If NowFormCode <> '' Then
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
+ NowFormCode + ext
+ Else
+ SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext;
+
+ For n := 1 To MpsBarcodeinf.Count Do
+ Begin
+ If MpsBarcodeinf.r180[n] <> 0 Then // 依條碼角度轉影像
+ Begin
+ Rotate(iGraphic, MpsBarcodeinf.r180[n]);
+ MpsGetBarcode(iGraphic, MpsBarcodeinf);
+ Break;
+ End;
+ End;
+
+ if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2
+ begin
+ iGraphic.Compression:=tcJPEG;
+ iGraphic.JpegQuality:=cooom;
+ end;
+
+ If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ SaveStream := TFileStream.Create(SavePath + SaveFilename,
+ fmOpenReadWrite)
+ Else
+ SaveStream := TFileStream.Create(SavePath + SaveFilename,
+ fmCreate);
+ Try
+ SaveStream.Seek(0, soFromBeginning);
+ iGraphic.AppendToStream(SaveStream);
+ Finally
+ SaveStream.Free;
+ End;
+ End
+
+ Else
+ Begin
+ If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
+ Begin
+ If FileExists(SavePath + SaveFilename) Then
+ DeleteFile(SavePath + SaveFilename);
+ // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
+ JpgGr := TJpegGraphic.Create;
+ Try
+ JpgGr.Assign(iGraphic);
+ JpgGr.SaveQuality := cooom;
+ // JpgGr.AppendToStream(SaveStream);
+ JpgGr.SaveToFile(SavePath + SaveFilename);
+ Finally
+ JpgGr.Free;
+ // SaveStream.Free;
+ End;
+ End;
+
+ End;
+ // ISB.SaveToFile(SavePath+SaveFilename);
+ ContextList.Add(SaveFilename);
+ ContextList.SaveToFile(SavePath + 'Context.dat');
+ End;
+
+ if iGraphic = iGraphic_First then
+ iGraphic := iGraphic_Sec
+ else
+ iGraphic.Assign(nil);
+
+ End //While 結束
+
+ End;
+ ClearErrini(CaseID, MyTreeNode1);
+ // 清掉檢核記錄
+ If (TreeView1.Selected = MyTreeNode1) Or
+ (TreeView1.Selected = NewTreeNode) Then
+ Begin
+ LoadImgFile;
+ End
+ Else
+ Begin
+ DrawDocItem2(MyTreeNode1, CaseID);
+ // 長出文件名稱的樹並傳回是否有申請書的影像
+ page := GetCasePage(ImageSavePath, CaseID);
+ // ShowMessage('page='+IntToStr(page));
+ MyTreeNode1.Text := Format(_Msg('%s-%d頁'), [CaseID, page]);
+ End;
+ // ShowMessage('AAAA');
+ NewTreeNodeRefresh;
+ Application.ProcessMessages;
+ DataLoading(false, false);
+
+
+finally
+ISB.Free;
+iGraphic_First.Free;
+iGraphic_sec.Free;
+end;
+
+
+ End;
+End;
+
+
+
+
+{ ==============================================================================
+ 方法名稱：PM106Click
+ 引用相依：CopyFile, LoadFromFile, SaveToFile
+ 方法描述：處理「複製文件」右鍵選單。開啟對話框供使用者選擇來源文件與目標案件。使用
+ 者確認後，遍歷目標案件並將符合條件的來源影像複製到目標目錄下，同步產生
+ 新的序號檔名、更新目標案件的 Context.dat 並清空其檢核記錄。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM106Click(Sender: TObject);
+var
+ i,n,x,v,v1 : Integer;
+ CopyFormID,Copy2Caseno,CopyFileName : String;
+ S : TStringlist;
+begin
+ ShowText := _Msg('複製文件中,請稍候');
+ DataLoading(True,True);
+ DocCopyForm := TDocCopyForm.Create(Self);
+ S := TStringlist.Create;
+ try
+ InitialLanguage(DocCopyForm); //載入多國語言
+ DocCopyForm.CopyFromGB.Caption := NowCaseno+DocCopyForm.CopyFromGB.Caption;
+ IF NewTreenode.Count = 1 Then
+ begin
+ Showmessage(_Msg('沒有其他可複製的文件'));
+ Exit;
+ end;
+ For i := 0 to MyTreeNode1.Count -1 do
+ begin
+ v := Pos('-',MyTreeNode1.Item[i].Text);
+ v1 := pos('{',MyTreeNode1.Item[i].Text);
+ if V1 > 0 then
+ begin
+ CopyFormID := Copy(MyTreeNode1.Item[i].Text,1,v-1);
+ DocCopyForm.CheckListBox1.Items.Add(CopyFormID);
+ end;
+ end;
+ For i := 0 to NewTreenode.Count -1 do
+ begin
+ v := Posend('-',NewTreeNode.Item[i].Text);
+ Copy2Caseno := Copy(NewTreeNode.Item[i].Text,1,v-1);
+ IF Copy2Caseno <> NowCaseno Then
+ begin
+ DocCopyForm.CheckListBox2.Items.Add(Copy2Caseno);
+ end;
+ end;
+
+ if DocCopyForm.ShowModal = mrok then
+ begin
+ If MessageDlg(_Msg('是否確定要將勾選的文件複製到勾選的編號裡?'),MtConfirmation,[Mbyes,mbcancel],0) = mrCancel Then
+ Exit;
+ ShowText := _Msg('複製中,請稍候');
+ DataLoading(True,True);
+ For i := 0 to DocCopyForm.CheckListBox2.Count -1 do
+ begin
+ IF DocCopyForm.CheckListBox2.Checked[i] Then
+ begin
+ S.Clear;
+ Copy2Caseno := DocCopyForm.CheckListBox2.Items.Strings[i];
+ ClearErrini(Copy2Caseno,MyTreeNode1); //清掉檢核記錄
+ S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');
+ For n := 0 to DocCopyForm.CheckListBox1.Count -1 do //文件
+ begin
+ If DocCopyForm.CheckListBox1.Checked[n] Then
+ begin
+ //v:= Posend('{',DocCopyForm.CheckContextList.Strings[n]);
+ //v1 := Posend('}',DocCopyForm.CheckContextList.Strings[n]);
+ //CopyFormID := Copy(DocCopyForm.CheckContextList.Strings[n],1,v-1);
+ CopyFormID := DocCopyForm.CheckListBox1.Items.Strings[n];
+ IF v = 0 Then
+ CopyFormID := '';
+ For x := 0 to ContextList.Count -1 do
+ begin
+ //Showmessage(CopyFormCode);
+ //IF CopyFormID <> '' then //有文件代號
+ // begin
+ if FileName2FormCode(ContextList.Strings[x])=CopyFormID then
+ begin
+ //CopyFileName := Add_Zoo(S.Count+1,3)+ Copy(ContextList.Strings[x],4,length(ContextList.Strings[x])-3);
+ CopyFileName := Add_Zoo(S.Count+1,3)+ FileName2NoQuene_Filename(ContextList.Strings[x]);
+ CopyFile(PWideChar(DisplayPath+ContextList.Strings[x]),PWidechar(ImageSavePath + Copy2Caseno+'\'+CopyFileName),False);
+ S.Add(CopyFileName);
+ S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');
+ end;
+ // end
+
+ end;
+ end;
+ end;
+
+ end;
+ end;
+ DataLoading(False,False);
+ Showmessage(_Msg('複製完成!!'));
+ LoadImgFile;
+ end;
+ finally
+ DocCopyForm.Free;
+ DataLoading(False,False);
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM107Click
+ 引用相依：
+ 方法描述：觸發右鍵選單中的備註點擊事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM107Click(Sender: TObject);
+begin
+ WNoteBtnClick(nil);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM108Click
+ 引用相依：
+ 方法描述：處理樹狀結構的「文件歸類」右鍵選單。開啟對話框顯示表單清單，使用者可選擇
+ 歸類至既有文件或新增自定義文件。若為自定義，則驗證名稱後取得新編號。隨
+ 後執行 FormIDReplace 搬移影像檔案、更新索引、清空檢核記錄並刷新樹狀結
+ 構顯示。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM108Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ NewFormID,NewFormName,CustomDocNo : String;
+begin
+ DocListForm := TDocListForm.Create(self);
+ try
+LogFile1.LogToFile(logTimeString+'Tree 歸類開始');
+ InitialLanguage(DocListForm); //載入多國語言
+ DocListForm.CheckBox1.Visible:=True;
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ NewFormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ NewFormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ if not FormIDAppear(NewFormID) then Continue; //20170816 先秀全部的
+ if (NewFormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(NewFormID,False,i) then
+ begin
+ DocListForm.FormIDList.Add(NewFormID+'#@#'+NewFormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := NewFormID;
+ SubItems.Add(GetSQLData(FORM_INF_List,'T1.FORM_DESC',i));
+ end;
+ end;
+ end;
+ if DocListForm.ShowModal = mrOk then
+ begin
+ if not (DocListForm.DocLV.Selected=nil) then
+ NewFormID := DocListForm.DocLV.Selected.Caption;
+ if DocListForm.CheckBox1.Checked then
+ begin
+ //歸類到自訂文件
+ NewFormID:=DocListForm.Edit1.Text;
+
+ if Trim(DocListForm.Edit1.Text)='' then
+ begin
+ Showmessage(_Msg('未輸入文件名稱'));
+ Exit;
+ end;
+ if FindCustomDocName(DisplayPath,NewFormID) then
+ begin
+ Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[NewFormID]));
+ Exit;
+ end;
+ if NowFormCode <> AttName then
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),NewFormID]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end
+ Else
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end;
+ CustomDocNo := GetNewCustomDocNo(DisplayPath,NewFormID);
+//ShowMessage('CustomDocNo='+CustomDocNo);
+LogFile1.LogToFile(logTimeString+'Tree 歸類到自訂文件 CustomDocNo='+CustomDocNo);
+ ShowText := _Msg('歸類中,請稍侯');
+ DataLoading(True,True);
+ FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,CustomDocNo+'010101A');
+ end
+ else
+ begin
+ //歸類到既有文件
+ if NowFormCode <> AttName then
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end
+ Else
+ begin
+ If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
+ Exit;
+ end;
+ ShowText := _Msg('歸類中,請稍侯');
+ DataLoading(True,True);
+//ShowMessage('NowDocDir='+NowDocDir);
+LogFile1.LogToFile(logTimeString+'Tree 歸類到既有文件 NewFormID='+NewFormID);
+ FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,NewFormID);
+
+ end;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ DataLoading(False,False);
+ TreeView1.Selected := MyTreeNode1;
+ TreeView1Click(self);
+ end;
+
+ finally
+ DocListForm.Free;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM109Click
+ 引用相依：SaveToFile
+ 方法描述：處理「案件 OMR 檢核」右鍵選單。清空當前顯示並開啟檢核進度，呼叫 OMRCheck
+ Case 對案件執行光學劃記辨識檢核。若檢核成功則建立 OMRCheckOk.dat 標記
+ 檔，最後重新載入影像、刷新樹狀結構並提示檢核完成。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM109Click(Sender: TObject);
+var
+ S : TStringlist;
+ CaseID : String;
+begin
+ //if TreeView1.Selected = nil then Exit;
+ //if TreeView1.Selected = NewTreeNode then Exit;
+ CaseID := NowCaseno;
+ S := TStringlist.Create;
+ try
+ ClearView(1);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ If OMRCheckCase(CaseID) then //有成功
+ begin
+ S.Add('Y');
+ S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+ end;
+ //MyTreeNode2ReFresh(CaseID);
+ LoadImgFile;
+ TreeView1Click(nil);
+ DataLoading(False,False);
+ finally
+ S.Free;
+ end;
+ Showmessage(_Msg('檢核完成'));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM110Click
+ 引用相依：Str2Dir
+ 方法描述：處理「新增其他文件」右鍵選單。彈出對話框要求輸入自定義名稱，驗證無誤後產
+ 生新的文件編號並在案件目錄下建立實體子目錄。隨後將新目錄加入清單並重
+ 新繪製樹狀結構，最後自動展開新建立的節點。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM110Click(Sender: TObject);
+var
+ CustomDocName : String;
+ CustomDocNo : String;
+ DocDir : String;
+ SavePath : String;
+ ST1:TStringList;
+begin
+ if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
+ begin
+ if CustomDocName <> '' then
+ begin
+ if FindCustomDocName(DisplayPath,CustomDocName) then
+ begin
+ Showmessage(Format('文件名稱:"%s"己存在',[CustomDocName]));
+ Exit;
+ end;
+ ST1:=TStringList.Create;
+ CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
+ DocDir := CustomDocNo;
+ SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
+ Str2Dir(SavePath);
+ SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ MyTreeNode1.Expand(True);
+ end;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM111Click
+ 引用相依：
+ 方法描述：處理「修改文件份數」右鍵選單。取得當前份數並供使用者修改（範圍 1-9999）。
+ 若份數有變動則執行驗證（如分份文件限制），確認後更新 SetDocDirCopies 設
+ 定並標記文件已編輯，最後刷新樹狀結構統計。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM111Click(Sender: TObject);
+var
+ oldCopies,NewCopies : Integer;
+ copies : String;
+begin
+ oldCopies := GetDocDirCopies(NowCaseno,NowDocDir);
+ try
+ NewCopies := Strtoint(inputBox(_Msg('修改份數'),_Msg('請輸入修改後的份數'),inttostr(oldCopies)));
+ except
+ Showmessage(_Msg('輸入錯誤'));
+ Exit;
+ end;
+ if (NewCopies <= 0) and (NewCopies >= 10000) then
+ begin
+ Showmessage(_Msg('輸入範圍錯誤'));
+ Exit;
+ end;
+
+ if (oldCopies <> NewCopies) and (NewCopies > 0) and (NewCopies < 10000) then
+ begin
+ if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg(_Msg('修改至1份後此文件將無法再進行份數修改,是否確定??'),mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then
+ Exit;
+
+ SetDocDirCopies(NowCaseno,NowDocDir,NewCopies);
+ SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ Showmessage(_Msg('修改完成'));
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM301Click
+ 引用相依：ifBlackWhite
+ 方法描述：將掃瞄模式設定為黑白（ifBlackWhite）並指定副檔名為 .tif。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM301Click(Sender: TObject);
+begin
+ ScanColor := ifBlackWhite;
+ ScanDpi := Def_ScanDpi;
+ Ext := '.tif';
+ PM301.Checked := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM302Click
+ 引用相依：ifGray256
+ 方法描述：將掃瞄模式設定為灰階（ifGray256）並指定副檔名為 .jpg。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM302Click(Sender: TObject);
+begin
+ ScanColor := ifGray256;
+ Ext := '.jpg';
+ ScanDpi := 200;
+ //Ext := '.tif';
+ PM302.Checked := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM303Click
+ 引用相依：ifTrueColor
+ 方法描述：將掃瞄模式設定為全彩（ifTrueColor）並指定副檔名為 .jpg。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM303Click(Sender: TObject);
+begin
+ ScanColor := ifTrueColor;
+ Ext := '.jpg'; //20130326 yuu說理賠改存jpg
+ ScanDpi := 200;
+ //Ext := '.tif';
+ PM303.Checked := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM501Click
+ 引用相依：
+ 方法描述：將影像縮放模式設為「符合寬度」並開啟反鋸齒。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM501Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmFitWidth;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM502Click
+ 引用相依：
+ 方法描述：將影像縮放模式設為「符合高度」並開啟反鋸齒。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM502Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmFitHeight;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM503Click
+ 引用相依：
+ 方法描述：將影像縮放模式設為「符合頁面」並開啟反鋸齒。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM503Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmFittoPage;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM504Click
+ 引用相依：
+ 方法描述：將影像縮放模式設為「原始大小」並開啟反鋸齒。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM504Click(Sender: TObject);
+begin
+ DisplayISB.ZoomMode := zmOriginalSize;
+ DisplayISB.AntiAliased := True;
+ SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM505Click
+ 引用相依：StatrTwainScan
+ 方法描述：處理「掃瞄替換此頁」右鍵選單。檢查當前影像後，設定掃瞄模式為 smReplace
+ 並指定儲存路徑與檔名為當前顯示之影像。啟動 StatrTwainScan 掃瞄以覆蓋
+ 原檔案，完成後清空該案件的檢核記錄。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM505Click(Sender: TObject);
+begin
+ if DisplayISB.FileName = '' then Exit;
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ ScanMode := smReplace;
+ ScanInfo.ImageCount := 0;
+ ScanPath := DisplayPath;
+ ScanCaseno := '';
+ ScanSaveFilename := ExtractFileName(DisplayISB.FileName);
+ Try
+ StatrTwainScan;
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM507Click
+ 引用相依：RenameFile
+ 方法描述：處理影像區域的「文件歸類」右鍵選單。彈出對話框供使用者選取目標表單，隨後
+ 根據選取的 FormID 產生新的序號檔名。執行 RenameFile 進行實際更名並同
+ 步更新 Context.dat。最後重新整理樹狀結構、清空檢核記錄並使焦點回到原文
+ 件節點。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM507Click(Sender: TObject);
+var
+ i : Integer;
+ DocListForm : TDocListForm;
+ OldName,NewName,Ext : String;
+ FormID,FormName,DocNo : String;
+ PreNode2Name : String;
+ iFormID : String;
+begin
+ PreNode2Name := '';
+ if TreeView1.Selected.Parent = MyTreeNode1 then
+ PreNode2Name:= GetNode2Name(MyTreeNode2);
+ ShowText := _Msg('文件歸類中,請稍候');
+ DataLoading(True,True);
+ DocListForm := TDocListForm.Create(self);
+ try
+ InitialLanguage(PatchDlg); //載入多國語言
+ for i := 1 to FORM_INF_List.Count - 1 do
+ begin
+ FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
+ FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
+ DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
+ //Showmessage(FORM_INF_List.Text);
+ //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
+ if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
+ begin
+ DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
+ With DocListForm.DocLV.Items.Add do
+ begin
+ Caption := FormID;
+ SubItems.Add(FormName);
+ end;
+ end;
+ end;
+ if DocListForm.ShowModal = mrOk then
+ begin
+ OldName := ExtractFileName(DisplayISB.FileName);
+ Ext := ExtractFileExt(OldName);
+ //NewName := Copy(OldName,1,3)+'_'+TransRealFormID(DocListForm.DocLV.Selected.Caption)+Ext;
+ NewName := Add_Zoo(FileName2ScanPage(OldName),3)+'_'+DocListForm.DocLV.Selected.Caption+Ext;
+ RenameFile(DisplayPath+OldName,DisplayPath+NewName);
+ ReNameContext(DisplayPath,OldName,NewName);
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ if PreNode2Name <> '' then // 回到原本點選的文件節點上
+ begin
+ for i := 0 to MyTreeNode1.Count - 1 do
+ begin
+ if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[i];
+ Break;
+ end;
+ end;
+ end;
+ TreeView1click(self);
+ //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
+ end;
+ finally
+ DataLoading(False,False);
+ DocListForm.Free;
+ end;
+
+end;
+
+
+
+{ ==============================================================================
+ 方法名稱：PM508Click
+ 引用相依：_DelTree, SaveToFile, ReSortFileName, LoadFromFile, FileExists
+ 方法描述：處理影像區域的「刪除影像」右鍵選單。若案件僅剩一張影像則詢問是否刪除整
+ 個案件目錄。否則，在確認後從影像清單中移除該項目、刪除實體檔案並呼叫 Re
+ SortFileName 重新排序。最後刷新樹狀統計文字、清空檢核記錄並更新顯示。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM508Click(Sender: TObject);
+var
+ P : Integer;
+ inx:Integer;
+begin
+ if DisplayISB.FileName = '' then Exit;
+ if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'ISCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN')) then
+ begin
+ if Messagedlg(Format(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
+ _DelTree(DisplayPath);
+ SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
+ LoadImgFile;
+ end
+ Else
+ begin
+ if Messagedlg(_Msg('是否確定刪除?'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
+ inx := ContextList.IndexOf(ExtractFileName(DisplayISB.FileName));
+ ContextList.Delete(inx);
+ ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');
+ Context_DocnoList.Delete(inx);
+ Context_DocnoList.SaveToFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
+ DeleteFile(DisplayISB.FileName);
+ ReSortFileName(DisplayPath);
+ ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');
+ Context_DocnoList.LoadFromFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
+ if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(ImageSavePath + NowCaseno+'\CustomDocNo.dat');
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
+ DrawDocItem2(MytreeNode1,NowCaseno);
+
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ P := ContextList.Count;
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,p]);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ NewTreeNodeRefresh;
+ TreeView1Click(self);
+
+ end;
+ //Showmessage(_Msg('刪除完成')); //20101101 User要求拿掉
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM509Click
+ 引用相依：
+ 方法描述：觸發「從此分案」功能，內部轉呼叫 PM401Click。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM509Click(Sender: TObject);
+begin
+ PM401Click(nil);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PM510Click
+ 引用相依：DeskewImg, SaveToFile
+ 方法描述：對當前 Graphic 執行去偏斜處理後存回原檔案。
+============================================================================== }
+procedure TCB_IMGPSScanX.PM510Click(Sender: TObject);
+begin
+ DeskewImg(DisplayISB.Graphic);
+ DisplayISB.SaveToFile(DisplayISB.FileName);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PopupMenu1Popup
+ 引用相依：
+ 方法描述：處理樹狀結構右鍵選單彈出時的動態項目控制。根據選取節點的層級（根、案件、
+ 文件、表單）與系統模式（如 FMode、FImgDelete 權限等）動態設定各項選單（刪
+ 除、修改、掃瞄加入、歸類、檢核等）的可見度與可用性。例如在文件層會受影像引
+ 用狀態限制刪除功能。
+============================================================================== }
+procedure TCB_IMGPSScanX.PopupMenu1Popup(Sender: TObject);
+begin
+ PM101.Visible := False; //刪除
+ PM102.Visible := False; //修改案件編號
+ PM103.Visible := False; //掃瞄器加入影像
+ PM104.Visible := False; //檔案加入影像
+ PM106.Visible := False; //複製文件至其他編號
+ PM107.Visible := False; //寫備註
+ PM108.Visible := False; //歸類
+ PM109.Visible := False; //檢核此筆
+ PM110.Visible := False; //新增自訂文件
+ PM111.Visible := False; //修改份數
+
+ if (FMode = 'SAMPLESCAN') then Exit;
+
+ if TreeView1.Selected = nil then Exit;
+ if TreeView1.Selected = NewTreeNode then //新掃瞄件
+ begin
+ if (FMode = 'NSCAN') then
+ begin
+//ShowMessage('AAAA');
+ PM101.Visible := True; //刪除
+ PM103.Visible := True; //掃瞄器加入影像
+ PM104.Visible := True; //檔案加入影像
+ end;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+// if FMode='ESCAN' then
+// begin
+// PM101.Visible := True;
+// end;
+ end
+ Else if TreeView1.Selected = MyTreeNode1 then //案件層
+ begin
+ PM101.Visible := True; //刪除
+
+ if FImgDelete='Y' then
+ begin
+ PM101.Visible:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM101.Visible:=false;
+ end;
+
+ if FMode='ESCAN' then
+ PM101.Visible:=false;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+
+ if not CaseDelete_Enable(NowCaseno) then //
+ PM101.Enabled := False
+ else
+ PM101.Enabled := True;
+ PM103.Visible := True; //掃瞄器加入影像
+ //PM107.Visible := True; //寫備註
+ //PM109.Visible := True; //檢核此筆
+// if FCustDocYN <> 'N' Then
+// PM110.Visible := True; //新增自訂文件 20170914 先不在tree 中做自訂文件 讓user在縮圖做
+ PM104.Visible := True; //檔案加入影像
+ if (FMode = 'NSCAN') then
+ begin
+ PM102.Visible := True; //修改案件編號
+ end;
+// if FMode='ESCAN' then
+// begin
+// PM101.Visible := True;
+// end;
+ end
+ Else if TreeView1.Selected = MyTreeNode2 then //文件層
+ begin
+ PM101.Visible := True; //刪除
+ //PM107.Visible := True; //寫備註
+ //PM109.Visible := True; //檢核此筆
+// if FCustDocYN <> 'N' Then
+// PM110.Visible := True; //新增自訂文件
+ if FImgDelete='Y' then
+ begin
+ PM101.Visible:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM101.Visible:=false;
+ end;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //沒有被引用走的
+ PM101.Enabled := False //刪除
+ Else
+ PM101.Enabled := True; //刪除
+ if ((GetDocDirCopies(NowCaseno,NowDocDir) > 1) or (not DocNoNeedDiv(NowDocNo)) or (Copy(NowDocNo,1,5)='ZZZZZ')) and (NowDocNo<> 'Attach') and (NowDocNo<> 'S_Attach') then
+ PM111.Visible := True; //修改份數
+ if (FMode = 'NSCAN') then
+ PM102.Visible := True; //修改案件編號
+// if FMode='ESCAN' then
+// begin
+// PM101.Visible := True;
+// end;
+ end
+ Else if TreeView1.Selected = MyTreeNode3 then //表單層
+ begin
+ PM101.Visible := True; //刪除
+ PM104.Visible := True; //檔案加入影像
+ PM108.Visible := True; //歸類
+ PM103.Visible := True; //掃瞄器加入影像
+// if FCustDocYN <> 'N' Then
+// PM110.Visible := True; //新增自訂文件
+ if GetFormIDPage(ContextList,NowFormCode) < 1 Then
+ begin
+ PM108.Visible := False; //歸類
+ end;
+ if FImgDelete='Y' then
+ begin
+ PM101.Visible:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM101.Visible:=false;
+ end;
+
+ if FModeName=_Msg('異動件') then
+ begin
+ PM101.Visible := True;
+ end;
+
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //被引用走的
+ begin
+ PM101.Enabled := False; //刪除
+ PM104.Enabled := False; //檔案加入影像
+ PM108.Enabled := False; //歸類
+ end
+ Else
+ begin
+ PM101.Enabled := True; //刪除
+ PM104.Enabled := True; //檔案加入影像
+ PM108.Enabled := True; //歸類
+ end;
+
+ if (FMode = 'NSCAN') then
+ begin
+ PM102.Visible := True; //修改案件編號
+ end;
+ end;
+
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PopupMenu4Popup
+ 引用相依：
+ 方法描述：處理影像列表右鍵選單彈出邏輯。僅在樹狀結構選取文件或表單層級時顯示全
+ 選、取消全選及歸類功能，並特別判斷「分出新案」在非重掃模式下才可見。
+============================================================================== }
+procedure TCB_IMGPSScanX.PopupMenu4Popup(Sender: TObject);
+begin
+ PM401.Visible := False;
+ PM402.Visible := False;
+ PM403.Visible := False;
+ PM404.Visible := False;
+ if FMode = 'SAMPLESCAN' then Exit;
+ if (TreeView1.Selected.Level =2) or (TreeView1.Selected.Level =3) then
+ begin
+ PM402.Visible := True;
+ PM403.Visible := True;
+ PM404.Visible := True;
+ end;
+ PM401.Visible := True;
+ if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') then
+ PM401.Visible := False;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PopupMenu5Popup
+ 引用相依：
+ 方法描述：處理影像顯示區域右鍵選單彈出邏輯。當有載入影像時啟用各類縮放選單項目，
+ 並根據樹狀選取層級與掃瞄模式決定是否顯示「分出新案」功能。
+============================================================================== }
+procedure TCB_IMGPSScanX.PopupMenu5Popup(Sender: TObject);
+begin
+ PM501.Visible := False;
+ PM502.Visible := False;
+ PM503.Visible := False;
+ PM504.Visible := False;
+ PM505.Visible := False;
+ PM506.Visible := False;
+ PM507.Visible := False;
+ PM508.Visible := False;
+ PM509.Visible := False;
+ PM510.Visible := False;
+ if FMode = 'SAMPLESCAN' then Exit;
+ if (DisplayISB.FileName <> '') then
+ begin
+ PM501.Visible := True;
+ PM502.Visible := True;
+ PM503.Visible := True;
+ PM504.Visible := True;
+ //PM505.Visible := True;
+ //PM506.Visible := True;
+ //PM507.Visible := True;
+ //PM508.Visible := True;
+ //PM509.Visible := True;
+ //PM510.Visible := True;
+ end;
+ if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') or (FMode = 'ESCAN') then
+ PM509.Visible := False;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PopupMenu6Popup
+ 引用相依：
+ 方法描述：處理縮圖區右鍵選單彈出邏輯。動態設定歸類、自定義文件及刪除項目的可見度
+ 。若選取附件目錄則開啟特殊功能。同時根據權限設定與影像引用狀態（UseCase
+ ）限制歸類與刪除功能的可用性。
+============================================================================== }
+procedure TCB_IMGPSScanX.PopupMenu6Popup(Sender: TObject);
+begin
+ PM601.Visible := True; //歸類
+ PM602.Visible := True; //自行定義文件名稱
+ PM603.Visible := False; //掃描替換此頁
+ PM604.Visible := False; //歪斜矯正
+ PM605.Visible := True; //刪除
+
+// if FMode='ESCAN' then
+// begin
+// PM601.Visible := False; //歸類
+// PM602.Visible := False; //自行定義文件名稱
+// PM603.Visible := False; //掃描替換此頁
+// PM604.Visible := False; //歪斜矯正
+// PM605.Visible := False; //刪除
+// end;
+
+ if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then
+ begin
+ PM602.Visible := True; //自行定義文件名稱
+ //PM603.Visible := True; //掃描替換此頁
+ PM604.Visible := True; //歪斜矯正
+ PM601.Visible := True; //歸類
+ PM605.Visible := True; //刪除
+ end;
+
+ if FModeName<>_Msg('異動件') then
+ begin
+ if (FImgDelete='Y') then
+ begin
+ PM605.Enabled:=True;
+ end;
+ if FImgDelete='N' then
+ begin
+ PM605.Enabled:=false;
+ end;
+ end;
+
+
+
+
+ if CheckSelectImg_UseCase(DisplayPath,NowCaseNo) then //選擇的影像不可有引用的
+ begin
+ PM601.Enabled := False; //歸類
+ PM605.Enabled := False; //刪除
+ end;
+
+
+end;
+
+
diff --git a/reassemble/view/scrollView.pas b/reassemble/view/scrollView.pas
new file mode 100644
index 0000000..3c890df
--- /dev/null
+++ b/reassemble/view/scrollView.pas
@@ -0,0 +1,314 @@
+{ ==============================================================================
+ 方法名稱：ISB1Click
+ 引用相依：
+ 方法描述：影像滾輪盒（ISB）的點擊處理。更新當前顯示的 ISB 對象，調整 Shape1 標記框
+ 的位置以框選當前 ISB。根據 ISB 名稱與捲軸位置計算並更新 PageLV 清單中
+ 的選取狀態（NowPage 與 ItemIndex）。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISB1Click(Sender: TObject);
+var
+ p : Integer;
+begin
+ DisplayISB := TImageScrollBox(Sender);
+ Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
+ Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
+ P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
+ if P <= PageLV.Items.Count-1 then
+ begin
+ if PageLVclear then
+ begin
+ PageLV.ClearSelection;
+ end;
+ NowPage := p+1;
+ PageLV.ItemIndex := P;
+ end;
+ //DisplayISB.SetFocus;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISB1EndScroll
+ 引用相依：
+ 方法描述：當影像滾輪盒停止捲動時觸發。呼叫 SetScrollData 將當前的水平/垂直捲軸
+ 位置與縮放百分比存回緩存中，以維持影像顯示的一致性。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISB1EndScroll(Sender: TObject);
+var
+ ISB : TImageScrollBox;
+begin
+ ISB := TImageScrollBox(Sender);
+
+ SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
+ {if (TImageScrollBox(Sender) = MpsViewX1) and SortMode then
+ begin
+ ReczoomPercent := MpsViewX1.ZoomPercent;
+ RecHozPos := MpsViewX1.HorzScrollBarPos;
+ RecVerPos := MpsViewX1.VertScrollBarPos;
+ end;}
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISB1Enter
+ 引用相依：
+ 方法描述：當滑鼠進入影像滾輪盒區域時，強制將焦點設為 ISB1。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISB1Enter(Sender: TObject);
+begin
+ ISB1.SetFocus;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISB1ImageMouseDown
+ 引用相依：LoadFromFile
+ 方法描述：影像滑鼠按下事件。設定當前 DisplayISB 並視情況取得焦點，更新 Shape1 的
+ 選取框位置。同步更新 PageLV 的選取頁面。若處於特定模式（NowClick = -1）
+ 且按下左鍵，則啟動影像的拖曳操作（BeginDrag）。此外也會處理旋轉模式下的
+ 影像載入。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+var
+ p : Integer;
+begin
+ DisplayISB := TImageScrollBox(Sender);
+ if NowClick<>0 then
+ DisplayISB.SetFocus;
+ Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
+ Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
+ P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
+ if P <= PageLV.Items.Count-1 then
+ begin
+ NowPage := p+1;
+ PageLV.ClearSelection;
+ PageLV.ItemIndex := P;
+
+ //PageLV.Selected := PageLV.Items.Item[PageLV.ItemIndex];
+
+ end;
+ if (NowClick = -1) and (Button=TMouseButton(mbLeft)) and (DisplayISB.FileName <> '') then
+ begin
+ {for P := 1 to 8 do
+ begin
+ TImageScrollBox(FindComponent('ISB'+inttostr(p))).Enabled := False;
+ end; }
+ DisplayISB.BeginDrag(True);
+ end;
+ case TImageScrollBox(Sender).MouseMode of
+ mmR90,mmR180,mmR270:
+ begin
+ TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);
+ end;
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISB1ImageMouseMove
+ 引用相依：
+ 方法描述：影像滑鼠移動事件。根據當前是否有載入影像檔案，動態切換滑鼠模式（MouseMo
+ de）。若無檔案則設為使用者模式（mmUser），否則根據 NowClick 狀態呼叫 View
+ MouseMode 切換至對應的檢視模式。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+begin
+ //Edit1.SetFocus;
+ //TImageScrollBox(Sender).SetFocus;
+
+ if TImageScrollBox(Sender).FileName = '' then
+ TImageScrollBox(Sender).MouseMode := mmUser
+ Else
+ ViewMouseMode(NowClick);
+
+ ISB1.AlwaysShowAnnotations := False;
+
+// if TImageScrollBox(Sender).FileName = '' then
+// begin
+////ShowMessage('AAA');
+//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName+' time='+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
+// TImageScrollBox(Sender).MouseMode := mmUser
+// end
+// Else
+// begin
+//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName;
+// ViewMouseMode(NowClick);
+// end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ISB1ImageMouseUp
+ 引用相依：TJpegGraphic, SaveQuality, SaveToFile
+ 方法描述：影像滑鼠放開事件。處理多種滑鼠模式：在 mmDelete 模式下觸發刪除功能；在
+ 旋轉模式（mmR90等）下儲存旋轉後的影像檔案，並同步更新預覽圖（SelectISB）
+ 與清空檢核記錄。最後針對縮放或拖曳模式更新捲軸位置數據。
+============================================================================== }
+procedure TCB_IMGPSScanX.ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+Var
+ p : Integer;
+ ISB : TImageScrollBox;
+begin
+ case TImageScrollBox(Sender).MouseMode of
+ mmDelete:
+ begin
+ PM508Click(Self);
+ end;
+ mmR90,mmR180,mmR270:
+ begin
+ if TImageScrollBox(Sender).Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;
+ TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);
+ end
+ Else
+ TImageScrollBox(Sender).SaveToFile(TImageScrollBox(Sender).FileName);
+
+ SelectISB.Graphic.Assign(TImageScrollBox(Sender).Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ end;
+ end;
+
+ ISB := TImageScrollBox(Sender);
+ if (ISB.MouseMode = mmZoom) or (ISB.MouseMode = mmDrag) then
+ SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ScrollBox1MouseEnter
+ 引用相依：
+ 方法描述：當滑鼠進入捲軸區域時，自動將焦點設定至 ScrollBox1。
+============================================================================== }
+procedure TCB_IMGPSScanX.ScrollBox1MouseEnter(Sender: TObject);
+begin
+ScrollBox1.SetFocus;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindISB2View
+ 引用相依：
+ 方法描述：根據檢視模式，在畫面中尋找下一個可顯示影像的 TImageScrollBox。遍歷 ISB
+ 1-ISB8，檢查 FileName 是否為空；若已滿則會清空特定位置影像並重新開始，
+ 確保影像載入有對應視窗。
+============================================================================== }
+Function TCB_IMGPSScanX.FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示
+var
+ i,n : Integer;
+ ISB : TImageScrollBox;
+begin
+ case Vmode of
+ 0 : n := 1;
+ 1 : n := 2;
+ 2 : n := 4;
+ 3 : n := 6;
+ 4 : n := 8;
+ end;
+ for i := 1 to 8 do
+ begin
+ if i > n then Break;
+ ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
+ if (i = n) and (ISB.FileName <> '') then
+ begin
+ clearView(i);
+ Result := ISB1;
+ end
+ Else if ISB.FileName = '' then
+ Result := ISB;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：ImageScrollBox1NewGraphic
+ 引用相依：TDibGraphic, ConvertToBW
+ 方法描述：當載入新影像時觸發。將當前 Graphic 內容同步至黑白影像處理元件（ISB_BW）
+ ，若原始影像非黑白格式則執行 ConvertToBW 轉換。
+============================================================================== }
+procedure TCB_IMGPSScanX.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+begin
+ IF ImageScrollBox1.Graphic.Empty Then Exit;
+ ISB_BW.Graphic.Assign(ImageScrollBox1.Graphic);
+ If ImageScrollBox1.Graphic.ImageFormat <> ifBlackWhite Then
+ begin
+ ConvertToBW(ISB_BW.Graphic);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：GetScrollData
+ 引用相依：
+ 方法描述：根據傳入的影像捲軸盒（ISB）名稱，從 ScrollRec 陣列中提取其儲存的水平、垂
+ 直捲軸位置及縮放比例。
+============================================================================== }
+Procedure TCB_IMGPSScanX.GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single);
+var
+ index : Integer;
+begin
+ index := strtoint(copy(ISB.Name,4,1));
+ HS := ScrollRec[Index].HScroll;
+ VS := ScrollRec[Index].VScroll;
+ iRate := ScrollRec[Index].Rate;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SetScrollData
+ 引用相依：
+ 方法描述：將指定的水平、垂直捲軸位置與縮放比例存入對應影像視窗索引的 ScrollRec
+ 記錄中。
+============================================================================== }
+Procedure TCB_IMGPSScanX.SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single);
+var
+ index : Integer;
+begin
+ index := strtoint(copy(ISB.Name,4,1));
+ ScrollRec[Index].HScroll := HS;
+ ScrollRec[Index].VScroll := VS;
+ ScrollRec[Index].Rate := iRate;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FindMpsView
+ 引用相依：
+ 方法描述：根據當前的檢視模式（Vmode），在 8 個影像視窗中尋找適合載入下一個影像的
+ 視窗組件。函式會根據 1x1 到 4x2 的佈局決定搜尋上限，優先回傳檔名為空的
+ 視窗；若視窗已滿，則清空指定位置的顯示並回傳主視窗 ISB1。
+============================================================================== }
+Function TCB_IMGPSScanX.FindMpsView(Vmode: Integer):TImageScrollBox;
+var
+ i,n : Integer;
+ ISB : TImageScrollBox;
+begin
+ case Vmode of
+ 0 : n := 1;
+ 1 : n := 2;
+ 2 : n := 4;
+ 3 : n := 6;
+ 4 : n := 8;
+ end;
+ for i := 1 to 8 do
+ begin
+ if i > n then Break;
+ ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
+ if (i = n) and (ISB.FileName <> '') then
+ begin
+ clearView(i);
+ Result := ISB1;
+ end
+ Else if ISB.FileName = '' then
+ Result := ISB;
+ end;
+end;
+
+
diff --git a/reassemble/view/toolBar.pas b/reassemble/view/toolBar.pas
new file mode 100644
index 0000000..3996c08
--- /dev/null
+++ b/reassemble/view/toolBar.pas
@@ -0,0 +1,1104 @@
+{ ==============================================================================
+ 方法名稱：WNoteBtnClick
+ 引用相依：FileExists, LoadFromFile, SaveToFile
+ 方法描述：開啟備註編輯視窗。首先初始化多國語言並從 MEMO_INF_List 載入註記範本資
+ 訊。若存在 Scan_Memo.dat，則讀取既有的註記內容。顯示 TSortMemoForm 供使
+ 用者編輯，確認後將編輯結果存回 Scan_Memo.dat。最後視需要觸發 CaseHelpB
+ tnClick 以更新狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.WNoteBtnClick(Sender: TObject);
+var
+ i,n,v,v1:Integer;
+ SortMemoForm : TSortMemoForm;
+ M_Content,M_ID,M_Name : String;
+ S : TStringlist;
+begin
+ ShowText := _Msg('備註輸入中,請稍候');
+ DataLoading(True,True);
+ SortMemoForm := TSortMemoForm.Create(Self);
+ S := TStringlist.Create;
+ try
+ InitialLanguage(SortMemoForm); //載入多國語言
+
+ SortMemoForm.ContentList := TStringlist.Create; //註記內容
+ SortMemoForm.MemoIDList := TStringlist.Create; //註記代號
+ SortMemoForm.MemoNameList := TStringlist.Create; //註記名稱
+
+ for i := 1 to MEMO_INF_List.Count - 1 do
+ begin
+ M_Content := GetSQLData(MEMO_INF_List,'T1.MEMO_CONTENT',i);
+ M_ID := GetSQLData(MEMO_INF_List,'T1.MEMO_TYPE',i);
+ M_Name := GetSQLData(MEMO_INF_List,'T2.MEMO_TYPE_NAME',i);
+ SortMemoForm.ComboBox1.Items.Add(M_Name+'-->'+M_Content);
+ SortMemoForm.ContentList.Add(M_Content); //註記內容
+ SortMemoForm.MemoIDList.Add(M_ID); //註記代號
+ SortMemoForm.MemoNameList.Add(M_Name); //註記名稱
+ end;
+ if FileExists(DisplayPath+'Scan_Memo.dat') then
+ begin
+ S.LoadFromFile(DisplayPath+'Scan_Memo.dat');
+ for I := 0 to S.Count - 1 do
+ begin
+ v := Pos(',',S.Strings[i]);
+ v1 := length(S.Strings[i]);
+ M_ID := copy(S.Strings[i],1,v-1);
+ M_Name := MemoInfoTransfer('ID',M_ID,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
+ M_Content := copy(S.Strings[i],v+1,v1-v);
+ SortMemoForm.ResoureMemo.Add(M_Name+'-->'+M_Content);
+ With SortMemoForm.MemoLV.Items.Add do
+ begin
+ Caption := M_Content;
+ SubItems.Add(M_Name);
+ end;
+ end;
+ end;
+
+ if SortMemoForm.ShowModal = mrOk then
+ begin
+ S.Clear;
+ for I := 0 to SortMemoForm.MemoLV.Items.Count - 1 do
+ begin
+ M_Content := SortMemoForm.MemoLV.Items.Item[i].Caption;
+ M_Name := SortMemoForm.MemoLV.Items.Item[i].SubItems.Strings[0];
+ M_ID := MemoInfoTransfer('NAME',M_Name,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
+ S.Add(M_ID+','+M_Content);
+ end;
+ S.SaveToFile(DisplayPath+'Scan_Memo.dat');
+ end;
+ SortMemoForm.ContentList.Free; //註記內容
+ SortMemoForm.MemoIDList.Free; //註記代號
+ SortMemoForm.MemoNameList.Free; //註記名稱
+ finally
+ SortMemoForm.Free;
+ S.Free;
+ DataLoading(False,False);
+ if Ch_WriteNote then
+ begin
+ Ch_WriteNote := False;
+ CaseHelpBtnClick(self);
+ ErrIndex := 0;
+ end;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC0Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 0 的點擊處理。若重複點擊則關閉影像顯示（DesableImage），
+ 否則啟用索引為 0 的影像顯示（EnableImage）並更新 NowClick 狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC0Click(Sender: TObject);
+begin
+ IF NowClick = 0 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(0 ,Sender);
+ NowClick := 0;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC1Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 1 的點擊處理。若重複點擊則關閉影像顯示，否則啟用索引為
+ 1 的影像顯示並更新 NowClick 狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC1Click(Sender: TObject);
+begin
+ IF NowClick = 1 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(1 ,Sender);
+ NowClick := 1;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC2Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 2 的點擊處理。若重複點擊則關閉影像顯示，否則啟用索引為
+ 2 的影像顯示並更新 NowClick 狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC2Click(Sender: TObject);
+begin
+ IF NowClick = 2 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(2,Sender);
+ NowClick := 2;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC3Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 3 的點擊處理。若重複點擊則關閉影像顯示，否則啟用索引為
+ 3 的影像顯示並更新 NowClick 狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC3Click(Sender: TObject);
+begin
+ IF NowClick = 3 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(3 ,Sender);
+ NowClick := 3;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC4Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 4 的點擊處理。若重複點擊則關閉影像顯示，否則啟用索引為
+ 4 的影像顯示並更新 NowClick 狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC4Click(Sender: TObject);
+begin
+ IF NowClick = 4 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(4 ,Sender);
+ NowClick := 4;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC5Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 5 的點擊處理。若重複點擊則關閉影像顯示，否則啟用索引為
+ 5 的影像顯示並更新 NowClick 狀態。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC5Click(Sender: TObject);
+begin
+ IF NowClick = 5 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(5 ,Sender);
+ NowClick := 5;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：FC6Click
+ 引用相依：
+ 方法描述：工具列功能按鈕 6 的點擊處理。目前的實作已註解掉原有的影像啟用邏輯，改
+ 為直接呼叫 PM605Click(nil)，即觸發右鍵選單中的刪除影像功能。
+============================================================================== }
+procedure TCB_IMGPSScanX.FC6Click(Sender: TObject);
+begin
+ {IF NowClick = 6 Then
+ begin
+ DesableImage;
+ Exit;
+ end;
+ EnableImage(6 ,Sender);
+ NowClick := 6;}
+ PM605Click(nil);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：NewScanBtnClick
+ 引用相依：StatrTwainScan
+ 方法描述：點擊「新案掃瞄」按鈕的處理。首先檢查初始化狀態。針對重掃（RSCAN）、異動（ESC
+ AN）或重掃指定件（DSCAN），會自動選取新件節點並觸發追加掃瞄。若是全新掃瞄
+ ，則重設掃瞄模式與路徑，清空清單，最後呼叫 StatrTwainScan 啟動掃瞄程序，
+ 並在結束後重新載入影像檔案。
+============================================================================== }
+procedure TCB_IMGPSScanX.NewScanBtnClick(Sender: TObject);
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+LogFile1.LogToFile(logTimeString+'掃瞄開始');
+ if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'DSCAN') then
+ begin
+ if NewTreeNode.Count > 0 then
+ begin
+ TreeView1.Selected := NewTreeNode.Item[0];
+ TreeView1click(nil);
+ FirstDocDir := '';
+ NowGuideFormID := '';
+ NowDivPageFormID :='';
+ AddScanBtnclick(nil);
+ end;
+ end
+ Else
+ begin
+ TreeView1.Selected := NewTreeNode;
+ NewTreeNode.Expand(False);
+ TreeView1Click(self);
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ ScanMode := smNew;
+ ScanInfo.ImageCount := 0;
+ ScanPath := '';
+ ScanCaseno := '';
+ NowGuideFormID := '';
+ NowDivPageFormID :='';
+ ClearView(1);
+ ContextList.Clear;
+ Try
+ StatrTwainScan;
+LogFile1.LogToFile(logTimeString+'掃瞄結束');
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ LoadImgFile;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：NextPageBtnClick
+ 引用相依：
+ 方法描述：處理「下一頁」按鈕點擊。若有選取影像，則呼叫 NextPage 跳轉至下一頁，並判
+ 斷選取影像的位置是否超出目前滾輪區域的高度，若是則自動調整 ScrollBox1
+ 的垂直捲軸位置，以確保新頁面影像能正確顯示在視線範圍內。
+============================================================================== }
+procedure TCB_IMGPSScanX.NextPageBtnClick(Sender: TObject);
+var
+ page : Integer;
+begin
+ {page := ScrollBar1.Position;
+ Case Vmode of
+ 0 : Inc(page);
+ 1 : Page := Page + 2;
+ 2 : Page := Page + 4;
+ 3 : Page := Page + 6;
+ 4 : Page := Page + 8;
+ end;
+ IF page <= ScrollBar1.Max Then
+ begin
+ ScrollBar1.Position := page;
+ end;}
+ if selectISB = nil then Exit;
+ NextPage(SelectPage);
+ if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
+ ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：OptionBtnClick
+ 引用相依：Scanner
+ 方法描述：處理「掃瞄參數設定」按鈕點擊。首先確認系統初始化是否完成，接著建立 TPatc
+ hDlg 對話框並載入多國語言。將目前的掃瞄設定（如自動刪除空白頁、DPI、單/
+ 雙面、反白、去邊、去偏斜、亮度、對比、旋轉角度及顯示模式等）同步至對話框。使
+ 用者完成設定後，將新參數存回系統變數，並呼叫 R_W_ScanIni 將設定寫入設
+ 定檔。
+============================================================================== }
+procedure TCB_IMGPSScanX.OptionBtnClick(Sender: TObject);
+var
+ PatchDlg : TPatchDlg;
+ i : Integer;
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+ ShowText := _Msg('掃瞄參數設定中,請稍候');
+ DataLoading(True,True);
+
+ PatchDlg := TPatchDlg.Create(self);
+ try
+ InitialLanguage(PatchDlg); //載入多國語言
+ PatchDlg.BlankuseCB.Checked := DeviceDelete;
+ if PatchDlg.BlankuseCB.Checked then
+ PatchDlg.SpinEdit5.Enabled := True
+ else
+ PatchDlg.SpinEdit5.Enabled := False;
+ PatchDlg.SpinEdit5.Value := DeviceDeleteSize;
+ For i := 0 to PatchDlg.ComboBox1.Items.Count -1 do
+ begin
+ If inttostr(ScanDpi) = PatchDlg.ComboBox1.Items.Strings[i] Then
+ PatchDlg.ComboBox1.ItemIndex := i;
+ end;
+ PatchDlg.DuplexCB.Checked := ScanDuplex;
+ PatchDlg.ReverseCB.Checked := ScannerReverse;
+ PatchDlg.BorderCB.Checked := BoardClear;
+ PatchDlg.DeskewCB.Checked := ScanDeskew;
+ PatchDlg.ImgSetUseCB.Checked := ScanImgSetUse;
+ PatchDlg.SpinEdit1.Value := ScanBright;
+ PatchDlg.SpinEdit2.Value := ScanContrast;
+ case ScanRotate of
+ 0 : PatchDlg.ScanRotateRG.ItemIndex := 0;
+ 270 : PatchDlg.ScanRotateRG.ItemIndex := 1;
+ 180 : PatchDlg.ScanRotateRG.ItemIndex := 2;
+ 90 : PatchDlg.ScanRotateRG.ItemIndex := 3;
+ end;
+ Case ScanImgShowMode of
+ 0 : PatchDlg.ScanShowRG.ItemIndex := 0;
+ 1 : PatchDlg.ScanShowRG.ItemIndex := 1;
+ 2 : PatchDlg.ScanShowRG.ItemIndex := 2;
+ end;
+ If PatchDlg.ShowModal = mrOk then
+ begin
+ DeviceDelete := PatchDlg.BlankuseCB.Checked;
+ DeviceDeleteSize := PatchDlg.SpinEdit5.Value;
+ ScanDpi := Strtoint(PatchDlg.ComboBox1.Text);
+ ScannerReverse := PatchDlg.ReverseCB.Checked;
+ BoardClear := PatchDlg.BorderCB.Checked;
+ ScanDeskew := PatchDlg.DeskewCB.Checked;
+ ScanDuplex := PatchDlg.DuplexCB.Checked;
+ ScanImgSetUse := PatchDlg.ImgSetUseCB.Checked;
+ ScanBright := PatchDlg.SpinEdit1.Value;
+ ScanContrast := PatchDlg.SpinEdit2.Value;
+ Case PatchDlg.ScanRotateRG.ItemIndex of
+ 0:ScanRotate := 0;
+ 1:ScanRotate := 270;
+ 2:ScanRotate := 180;
+ 3:ScanRotate := 90;
+ end;
+ Case PatchDlg.ScanShowRG.ItemIndex of
+ 0:ScanImgShowMode := 0;
+ 1:ScanImgShowMode := 1;
+ 2:ScanImgShowMode := 2;
+ end;
+ R_W_ScanIni('W');
+ ScanDuplexCB.Checked := ScanDuplex;
+ end;
+ finally
+ PatchDlg.Free;
+ DataLoading(False,False);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：PrePageBtnClick
+ 引用相依：
+ 方法描述：處理「上一頁」按鈕點擊。跳轉至前一頁並判斷影像位置，若向上超出捲軸區域則
+ 自動滾動垂直捲軸，將影像帶入可見區域。
+============================================================================== }
+procedure TCB_IMGPSScanX.PrePageBtnClick(Sender: TObject);
+var
+ page : Integer;
+begin
+ {page := ScrollBar1.Position;
+ Case Vmode of
+ 0 : dec(page);
+ 1 : Page := Page - 2;
+ 2 : Page := Page - 4;
+ 3 : Page := Page - 6;
+ 4 : Page := Page - 8;
+ end;
+ IF page >= ScrollBar1.min Then
+ begin
+ ScrollBar1.Position := page;
+ end
+ Else
+ ScrollBar1.Position := 1; }
+ if selectISB = nil then Exit;
+ PriorPage(SelectPage);
+ if (SelectISB.Parent.Top-4) < 0 then
+ scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
+
+ //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
+
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SampleScanBtnClick
+ 引用相依：FileExists, LoadFromFile, SaveToFile, StatrTwainScan, upFile
+ 方法描述：處理「範本掃瞄」按鈕點擊。切換為範本模式並引導使用者輸入 FormID，掃瞄後
+ 產生 TIF 與 JPG 影像。隨後透過 HTTPS 將範本上傳至伺服器，上傳過程中會
+ 嚴格檢查網路狀態、Session 有效性與伺服器回傳結果。
+============================================================================== }
+procedure TCB_IMGPSScanX.SampleScanBtnClick(Sender: TObject);
+var
+ SampleFormID : String;
+ SendData : String;
+ buttonSelected : Integer;
+begin
+ ScanMode := smSample;
+ ClearView(1);
+ Vmode := 0; //切成單頁
+ GoViewMode;
+ ScanInfo.ImageCount := 0;
+ ScanPath := SamplePath;
+ ScanCaseno := '';
+ ContextList.Clear;
+ ShowText := _Msg('範本掃描中,請稍候');
+ DataLoading(True,True);
+ SampleFormID := UpperCase(InputBox(_Msg('範本檔掃瞄輸入畫面'),_Msg('請輸入文件編號'),''));
+
+ if SampleFormIDList.IndexOf(SampleFormID)<>-1 then
+ begin
+ // Show a custom dialog
+ buttonSelected := messagedlg(SampleFormID+_Msg('已有範本,是否取代?'),mtCustom,
+ [mbYes,mbCancel], 0);
+ if buttonSelected = mrCancel then
+ begin
+ DataLoading(false,false);
+ Exit;
+ end;
+ end;
+
+ if SampleFormID <> '' then
+ begin
+ if FormIDExists(SampleFormID,False,0) then
+ begin
+ ScanSaveFilename := SampleFormID + '.tif';
+ end
+ Else
+ begin
+ Showmessage(Format(_Msg('FormID:%s尚未註冊'),[SampleFormID]));
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ DataLoading(false,false);
+ Exit;
+ end;
+ SampleAnchorMode := FormID2Anchor(SampleFormID);
+
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+//ShowMessage('AAAAA');
+ Try
+ StatrTwainScan;
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+
+ if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then
+ begin
+ ShowText := _Msg('範本傳送中,請稍候');
+ DataLoading(True,True);
+ //多存一份jpg
+ ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);
+ BWTif2Jpg(ImageScrollBox1.Graphic);
+ ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');
+ //多存一份jpg
+
+ NowWork_No := FormCode2WorkNo(SampleFormID);
+ SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.tif';
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.tif',FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+
+ if FileExists(SamplePath+SampleFormID+'.jpg') then //傳送JPG影像
+ begin
+ SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.jpg';
+ if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.jpg',FReWrite,Memo1,False) then
+ begin
+ Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
+ DataLoading(False,False);
+ Exit;
+ end;
+ if memo1.Lines.Strings[0] = '1' then
+ begin
+ Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
+ DataLoading(False,False);
+ Exit;
+ end
+ Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
+ begin
+ Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+ Showmessage(_Msg('傳送完成'));
+ end;
+ end;
+ DataLoading(False,False);
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SelectScanBtnClick
+ 引用相依：SelectScanner, scanner.SelectScanner, Scanner
+ 方法描述：開啟系統掃瞄器選擇視窗。
+============================================================================== }
+procedure TCB_IMGPSScanX.SelectScanBtnClick(Sender: TObject);
+begin
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ scanner.SelectScanner;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：AddScanBtnClick
+ 引用相依：StatrTwainScan
+ 方法描述：處理「追加掃瞄」按鈕點擊。檢查狀態後設定掃瞄模式為 smInsert（插入模式），
+ 初始化掃瞄參數並啟動 StatrTwainScan。完成後重新繪製樹狀結構、更新筆數
+ 統計並清空檢核記錄，最後自動選取新文件節點。
+============================================================================== }
+procedure TCB_IMGPSScanX.AddScanBtnClick(Sender: TObject);
+var
+ P,v : Integer;
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_Msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+ if MyTreeNode1 = nil then
+ begin
+ Showmessage(_Msg('請先選擇案件'));
+ Exit;
+ end;
+ Panel1.Enabled := False;
+ Panel2.Enabled := False;
+ ScanMode := smInsert;
+ ScanInfo.ImageCount := ContextList.Count;
+ ScanPath := DisplayPath;
+ ScanCaseno := NowCaseno;
+ ScanDocDir := NowDocDir;
+ Try
+ StatrTwainScan;
+ Except
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ end;
+ Panel1.Enabled := True;
+ Panel2.Enabled := True;
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
+ //P := ContextList.Count;
+ GetCase_PageCount(CaseCount,PageCount);
+ v := Pos('-',NewTreeNode.Text);
+ NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
+ MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseno)]);
+
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ SetDocDirtoSelected(MyTreeNode1,FirstDocDir);
+ TreeView1Click(self);
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CaseHelpBtnClick
+ 引用相依：
+ 方法描述：處理檢核失敗（補件/更正）按鈕點擊。開啟 TErrlistForm 顯示 OMR 檢核錯誤
+ 清單供使用者操作。若使用者完成更正並按確定，則會根據目前模式（ISCAN/NSC
+ AN 等）將更新後的影像資料上傳至伺服器，並在完成後重新載入影像、提示使用
+ 者。
+============================================================================== }
+procedure TCB_IMGPSScanX.CaseHelpBtnClick(Sender: TObject);
+var
+ ErrlistForm : TErrlistForm;
+ S : TStringlist;
+ UpFormID : String;
+ Anchor : String;
+begin
+ ShowText := _Msg('處理檢核失敗中,請稍候');
+ DataLoading(True,True);
+LogFile1.LogToFile(logTimeString+'處理檢核失敗中開始');
+ ErrlistForm := TErrlistForm.Create(Self);
+ RejectCase := False;
+ S := TStringlist.Create;
+ try
+ InitialLanguage(ErrlistForm);
+ Application.ProcessMessages;
+ ErrlistForm.LogFile1.LogFile:=LogFile1.LogFile;
+ ErrlistForm.DeleteBt.Caption := ErrlistForm.DeleteBt.Caption+'(&D)';
+ ErrlistForm.iniPath := ImageSavePath + NowCaseNo+'\upload\';
+ OMRErrini2List(NowCaseno,ErrlistForm);
+ ErrlistForm.ErrListLV.ItemIndex := ErrIndex;
+ ErrlistForm.Timer1.Enabled := true;
+ if ErrlistForm.ShowModal = mrok then
+ begin
+ TransPath := ImageSavePath+NowCaseNo+'\upload\';
+ if FMode = 'ISCAN' then
+ TransPath := ImageSavePath + NowCaseNo+'\DownTemp\';
+ ShowText := NowCaseNo+_Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+
+ if FMode = 'ISCAN' then
+ begin
+ If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
+ begin
+ DataLoading(False,False);
+ Exit;
+ end;
+ end
+ Else
+ begin
+ If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
+ begin
+ DataLoading(False,False);
+ Exit;
+ end;
+ end;
+ CaseHelpBtn.Visible := False;
+ LoadImgFile;
+ if (FMode='NSCAN') or (FMode='DSCAN') then
+ begin
+ Showmessage(NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程。'));
+ end;
+
+ if FMode='ESCAN' then
+ begin
+ Showmessage(NowCaseNo+_Msg('影像已補件完成。'));
+ end;
+
+ DataLoading(False,False);
+ end
+ Else
+ begin
+ MyTreeNode2ReFresh(NowCaseNo);
+ end;
+ finally
+ ErrlistForm.Free;
+ DataLoading(False,False);
+ S.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：CheckCaseBtnClick
+ 引用相依：SaveToFile
+ 方法描述：執行所有案件的批次檢核。遍歷 NewTreeNode 下的所有案件，對尚未檢核通過（
+ ImageIndex 不為 7 或 5）的案件呼叫 OMRCheckCase 進行檢核。若檢核成功則
+ 建立 OMRCheckOk.dat 標記檔。最後刷新影像與樹狀顯示。
+============================================================================== }
+procedure TCB_IMGPSScanX.CheckCaseBtnClick(Sender: TObject);
+Var
+ CaseID : String;
+ i,n,v : Integer;
+ S : TStringlist;
+begin
+ //if TreeView1.Selected = nil then Exit;
+ //if TreeView1.Selected = NewTreeNode then Exit;
+ Displaypath := ''; //20130327 修正報價單號會錯置的問題
+ S := TStringlist.Create;
+ try
+ ClearView(1);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ For i := 0 to NewTreeNode.Count -1 do
+ begin
+ v := posend('-',NewTreenode.Item[i].Text);
+ CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
+ begin
+ If OMRCheckCase(CaseID) then //有成功
+ begin
+ S.Add('Y');
+ S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+ end;
+ end;
+ //MyTreeNode2ReFresh(CaseID); //原本是OMR單一案件,後改成OMR全部案件 所以這個要mark
+ end;
+ LoadImgFile;
+ TreeView1Click(nil);
+ DataLoading(False,False);
+ finally
+ S.Free;
+ end;
+ Showmessage(_Msg('檢核完成'));
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton14Click
+ 引用相依：Rotate, TJpegGraphic, SaveQuality, LoadFromFile, SaveToFile
+ 方法描述：處理工具列按鈕點擊，執行影像逆時針旋轉 90 度（即旋轉 270 度）。程序會重
+ 新載入影像、執行旋轉、根據影像格式（JPG 則設定品質為 30）儲存回原檔案，最
+ 後更新主顯示區與縮圖區，並重新調整縮圖佈局。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton14Click(Sender: TObject);
+var
+ Count : Integer;
+begin
+ if not ISB1.Graphic.IsEmpty then
+ begin
+ ISB1.LoadFromFile(ISB1.FileName,1);
+ Rotate(ISB1.Graphic,270);
+ if ISB1.Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+ TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+ end
+ Else
+ ISB1.SaveToFile(ISB1.FileName);
+ ISB1.Redraw(True);
+ SelectISB.Graphic.Assign(ISB1.Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton15Click
+ 引用相依：Rotate, TJpegGraphic, SaveQuality, LoadFromFile, SaveToFile
+ 方法描述：處理工具列按鈕點擊，執行影像旋轉 180 度。程序重新載入檔案後執行旋轉操
+ 作，並依據格式存檔。完成後同步更新主畫面與預覽圖，確保顯示一致性。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton15Click(Sender: TObject);
+begin
+ if not ISB1.Graphic.IsEmpty then
+ begin
+ ISB1.LoadFromFile(ISB1.FileName,1);
+ Rotate(ISB1.Graphic,180);
+ if ISB1.Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+ TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+ end
+ Else
+ ISB1.SaveToFile(ISB1.FileName);
+ ISB1.Redraw(True);
+ SelectISB.Graphic.Assign(ISB1.Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton16Click
+ 引用相依：Rotate, TJpegGraphic, SaveQuality, LoadFromFile, SaveToFile
+ 方法描述：處理工具列按鈕點擊，執行影像順時針旋轉 90 度。載入影像後執行旋轉並儲存
+ ，針對非黑白影像會設定 JPG 壓縮品質。最後重新繪製相關顯示元件並觸發點
+ 擊事件。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton16Click(Sender: TObject);
+begin
+ if not ISB1.Graphic.IsEmpty then
+ begin
+ ISB1.LoadFromFile(ISB1.FileName,1);
+ Rotate(ISB1.Graphic,90);
+ if ISB1.Graphic.ImageFormat <> ifBlackWhite then
+ begin
+ TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+ TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+ end
+ Else
+ ISB1.SaveToFile(ISB1.FileName);
+ ISB1.Redraw(True);
+ SelectISB.Graphic.Assign(ISB1.Graphic);
+ SelectISB.Redraw(True);
+ FitPreViewISB;
+ ISBClick(SelectISB);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton17Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為「符合高度」（zmFitHeight）。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton17Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFitHeight;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton18Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為「符合寬度」（zmFitWidth）。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton18Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFitWidth;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton19Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為「原始大小」（zmOriginalSize）。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton19Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmOriginalSize;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton20Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為「符合頁面」（zmFittoPage）。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton20Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFittoPage;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton21Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為自定義百分比，並將比例設為 50%。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton21Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmPercent;
+ ISB1.ZoomPercent := 50;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton22Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為自定義百分比，並將比例設為 25%。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton22Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmPercent;
+ ISB1.ZoomPercent := 25;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：SpeedButton3Click
+ 引用相依：
+ 方法描述：將主影像顯示區的縮放模式設定為「全頁顯示」（zmFullPage）。
+============================================================================== }
+procedure TCB_IMGPSScanX.SpeedButton3Click(Sender: TObject);
+begin
+ ISB1.ZoomMode := zmFullPage;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TransBtnClick
+ 引用相依：LoadFromFile
+ 方法描述：處理工具列「上傳」按鈕的點擊事件。執行完整的前置檢查（包含案件配號、歸類、
+ 收件時間限制等），接著遍歷所有案件執行 OMR 檢核與 ReSize，最後呼叫 Tran
+ sCaseID 將案件封裝傳送至伺服器。上傳結束後會顯示成功/失敗的統計報告。
+============================================================================== }
+procedure TCB_IMGPSScanX.TransBtnClick(Sender: TObject);
+Var
+ CaseID : String;
+ i,n,v: Integer;
+ ZipFileList : TStringlist;
+ CaseTrans : Integer; //-1:失敗 0:可 1:不行
+ SuccessCount,ReCasecount,CheckErrCount : Integer;
+ TransMsg : String;
+ AreaStr : String;
+ S : TStringlist;
+ CheckStr : String;
+ uploadMsg:String;//20171122 新增 配合不同mode下要秀不能上傳訊息
+begin
+ IF not InitialOk Then
+ begin
+ Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
+ Exit;
+ end;
+LogFile1.LogToFile(logTimeString+'按下上傳');
+ ClearView(1);
+ CaseHelpBtn.Visible := False;
+ DisplayPath := '';
+ ClearCaseIndex;
+ RejectCase := False;
+ uploadMsg:='';
+ if not CheckCaseID_OK then //檢查是否有未配號的案件
+ begin
+ Showmessage(_Msg('尚有「無案件編號」之案件，無法上傳'));
+ Exit;
+ end;
+
+ if not CheckCaseAttach_OK then //20170911檢查是否有未歸類的案件
+ begin
+ Showmessage(_Msg('尚有未歸類文件,無法上傳'));
+ Exit;
+ end;
+
+
+ if NewTreeNode.Count = 0 then
+ begin
+ Showmessage(_Msg('無影像需傳送'));
+ Exit;
+ end;
+
+ SuccessCount := 0;
+ ReCasecount := 0;
+ CheckErrCount := 0;
+ if (FMode = 'NSCAN') and (not CheckScanDenialTime) then
+ begin
+ if Messagedlg(Format(_Msg('己超過收件時間(%s),預定作業日為下個營業日,是否繼續上傳??'),[ScanDenialTime]),mtConfirmation,[mbyes,mbcancel],0)=mrcancel then Exit;
+ end;
+
+ ShowText := _Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+
+ For i := 0 to NewTreeNode.Count -1 do
+ begin
+ v := posend('-',NewTreenode.Item[i].Text);
+ CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
+ ShowText := CaseID+_Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+ CreateIn_WH(CaseID); //產生入庫文件文字檔 In_Wh.dat
+ Case2upload(CaseID); //產生原影像結構
+ TransPath := ImageSavePath+CaseID+'\Upload\';
+ {if FMode = 'ESCAN' then //20140320 yuu說拿掉此檢查
+ begin
+ S := TStringlist.Create;
+ try
+ S.LoadFromFile(TransPath + 'Context.dat');
+ if S.Count = 0 then
+ begin
+ Showmessage(_Msg('無影像檔無法傳送'));
+ DataLoading(False,False);
+ LoadImgFile;
+ Exit;
+ end;
+ finally
+ s.Free;
+ end;
+ end;}
+ if (FMode = 'NSCAN') or (FMode = 'DSCAN') then //20170406 待掃瞄也要問一下
+ begin
+ /////訊問是否可上傳/////
+ CaseTrans := CaseAsk(CaseID);
+ //Showmessage('記得改回來');
+ //CaseTrans := 0;
+
+ /////訊問是否可上傳////
+ end
+ Else ///不是新件、重掃件、異動件的不查
+ begin
+ CaseTrans := 0;
+ end;
+ if CaseTrans = -1 then //失敗
+ begin
+ Showmessage(_Msg('')+HttpErrStr+'.');
+ DataLoading(False,False);
+ LoadImgFile;
+ Exit;
+ end;
+ if CaseTrans = 1 then
+ begin
+ ////重複處理/////
+ Inc(ReCasecount);
+ ////重複處理/////
+ Continue;
+ end
+ Else if CaseTrans = 0 then //可以傳送
+ begin
+ ///////檢核////// 20100927 User改為搬至外面做 ///20101019 User又改回上傳要做
+ //if FMode = 'NSCAN' then //20101019改成讀設定那些模式要做那些檢核
+ //begin
+ ///依十字定位點縮放////
+ CaseReSize(CaseID); //所以影像再做一次縮放
+ ////依十字定位點縮放/////// }
+ if (FMode <> 'FSCAN') then
+ begin
+ if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
+ begin
+ ShowText := CaseID+_Msg('檢核中,請稍候');
+ DataLoading(True,True);
+ If not OMRCheckCase(CaseID) then //進檢核
+ begin
+ Inc(CheckErrCount);
+ Continue;
+ end;
+ end;
+ if (NewTreenode.Item[i].ImageIndex = 5) then
+ begin
+ Inc(CheckErrCount);
+ Continue;
+ end;
+ end;
+ //end;
+ ///////檢核//////
+ ShowText := CaseID+_Msg('資料上傳中,請稍候');
+ DataLoading(True,True);
+//ShowMessage('退出');DataLoading(False,False);Exit;
+ If Not TransCaseID(TransPath,CaseID,True) Then //傳送案件
+ begin
+ DataLoading(False,False);
+ LoadImgFile;
+ Exit;
+ end;
+ Inc(SuccessCount);
+ end;
+ end;
+ DataLoading(False,False);
+ TransMsg := Format(_Msg('成功件【%d】件'),[SuccessCount]);
+ if ReCasecount > 0 then
+ TransMsg := TransMsg + #13#10 + Format(_Msg('無法上傳件【%d】件'),[ReCasecount]);
+ if CheckErrCount > 0 then
+ begin
+ TransMsg := TransMsg + #13#10 + Format(_Msg('檢核失敗件【%d】件，請先點選「案件編號」，再點選「問號」查看錯誤原因'),[CheckErrCount]);
+LogFile1.LogToFile(logTimeString+'檢核失敗原因:'+OMRErrini2ListForLog(''));
+ end;
+
+ if (FMode = 'DSCAN') and (SuccessCount = 1) then
+ begin
+ uploadMsg:=NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程');
+ end;
+ if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) and (SuccessCount = 1) then
+ begin
+ uploadMsg:=NowCaseNo+_Msg('影像已補件完成');
+ end;
+//ShowMessage('uploadMsg='+uploadMsg);
+ if uploadMsg<>'' then
+ begin
+ ShowMessage(uploadMsg);
+ end
+ else
+ begin
+ Showmessage(_Msg('傳送完成')+#13#10+TransMsg);
+ end;
+
+ LoadImgFile;
+ if (FMode = 'ESCAN') and (SuccessCount = 1) then
+ begin
+ if FEvents <> nil Then
+ begin
+ FEvents.OnClosePage;
+ end;
+ end;
+ if (FMode = 'DSCAN') and (SuccessCount = 1) then
+ begin
+ if FEvents <> nil Then
+ begin
+ FEvents.OnClosePage;
+ end;
+ end;
+end;
+
+
diff --git a/reassemble/view/treeView.pas b/reassemble/view/treeView.pas
new file mode 100644
index 0000000..c9d6f17
--- /dev/null
+++ b/reassemble/view/treeView.pas
@@ -0,0 +1,822 @@
+{ ==============================================================================
+ 方法名稱：DrawDocItem2
+ 引用相依：FileExists, LoadFromFile, DirectoryExists
+ 方法描述：在樹狀結構中繪製指定案件的文件與表單節點。讀取 CaseDocNo.dat 取得文件
+ 清單，逐一建立文件節點並根據引用狀態設定圖示。接著在文件節點下建立表單
+ 節點，區分制式表單與自定義表單。包含入庫過濾與附件處理，是樹狀 UI 呈現
+ 的核心。
+============================================================================== }
+Function TCB_IMGPSScanX.DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree
+Var
+ i,n,m : Integer;
+ DocNode,FormNode : TTreeNode;
+ DocNoPage,FormPage : Integer;
+ DocNoCopies : Integer;
+ DocNo,iDocNo : String;
+ DocVer : String;
+ FileList : TStringlist;
+ FormID,iFormID : String;
+ FormName : String;
+ CaseDocNoList,CaseDocNo_CopiesList,StrList : TStringlist;
+ iiDocNo,iiFormID,iiDocVer : String;
+ ST1:TStringList;
+begin
+ Result := False;
+ FileList := TStringlist.Create;
+ CaseDocNoList := TStringlist.Create;
+ CaseDocNo_CopiesList := TStringlist.Create;
+ StrList := TStringlist.Create;
+ ST1:=TStringList.Create;
+LogFile1.LogToFile(logTimeString+'產文件樹開始');
+ try
+ CaseNode.ImageIndex := 1;
+ CaseNode.SelectedIndex := 1;
+ While CaseNode.Count > 0 do //全刪
+ begin
+ CaseNode.Item[0].Delete;
+ end;
+ CaseDocNoList.Clear;
+ if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then
+ CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');
+ if FileExists(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat') then
+ CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat');
+ for i := 0 to CaseDocNoList.Count - 1 do
+ begin
+ FileList.Clear;
+ //Showmessage(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
+ if FileExists(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
+ iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
+ ST1.Clear;
+
+LogFile1.LogToFile(logTimeString+'FileList.Text='+FileList.CommaText);
+ if (FWH_category='N') and (FIs_In_Wh='Y') then
+ begin
+ for n := 0 to FileList.Count - 1 do
+ begin
+ if ISExistImg(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\'+FileList.Strings[n]) then
+ begin
+ ST1.Add(FileList.Strings[n]);
+ end;
+ end;
+ for n := 0 to ST1.Count - 1 do
+ begin
+ if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
+ begin
+ FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
+ end;
+ end;
+ end
+ Else
+ if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該加這段
+
+
+
+LogFile1.LogToFile(logTimeString+'WH_category='+FWH_category+',Is_In_Wh='+FIs_In_Wh+',FileList.Text='+FileList.CommaText);
+ if FileList.Count=0 then Continue;
+
+ DocNoCopies := Strtoint(CaseDocNo_CopiesList.Strings[i]);
+ DocNoPage := FileList.Count;
+ iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
+//Showmessage(iDocNo);
+//Showmessage(DocNo2DocName(Caseno,iDocNo));
+//ShowMessage('FileList='+FileList.Text);
+ {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
+ ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
+ ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
+ begin
+ Continue;
+ end;}
+
+ //if not DocNoAppear(iDocNo) then Continue;
+
+
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('頁'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoPage]));
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoCopies]));
+//ShowMessage('iDocNo='+iDocNo);
+ DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),CaseDocNoList.Strings[i],DocNoCopies]));
+
+ if GetUseCase('F',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
+ begin
+ DocNode.ImageIndex := 8;
+ DocNode.SelectedIndex := 8;
+ end
+ Else if GetUseCase('T',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
+ begin
+ DocNode.ImageIndex := 9;
+ DocNode.SelectedIndex := 9;
+ end
+ Else
+ begin
+ DocNode.ImageIndex := 2;
+ DocNode.SelectedIndex := 2;
+ end;
+ if ((Pos('ZZZZZ',DocNode.Text) = 0) and (Pos('YYYYY',DocNode.Text) = 0)) and (FileList.Count =0) then //制式文件
+ begin
+ for n := 1 to LASTEST_FORM_INF_List.Count - 1 do
+ begin
+ StrList := SplitString('!@!',LASTEST_FORM_INF_List.Strings[n]);
+ iiFormID := StrList.Strings[0];
+ iiDocNo := StrList.Strings[1];
+ if iiDocNo = iDocNo then
+ begin
+ FormID := iiFormID;
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ DocNode.AlphaSort(True);
+ end;
+ end;
+ end
+ else if (Pos('ZZZZZ',DocNode.Text) > 0) or (Pos('YYYYY',DocNode.Text) > 0) then //自訂文件
+ begin
+ FormID := GetCustomFormID(ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]);
+ //showmessage(FileList.Text);
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ DocNode.AlphaSort(True);
+ end;
+ SortDocDir_FormID(Caseno,CaseDocNoList.Strings[i]); //檔名依FormID排序
+
+ for n := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[n]);
+ DocVer := FormCode2Version(FormID);
+ DocNo := FormCode2DocNo(FormID);
+ if CheckFormIDExists(DocNode,FormID) then Continue;
+ //Showmessage(FormID+#13+DocNo+#13+DocVer);
+ for m := 0 to FormID_List.Count - 1 do
+ begin
+ iiFormID := FormID_List.Strings[m];
+ iiDocNo := DocNo_List.Strings[m];
+ iiDocVer := FormCode2Version(iiFormID);
+ if (iiDocNo = DocNo) and (iiDocVer = DocVer) then
+ begin
+ //Showmessage(iiFormID+#13+iiDocNo+#13+iiDocVer);
+ FormID := iiFormID;
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ DocNode.AlphaSort(True);
+ end;
+ end;
+
+
+ //if not CheckFormIDExists(DocNode,FormID) then
+ //begin
+ // Application.ProcessMessages;
+ // FormPage := GetFormIDPage(FileList,FormID);
+ /// FormName := FormCode2FormName(Caseno,FormID);
+ /// FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ // FormNode.ImageIndex := 4;
+ // FormNode.SelectedIndex := 4;
+ //end;
+ end;
+ end;
+
+ if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then
+ begin
+
+ FileList.Clear;
+ if FileExists(ImageSavePath+Caseno+'\'+AttName+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+Caseno+'\'+AttName+'\Context.dat')
+ Else
+ begin
+ Rmdir(ImageSavePath+Caseno+'\'+AttName);
+ Exit;
+ end;
+ DocNoPage := FileList.Count;
+ iDocNo := DocNoDir2DocNo(AttName);
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
+ DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),AttName,1]));
+ DocNode.ImageIndex := 2;
+ DocNode.SelectedIndex := 2;
+ for n := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[n]);
+ if not CheckFormIDExists(DocNode,FormID) then
+ begin
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ end;
+ end;
+ end;
+
+ if FModeName='件' then //20170904 先裝死 因為異動 同時存在兩種附件太難寫
+ begin
+ if DirectoryExists(ImageSavePath+Caseno+'\Attach') then
+ begin
+ FileList.Clear;
+ if FileExists(ImageSavePath+Caseno+'\Attach'+'\Context.dat') then
+ FileList.LoadFromFile(ImageSavePath+Caseno+'\Attach'+'\Context.dat')
+ Else
+ begin
+ Rmdir(ImageSavePath+Caseno+'\Attach');
+ Exit;
+ end;
+ DocNoPage := FileList.Count;
+ iDocNo := DocNoDir2DocNo(AttName);
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
+ //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
+ DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
+
+ DocNode.ImageIndex := 2;
+ DocNode.SelectedIndex := 2;
+ for n := 0 to FileList.Count - 1 do
+ begin
+ FormID := FileName2FormCode(FileList.Strings[n]);
+ if not CheckFormIDExists(DocNode,FormID) then
+ begin
+ FormPage := GetFormIDPage(FileList,FormID);
+ FormName := FormCode2FormName(Caseno,FormID);
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
+ //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
+ FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
+
+ FormNode.ImageIndex := 4;
+ FormNode.SelectedIndex := 4;
+ end;
+ end;
+ end;
+ end;
+LogFile1.LogToFile(logTimeString+'產文件樹結束');
+ Finally
+ FileList.Free;
+ CaseDocNoList.Free;
+ CaseDocNo_CopiesList.Free;
+ StrList.Free;
+ ST1.Free;
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1Click
+ 引用相依：FileExists, LoadFromFile
+ 方法描述：處理樹狀結構（TreeView）的點擊事件，是切換顯示內容的核心入口。根據點擊的
+ 層級（案件、文件、表單），重置全域變數並設定對應的 DisplayPath、NowDocNo
+ 與 NowFormCode。接著載入並顯示該層級對應的影像與附件清單，同時動態調整
+ 按鈕與選單的可用性。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1Click(Sender: TObject);
+Var
+ v,v1,v2,v3,ln : Integer;
+ i,page : Integer;
+ F : TSearchrec;
+begin
+ ScanMode := smNew;
+ IF TreeView1.Selected = nil Then Exit;
+ Scrollbar1.Position := 1;
+ Scrollbar1.Max := 1;
+ DisplayPath := '';
+ NowCaseno := '';
+ NowDocDir := '';
+ NowDocNo := '';
+ NowFormCode := '';
+ NowFormName := '';
+ NowPage := 0;
+ NowShowFileList.Clear;
+ StatusBar1.Panels[2].Text := '';
+ ClearCaseIndex;
+ PageLv.Items.Clear; //頁數清單
+ //Panel18.Enabled:= False;
+ AttListBox.Items.Clear;
+ AddAttFileLB.Enabled := False;
+ DelAttFileLB.Enabled := False;
+ UseOldCaseLb.Visible := False;
+ PM107.Visible := False; //備註功能
+ CaseHelpBtn.Visible := False; //檢核失敗原因鈕
+ Panel5.Visible := True;
+ ContextList.Clear;
+ SortMode := false;
+ ISB1.ZoomMode := zmFullPage;
+ IF TreeView1.Selected.Parent <> nil Then
+ begin
+ if TreeView1.Selected.Parent = NewTreenode then //點在案件上
+ begin
+ //Panel18.Enabled := True;
+ PM107.Visible := True; //備註功能
+ MyTreeNode1 := TreeView1.Selected;
+ MyTreeNode2 := nil;
+ MyTreeNode3 := nil;
+ v := Posend('-',MyTreenode1.Text);
+ v1 := Length(MyTreenode1.Text);
+ NowCaseNo := Copy(TreeView1.Selected.Text,1,v-1);
+ if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
+ UseOldCaseLb.Visible := True;
+ ClearView(1);
+ DisplayPath := ImageSavePath+NowCaseNo+'\';
+ if FLoanDoc_Enable = 'Y' then
+ begin
+ AddCredit1RG.Enabled := True;
+ end;
+ ReadCaseIndex(DisplayPath);
+ If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ IF FileExists(DisplayPath+'CaseDocNo.dat') Then
+ begin
+ CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');
+
+
+ view_image_DocNo(DisplayPath,'ShowAll','',1);
+ end;
+ if FileExists(DisplayPath+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
+
+
+ Page := ContextList.Count;
+ For i := 1 to page do
+ begin
+ With PageLV.Items.Add do
+ begin
+ Caption := Add_Zoo(i,3);
+ end;
+ end;
+ If Page > 0 then
+ ScrollBar1.Max := page;
+ MyTreeNode1.Expand(True);
+ end
+ Else If TreeView1.Selected.Parent.Parent = NewTreenode Then //點在文件上
+ begin
+
+ MyTreeNode1 := TreeView1.Selected.Parent;
+ MyTreeNode2 := TreeView1.Selected;
+ MyTreeNode3 := nil;
+ v := Pos('-',MyTreenode1.Text);
+ NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
+
+ v := Posend('{',MyTreenode2.Text);
+ v1 := Posend('}',MyTreenode2.Text);
+ v2 := posend('-',MyTreenode2.Text);
+ ln := length(MyTreenode2.Text);
+ NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
+ NowDocNo := DocNoDir2DocNo(NowDocDir);
+ page :=Strtoint(Copy(MyTreeNode2.Text,v2+1,ln-v2-1));
+ if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
+ UseOldCaseLb.Visible := True;
+ ClearView(1);
+ DisplayPath := ImageSavePath+NowCaseNo+'\';
+
+ if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
+ if FLoanDoc_Enable = 'Y' then
+ begin
+ AddCredit1RG.Enabled := True;
+ end;
+ ReadCaseIndex(DisplayPath);
+ If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ If Page > 0 then
+ ScrollBar1.Max := page;
+ For i := 1 to page do
+ begin
+ With PageLV.Items.Add do
+ begin
+ Caption := Add_Zoo(i,3);
+ end;
+ end;
+
+ If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ IF FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
+ begin
+ ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
+ //Context_DocnoList.LoadFromFile(DisplayPath+'Context_Docno.dat');
+ view_image_DocNo(DisplayPath,NowDocDir,'',Page);
+ end;
+ if FileExists(DisplayPath+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
+ MyTreeNode1.Expand(True);
+ end
+ Else If (NewTreenode <> nil) and (TreeView1.Selected.Parent.Parent.Parent = NewTreenode) Then //點在表單上
+ begin
+ //NoteBtn.Visible := True; //備註功能
+ //Panel18.Enabled := True;
+ ClearView(1);
+ PM107.Visible := True; //備註功能
+ MyTreeNode1 := TreeView1.Selected.Parent.Parent;
+ MyTreeNode2 := TreeView1.Selected.Parent;
+ MyTreeNode3 := TreeView1.Selected;
+
+ v := Posend('-',MyTreenode1.Text);
+ NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
+
+ if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
+ UseOldCaseLb.Visible := True;
+
+ v := Posend('{',MyTreenode2.Text);
+ v1 := Posend('}',MyTreenode2.Text);
+ v2 := posend('-',MyTreenode2.Text);
+ ln := length(MyTreenode2.Text);
+ NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
+ NowDocNo := DocNoDir2DocNo(NowDocDir);
+
+ v := Posend('{',MyTreenode3.Text);
+ v1 := Posend('}',MyTreeNode3.Text);
+ v2 := Posend('-',MyTreeNode3.Text);
+ ln := Length(MyTreeNode3.Text);
+ if v>0 then
+ begin
+ NowFormCode := Copy(MyTreeNode3.Text,v+1,v1-v-1);
+ if (NowFormCode = 'Attach') or (NowFormCode = 'S_Attach') then
+ NowFormCode := '';
+ NowFormName := Copy(MyTreeNode3.Text,v+1,v1-v-1);
+ page := strtoint(Copy(MyTreeNode3.Text,v2+1,ln-v2-1));
+ end
+ Else //點在附件的頁數
+ begin
+ NowFormCode := '';
+ page := 1;
+ end;
+
+ DisplayPath := ImageSavePath+NowCaseNo+'\';
+
+ if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
+ if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
+ StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
+
+ if FLoanDoc_Enable = 'Y' then
+ begin
+ AddCredit1RG.Enabled := True;
+ end;
+ ReadCaseIndex(DisplayPath);
+ If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
+ CaseHelpBtn.Visible := True;
+ If Page > 0 then
+ ScrollBar1.Max := page;
+ For i := 1 to page do
+ begin
+ With PageLV.Items.Add do
+ begin
+ Caption := Add_Zoo(i,3);
+ end;
+ end;
+ If FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
+ begin
+ ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
+ view_image_DocNo(DisplayPath,NowDocDir,NowFormCode,Page);
+ //view_image_FormCode(DisplayPath,NowFormCode,1,1);
+ end;
+ if FileExists(DisplayPath+'CustomDocNo.dat') then
+ Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
+ end;
+ MyTreeNode1.Expand(True);
+ AddAttFileLB.Enabled := True;
+ if FileExists(DisplayPath+'ATTContext.dat') then
+ begin
+ LoadAttFile(NowCaseno);
+ end;
+ end
+ Else //點在NewTreenode or MyTreenode1 上
+ begin
+ ClearView(1);
+ MyTreeNode1 := nil;
+ MyTreeNode2 := nil;
+ MyTreeNode3 := nil;
+ end;
+ TreeView1.Selected.MakeVisible;
+ CaseList.Clear;
+ if FileExists(ImageSavePath + 'CaseList.dat') then
+ CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+ //CountCaseno;
+ //CountCaseCount;
+ Application.ProcessMessages;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1DragDrop
+ 引用相依：RenameFile, CopyFile, DeleteImageFile, LoadFromFile, SaveToFile, _De
+ lTree, ReSortFileName
+ 方法描述：處理樹狀結構的拖放操作，實現影像的快速歸類或跨案件移動。當使用者將影像
+ 縮圖拖至樹狀節點時，程序會判斷目標層級，執行實際的檔案搬移（Copy/Delete
+ ）與更名，同步更新 Context.dat 索引檔案，並重新整理樹狀顯示與筆數統計。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
+var
+ NewCaseno,NewDocNo,NewDocDir,NewFormCode,NewFormName : String;
+ NewPath,NewFileName:String;
+ OldFileName : String;
+ iTreeNode1,iTreeNode2,iTreeNode3: TTreeNode;
+ i,v,v1,v2 : Integer;
+ PreIndex,Precount,NowCount:Integer;
+ GoAtt : Boolean;
+ AttLv : Integer;
+begin
+ NewCaseno := '';
+ NewFormCode := '';
+ NewFormName := '';
+ Precount := MyTreeNode1.Count;
+ PreIndex := -1;
+ GoAtt := False;
+ if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
+ begin
+ AttLv := TreeView1.Selected.Level;
+ GoAtt := True;
+ end;
+
+ if TTreeView(Sender).GetNodeAt(X,Y).Level =2 then
+ begin
+ iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y);
+ iTreeNode1 := iTreeNode2.Parent;
+ v := Pos('-',iTreenode1.Text);
+ v1 := Length(iTreenode1.Text);
+ NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
+ v := Posend('{',iTreeNode2.Text);
+ v1 := Posend('}',iTreeNode2.Text);
+ NewDocNo := Copy(iTreeNode2.Text,v+1,v1-v-1);
+ NewPath := ImagePath+NewCaseNo+'\';
+ OldFileName := ExtractFileName(DisplayISB.FileName);
+ if Copy(NewDocNo,1,5) = 'ZZZZZ' then //自訂文件
+ begin
+ NewFileName := Add_Zoo(FileName2ScanPage(OldFileName),3)+'_'+NewDocNo+'0000000'+ExtractFileExt(OldFileName);
+ NewFormCode := NewDocNo+'0000000';
+ {ReNameFile(DisplayISB.FileName,NewPath+NewFileName);
+ ReNameContext(DisplayPath,OldFileName,NewFileName);
+ MyTreeNode2ReFresh(NowCaseno);
+ TreeView1Click(nil);}
+ end;
+ //NewFileName := Add_Zoo(GetCasePage(ImagePath,NewCaseno)+1,3)+FileName2NoQuene_Filename(OldFileName);
+ end
+ Else if TTreeView(Sender).GetNodeAt(X,Y).Level =3 then
+ begin
+ OldFileName := ExtractFileName(DisplayISB.FileName);
+ iTreeNode1 := TTreeView(Sender).GetNodeAt(X,Y).Parent.Parent;
+ iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y).Parent;
+ iTreeNode3 := TTreeView(Sender).GetNodeAt(X,Y);
+ v := Pos('-',iTreenode1.Text);
+ v1 := Length(iTreenode1.Text);
+ NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
+ v := Pos('{',iTreeNode2.Text);
+ v1 := Pos('}',iTreeNode2.Text);
+ NewDocDir := Copy(iTreeNode2.Text,v+1,v1-v-1);
+
+ v := Pos('{',iTreeNode3.Text);
+ v1 := Pos('}',iTreeNode3.Text);
+ NewFormName := Copy(iTreeNode3.Text,1,v-1);
+ NewFormCode := Copy(iTreeNode3.Text,v+1,v1-v-1);
+ IF v = 0 Then
+ begin
+ NewFormCode := '';
+ v := Posend('-',iTreeNode3.Text);
+ NewFormName := Copy(iTreeNode3.Text,1,v1-1);
+ end;
+ NewPath := ImagePath+NewCaseNo+'\'+NewDocDir+'\';
+ if NewPath = DisplayPath Then //同案件
+ begin
+ if NewFormCode <> '' then
+ //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ Else
+ //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
+ end
+ else //不同案件
+ begin
+ if NewFormCode <> '' then
+ //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ Else
+ //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
+ end;
+ end;
+ //Showmessage('a');
+ for I := 0 to NowSelectFileList.Count - 1 do
+ begin
+ OldFileName := NowSelectFileList.Strings[i];
+ if NewFormCode <> '' then
+ //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
+ Else
+ //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
+ NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+ExtractFileExt(OldFileName);
+
+ if NewCaseNo = NowCaseNo then //同案件不改順序
+ begin
+ CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);
+ SetContextList('A',-1,NewCaseNo,NewDocDir,NewFileName);
+ DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);
+ TreeView1.Selected := MyTreeNode1;
+ //ReNameFile(DisplayPath + OldFileName,NewPath+NewFileName);
+ //ReNameContext(DisplayPath,OldFileName,NewFileName);
+ //MyTreeNode2ReFresh(NowCaseno);
+ //TreeView1Click(nil);
+ end
+ Else
+ begin
+ //Showmessage(DisplayMpsView.FileName+#13+NewPath+NewFileName);
+ ContextList.LoadFromFile(DisplayPath+'Context.dat');
+ if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
+ begin
+ if Messagedlg(Format(_Msg('移動後(%s)案件無影像,將刪除此案件,是否確定移動?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
+ end;
+ CopyFile(PWideChar(DisplayISB.FileName),PWideChar(NewPath+NewFileName),False);
+ ContextList.LoadFromFile(NewPath+'Context.dat');
+ ContextList.Add(NewFileName);
+ ContextList.SaveToFile(NewPath+'Context.dat');
+ //Showmessage('1');
+ iTreeNode2.Text := Format(_Msg('%s-%d頁'),[NewCaseNo,GetCasePage(ImagePath,NewCaseNo)]);
+ //Showmessage('2');
+ //DrawDocItem(iTreeNode1,FORM_INF_List,NewCaseNo);
+ //DrawDocItem1(MytreeNode1,Doc_Inf_List,NewCaseno); 20140820改
+ DrawDocItem2(MytreeNode1,NewCaseno);
+ //Showmessage('3');
+ ClearErrini(NewCaseNo,iTreeNode1);
+ ContextList.LoadFromFile(DisplayPath+'Context.dat');
+ if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
+ begin
+ _DelTree(DisplayPath);
+ SetCaseList('D',MyTreeNode1.IndexOf(MyTreeNode2),'');
+ LoadImgFile;
+ end
+ Else
+ begin
+ ContextList.Delete(ContextList.IndexOf(ExtractFileName(DisplayISB.FileName)));
+ ContextList.SaveToFile(DisplayPath+'Context.dat');
+ DeleteFile(DisplayISB.FileName);
+ ReSortFileName(DisplayPath);
+ ClearErrini(NowCaseNo,MyTreeNode1);
+ MyTreeNode2ReFresh(NowCaseno);
+ //MyTreeNode3ReFresh(NowCaseno);
+ ContextList.LoadFromFile(DisplayPath+'Context.dat');
+ NowCount := MyTreeNode1.Count;
+ if PreCount = NowCount then
+ begin
+ TreeView1.Selected := MyTreeNode1.Item[PreIndex];
+ TreeView1Click(nil);
+ end
+ Else
+ begin
+ TreeView1.Selected := MyTreeNode1;
+ TreeView1Click(nil);
+ end;
+ end;
+ end;
+ end;
+ for I := 0 to NowSelectFileList.Count - 1 do
+ begin
+ OldFileName := NowSelectFileList.Strings[i];
+ ReSortFileName(ExtractFilePath(OldFileName));
+ end;
+ DrawDocItem2(MytreeNode1,NowCaseno);
+ ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
+ if GoAtt then
+ begin
+ GotoAttach(AttLv);
+ end;
+ //TreeView1Click(nil);
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1DragOver
+ 引用相依：
+ 方法描述：判斷樹狀結構拖放操作的有效性。程序會檢核來源影像的表單代碼與目標節點
+ 的屬性，限制只能將影像拖入特定的表單層級（Level 3），且排除已存在的相同
+ 表單、附件目錄或未註冊的文件類型。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+var
+ NewNode : TTreeNode;
+ ImgFormCode : String;
+ ImgDocNo : String;
+ So : Boolean;
+begin
+ ImgFormCode := FileName2FormCode(ExtractFileName(DisplayISB.FileName));
+ ImgDocNo := Path2DocDir(ExtractFilePath(DisplayISB.FileName),NowCaseno);
+ //ImgDocNo := FileName2NowDcoNo(ExtractFileName(DisplayISB.FileName),ContextList,Context_DocnoList);
+ NewNode := TTreeView(Sender).GetNodeAt(X,Y);
+ //Label3.Caption := format('%d/%s/%s',[NewNode.Level,ImgDocNo,Node2DocNo(NewNode)]);
+ So := False;
+ if TObject(Source) is TImageScrollBox then
+ So := True;
+ Accept := True;
+ if not So
+ or(NewNode=nil)
+ or((NewNode.Level<>3))
+ or((NewNode.Level =3) and (((ImgFormCode=Node3FormID(NewNode)) and (ImgDocNo = Node3DocNo(NewNode))) or (Node3DocNo(NewNode)='')))
+ or(Pos(_Msg('Attach'),Newnode.Text)>0)
+ Then
+ Accept := False;
+
+ {if not So
+ or(NewNode=nil)
+ or((NewNode.Level <>2) and (NewNode.Level<>3))
+ or((NewNode.Level =2) and ((ImgDocNo = Node2DocNo(NewNode))or(Node2DocNo(NewNode)='')or (copy(Node2DocNo(NewNode),1,5)<>'ZZZZZ')))
+ or((NewNode.Level =3) and ((ImgFormCode=Node3FormID(NewNode)) or (ImgDocNo = Node3DocNo(NewNode)) or (Node3DocNo(NewNode)='')))
+ or(Pos(_Msg('未註冊文件'),Newnode.Text)>0)
+ Then
+ Accept := False;}
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1KeyUp
+ 引用相依：
+ 方法描述：處理樹狀結構的按鍵放開事件。若有選取子節點，則觸發 TreeView1Click 重新
+ 載入影像顯示，否則清空視窗。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1KeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+begin
+ IF TreeView1.Selected.Parent <> nil Then
+ begin
+ TreeView1Click(nil);
+ end
+ else
+ begin
+ ClearView(1);
+ end;
+
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1MouseDown
+ 引用相依：
+ 方法描述：處理樹狀結構滑鼠按下事件。若是右鍵按下，則自動選取該位置的節點以便後續
+ 彈出對應的開單選單。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1MouseDown(Sender: TObject;
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+ IF Button = TMouseButton(MbRight) Then
+ begin
+ MDown := True;
+ If TreeView1.GetNodeAt(X,Y) = nil then Exit;
+ TreeView1.Selected := TreeView1.GetNodeAt(X,Y);
+ end;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1MouseEnter
+ 引用相依：
+ 方法描述：當滑鼠進入樹狀結構區域時，自動將焦點（Focus）設定至 TreeView1。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1MouseEnter(Sender: TObject);
+begin
+TreeView1.SetFocus;
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1MouseMove
+ 引用相依：
+ 方法描述：處理樹狀結構滑鼠移動事件，目前實作已註解相關代碼。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+begin
+ //TreeView1.SetFocus;
+ {UnRegisterHotKey(Handle, HotKeyId1);
+ UnRegisterHotKey(Handle, HotKeyId2); }
+end;
+
+
+{ ==============================================================================
+ 方法名稱：TreeView1MouseUp
+ 引用相依：
+ 方法描述：處理樹狀結構滑鼠放開事件。若為右鍵點擊且有選取節點，則觸發 TreeView1Cl
+ ick 並彈出與節點層級對應的右鍵選單。
+============================================================================== }
+procedure TCB_IMGPSScanX.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+begin
+ IF Button = TMouseButton(MbRight) Then
+ begin
+ If TreeView1.GetNodeAt(X,Y) = nil then Exit;
+ if MDown then
+ begin
+ TreeView1Click(self);
+ TreeView1.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
+ end;
+ Application.ProcessMessages; //需加這行,不然有些全域變數會沒變到
+ MDown:= False;
+ end;
+end;
+
+
diff --git a/scripts/batch_dfm_to_web.js b/scripts/batch_dfm_to_web.js
new file mode 100644
index 0000000..1e1a5dd
--- /dev/null
+++ b/scripts/batch_dfm_to_web.js
@@ -0,0 +1,52 @@
+const fs = require('fs');
+const path = require('path');
+
+// 讀取設定檔與樣板
+const configPath = path.join(__dirname, '../doc/curtis/prompt/dfm_to_web/dfm_to_web_requirement.json');
+const templatePath = path.join(__dirname, '../doc/curtis/prompt/dfm_to_web/dfm_to_web_prompt_template.md');
+
+const config = JSON.parse(fs.readFileSync(configPath, 'utf8'));
+const template = fs.readFileSync(templatePath, 'utf8');
+
+// 產生每個檔案的專屬 prompt
+const outputDir = path.join(__dirname, '../doc/curtis/prompt/dfm_to_web');
+if (!fs.existsSync(outputDir)) {
+ fs.mkdirSync(outputDir, { recursive: true });
+}
+
+console.log('Generating individual prompts based on requirement.json...');
+
+config.forEach(item => {
+ // 從路徑中萃取檔名
+ const dfm_filename = path.basename(item.dfm);
+ const pas_filename = path.basename(item.pas);
+ const png_filename = path.basename(item.png);
+ const vue_filename = path.basename(item.vue);
+ const ts_filename = path.basename(item.ts);
+
+ // 取得元件名稱 (不含副檔名)
+ const componentName = path.parse(item.vue).name;
+
+ // 取代樣板中的佔位符
+ let promptContent = template
+ .replace(/\{\{dfm\}\}/g, item.dfm)
+ .replace(/\{\{pas\}\}/g, item.pas)
+ .replace(/\{\{png\}\}/g, item.png)
+ .replace(/\{\{vue\}\}/g, item.vue)
+ .replace(/\{\{ts\}\}/g, item.ts)
+ .replace(/\{\{dfm_filename\}\}/g, dfm_filename)
+ .replace(/\{\{pas_filename\}\}/g, pas_filename)
+ .replace(/\{\{png_filename\}\}/g, png_filename)
+ .replace(/\{\{vue_filename\}\}/g, vue_filename)
+ .replace(/\{\{ts_filename\}\}/g, ts_filename);
+
+ // 寫入專屬的 prompt 檔案
+ const promptFilePath = path.join(outputDir, `dfm_to_web_prompt_${componentName}.md`);
+ fs.writeFileSync(promptFilePath, promptContent, 'utf8');
+
+ console.log(`Created: ${promptFilePath}`);
+});
+
+console.log('\n--- Usage ---');
+console.log('You can now ask the AI:');
+console.log('"Please execute the conversion based on the requirements in @/doc/curtis/prompt/dfm_to_web/generated_prompts/prompt_PatchFom.md"');
diff --git a/scripts/dist/CB_IMGPSScanImp.pas.bk.image.csv b/scripts/dist/CB_IMGPSScanImp.pas.bk.image.csv
new file mode 100644
index 0000000..1e80dc4
--- /dev/null
+++ b/scripts/dist/CB_IMGPSScanImp.pas.bk.image.csv
@@ -0,0 +1,103 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"Global_Or_Interface","CB_IMGPSScanImp.pas.bk","9","TDibGraphic","","EnDiGrph, { for TDibGraphic }"
+[V],"Global_Or_Interface","CB_IMGPSScanImp.pas.bk","80","TTiffGraphic","","Graphic : TTiffGraphic;"
+[V],"ImageScrollBox1NewGraphic","CB_IMGPSScanImp.pas.bk","393","TDibGraphic","","procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);"
+[V],"Button6Click","CB_IMGPSScanImp.pas.bk","598","Rotate","","BarCodeRotate : Integer; //æ¢ç¢¼è¦è½çè§åº¦"
+[V],"Button6Click","CB_IMGPSScanImp.pas.bk","615","FJpgCompression","","FJpgCompression:integer;// 20171211 jpg to tif çå£ç¸®ç"
+[V],"GetSiteOMR","CB_IMGPSScanImp.pas.bk","674","GetSiteOMR","","function GetSiteOMR(FileName, Site: String;bt: Integer): Integer;"
+[V],"ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","742","ImageReSize_FormID","","Procedure ImageReSize_FormID(CaseID,FileName:String); //ä¾ååå®ä½é»å縮æ¾"
+[V],"ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","743","ImageReSize_tmp","","Procedure ImageReSize_tmp(FormID,FileName:String); //ä¾ååå®ä½é»å縮æ¾(æ«åæª)"
+[V],"CheckNeedCrop","CB_IMGPSScanImp.pas.bk","804","TDibGraphic","","Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å"
+[V],"CheckNeedCrop","CB_IMGPSScanImp.pas.bk","804","CheckNeedCrop","","Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å"
+[V],"Initialize","CB_IMGPSScanImp.pas.bk","1044","TDibGraphic","","EnPrint, { for TEnvisionPrintMode, TDibGraphicPrinter }"
+[V],"TCB_IMGPSScanX.ISB1ImageMouseUp","CB_IMGPSScanImp.pas.bk","1505","TJpegGraphic","","TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.ISB1ImageMouseUp","CB_IMGPSScanImp.pas.bk","1505","SaveQuality","","TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.PM604Click","CB_IMGPSScanImp.pas.bk","2315","DeskewImg","","DeskewImg(iISB.Graphic);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2799","TTiffGraphic","","iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic;"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2801","TJpegGraphic","","JpgGr : TJpegGraphic;"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2838","FJpgCompression","","cooom:=FJpgCompression;//20171211彩è²tifæ¡jpgå£ç¸®çæ¯ä¾"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2850","DeskewImg","","DeskewImg(ISB.Graphic);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2856","ConvertToBW","","ConvertToBW(ISB_BW.Graphic);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2866","MpsGetBarcode","","MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //å¤æ·A3 æç¨FormID æ以è¦å
辨æ¢ç¢¼"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2871","Rotate","","Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2879","CheckNeedCrop","","If CheckNeedCrop(iGraphic_First) Then"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2886","CropImg","","CropImg(iGraphic_First, iRect);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3000","ifBlackWhite","","if iGraphic.ImageFormat = ifBlackWhite then //20200806 åºç¾ç¡æ³å¯å
¥,æ¯å color256ç¡æ³å£JPEG,å¾
å ±æå¾åéå"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3003","tcGroup4","","iGraphic.Compression:=tcGroup4;"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3005","ifColor25","","else if iGraphic.ImageFormat= ifColor256 then"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3008","ConvertToGray","","ConverttoGray(iGraphic);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3009","tcJpeg","","iGraphic.Compression:=tcJPEG;"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3012","ifTrueColor","","else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3012","ifGray256","","else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","3050","SaveQuality","","JpgGr.SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.PM301Click","CB_IMGPSScanImp.pas.bk","3475","ifBlackWhite","","ScanColor := ifBlackWhite;"
+[V],"TCB_IMGPSScanX.PM302Click","CB_IMGPSScanImp.pas.bk","3483","ifGray256","","ScanColor := ifGray256;"
+[V],"TCB_IMGPSScanX.PM303Click","CB_IMGPSScanImp.pas.bk","3492","ifTrueColor","","ScanColor := ifTrueColor;"
+[V],"TCB_IMGPSScanX.PM510Click","CB_IMGPSScanImp.pas.bk","3664","DeskewImg","","DeskewImg(DisplayISB.Graphic);"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4402","TTiffGraphic","","ScanInfo.Graphic := TTiffGraphic.Create;"
+[V],"TCB_IMGPSScanX.OnAcquire","CB_IMGPSScanImp.pas.bk","4455","TTiffGraphic","","iGraphic,iGraphic_First,iGraphic_sec : TTiffGraphic;"
+[V],"TCB_IMGPSScanX.OnAcquire","CB_IMGPSScanImp.pas.bk","4457","TJpegGraphic","","JpgGr : TJpegGraphic;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4460","TDibGraphic","","function Deletepage(Graphic:TDibGraphic;BlankSize:Integer):Boolean;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4487","ifBlackWhite","","if pScanInfo^.Graphic.ImageFormat = ifBlackWhite then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4492","tcGroup4","","pScanInfo^.Graphic.Compression := tcGroup4;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4493","MpsGetBarcode","","MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4498","Rotate","","Rotate(pScanInfo^.Graphic,MpsBarcodeinf.r180[i]);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4506","NegativeImg","","NegativeImg(pScanInfo^.Graphic);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4509","DeskewImg","","DeskewImg(pScanInfo^.Graphic);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4512","CleanupBorder","","CleanupBorder(pScanInfo^.Graphic);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4514","ifTrueColor","","else if pScanInfo^.Graphic.ImageFormat = ifTrueColor then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4529","tcJpeg","","pScanInfo^.Graphic.Compression := tcJpeg;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4530","FJpgCompression","","pScanInfo^.Graphic.JpegQuality := FJpgCompression;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4532","ifColor25","","else if pScanInfo^.Graphic.ImageFormat = ifColor256 Then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4535","ConvertToGray","","ConvertToGray(pScanInfo^.Graphic);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4539","ifGray256","","else if pScanInfo^.Graphic.ImageFormat = ifGray256 Then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4566","tcPackBits","","pScanInfo^.Graphic.Compression := tcPackBits;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4571","TTiffGraphic","","iGraphic_First := TTiffGraphic.Create;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4577","CheckNeedCrop","","if CheckNeedCrop(iGraphic_First) Then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4583","CropImg","","CropImg(iGraphic_First,iRect);"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4656","TJpegGraphic","","JpgGr := TJpegGraphic.Create;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4659","SaveQuality","","JpgGr.SaveQuality := FJpgCompression;"
+[V],"TCB_IMGPSScanX.GetSiteOMR","CB_IMGPSScanImp.pas.bk","5173","GetSiteOMR","","function TCB_IMGPSScanX.GetSiteOMR(FileName,Site:String;bt: Integer): Integer;"
+[V],"TCB_IMGPSScanX.GetSiteOMR","CB_IMGPSScanImp.pas.bk","5191","FindPoint","","FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');"
+[V],"TCB_IMGPSScanX.GetSiteOMR","CB_IMGPSScanImp.pas.bk","5222","Get_OMR","","result := Get_OMR(ISB_BW.Graphic,OMRRect);"
+[V],"TCB_IMGPSScanX.GetDefScanIni","CB_IMGPSScanImp.pas.bk","5366","Rotate","","Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_ROTATE_MODE' Then //æçææè½è§åº¦"
+[V],"TCB_IMGPSScanX.GetDefScanIni","CB_IMGPSScanImp.pas.bk","5462","FJpgCompression","","FJpgCompression := StrToInt(PARA_CONTENT);"
+[V],"TCB_IMGPSScanX.CaseReSize","CB_IMGPSScanImp.pas.bk","6336","ImageReSize_FormID","","ImageReSize_FormID(CaseID,FileName); //ä¾ååå®ä½é»å縮æ¾"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6343","ImageReSize_FormID","","Procedure TCB_IMGPSScanX.ImageReSize_FormID(CaseID,FileName:String); //ä¾ååå®ä½é»å縮æ¾"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6376","FindPoint","","//FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH);"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6379","CheckSize","","SizeStr := CheckSize(ISB_BW,UpLPoint,UpRPoint,DownLPoint,DW,DH);"
+[V],"TCB_IMGPSScanX.ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","6421","ImageReSize_tmp","","Procedure TCB_IMGPSScanX.ImageReSize_tmp(FormID,FileName:String); //ä¾ååå®ä½é»å縮æ¾(æ«åæª)"
+[V],"TCB_IMGPSScanX.ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","6437","CheckSize","","SizeStr := CheckSize(ImageScrollBox1,UpLPoint,UpRPoint,DownLPoint,DW,DH);"
+[V],"TCB_IMGPSScanX.ImageScrollBox1NewGraphic","CB_IMGPSScanImp.pas.bk","6447","TDibGraphic","","procedure TCB_IMGPSScanX.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);"
+[V],"TCB_IMGPSScanX.ImageScrollBox1NewGraphic","CB_IMGPSScanImp.pas.bk","6453","ConvertToBW","","ConvertToBW(ISB_BW.Graphic);"
+[V],"TCB_IMGPSScanX.ScanGrayCBClick","CB_IMGPSScanImp.pas.bk","8573","ifGray256","","ScanColor:=ifGray256;"
+[V],"TCB_IMGPSScanX.ScanGrayCBClick","CB_IMGPSScanImp.pas.bk","8579","ifBlackWhite","","ScanColor := ifBlackWhite;"
+[V],"TCB_IMGPSScanX.ScanGrayCBClick","CB_IMGPSScanImp.pas.bk","8591","ifTrueColor","","ScanColor := ifTrueColor ;"
+[V],"TCB_IMGPSScanX.initParameter","CB_IMGPSScanImp.pas.bk","9290","ifBlackWhite","","ScanColor := ifBlackWhite;"
+[V],"TCB_IMGPSScanX.initParameter","CB_IMGPSScanImp.pas.bk","9295","ifGray256","","ScanColor := ifGray256 ;"
+[V],"TCB_IMGPSScanX.initParameter","CB_IMGPSScanImp.pas.bk","9301","ifTrueColor","","ScanColor := ifTrueColor ;"
+[V],"TCB_IMGPSScanX.SmoothCBClick","CB_IMGPSScanImp.pas.bk","9927","Image_Smooth","","Image_Smooth(ISB1.Graphic);"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9962","FindPoint","","//ParserPoint(CropMpsV.FindPoint(Anchor));"
+[V],"TCB_IMGPSScanX.CheckNeedCrop","CB_IMGPSScanImp.pas.bk","9996","TDibGraphic","","Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å"
+[V],"TCB_IMGPSScanX.CheckNeedCrop","CB_IMGPSScanImp.pas.bk","9996","CheckNeedCrop","","Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å"
+[V],"TCB_IMGPSScanX.PrintImg","CB_IMGPSScanImp.pas.bk","10223","TDibGraphic","","GraphicPrinter : TDibGraphicPrinter;"
+[V],"PrintWithManualPrintJob","CB_IMGPSScanImp.pas.bk","10241","TDibGraphic","","property of the TDibGraphicPrinter object is used to specify the"
+[V],"PrintWithAutoPrintJob","CB_IMGPSScanImp.pas.bk","10274","TDibGraphic","","GraphicPrinter := TDibGraphicPrinter.Create;"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12510","ImageReSize_FormID","","ImageReSize_FormID(CaseID,OMRFile);"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12545","GetSiteOMR","","//Showmessage(ColCName +','+ inttostr(OMRMpsV1.GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site))+','+inttostr(Pixel + SafePixel));"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12548","FindPoint","","//FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,ANCHOR);"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13278","DpiResize","","DpiResize(ISB.Graphic,36,False);"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13407","Rotate","","Rotate(ISB1.Graphic,270);"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13410","TJpegGraphic","","TJpegGraphic(ISB1.Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13410","SaveQuality","","TJpegGraphic(ISB1.Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13428","Rotate","","Rotate(ISB1.Graphic,180);"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13431","TJpegGraphic","","TJpegGraphic(ISB1.Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13431","SaveQuality","","TJpegGraphic(ISB1.Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13449","Rotate","","Rotate(ISB1.Graphic,90);"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13452","TJpegGraphic","","TJpegGraphic(ISB1.Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13452","SaveQuality","","TJpegGraphic(ISB1.Graphic).SaveQuality := 30;"
+[V],"TCB_IMGPSScanX.ISBClick","CB_IMGPSScanImp.pas.bk","13729","Image_Smooth","","Image_Smooth(ISB1.Graphic);"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","14919","FJpgCompression","","FJpgCompression:=50;"
+[V],"TCB_IMGPSScanX.Set_scancolor","CB_IMGPSScanImp.pas.bk","16357","ifBlackWhite","","ScanColor := ifBlackWhite;"
+[V],"TCB_IMGPSScanX.Set_scancolor","CB_IMGPSScanImp.pas.bk","16367","ifGray256","","ScanColor := ifGray256 ;"
+[V],"TCB_IMGPSScanX.Set_scancolor","CB_IMGPSScanImp.pas.bk","16372","ifTrueColor","","ScanColor := ifTrueColor ;"
\ No newline at end of file
diff --git a/scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv b/scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv
new file mode 100644
index 0000000..588a75e
--- /dev/null
+++ b/scripts/dist/CB_IMGPSScanImp.pas.bk.io.csv
@@ -0,0 +1,359 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"ReSortFileName_New","CB_IMGPSScanImp.pas.bk","726","ReSortFileName","","Procedure ReSortFileName_New(Path:String); //æªåéæ°æåº"
+[V],"ReSortFileName","CB_IMGPSScanImp.pas.bk","727","ReSortFileName","","Procedure ReSortFileName(Path:String); //æªåéæ°æåº"
+[V],"ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","728","ReSortFileName","","Procedure ReSortFileName2Scanlist(Path:String); //æªåéæ°æåºçµ¦Scanlist.dat"
+[V],"DeleteImageFile","CB_IMGPSScanImp.pas.bk","733","DeleteImageFile","","Procedure DeleteImageFile(Path,FileName,CaseID:String); // åªé¤æªæ¡"
+[V],"DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","735","DeleteDocNoFile","","Function DeleteDocNoFile(Path,DocNo:String):Boolean; //åªé¤æå®DocNoæ件"
+[V],"DeleteShowFile","CB_IMGPSScanImp.pas.bk","736","DeleteShowFile","","Procedure DeleteShowFile(Path:String); //åªé¤é¡¯ç¤ºä¸çå½±å"
+[V],"GetNoNameCase","CB_IMGPSScanImp.pas.bk","756","GetNoNameCase","","Function GetNoNameCase(Path:string):String; //åæªé
èXXXX"
+[V],"_DelTreeForExistImg","CB_IMGPSScanImp.pas.bk","901","_DelTree","","procedure _DelTreeForExistImg(ASourceDir:String); //2017 åªé¤åç¢ºèª æèå½±åå"
+[V],"DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","904","DeleteDocNoFile","","function DeleteDocNoFileForESCAN(Path, DocNo: String): Boolean; //2017 確èªæ¯å¦ææªæ¸é¡æ件"
+[V],"TCB_IMGPSScanX.WNoteBtnClick","CB_IMGPSScanImp.pas.bk","1200","FileExists","","if FileExists(DisplayPath+'Scan_Memo.dat') then"
+[V],"TCB_IMGPSScanX.WNoteBtnClick","CB_IMGPSScanImp.pas.bk","1202","LoadFromFile","","S.LoadFromFile(DisplayPath+'Scan_Memo.dat');"
+[V],"TCB_IMGPSScanX.WNoteBtnClick","CB_IMGPSScanImp.pas.bk","1229","SaveToFile","","S.SaveToFile(DisplayPath+'Scan_Memo.dat');"
+[V],"TCB_IMGPSScanX.InitExistImgList","CB_IMGPSScanImp.pas.bk","1349","LoadFromFile","","ST1.LoadFromFile(casepath+'Download\Context.dat');"
+[V],"TCB_IMGPSScanX.ISB1ImageMouseDown","CB_IMGPSScanImp.pas.bk","1458","LoadFromFile","","TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);"
+[V],"TCB_IMGPSScanX.ISB1ImageMouseUp","CB_IMGPSScanImp.pas.bk","1506","SaveToFile","","TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);"
+[V],"TCB_IMGPSScanX.DestroyEvent","CB_IMGPSScanImp.pas.bk","1750","_DelTree","","_Deltree(ImagePath);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1945","GetNoNameCase","","CaseID := GetNoNameCase(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1947","Str2Dir","","Str2Dir(NewPath);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1954","RenameFile","","ReNameFile(DisplayPath+OldName,NewPath+NewName);"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1956","SaveToFile","","S.SaveToFile(NewPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1964","FileExists","","if FileExists(DisplayPath+'CaseIndex.dat') then //æåç¶è¾¦ä»£èååºä¾å寫å
¥æ°ä»¶è£¡"
+[V],"TCB_IMGPSScanX.PM401Click","CB_IMGPSScanImp.pas.bk","1966","LoadFromFile","","S.LoadFromFile(DisplayPath+'CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2159","FileExists","","if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2161","LoadFromFile","","ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2176","DirectoryExists","","if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2193","CopyFile","","CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2195","SaveToFile","","ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2197","DeleteImageFile","","DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2198","RenameFile","","//RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);"
+[V],"TCB_IMGPSScanX.PM601Click","CB_IMGPSScanImp.pas.bk","2203","ReSortFileName","","ReSortFileName(ExtractFilePath(iISB.FileName));"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2259","Str2Dir","","Str2Dir(SavePath);"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2264","FileExists","","if FileExists(SavePath+'Context.dat') then"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2265","LoadFromFile","","FileList.LoadFromFile(SavePath+'Context.dat');"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2278","CopyFile","","CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2282","SaveToFile","","FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2283","DeleteImageFile","","DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.PM602Click","CB_IMGPSScanImp.pas.bk","2289","ReSortFileName","","ReSortFileName(ExtractFilePath(iISB.FileName));"
+[V],"TCB_IMGPSScanX.PM604Click","CB_IMGPSScanImp.pas.bk","2317","SaveToFile","","iISB.SaveToFile(iISB.FileName);"
+[V],"TCB_IMGPSScanX.PM604Click","CB_IMGPSScanImp.pas.bk","2318","LoadFromFile","","DisplayISB.LoadFromFile(DisplayISB.FileName,1);"
+[V],"TCB_IMGPSScanX.PM605Click","CB_IMGPSScanImp.pas.bk","2350","DeleteImageFile","","DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.PM605Click","CB_IMGPSScanImp.pas.bk","2354","ReSortFileName","","ReSortFileName(ExtractFilePath(iISB.FileName));"
+[V],"TCB_IMGPSScanX.PM101Click","CB_IMGPSScanImp.pas.bk","2585","_DelTree","","_DelTree(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PM101Click","CB_IMGPSScanImp.pas.bk","2628","DirectoryExists","","if not DirectoryExists(ImageSavePath+FCaseID) then"
+[V],"TCB_IMGPSScanX.PM101Click","CB_IMGPSScanImp.pas.bk","2645","DeleteDocNoFile","","//ShowMessage('DeleteDocNoFileForESCAN');"
+[V],"TCB_IMGPSScanX.DocNoIsExistImg","CB_IMGPSScanImp.pas.bk","2685","FileExists","","if FileExists(DocNopath+'\Context.dat') then /////20190319 Hong ç¶æ空çDocnoç®éææææ,å¢å éè¡"
+[V],"TCB_IMGPSScanX.DocNoIsExistImg","CB_IMGPSScanImp.pas.bk","2686","LoadFromFile","","ST.loadFromfile(DocNopath+'\Context.dat');"
+[V],"TCB_IMGPSScanX._DelTreeForExistImg","CB_IMGPSScanImp.pas.bk","2702","_DelTree","","procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);"
+[V],"TCB_IMGPSScanX.PM102Click","CB_IMGPSScanImp.pas.bk","2732","DirectoryExists","","if DirectoryExists(ImageSavePath+NewCaseID) then"
+[V],"TCB_IMGPSScanX.PM102Click","CB_IMGPSScanImp.pas.bk","2741","RenameFile","","RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2819","FindFirst","","FindFirst(FName, faAnyfile, FileRec);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2849","LoadFromFile","","ISB.LoadFromFile(FName, i);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2858","SaveToFile","","///ISB_BW.SaveToFile('KKKKKKKK.tif');"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2934","DirectoryExists","","If DirectoryExists(ImageSavePath + CaseID + '\') Then"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2936","_DelTree","","_DelTree(ImageSavePath + CaseID + '\');"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2942","GetNoNameCase","","CaseID := GetNoNameCase(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2947","Str2Dir","","Str2Dir(SavePath);"
+[V],"TCB_IMGPSScanX.PM104Click","CB_IMGPSScanImp.pas.bk","2979","FileExists","","If FileExists(SavePath + 'Context.dat') Then"
+[V],"TCB_IMGPSScanX.PM106Click","CB_IMGPSScanImp.pas.bk","3190","CopyFile","","CopyFormID,Copy2Caseno,CopyFileName : String;"
+[V],"TCB_IMGPSScanX.PM106Click","CB_IMGPSScanImp.pas.bk","3238","LoadFromFile","","S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM106Click","CB_IMGPSScanImp.pas.bk","3260","SaveToFile","","S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM109Click","CB_IMGPSScanImp.pas.bk","3400","SaveToFile","","S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');"
+[V],"TCB_IMGPSScanX.PM110Click","CB_IMGPSScanImp.pas.bk","3433","Str2Dir","","Str2Dir(SavePath);"
+[V],"TCB_IMGPSScanX.PM507Click","CB_IMGPSScanImp.pas.bk","3588","RenameFile","","RenameFile(DisplayPath+OldName,DisplayPath+NewName);"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3625","_DelTree","","_DelTree(DisplayPath);"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3634","SaveToFile","","ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3638","ReSortFileName","","ReSortFileName(DisplayPath);"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3639","LoadFromFile","","ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');"
+[V],"TCB_IMGPSScanX.PM508Click","CB_IMGPSScanImp.pas.bk","3641","FileExists","","if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then"
+[V],"TCB_IMGPSScanX.PM510Click","CB_IMGPSScanImp.pas.bk","3665","SaveToFile","","DisplayISB.SaveToFile(DisplayISB.FileName);"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4009","FileExists","","if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4014","LoadFromFile","","ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4016","SaveToFile","","ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');"
+[V],"TCB_IMGPSScanX.AddAttFileLBClick","CB_IMGPSScanImp.pas.bk","4179","FileExists","","if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then"
+[V],"TCB_IMGPSScanX.AddAttFileLBClick","CB_IMGPSScanImp.pas.bk","4187","CopyFile","","CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);"
+[V],"TCB_IMGPSScanX.AttListBoxDblClick","CB_IMGPSScanImp.pas.bk","4264","FileExists","","if FileExists(DisplayPath+AttFile) then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4466","LoadFromFile","","//DeleteStm.LoadFromFile(Path+'temp.tif');"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4640","FileExists","","if FileExists( PEFileName ) then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4661","SaveToFile","","JpgGr.SaveToFile(PEFileName);"
+[V],"TCB_IMGPSScanX.PageDone","CB_IMGPSScanImp.pas.bk","4697","LoadFromFile","","ISB.LoadFromFile(PEFileName,1);"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4788","GetNoNameCase","","ScanCaseno := GetNoNameCase(ImageSavePath);"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4793","DirectoryExists","","if DirectoryExists(ImageSavePath + ScanCaseno+'\') then"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4795","_DelTree","","_DelTree(ImageSavePath + ScanCaseno+'\');"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4801","Str2Dir","","Str2Dir(ScanPath);"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4859","SaveToFile","","//ContextList.SaveToFile(ScanPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","4995","SaveToFile","","S.SaveToFile(LngPath+'mps.dat');"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","5000","FileExists","","if FileExists(LngPath+'mps.zip') then"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5036","Str2Dir","","str2dir(ZipPath);"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5039","FileExists","","if not FileExists(ZipPath+'mps.dat') then"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5044","LoadFromFile","","S.LoadFromFile(ZipPath+'mps.dat');"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5054","RenameFile","","RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5085","_DelTree","","_DelTree(ZipPath);"
+[V],"TCB_IMGPSScanX.GetSiteOMR","CB_IMGPSScanImp.pas.bk","5185","LoadFromFile","","ImageScrollBox1.LoadFromFile(FileName,1);"
+[V],"TCB_IMGPSScanX.ReNameContext","CB_IMGPSScanImp.pas.bk","6020","SaveToFile","","ContextList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6028","DeleteImageFile","","Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // åªé¤æªæ¡ (ç¡æ³å¾å°DocDirç¨)"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6042","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6043","LoadFromFile","","FileList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteImageFile","CB_IMGPSScanImp.pas.bk","6049","SaveToFile","","FileList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6068","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6069","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6084","DeleteImageFile","","DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6090","ReSortFileName","","ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');"
+[V],"TCB_IMGPSScanX.DeleteFormCodeFile","CB_IMGPSScanImp.pas.bk","6111","SaveToFile","","ContextList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6115","DeleteDocNoFile","","Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean; //åªé¤æå®DocNoæ件"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6132","SaveToFile","","ContextList.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6134","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6135","LoadFromFile","","ContextList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFile","CB_IMGPSScanImp.pas.bk","6137","FileExists","","if FileExists(Path+'CustomDocNo.dat') then"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6141","DeleteDocNoFile","","Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean; //åªé¤æå®DocNoæ件"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6164","SaveToFile","","ContextList.SaveToFile(Path+'\Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6165","LoadFromFile","","ContextList.LoadFromFile(Path+'\Context.dat');"
+[V],"TCB_IMGPSScanX.DeleteDocNoFileForESCAN","CB_IMGPSScanImp.pas.bk","6169","_DelTree","","_DelTree(Path);"
+[V],"TCB_IMGPSScanX.DeleteShowFile","CB_IMGPSScanImp.pas.bk","6175","DeleteShowFile","","Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //åªé¤é¡¯ç¤ºä¸çå½±å"
+[V],"TCB_IMGPSScanX.CheckCaseDocNoPage","CB_IMGPSScanImp.pas.bk","6219","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.FindFormCodePages","CB_IMGPSScanImp.pas.bk","6287","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.CaseReSize","CB_IMGPSScanImp.pas.bk","6326","FileExists","","{if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then"
+[V],"TCB_IMGPSScanX.CaseReSize","CB_IMGPSScanImp.pas.bk","6332","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6369","LoadFromFile","","ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6392","SaveToFile","","ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6399","FileExists","","if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then"
+[V],"TCB_IMGPSScanX.ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","6436","LoadFromFile","","ImageScrollBox1.LoadFromFile(FileName,1);"
+[V],"TCB_IMGPSScanX.ImageReSize_tmp","CB_IMGPSScanImp.pas.bk","6440","SaveToFile","","ImageScrollBox1.SaveToFile(FileName);"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6486","FileExists","","if fileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6488","LoadFromFile","","ContextList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6588","CopyFile","","CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6609","FindFirst","","FindFirst(FName, faAnyfile, FileRec);"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6728","_DelTree","","//_DelTree(Path); //æåªåªTransPath"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6859","FileExists","","if FileExists(DPath+CaseID+'.zip') then"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6868","Str2Dir","","Str2Dir(AttPath);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6877","SaveToFile","","SC.SaveToFile(DPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6889","LoadFromFile","","SC.LoadFromFile(SPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6901","DeleteDocNoFile","","DeleteDocNoFile(DPath,DocNo);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6916","CopyFile","","CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6930","DirectoryExists","","if DirectoryExists(SPath+'AttFile\') then"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","7011","FileExists","","if FileExists(Path+CaseID+'.zip') then"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","7020","Str2Dir","","Str2Dir(AttPath);"
+[V],"TCB_IMGPSScanX.GetNoNameCase","CB_IMGPSScanImp.pas.bk","7033","GetNoNameCase","","Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //åæªé
èXXXX"
+[V],"TCB_IMGPSScanX.GetNoNameCase","CB_IMGPSScanImp.pas.bk","7039","DirectoryExists","","if Not DirectoryExists(Path+_Msg('æªé
è')+Add_Zoo(i,4)) then"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7057","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7171","FileExists","","if FileExists(Path+OldName) then"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7173","RenameFile","","ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7175","SaveToFile","","S.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CaseResort","CB_IMGPSScanImp.pas.bk","7178","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7195","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7196","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7294","RenameFile","","//ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7296","SaveToFile","","S.SaveToFile(Path+'scanlist.dat');"
+[V],"TCB_IMGPSScanX.CaseResort2Scanlist","CB_IMGPSScanImp.pas.bk","7299","ReSortFileName","","ReSortFileName2Scanlist(Path);"
+[V],"TCB_IMGPSScanX.DistinctDocinCase","CB_IMGPSScanImp.pas.bk","7318","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.DistinctDocNoinCase","CB_IMGPSScanImp.pas.bk","7362","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ClearErrini","CB_IMGPSScanImp.pas.bk","7392","FileExists","","if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then"
+[V],"TCB_IMGPSScanX.SetCaseList","CB_IMGPSScanImp.pas.bk","7412","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.SetCaseList","CB_IMGPSScanImp.pas.bk","7413","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.SetCaseList","CB_IMGPSScanImp.pas.bk","7443","SaveToFile","","CaseList.SaveToFile(ImageSavePath+'CaseList.dat');"
+[V],"TCB_IMGPSScanX.SetDocNoList","CB_IMGPSScanImp.pas.bk","7456","FileExists","","if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.SetDocNoList","CB_IMGPSScanImp.pas.bk","7457","LoadFromFile","","CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetDocNoList","CB_IMGPSScanImp.pas.bk","7507","SaveToFile","","CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetContextList","CB_IMGPSScanImp.pas.bk","7527","FileExists","","if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.SetContextList","CB_IMGPSScanImp.pas.bk","7528","LoadFromFile","","ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SetContextList","CB_IMGPSScanImp.pas.bk","7562","SaveToFile","","ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SetAttContextList","CB_IMGPSScanImp.pas.bk","7571","FileExists","","if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then"
+[V],"TCB_IMGPSScanX.SetAttContextList","CB_IMGPSScanImp.pas.bk","7572","LoadFromFile","","AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');"
+[V],"TCB_IMGPSScanX.SetAttContextList","CB_IMGPSScanImp.pas.bk","7605","SaveToFile","","AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');"
+[V],"TCB_IMGPSScanX.CreateEmptyCase","CB_IMGPSScanImp.pas.bk","7684","SaveToFile","","S.SaveToFile(Path+CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7749","FileExists","","if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7751","LoadFromFile","","ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7795","DirectoryExists","","if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7811","CopyFile","","CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7827","RenameFile","","ReNameFile(Path+OldFile,Path+NewFile);"
+[V],"TCB_IMGPSScanX.FormIDReplace","CB_IMGPSScanImp.pas.bk","7831","SaveToFile","","S.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ShowFileReplace","CB_IMGPSScanImp.pas.bk","7852","RenameFile","","ReNameFile(Path+OldFile,Path+NewFile);"
+[V],"TCB_IMGPSScanX.PageReplaceFormID","CB_IMGPSScanImp.pas.bk","7867","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.PageReplaceFormID","CB_IMGPSScanImp.pas.bk","7891","RenameFile","","ReNameFile(Path+OldFile,Path+NewFile);"
+[V],"TCB_IMGPSScanX.PageReplaceFormID","CB_IMGPSScanImp.pas.bk","7899","SaveToFile","","S.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetCasePage","CB_IMGPSScanImp.pas.bk","7925","FileExists","","if FileExists(Path+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetCasePage","CB_IMGPSScanImp.pas.bk","7926","LoadFromFile","","DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetFile2Case","CB_IMGPSScanImp.pas.bk","8006","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SetFile2Case","CB_IMGPSScanImp.pas.bk","8008","SaveToFile","","S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.WriteResize","CB_IMGPSScanImp.pas.bk","8022","LoadFromFile","","ImageScrollBox1.LoadFromFile(ImgName,1);"
+[V],"TCB_IMGPSScanX.WriteResize","CB_IMGPSScanImp.pas.bk","8045","FileExists","","if FileExists(TxtName) then"
+[V],"TCB_IMGPSScanX.WriteResize","CB_IMGPSScanImp.pas.bk","8049","SaveToFile","","S.SaveToFile(TxtName);"
+[V],"TCB_IMGPSScanX.GetCase_PageCount","CB_IMGPSScanImp.pas.bk","8072","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.GetCase_PageCount","CB_IMGPSScanImp.pas.bk","8073","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.WriteCaseIndex","CB_IMGPSScanImp.pas.bk","8205","SaveToFile","","S.SaveToFile(Path+'CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.ReadCaseIndex","CB_IMGPSScanImp.pas.bk","8221","FileExists","","if FileExists(Path+'CaseIndex.dat') then"
+[V],"TCB_IMGPSScanX.ReadCaseIndex","CB_IMGPSScanImp.pas.bk","8223","LoadFromFile","","S.LoadFromFile(Path+'CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.ReduceLogFile","CB_IMGPSScanImp.pas.bk","8249","FileExists","","if FileExists(LngPath+'IMGPSCheck.log') then"
+[V],"TCB_IMGPSScanX.ReduceLogFile","CB_IMGPSScanImp.pas.bk","8251","LoadFromFile","","ST1.LoadFromFile(LngPath+'IMGPSCheck.log');"
+[V],"TCB_IMGPSScanX.ReduceLogFile","CB_IMGPSScanImp.pas.bk","8258","SaveToFile","","ST1.SaveToFile(LngPath+'IMGPSCheck.log');"
+[V],"TCB_IMGPSScanX.GetDocNoDir","CB_IMGPSScanImp.pas.bk","8304","DirectoryExists","","until not DirectoryExists(Path+iDocNo);"
+[V],"TCB_IMGPSScanX.DocNo2DocNoDir","CB_IMGPSScanImp.pas.bk","8341","DirectoryExists","","until not DirectoryExists(Path+iDocNo);"
+[V],"TCB_IMGPSScanX.DocNoDir2Index","CB_IMGPSScanImp.pas.bk","8374","LoadFromFile","","CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.ZipMainFile","CB_IMGPSScanImp.pas.bk","8395","FileExists","","if fileExists(DePath+ZipName) then"
+[V],"TCB_IMGPSScanX.ZipMainFile","CB_IMGPSScanImp.pas.bk","8412","LoadFromFile","","AttContextList.LoadFromFile(SoPath+'ATTContext.dat');"
+[V],"TCB_IMGPSScanX.ZipMaskFile","CB_IMGPSScanImp.pas.bk","8468","FileExists","","if fileExists(DePath+ZipName) then"
+[V],"TCB_IMGPSScanX.GetFormatID","CB_IMGPSScanImp.pas.bk","8605","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then"
+[V],"TCB_IMGPSScanX.GetFormatID","CB_IMGPSScanImp.pas.bk","8607","LoadFromFile","","S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');"
+[V],"TCB_IMGPSScanX.CheckCaseBtnClick","CB_IMGPSScanImp.pas.bk","8952","SaveToFile","","S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');"
+[V],"TCB_IMGPSScanX.DrawDocItem2","CB_IMGPSScanImp.pas.bk","9012","FileExists","","if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.DrawDocItem2","CB_IMGPSScanImp.pas.bk","9013","LoadFromFile","","CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.DrawDocItem2","CB_IMGPSScanImp.pas.bk","9162","DirectoryExists","","if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then"
+[V],"TCB_IMGPSScanX.PrtLbClick","CB_IMGPSScanImp.pas.bk","9320","LoadFromFile","","//ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9441","FileExists","","if FileExists(NewPath+'CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9442","LoadFromFile","","iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9471","DirectoryExists","","if Not DirectoryExists(NewPath+NewDocDir) then"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9501","CopyFile","","CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);"
+[V],"TCB_IMGPSScanX.UseOldCaseLbClick","CB_IMGPSScanImp.pas.bk","9504","SaveToFile","","iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.LastInitFormidListCreate","CB_IMGPSScanImp.pas.bk","9538","LoadFromFile","","ST1.LoadFromFile(path+'FormCode_Name.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile","CB_IMGPSScanImp.pas.bk","9604","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.LoadImgFile","CB_IMGPSScanImp.pas.bk","9605","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile","CB_IMGPSScanImp.pas.bk","9617","SaveToFile","","CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile1","CB_IMGPSScanImp.pas.bk","9689","FileExists","","if FileExists(ImageSavePath + 'CaseList.dat') then"
+[V],"TCB_IMGPSScanX.LoadImgFile1","CB_IMGPSScanImp.pas.bk","9690","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');"
+[V],"TCB_IMGPSScanX.LoadImgFile1","CB_IMGPSScanImp.pas.bk","9720","SaveToFile","","Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');"
+[V],"TCB_IMGPSScanX.LoadAttFile","CB_IMGPSScanImp.pas.bk","9779","FileExists","","if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then"
+[V],"TCB_IMGPSScanX.LoadAttFile","CB_IMGPSScanImp.pas.bk","9781","LoadFromFile","","AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');"
+[V],"TCB_IMGPSScanX.CheckAvailable","CB_IMGPSScanImp.pas.bk","9915","FileExists","","if FileExists(LngPath+'MPSLIC_SCAN.lic') then"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9946","DirectoryExists","","if DirectoryExists(DePath) then"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9947","_DelTree","","_DelTree(DePath);"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9948","Str2Dir","","Str2Dir(DePath);"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9954","LoadFromFile","","S.LoadFromFile(SoPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.Case2Mask","CB_IMGPSScanImp.pas.bk","9964","FileExists","","if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then //æ²æXmlå°±ä¸ç¨é®ç½©"
+[V],"TCB_IMGPSScanX.GetNewCustomDocNo","CB_IMGPSScanImp.pas.bk","10059","FileExists","","if FileExists(Path+'CustomDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetNewCustomDocNo","CB_IMGPSScanImp.pas.bk","10062","LoadFromFile","","S.LoadFromFile(Path+'CustomDocNo.dat');"
+[V],"TCB_IMGPSScanX.GetNewCustomDocNo","CB_IMGPSScanImp.pas.bk","10080","SaveToFile","","S.SaveToFile(Path+'CustomDocNo.dat');"
+[V],"PrintWithAutoPrintJob","CB_IMGPSScanImp.pas.bk","10285","LoadFromFile","","ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);"
+[V],"TCB_IMGPSScanX.FindLastestDocDir","CB_IMGPSScanImp.pas.bk","10307","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.FindLastestDocDir","CB_IMGPSScanImp.pas.bk","10308","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.FindLastestDocDirForPage","CB_IMGPSScanImp.pas.bk","10335","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.FindLastestDocDirForPage","CB_IMGPSScanImp.pas.bk","10336","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.Create_Cust_DocDir","CB_IMGPSScanImp.pas.bk","10401","DirectoryExists","","if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then //åå¨äº"
+[V],"TCB_IMGPSScanX.OldCasetoNewCase","CB_IMGPSScanImp.pas.bk","10469","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.OldCasetoNewCase","CB_IMGPSScanImp.pas.bk","10494","SaveToFile","","DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10539","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10545","FileExists","","if FileExists(iPath+'Context.dat') then //20140909æ¼å éåå¤æ·é æèªè¨æ件ä½æ²å½±åæåºé¯èª¤è¨æ¯"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10555","RenameFile","","RenameFile(iPath+OldFile,iPath+NewFile);"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10556","SaveToFile","","FileList.SaveToFile(iPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.ErrFormtoCurrentForm","CB_IMGPSScanImp.pas.bk","10563","MoveFile","","MoveFile(PWideChar(iPath),PWideChar(iiPath));"
+[V],"TCB_IMGPSScanX.SetRecordEditedDocDir","CB_IMGPSScanImp.pas.bk","10583","FileExists","","if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then"
+[V],"TCB_IMGPSScanX.SetRecordEditedDocDir","CB_IMGPSScanImp.pas.bk","10584","LoadFromFile","","EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.SetRecordEditedDocDir","CB_IMGPSScanImp.pas.bk","10599","SaveToFile","","EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.GetDocDir_Page","CB_IMGPSScanImp.pas.bk","10630","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.GetDocDir_Page","CB_IMGPSScanImp.pas.bk","10632","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.Path2DocDir","CB_IMGPSScanImp.pas.bk","10648","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.Path2DocDir","CB_IMGPSScanImp.pas.bk","10649","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10692","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10694","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10733","RenameFile","","RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);"
+[V],"TCB_IMGPSScanX.SortDocDir_FormID","CB_IMGPSScanImp.pas.bk","10744","SaveToFile","","FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');"
+[V],"TCB_IMGPSScanX.CreateCaseNeedData","CB_IMGPSScanImp.pas.bk","10807","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.CreateCaseNeedData","CB_IMGPSScanImp.pas.bk","10809","LoadFromFile","","FileList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CreateCaseNeedData","CB_IMGPSScanImp.pas.bk","10828","SaveToFile","","DocNoList.SaveToFile(Path+'DocDir.dat');"
+[V],"TCB_IMGPSScanX.TransOldCaseFile","CB_IMGPSScanImp.pas.bk","10902","FileExists","","if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then"
+[V],"TCB_IMGPSScanX.GetDocNoCount","CB_IMGPSScanImp.pas.bk","11148","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetDocNoCount","CB_IMGPSScanImp.pas.bk","11150","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.GetDocDirCopies","CB_IMGPSScanImp.pas.bk","11177","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.GetDocDirCopies","CB_IMGPSScanImp.pas.bk","11178","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetDocDirCopies","CB_IMGPSScanImp.pas.bk","11206","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.SetDocDirCopies","CB_IMGPSScanImp.pas.bk","11208","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.SetDocDirCopies","CB_IMGPSScanImp.pas.bk","11216","SaveToFile","","DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');"
+[V],"TCB_IMGPSScanX.CaseDelete_Enable","CB_IMGPSScanImp.pas.bk","11377","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.CaseDelete_Enable","CB_IMGPSScanImp.pas.bk","11378","LoadFromFile","","CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11398","LoadFromFile","","FList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11403","RenameFile","","Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11435","SaveToFile","","Flist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage","CB_IMGPSScanImp.pas.bk","11438","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11456","LoadFromFile","","FList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11459","RenameFile","","Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11493","SaveToFile","","Flist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.MoveImage_Drag","CB_IMGPSScanImp.pas.bk","11496","ReSortFileName","","ReSortFileName(Path);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11566","DirectoryExists","","if DirectoryExists(NewPath) then"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11567","_DelTree","","_DelTree(NewPath);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11568","Str2Dir","","str2dir(NewPath);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11569","CopyFile","","CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11576","FileExists","","if FileExists(OldPath+'CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11578","LoadFromFile","","DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.Case2upload","CB_IMGPSScanImp.pas.bk","11582","SaveToFile","","DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11684","FileExists","","if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then //æªç«é¢ææ²éäºæª"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11690","CopyFile","","AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11708","LoadFromFile","","//iFileList.LoadFromFile(SoDir+'Context.dat');"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11738","DirectoryExists","","if not DirectoryExists(DeDir+DocDir) then"
+[V],"TCB_IMGPSScanX.Download2Case","CB_IMGPSScanImp.pas.bk","11748","SaveToFile","","DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.DistinctFormCode","CB_IMGPSScanImp.pas.bk","12218","LoadFromFile","","S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12420","LoadFromFile","","List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12515","FileExists","","if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then //æ²æXmlå°±ä¸ç¨æª¢æ ¸"
+[V],"TCB_IMGPSScanX.OMRCheckCase","CB_IMGPSScanImp.pas.bk","12937","SaveToFile","","ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');"
+[V],"TCB_IMGPSScanX.OMRErr2ini","CB_IMGPSScanImp.pas.bk","12981","FileExists","","if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then"
+[V],"TCB_IMGPSScanX.OMRErr2ini","CB_IMGPSScanImp.pas.bk","12982","LoadFromFile","","S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');"
+[V],"TCB_IMGPSScanX.OMRErr2ini","CB_IMGPSScanImp.pas.bk","12984","SaveToFile","","S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');"
+[V],"TCB_IMGPSScanX.OMRErrini2ListForLog","CB_IMGPSScanImp.pas.bk","13034","LoadFromFile","","CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');"
+[V],"TCB_IMGPSScanX.view_image_FormCode","CB_IMGPSScanImp.pas.bk","13106","LoadFromFile","","ISB.LoadFromFile(Path+ContextList.Strings[i],1);"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13230","FileExists","","if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13232","LoadFromFile","","ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.view_image_DocNo","CB_IMGPSScanImp.pas.bk","13284","DirectoryExists","","//if DirectoryExists(Path+'Attach') then"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13406","LoadFromFile","","ISB1.LoadFromFile(ISB1.FileName,1);"
+[V],"TCB_IMGPSScanX.SpeedButton14Click","CB_IMGPSScanImp.pas.bk","13411","SaveToFile","","TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13427","LoadFromFile","","ISB1.LoadFromFile(ISB1.FileName,1);"
+[V],"TCB_IMGPSScanX.SpeedButton15Click","CB_IMGPSScanImp.pas.bk","13432","SaveToFile","","TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13448","LoadFromFile","","ISB1.LoadFromFile(ISB1.FileName,1);"
+[V],"TCB_IMGPSScanX.SpeedButton16Click","CB_IMGPSScanImp.pas.bk","13453","SaveToFile","","TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);"
+[V],"TCB_IMGPSScanX.ISBClick","CB_IMGPSScanImp.pas.bk","13727","LoadFromFile","","ISB1.LoadFromFile(SelectISB.FileName,1);"
+[V],"TCB_IMGPSScanX.ISBImageMouseDown","CB_IMGPSScanImp.pas.bk","13802","LoadFromFile","","ISB1.LoadFromFile(SelectISB.FileName,1);"
+[V],"TCB_IMGPSScanX.GetCaseFormID","CB_IMGPSScanImp.pas.bk","13895","LoadFromFile","","ContextList.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.CreateFormID_FormName","CB_IMGPSScanImp.pas.bk","13926","SaveToFile","","S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);"
+[V],"TCB_IMGPSScanX.CreateDocNo_DocName","CB_IMGPSScanImp.pas.bk","13948","SaveToFile","","S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);"
+[V],"TCB_IMGPSScanX.CreateIn_WH","CB_IMGPSScanImp.pas.bk","13963","FileExists","","if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then"
+[V],"TCB_IMGPSScanX.CreateIn_WH","CB_IMGPSScanImp.pas.bk","13964","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateIn_WH","CB_IMGPSScanImp.pas.bk","13977","SaveToFile","","In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');"
+[V],"TCB_IMGPSScanX.CreateDocNo_Info","CB_IMGPSScanImp.pas.bk","14000","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateDocNo_Info","CB_IMGPSScanImp.pas.bk","14002","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateCustDocNo_Info","CB_IMGPSScanImp.pas.bk","14082","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateCustDocNo_Info","CB_IMGPSScanImp.pas.bk","14083","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateDocnoFrom_Info","CB_IMGPSScanImp.pas.bk","14137","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateDocnoFrom_Info","CB_IMGPSScanImp.pas.bk","14138","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.CreateCustDocNoFrom_Info","CB_IMGPSScanImp.pas.bk","14201","FileExists","","if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;"
+[V],"TCB_IMGPSScanX.CreateCustDocNoFrom_Info","CB_IMGPSScanImp.pas.bk","14202","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.GetDocNoEdit","CB_IMGPSScanImp.pas.bk","14263","FileExists","","if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then"
+[V],"TCB_IMGPSScanX.GetDocNoEdit","CB_IMGPSScanImp.pas.bk","14264","LoadFromFile","","EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');"
+[V],"TCB_IMGPSScanX.GetDocNo_Count","CB_IMGPSScanImp.pas.bk","14310","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.GetDocNo_Page","CB_IMGPSScanImp.pas.bk","14342","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.Case_DocNoExists","CB_IMGPSScanImp.pas.bk","14406","LoadFromFile","","S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14427","ReSortFileName","","Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //æªåéæ°æåº"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14435","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14437","LoadFromFile","","Filelist.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14444","RenameFile","","ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.ReSortFileName","CB_IMGPSScanImp.pas.bk","14447","SaveToFile","","Filelist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14455","ReSortFileName","","Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //æªåéæ°æåº"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14463","FileExists","","if FileExists(Path+'Context.dat') then"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14465","LoadFromFile","","Filelist.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14471","RenameFile","","ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.ReSortFileName_New","CB_IMGPSScanImp.pas.bk","14474","SaveToFile","","Filelist.SaveToFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14482","ReSortFileName","","Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //æªåéæ°æåºçµ¦Scanlist.dat"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14490","FileExists","","if FileExists(Path+'scanlist.dat') then"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14491","LoadFromFile","","S.LoadFromFile(Path+'scanlist.dat');"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14497","RenameFile","","//ReNameFile(Path+OldName,Path+NewName);"
+[V],"TCB_IMGPSScanX.ReSortFileName2Scanlist","CB_IMGPSScanImp.pas.bk","14500","SaveToFile","","S.SaveToFile(Path+'scanlist.dat');"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14516","FileExists","","if FileExists(CheckXmlPath+'OMRSet.zip') then"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14522","LoadFromFile","","S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14538","SaveToFile","","S.SaveToFile(CheckXmlPath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14575","FileExists","","if FileExists(SitePath+'KeyinSet.zip') then"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14581","LoadFromFile","","S.LoadFromFile(SitePath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14596","SaveToFile","","S.SaveToFile(SitePath+'LastDateTime.dat');"
+[V],"TCB_IMGPSScanX.CaseComplete","CB_IMGPSScanImp.pas.bk","14695","FileExists","","if FileExists(Path+'Context.dat') then //ææé æ¸"
+[V],"TCB_IMGPSScanX.CaseComplete","CB_IMGPSScanImp.pas.bk","14697","LoadFromFile","","S.LoadFromFile(Path+'Context.dat');"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","14991","GetLocalAppDir","","LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","14992","Str2Dir","","Str2Dir(LngPath);"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","15202","_DelTree","","_Deltree(ImagePath);"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","15234","FileExists","","//if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //éåæå¨Download2Caseæä¸å¾ç¢çæ以ä¸è½æéè¡ 20141013"
+[V],"TCB_IMGPSScanX.TransBtnClick","CB_IMGPSScanImp.pas.bk","15415","LoadFromFile","","S.LoadFromFile(TransPath + 'Context.dat');"
+[V],"TCB_IMGPSScanX.TreeView1Click","CB_IMGPSScanImp.pas.bk","15592","FileExists","","If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then"
+[V],"TCB_IMGPSScanX.TreeView1Click","CB_IMGPSScanImp.pas.bk","15596","LoadFromFile","","CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15806","RenameFile","","{ReNameFile(DisplayISB.FileName,NewPath+NewFileName);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15869","CopyFile","","CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15871","DeleteImageFile","","DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15881","LoadFromFile","","ContextList.LoadFromFile(DisplayPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15889","SaveToFile","","ContextList.SaveToFile(NewPath+'Context.dat');"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15901","_DelTree","","_DelTree(DisplayPath);"
+[V],"TCB_IMGPSScanX.TreeView1DragDrop","CB_IMGPSScanImp.pas.bk","15910","ReSortFileName","","ReSortFileName(DisplayPath);"
+[V],"TCB_IMGPSScanX.Set_language","CB_IMGPSScanImp.pas.bk","16085","FileExists","","if FileExists(LngPath+'Language.lng') then"
\ No newline at end of file
diff --git a/scripts/dist/CB_IMGPSScanImp.pas.bk.scan.csv b/scripts/dist/CB_IMGPSScanImp.pas.bk.scan.csv
new file mode 100644
index 0000000..3dad94d
--- /dev/null
+++ b/scripts/dist/CB_IMGPSScanImp.pas.bk.scan.csv
@@ -0,0 +1,36 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"Global_Or_Interface","CB_IMGPSScanImp.pas.bk","8","Scanner","","EnScan, { for Scanner }"
+[V],"Button6Click","CB_IMGPSScanImp.pas.bk","466","Scanner","","ScannerReverse : Boolean; //æ¯å¦éåç¸"
+[V],"initkscan","CB_IMGPSScanImp.pas.bk","698","initkscan","","Procedure initkscan; //檢æ¥ææå¨çåè½"
+[V],"PageEnd","CB_IMGPSScanImp.pas.bk","873","PageEnd","","procedure PageEnd; //æææ¥æ¶å®æ"
+[V],"PageDone","CB_IMGPSScanImp.pas.bk","874","PageDone","","Procedure PageDone; //ææå®æå¾é¡¯ç¤ºå½±å"
+[V],"StatrTwainScan","CB_IMGPSScanImp.pas.bk","875","StatrTwainScan","","procedure StatrTwainScan;"
+[V],"OnAcquire","CB_IMGPSScanImp.pas.bk","876","OnAcquire","","procedure OnAcquire( const DibHandle : THandle;"
+[V],"TCB_IMGPSScanX.NewScanBtnClick","CB_IMGPSScanImp.pas.bk","2416","StatrTwainScan","","StatrTwainScan;"
+[V],"TCB_IMGPSScanX.OptionBtnClick","CB_IMGPSScanImp.pas.bk","2479","Scanner","","PatchDlg.ReverseCB.Checked := ScannerReverse;"
+[V],"TCB_IMGPSScanX.PM505Click","CB_IMGPSScanImp.pas.bk","3538","StatrTwainScan","","StatrTwainScan;"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4003","StatrTwainScan","","StatrTwainScan;"
+[V],"TCB_IMGPSScanX.SelectScanBtnClick","CB_IMGPSScanImp.pas.bk","4096","SelectScanner","","scanner.SelectScanner;"
+[V],"TCB_IMGPSScanX.SelectScanBtnClick","CB_IMGPSScanImp.pas.bk","4096","scanner.SelectScanner","","scanner.SelectScanner;"
+[V],"TCB_IMGPSScanX.SelectScanBtnClick","CB_IMGPSScanImp.pas.bk","4096","Scanner","","scanner.SelectScanner;"
+[V],"TCB_IMGPSScanX.AddScanBtnClick","CB_IMGPSScanImp.pas.bk","4230","StatrTwainScan","","StatrTwainScan;"
+[V],"TCB_IMGPSScanX.Button3Click","CB_IMGPSScanImp.pas.bk","4293","initkscan","","//initkscan;"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4390","StatrTwainScan","","procedure TCB_IMGPSScanX.StatrTwainScan;"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4394","Scanner","","if not Scanner.IsConfigured then"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4412","Scanner.OpenSource","","Scanner.OpenSource;"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4426","Scanner.CloseSource","","Scanner.CloseSource;"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4431","OnAcquire","","Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));"
+[V],"TCB_IMGPSScanX.StatrTwainScan","CB_IMGPSScanImp.pas.bk","4431","Scanner.AcquireWithSourceOpen","","Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));"
+[V],"TCB_IMGPSScanX.OnAcquire","CB_IMGPSScanImp.pas.bk","4444","OnAcquire","","procedure TCB_IMGPSScanX.OnAcquire( const DibHandle : THandle;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4505","Scanner","","IF ScannerReverse then"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4635","PageEnd","","PageEnd;"
+[V],"Deletepage","CB_IMGPSScanImp.pas.bk","4667","PageDone","","PageDone;"
+[V],"TCB_IMGPSScanX.PageDone","CB_IMGPSScanImp.pas.bk","4684","PageDone","","procedure TCB_IMGPSScanX.PageDone;"
+[V],"TCB_IMGPSScanX.PageEnd","CB_IMGPSScanImp.pas.bk","4734","PageEnd","","procedure TCB_IMGPSScanX.PageEnd;"
+[V],"TCB_IMGPSScanX.R_W_Scanini","CB_IMGPSScanImp.pas.bk","5264","Scanner","","ScannerReverse := ini.ReadBool('Scanner','Reverse',Def_ScannerReverse);"
+[V],"TCB_IMGPSScanX.GetDefScanIni","CB_IMGPSScanImp.pas.bk","5303","Scanner","","Def_ScannerReverse := False;"
+[V],"TCB_IMGPSScanX.initkscan","CB_IMGPSScanImp.pas.bk","9242","initkscan","","procedure TCB_IMGPSScanX.initkscan;"
+[V],"TCB_IMGPSScanX.initkscan","CB_IMGPSScanImp.pas.bk","9245","Scanner","","if Scanner.IsConfigured then"
+[V],"TCB_IMGPSScanX.initkscan","CB_IMGPSScanImp.pas.bk","9248","Scanner.OpenSource","","Scanner.OpenSource;"
+[V],"TCB_IMGPSScanX.initkscan","CB_IMGPSScanImp.pas.bk","9259","Scanner.CloseSource","","Scanner.CloseSource;"
+[V],"TCB_IMGPSScanX.Timer1Timer","CB_IMGPSScanImp.pas.bk","15146","initkscan","","initkscan;"
\ No newline at end of file
diff --git a/scripts/dist/CB_IMGPSScanImp.pas.bk.transp.csv b/scripts/dist/CB_IMGPSScanImp.pas.bk.transp.csv
new file mode 100644
index 0000000..8d7e608
--- /dev/null
+++ b/scripts/dist/CB_IMGPSScanImp.pas.bk.transp.csv
@@ -0,0 +1,71 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"Global_Or_Interface","CB_IMGPSScanImp.pas.bk","25","IIS_Ftp","","SBSocket,IIS_Ftp, SBSimpleFTPS;"
+[V],"Global_Or_Interface","CB_IMGPSScanImp.pas.bk","277","TElHTTPSClient","","HTTPSClient: TElHTTPSClient;"
+[V],"Global_Or_Interface","CB_IMGPSScanImp.pas.bk","279","TElSimpleFTPSClient","","FTPSClient1: TElSimpleFTPSClient;"
+[V],"HTTPSClientCertificateValidate","CB_IMGPSScanImp.pas.bk","348","HTTPSClientCertificateValidate","","procedure HTTPSClientCertificateValidate(Sender: TObject;"
+[V],"SetFtpInfo","CB_IMGPSScanImp.pas.bk","635","SetFtpInfo","","Procedure SetFtpInfo; //餵å
¥FTPè³è¨"
+[V],"FtpCaseComplete","CB_IMGPSScanImp.pas.bk","636","FtpCaseComplete","","Function FtpCaseComplete(SendData:String):Boolean;"
+[V],"LoadFileGetMD5","CB_IMGPSScanImp.pas.bk","899","LoadFileGetMD5","","function LoadFileGetMD5(const filename:string):string; //20170809 åçæªæ¡çMD5"
+[V],"TCB_IMGPSScanX.InitExistImgList","CB_IMGPSScanImp.pas.bk","1352","LoadFileGetMD5","","LogFile1.LogToFile(logTimeString+casepath+'Download\'+ST1.Strings[i]+',MD5='+LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i]));"
+[V],"TCB_IMGPSScanX.SampleScanBtnClick","CB_IMGPSScanImp.pas.bk","4021","upFile","","if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.tif',FReWrite,Memo1,False) then"
+[V],"TCB_IMGPSScanX.Button5Click","CB_IMGPSScanImp.pas.bk","4373","SetFtpInfo","","SetFtpInfo;"
+[V],"TCB_IMGPSScanX.Button5Click","CB_IMGPSScanImp.pas.bk","4374","IIS_Ftp","","IIS_Ftp.FtpsConnect;"
+[V],"TCB_IMGPSScanX.Button6Click","CB_IMGPSScanImp.pas.bk","4382","SetFtpInfo","","SetFtpInfo;"
+[V],"TCB_IMGPSScanX.Button6Click","CB_IMGPSScanImp.pas.bk","4383","IIS_Ftp","","IIS_Ftp.FtpsConnect;"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","4958","En_DecryptionStr_Base64","","SFileName := En_DecryptionStr_Base64('E','MPSLIC_SCAN.lic','9338430');"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","4968","dnFile","","//if not dnFile(HTTPSClient,Furl,'servlet/CWC03',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.ExportBtClick","CB_IMGPSScanImp.pas.bk","4970","dnFile_Get","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5045","En_DecryptionStr_Base64","","if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then"
+[V],"TCB_IMGPSScanX.ImportBtClick","CB_IMGPSScanImp.pas.bk","5058","upFile","","//if not upFile(HTTPSClient,FUrl,'servlet/CWC04','formid='+LicName+'@workno=CW@mode=sample','file',ZipPath+LicName,FReWrite,Memo1,False) then"
+[V],"TCB_IMGPSScanX.HTTPSClientCertificateValidate","CB_IMGPSScanImp.pas.bk","5473","HTTPSClientCertificateValidate","","procedure TCB_IMGPSScanX.HTTPSClientCertificateValidate(Sender: TObject;"
+[V],"TCB_IMGPSScanX.GetServerDate","CB_IMGPSScanImp.pas.bk","5603","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/servertimeforocx','',FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSampleInf","CB_IMGPSScanImp.pas.bk","5637","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/serversampleforocx','work_no='+FWork_no,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf1","CB_IMGPSScanImp.pas.bk","5674","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf1","CB_IMGPSScanImp.pas.bk","5679","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=1&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf2","CB_IMGPSScanImp.pas.bk","5716","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf2","CB_IMGPSScanImp.pas.bk","5719","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=2&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf3","CB_IMGPSScanImp.pas.bk","5755","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf3","CB_IMGPSScanImp.pas.bk","5759","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=3&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf4","CB_IMGPSScanImp.pas.bk","5796","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf4","CB_IMGPSScanImp.pas.bk","5799","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=4&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf5","CB_IMGPSScanImp.pas.bk","5836","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf5","CB_IMGPSScanImp.pas.bk","5839","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=5&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf6","CB_IMGPSScanImp.pas.bk","5876","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf6","CB_IMGPSScanImp.pas.bk","5879","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=6&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.GetSetInf7","CB_IMGPSScanImp.pas.bk","5916","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetSetInf7","CB_IMGPSScanImp.pas.bk","5919","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=7&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.ImageReSize_FormID","CB_IMGPSScanImp.pas.bk","6388","LoadFileGetMD5","","if (ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName)) and (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName))=-1) then"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6656","upFile","","if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6680","SetFtpInfo","","SetFtpInfo;"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6682","IIS_Ftp","","if not IIS_Ftp.FtpsConnect then"
+[V],"TCB_IMGPSScanX.TransCaseID","CB_IMGPSScanImp.pas.bk","6695","FtpCaseComplete","","if not FtpCaseComplete(SendData) then //Ftpä¸å³å¾éç¥å®æ"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6838","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.GetNode2Name","CB_IMGPSScanImp.pas.bk","6840","dnFile","","if not dnFile(HTTPSClient,DownUrl,'','',DPath+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.DownLoadImage","CB_IMGPSScanImp.pas.bk","6959","SetFtpInfo","","SetFtpInfo;"
+[V],"TCB_IMGPSScanX.DownLoadImage","CB_IMGPSScanImp.pas.bk","6961","IIS_Ftp","","if not IIS_Ftp.FtpsConnect then"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","6987","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","6991","dnFile_Get","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.Down_Img","CB_IMGPSScanImp.pas.bk","6991","dnFile","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.DistinctDocinCase","CB_IMGPSScanImp.pas.bk","7323","LoadFileGetMD5","","if (ISExistImg(Path+S.Strings[i])) or (reSizeExistImgList.IndexOf(LoadFileGetMD5(Path+S.Strings[i]))<>-1) then"
+[V],"TCB_IMGPSScanX.LoadFileGetMD5","CB_IMGPSScanImp.pas.bk","9551","LoadFileGetMD5","","function TCB_IMGPSScanX.LoadFileGetMD5(const filename: string): string;"
+[V],"TCB_IMGPSScanX.LoadFileGetMD5","CB_IMGPSScanImp.pas.bk","9558","TIdHashMessageDigest5","","idmd5:TIdHashMessageDigest5; //import IdHashMessageDigest, idHash"
+[V],"TCB_IMGPSScanX.CheckAvailable","CB_IMGPSScanImp.pas.bk","9835","dnFile_Get","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.CheckAvailable","CB_IMGPSScanImp.pas.bk","9835","dnFile","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.CheckAvailable","CB_IMGPSScanImp.pas.bk","9891","upFile","","if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False) then"
+[V],"TCB_IMGPSScanX.TransOldCaseFile","CB_IMGPSScanImp.pas.bk","10910","upFile","","if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then"
+[V],"DecodeFtpInfo","CB_IMGPSScanImp.pas.bk","10976","En_DecryptionStr_Base64","","FtpStr := En_DecryptionStr_Base64('D',EncryStr,MpsKey);"
+[V],"DecodeFtpInfo","CB_IMGPSScanImp.pas.bk","10994","ProcessServlet_FormData","","If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/ftps',SendData,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.SetFtpInfo","CB_IMGPSScanImp.pas.bk","11042","SetFtpInfo","","Procedure TCB_IMGPSScanX.SetFtpInfo; //餵å
¥FTPè³è¨"
+[V],"TCB_IMGPSScanX.SetFtpInfo","CB_IMGPSScanImp.pas.bk","11044","IIS_Ftp","","IIS_Ftp.Display1 := Display1;"
+[V],"TCB_IMGPSScanX.FtpCaseComplete","CB_IMGPSScanImp.pas.bk","11072","FtpCaseComplete","","Function TCB_IMGPSScanX.FtpCaseComplete(SendData:String):Boolean;"
+[V],"TCB_IMGPSScanX.FtpCaseComplete","CB_IMGPSScanImp.pas.bk","11075","ProcessServlet_FormData","","If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/caseupload',SendData,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.ISExistImg","CB_IMGPSScanImp.pas.bk","11359","LoadFileGetMD5","","if ExistImgList.IndexOf(LoadFileGetMD5(filename))<>-1 then"
+[V],"TCB_IMGPSScanX.DistinctFormCode","CB_IMGPSScanImp.pas.bk","12222","LoadFileGetMD5","","LogFile1.LogToFile(logTimeString+S.Strings[i]+' reSizeExistImgList='+BoolToStr(reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1,true));"
+[V],"TCB_IMGPSScanX.DownLanguage","CB_IMGPSScanImp.pas.bk","13062","dnFile","","//dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)"
+[V],"TCB_IMGPSScanX.DownLanguage","CB_IMGPSScanImp.pas.bk","13063","dnFile_Get","","If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14527","dnFile_Get","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.GetOMRCheckSet","CB_IMGPSScanImp.pas.bk","14527","dnFile","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14585","dnFile_Get","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.GetKeyinSet","CB_IMGPSScanImp.pas.bk","14585","dnFile","","if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TCB_IMGPSScanX.CaseAsk","CB_IMGPSScanImp.pas.bk","14634","ProcessServlet_Get","","If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then"
+[V],"TCB_IMGPSScanX.CaseComplete","CB_IMGPSScanImp.pas.bk","14689","En_DecryptionStr_Base64","","EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
\ No newline at end of file
diff --git a/scripts/dist/CB_IMGPSScanImp.remaining.txt b/scripts/dist/CB_IMGPSScanImp.remaining.txt
new file mode 100644
index 0000000..e9fe9c3
--- /dev/null
+++ b/scripts/dist/CB_IMGPSScanImp.remaining.txt
@@ -0,0 +1,1051 @@
+[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]
\ No newline at end of file
diff --git a/scripts/dist/ErrList.pas.image.csv b/scripts/dist/ErrList.pas.image.csv
new file mode 100644
index 0000000..793ade6
--- /dev/null
+++ b/scripts/dist/ErrList.pas.image.csv
@@ -0,0 +1,5 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"ImageScrollBox1NewGraphic","ErrList.pas","109","TDibGraphic","","procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);"
+[V],"TErrlistForm.GetOMRErrini","ErrList.pas","487","FindPoint","","//FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'NONE');"
+[V],"TErrlistForm.ImageScrollBox1NewGraphic","ErrList.pas","553","TDibGraphic","","procedure TErrlistForm.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);"
+[V],"TErrlistForm.ImageScrollBox1NewGraphic","ErrList.pas","559","ConvertToBW","","ConvertToBW(ISB_BW.Graphic);"
\ No newline at end of file
diff --git a/scripts/dist/ErrList.pas.io.csv b/scripts/dist/ErrList.pas.io.csv
new file mode 100644
index 0000000..b3999a0
--- /dev/null
+++ b/scripts/dist/ErrList.pas.io.csv
@@ -0,0 +1,12 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"TErrlistForm.RejectBtClick","ErrList.pas","155","FileExists","","if FileExists(iniPath+'RemoveMemo.dat') then"
+[V],"TErrlistForm.RejectBtClick","ErrList.pas","156","LoadFromFile","","S.LoadFromFile(iniPath+'RemoveMemo.dat');"
+[V],"TErrlistForm.RejectBtClick","ErrList.pas","161","SaveToFile","","S.SaveToFile(iniPath+'RemoveMemo.dat');"
+[V],"TErrlistForm.DeleteBtClick","ErrList.pas","189","FileExists","","if FileExists(iniPath+'RemoveMemo.dat') then"
+[V],"TErrlistForm.DeleteBtClick","ErrList.pas","190","LoadFromFile","","S.LoadFromFile(iniPath+'RemoveMemo.dat');"
+[V],"TErrlistForm.DeleteBtClick","ErrList.pas","197","SaveToFile","","S.SaveToFile(iniPath+'RemoveMemo.dat');"
+[V],"TErrlistForm.EnforceBtClick","ErrList.pas","241","FileExists","","if FileExists(iniPath+'RemoveMemo.dat') then"
+[V],"TErrlistForm.EnforceBtClick","ErrList.pas","242","LoadFromFile","","S.LoadFromFile(iniPath+'RemoveMemo.dat');"
+[V],"TErrlistForm.EnforceBtClick","ErrList.pas","252","SaveToFile","","S.SaveToFile(iniPath+'RemoveMemo.dat');"
+[V],"TErrlistForm.GetOMRErrini","ErrList.pas","485","LoadFromFile","","ImageScrollBox1.LoadFromFile(FileName,1);"
+[V],"TErrlistForm.GetOMRErrini","ErrList.pas","504","FileExists","","if (RelaFileName <> '') and FileExists(RelaFileName) then //¦³Ãö«Y¼v¹³"
\ No newline at end of file
diff --git a/scripts/dist/OldCaseInfo.pas.image.csv b/scripts/dist/OldCaseInfo.pas.image.csv
new file mode 100644
index 0000000..66b1383
--- /dev/null
+++ b/scripts/dist/OldCaseInfo.pas.image.csv
@@ -0,0 +1,2 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"TOldCaseInfoForm.ShowImage","OldCaseInfo.pas","333","DpiResize","","DpiResize(ISB.Graphic,36,False);"
\ No newline at end of file
diff --git a/scripts/dist/OldCaseInfo.pas.io.csv b/scripts/dist/OldCaseInfo.pas.io.csv
new file mode 100644
index 0000000..027731f
--- /dev/null
+++ b/scripts/dist/OldCaseInfo.pas.io.csv
@@ -0,0 +1,18 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"TOldCaseInfoForm.Down_Img","OldCaseInfo.pas","131","FileExists","","if FileExists(Path+CaseID+'.zip') then"
+[V],"TOldCaseInfoForm.LoadImg","OldCaseInfo.pas","185","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat') then"
+[V],"TOldCaseInfoForm.LoadImg","OldCaseInfo.pas","186","LoadFromFile","","DocDirList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat');"
+[V],"TOldCaseInfoForm.DocNo2DocName","OldCaseInfo.pas","233","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat') then"
+[V],"TOldCaseInfoForm.DocNo2DocName","OldCaseInfo.pas","234","LoadFromFile","","DocNo_DocNameList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',TEnCoding.UTF8);"
+[V],"TOldCaseInfoForm.Docdir2Pages","OldCaseInfo.pas","261","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then"
+[V],"TOldCaseInfoForm.Docdir2Pages","OldCaseInfo.pas","262","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');"
+[V],"TOldCaseInfoForm.ShowImage","OldCaseInfo.pas","317","FileExists","","if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then"
+[V],"TOldCaseInfoForm.ShowImage","OldCaseInfo.pas","318","LoadFromFile","","FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');"
+[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","382","LoadFromFile","","DocNoList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat',Tencoding.UTF8);"
+[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","400","RenameFile","","RenameFile(iPath+OldFile,iPath+NewFile);"
+[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","401","SaveToFile","","FileList.SaveToFile(iPath+'Context.dat',Tencoding.UTF8);"
+[V],"TOldCaseInfoForm.ErrFormtoCurrentForm","OldCaseInfo.pas","412","MoveFile","","//MoveFile(PWideChar(iPath),PWideChar(iiPath));"
+[V],"TOldCaseInfoForm.ISBClick","OldCaseInfo.pas","595","LoadFromFile","","ISB1.LoadFromFile(SelectISB.FileName,1);"
+[V],"TOldCaseInfoForm.LoadBtClick","OldCaseInfo.pas","812","FileExists","","if not FileExists(imageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then"
+[V],"TOldCaseInfoForm.LoadBtClick","OldCaseInfo.pas","814","DirectoryExists","","if DirectoryExists(ImageSavePath+CaseID+'\'+UseCaseID) then"
+[V],"TOldCaseInfoForm.LoadBtClick","OldCaseInfo.pas","815","_DelTree","","_Deltree(ImageSavePath+CaseID+'\'+UseCaseID);"
\ No newline at end of file
diff --git a/scripts/dist/OldCaseInfo.pas.transp.csv b/scripts/dist/OldCaseInfo.pas.transp.csv
new file mode 100644
index 0000000..bceeb82
--- /dev/null
+++ b/scripts/dist/OldCaseInfo.pas.transp.csv
@@ -0,0 +1,7 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"Global_Or_Interface","OldCaseInfo.pas","40","TElHTTPSClient","","HTTPSClient: TElHTTPSClient;"
+[V],"HTTPSClientCertificateValidate","OldCaseInfo.pas","46","HTTPSClientCertificateValidate","","procedure HTTPSClientCertificateValidate(Sender: TObject;"
+[V],"TOldCaseInfoForm.Down_Img","OldCaseInfo.pas","108","En_DecryptionStr_Base64","","//EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);"
+[V],"TOldCaseInfoForm.Down_Img","OldCaseInfo.pas","113","dnFile_Get","","if not dnFile_Get(HTTPSClient,Furl,'service/slic/SLIC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TOldCaseInfoForm.Down_Img","OldCaseInfo.pas","113","dnFile","","if not dnFile_Get(HTTPSClient,Furl,'service/slic/SLIC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then"
+[V],"TOldCaseInfoForm.HTTPSClientCertificateValidate","OldCaseInfo.pas","710","HTTPSClientCertificateValidate","","procedure TOldCaseInfoForm.HTTPSClientCertificateValidate(Sender: TObject;"
\ No newline at end of file
diff --git a/scripts/dist/PatchFom.pas.image.csv b/scripts/dist/PatchFom.pas.image.csv
new file mode 100644
index 0000000..0209b07
--- /dev/null
+++ b/scripts/dist/PatchFom.pas.image.csv
@@ -0,0 +1,7 @@
+方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+"Global_Or_Interface","PatchFom.pas","22","Rotate","","ScanRotateRG: TRadioGroup;"
+"TPatchDlg.DefaultBtClick","PatchFom.pas","97","Rotate","","case Def_ScanRotate of"
+"TPatchDlg.DefaultBtClick","PatchFom.pas","98","Rotate","","0 : ScanRotateRG.ItemIndex := 0;"
+"TPatchDlg.DefaultBtClick","PatchFom.pas","99","Rotate","","270 : ScanRotateRG.ItemIndex := 1;"
+"TPatchDlg.DefaultBtClick","PatchFom.pas","100","Rotate","","180 : ScanRotateRG.ItemIndex := 2;"
+"TPatchDlg.DefaultBtClick","PatchFom.pas","101","Rotate","","90 : PatchDlg.ScanRotateRG.ItemIndex := 3;"
\ No newline at end of file
diff --git a/scripts/dist/PatchFom.pas.scan.csv b/scripts/dist/PatchFom.pas.scan.csv
new file mode 100644
index 0000000..8dcc240
--- /dev/null
+++ b/scripts/dist/PatchFom.pas.scan.csv
@@ -0,0 +1,3 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],"Global_Or_Interface","PatchFom.pas","18","Scanner","","ScannerGB: TGroupBox;"
+[V],"TPatchDlg.DefaultBtClick","PatchFom.pas","91","Scanner","","ReverseCB.Checked := Def_ScannerReverse;"
\ No newline at end of file
diff --git a/scripts/dist/deps.all.csv b/scripts/dist/deps.all.csv
new file mode 100644
index 0000000..c0ec7ca
--- /dev/null
+++ b/scripts/dist/deps.all.csv
@@ -0,0 +1,607 @@
+[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段
+[V],Global_Or_Interface,CB_IMGPSScanImp.pas.bk,9,TDibGraphic,,EnDiGrph, { for TDibGraphic }
+[V],Global_Or_Interface,CB_IMGPSScanImp.pas.bk,80,TTiffGraphic,,Graphic : TTiffGraphic;
+[V],ImageScrollBox1NewGraphic,CB_IMGPSScanImp.pas.bk,393,TDibGraphic,,procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+[V],Button6Click,CB_IMGPSScanImp.pas.bk,598,Rotate,,BarCodeRotate : Integer; //æ¢ç¢¼è¦è½çè§åº¦
+[V],Button6Click,CB_IMGPSScanImp.pas.bk,615,FJpgCompression,,FJpgCompression:integer;// 20171211 jpg to tif çå£ç¸®ç
+[V],GetSiteOMR,CB_IMGPSScanImp.pas.bk,674,GetSiteOMR,,function GetSiteOMR(FileName, Site: String;bt: Integer): Integer;
+[V],ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,742,ImageReSize_FormID,,Procedure ImageReSize_FormID(CaseID,FileName:String); //ä¾ååå®ä½é»å縮æ¾
+[V],ImageReSize_tmp,CB_IMGPSScanImp.pas.bk,743,ImageReSize_tmp,,Procedure ImageReSize_tmp(FormID,FileName:String); //ä¾ååå®ä½é»å縮æ¾(æ«åæª)
+[V],CheckNeedCrop,CB_IMGPSScanImp.pas.bk,804,TDibGraphic,,Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å
+[V],CheckNeedCrop,CB_IMGPSScanImp.pas.bk,804,CheckNeedCrop,,Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å
+[V],Initialize,CB_IMGPSScanImp.pas.bk,1044,TDibGraphic,,EnPrint, { for TEnvisionPrintMode, TDibGraphicPrinter }
+[V],TCB_IMGPSScanX.ISB1ImageMouseUp,CB_IMGPSScanImp.pas.bk,1505,TJpegGraphic,,TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.ISB1ImageMouseUp,CB_IMGPSScanImp.pas.bk,1505,SaveQuality,,TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.PM604Click,CB_IMGPSScanImp.pas.bk,2315,DeskewImg,,DeskewImg(iISB.Graphic);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2799,TTiffGraphic,,iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic;
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2801,TJpegGraphic,,JpgGr : TJpegGraphic;
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2838,FJpgCompression,,cooom:=FJpgCompression;//20171211彩è²tifæ¡jpgå£ç¸®çæ¯ä¾
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2850,DeskewImg,,DeskewImg(ISB.Graphic);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2856,ConvertToBW,,ConvertToBW(ISB_BW.Graphic);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2866,MpsGetBarcode,,MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //å¤æ·A3 æç¨FormID æ以è¦å
辨æ¢ç¢¼
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2871,Rotate,,Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2879,CheckNeedCrop,,If CheckNeedCrop(iGraphic_First) Then
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2886,CropImg,,CropImg(iGraphic_First, iRect);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3000,ifBlackWhite,,if iGraphic.ImageFormat = ifBlackWhite then //20200806 åºç¾ç¡æ³å¯å
¥,æ¯å color256ç¡æ³å£JPEG,å¾
å ±æå¾åéå
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3003,tcGroup4,,iGraphic.Compression:=tcGroup4;
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3005,ifColor25,,else if iGraphic.ImageFormat= ifColor256 then
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3008,ConvertToGray,,ConverttoGray(iGraphic);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3009,tcJpeg,,iGraphic.Compression:=tcJPEG;
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3012,ifTrueColor,,else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3012,ifGray256,,else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,3050,SaveQuality,,JpgGr.SaveQuality := 30;
+[V],TCB_IMGPSScanX.PM301Click,CB_IMGPSScanImp.pas.bk,3475,ifBlackWhite,,ScanColor := ifBlackWhite;
+[V],TCB_IMGPSScanX.PM302Click,CB_IMGPSScanImp.pas.bk,3483,ifGray256,,ScanColor := ifGray256;
+[V],TCB_IMGPSScanX.PM303Click,CB_IMGPSScanImp.pas.bk,3492,ifTrueColor,,ScanColor := ifTrueColor;
+[V],TCB_IMGPSScanX.PM510Click,CB_IMGPSScanImp.pas.bk,3664,DeskewImg,,DeskewImg(DisplayISB.Graphic);
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4402,TTiffGraphic,,ScanInfo.Graphic := TTiffGraphic.Create;
+[V],TCB_IMGPSScanX.OnAcquire,CB_IMGPSScanImp.pas.bk,4455,TTiffGraphic,,iGraphic,iGraphic_First,iGraphic_sec : TTiffGraphic;
+[V],TCB_IMGPSScanX.OnAcquire,CB_IMGPSScanImp.pas.bk,4457,TJpegGraphic,,JpgGr : TJpegGraphic;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4460,TDibGraphic,,function Deletepage(Graphic:TDibGraphic;BlankSize:Integer):Boolean;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4487,ifBlackWhite,,if pScanInfo^.Graphic.ImageFormat = ifBlackWhite then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4492,tcGroup4,,pScanInfo^.Graphic.Compression := tcGroup4;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4493,MpsGetBarcode,,MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4498,Rotate,,Rotate(pScanInfo^.Graphic,MpsBarcodeinf.r180[i]);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4506,NegativeImg,,NegativeImg(pScanInfo^.Graphic);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4509,DeskewImg,,DeskewImg(pScanInfo^.Graphic);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4512,CleanupBorder,,CleanupBorder(pScanInfo^.Graphic);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4514,ifTrueColor,,else if pScanInfo^.Graphic.ImageFormat = ifTrueColor then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4529,tcJpeg,,pScanInfo^.Graphic.Compression := tcJpeg;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4530,FJpgCompression,,pScanInfo^.Graphic.JpegQuality := FJpgCompression;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4532,ifColor25,,else if pScanInfo^.Graphic.ImageFormat = ifColor256 Then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4535,ConvertToGray,,ConvertToGray(pScanInfo^.Graphic);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4539,ifGray256,,else if pScanInfo^.Graphic.ImageFormat = ifGray256 Then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4566,tcPackBits,,pScanInfo^.Graphic.Compression := tcPackBits;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4571,TTiffGraphic,,iGraphic_First := TTiffGraphic.Create;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4577,CheckNeedCrop,,if CheckNeedCrop(iGraphic_First) Then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4583,CropImg,,CropImg(iGraphic_First,iRect);
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4656,TJpegGraphic,,JpgGr := TJpegGraphic.Create;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4659,SaveQuality,,JpgGr.SaveQuality := FJpgCompression;
+[V],TCB_IMGPSScanX.GetSiteOMR,CB_IMGPSScanImp.pas.bk,5173,GetSiteOMR,,function TCB_IMGPSScanX.GetSiteOMR(FileName,Site:String;bt: Integer): Integer;
+[V],TCB_IMGPSScanX.GetSiteOMR,CB_IMGPSScanImp.pas.bk,5191,FindPoint,,FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');
+[V],TCB_IMGPSScanX.GetSiteOMR,CB_IMGPSScanImp.pas.bk,5222,Get_OMR,,result := Get_OMR(ISB_BW.Graphic,OMRRect);
+[V],TCB_IMGPSScanX.GetDefScanIni,CB_IMGPSScanImp.pas.bk,5366,Rotate,,Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_ROTATE_MODE' Then //æçææè½è§åº¦
+[V],TCB_IMGPSScanX.GetDefScanIni,CB_IMGPSScanImp.pas.bk,5462,FJpgCompression,,FJpgCompression := StrToInt(PARA_CONTENT);
+[V],TCB_IMGPSScanX.CaseReSize,CB_IMGPSScanImp.pas.bk,6336,ImageReSize_FormID,,ImageReSize_FormID(CaseID,FileName); //ä¾ååå®ä½é»å縮æ¾
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6343,ImageReSize_FormID,,Procedure TCB_IMGPSScanX.ImageReSize_FormID(CaseID,FileName:String); //ä¾ååå®ä½é»å縮æ¾
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6376,FindPoint,,//FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH);
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6379,CheckSize,,SizeStr := CheckSize(ISB_BW,UpLPoint,UpRPoint,DownLPoint,DW,DH);
+[V],TCB_IMGPSScanX.ImageReSize_tmp,CB_IMGPSScanImp.pas.bk,6421,ImageReSize_tmp,,Procedure TCB_IMGPSScanX.ImageReSize_tmp(FormID,FileName:String); //ä¾ååå®ä½é»å縮æ¾(æ«åæª)
+[V],TCB_IMGPSScanX.ImageReSize_tmp,CB_IMGPSScanImp.pas.bk,6437,CheckSize,,SizeStr := CheckSize(ImageScrollBox1,UpLPoint,UpRPoint,DownLPoint,DW,DH);
+[V],TCB_IMGPSScanX.ImageScrollBox1NewGraphic,CB_IMGPSScanImp.pas.bk,6447,TDibGraphic,,procedure TCB_IMGPSScanX.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+[V],TCB_IMGPSScanX.ImageScrollBox1NewGraphic,CB_IMGPSScanImp.pas.bk,6453,ConvertToBW,,ConvertToBW(ISB_BW.Graphic);
+[V],TCB_IMGPSScanX.ScanGrayCBClick,CB_IMGPSScanImp.pas.bk,8573,ifGray256,,ScanColor:=ifGray256;
+[V],TCB_IMGPSScanX.ScanGrayCBClick,CB_IMGPSScanImp.pas.bk,8579,ifBlackWhite,,ScanColor := ifBlackWhite;
+[V],TCB_IMGPSScanX.ScanGrayCBClick,CB_IMGPSScanImp.pas.bk,8591,ifTrueColor,,ScanColor := ifTrueColor ;
+[V],TCB_IMGPSScanX.initParameter,CB_IMGPSScanImp.pas.bk,9290,ifBlackWhite,,ScanColor := ifBlackWhite;
+[V],TCB_IMGPSScanX.initParameter,CB_IMGPSScanImp.pas.bk,9295,ifGray256,,ScanColor := ifGray256 ;
+[V],TCB_IMGPSScanX.initParameter,CB_IMGPSScanImp.pas.bk,9301,ifTrueColor,,ScanColor := ifTrueColor ;
+[V],TCB_IMGPSScanX.SmoothCBClick,CB_IMGPSScanImp.pas.bk,9927,Image_Smooth,,Image_Smooth(ISB1.Graphic);
+[V],TCB_IMGPSScanX.Case2Mask,CB_IMGPSScanImp.pas.bk,9962,FindPoint,,//ParserPoint(CropMpsV.FindPoint(Anchor));
+[V],TCB_IMGPSScanX.CheckNeedCrop,CB_IMGPSScanImp.pas.bk,9996,TDibGraphic,,Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å
+[V],TCB_IMGPSScanX.CheckNeedCrop,CB_IMGPSScanImp.pas.bk,9996,CheckNeedCrop,,Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //æ¯å¦æ¯A3è¦åå½±å
+[V],TCB_IMGPSScanX.PrintImg,CB_IMGPSScanImp.pas.bk,10223,TDibGraphic,,GraphicPrinter : TDibGraphicPrinter;
+[V],PrintWithManualPrintJob,CB_IMGPSScanImp.pas.bk,10241,TDibGraphic,,property of the TDibGraphicPrinter object is used to specify the
+[V],PrintWithAutoPrintJob,CB_IMGPSScanImp.pas.bk,10274,TDibGraphic,,GraphicPrinter := TDibGraphicPrinter.Create;
+[V],TCB_IMGPSScanX.OMRCheckCase,CB_IMGPSScanImp.pas.bk,12510,ImageReSize_FormID,,ImageReSize_FormID(CaseID,OMRFile);
+[V],TCB_IMGPSScanX.OMRCheckCase,CB_IMGPSScanImp.pas.bk,12545,GetSiteOMR,,//Showmessage(ColCName +','+ inttostr(OMRMpsV1.GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site))+','+inttostr(Pixel + SafePixel));
+[V],TCB_IMGPSScanX.OMRCheckCase,CB_IMGPSScanImp.pas.bk,12548,FindPoint,,//FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,ANCHOR);
+[V],TCB_IMGPSScanX.view_image_DocNo,CB_IMGPSScanImp.pas.bk,13278,DpiResize,,DpiResize(ISB.Graphic,36,False);
+[V],TCB_IMGPSScanX.SpeedButton14Click,CB_IMGPSScanImp.pas.bk,13407,Rotate,,Rotate(ISB1.Graphic,270);
+[V],TCB_IMGPSScanX.SpeedButton14Click,CB_IMGPSScanImp.pas.bk,13410,TJpegGraphic,,TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.SpeedButton14Click,CB_IMGPSScanImp.pas.bk,13410,SaveQuality,,TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.SpeedButton15Click,CB_IMGPSScanImp.pas.bk,13428,Rotate,,Rotate(ISB1.Graphic,180);
+[V],TCB_IMGPSScanX.SpeedButton15Click,CB_IMGPSScanImp.pas.bk,13431,TJpegGraphic,,TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.SpeedButton15Click,CB_IMGPSScanImp.pas.bk,13431,SaveQuality,,TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.SpeedButton16Click,CB_IMGPSScanImp.pas.bk,13449,Rotate,,Rotate(ISB1.Graphic,90);
+[V],TCB_IMGPSScanX.SpeedButton16Click,CB_IMGPSScanImp.pas.bk,13452,TJpegGraphic,,TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.SpeedButton16Click,CB_IMGPSScanImp.pas.bk,13452,SaveQuality,,TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
+[V],TCB_IMGPSScanX.ISBClick,CB_IMGPSScanImp.pas.bk,13729,Image_Smooth,,Image_Smooth(ISB1.Graphic);
+[V],TCB_IMGPSScanX.Timer1Timer,CB_IMGPSScanImp.pas.bk,14919,FJpgCompression,,FJpgCompression:=50;
+[V],TCB_IMGPSScanX.Set_scancolor,CB_IMGPSScanImp.pas.bk,16357,ifBlackWhite,,ScanColor := ifBlackWhite;
+[V],TCB_IMGPSScanX.Set_scancolor,CB_IMGPSScanImp.pas.bk,16367,ifGray256,,ScanColor := ifGray256 ;
+[V],TCB_IMGPSScanX.Set_scancolor,CB_IMGPSScanImp.pas.bk,16372,ifTrueColor,,ScanColor := ifTrueColor ;
+[V],ImageScrollBox1NewGraphic,ErrList.pas,109,TDibGraphic,,procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+[V],TErrlistForm.GetOMRErrini,ErrList.pas,487,FindPoint,,//FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'NONE');
+[V],TErrlistForm.ImageScrollBox1NewGraphic,ErrList.pas,553,TDibGraphic,,procedure TErrlistForm.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+[V],TErrlistForm.ImageScrollBox1NewGraphic,ErrList.pas,559,ConvertToBW,,ConvertToBW(ISB_BW.Graphic);
+[V],TOldCaseInfoForm.ShowImage,OldCaseInfo.pas,333,DpiResize,,DpiResize(ISB.Graphic,36,False);
+[V],ReSortFileName_New,CB_IMGPSScanImp.pas.bk,726,ReSortFileName,,Procedure ReSortFileName_New(Path:String); //æªåéæ°æåº
+[V],ReSortFileName,CB_IMGPSScanImp.pas.bk,727,ReSortFileName,,Procedure ReSortFileName(Path:String); //æªåéæ°æåº
+[V],ReSortFileName2Scanlist,CB_IMGPSScanImp.pas.bk,728,ReSortFileName,,Procedure ReSortFileName2Scanlist(Path:String); //æªåéæ°æåºçµ¦Scanlist.dat
+[V],DeleteImageFile,CB_IMGPSScanImp.pas.bk,733,DeleteImageFile,,Procedure DeleteImageFile(Path,FileName,CaseID:String); // åªé¤æªæ¡
+[V],DeleteDocNoFile,CB_IMGPSScanImp.pas.bk,735,DeleteDocNoFile,,Function DeleteDocNoFile(Path,DocNo:String):Boolean; //åªé¤æå®DocNoæ件
+[V],DeleteShowFile,CB_IMGPSScanImp.pas.bk,736,DeleteShowFile,,Procedure DeleteShowFile(Path:String); //åªé¤é¡¯ç¤ºä¸çå½±å
+[V],GetNoNameCase,CB_IMGPSScanImp.pas.bk,756,GetNoNameCase,,Function GetNoNameCase(Path:string):String; //åæªé
èXXXX
+[V],_DelTreeForExistImg,CB_IMGPSScanImp.pas.bk,901,_DelTree,,procedure _DelTreeForExistImg(ASourceDir:String); //2017 åªé¤åç¢ºèª æèå½±åå
+[V],DeleteDocNoFileForESCAN,CB_IMGPSScanImp.pas.bk,904,DeleteDocNoFile,,function DeleteDocNoFileForESCAN(Path, DocNo: String): Boolean; //2017 確èªæ¯å¦ææªæ¸é¡æ件
+[V],TCB_IMGPSScanX.WNoteBtnClick,CB_IMGPSScanImp.pas.bk,1200,FileExists,,if FileExists(DisplayPath+'Scan_Memo.dat') then
+[V],TCB_IMGPSScanX.WNoteBtnClick,CB_IMGPSScanImp.pas.bk,1202,LoadFromFile,,S.LoadFromFile(DisplayPath+'Scan_Memo.dat');
+[V],TCB_IMGPSScanX.WNoteBtnClick,CB_IMGPSScanImp.pas.bk,1229,SaveToFile,,S.SaveToFile(DisplayPath+'Scan_Memo.dat');
+[V],TCB_IMGPSScanX.InitExistImgList,CB_IMGPSScanImp.pas.bk,1349,LoadFromFile,,ST1.LoadFromFile(casepath+'Download\Context.dat');
+[V],TCB_IMGPSScanX.ISB1ImageMouseDown,CB_IMGPSScanImp.pas.bk,1458,LoadFromFile,,TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);
+[V],TCB_IMGPSScanX.ISB1ImageMouseUp,CB_IMGPSScanImp.pas.bk,1506,SaveToFile,,TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);
+[V],TCB_IMGPSScanX.DestroyEvent,CB_IMGPSScanImp.pas.bk,1750,_DelTree,,_Deltree(ImagePath);
+[V],TCB_IMGPSScanX.PM401Click,CB_IMGPSScanImp.pas.bk,1945,GetNoNameCase,,CaseID := GetNoNameCase(ImageSavePath);
+[V],TCB_IMGPSScanX.PM401Click,CB_IMGPSScanImp.pas.bk,1947,Str2Dir,,Str2Dir(NewPath);
+[V],TCB_IMGPSScanX.PM401Click,CB_IMGPSScanImp.pas.bk,1954,RenameFile,,ReNameFile(DisplayPath+OldName,NewPath+NewName);
+[V],TCB_IMGPSScanX.PM401Click,CB_IMGPSScanImp.pas.bk,1956,SaveToFile,,S.SaveToFile(NewPath+'Context.dat');
+[V],TCB_IMGPSScanX.PM401Click,CB_IMGPSScanImp.pas.bk,1964,FileExists,,if FileExists(DisplayPath+'CaseIndex.dat') then //æåç¶è¾¦ä»£èååºä¾å寫å
¥æ°ä»¶è£¡
+[V],TCB_IMGPSScanX.PM401Click,CB_IMGPSScanImp.pas.bk,1966,LoadFromFile,,S.LoadFromFile(DisplayPath+'CaseIndex.dat');
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2159,FileExists,,if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2161,LoadFromFile,,ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2176,DirectoryExists,,if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2193,CopyFile,,CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2195,SaveToFile,,ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2197,DeleteImageFile,,DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2198,RenameFile,,//RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
+[V],TCB_IMGPSScanX.PM601Click,CB_IMGPSScanImp.pas.bk,2203,ReSortFileName,,ReSortFileName(ExtractFilePath(iISB.FileName));
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2259,Str2Dir,,Str2Dir(SavePath);
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2264,FileExists,,if FileExists(SavePath+'Context.dat') then
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2265,LoadFromFile,,FileList.LoadFromFile(SavePath+'Context.dat');
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2278,CopyFile,,CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2282,SaveToFile,,FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2283,DeleteImageFile,,DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+[V],TCB_IMGPSScanX.PM602Click,CB_IMGPSScanImp.pas.bk,2289,ReSortFileName,,ReSortFileName(ExtractFilePath(iISB.FileName));
+[V],TCB_IMGPSScanX.PM604Click,CB_IMGPSScanImp.pas.bk,2317,SaveToFile,,iISB.SaveToFile(iISB.FileName);
+[V],TCB_IMGPSScanX.PM604Click,CB_IMGPSScanImp.pas.bk,2318,LoadFromFile,,DisplayISB.LoadFromFile(DisplayISB.FileName,1);
+[V],TCB_IMGPSScanX.PM605Click,CB_IMGPSScanImp.pas.bk,2350,DeleteImageFile,,DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
+[V],TCB_IMGPSScanX.PM605Click,CB_IMGPSScanImp.pas.bk,2354,ReSortFileName,,ReSortFileName(ExtractFilePath(iISB.FileName));
+[V],TCB_IMGPSScanX.PM101Click,CB_IMGPSScanImp.pas.bk,2585,_DelTree,,_DelTree(ImageSavePath);
+[V],TCB_IMGPSScanX.PM101Click,CB_IMGPSScanImp.pas.bk,2628,DirectoryExists,,if not DirectoryExists(ImageSavePath+FCaseID) then
+[V],TCB_IMGPSScanX.PM101Click,CB_IMGPSScanImp.pas.bk,2645,DeleteDocNoFile,,//ShowMessage('DeleteDocNoFileForESCAN');
+[V],TCB_IMGPSScanX.DocNoIsExistImg,CB_IMGPSScanImp.pas.bk,2685,FileExists,,if FileExists(DocNopath+'\Context.dat') then /////20190319 Hong ç¶æ空çDocnoç®éææææ,å¢å éè¡
+[V],TCB_IMGPSScanX.DocNoIsExistImg,CB_IMGPSScanImp.pas.bk,2686,LoadFromFile,,ST.loadFromfile(DocNopath+'\Context.dat');
+[V],TCB_IMGPSScanX._DelTreeForExistImg,CB_IMGPSScanImp.pas.bk,2702,_DelTree,,procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);
+[V],TCB_IMGPSScanX.PM102Click,CB_IMGPSScanImp.pas.bk,2732,DirectoryExists,,if DirectoryExists(ImageSavePath+NewCaseID) then
+[V],TCB_IMGPSScanX.PM102Click,CB_IMGPSScanImp.pas.bk,2741,RenameFile,,RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2819,FindFirst,,FindFirst(FName, faAnyfile, FileRec);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2849,LoadFromFile,,ISB.LoadFromFile(FName, i);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2858,SaveToFile,,///ISB_BW.SaveToFile('KKKKKKKK.tif');
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2934,DirectoryExists,,If DirectoryExists(ImageSavePath + CaseID + '\') Then
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2936,_DelTree,,_DelTree(ImageSavePath + CaseID + '\');
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2942,GetNoNameCase,,CaseID := GetNoNameCase(ImageSavePath);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2947,Str2Dir,,Str2Dir(SavePath);
+[V],TCB_IMGPSScanX.PM104Click,CB_IMGPSScanImp.pas.bk,2979,FileExists,,If FileExists(SavePath + 'Context.dat') Then
+[V],TCB_IMGPSScanX.PM106Click,CB_IMGPSScanImp.pas.bk,3190,CopyFile,,CopyFormID,Copy2Caseno,CopyFileName : String;
+[V],TCB_IMGPSScanX.PM106Click,CB_IMGPSScanImp.pas.bk,3238,LoadFromFile,,S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');
+[V],TCB_IMGPSScanX.PM106Click,CB_IMGPSScanImp.pas.bk,3260,SaveToFile,,S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');
+[V],TCB_IMGPSScanX.PM109Click,CB_IMGPSScanImp.pas.bk,3400,SaveToFile,,S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+[V],TCB_IMGPSScanX.PM110Click,CB_IMGPSScanImp.pas.bk,3433,Str2Dir,,Str2Dir(SavePath);
+[V],TCB_IMGPSScanX.PM507Click,CB_IMGPSScanImp.pas.bk,3588,RenameFile,,RenameFile(DisplayPath+OldName,DisplayPath+NewName);
+[V],TCB_IMGPSScanX.PM508Click,CB_IMGPSScanImp.pas.bk,3625,_DelTree,,_DelTree(DisplayPath);
+[V],TCB_IMGPSScanX.PM508Click,CB_IMGPSScanImp.pas.bk,3634,SaveToFile,,ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');
+[V],TCB_IMGPSScanX.PM508Click,CB_IMGPSScanImp.pas.bk,3638,ReSortFileName,,ReSortFileName(DisplayPath);
+[V],TCB_IMGPSScanX.PM508Click,CB_IMGPSScanImp.pas.bk,3639,LoadFromFile,,ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');
+[V],TCB_IMGPSScanX.PM508Click,CB_IMGPSScanImp.pas.bk,3641,FileExists,,if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then
+[V],TCB_IMGPSScanX.PM510Click,CB_IMGPSScanImp.pas.bk,3665,SaveToFile,,DisplayISB.SaveToFile(DisplayISB.FileName);
+[V],TCB_IMGPSScanX.SampleScanBtnClick,CB_IMGPSScanImp.pas.bk,4009,FileExists,,if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then
+[V],TCB_IMGPSScanX.SampleScanBtnClick,CB_IMGPSScanImp.pas.bk,4014,LoadFromFile,,ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);
+[V],TCB_IMGPSScanX.SampleScanBtnClick,CB_IMGPSScanImp.pas.bk,4016,SaveToFile,,ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');
+[V],TCB_IMGPSScanX.AddAttFileLBClick,CB_IMGPSScanImp.pas.bk,4179,FileExists,,if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then
+[V],TCB_IMGPSScanX.AddAttFileLBClick,CB_IMGPSScanImp.pas.bk,4187,CopyFile,,CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);
+[V],TCB_IMGPSScanX.AttListBoxDblClick,CB_IMGPSScanImp.pas.bk,4264,FileExists,,if FileExists(DisplayPath+AttFile) then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4466,LoadFromFile,,//DeleteStm.LoadFromFile(Path+'temp.tif');
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4640,FileExists,,if FileExists( PEFileName ) then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4661,SaveToFile,,JpgGr.SaveToFile(PEFileName);
+[V],TCB_IMGPSScanX.PageDone,CB_IMGPSScanImp.pas.bk,4697,LoadFromFile,,ISB.LoadFromFile(PEFileName,1);
+[V],TCB_IMGPSScanX.PageEnd,CB_IMGPSScanImp.pas.bk,4788,GetNoNameCase,,ScanCaseno := GetNoNameCase(ImageSavePath);
+[V],TCB_IMGPSScanX.PageEnd,CB_IMGPSScanImp.pas.bk,4793,DirectoryExists,,if DirectoryExists(ImageSavePath + ScanCaseno+'\') then
+[V],TCB_IMGPSScanX.PageEnd,CB_IMGPSScanImp.pas.bk,4795,_DelTree,,_DelTree(ImageSavePath + ScanCaseno+'\');
+[V],TCB_IMGPSScanX.PageEnd,CB_IMGPSScanImp.pas.bk,4801,Str2Dir,,Str2Dir(ScanPath);
+[V],TCB_IMGPSScanX.PageEnd,CB_IMGPSScanImp.pas.bk,4859,SaveToFile,,//ContextList.SaveToFile(ScanPath+'Context.dat');
+[V],TCB_IMGPSScanX.ExportBtClick,CB_IMGPSScanImp.pas.bk,4995,SaveToFile,,S.SaveToFile(LngPath+'mps.dat');
+[V],TCB_IMGPSScanX.ExportBtClick,CB_IMGPSScanImp.pas.bk,5000,FileExists,,if FileExists(LngPath+'mps.zip') then
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5036,Str2Dir,,str2dir(ZipPath);
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5039,FileExists,,if not FileExists(ZipPath+'mps.dat') then
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5044,LoadFromFile,,S.LoadFromFile(ZipPath+'mps.dat');
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5054,RenameFile,,RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5085,_DelTree,,_DelTree(ZipPath);
+[V],TCB_IMGPSScanX.GetSiteOMR,CB_IMGPSScanImp.pas.bk,5185,LoadFromFile,,ImageScrollBox1.LoadFromFile(FileName,1);
+[V],TCB_IMGPSScanX.ReNameContext,CB_IMGPSScanImp.pas.bk,6020,SaveToFile,,ContextList.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DeleteImageFile,CB_IMGPSScanImp.pas.bk,6028,DeleteImageFile,,Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // åªé¤æªæ¡ (ç¡æ³å¾å°DocDirç¨)
+[V],TCB_IMGPSScanX.DeleteImageFile,CB_IMGPSScanImp.pas.bk,6042,FileExists,,if FileExists(Path+'Context.dat') then
+[V],TCB_IMGPSScanX.DeleteImageFile,CB_IMGPSScanImp.pas.bk,6043,LoadFromFile,,FileList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DeleteImageFile,CB_IMGPSScanImp.pas.bk,6049,SaveToFile,,FileList.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DeleteFormCodeFile,CB_IMGPSScanImp.pas.bk,6068,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+[V],TCB_IMGPSScanX.DeleteFormCodeFile,CB_IMGPSScanImp.pas.bk,6069,LoadFromFile,,FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.DeleteFormCodeFile,CB_IMGPSScanImp.pas.bk,6084,DeleteImageFile,,DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);
+[V],TCB_IMGPSScanX.DeleteFormCodeFile,CB_IMGPSScanImp.pas.bk,6090,ReSortFileName,,ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');
+[V],TCB_IMGPSScanX.DeleteFormCodeFile,CB_IMGPSScanImp.pas.bk,6111,SaveToFile,,ContextList.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DeleteDocNoFile,CB_IMGPSScanImp.pas.bk,6115,DeleteDocNoFile,,Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean; //åªé¤æå®DocNoæ件
+[V],TCB_IMGPSScanX.DeleteDocNoFile,CB_IMGPSScanImp.pas.bk,6132,SaveToFile,,ContextList.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DeleteDocNoFile,CB_IMGPSScanImp.pas.bk,6134,ReSortFileName,,ReSortFileName(Path);
+[V],TCB_IMGPSScanX.DeleteDocNoFile,CB_IMGPSScanImp.pas.bk,6135,LoadFromFile,,ContextList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DeleteDocNoFile,CB_IMGPSScanImp.pas.bk,6137,FileExists,,if FileExists(Path+'CustomDocNo.dat') then
+[V],TCB_IMGPSScanX.DeleteDocNoFileForESCAN,CB_IMGPSScanImp.pas.bk,6141,DeleteDocNoFile,,Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean; //åªé¤æå®DocNoæ件
+[V],TCB_IMGPSScanX.DeleteDocNoFileForESCAN,CB_IMGPSScanImp.pas.bk,6164,SaveToFile,,ContextList.SaveToFile(Path+'\Context.dat');
+[V],TCB_IMGPSScanX.DeleteDocNoFileForESCAN,CB_IMGPSScanImp.pas.bk,6165,LoadFromFile,,ContextList.LoadFromFile(Path+'\Context.dat');
+[V],TCB_IMGPSScanX.DeleteDocNoFileForESCAN,CB_IMGPSScanImp.pas.bk,6169,_DelTree,,_DelTree(Path);
+[V],TCB_IMGPSScanX.DeleteShowFile,CB_IMGPSScanImp.pas.bk,6175,DeleteShowFile,,Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //åªé¤é¡¯ç¤ºä¸çå½±å
+[V],TCB_IMGPSScanX.CheckCaseDocNoPage,CB_IMGPSScanImp.pas.bk,6219,LoadFromFile,,S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+[V],TCB_IMGPSScanX.FindFormCodePages,CB_IMGPSScanImp.pas.bk,6287,LoadFromFile,,S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
+[V],TCB_IMGPSScanX.CaseReSize,CB_IMGPSScanImp.pas.bk,6326,FileExists,,{if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then
+[V],TCB_IMGPSScanX.CaseReSize,CB_IMGPSScanImp.pas.bk,6332,LoadFromFile,,S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6369,LoadFromFile,,ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6392,SaveToFile,,ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6399,FileExists,,if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then
+[V],TCB_IMGPSScanX.ImageReSize_tmp,CB_IMGPSScanImp.pas.bk,6436,LoadFromFile,,ImageScrollBox1.LoadFromFile(FileName,1);
+[V],TCB_IMGPSScanX.ImageReSize_tmp,CB_IMGPSScanImp.pas.bk,6440,SaveToFile,,ImageScrollBox1.SaveToFile(FileName);
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6486,FileExists,,if fileExists(Path+'Context.dat') then
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6488,LoadFromFile,,ContextList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6588,CopyFile,,CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6609,FindFirst,,FindFirst(FName, faAnyfile, FileRec);
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6728,_DelTree,,//_DelTree(Path); //æåªåªTransPath
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6859,FileExists,,if FileExists(DPath+CaseID+'.zip') then
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6868,Str2Dir,,Str2Dir(AttPath);
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6877,SaveToFile,,SC.SaveToFile(DPath+'Context.dat');
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6889,LoadFromFile,,SC.LoadFromFile(SPath+'Context.dat');
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6901,DeleteDocNoFile,,DeleteDocNoFile(DPath,DocNo);
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6916,CopyFile,,CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6930,DirectoryExists,,if DirectoryExists(SPath+'AttFile\') then
+[V],TCB_IMGPSScanX.Down_Img,CB_IMGPSScanImp.pas.bk,7011,FileExists,,if FileExists(Path+CaseID+'.zip') then
+[V],TCB_IMGPSScanX.Down_Img,CB_IMGPSScanImp.pas.bk,7020,Str2Dir,,Str2Dir(AttPath);
+[V],TCB_IMGPSScanX.GetNoNameCase,CB_IMGPSScanImp.pas.bk,7033,GetNoNameCase,,Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //åæªé
èXXXX
+[V],TCB_IMGPSScanX.GetNoNameCase,CB_IMGPSScanImp.pas.bk,7039,DirectoryExists,,if Not DirectoryExists(Path+_Msg('æªé
è')+Add_Zoo(i,4)) then
+[V],TCB_IMGPSScanX.CaseResort,CB_IMGPSScanImp.pas.bk,7057,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.CaseResort,CB_IMGPSScanImp.pas.bk,7171,FileExists,,if FileExists(Path+OldName) then
+[V],TCB_IMGPSScanX.CaseResort,CB_IMGPSScanImp.pas.bk,7173,RenameFile,,ReNameFile(Path+OldName,Path+NewName);
+[V],TCB_IMGPSScanX.CaseResort,CB_IMGPSScanImp.pas.bk,7175,SaveToFile,,S.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.CaseResort,CB_IMGPSScanImp.pas.bk,7178,ReSortFileName,,ReSortFileName(Path);
+[V],TCB_IMGPSScanX.CaseResort2Scanlist,CB_IMGPSScanImp.pas.bk,7195,FileExists,,if FileExists(Path+'Context.dat') then
+[V],TCB_IMGPSScanX.CaseResort2Scanlist,CB_IMGPSScanImp.pas.bk,7196,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.CaseResort2Scanlist,CB_IMGPSScanImp.pas.bk,7294,RenameFile,,//ReNameFile(Path+OldName,Path+NewName);
+[V],TCB_IMGPSScanX.CaseResort2Scanlist,CB_IMGPSScanImp.pas.bk,7296,SaveToFile,,S.SaveToFile(Path+'scanlist.dat');
+[V],TCB_IMGPSScanX.CaseResort2Scanlist,CB_IMGPSScanImp.pas.bk,7299,ReSortFileName,,ReSortFileName2Scanlist(Path);
+[V],TCB_IMGPSScanX.DistinctDocinCase,CB_IMGPSScanImp.pas.bk,7318,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.DistinctDocNoinCase,CB_IMGPSScanImp.pas.bk,7362,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.ClearErrini,CB_IMGPSScanImp.pas.bk,7392,FileExists,,if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then
+[V],TCB_IMGPSScanX.SetCaseList,CB_IMGPSScanImp.pas.bk,7412,FileExists,,if FileExists(ImageSavePath + 'CaseList.dat') then
+[V],TCB_IMGPSScanX.SetCaseList,CB_IMGPSScanImp.pas.bk,7413,LoadFromFile,,CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+[V],TCB_IMGPSScanX.SetCaseList,CB_IMGPSScanImp.pas.bk,7443,SaveToFile,,CaseList.SaveToFile(ImageSavePath+'CaseList.dat');
+[V],TCB_IMGPSScanX.SetDocNoList,CB_IMGPSScanImp.pas.bk,7456,FileExists,,if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.SetDocNoList,CB_IMGPSScanImp.pas.bk,7457,LoadFromFile,,CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.SetDocNoList,CB_IMGPSScanImp.pas.bk,7507,SaveToFile,,CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.SetContextList,CB_IMGPSScanImp.pas.bk,7527,FileExists,,if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then
+[V],TCB_IMGPSScanX.SetContextList,CB_IMGPSScanImp.pas.bk,7528,LoadFromFile,,ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.SetContextList,CB_IMGPSScanImp.pas.bk,7562,SaveToFile,,ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.SetAttContextList,CB_IMGPSScanImp.pas.bk,7571,FileExists,,if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then
+[V],TCB_IMGPSScanX.SetAttContextList,CB_IMGPSScanImp.pas.bk,7572,LoadFromFile,,AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');
+[V],TCB_IMGPSScanX.SetAttContextList,CB_IMGPSScanImp.pas.bk,7605,SaveToFile,,AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');
+[V],TCB_IMGPSScanX.CreateEmptyCase,CB_IMGPSScanImp.pas.bk,7684,SaveToFile,,S.SaveToFile(Path+CaseID+'\Context.dat');
+[V],TCB_IMGPSScanX.FormIDReplace,CB_IMGPSScanImp.pas.bk,7749,FileExists,,if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then
+[V],TCB_IMGPSScanX.FormIDReplace,CB_IMGPSScanImp.pas.bk,7751,LoadFromFile,,ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.FormIDReplace,CB_IMGPSScanImp.pas.bk,7795,DirectoryExists,,if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then
+[V],TCB_IMGPSScanX.FormIDReplace,CB_IMGPSScanImp.pas.bk,7811,CopyFile,,CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);
+[V],TCB_IMGPSScanX.FormIDReplace,CB_IMGPSScanImp.pas.bk,7827,RenameFile,,ReNameFile(Path+OldFile,Path+NewFile);
+[V],TCB_IMGPSScanX.FormIDReplace,CB_IMGPSScanImp.pas.bk,7831,SaveToFile,,S.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.ShowFileReplace,CB_IMGPSScanImp.pas.bk,7852,RenameFile,,ReNameFile(Path+OldFile,Path+NewFile);
+[V],TCB_IMGPSScanX.PageReplaceFormID,CB_IMGPSScanImp.pas.bk,7867,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.PageReplaceFormID,CB_IMGPSScanImp.pas.bk,7891,RenameFile,,ReNameFile(Path+OldFile,Path+NewFile);
+[V],TCB_IMGPSScanX.PageReplaceFormID,CB_IMGPSScanImp.pas.bk,7899,SaveToFile,,S.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.GetCasePage,CB_IMGPSScanImp.pas.bk,7925,FileExists,,if FileExists(Path+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.GetCasePage,CB_IMGPSScanImp.pas.bk,7926,LoadFromFile,,DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.SetFile2Case,CB_IMGPSScanImp.pas.bk,8006,LoadFromFile,,S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');
+[V],TCB_IMGPSScanX.SetFile2Case,CB_IMGPSScanImp.pas.bk,8008,SaveToFile,,S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');
+[V],TCB_IMGPSScanX.WriteResize,CB_IMGPSScanImp.pas.bk,8022,LoadFromFile,,ImageScrollBox1.LoadFromFile(ImgName,1);
+[V],TCB_IMGPSScanX.WriteResize,CB_IMGPSScanImp.pas.bk,8045,FileExists,,if FileExists(TxtName) then
+[V],TCB_IMGPSScanX.WriteResize,CB_IMGPSScanImp.pas.bk,8049,SaveToFile,,S.SaveToFile(TxtName);
+[V],TCB_IMGPSScanX.GetCase_PageCount,CB_IMGPSScanImp.pas.bk,8072,FileExists,,if FileExists(ImageSavePath + 'CaseList.dat') then
+[V],TCB_IMGPSScanX.GetCase_PageCount,CB_IMGPSScanImp.pas.bk,8073,LoadFromFile,,CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+[V],TCB_IMGPSScanX.WriteCaseIndex,CB_IMGPSScanImp.pas.bk,8205,SaveToFile,,S.SaveToFile(Path+'CaseIndex.dat');
+[V],TCB_IMGPSScanX.ReadCaseIndex,CB_IMGPSScanImp.pas.bk,8221,FileExists,,if FileExists(Path+'CaseIndex.dat') then
+[V],TCB_IMGPSScanX.ReadCaseIndex,CB_IMGPSScanImp.pas.bk,8223,LoadFromFile,,S.LoadFromFile(Path+'CaseIndex.dat');
+[V],TCB_IMGPSScanX.ReduceLogFile,CB_IMGPSScanImp.pas.bk,8249,FileExists,,if FileExists(LngPath+'IMGPSCheck.log') then
+[V],TCB_IMGPSScanX.ReduceLogFile,CB_IMGPSScanImp.pas.bk,8251,LoadFromFile,,ST1.LoadFromFile(LngPath+'IMGPSCheck.log');
+[V],TCB_IMGPSScanX.ReduceLogFile,CB_IMGPSScanImp.pas.bk,8258,SaveToFile,,ST1.SaveToFile(LngPath+'IMGPSCheck.log');
+[V],TCB_IMGPSScanX.GetDocNoDir,CB_IMGPSScanImp.pas.bk,8304,DirectoryExists,,until not DirectoryExists(Path+iDocNo);
+[V],TCB_IMGPSScanX.DocNo2DocNoDir,CB_IMGPSScanImp.pas.bk,8341,DirectoryExists,,until not DirectoryExists(Path+iDocNo);
+[V],TCB_IMGPSScanX.DocNoDir2Index,CB_IMGPSScanImp.pas.bk,8374,LoadFromFile,,CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');
+[V],TCB_IMGPSScanX.ZipMainFile,CB_IMGPSScanImp.pas.bk,8395,FileExists,,if fileExists(DePath+ZipName) then
+[V],TCB_IMGPSScanX.ZipMainFile,CB_IMGPSScanImp.pas.bk,8412,LoadFromFile,,AttContextList.LoadFromFile(SoPath+'ATTContext.dat');
+[V],TCB_IMGPSScanX.ZipMaskFile,CB_IMGPSScanImp.pas.bk,8468,FileExists,,if fileExists(DePath+ZipName) then
+[V],TCB_IMGPSScanX.GetFormatID,CB_IMGPSScanImp.pas.bk,8605,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
+[V],TCB_IMGPSScanX.GetFormatID,CB_IMGPSScanImp.pas.bk,8607,LoadFromFile,,S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
+[V],TCB_IMGPSScanX.CheckCaseBtnClick,CB_IMGPSScanImp.pas.bk,8952,SaveToFile,,S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
+[V],TCB_IMGPSScanX.DrawDocItem2,CB_IMGPSScanImp.pas.bk,9012,FileExists,,if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.DrawDocItem2,CB_IMGPSScanImp.pas.bk,9013,LoadFromFile,,CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.DrawDocItem2,CB_IMGPSScanImp.pas.bk,9162,DirectoryExists,,if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then
+[V],TCB_IMGPSScanX.PrtLbClick,CB_IMGPSScanImp.pas.bk,9320,LoadFromFile,,//ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
+[V],TCB_IMGPSScanX.UseOldCaseLbClick,CB_IMGPSScanImp.pas.bk,9441,FileExists,,if FileExists(NewPath+'CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.UseOldCaseLbClick,CB_IMGPSScanImp.pas.bk,9442,LoadFromFile,,iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');
+[V],TCB_IMGPSScanX.UseOldCaseLbClick,CB_IMGPSScanImp.pas.bk,9471,DirectoryExists,,if Not DirectoryExists(NewPath+NewDocDir) then
+[V],TCB_IMGPSScanX.UseOldCaseLbClick,CB_IMGPSScanImp.pas.bk,9501,CopyFile,,CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);
+[V],TCB_IMGPSScanX.UseOldCaseLbClick,CB_IMGPSScanImp.pas.bk,9504,SaveToFile,,iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.LastInitFormidListCreate,CB_IMGPSScanImp.pas.bk,9538,LoadFromFile,,ST1.LoadFromFile(path+'FormCode_Name.dat');
+[V],TCB_IMGPSScanX.LoadImgFile,CB_IMGPSScanImp.pas.bk,9604,FileExists,,if FileExists(ImageSavePath + 'CaseList.dat') then
+[V],TCB_IMGPSScanX.LoadImgFile,CB_IMGPSScanImp.pas.bk,9605,LoadFromFile,,CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+[V],TCB_IMGPSScanX.LoadImgFile,CB_IMGPSScanImp.pas.bk,9617,SaveToFile,,CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');
+[V],TCB_IMGPSScanX.LoadImgFile1,CB_IMGPSScanImp.pas.bk,9689,FileExists,,if FileExists(ImageSavePath + 'CaseList.dat') then
+[V],TCB_IMGPSScanX.LoadImgFile1,CB_IMGPSScanImp.pas.bk,9690,LoadFromFile,,CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
+[V],TCB_IMGPSScanX.LoadImgFile1,CB_IMGPSScanImp.pas.bk,9720,SaveToFile,,Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');
+[V],TCB_IMGPSScanX.LoadAttFile,CB_IMGPSScanImp.pas.bk,9779,FileExists,,if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then
+[V],TCB_IMGPSScanX.LoadAttFile,CB_IMGPSScanImp.pas.bk,9781,LoadFromFile,,AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');
+[V],TCB_IMGPSScanX.CheckAvailable,CB_IMGPSScanImp.pas.bk,9915,FileExists,,if FileExists(LngPath+'MPSLIC_SCAN.lic') then
+[V],TCB_IMGPSScanX.Case2Mask,CB_IMGPSScanImp.pas.bk,9946,DirectoryExists,,if DirectoryExists(DePath) then
+[V],TCB_IMGPSScanX.Case2Mask,CB_IMGPSScanImp.pas.bk,9947,_DelTree,,_DelTree(DePath);
+[V],TCB_IMGPSScanX.Case2Mask,CB_IMGPSScanImp.pas.bk,9948,Str2Dir,,Str2Dir(DePath);
+[V],TCB_IMGPSScanX.Case2Mask,CB_IMGPSScanImp.pas.bk,9954,LoadFromFile,,S.LoadFromFile(SoPath+'Context.dat');
+[V],TCB_IMGPSScanX.Case2Mask,CB_IMGPSScanImp.pas.bk,9964,FileExists,,if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then //æ²æXmlå°±ä¸ç¨é®ç½©
+[V],TCB_IMGPSScanX.GetNewCustomDocNo,CB_IMGPSScanImp.pas.bk,10059,FileExists,,if FileExists(Path+'CustomDocNo.dat') then
+[V],TCB_IMGPSScanX.GetNewCustomDocNo,CB_IMGPSScanImp.pas.bk,10062,LoadFromFile,,S.LoadFromFile(Path+'CustomDocNo.dat');
+[V],TCB_IMGPSScanX.GetNewCustomDocNo,CB_IMGPSScanImp.pas.bk,10080,SaveToFile,,S.SaveToFile(Path+'CustomDocNo.dat');
+[V],PrintWithAutoPrintJob,CB_IMGPSScanImp.pas.bk,10285,LoadFromFile,,ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);
+[V],TCB_IMGPSScanX.FindLastestDocDir,CB_IMGPSScanImp.pas.bk,10307,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.FindLastestDocDir,CB_IMGPSScanImp.pas.bk,10308,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.FindLastestDocDirForPage,CB_IMGPSScanImp.pas.bk,10335,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.FindLastestDocDirForPage,CB_IMGPSScanImp.pas.bk,10336,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.Create_Cust_DocDir,CB_IMGPSScanImp.pas.bk,10401,DirectoryExists,,if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then //åå¨äº
+[V],TCB_IMGPSScanX.OldCasetoNewCase,CB_IMGPSScanImp.pas.bk,10469,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.OldCasetoNewCase,CB_IMGPSScanImp.pas.bk,10494,SaveToFile,,DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+[V],TCB_IMGPSScanX.ErrFormtoCurrentForm,CB_IMGPSScanImp.pas.bk,10539,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.ErrFormtoCurrentForm,CB_IMGPSScanImp.pas.bk,10545,FileExists,,if FileExists(iPath+'Context.dat') then //20140909æ¼å éåå¤æ·é æèªè¨æ件ä½æ²å½±åæåºé¯èª¤è¨æ¯
+[V],TCB_IMGPSScanX.ErrFormtoCurrentForm,CB_IMGPSScanImp.pas.bk,10555,RenameFile,,RenameFile(iPath+OldFile,iPath+NewFile);
+[V],TCB_IMGPSScanX.ErrFormtoCurrentForm,CB_IMGPSScanImp.pas.bk,10556,SaveToFile,,FileList.SaveToFile(iPath+'Context.dat');
+[V],TCB_IMGPSScanX.ErrFormtoCurrentForm,CB_IMGPSScanImp.pas.bk,10563,MoveFile,,MoveFile(PWideChar(iPath),PWideChar(iiPath));
+[V],TCB_IMGPSScanX.SetRecordEditedDocDir,CB_IMGPSScanImp.pas.bk,10583,FileExists,,if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
+[V],TCB_IMGPSScanX.SetRecordEditedDocDir,CB_IMGPSScanImp.pas.bk,10584,LoadFromFile,,EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+[V],TCB_IMGPSScanX.SetRecordEditedDocDir,CB_IMGPSScanImp.pas.bk,10599,SaveToFile,,EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+[V],TCB_IMGPSScanX.GetDocDir_Page,CB_IMGPSScanImp.pas.bk,10630,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+[V],TCB_IMGPSScanX.GetDocDir_Page,CB_IMGPSScanImp.pas.bk,10632,LoadFromFile,,FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.Path2DocDir,CB_IMGPSScanImp.pas.bk,10648,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.Path2DocDir,CB_IMGPSScanImp.pas.bk,10649,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.SortDocDir_FormID,CB_IMGPSScanImp.pas.bk,10692,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
+[V],TCB_IMGPSScanX.SortDocDir_FormID,CB_IMGPSScanImp.pas.bk,10694,LoadFromFile,,FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.SortDocDir_FormID,CB_IMGPSScanImp.pas.bk,10733,RenameFile,,RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
+[V],TCB_IMGPSScanX.SortDocDir_FormID,CB_IMGPSScanImp.pas.bk,10744,SaveToFile,,FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
+[V],TCB_IMGPSScanX.CreateCaseNeedData,CB_IMGPSScanImp.pas.bk,10807,FileExists,,if FileExists(Path+'Context.dat') then
+[V],TCB_IMGPSScanX.CreateCaseNeedData,CB_IMGPSScanImp.pas.bk,10809,LoadFromFile,,FileList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.CreateCaseNeedData,CB_IMGPSScanImp.pas.bk,10828,SaveToFile,,DocNoList.SaveToFile(Path+'DocDir.dat');
+[V],TCB_IMGPSScanX.TransOldCaseFile,CB_IMGPSScanImp.pas.bk,10902,FileExists,,if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then
+[V],TCB_IMGPSScanX.GetDocNoCount,CB_IMGPSScanImp.pas.bk,11148,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.GetDocNoCount,CB_IMGPSScanImp.pas.bk,11150,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.GetDocDirCopies,CB_IMGPSScanImp.pas.bk,11177,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.GetDocDirCopies,CB_IMGPSScanImp.pas.bk,11178,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.SetDocDirCopies,CB_IMGPSScanImp.pas.bk,11206,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.SetDocDirCopies,CB_IMGPSScanImp.pas.bk,11208,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.SetDocDirCopies,CB_IMGPSScanImp.pas.bk,11216,SaveToFile,,DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
+[V],TCB_IMGPSScanX.CaseDelete_Enable,CB_IMGPSScanImp.pas.bk,11377,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.CaseDelete_Enable,CB_IMGPSScanImp.pas.bk,11378,LoadFromFile,,CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.MoveImage,CB_IMGPSScanImp.pas.bk,11398,LoadFromFile,,FList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.MoveImage,CB_IMGPSScanImp.pas.bk,11403,RenameFile,,Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
+[V],TCB_IMGPSScanX.MoveImage,CB_IMGPSScanImp.pas.bk,11435,SaveToFile,,Flist.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.MoveImage,CB_IMGPSScanImp.pas.bk,11438,ReSortFileName,,ReSortFileName(Path);
+[V],TCB_IMGPSScanX.MoveImage_Drag,CB_IMGPSScanImp.pas.bk,11456,LoadFromFile,,FList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.MoveImage_Drag,CB_IMGPSScanImp.pas.bk,11459,RenameFile,,Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
+[V],TCB_IMGPSScanX.MoveImage_Drag,CB_IMGPSScanImp.pas.bk,11493,SaveToFile,,Flist.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.MoveImage_Drag,CB_IMGPSScanImp.pas.bk,11496,ReSortFileName,,ReSortFileName(Path);
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11566,DirectoryExists,,if DirectoryExists(NewPath) then
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11567,_DelTree,,_DelTree(NewPath);
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11568,Str2Dir,,str2dir(NewPath);
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11569,CopyFile,,CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11576,FileExists,,if FileExists(OldPath+'CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11578,LoadFromFile,,DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');
+[V],TCB_IMGPSScanX.Case2upload,CB_IMGPSScanImp.pas.bk,11582,SaveToFile,,DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');
+[V],TCB_IMGPSScanX.Download2Case,CB_IMGPSScanImp.pas.bk,11684,FileExists,,if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then //æªç«é¢ææ²éäºæª
+[V],TCB_IMGPSScanX.Download2Case,CB_IMGPSScanImp.pas.bk,11690,CopyFile,,AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
+[V],TCB_IMGPSScanX.Download2Case,CB_IMGPSScanImp.pas.bk,11708,LoadFromFile,,//iFileList.LoadFromFile(SoDir+'Context.dat');
+[V],TCB_IMGPSScanX.Download2Case,CB_IMGPSScanImp.pas.bk,11738,DirectoryExists,,if not DirectoryExists(DeDir+DocDir) then
+[V],TCB_IMGPSScanX.Download2Case,CB_IMGPSScanImp.pas.bk,11748,SaveToFile,,DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
+[V],TCB_IMGPSScanX.DistinctFormCode,CB_IMGPSScanImp.pas.bk,12218,LoadFromFile,,S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
+[V],TCB_IMGPSScanX.OMRCheckCase,CB_IMGPSScanImp.pas.bk,12420,LoadFromFile,,List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
+[V],TCB_IMGPSScanX.OMRCheckCase,CB_IMGPSScanImp.pas.bk,12515,FileExists,,if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then //æ²æXmlå°±ä¸ç¨æª¢æ ¸
+[V],TCB_IMGPSScanX.OMRCheckCase,CB_IMGPSScanImp.pas.bk,12937,SaveToFile,,ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');
+[V],TCB_IMGPSScanX.OMRErr2ini,CB_IMGPSScanImp.pas.bk,12981,FileExists,,if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then
+[V],TCB_IMGPSScanX.OMRErr2ini,CB_IMGPSScanImp.pas.bk,12982,LoadFromFile,,S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');
+[V],TCB_IMGPSScanX.OMRErr2ini,CB_IMGPSScanImp.pas.bk,12984,SaveToFile,,S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');
+[V],TCB_IMGPSScanX.OMRErrini2ListForLog,CB_IMGPSScanImp.pas.bk,13034,LoadFromFile,,CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');
+[V],TCB_IMGPSScanX.view_image_FormCode,CB_IMGPSScanImp.pas.bk,13106,LoadFromFile,,ISB.LoadFromFile(Path+ContextList.Strings[i],1);
+[V],TCB_IMGPSScanX.view_image_DocNo,CB_IMGPSScanImp.pas.bk,13230,FileExists,,if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
+[V],TCB_IMGPSScanX.view_image_DocNo,CB_IMGPSScanImp.pas.bk,13232,LoadFromFile,,ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
+[V],TCB_IMGPSScanX.view_image_DocNo,CB_IMGPSScanImp.pas.bk,13284,DirectoryExists,,//if DirectoryExists(Path+'Attach') then
+[V],TCB_IMGPSScanX.SpeedButton14Click,CB_IMGPSScanImp.pas.bk,13406,LoadFromFile,,ISB1.LoadFromFile(ISB1.FileName,1);
+[V],TCB_IMGPSScanX.SpeedButton14Click,CB_IMGPSScanImp.pas.bk,13411,SaveToFile,,TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+[V],TCB_IMGPSScanX.SpeedButton15Click,CB_IMGPSScanImp.pas.bk,13427,LoadFromFile,,ISB1.LoadFromFile(ISB1.FileName,1);
+[V],TCB_IMGPSScanX.SpeedButton15Click,CB_IMGPSScanImp.pas.bk,13432,SaveToFile,,TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+[V],TCB_IMGPSScanX.SpeedButton16Click,CB_IMGPSScanImp.pas.bk,13448,LoadFromFile,,ISB1.LoadFromFile(ISB1.FileName,1);
+[V],TCB_IMGPSScanX.SpeedButton16Click,CB_IMGPSScanImp.pas.bk,13453,SaveToFile,,TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
+[V],TCB_IMGPSScanX.ISBClick,CB_IMGPSScanImp.pas.bk,13727,LoadFromFile,,ISB1.LoadFromFile(SelectISB.FileName,1);
+[V],TCB_IMGPSScanX.ISBImageMouseDown,CB_IMGPSScanImp.pas.bk,13802,LoadFromFile,,ISB1.LoadFromFile(SelectISB.FileName,1);
+[V],TCB_IMGPSScanX.GetCaseFormID,CB_IMGPSScanImp.pas.bk,13895,LoadFromFile,,ContextList.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.CreateFormID_FormName,CB_IMGPSScanImp.pas.bk,13926,SaveToFile,,S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);
+[V],TCB_IMGPSScanX.CreateDocNo_DocName,CB_IMGPSScanImp.pas.bk,13948,SaveToFile,,S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);
+[V],TCB_IMGPSScanX.CreateIn_WH,CB_IMGPSScanImp.pas.bk,13963,FileExists,,if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
+[V],TCB_IMGPSScanX.CreateIn_WH,CB_IMGPSScanImp.pas.bk,13964,LoadFromFile,,DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.CreateIn_WH,CB_IMGPSScanImp.pas.bk,13977,SaveToFile,,In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');
+[V],TCB_IMGPSScanX.CreateDocNo_Info,CB_IMGPSScanImp.pas.bk,14000,FileExists,,if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+[V],TCB_IMGPSScanX.CreateDocNo_Info,CB_IMGPSScanImp.pas.bk,14002,LoadFromFile,,DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.CreateCustDocNo_Info,CB_IMGPSScanImp.pas.bk,14082,FileExists,,if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+[V],TCB_IMGPSScanX.CreateCustDocNo_Info,CB_IMGPSScanImp.pas.bk,14083,LoadFromFile,,DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.CreateDocnoFrom_Info,CB_IMGPSScanImp.pas.bk,14137,FileExists,,if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+[V],TCB_IMGPSScanX.CreateDocnoFrom_Info,CB_IMGPSScanImp.pas.bk,14138,LoadFromFile,,DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.CreateCustDocNoFrom_Info,CB_IMGPSScanImp.pas.bk,14201,FileExists,,if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
+[V],TCB_IMGPSScanX.CreateCustDocNoFrom_Info,CB_IMGPSScanImp.pas.bk,14202,LoadFromFile,,DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
+[V],TCB_IMGPSScanX.GetDocNoEdit,CB_IMGPSScanImp.pas.bk,14263,FileExists,,if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
+[V],TCB_IMGPSScanX.GetDocNoEdit,CB_IMGPSScanImp.pas.bk,14264,LoadFromFile,,EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
+[V],TCB_IMGPSScanX.GetDocNo_Count,CB_IMGPSScanImp.pas.bk,14310,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.GetDocNo_Page,CB_IMGPSScanImp.pas.bk,14342,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.Case_DocNoExists,CB_IMGPSScanImp.pas.bk,14406,LoadFromFile,,S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');
+[V],TCB_IMGPSScanX.ReSortFileName,CB_IMGPSScanImp.pas.bk,14427,ReSortFileName,,Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //æªåéæ°æåº
+[V],TCB_IMGPSScanX.ReSortFileName,CB_IMGPSScanImp.pas.bk,14435,FileExists,,if FileExists(Path+'Context.dat') then
+[V],TCB_IMGPSScanX.ReSortFileName,CB_IMGPSScanImp.pas.bk,14437,LoadFromFile,,Filelist.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.ReSortFileName,CB_IMGPSScanImp.pas.bk,14444,RenameFile,,ReNameFile(Path+OldName,Path+NewName);
+[V],TCB_IMGPSScanX.ReSortFileName,CB_IMGPSScanImp.pas.bk,14447,SaveToFile,,Filelist.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.ReSortFileName_New,CB_IMGPSScanImp.pas.bk,14455,ReSortFileName,,Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //æªåéæ°æåº
+[V],TCB_IMGPSScanX.ReSortFileName_New,CB_IMGPSScanImp.pas.bk,14463,FileExists,,if FileExists(Path+'Context.dat') then
+[V],TCB_IMGPSScanX.ReSortFileName_New,CB_IMGPSScanImp.pas.bk,14465,LoadFromFile,,Filelist.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.ReSortFileName_New,CB_IMGPSScanImp.pas.bk,14471,RenameFile,,ReNameFile(Path+OldName,Path+NewName);
+[V],TCB_IMGPSScanX.ReSortFileName_New,CB_IMGPSScanImp.pas.bk,14474,SaveToFile,,Filelist.SaveToFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.ReSortFileName2Scanlist,CB_IMGPSScanImp.pas.bk,14482,ReSortFileName,,Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //æªåéæ°æåºçµ¦Scanlist.dat
+[V],TCB_IMGPSScanX.ReSortFileName2Scanlist,CB_IMGPSScanImp.pas.bk,14490,FileExists,,if FileExists(Path+'scanlist.dat') then
+[V],TCB_IMGPSScanX.ReSortFileName2Scanlist,CB_IMGPSScanImp.pas.bk,14491,LoadFromFile,,S.LoadFromFile(Path+'scanlist.dat');
+[V],TCB_IMGPSScanX.ReSortFileName2Scanlist,CB_IMGPSScanImp.pas.bk,14497,RenameFile,,//ReNameFile(Path+OldName,Path+NewName);
+[V],TCB_IMGPSScanX.ReSortFileName2Scanlist,CB_IMGPSScanImp.pas.bk,14500,SaveToFile,,S.SaveToFile(Path+'scanlist.dat');
+[V],TCB_IMGPSScanX.GetOMRCheckSet,CB_IMGPSScanImp.pas.bk,14516,FileExists,,if FileExists(CheckXmlPath+'OMRSet.zip') then
+[V],TCB_IMGPSScanX.GetOMRCheckSet,CB_IMGPSScanImp.pas.bk,14522,LoadFromFile,,S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');
+[V],TCB_IMGPSScanX.GetOMRCheckSet,CB_IMGPSScanImp.pas.bk,14538,SaveToFile,,S.SaveToFile(CheckXmlPath+'LastDateTime.dat');
+[V],TCB_IMGPSScanX.GetKeyinSet,CB_IMGPSScanImp.pas.bk,14575,FileExists,,if FileExists(SitePath+'KeyinSet.zip') then
+[V],TCB_IMGPSScanX.GetKeyinSet,CB_IMGPSScanImp.pas.bk,14581,LoadFromFile,,S.LoadFromFile(SitePath+'LastDateTime.dat');
+[V],TCB_IMGPSScanX.GetKeyinSet,CB_IMGPSScanImp.pas.bk,14596,SaveToFile,,S.SaveToFile(SitePath+'LastDateTime.dat');
+[V],TCB_IMGPSScanX.CaseComplete,CB_IMGPSScanImp.pas.bk,14695,FileExists,,if FileExists(Path+'Context.dat') then //ææé æ¸
+[V],TCB_IMGPSScanX.CaseComplete,CB_IMGPSScanImp.pas.bk,14697,LoadFromFile,,S.LoadFromFile(Path+'Context.dat');
+[V],TCB_IMGPSScanX.Timer1Timer,CB_IMGPSScanImp.pas.bk,14991,GetLocalAppDir,,LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';
+[V],TCB_IMGPSScanX.Timer1Timer,CB_IMGPSScanImp.pas.bk,14992,Str2Dir,,Str2Dir(LngPath);
+[V],TCB_IMGPSScanX.Timer1Timer,CB_IMGPSScanImp.pas.bk,15202,_DelTree,,_Deltree(ImagePath);
+[V],TCB_IMGPSScanX.Timer1Timer,CB_IMGPSScanImp.pas.bk,15234,FileExists,,//if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //éåæå¨Download2Caseæä¸å¾ç¢çæ以ä¸è½æéè¡ 20141013
+[V],TCB_IMGPSScanX.TransBtnClick,CB_IMGPSScanImp.pas.bk,15415,LoadFromFile,,S.LoadFromFile(TransPath + 'Context.dat');
+[V],TCB_IMGPSScanX.TreeView1Click,CB_IMGPSScanImp.pas.bk,15592,FileExists,,If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then
+[V],TCB_IMGPSScanX.TreeView1Click,CB_IMGPSScanImp.pas.bk,15596,LoadFromFile,,CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15806,RenameFile,,{ReNameFile(DisplayISB.FileName,NewPath+NewFileName);
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15869,CopyFile,,CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15871,DeleteImageFile,,DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15881,LoadFromFile,,ContextList.LoadFromFile(DisplayPath+'Context.dat');
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15889,SaveToFile,,ContextList.SaveToFile(NewPath+'Context.dat');
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15901,_DelTree,,_DelTree(DisplayPath);
+[V],TCB_IMGPSScanX.TreeView1DragDrop,CB_IMGPSScanImp.pas.bk,15910,ReSortFileName,,ReSortFileName(DisplayPath);
+[V],TCB_IMGPSScanX.Set_language,CB_IMGPSScanImp.pas.bk,16085,FileExists,,if FileExists(LngPath+'Language.lng') then
+[V],TErrlistForm.RejectBtClick,ErrList.pas,155,FileExists,,if FileExists(iniPath+'RemoveMemo.dat') then
+[V],TErrlistForm.RejectBtClick,ErrList.pas,156,LoadFromFile,,S.LoadFromFile(iniPath+'RemoveMemo.dat');
+[V],TErrlistForm.RejectBtClick,ErrList.pas,161,SaveToFile,,S.SaveToFile(iniPath+'RemoveMemo.dat');
+[V],TErrlistForm.DeleteBtClick,ErrList.pas,189,FileExists,,if FileExists(iniPath+'RemoveMemo.dat') then
+[V],TErrlistForm.DeleteBtClick,ErrList.pas,190,LoadFromFile,,S.LoadFromFile(iniPath+'RemoveMemo.dat');
+[V],TErrlistForm.DeleteBtClick,ErrList.pas,197,SaveToFile,,S.SaveToFile(iniPath+'RemoveMemo.dat');
+[V],TErrlistForm.EnforceBtClick,ErrList.pas,241,FileExists,,if FileExists(iniPath+'RemoveMemo.dat') then
+[V],TErrlistForm.EnforceBtClick,ErrList.pas,242,LoadFromFile,,S.LoadFromFile(iniPath+'RemoveMemo.dat');
+[V],TErrlistForm.EnforceBtClick,ErrList.pas,252,SaveToFile,,S.SaveToFile(iniPath+'RemoveMemo.dat');
+[V],TErrlistForm.GetOMRErrini,ErrList.pas,485,LoadFromFile,,ImageScrollBox1.LoadFromFile(FileName,1);
+[V],TErrlistForm.GetOMRErrini,ErrList.pas,504,FileExists,,if (RelaFileName <> '') and FileExists(RelaFileName) then //¦³Ãö«Y¼v¹³
+[V],TOldCaseInfoForm.Down_Img,OldCaseInfo.pas,131,FileExists,,if FileExists(Path+CaseID+'.zip') then
+[V],TOldCaseInfoForm.LoadImg,OldCaseInfo.pas,185,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat') then
+[V],TOldCaseInfoForm.LoadImg,OldCaseInfo.pas,186,LoadFromFile,,DocDirList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat');
+[V],TOldCaseInfoForm.DocNo2DocName,OldCaseInfo.pas,233,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat') then
+[V],TOldCaseInfoForm.DocNo2DocName,OldCaseInfo.pas,234,LoadFromFile,,DocNo_DocNameList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',TEnCoding.UTF8);
+[V],TOldCaseInfoForm.Docdir2Pages,OldCaseInfo.pas,261,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then
+[V],TOldCaseInfoForm.Docdir2Pages,OldCaseInfo.pas,262,LoadFromFile,,FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');
+[V],TOldCaseInfoForm.ShowImage,OldCaseInfo.pas,317,FileExists,,if FileExists(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then
+[V],TOldCaseInfoForm.ShowImage,OldCaseInfo.pas,318,LoadFromFile,,FileList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\Context.dat');
+[V],TOldCaseInfoForm.ErrFormtoCurrentForm,OldCaseInfo.pas,382,LoadFromFile,,DocNoList.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat',Tencoding.UTF8);
+[V],TOldCaseInfoForm.ErrFormtoCurrentForm,OldCaseInfo.pas,400,RenameFile,,RenameFile(iPath+OldFile,iPath+NewFile);
+[V],TOldCaseInfoForm.ErrFormtoCurrentForm,OldCaseInfo.pas,401,SaveToFile,,FileList.SaveToFile(iPath+'Context.dat',Tencoding.UTF8);
+[V],TOldCaseInfoForm.ErrFormtoCurrentForm,OldCaseInfo.pas,412,MoveFile,,//MoveFile(PWideChar(iPath),PWideChar(iiPath));
+[V],TOldCaseInfoForm.ISBClick,OldCaseInfo.pas,595,LoadFromFile,,ISB1.LoadFromFile(SelectISB.FileName,1);
+[V],TOldCaseInfoForm.LoadBtClick,OldCaseInfo.pas,812,FileExists,,if not FileExists(imageSavePath+CaseID+'\'+UseCaseID+'\Context.dat') then
+[V],TOldCaseInfoForm.LoadBtClick,OldCaseInfo.pas,814,DirectoryExists,,if DirectoryExists(ImageSavePath+CaseID+'\'+UseCaseID) then
+[V],TOldCaseInfoForm.LoadBtClick,OldCaseInfo.pas,815,_DelTree,,_Deltree(ImageSavePath+CaseID+'\'+UseCaseID);
+[V],Global_Or_Interface,CB_IMGPSScanImp.pas.bk,8,Scanner,,EnScan, { for Scanner }
+[V],Button6Click,CB_IMGPSScanImp.pas.bk,466,Scanner,,ScannerReverse : Boolean; //æ¯å¦éåç¸
+[V],initkscan,CB_IMGPSScanImp.pas.bk,698,initkscan,,Procedure initkscan; //檢æ¥ææå¨çåè½
+[V],PageEnd,CB_IMGPSScanImp.pas.bk,873,PageEnd,,procedure PageEnd; //æææ¥æ¶å®æ
+[V],PageDone,CB_IMGPSScanImp.pas.bk,874,PageDone,,Procedure PageDone; //ææå®æå¾é¡¯ç¤ºå½±å
+[V],StatrTwainScan,CB_IMGPSScanImp.pas.bk,875,StatrTwainScan,,procedure StatrTwainScan;
+[V],OnAcquire,CB_IMGPSScanImp.pas.bk,876,OnAcquire,,procedure OnAcquire( const DibHandle : THandle;
+[V],TCB_IMGPSScanX.NewScanBtnClick,CB_IMGPSScanImp.pas.bk,2416,StatrTwainScan,,StatrTwainScan;
+[V],TCB_IMGPSScanX.OptionBtnClick,CB_IMGPSScanImp.pas.bk,2479,Scanner,,PatchDlg.ReverseCB.Checked := ScannerReverse;
+[V],TCB_IMGPSScanX.PM505Click,CB_IMGPSScanImp.pas.bk,3538,StatrTwainScan,,StatrTwainScan;
+[V],TCB_IMGPSScanX.SampleScanBtnClick,CB_IMGPSScanImp.pas.bk,4003,StatrTwainScan,,StatrTwainScan;
+[V],TCB_IMGPSScanX.SelectScanBtnClick,CB_IMGPSScanImp.pas.bk,4096,SelectScanner,,scanner.SelectScanner;
+[V],TCB_IMGPSScanX.SelectScanBtnClick,CB_IMGPSScanImp.pas.bk,4096,scanner.SelectScanner,,scanner.SelectScanner;
+[V],TCB_IMGPSScanX.SelectScanBtnClick,CB_IMGPSScanImp.pas.bk,4096,Scanner,,scanner.SelectScanner;
+[V],TCB_IMGPSScanX.AddScanBtnClick,CB_IMGPSScanImp.pas.bk,4230,StatrTwainScan,,StatrTwainScan;
+[V],TCB_IMGPSScanX.Button3Click,CB_IMGPSScanImp.pas.bk,4293,initkscan,,//initkscan;
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4390,StatrTwainScan,,procedure TCB_IMGPSScanX.StatrTwainScan;
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4394,Scanner,,if not Scanner.IsConfigured then
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4412,Scanner.OpenSource,,Scanner.OpenSource;
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4426,Scanner.CloseSource,,Scanner.CloseSource;
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4431,OnAcquire,,Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));
+[V],TCB_IMGPSScanX.StatrTwainScan,CB_IMGPSScanImp.pas.bk,4431,Scanner.AcquireWithSourceOpen,,Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));
+[V],TCB_IMGPSScanX.OnAcquire,CB_IMGPSScanImp.pas.bk,4444,OnAcquire,,procedure TCB_IMGPSScanX.OnAcquire( const DibHandle : THandle;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4505,Scanner,,IF ScannerReverse then
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4635,PageEnd,,PageEnd;
+[V],Deletepage,CB_IMGPSScanImp.pas.bk,4667,PageDone,,PageDone;
+[V],TCB_IMGPSScanX.PageDone,CB_IMGPSScanImp.pas.bk,4684,PageDone,,procedure TCB_IMGPSScanX.PageDone;
+[V],TCB_IMGPSScanX.PageEnd,CB_IMGPSScanImp.pas.bk,4734,PageEnd,,procedure TCB_IMGPSScanX.PageEnd;
+[V],TCB_IMGPSScanX.R_W_Scanini,CB_IMGPSScanImp.pas.bk,5264,Scanner,,ScannerReverse := ini.ReadBool('Scanner','Reverse',Def_ScannerReverse);
+[V],TCB_IMGPSScanX.GetDefScanIni,CB_IMGPSScanImp.pas.bk,5303,Scanner,,Def_ScannerReverse := False;
+[V],TCB_IMGPSScanX.initkscan,CB_IMGPSScanImp.pas.bk,9242,initkscan,,procedure TCB_IMGPSScanX.initkscan;
+[V],TCB_IMGPSScanX.initkscan,CB_IMGPSScanImp.pas.bk,9245,Scanner,,if Scanner.IsConfigured then
+[V],TCB_IMGPSScanX.initkscan,CB_IMGPSScanImp.pas.bk,9248,Scanner.OpenSource,,Scanner.OpenSource;
+[V],TCB_IMGPSScanX.initkscan,CB_IMGPSScanImp.pas.bk,9259,Scanner.CloseSource,,Scanner.CloseSource;
+[V],TCB_IMGPSScanX.Timer1Timer,CB_IMGPSScanImp.pas.bk,15146,initkscan,,initkscan;
+[V],Global_Or_Interface,PatchFom.pas,18,Scanner,,ScannerGB: TGroupBox;
+[V],TPatchDlg.DefaultBtClick,PatchFom.pas,91,Scanner,,ReverseCB.Checked := Def_ScannerReverse;
+[V],Global_Or_Interface,CB_IMGPSScanImp.pas.bk,25,IIS_Ftp,,SBSocket,IIS_Ftp, SBSimpleFTPS;
+[V],Global_Or_Interface,CB_IMGPSScanImp.pas.bk,277,TElHTTPSClient,,HTTPSClient: TElHTTPSClient;
+[V],Global_Or_Interface,CB_IMGPSScanImp.pas.bk,279,TElSimpleFTPSClient,,FTPSClient1: TElSimpleFTPSClient;
+[V],HTTPSClientCertificateValidate,CB_IMGPSScanImp.pas.bk,348,HTTPSClientCertificateValidate,,procedure HTTPSClientCertificateValidate(Sender: TObject;
+[V],SetFtpInfo,CB_IMGPSScanImp.pas.bk,635,SetFtpInfo,,Procedure SetFtpInfo; //餵å
¥FTPè³è¨
+[V],FtpCaseComplete,CB_IMGPSScanImp.pas.bk,636,FtpCaseComplete,,Function FtpCaseComplete(SendData:String):Boolean;
+[V],LoadFileGetMD5,CB_IMGPSScanImp.pas.bk,899,LoadFileGetMD5,,function LoadFileGetMD5(const filename:string):string; //20170809 åçæªæ¡çMD5
+[V],TCB_IMGPSScanX.InitExistImgList,CB_IMGPSScanImp.pas.bk,1352,LoadFileGetMD5,,LogFile1.LogToFile(logTimeString+casepath+'Download\'+ST1.Strings[i]+',MD5='+LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i]));
+[V],TCB_IMGPSScanX.SampleScanBtnClick,CB_IMGPSScanImp.pas.bk,4021,upFile,,if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.tif',FReWrite,Memo1,False) then
+[V],TCB_IMGPSScanX.Button5Click,CB_IMGPSScanImp.pas.bk,4373,SetFtpInfo,,SetFtpInfo;
+[V],TCB_IMGPSScanX.Button5Click,CB_IMGPSScanImp.pas.bk,4374,IIS_Ftp,,IIS_Ftp.FtpsConnect;
+[V],TCB_IMGPSScanX.Button6Click,CB_IMGPSScanImp.pas.bk,4382,SetFtpInfo,,SetFtpInfo;
+[V],TCB_IMGPSScanX.Button6Click,CB_IMGPSScanImp.pas.bk,4383,IIS_Ftp,,IIS_Ftp.FtpsConnect;
+[V],TCB_IMGPSScanX.ExportBtClick,CB_IMGPSScanImp.pas.bk,4958,En_DecryptionStr_Base64,,SFileName := En_DecryptionStr_Base64('E','MPSLIC_SCAN.lic','9338430');
+[V],TCB_IMGPSScanX.ExportBtClick,CB_IMGPSScanImp.pas.bk,4968,dnFile,,//if not dnFile(HTTPSClient,Furl,'servlet/CWC03',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.ExportBtClick,CB_IMGPSScanImp.pas.bk,4970,dnFile_Get,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5045,En_DecryptionStr_Base64,,if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then
+[V],TCB_IMGPSScanX.ImportBtClick,CB_IMGPSScanImp.pas.bk,5058,upFile,,//if not upFile(HTTPSClient,FUrl,'servlet/CWC04','formid='+LicName+'@workno=CW@mode=sample','file',ZipPath+LicName,FReWrite,Memo1,False) then
+[V],TCB_IMGPSScanX.HTTPSClientCertificateValidate,CB_IMGPSScanImp.pas.bk,5473,HTTPSClientCertificateValidate,,procedure TCB_IMGPSScanX.HTTPSClientCertificateValidate(Sender: TObject;
+[V],TCB_IMGPSScanX.GetServerDate,CB_IMGPSScanImp.pas.bk,5603,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/servertimeforocx','',FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSampleInf,CB_IMGPSScanImp.pas.bk,5637,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/serversampleforocx','work_no='+FWork_no,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf1,CB_IMGPSScanImp.pas.bk,5674,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf1,CB_IMGPSScanImp.pas.bk,5679,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=1&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf2,CB_IMGPSScanImp.pas.bk,5716,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf2,CB_IMGPSScanImp.pas.bk,5719,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=2&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf3,CB_IMGPSScanImp.pas.bk,5755,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf3,CB_IMGPSScanImp.pas.bk,5759,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=3&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf4,CB_IMGPSScanImp.pas.bk,5796,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf4,CB_IMGPSScanImp.pas.bk,5799,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=4&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf5,CB_IMGPSScanImp.pas.bk,5836,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf5,CB_IMGPSScanImp.pas.bk,5839,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=5&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf6,CB_IMGPSScanImp.pas.bk,5876,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf6,CB_IMGPSScanImp.pas.bk,5879,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=6&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.GetSetInf7,CB_IMGPSScanImp.pas.bk,5916,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetSetInf7,CB_IMGPSScanImp.pas.bk,5919,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=7&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.ImageReSize_FormID,CB_IMGPSScanImp.pas.bk,6388,LoadFileGetMD5,,if (ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName)) and (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName))=-1) then
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6656,upFile,,if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6680,SetFtpInfo,,SetFtpInfo;
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6682,IIS_Ftp,,if not IIS_Ftp.FtpsConnect then
+[V],TCB_IMGPSScanX.TransCaseID,CB_IMGPSScanImp.pas.bk,6695,FtpCaseComplete,,if not FtpCaseComplete(SendData) then //Ftpä¸å³å¾éç¥å®æ
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6838,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.GetNode2Name,CB_IMGPSScanImp.pas.bk,6840,dnFile,,if not dnFile(HTTPSClient,DownUrl,'','',DPath+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.DownLoadImage,CB_IMGPSScanImp.pas.bk,6959,SetFtpInfo,,SetFtpInfo;
+[V],TCB_IMGPSScanX.DownLoadImage,CB_IMGPSScanImp.pas.bk,6961,IIS_Ftp,,if not IIS_Ftp.FtpsConnect then
+[V],TCB_IMGPSScanX.Down_Img,CB_IMGPSScanImp.pas.bk,6987,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TCB_IMGPSScanX.Down_Img,CB_IMGPSScanImp.pas.bk,6991,dnFile_Get,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.Down_Img,CB_IMGPSScanImp.pas.bk,6991,dnFile,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.DistinctDocinCase,CB_IMGPSScanImp.pas.bk,7323,LoadFileGetMD5,,if (ISExistImg(Path+S.Strings[i])) or (reSizeExistImgList.IndexOf(LoadFileGetMD5(Path+S.Strings[i]))<>-1) then
+[V],TCB_IMGPSScanX.LoadFileGetMD5,CB_IMGPSScanImp.pas.bk,9551,LoadFileGetMD5,,function TCB_IMGPSScanX.LoadFileGetMD5(const filename: string): string;
+[V],TCB_IMGPSScanX.LoadFileGetMD5,CB_IMGPSScanImp.pas.bk,9558,TIdHashMessageDigest5,,idmd5:TIdHashMessageDigest5; //import IdHashMessageDigest, idHash
+[V],TCB_IMGPSScanX.CheckAvailable,CB_IMGPSScanImp.pas.bk,9835,dnFile_Get,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.CheckAvailable,CB_IMGPSScanImp.pas.bk,9835,dnFile,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.CheckAvailable,CB_IMGPSScanImp.pas.bk,9891,upFile,,if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False) then
+[V],TCB_IMGPSScanX.TransOldCaseFile,CB_IMGPSScanImp.pas.bk,10910,upFile,,if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then
+[V],DecodeFtpInfo,CB_IMGPSScanImp.pas.bk,10976,En_DecryptionStr_Base64,,FtpStr := En_DecryptionStr_Base64('D',EncryStr,MpsKey);
+[V],DecodeFtpInfo,CB_IMGPSScanImp.pas.bk,10994,ProcessServlet_FormData,,If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/ftps',SendData,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.SetFtpInfo,CB_IMGPSScanImp.pas.bk,11042,SetFtpInfo,,Procedure TCB_IMGPSScanX.SetFtpInfo; //餵å
¥FTPè³è¨
+[V],TCB_IMGPSScanX.SetFtpInfo,CB_IMGPSScanImp.pas.bk,11044,IIS_Ftp,,IIS_Ftp.Display1 := Display1;
+[V],TCB_IMGPSScanX.FtpCaseComplete,CB_IMGPSScanImp.pas.bk,11072,FtpCaseComplete,,Function TCB_IMGPSScanX.FtpCaseComplete(SendData:String):Boolean;
+[V],TCB_IMGPSScanX.FtpCaseComplete,CB_IMGPSScanImp.pas.bk,11075,ProcessServlet_FormData,,If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/caseupload',SendData,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.ISExistImg,CB_IMGPSScanImp.pas.bk,11359,LoadFileGetMD5,,if ExistImgList.IndexOf(LoadFileGetMD5(filename))<>-1 then
+[V],TCB_IMGPSScanX.DistinctFormCode,CB_IMGPSScanImp.pas.bk,12222,LoadFileGetMD5,,LogFile1.LogToFile(logTimeString+S.Strings[i]+' reSizeExistImgList='+BoolToStr(reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1,true));
+[V],TCB_IMGPSScanX.DownLanguage,CB_IMGPSScanImp.pas.bk,13062,dnFile,,//dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)
+[V],TCB_IMGPSScanX.DownLanguage,CB_IMGPSScanImp.pas.bk,13063,dnFile_Get,,If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then
+[V],TCB_IMGPSScanX.GetOMRCheckSet,CB_IMGPSScanImp.pas.bk,14527,dnFile_Get,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.GetOMRCheckSet,CB_IMGPSScanImp.pas.bk,14527,dnFile,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.GetKeyinSet,CB_IMGPSScanImp.pas.bk,14585,dnFile_Get,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.GetKeyinSet,CB_IMGPSScanImp.pas.bk,14585,dnFile,,if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TCB_IMGPSScanX.CaseAsk,CB_IMGPSScanImp.pas.bk,14634,ProcessServlet_Get,,If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then
+[V],TCB_IMGPSScanX.CaseComplete,CB_IMGPSScanImp.pas.bk,14689,En_DecryptionStr_Base64,,EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],Global_Or_Interface,OldCaseInfo.pas,40,TElHTTPSClient,,HTTPSClient: TElHTTPSClient;
+[V],HTTPSClientCertificateValidate,OldCaseInfo.pas,46,HTTPSClientCertificateValidate,,procedure HTTPSClientCertificateValidate(Sender: TObject;
+[V],TOldCaseInfoForm.Down_Img,OldCaseInfo.pas,108,En_DecryptionStr_Base64,,//EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+[V],TOldCaseInfoForm.Down_Img,OldCaseInfo.pas,113,dnFile_Get,,if not dnFile_Get(HTTPSClient,Furl,'service/slic/SLIC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TOldCaseInfoForm.Down_Img,OldCaseInfo.pas,113,dnFile,,if not dnFile_Get(HTTPSClient,Furl,'service/slic/SLIC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
+[V],TOldCaseInfoForm.HTTPSClientCertificateValidate,OldCaseInfo.pas,710,HTTPSClientCertificateValidate,,procedure TOldCaseInfoForm.HTTPSClientCertificateValidate(Sender: TObject;
\ No newline at end of file
diff --git a/scripts/dist/readme.md b/scripts/dist/readme.md
new file mode 100644
index 0000000..188bca3
--- /dev/null
+++ b/scripts/dist/readme.md
@@ -0,0 +1,18 @@
+
+
+
+### 模組引用相依分析
+.image, .io, .scan, .transp, 分別代表 影像, IO, 掃描, Transportation
+
+- [deps.all.csv](deps.all.csv)（合併以下所有）
+- [CB_IMGPSScanImp.pas.bk.image.csv](CB_IMGPSScanImp.pas.bk.image.csv)
+- [CB_IMGPSScanImp.pas.bk.io.csv](CB_IMGPSScanImp.pas.bk.io.csv)
+- [CB_IMGPSScanImp.pas.bk.scan.csv](CB_IMGPSScanImp.pas.bk.scan.csv)
+- [CB_IMGPSScanImp.pas.bk.transp.csv](CB_IMGPSScanImp.pas.bk.transp.csv)
+- [ErrList.pas.image.csv](ErrList.pas.image.csv)
+- [ErrList.pas.io.csv](ErrList.pas.io.csv)
+- [OldCaseInfo.pas.image.csv](OldCaseInfo.pas.image.csv)
+- [OldCaseInfo.pas.io.csv](OldCaseInfo.pas.io.csv)
+- [OldCaseInfo.pas.transp.csv](OldCaseInfo.pas.transp.csv)
+- [PatchFom.pas.image.csv](PatchFom.pas.image.csv)
+- [PatchFom.pas.scan.csv](PatchFom.pas.scan.csv)
diff --git a/scripts/dist/scanimpl_annalysis.remainings.txt b/scripts/dist/scanimpl_annalysis.remainings.txt
new file mode 100644
index 0000000..15de277
--- /dev/null
+++ b/scripts/dist/scanimpl_annalysis.remainings.txt
@@ -0,0 +1,1050 @@
+unit CB_IMGPSScanImp;
+//TEST
+{$WARN SYMBOL_PLATFORM OFF}
+
+interface
+
+uses
+ EnScan, { for Scanner }
+ EnDiGrph, { for TDibGraphic }
+ EnMisc, { for MinFloat }
+ EnTifGr, { for TTifGraphic }
+ {$IFDEF Production}
+ CB_IMGPSScan_TLB,
+ {$ENDIF}
+ {$IFDEF Test}
+ CB_IMGPSScan_test_TLB,
+ {$ENDIF}
+
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ ActiveX, AxCtrls, StdVcl, VCLUnZip, VCLZip, Encryp,
+ ExtCtrls, ComCtrls, Menus, StdCtrls, Gauges, EnImgScr, PJMenuSpeedButtons,
+ Buttons, ImgList, SBSimpleSSL, SBHTTPSClient, SBWinCertStorage, SBX509,
+ SBCustomCertStorage, SBUtils,mpsBarco,BarcodesFinder,HTTPApp,ErrList,
+ Xmltool,inifiles,printers,IdHashMessageDigest, idHash, LogFile,ShellApi,
+ SBSocket,IIS_Ftp, SBSimpleFTPS;
+Type
+ TTransMode =(tsHttp,tsFtp,tsNone);
+
+var
+ Ch_WriteNote : Boolean;
+ RejectCase : Boolean;
+ ErrIndex : Integer;
+
+ //*****預設區*****//
+ Def_DeviceDelete : Boolean; //空白頁刪除啟動
+ Def_DeviceDeleteSize : Integer; //空白頁Size
+ Def_ScannerReverse : Boolean; //是否需反相
+ Def_BoardClear : Boolean; //是否清黑邊
+ Def_ScanDpi : Integer; //掃瞄DPI
+ Def_ScanDuplex : Boolean; //是否雙面掃瞄
+ Def_ScanRotate : Integer; //掃瞄時旋轉角度
+ Def_ScanDeskew : Boolean; //是否傾斜矯正
+ Def_ScanBright : Integer; //亮度
+ Def_ScanContrast : Integer; //對比
+ Def_ScanImgShowMode : Integer; //0:清楚影像 1:不清楚影像 2:不顯示
+ Def_ScanImgSetUse : Boolean; //是否使用亮度對比設定
+ //*****預設區*****//
+
+Const
+ ISBName = 'PreViewISB';
+
+{獲取自身版本號所需要 }
+type
+ TVersionLanguage = (vlArabic, vlBulgarian, vlCatalan, vlTraditionalChinese,
+ vlCzech, vlDanish, vlGerman, vlGreek, vlUSEnglish, vlCastilianSpanish,
+ vlFinnish, vlFrench, vlHebrew, vlHungarian, vlIcelandic, vlItalian,
+ vlJapanese, vlKorean, vlDutch, vlNorwegianBokmel, vlPolish,
+ vlBrazilianPortuguese, vlRhaetoRomanic, vlRomanian, vlRussian,
+ vlCroatoSerbian, vlSlovak, vlAlbanian, vlSwedish, vlThai, vlTurkish,
+ vlUrdu, vlBahasa, vlSimplifiedChinese, vlSwissGerman, vlUKEnglish,
+ vlMexicanSpanish, vlBelgianFrench, vlSwissItalian, vlBelgianDutch,
+ vlNorwegianNynorsk, vlPortuguese, vlSerboCroatian, vlCanadianFrench,
+ vlSwissFrench, vlUnknown);
+
+const LanguageValues: array[TVersionLanguage] of Word = ($0401, $0402, $0403,
+ $0404, $0405, $0406, $0407, $0408, $0409, $040A, $040B, $040C, $040D,
+ $040E, $040F, $0410, $0411, $0412, $0413, $0414, $0415, $0416, $0417,
+ $0418, $0419, $041A, $041B, $041C, $041D, $041E, $041F, $0420, $0421,
+ $0804, $0807, $0809, $080A, $080C, $0810, $0813, $0814, $0816, $081A,
+ $0C0C, $100C, $0000);
+{獲取自身版本號所需要 end}
+
+
+type
+ TScanMode = (smNew, smReplace, smInsert, smSample, smRTS);
+ TpScanInfo = ^TScanInfo;
+ TScanInfo = record
+ MultiPage : Boolean;
+ { supplementary info when MultiPage is True }
+ Graphic : TTiffGraphic;
+ Stream : TFileStream;
+ ImageCount : LongInt;
+ end;
+ TOMRErrInfo = record
+ Display : Boolean; //是否顯示
+ Ignore : Boolean; //可否刪除
+ Info : String;
+ Mode : String;
+ end;
+ TScrollRec = Record
+ HScroll : Integer;
+ VScroll : Integer;
+ Rate : Single;
+ end;
+
+type
+ TCB_IMGPSScanX = class(TActiveForm, ICB_IMGPSScanX)
+ Panel1: TPanel;
+ TransBtn: TBitBtn;
+ Panel21: TPanel;
+ ViewModeBtn: TPJMenuSpeedButton;
+ Button2: TButton;
+ Button1: TButton;
+ OptionBtn: TBitBtn;
+ SelectScanBtn: TBitBtn;
+ NextPageBtn: TBitBtn;
+ PrePageBtn: TBitBtn;
+ FC6: TBitBtn;
+ FC5: TBitBtn;
+ FC4: TBitBtn;
+ FC3: TBitBtn;
+ FC2: TBitBtn;
+ FC1: TBitBtn;
+ FC0: TBitBtn;
+ Panel23: TPanel;
+ PJLinkedMenuSpeedButton2: TPJLinkedMenuSpeedButton;
+ NewScanBtn: TBitBtn;
+ AddScanBtn: TBitBtn;
+ Panel4: TPanel;
+ Panel2: TPanel;
+ Splitter1: TSplitter;
+ Panel3: TPanel;
+ Label7: TLabel;
+ Panel6: TPanel;
+ CB1: TCheckBox;
+ ScanDuplexCB: TCheckBox;
+ ScanFlatCB: TCheckBox;
+ Panel18: TPanel;
+ Panel12: TPanel;
+ Panel7: TPanel;
+ Panel9: TPanel;
+ Shape1: TShape;
+ ImageScrollBox1: TImageScrollBox;
+ imgp8: TPanel;
+ lb8: TLabel;
+ ISB8: TImageScrollBox;
+ imgp7: TPanel;
+ lb7: TLabel;
+ ISB7: TImageScrollBox;
+ imgp6: TPanel;
+ lb6: TLabel;
+ ISB6: TImageScrollBox;
+ imgp5: TPanel;
+ lb5: TLabel;
+ ISB5: TImageScrollBox;
+ imgp4: TPanel;
+ lb4: TLabel;
+ ISB4: TImageScrollBox;
+ imgp3: TPanel;
+ lb3: TLabel;
+ ISB3: TImageScrollBox;
+ imgp2: TPanel;
+ lb2: TLabel;
+ ISB2: TImageScrollBox;
+ imgp1: TPanel;
+ lb1: TLabel;
+ Memo1: TMemo;
+ Display1: TMemo;
+ Panel22: TPanel;
+ Panel8: TPanel;
+ Label2: TLabel;
+ Gauge1: TGauge;
+ ScrollBar1: TScrollBar;
+ Panel10: TPanel;
+ PageLV: TListView;
+ StatusBar1: TStatusBar;
+ ImageList4: TImageList;
+ ImageList3: TImageList;
+ ImageList1: TImageList;
+ PopupMenu2: TPopupMenu;
+ mode1: TMenuItem;
+ mode2: TMenuItem;
+ mode3: TMenuItem;
+ mode4: TMenuItem;
+ N51: TMenuItem;
+ ImageList2: TImageList;
+ OpenDialog1: TOpenDialog;
+ PopupMenu3: TPopupMenu;
+ PM301: TMenuItem;
+ PM302: TMenuItem;
+ PM303: TMenuItem;
+ Timer1: TTimer;
+ TomEncryption1: TTomEncryption;
+ SaveDialog1: TSaveDialog;
+ Timer2: TTimer;
+ VCLZip1: TVCLZip;
+ PopupMenu4: TPopupMenu;
+ PM401: TMenuItem;
+ PM402: TMenuItem;
+ PM403: TMenuItem;
+ PM404: TMenuItem;
+ ElWinCertStorage: TElWinCertStorage;
+ ElMemoryCertStorage: TElMemoryCertStorage;
+ Panel5: TPanel;
+ AddCredit1RG: TRadioGroup;
+ Panel11: TPanel;
+ SampleScanBtn: TBitBtn;
+ WNoteBtn: TBitBtn;
+ PopupMenu1: TPopupMenu;
+ PM101: TMenuItem;
+ N12: TMenuItem;
+ PM102: TMenuItem;
+ MenuItem1: TMenuItem;
+ PM103: TMenuItem;
+ PM104: TMenuItem;
+ N7: TMenuItem;
+ PM106: TMenuItem;
+ PM107: TMenuItem;
+ PM108: TMenuItem;
+ PM109: TMenuItem;
+ PopupMenu5: TPopupMenu;
+ PM501: TMenuItem;
+ PM502: TMenuItem;
+ PM503: TMenuItem;
+ PM504: TMenuItem;
+ N5: TMenuItem;
+ PM505: TMenuItem;
+ PM506: TMenuItem;
+ N29: TMenuItem;
+ PM510: TMenuItem;
+ PM509: TMenuItem;
+ PM507: TMenuItem;
+ N15: TMenuItem;
+ PM508: TMenuItem;
+ ExportBt: TButton;
+ ImportBt: TButton;
+ CheckCaseBtn: TBitBtn;
+ DenialTimeLb: TLabel;
+ Panel14: TPanel;
+ ScrollBox1: TScrollBox;
+ Label1: TLabel;
+ Button3: TButton;
+ Panel15: TPanel;
+ Button4: TButton;
+ PopupMenu6: TPopupMenu;
+ PM602: TMenuItem;
+ PM601: TMenuItem;
+ PM605: TMenuItem;
+ PM603: TMenuItem;
+ PM604: TMenuItem;
+ N8: TMenuItem;
+ Panel16: TPanel;
+ SpeedButton3: TSpeedButton;
+ SpeedButton14: TSpeedButton;
+ SpeedButton15: TSpeedButton;
+ SpeedButton16: TSpeedButton;
+ SpeedButton17: TSpeedButton;
+ SpeedButton18: TSpeedButton;
+ SpeedButton19: TSpeedButton;
+ SpeedButton20: TSpeedButton;
+ SpeedButton21: TSpeedButton;
+ SpeedButton22: TSpeedButton;
+ Edit1: TEdit;
+ PM110: TMenuItem;
+ Image1: TImage;
+ UseOldCaseLb: TLabel;
+ PM111: TMenuItem;
+ SmoothCB: TCheckBox;
+ ISB_BW: TImageScrollBox;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ ISB1: TImageScrollBox;
+ Label3: TLabel;
+ LogFile1: TLogFile;
+ ScanGrayCB: TCheckBox;
+ AttFileGB: TGroupBox;
+ AttListBox: TListBox;
+ Panel20: TPanel;
+ AddAttFileLB: TLabel;
+ DelAttFileLB: TLabel;
+ Splitter2: TSplitter;
+ Panel17: TPanel;
+ TreeView1: TTreeView;
+ Panel13: TPanel;
+ PrtLb: TLabel;
+ CaseHelpBtn: TBitBtn;
+ HTTPSClient: TElHTTPSClient;
+ Button5: TButton;
+ FTPSClient1: TElSimpleFTPSClient;
+ Button6: TButton;
+ procedure ActiveFormCreate(Sender: TObject);
+ procedure Panel9Resize(Sender: TObject);
+ procedure ISB1Click(Sender: TObject);
+ procedure WNoteBtnClick(Sender: TObject);
+ procedure CaseHelpBtnClick(Sender: TObject);
+ procedure FC0Click(Sender: TObject);
+ procedure FC1Click(Sender: TObject);
+ procedure FC2Click(Sender: TObject);
+ procedure FC3Click(Sender: TObject);
+ procedure FC4Click(Sender: TObject);
+ procedure FC5Click(Sender: TObject);
+ procedure FC6Click(Sender: TObject);
+ procedure PrePageBtnClick(Sender: TObject);
+ procedure NextPageBtnClick(Sender: TObject);
+ procedure OptionBtnClick(Sender: TObject);
+ procedure SelectScanBtnClick(Sender: TObject);
+ procedure mode1Click(Sender: TObject);
+ procedure mode2Click(Sender: TObject);
+ procedure mode3Click(Sender: TObject);
+ procedure mode4Click(Sender: TObject);
+ procedure N51Click(Sender: TObject);
+ procedure ScrollBar1Change(Sender: TObject);
+ procedure ISB1EndScroll(Sender: TObject);
+ procedure ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
+ Y: Integer);
+ procedure ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure PM508Click(Sender: TObject);
+ procedure PM401Click(Sender: TObject);
+ procedure PM402Click(Sender: TObject);
+ procedure PM403Click(Sender: TObject);
+ procedure PM404Click(Sender: TObject);
+ procedure TreeView1Click(Sender: TObject);
+ procedure NewScanBtnClick(Sender: TObject);
+ procedure AddScanBtnClick(Sender: TObject);
+ procedure PageLVClick(Sender: TObject);
+ procedure PageLVKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+ procedure PageLVMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure PM101Click(Sender: TObject);
+ procedure PM104Click(Sender: TObject);
+ procedure PM102Click(Sender: TObject);
+ procedure PM103Click(Sender: TObject);
+ procedure PM106Click(Sender: TObject);
+ procedure PM107Click(Sender: TObject);
+ procedure PM108Click(Sender: TObject);
+ procedure PM109Click(Sender: TObject);
+ procedure PM301Click(Sender: TObject);
+ procedure PM302Click(Sender: TObject);
+ procedure PM303Click(Sender: TObject);
+ procedure PM501Click(Sender: TObject);
+ procedure PM502Click(Sender: TObject);
+ procedure PM503Click(Sender: TObject);
+ procedure PM504Click(Sender: TObject);
+ procedure PM505Click(Sender: TObject);
+ procedure PM510Click(Sender: TObject);
+ procedure PM509Click(Sender: TObject);
+ procedure PM507Click(Sender: TObject);
+ procedure PopupMenu1Popup(Sender: TObject);
+ procedure PopupMenu4Popup(Sender: TObject);
+ procedure PopupMenu5Popup(Sender: TObject);
+ procedure SampleScanBtnClick(Sender: TObject);
+ procedure StatusBar1DblClick(Sender: TObject);
+ procedure ExportBtClick(Sender: TObject);
+ procedure ImportBtClick(Sender: TObject);
+ procedure HTTPSClientCertificateValidate(Sender: TObject;
+ X509Certificate: TElX509Certificate; var Validate: Boolean);
+ procedure ScanDuplexCBClick(Sender: TObject);
+ procedure CheckCaseBtnClick(Sender: TObject);
+ procedure Timer1Timer(Sender: TObject);
+ procedure Timer2Timer(Sender: TObject);
+ procedure TransBtnClick(Sender: TObject);
+ procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
+ procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+ procedure TreeView1KeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ViewModeBtnMouseEnter(Sender: TObject);
+ procedure Button3Click(Sender: TObject);
+ procedure AddCredit1RGClick(Sender: TObject);
+ procedure CB1Click(Sender: TObject);
+ procedure Button4Click(Sender: TObject);
+ procedure ISB1Enter(Sender: TObject);
+ procedure TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
+ Y: Integer);
+ procedure PM601Click(Sender: TObject);
+ procedure PopupMenu6Popup(Sender: TObject);
+ procedure PM604Click(Sender: TObject);
+ procedure PM605Click(Sender: TObject);
+ procedure SpeedButton3Click(Sender: TObject);
+ procedure SpeedButton14Click(Sender: TObject);
+ procedure SpeedButton15Click(Sender: TObject);
+ procedure SpeedButton16Click(Sender: TObject);
+ procedure SpeedButton17Click(Sender: TObject);
+ procedure SpeedButton18Click(Sender: TObject);
+ procedure SpeedButton19Click(Sender: TObject);
+ procedure SpeedButton20Click(Sender: TObject);
+ procedure SpeedButton21Click(Sender: TObject);
+ procedure SpeedButton22Click(Sender: TObject);
+ procedure ActiveFormKeyUp(Sender: TObject; var Key: Word;
+ Shift: TShiftState);
+ procedure PM110Click(Sender: TObject);
+ procedure PM602Click(Sender: TObject);
+ procedure PrtLbClick(Sender: TObject);
+ procedure Panel1DblClick(Sender: TObject);
+ procedure Panel11DblClick(Sender: TObject);
+ procedure UseOldCaseLbClick(Sender: TObject);
+ procedure PM111Click(Sender: TObject);
+ procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
+ procedure SmoothCBClick(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure TreeView1MouseEnter(Sender: TObject);
+ procedure ScrollBox1MouseEnter(Sender: TObject);
+ procedure ScanGrayCBClick(Sender: TObject);
+ procedure AddAttFileLBClick(Sender: TObject);
+ procedure DelAttFileLBClick(Sender: TObject);
+ procedure AttListBoxDblClick(Sender: TObject);
+ procedure AttListBoxClick(Sender: TObject);
+ procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure HTTPSClientRedirection(Sender: TObject; const OldURL: string;
+ var NewURL: string; var AllowRedirection: Boolean);
+ procedure Button5Click(Sender: TObject);
+ procedure Button6Click(Sender: TObject);
+ private
+ { Private declarations }
+ HotKeyId1,HotKeyId2,HotKeyId3,HotKeyId4 :Integer;
+
+ ////////傳入參數/////////
+ FUrl : String;
+ FCaseID : String;
+ FMode : String; //NSCAN:新件;ESCAN:修改 20170306 DSCAN:被配合待掃瞄清單使用
+ FModeName : String;
+ FWork_no : String;
+ FUserID : String;
+ FUserName : String;
+ FUserUnit : String;
+ FData : String;
+ FVerify : String;
+ FReWrite : String;
+ FLanguage : String;
+ FLoanDoc_Value : String; //新增授信卷的值
+ FLoanDoc_Enable : String; //新增授信卷是否可異動
+ FUseProxy : String; //是否使用Proxy
+ FC_DocNoList : String; //外面傳來要新增的文件編號
+ FC_DocNameList : String; //外面傳來要新增的自訂文件
+ FFixFileList : String; //要鎖住的檔名
+ FIs_In_Wh : String; //是否只顯示入庫文件 (Y:只顯示入庫 N:只顯示非入庫 空白:都顯示)
+ FOldCaseInfo : String; //舊件資訊 CaseID_year[tab]CaseID_year
+ FPrintyn : String; //是否可列印
+ FIs_OldCase : String; //是否是舊案第一次進入
+ FCustDocYN : String; //是否可自訂文件
+ //20170222 新增
+ FImgDPI:integer;//DPI 依業務別決定 150~~1200 預設300
+ FScanColor:integer;///掃瞄色彩 依業務別決定 0 :黑白 1：灰階 2：彩色 預設黑白
+ FFileSizeLimit:integer;//匯入單一檔案大小限 依業務別決定 以KB為單位 預設5*1024kb
+ FCaseNoLength:integer;//案件編號長度檢查 依業務別決定 無預設 一定要傳入
+ FImgDelete:string; // Y/N 有權限可在補件時刪除影像
+ FIsExternal:string;//Y/N
+ FCheck_main_form:string; //Y/N
+ FWH_category:string; //Y/N Y是歸類時有區分入庫非入庫文件 N 是不區分
+ ////////傳入參數///////
+
+ TransMode : TTransMode; //用何種方式上傳檔案
+ //********Http參數********
+ HttpErrStr : String; //錯誤訊息
+ //********Http參數********
+
+ //********Ftp參數*********
+ FFtpIP : String;
+ FFtpID : String;
+ FFtpPwd : String;
+ FFtpRootPath : String;
+ FFtpExtraPath : String;
+ FFtpPort : Integer;
+ FFtpProtocol : TFtpProtocol;
+ //********Ftp參數*********
+
+ //********ini參數********
+ DeviceDelete : Boolean; //空白頁刪除啟動
+ DeviceDeleteSize : Integer; //空白頁Size
+ ScannerReverse : Boolean; //是否需反相
+ BoardClear : Boolean; //是否清黑邊
+ ScanDpi : Integer; //掃瞄DPI
+ ScanDuplex : Boolean; //是否雙面掃瞄
+ ScanRotate : Integer; //掃瞄時旋轉角度
+ ScanDeskew : Boolean; //是否傾斜矯正
+ ScanBright : Integer; //亮度
+ ScanContrast : Integer; //對比
+ ScanImgShowMode : Integer; //0:清楚影像 1:不清楚影像 2:不顯示
+ ScanImgSetUse : Boolean; //是否使用亮度對比設定
+
+ //********ini參數********
+ ScanColor : TImageFormat;
+
+ //********時間********
+ ServerDate : String;
+ ServerTime : String;
+ Balance : Longint; //local跟server的時間差
+ ScanDenialTime : String; //停止進件時間
+ //********時間********
+ ScanDenialHint : String; //掃描顯示提醒字串
+
+ //********路徑********
+ ScanPath : String; // SpecifyDir\Workid\userunit\mode
+ ImagePath : String; // SpecifyDir\Workid\userunit\mode
+ ImageSavePath : String; // ImagePath\
+ ScaniniPath : String; // SpecifyDir\Workid\userunit\
+ LngPath :String; //多國語言檔目錄
+ CheckXmlPath : String; //檢核用的Xml存放目錄
+ SitePath : String; //登打位置(切簽名用)
+ SamplePath : String; //範本目錄
+ TransPath : String; //檔案上傳的路徑(補充件會多一層目錄)
+ //********路徑********
+ ScanSaveFilename : String; //掃瞄的檔名
+ ScanCaseno : String; //掃瞄時的案號
+ ScanDocDir : String; //掃描時的文件代號目錄
+ //********清單區********
+ Doc_Inf_List : TStringList; //Doc_Inf 清單
+ DM_FORM_INF_List :TstringList; //DM_FORM_INF 清單
+ FORM_INF_List : TStringList; //FORM_INF的清單
+ CHECK_RULE_INF_List : TStringList; //CHECK_RULE_INF 清單
+ MEMO_INF_List : TStringList; //MEMO_INF 清單
+ WORK_INF_List : TStringList; //WORK_INF 清單
+ LASTEST_FORM_INF_List : TStringList; // LASTEST_FORM_INF 清單
+
+ FindResult : TStringList; //找SQLData的結果
+ CaseList : TStringList; //記錄掃瞄案件的順序
+ Context_DocnoList : TStringlist; //案件裡的Docno清單
+ CaseDocNoList : TStringlist; //案件裡的DocNo清單(不重複)
+ CaseDocNo_CopiesList : TStringlist; //案件裡的DocNo份數清單
+ ContextList : TStringlist; //案件裡的檔案清單
+ AttContextList : TStringlist; //案件裡的附加檔案清單
+ OMRFileList : TStringList; //要OMR檢核的文件(只檢查每種Form的第一頁)
+ Cust_DocNoList : TStringlist; //自行定義文件名稱
+ IN_WH_DocNoList : TStringlist; //入庫的文件清單
+
+ FormCode_PageSize : TStringList; //文件的預設大小 FormCode_Height_Width
+ DocNo_NeedDoc : TStringList; //有Docno時要相依的文件 DocNo_相依文件_相依文件
+ DocNo_NoDoc : TstringList; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
+ DocNo_VerinCase : TStringlist; //案件裡的DocNo+版本的清單
+
+ NoSaveBarCodeList : TStringlist; //不儲存的條碼清單
+ FormID_List : TStringlist; //FormID 清單 20130403 因為原FormCode2Docno會很慢..把FormID抽出來
+ DocNo_List : TStringlist; //DocNo 清單 20130403 因為原FormCode2Docno會很慢..把DocNo抽出來
+ NowShowFileList : TStringlist; //目前顯示的影像清單
+ NowSelectFileList : TStringlist; //目前被點選的影像清單
+ GuideFormIDList : TStringlist; //要當導引頁表單清單
+ DivPageFormIDList:TStringlist; //要當分案頁表單清單
+ LastInitFormidList:TStringList;
+ LastAddFormidList:TstringList;
+ SampleFormIDList:TStringList; //20170627 已存在範本的formid
+ ExistImgList:TStringList; //20170724 已經存在的影像list for ESCAN //Img的完整路徑
+ reSizeExistImgList:TstringList; //20171012被縮放的舊圖MD5存入
+ //********清單區********
+
+ //********顯示區********
+ NowCaseno : String; //目前顯示的案件編號
+ NowDocNo : String; //目前的文件編號
+ NowDocDir : String; //目前的文件目錄
+ NowFormCode : String; //目前顯示的表單編號
+ NowFormName : String; //目前顯示的表單名稱
+ NowPage : Integer; //目前點選的頁碼
+ DisplayPath : String; //目前顯示的目錄
+ //********顯示區********
+
+ //******索引資料*********
+ Case_loandoc : String; //是否新增授信卷
+ //******索引資料*********
+
+ //********十字定位點資訊********
+ UpLPoint : Tpoint; //左上方的十字點
+ UpRPoint : Tpoint; //右上方的十字點
+ DownLPoint : Tpoint; //左下方的十字點
+ DownRPoint : Tpoint; //右下方的十字點
+ Point_Width : String; //十字點的寬
+ Point_Height : String; //十字點的高
+ //********十字定位點資訊********
+
+ CaseIDLength : Integer; //案件編號長度
+ FormIDLength : Integer; //FormID長度
+ DocNoLength : Integer; //Docno長度
+
+ PEFileName : String; //掃描時的檔名
+ DownFileErrStr : String; //下載影像時發生的錯誤
+
+ ISB : TImageScrollBox;
+ ScanInfo : TScanInfo;
+ TwainShowUI : Boolean;
+ MpsBarcodeinf : TMpsBarcodeinf;
+ ScanMode : TScanMode;
+ Mpskey : String;
+ Seg : Integer; //顯示的邊界值
+ VMode : Integer; //顯示的index
+ NowClick : Integer; //目前點到的按鈕功能Index
+ ScanIP : String; //掃瞄端的IP
+ DisplayISB : TImageScrollBox; //被點到的影像
+ SelectISB : TImageScrollBox; //被點到的縮圖
+ SelectPage : Integer; //被點到的頁數
+ NewTreeNode,MyTreeNode1,MyTreeNode2,MyTreeNode3 : TTreenode;
+ InitialOk : Boolean; //資訊載入是否完成
+ ShowText : String; //DataLoading時要秀出的訊息
+ Ext : String; //附檔名 .tif .jpg
+ SafePixel : Integer; //OMR容忍誤差值點數
+ OMRErrInfo : Array[1..11] of TOMRErrInfo; //檢核的方式及訊息
+ ScrollRec : Array[1..8] of TScrollRec; //瀏覽窗的Scroll記錄
+ RecHozPos,RecVerPos : Integer; //記錄MPSViewX1的ScrollBar位置
+ ReczoomPercent : Single;
+ SortMode : Boolean;
+ PreMytreeNode2Name:String;
+ HS,VS : Integer;
+ iRate : Single;
+ Bt : Integer; //去直線時橫線判斷的容忍值
+ BarCodeRotate : Integer; //條碼要轉的角度
+ HaveAppDoc : Boolean; //補全時是否有補入要保書
+ PageLVclear : Boolean;
+ CaseCount,PageCount : Integer; //總案件量及總頁數
+ Item : TMenuItem;
+ SampleAnchorMode : String; //範本掃瞄十字線的模式 NONE:無;ANCHOR:十字;FRAME:邊框
+ DownImgStatus : String; //下載影像的狀態(NO_DATA:沒資料;NO_FILE:沒影像)
+ TransForm_Field : String; //要用OMR勾選確認是否轉換FORMID的欄位名稱
+ NowWork_No : String; //現在的作業別
+ CropBarcode : String; //要切影像的條碼
+ Has_Authorize :String; //是否有授權書影像
+ AttName : String; //未歸類目錄名稱
+ NowGuideFormID : String;
+ NowDivPageFormID:String;
+
+ FirstDocDir : String;
+ FMaxUploadSize:String;// 上傳zip大小限制
+ FJpgCompression:integer;// 20171211 jpg to tif 的壓縮率
+
+ Draging : Boolean;
+ MDown : Boolean; //20181210 用來判斷滑鼠右鍵要Popupmenu是否有MouseDonw發生
+
+ FEvents: ICB_IMGPSScanXEvents;
+
+ procedure HotKeyDown (var Msg : TMessage);message WM_HOTKEY;
+ Procedure InitialLanguage(Sender: TObject); //畫面載入多國語言
+ //Function _Msg(S:String):String;
+
+ //*********SQL相關************
+ Procedure SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入
+ Function GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值
+ Function FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料
+ Function GetFindResult(Col:String):String;
+ //*********SQL相關************
+
+ //*********FTP相關************
+ Function GetFtpinfo(CaseID,Action:String):Boolean;
+ Procedure SetFtpInfo; //餵入FTP資訊
+ Function FtpCaseComplete(SendData:String):Boolean;
+ //*********FTP相關************
+
+ //*******轉換區*********
+ Function FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼
+ Function FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱
+ Function FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁)
+ Function FileName2FormCode(FileName:String):String; //從檔名取出FormCode
+ Function FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱
+ Function FileName2ScanPage(FileName:String):Integer; //從檔名取出掃瞄頁數
+ Function FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名
+ Function FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號
+ Function FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號
+ Function FormCode2DocNo(FormCode:String):String; //FormCode轉Docno
+ Function FormCode2Version(FormCode:String):String; //FormCode轉版本
+ Function FormCode2Page(FormCode:String):String; //FormCode轉文件頁數
+ Function DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱
+ Function DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁)
+ Function FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別
+ Function DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別
+ Function DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄
+ Function DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo
+ Function DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index
+
+ Function DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號
+ //Function CaseNo2DocNo(CaseNo:String):TStringList;
+
+ Function CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page
+ Function DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group
+ Function FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page
+ //*******轉換區*********
+
+ Procedure PriorPage(Page:Integer); //上一頁
+ Procedure NextPage(Page:Integer); //下一頁
+
+ Function DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //DocNo是否己存在樹裡
+ Function DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組
+
+ function GetSiteOMR(FileName, Site: String;bt: Integer): Integer;
+ Function FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示
+ Procedure R_W_ScanIni(Mode:Char); //'R'讀取;'W'寫入
+ Procedure GetDefScanIni; //取得掃瞄的預設值
+ procedure DesableImage;
+ procedure EnableImage(v:integer;Sender : TObject);
+ Procedure ViewMouseMode(v:Integer);
+ Procedure GoViewMode;
+ Procedure DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel);
+ Function GetServerDate : Boolean; //取主機時間
+ Function GetSetInf1 : Boolean; //取系統設定資訊mode1 DOC_INF
+ Function GetSetInf2 : Boolean; //取系統設定資訊mode2 DM_FORM_INF
+ Function GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF
+ Function GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF
+ Function GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF
+ Function GetSetInf6 : Boolean; //取系統設定資訊mode6 WORK_INF
+ Function GetSetInf7 : Boolean; //取系統設定資訊mode7 LASTESTFORM_INF
+ Procedure SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡
+ Procedure SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
+
+ Procedure DataLoading(Loading,UseTimer:Boolean); //資料載入中要停止點選的動作
+ procedure ClearView(stkv:Integer); //清除瀏覽窗的影像
+ Function DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree
+
+ Procedure initkscan; //檢查掃描器的功能
+ procedure LoadImgFile; //載入案件
+ procedure LoadImgFile1; //載入案件
+ procedure LoadAttFile(CaseID:String); //載入附加檔案
+ Procedure DistinctFormCode(CaseID:String); //案件裡的FormCode取出第一頁
+ Function OMRCheckCase(CaseID:String):Boolean; //OMR檢核
+ Procedure OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini
+ Procedure OMRErrini2List(CaseID:String;ErrlistForm : TErrlistForm); //OMR檢核失敗從ini寫入ListView
+ Function DownLanguage:Boolean; //下載多國語言檔
+ Function FindMpsView(Vmode:Integer):TImageScrollBox;
+ Function CaseAsk(CaseID:String):Integer; //詢問是否可上傳 (-1:失敗;0:可以;1:不行;)
+ Function CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成
+ Function GetCaseFormID(Path:String):String; //取案件的FormID
+ Procedure CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat
+ Procedure CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat
+ Procedure CreateIn_WH(CaseID:String); //產生In_WH.dat
+ Function CreateDocNo_Info(CaseID:String):String; //產生保管袋文件 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動
+ Function CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動
+ //Function CreateCustDocNo_Info(path,CaseID:String):String; overload
+ Function CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有
+ Function CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+ Function CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
+
+ Function GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N)
+ Function GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數
+ Function GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數
+ Function FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在及是否要檢查啟用停用日期
+ Function Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡
+ Procedure ReSortFileName_New(Path:String); //檔名重新排序
+ Procedure ReSortFileName(Path:String); //檔名重新排序
+ Procedure ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat
+ Function GetOMRCheckSet:Boolean; //下載OMR檢核XML檔
+ Function GetKeyinSet : Boolean; //取登打設定
+ Procedure CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record
+ Procedure ReNameContext(Path,OldName,NewName:String);
+ Procedure DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案
+ Procedure DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件
+ Function DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件
+ Procedure DeleteShowFile(Path:String); //刪除顯示中的影像
+ Function GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數
+ Function CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //檢查案件裡的文件_版本頁數
+ Function FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數
+ Function GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數
+ Procedure CaseReSize(CaseID:String); //案件的影像縮放
+ Procedure ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放
+ Procedure ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔)
+ Function TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件
+ Procedure NewTreeNodeRefresh;
+ Procedure MyTreeNode1Refresh;
+ Procedure MyTreeNode2ReFresh(CaseID:String);
+ Procedure MyTreeNode3ReFresh(CaseID:String);
+ Function Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來
+ Function Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來
+ Function Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來
+ Function GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
+ //Function Down_Replace_Img(SPAth,DPath,CaseID:String):Boolean;
+ Function DownLoadImage(Path,CaseID:String):Boolean;
+ Function Down_Img(Path,CaseID:String):Boolean;
+ Function GetNoNameCase(Path:string):String; //取未配號XXXX
+ Procedure CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno挑)
+ Procedure CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
+ Procedure DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
+ Procedure DistinctDocNoinCase(Path:String); //列出案件裡的Docno
+ Procedure ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案
+ Procedure SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改'
+ Procedure SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改'
+ Procedure SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+ Procedure SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
+
+
+ Function checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核
+ Function CheckCaseID_OK:Boolean; //檢查是否有未配號的案件
+ Procedure CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用)
+ Procedure InitScrollRec; //初始化影像Scroll記錄
+ Procedure GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single); //取影像Scroll記錄
+ Procedure SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single); //寫影像Scroll記錄
+ Procedure FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID
+ Procedure ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID
+ Procedure PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID
+ Function ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核
+ procedure WMMOUSEWHEEL(var message: TWMMouseWheel); message WM_MOUSEWHEEL;
+ Function GetCasePage(Path,CaseID:String):Integer;
+ Function GetFormIDPage(FileList:TStringlist;FormID:String):Integer;
+ Procedure SetFile2Case(CaseID,FileName:String);
+ Procedure WriteResize(ImgName,TxtName:String); //產生Resize.dat
+ Function GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數 ID為空值時為取所有的
+ Function BarCode2FormID : String; //Barcode依規則轉成FormID
+ Function BarCode2CaseID : String; //Barcode依規則轉成CaseID
+ Procedure WriteCaseIndex(Path:String);
+ Procedure ReadCaseIndex(Path:String);
+ Procedure ClearCaseIndex;
+ Procedure GetSelectImageFile;
+ Function GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數
+ Function CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡
+
+ Procedure ZipMainFile(SoPath,DePath,ZipName:String); //壓縮影像檔
+ Procedure ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔
+ Procedure ParserPoint(S:String); //解析十字點的字串
+ Function CheckScanDenialTime:Boolean;
+ Function FormID2Anchor(FormID:String):String; //用FormID取出十字模式
+ Function Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME
+ Function MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼
+ Function GetFormatID(CaseID:String):String; //取出案件的FormatID
+ Function FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼
+ Function CheckAvailable:Boolean; //檢查是否可使用元件
+ Function Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像
+ Function CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
+ Function GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號
+ Function GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱
+ Function GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID
+ Function GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir
+ Function FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在
+ Procedure DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo
+ Function CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印
+ procedure PrintImg(FileName, LoginID, Datetime,Path: WideString);
+ Function FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir
+ Procedure Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件
+ Procedure OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
+ Procedure ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
+ Procedure SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
+ Function GetDocDir_Page(CaseID,DocDir:String):Integer; //取得DocDir的頁數
+ Function Path2DocDir(Path,CaseID:String):String;
+ Function GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+ Procedure SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序
+ Procedure GotoAttach(OldLevel:Integer);
+ Function DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
+ Procedure CreateCaseNeedData(Path:String); //先做影像截取會少二個文字檔,產生CaseDocNo.dat及DocDir.dat
+ Procedure SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String);
+ Function CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像
+ Function TransOldCaseFile(Path:String):Boolean; //上傳引用舊件的記錄檔
+ Function Writelog(CaseID:String):Boolean;
+ Function FormIDAppear(FormID:String):Boolean; //FormID是否可出現
+ Function DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
+ Function GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量
+ Function GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir份數
+ Procedure SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數
+ Function GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數
+ Function GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量
+ Function GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量
+ Function ISGuideFormID(FormID:String):Boolean;
+ Function CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除
+
+ Procedure MoveImage(Path:String;mp:Integer); //移動頁數
+ Procedure MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數
+
+
+ Procedure SetUseCase(Mode:Char;Path,DocDir,FormCaseID,ToCaseID:String); //記錄引用其他案件 A:加入 D:刪掉
+ Function GetUseCase(Mode:Char;Path,DocDir:String):String; //F:取被引用 To:引用
+
+ Procedure Case2upload(CaseID:String);
+ Procedure Download2Case(SoDir,DeDir:String);
+
+ procedure view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像
+ procedure view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像
+
+ Function ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName
+ Procedure CreatePreViewISB(Count:Integer);
+ Procedure FreePreViewISB;
+ Procedure FitPreViewISB;
+ Procedure PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像
+ Procedure FreeShapeobj(SelectISB : TImageScrollBox);
+ Procedure ISBClick(Sender : TObject);
+ Procedure ISBMouseMove(Sender: TObject; Shift: TShiftState;
+ X, Y: Integer);
+ procedure ISBImageMouseDown(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ISBImageMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
+ procedure ISBEndDrag(Sender, Target: TObject; X, Y: Integer);
+ procedure ISBDragDrop(Sender, Source: TObject; X, Y: Integer);
+ procedure ISBDragOver(Sender, Source: TObject; X, Y: Integer;
+ State: TDragState; var Accept: Boolean);
+
+ procedure BtnMouseEnter(Sender: TObject);
+
+ procedure PageEnd; //掃描接收完成
+ Procedure PageDone; //掃描完成後顯示影像
+ procedure StatrTwainScan;
+ procedure OnAcquire( const DibHandle : THandle;
+ const XDpi : Word;
+ const YDpi : Word;
+ const CallBackData : LongInt );
+
+
+ procedure ActivateEvent(Sender: TObject);
+ procedure ClickEvent(Sender: TObject);
+ procedure CreateEvent(Sender: TObject);
+ procedure DblClickEvent(Sender: TObject);
+ procedure DeactivateEvent(Sender: TObject);
+ procedure DestroyEvent(Sender: TObject);
+ procedure KeyPressEvent(Sender: TObject; var Key: Char);
+ procedure MouseEnterEvent(Sender: TObject);
+ procedure MouseLeaveEvent(Sender: TObject);
+ procedure PaintEvent(Sender: TObject);
+ function GetCurrentVersionNo: String;
+ procedure initParameter;
+ procedure LastInitFormidListCreate(path:string);
+ function checkFormCodeIsCustom(path,formcode:string):boolean;
+ function ISDivPageFormID(FormID: String): Boolean;
+ function GetSampleInf: Boolean;
+ procedure InitExistImgList(casepath:String);
+ function LoadFileGetMD5(const filename:string):string; //20170809 取的檔案的MD5
+ function ISExistImg(const filename:string):boolean; //20170809 確認是否存在原有影像
+ procedure _DelTreeForExistImg(ASourceDir:String); //2017 刪除前確認 有舊影像嗎
+ function DocNoIsExistImg(DocNopath: String): boolean; //2017 刪除前確認 有舊影像嗎
+ function CheckCaseAttach_OK: Boolean;
+ function DeleteDocNoFileForESCAN(Path, DocNo: String): Boolean; //2017 確認是否有未歸類文件
+ function CheckRequiredColumnValues(workno,caseno:String) :Boolean; //20171003 此大類下此案是否檢核必填
+ function logTimeString :String;
+ procedure ReduceLogFile ;
+ function FindLastestDocDirForPage(CaseID, DocNo, formid: String): String;
+ function OMRErrini2ListForLog(CaseID: String):String;
+ protected
+ { Protected declarations }
+ procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
+ procedure EventSinkChanged(const EventSink: IUnknown); override;
+ function Get_Active: WordBool; safecall;
+ function Get_AlignDisabled: WordBool; safecall;
+ function Get_AlignWithMargins: WordBool; safecall;
+ function Get_AutoScroll: WordBool; safecall;
+ function Get_AutoSize: WordBool; safecall;
+ function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
+ function Get_Caption: WideString; safecall;
+ function Get_Color: OLE_COLOR; safecall;
+ function Get_DockSite: WordBool; safecall;
+ function Get_DoubleBuffered: WordBool; safecall;
+ function Get_DropTarget: WordBool; safecall;
+ function Get_Enabled: WordBool; safecall;
+ function Get_ExplicitHeight: Integer; safecall;
+ function Get_ExplicitLeft: Integer; safecall;
+ function Get_ExplicitTop: Integer; safecall;
+ function Get_ExplicitWidth: Integer; safecall;
+ function Get_Font: IFontDisp; safecall;
+ function Get_HelpFile: WideString; safecall;
+ function Get_KeyPreview: WordBool; safecall;
+ function Get_MouseInClient: WordBool; safecall;
+ function Get_ParentCustomHint: WordBool; safecall;
+ function Get_ParentDoubleBuffered: WordBool; safecall;
+ function Get_PixelsPerInch: Integer; safecall;
+ function Get_PopupMode: TxPopupMode; safecall;
+ function Get_PrintScale: TxPrintScale; safecall;
+ function Get_Scaled: WordBool; safecall;
+ function Get_ScreenSnap: WordBool; safecall;
+ function Get_SnapBuffer: Integer; safecall;
+ function Get_UseDockManager: WordBool; safecall;
+ function Get_Visible: WordBool; safecall;
+ function Get_VisibleDockClientCount: Integer; safecall;
+ procedure _Set_Font(var Value: IFontDisp); safecall;
+ procedure Set_AlignWithMargins(Value: WordBool); safecall;
+ procedure Set_AutoScroll(Value: WordBool); safecall;
+ procedure Set_AutoSize(Value: WordBool); safecall;
+ procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
+ procedure Set_Caption(const Value: WideString); safecall;
+ procedure Set_Color(Value: OLE_COLOR); safecall;
+ procedure Set_DockSite(Value: WordBool); safecall;
+ procedure Set_DoubleBuffered(Value: WordBool); safecall;
+ procedure Set_DropTarget(Value: WordBool); safecall;
+ procedure Set_Enabled(Value: WordBool); safecall;
+ procedure Set_Font(const Value: IFontDisp); safecall;
+ procedure Set_HelpFile(const Value: WideString); safecall;
+ procedure Set_KeyPreview(Value: WordBool); safecall;
+ procedure Set_ParentCustomHint(Value: WordBool); safecall;
+ procedure Set_ParentDoubleBuffered(Value: WordBool); safecall;
+ procedure Set_PixelsPerInch(Value: Integer); safecall;
+ procedure Set_PopupMode(Value: TxPopupMode); safecall;
+ procedure Set_PrintScale(Value: TxPrintScale); safecall;
+ procedure Set_Scaled(Value: WordBool); safecall;
+ procedure Set_ScreenSnap(Value: WordBool); safecall;
+ procedure Set_SnapBuffer(Value: Integer); safecall;
+ procedure Set_UseDockManager(Value: WordBool); safecall;
+ procedure Set_Visible(Value: WordBool); safecall;
+ procedure Set_caseid(const Value: WideString); safecall;
+ procedure Set_data(const Value: WideString); safecall;
+ procedure Set_mode(const Value: WideString); safecall;
+ procedure Set_rewrite(const Value: WideString); safecall;
+ procedure Set_url(const Value: WideString); safecall;
+ procedure Set_userid(const Value: WideString); safecall;
+ procedure Set_username(const Value: WideString); safecall;
+ procedure Set_verify(const Value: WideString); safecall;
+ procedure Set_language(const Value: WideString); safecall;
+ procedure Set_modename(const Value: WideString); safecall;
+ procedure Set_userunit(const Value: WideString); safecall;
+ procedure Set_work_no(const Value: WideString); safecall;
+ procedure Set_loandoc_enable(const Value: WideString); safecall;
+ procedure Set_loandoc_value(const Value: WideString); safecall;
+ procedure Set_useproxy(const Value: WideString); safecall;
+ procedure Set_c_docnamelist(const Value: WideString); safecall;
+ procedure Set_c_docnolist(const Value: WideString); safecall;
+ procedure Set_fixfilelist(const Value: WideString); safecall;
+ procedure Set_is_in_wh(const Value: WideString); safecall;
+ procedure Set_oldcaseinfo(const Value: WideString); safecall;
+ function Get_c_docnamelist: WideString; safecall;
+ function Get_c_docnolist: WideString; safecall;
+ function Get_caseid: WideString; safecall;
+ function Get_data: WideString; safecall;
+ function Get_fixfilelist: WideString; safecall;
+ function Get_is_in_wh: WideString; safecall;
+ function Get_language: WideString; safecall;
+ function Get_loandoc_enable: WideString; safecall;
+ function Get_loandoc_value: WideString; safecall;
+ function Get_mode: WideString; safecall;
+ function Get_modename: WideString; safecall;
+ function Get_oldcaseinfo: WideString; safecall;
+ function Get_rewrite: WideString; safecall;
+ function Get_url: WideString; safecall;
+ function Get_useproxy: WideString; safecall;
+ function Get_userid: WideString; safecall;
+ function Get_username: WideString; safecall;
+ function Get_userunit: WideString; safecall;
+ function Get_verify: WideString; safecall;
+ function Get_work_no: WideString; safecall;
+ function Get_printyn: WideString; safecall;
+ procedure Set_printyn(const Value: WideString); safecall;
+ function Get_is_oldcase: WideString; safecall;
+ procedure Set_is_oldcase(const Value: WideString); safecall;
+ function Get_custdocyn: WideString; safecall;
+ procedure Set_custdocyn(const Value: WideString); safecall;
+ function Get_casenolength: WideString; safecall;
+ function Get_filesizelimit: WideString; safecall;
+ function Get_imgdpi: WideString; safecall;
+ function Get_scancolor: WideString; safecall;
+ procedure Set_casenolength(const Value: WideString); safecall;
+ procedure Set_filesizelimit(const Value: WideString); safecall;
+ procedure Set_imgdpi(const Value: WideString); safecall;
+ procedure Set_scancolor(const Value: WideString); safecall;
+ function Get_imgdelete: WideString; safecall;
+ procedure Set_imgdelete(const Value: WideString); safecall;
+ function Get_check_main_form: WideString; safecall;
+ function Get_isExternal: WideString; safecall;
+ procedure Set_check_main_form(const Value: WideString); safecall;
+ procedure Set_isExternal(const Value: WideString); safecall;
+ function Get_WH_CATEGORY: WideString; safecall;
+ procedure Set_WH_CATEGORY(const Value: WideString); safecall;
+ public
+ { Public declarations }
+ procedure Initialize; override;
+ end;
+
+implementation
+
+uses EnBarcode,
+ EnTransf, { for TImageTransform }
+ Enpnggr, { for PNGGraphic }
+ EnJpgGr, { for JPGGraphic }
+ EnReg,
+ EnBmpGr, { for TBitmapGraphic }
+ EnPrint, { for TEnvisionPrintMode, TDibGraphicPrinter }
+ ComObj, ComServ,IISUnit,IIS_File2Web,IIS_ImageProcess,
+ PatchFom,Doclist,ScanMemo,DocCopy,InputMask,SortMemo,DocPrt,OldCaseInfo;
+
+{$R *.DFM}
+
+{ TCB_IMGPSScanX }
diff --git a/scripts/final_classify_scanImp_pas.js b/scripts/final_classify_scanImp_pas.js
new file mode 100644
index 0000000..564adc6
--- /dev/null
+++ b/scripts/final_classify_scanImp_pas.js
@@ -0,0 +1,264 @@
+const fs = require('fs');
+const path = require('path');
+
+const JSON_FILES = [
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.BusinessLogic.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.ImageProcessor.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.ScannerController.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.TransportManager.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.UIView.json'
+];
+
+// 1.優先
+// team_task_classification 團隊分工覆寫
+const PRIM_TAGS_TO_FIE = {
+ // // ScannerController
+ // 'ScannerController.acquisitionHandler': 'scan/acquisition.pas',
+ // 'ScannerController.twainWrapper': 'scan/twain.pas',
+ //
+ // // ImageProcessor
+ // 'ImageProcessor.transformer': 'img/transformer.pas',
+ // 'ImageProcessor.converter': 'img/converter.pas',
+ // 'ImageProcessor.anchorAnalyzer': 'img/anchor.pas',
+ // 'ImageProcessor.payloadArchiver': 'img/imgArchiver.pas',
+
+ '初始化與生命週期': 'CB_IMGPSScanImp.lfcycle.pas',
+ 'API 呼叫相關': 'CB_IMGPSScanImp.api.pas',
+ '轉換區（名稱/格式轉換）': 'CB_IMGPSScanImp.convert.pas',
+ '案件管理（TreeView / 案件操作）': 'CB_IMGPSScanImp.caseMgr.pas',
+ '清單管理': 'CB_IMGPSScanImp.listMgr.pas',
+ '檔案操作': 'CB_IMGPSScanImp.fileOp.pas',
+ '上傳前置資料產生': 'CB_IMGPSScanImp.prUpload.pas',
+ '文件份數/頁數/查詢': 'CB_IMGPSScanImp.docq.pas',
+ '自訂文件': 'CB_IMGPSScanImp.custdoc.pas',
+ '舊案/異動件處理': 'CB_IMGPSScanImp.docmod.pas',
+ '入庫文件/可見性': 'CB_IMGPSScanImp.inbound.pas',
+ // '影像瀏覽/顯示': 'CB_IMGPSScanImp.image.pas',
+ 'OMR 檢核': 'CB_IMGPSScanImp.omr.pas',
+ '縮圖預覽（PreViewISB）': 'CB_IMGPSScanImp.preview.pas',
+ '其他內部': 'CB_IMGPSScanImp.misc.pas',
+}
+
+// 2.若 1未定義到, 則從這裡分類
+const TAGS_TO_FILE = {
+ // ScannerController
+ 'ScannerController.acquisitionHandler': 'scan/acquisition.pas',
+ 'ScannerController.twainWrapper': 'scan/twain.pas',
+
+ // ImageProcessor
+ 'ImageProcessor.transformer': 'img/transformer.pas',
+ 'ImageProcessor.converter': 'img/converter.pas',
+ 'ImageProcessor.anchorAnalyzer': 'img/anchor.pas',
+ 'ImageProcessor.payloadArchiver': 'img/imgArchiver.pas',
+
+ // TransportManager
+ 'TransportManager.apiClient': 'transp/apiClient.pas',
+ 'TransportManager.fileTransfer': 'transp/fileClient.pas',
+ 'TransportManager.certificateManager': 'transp/certManager.pas',
+ 'TransportManager.payloadArchiver': 'transp/payloadArchiver.pas',
+
+ // BusinessLogic
+ 'BusinessLogic.systemInternal': 'bloc/sys.pas',
+ 'BusinessLogic.configRepository': 'bloc/cfg.pas',
+ 'BusinessLogic.ormRuleEngine': 'bloc/ormRuleEngine.pas',
+ 'BusinessLogic.entityMapping': 'bloc/entityMapping.pas',
+ 'BusinessLogic.fileManager': 'bloc/fileManager.pas',
+ 'BusinessLogic.caseManager': 'bloc/caseManager.pas',
+ 'BusinessLogic.entityModel': 'bloc/entityModel.pas',
+ 'BusinessLogic.activeXWrapper': 'bloc/ocx.pas',
+
+ // UIView
+ 'UIView.statusMessenger': 'view/msger.pas',
+ 'UIView.events': 'view/events.pas',
+ 'UIView.i18n': 'view/i18n.pas',
+ 'UIView.inputHandler': 'view/input.pas',
+ 'UIView.configRepository': 'view/cfg.pas',
+ 'UIView.treeView': 'view/treeView.pas',
+ 'UIView.toolBar': 'view/toolBar.pas',
+ 'UIView.imageScrollBox': 'view/isb.pas',
+ 'UIView.popupMenu': 'view/popupMenu.pas',
+ 'UIView.listView': 'view/listView.pas',
+ 'UIView.scrollView': 'view/scrollView.pas',
+ 'UIView.misc': 'view/misc.pas'
+};
+
+const SRC_FILE = 'CB_IMGPSScanImp.pas.bk';
+const DEST_FILE = 'CB_IMGPSScanImp.pas';
+const OUTPUT_DEST = 'reassemble';
+const REMAININGS_FILE = 'scripts/dist/scanimpl_annalysis.remainings.txt';
+
+function getVisualWidth(str) {
+ let width = 0;
+ for (let i = 0; i < str.length; i++) {
+ const code = str.charCodeAt(i);
+ if (code >= 0x4e00 && code <= 0x9fff) {
+ width += 2;
+ } else {
+ width += 1;
+ }
+ }
+ return width;
+}
+
+function wrapText(text, limit, wrapIndent) {
+ if (!text) return "";
+
+ // 處理 1. 2. 3. 這種標示點，先進行初步換行
+ // 尋找符合 "數字." 的模式，並在其前面加上換行符（如果不是在開頭的話）
+ let formattedText = text.replace(/(\d+\.)/g, (match, p1, offset) => {
+ return offset === 0 ? match : "\n" + match;
+ });
+
+ const segments = formattedText.split('\n');
+ let resultLines = [];
+
+ segments.forEach(segment => {
+ let currentLine = "";
+ let currentLineWidth = 0;
+
+ // 將 segment 依字元處理
+ for (let i = 0; i < segment.length; i++) {
+ const char = segment[i];
+ const charWidth = getVisualWidth(char);
+
+ if (currentLineWidth + charWidth > limit) {
+ resultLines.push(currentLine);
+ currentLine = char;
+ currentLineWidth = charWidth;
+ } else {
+ currentLine += char;
+ currentLineWidth += charWidth;
+ }
+ }
+ if (currentLine) resultLines.push(currentLine);
+ });
+
+ return resultLines.join("\n" + wrapIndent);
+}
+
+function getDocString(m) {
+ const methodName = m.matcher.match(/^(procedure|function)\s+TCB_IMGPSScanX\.([\w\.]+)/i)?.[2] || m.matcher;
+ const deps = (m.deps || []).join(', ');
+ const wrappedDeps = wrapText(deps, 68, " ");
+ const desc = m.description || '';
+ const wrappedDesc = wrapText(desc, 68, " ");
+
+ return `{ ==============================================================================
+ 方法名稱：${methodName}
+ 引用相依：${wrappedDeps}
+ 方法描述：${wrappedDesc}
+============================================================================== }\n`;
+}
+
+function main() {
+ console.log('Copying ' + SRC_FILE + ' to ' + DEST_FILE);
+ fs.copyFileSync(SRC_FILE, DEST_FILE);
+
+ const originalContent = fs.readFileSync(DEST_FILE, 'utf8');
+ const lines = originalContent.split(/\r?\n/);
+
+ const allMethods = [];
+ JSON_FILES.forEach(jsonFile => {
+ if (!fs.existsSync(jsonFile)) return;
+ const data = JSON.parse(fs.readFileSync(jsonFile, 'utf8'));
+ data.forEach(m => {
+ const lIndex = parseInt(m.lIndex);
+ const rIndex = parseInt(m.rIndex);
+ if (lIndex > 0 && rIndex > 0) {
+ allMethods.push({
+ ...m,
+ lIndex,
+ rIndex
+ });
+ }
+ });
+ });
+
+ const lineToTargetFile = new Array(lines.length + 1).fill(null);
+ const fileToMethods = {};
+
+ allMethods.forEach(m => {
+ let targetFile = null;
+ // team_task_classification 團隊分工覆寫
+ if (!targetFile) {
+ for (const tag of m.tags) {
+ if (PRIM_TAGS_TO_FIE[tag]) {
+ targetFile = PRIM_TAGS_TO_FIE[tag];
+ break;
+ }
+ }
+ }
+ if (!targetFile) {
+ for (const tag of m.tags) {
+ if (TAGS_TO_FILE[tag]) {
+ targetFile = TAGS_TO_FILE[tag];
+ break;
+ }
+ }
+ }
+
+ if (!targetFile) targetFile = 'view/misc.pas';
+
+ if (!fileToMethods[targetFile]) {
+ fileToMethods[targetFile] = [];
+ }
+ fileToMethods[targetFile].push(m);
+
+ for (let i = m.lIndex; i <= m.rIndex; i++) {
+ if (i <= lines.length) {
+ lineToTargetFile[i] = targetFile;
+ }
+ }
+ });
+
+ // Create sub-files
+ for (const targetFile in fileToMethods) {
+ const methods = fileToMethods[targetFile];
+ methods.sort((a, b) => a.lIndex - b.lIndex);
+
+ let subFileContent = '';
+ methods.forEach(m => {
+ const methodLines = lines.slice(m.lIndex - 1, m.rIndex);
+ subFileContent += getDocString(m) + methodLines.join('\n') + '\n\n';
+ });
+
+ const fullPath = path.join(OUTPUT_DEST, targetFile);
+ fs.mkdirSync(path.dirname(fullPath), { recursive: true });
+ fs.writeFileSync(fullPath, subFileContent);
+ console.log(`Saved ${methods.length} methods to ${fullPath}`);
+ }
+
+ // Rewrite main file and generate remainings
+ const newMainLines = [];
+ const remainingsLines = [];
+ const includedFiles = new Set();
+
+ for (let i = 1; i <= lines.length; i++) {
+ const targetFile = lineToTargetFile[i];
+ if (targetFile) {
+ if (!includedFiles.has(targetFile)) {
+ newMainLines.push(`{$I ${OUTPUT_DEST}/${targetFile}}`);
+ includedFiles.add(targetFile);
+ }
+ } else {
+ newMainLines.push(lines[i - 1]);
+ remainingsLines.push(lines[i - 1]);
+ }
+ }
+
+ const finalContent = newMainLines.join('\n');
+ fs.writeFileSync(DEST_FILE, finalContent);
+
+ if (!fs.existsSync(path.dirname(REMAININGS_FILE))) {
+ fs.mkdirSync(path.dirname(REMAININGS_FILE), { recursive: true });
+ }
+ fs.writeFileSync(REMAININGS_FILE, remainingsLines.join('\n'));
+
+ console.log('\n--- Content of ' + DEST_FILE + ' after disaggregation ---\n');
+ console.log(finalContent.substring(0, 1000) + '\n...');
+ console.log('\n--- End of Preview ---\n');
+ console.log('Remainings saved to: ' + REMAININGS_FILE);
+ console.log('Done.');
+}
+
+main();
diff --git a/scripts/final_classify_scanImp_pas.test.js b/scripts/final_classify_scanImp_pas.test.js
new file mode 100644
index 0000000..838528e
--- /dev/null
+++ b/scripts/final_classify_scanImp_pas.test.js
@@ -0,0 +1,115 @@
+const fs = require('fs');
+const path = require('path');
+
+const JSON_FILES = [
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.BusinessLogic.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.ImageProcessor.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.ScannerController.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.TransportManager.json',
+ 'doc/curtis/prompt/scanimpl_analysis/scanimpl_annalysis.UIView.json'
+];
+
+const TAGS_TO_FILE = {
+ // ScannerController
+ 'ScannerController.acquisitionHandler': 'CB_IMGPSScanImp.scan.ac.pas',
+ 'ScannerController.twainWrapper': 'CB_IMGPSScanImp.scan.twain.pas',
+
+ // TransportManager
+ 'TransportManager.apiClient': 'CB_IMGPSScanImp.apiClient.pas',
+ 'TransportManager.fileTransfer': 'CB_IMGPSScanImp.fileClient.pas',
+ 'TransportManager.certificateManager': 'CB_IMGPSScanImp.cert.pas',
+ 'TransportManager.payloadArchiver': 'CB_IMGPSScanImp.archiver.pas',
+
+ // ImageProcessor
+ 'ImageProcessor.transformer': 'CB_IMGPSScanImp.img.trans.pas',
+ 'ImageProcessor.converter': 'CB_IMGPSScanImp.img.cnv.pas',
+ 'ImageProcessor.anchorAnalyzer': 'CB_IMGPSScanImp.img.anchor.pas',
+ 'ImageProcessor.payloadArchiver': 'CB_IMGPSScanImp.archiver.pas',
+
+ // BusinessLogic
+ 'BusinessLogic.systemInternal': 'CB_IMGPSScanImp.bloc.sys.pas',
+ 'BusinessLogic.configRepository': 'CB_IMGPSScanImp.bloc.cfg.pas',
+ 'BusinessLogic.ruleEngine': 'CB_IMGPSScanImp.bloc.rule.pas',
+ 'BusinessLogic.entityMapping': 'CB_IMGPSScanImp.bloc.map.pas',
+ 'BusinessLogic.fileManager': 'CB_IMGPSScanImp.bloc.file.pas',
+ 'BusinessLogic.caseManager': 'CB_IMGPSScanImp.bloc.case.pas',
+ 'BusinessLogic.entityModel': 'CB_IMGPSScanImp.bloc.model.pas',
+ 'BusinessLogic.activeXWrapper': 'CB_IMGPSScanImp.bloc.ocx.pas',
+
+ // UIView
+ '初始化與生命週期': 'CB_IMGPSScanImp.view.lfcycle.pas',
+ 'UIView.events': 'CB_IMGPSScanImp.view.evt.pas',
+ 'UIView.inputHandler': 'CB_IMGPSScanImp.view.evt.pas',
+ 'UIView.configRepository': 'CB_IMGPSScanImp.view.cfg.pas',
+ 'UIView.ruleEngine': 'CB_IMGPSScanImp.view.rule.pas',
+ 'UIView.entityMapping': 'CB_IMGPSScanImp.view.map.pas',
+ 'UIView.fileManager': 'CB_IMGPSScanImp.view.file.pas',
+ 'UIView.caseManager': 'CB_IMGPSScanImp.view.case.pas',
+ 'UIView.entityModel': 'CB_IMGPSScanImp.view.model.pas',
+ 'UIView.activeXWrapper': 'CB_IMGPSScanImp.view.ocx.pas',
+ 'UIView.treeView': 'CB_IMGPSScanImp.view.tree.pas',
+ 'UIView.toolBar': 'CB_IMGPSScanImp.view.toolbar.pas',
+ 'UIView.imageScrollBox': 'CB_IMGPSScanImp.view.isb.pas',
+ 'UIView.popupMenu': 'CB_IMGPSScanImp.view.menu.pas',
+ 'UIView.listView': 'CB_IMGPSScanImp.view.list.pas',
+};
+
+const SRC_FILE = 'CB_IMGPSScanImp.pas.bk';
+
+function main() {
+ const originalContent = fs.readFileSync(SRC_FILE, 'utf8');
+ const lines = originalContent.split(/\r?\n/);
+
+ let successCount = 0;
+ let failCount = 0;
+
+ JSON_FILES.forEach(jsonFile => {
+ console.log(`Checking ${jsonFile}...`);
+ const data = JSON.parse(fs.readFileSync(jsonFile, 'utf8'));
+ data.forEach(m => {
+ const lIndex = parseInt(m.lIndex);
+ const rIndex = parseInt(m.rIndex);
+ if (lIndex <= 0 || rIndex <= 0) return;
+
+ // Find the target file
+ let targetFile = null;
+ for (const tag of m.tags) {
+ if (TAGS_TO_FILE[tag]) {
+ targetFile = TAGS_TO_FILE[tag];
+ break;
+ }
+ }
+
+ if (targetFile) {
+ if (!fs.existsSync(targetFile)) {
+ console.error(`Error: Target file ${targetFile} does not exist.`);
+ failCount++;
+ return;
+ }
+
+ const subFileContent = fs.readFileSync(targetFile, 'utf8');
+ const expectedCodeLines = lines.slice(lIndex - 1, rIndex);
+ const expectedCode = expectedCodeLines.join('\n');
+
+ // Check if expectedCode exists in subFileContent
+ // Note: the subFileContent has an extra \n between methods
+ if (subFileContent.includes(expectedCode)) {
+ successCount++;
+ } else {
+ console.error(`Error: Code for ${m.matcher} (line ${lIndex}-${rIndex}) not found in ${targetFile}`);
+ failCount++;
+ }
+ }
+ });
+ });
+
+ console.log(`\nVerification Results:`);
+ console.log(` Success: ${successCount}`);
+ console.log(` Fail: ${failCount}`);
+
+ if (failCount > 0) {
+ process.exit(1);
+ }
+}
+
+main();
diff --git a/scripts/list_dependencies.js b/scripts/list_dependencies.js
new file mode 100644
index 0000000..1522a09
--- /dev/null
+++ b/scripts/list_dependencies.js
@@ -0,0 +1,110 @@
+const fs = require('fs');
+const readline = require('readline');
+const path = require('path');
+
+/**
+ * 尋找 Pascal 檔案中的影像處理相關關鍵字，並生成 CSV 輸出。
+ * @param {string} filePath - Pascal 檔案路徑
+ * @param {string} outputCsv - 輸出的 CSV 檔案名稱
+ */
+async function findImageKeywords(filePath, keywordsStr, exclusionStr, outputCsv) {
+ const keeper = {}
+ // 拆分並使用 Set 移除重複的關鍵字
+ const keywords = [...new Set(keywordsStr.split('|'))];
+ const exclusion = exclusionStr ? [...new Set(exclusionStr.split('|'))] : [];
+
+ // 用於匹配 Delphi procedure 或 function 的正規表達式
+ const methodPattern = /^\s*(?:procedure|function)\s+([a-zA-Z0-9_\.]+)/i;
+
+ const results = [];
+ let currentMethod = "Global_Or_Interface"; // 預設狀態 (尚未進入任何方法)
+
+ if (!fs.existsSync(filePath)) {
+ console.error(`❌ 錯誤: 找不到指定的檔案 '${filePath}'`);
+ console.log("請確保檔案名稱正確，並與此腳本放在同一目錄下。");
+ return;
+ }
+
+ console.log(`🔍 開始掃描檔案: ${filePath} ...\n`);
+ const fileName = path.basename(filePath);
+
+ // 建立逐行讀取流 (使用 latin1 讀取以避免 Big5 中文字元在原生 Node 環境報錯)
+ // 由於我們只比對英文關鍵字，編碼不會影響比對結果
+ const fileStream = fs.createReadStream(filePath, {encoding: 'latin1'});
+ const rl = readline.createInterface({
+ input: fileStream,
+ crlfDelay: Infinity
+ });
+
+ let lineNum = 0;
+
+ for await (const line of rl) {
+ lineNum++;
+
+ // 檢查是否進入了新的方法實作區塊
+ const methodMatch = line.match(methodPattern);
+ if (methodMatch) {
+ currentMethod = methodMatch[1];
+ }
+
+ const lineLower = line.toLowerCase();
+
+ // 檢查該行是否包含我們關注的關鍵字
+ for (const kw of keywords) {
+ if (lineLower.includes(kw.toLowerCase()) && !exclusion.some((_)=>lineLower.includes(_.toLowerCase()))) {
+ keeper[currentMethod] ??= new Set([])
+ if (keeper[currentMethod].has(kw))
+ continue
+ keeper[currentMethod].add(kw)
+ results.push({
+ MethodName: currentMethod,
+ FileName: fileName,
+ LineNumber: lineNum,
+ Dependency: kw,
+ CodeSnippet: line.trim().replace(/"/g, '""') // 處理 CSV 雙引號跳脫
+ });
+ }
+ }
+ }
+
+ // 1. 輸出至 Console
+ console.log("-".repeat(90));
+
+ // 為了讓 Console 顯示更乾淨，我們按方法名稱進行分組顯示
+ const groupedResults = results.reduce((acc, curr) => {
+ if (!acc[curr.MethodName]) acc[curr.MethodName] = [];
+ acc[curr.MethodName].push(curr);
+ return acc;
+ }, {});
+
+ for (const [method, items] of Object.entries(groupedResults)) {
+ // 收集該方法內找到的所有相依關鍵字 (去重複)
+ const deps = [...new Set(items.map(i => i.Dependency))].join(', ');
+ const lines = [...new Set(items.map(i => i.LineNumber))].join(', ');
+
+ console.log(`${method.padEnd(30)} | ${fileName.padEnd(20)} | ${lines.padEnd(5)} | ${deps}`);
+ }
+
+ console.log(`\n✅ 掃描成功！共找到 ${results.length} 次相依引用。`);
+
+ // 2. 輸出至 CSV 檔案
+ // 加入 BOM 以確保 Excel 能正確解析 UTF-8 中文
+ const csvHeader = '\uFEFF[ ],方法名,所在檔名,行號,引用了什麼相依,方法描述(請手動填寫),原始程式碼片段\n';
+
+ const csvContent = results.map(r =>
+ `[V],"${r.MethodName}","${r.FileName}","${r.LineNumber}","${r.Dependency}","","${r.CodeSnippet}"`
+ ).join('\n');
+ if (results.length) {
+ fs.writeFileSync(outputCsv, csvHeader + csvContent, 'utf8');
+ }
+ console.log(`📁 詳細結果已匯出至: ${outputCsv} (可直接用 Excel 打開)`);
+ return {
+ csvHeader,
+ csvContent
+ }
+}
+
+module.exports = {
+ findImageKeywords
+}
+
diff --git a/scripts/list_dependencies_run.js b/scripts/list_dependencies_run.js
new file mode 100644
index 0000000..f5eeca9
--- /dev/null
+++ b/scripts/list_dependencies_run.js
@@ -0,0 +1,99 @@
+const img = require('./list_image_dependencies')
+const io = require('./list_io_dependencies')
+const scan = require('./list_scan_dependencies')
+const transp = require('./list_transport_dependencies')
+const fs = require("fs");
+const path = require("path");
+const baseDir = path.join(process.cwd(), 'scripts/dist');
+
+const IMG_DEPS = img.listDependencies()
+const IO_DEPS = io.listDependencies()
+const SCAN_DEPS = scan.listDependencies()
+const TRANS_DEPS = transp.listDependencies()
+
+/**
+ * 解析單行 CSV 字串，能正確處理被引號包覆且內部含有逗號的欄位。
+ * @param {string} line - 要解析的單行 CSV 字串。
+ * @returns {string[]} 解析後的欄位陣列。
+ */
+function parseCsvLine(line) {
+ const fields = [];
+ let currentField = '';
+ let inQuotes = false;
+
+ for (let i = 0; i < line.length; i++) {
+ const char = line[i];
+ if (char === '"') {
+ // 處理 CSV 中用兩個雙引號來代表一個雙引號的轉義規則
+ if (inQuotes && line[i + 1] === '"') {
+ currentField += '"';
+ i++; // 跳過下一個引號
+ } else {
+ inQuotes = !inQuotes; // 進入或離開引號模式
+ }
+ } else if (char === ',' && !inQuotes) {
+ // 當不在引號內且遇到逗號時，才視為一個欄位的結束
+ fields.push(currentField);
+ currentField = '';
+ } else {
+ // 一般字元，直接附加到當前欄位
+ currentField += char;
+ }
+ }
+ // 將最後一個欄位加入陣列
+ fields.push(currentField);
+
+ return fields;
+}
+
+// 您可以這樣使用它：
+// const [pick, methodName, fileName, lineno, deps, desc, source] = parseCsvLine(line);
+function flatten(arrOStr) {
+ if (Array.isArray(arrOStr)) {
+ return arrOStr.reduce((acc, cur)=>{
+ if (typeof cur === 'string') acc.push(cur)
+ else acc.push(...flatten(cur))
+ return acc
+ }, [])
+ }
+ return arrOStr
+}
+async function main() {
+ const imgDeps = (await IMG_DEPS).filter((_) => _.csvContent).map((_) => _.csvContent.split('\n'))
+ const ioDeps = (await IO_DEPS).filter((_) => _.csvContent).map((_) => _.csvContent.split('\n'))
+ const scanDeps = (await SCAN_DEPS).filter((_) => _.csvContent).map((_) => _.csvContent.split('\n'))
+ const transDeps = (await TRANS_DEPS).filter((_) => _.csvContent).map((_) => _.csvContent.split('\n'))
+ const csvHeader = (await IMG_DEPS)[0].csvHeader
+ const allCsvContent = flatten([
+ ...imgDeps,
+ ...ioDeps,
+ ...scanDeps,
+ ...transDeps
+ ])
+
+ const keep = {}
+ const results = []
+ allCsvContent.forEach((line)=>{
+ const [pick, methodName, fileName, lineno, deps, desc, source] = parseCsvLine(line)
+ const ident = `${fileName}-${methodName}`
+ keep[ident] ??= {}
+ if (keep[ident][deps])
+ return
+ keep[ident][deps] ??= {
+ source, lineno, desc
+ }
+ results.push({
+ pick, methodName, fileName, lineno, deps, desc, source
+ })
+ })
+
+ const csvContent = results.map(r =>
+ `${r.pick},${r.methodName},${r.fileName},${r.lineno},${r.deps},${r.desc},${r.source}`
+ ).join('\n');
+ const outputCsv = path.join(baseDir, `deps.all.csv`)
+ fs.writeFileSync(outputCsv, csvHeader + csvContent, 'utf8');
+}
+
+main()
+
+
diff --git a/scripts/list_image_dependencies.js b/scripts/list_image_dependencies.js
new file mode 100644
index 0000000..ee661ac
--- /dev/null
+++ b/scripts/list_image_dependencies.js
@@ -0,0 +1,82 @@
+/**
+ *
+ * IMAGE 模組列表輸出至 CSV scripts/dist/*.image.csv
+ *
+ *
+ * */
+const fs = require('fs');
+const readline = require('readline');
+const path = require('path');
+const {findImageKeywords} = require('./list_dependencies')
+const baseDir = path.join(process.cwd(), 'scripts/dist');
+const exclusions = Array.from(new Set([
+ 'ScanRotate',
+ 'ImageFormat <> ifBlackWhite',
+
+])).join('|')
+// 您提供的關鍵字 (以 | 分隔)
+const keywordsStr = Array.from(new Set([
+ 'TTiffGraphic',
+ 'TDibGraphic',
+ 'DeskewImg',
+ 'Rotate',
+ 'CropImg',
+ 'ImageReSize_FormID',
+ 'ImageReSize_tmp',
+ 'CheckNeedCrop',
+ 'ImageProcessor.transformer',
+ 'ConvertToBW',
+ 'ConvertToGray',
+ 'Image_Smooth',
+ 'NegativeImg',
+ 'CleanupBorder',
+ 'ImageProcessor.converter',
+ 'MpsGetBarcode',
+ 'Get_OMR',
+ 'ImageProcessor.barcodeRecognizer',
+ 'FindPoint',
+ 'CheckSize',
+ 'GetSiteOMR',
+ 'ImageProcessor.anchorAnalyzer',
+ 'TJpegGraphic',
+ 'DpiResize',
+ // 以下可省
+ 'SaveQuality',
+ 'FJpgCompression',
+ 'ifTrueColor',
+ 'ifGray256',
+ 'ConvertToBW',
+ 'ConvertToGray',
+ 'Image_Smooth',
+ 'NegativeImg',
+ 'CleanupBorder',
+ 'ifBlackWhite',
+ 'tcGroup4',
+ 'tcPackBits',
+ 'tcJpeg',
+ 'ifColor25'
+])).join('|')
+// 執行腳本 (請確認您的目標檔案名稱，預設為 CB_IMGPSScanImp.pas)
+const targetFiles = [
+ 'CB_IMGPSScanImp.pas.bk',
+ 'DocCopy.pas',
+ 'DocList.pas',
+ 'DocPrt.pas',
+ 'ErrList.pas',
+ 'InputMask.pas',
+ 'OldCaseImg.pas',
+ 'OldCaseInfo.pas',
+ 'PatchFom.pas',
+ 'ScanMemo.pas'
+]
+
+async function listDependencies() {
+ console.log(`${'方法名'.padEnd(30)} | ${'所在檔名'.padEnd(20)} | ${'行號'.padEnd(5)} | ${'引用了什麼相依 (關鍵字)'}`);
+ console.log(`--- | --- | --- | --- |`);
+ return await Promise.all(targetFiles.map((_) => findImageKeywords(_, keywordsStr, exclusions, path.join(baseDir, `${_}.image.csv`))))
+}
+
+module.exports = {
+ listDependencies
+}
+
diff --git a/scripts/list_io_dependencies.js b/scripts/list_io_dependencies.js
new file mode 100644
index 0000000..8807a0d
--- /dev/null
+++ b/scripts/list_io_dependencies.js
@@ -0,0 +1,61 @@
+/**
+ *
+ * SCAN 模組列表輸出至 CSV scripts/dist/*.scan.csv
+ *
+ *
+ * */
+const fs = require('fs');
+const readline = require('readline');
+const path = require('path');
+const { findImageKeywords } = require('./list_dependencies')
+
+
+const baseDir = path.join(process.cwd(), 'scripts/dist');
+const exclusions = Array.from(new Set([])).join('|')
+// 您提供的關鍵字 (以 | 分隔)
+const keywordsStr = Array.from(new Set([
+ 'SaveToFile',
+ 'LoadFromFile',
+ 'ReSortFileName',
+ 'DeleteImageFile',
+ 'DeleteDocNoFile',
+ 'DeleteShowFile',
+ 'RenameFile',
+ 'MoveFile',
+ 'CopyFile',
+ 'FileExists',
+ 'DirectoryExists',
+ 'FindFirst',
+ 'FindNext',
+ '_DelTree',
+ 'Str2Dir',
+ 'ForceDirectories',
+ 'GetNoNameCase',
+ 'GetLocalAppDir'
+
+])).join('|')
+// 執行腳本 (請確認您的目標檔案名稱，預設為 CB_IMGPSScanImp.pas)
+const targetFiles = [
+ 'CB_IMGPSScanImp.pas.bk',
+ 'DocCopy.pas',
+ 'DocList.pas',
+ 'DocPrt.pas',
+ 'ErrList.pas',
+ 'InputMask.pas',
+ 'OldCaseImg.pas',
+ 'OldCaseInfo.pas',
+ 'PatchFom.pas',
+ 'ScanMemo.pas'
+]
+
+async function listDependencies() {
+ console.log(`${'方法名'.padEnd(30)} | ${'所在檔名'.padEnd(20)} | ${'行號'.padEnd(5)} | ${'引用了什麼相依 (關鍵字)'}`);
+ console.log(`--- | --- | --- | --- |`);
+ return await Promise.all(targetFiles.map((_) => findImageKeywords(_, keywordsStr, exclusions, path.join(baseDir, `${_}.io.csv`))))
+}
+
+module.exports = {
+ listDependencies
+}
+
+
diff --git a/scripts/list_scan_dependencies.js b/scripts/list_scan_dependencies.js
new file mode 100644
index 0000000..5f8f210
--- /dev/null
+++ b/scripts/list_scan_dependencies.js
@@ -0,0 +1,53 @@
+/**
+ *
+ * SCAN 模組列表輸出至 CSV scripts/dist/*.scan.csv
+ *
+ *
+ * */
+const fs = require('fs');
+const readline = require('readline');
+const path = require('path');
+const { findImageKeywords } = require('./list_dependencies')
+
+
+const baseDir = path.join(process.cwd(), 'scripts/dist');
+const exclusions = Array.from(new Set([])).join('|')
+// 您提供的關鍵字 (以 | 分隔)
+const keywordsStr = Array.from(new Set([
+ 'OnAcquire',
+ 'SelectScanner',
+ 'scanner.SelectScanner',
+ 'initkscan',
+ 'CheckScannerConfig',
+ 'PageEnd',
+ 'PageDone',
+ 'ScannerControl.twainWrapper',
+ 'StatrTwainScan',
+ 'Scanner.OpenSource',
+ 'Scanner.AcquireWithSourceOpen',
+ 'Scanner.CloseSource',
+ 'Scanner'
+])).join('|')
+// 執行腳本 (請確認您的目標檔案名稱，預設為 CB_IMGPSScanImp.pas)
+const targetFiles = [
+ 'CB_IMGPSScanImp.pas.bk',
+ 'DocCopy.pas',
+ 'DocList.pas',
+ 'DocPrt.pas',
+ 'ErrList.pas',
+ 'InputMask.pas',
+ 'OldCaseImg.pas',
+ 'OldCaseInfo.pas',
+ 'PatchFom.pas',
+ 'ScanMemo.pas'
+]
+
+async function listDependencies() {
+ console.log(`${'方法名'.padEnd(30)} | ${'所在檔名'.padEnd(20)} | ${'行號'.padEnd(5)} | ${'引用了什麼相依 (關鍵字)'}`);
+ console.log(`--- | --- | --- | --- |`);
+ return await Promise.all(targetFiles.map((_) => findImageKeywords(_, keywordsStr, exclusions, path.join(baseDir, `${_}.scan.csv`))))
+}
+
+module.exports = {
+ listDependencies
+}
diff --git a/scripts/list_transport_dependencies.js b/scripts/list_transport_dependencies.js
new file mode 100644
index 0000000..3182a8a
--- /dev/null
+++ b/scripts/list_transport_dependencies.js
@@ -0,0 +1,56 @@
+/**
+ *
+ * SCAN 模組列表輸出至 CSV scripts/dist/*.scan.csv
+ *
+ *
+ * */
+const fs = require('fs');
+const readline = require('readline');
+const path = require('path');
+const { findImageKeywords } = require('./list_dependencies')
+
+
+const baseDir = path.join(process.cwd(), 'scripts/dist');
+const exclusions = Array.from(new Set([])).join('|')
+// 您提供的關鍵字 (以 | 分隔)
+const keywordsStr = Array.from(new Set([
+ 'TElHTTPSClient',
+ 'ProcessServlet_Get',
+ 'ProcessServlet_FormData',
+ 'upFile',
+ 'dnFile_Get',
+ 'dnFile',
+ 'TElSimpleFTPSClient',
+ 'SetFtpInfo',
+ 'IIS_Ftp',
+ 'FtpCaseComplete',
+ 'En_DecryptionStr_Base64',
+ 'TIdHashMessageDigest5',
+ 'LoadFileGetMD5',
+ 'HTTPSClientCertificateValidate',
+ 'HttpClient'
+
+])).join('|')
+// 執行腳本 (請確認您的目標檔案名稱，預設為 CB_IMGPSScanImp.pas)
+const targetFiles = [
+ 'CB_IMGPSScanImp.pas.bk',
+ 'DocCopy.pas',
+ 'DocList.pas',
+ 'DocPrt.pas',
+ 'ErrList.pas',
+ 'InputMask.pas',
+ 'OldCaseImg.pas',
+ 'OldCaseInfo.pas',
+ 'PatchFom.pas',
+ 'ScanMemo.pas'
+]
+
+async function listDependencies() {
+ console.log(`${'方法名'.padEnd(30)} | ${'所在檔名'.padEnd(20)} | ${'行號'.padEnd(5)} | ${'引用了什麼相依 (關鍵字)'}`);
+ console.log(`--- | --- | --- | --- |`);
+ return await Promise.all(targetFiles.map((_) => findImageKeywords(_, keywordsStr, exclusions, path.join(baseDir, `${_}.transp.csv`))))
+}
+
+module.exports = {
+ listDependencies
+}
diff --git a/scripts/readme.md b/scripts/readme.md
new file mode 100644
index 0000000..329d5ef
--- /dev/null
+++ b/scripts/readme.md
@@ -0,0 +1,30 @@
+
+
+
+
+## 分析／產出／驗證-模組分類
+### 粗拆分(.json)
+[scanimpl_annalysis_classify.js](scanimpl_annalysis_classify.js)
+[scanimpl_annalysis_disaggregate.js](scanimpl_annalysis_disaggregate.js)
+[scanimpl_annalysis_extract_methods.js](scanimpl_annalysis_extract_methods.js)
+[scanimpl_annalysis_validate.js](scanimpl_annalysis_validate.js)
+### 最終拆分(.pascal)
+[classify_scanImp_pas.js](classify_scanImp_pas.js)
+[classify_scanImp_pas.test.js](classify_scanImp_pas.test.js)
+
+## 生成模組引用 CSV
+[list_dependencies.js](list_dependencies.js)
+[list_dependencies_run.js](list_dependencies_run.js)
+[list_image_dependencies.js](list_image_dependencies.js)
+[list_io_dependencies.js](list_io_dependencies.js)
+[list_scan_dependencies.js](list_scan_dependencies.js)
+[list_transport_dependencies.js](list_transport_dependencies.js)
+
+## 模組額外分類腳本(e.g.: excel 定義)
+[gen_scanimpl_annalysis_json.test.js](gen_scanimpl_annalysis_json.test.js)
+[scanimpl_annalysis_addon_json.js](scanimpl_annalysis_addon_json.js)
+
+## dfm to web - spec template 生成
+[batch_dfm_to_web.js](batch_dfm_to_web.js)
+
+
diff --git a/scripts/scanimpl_annalysis_addon_json.js b/scripts/scanimpl_annalysis_addon_json.js
new file mode 100644
index 0000000..5bac4ce
--- /dev/null
+++ b/scripts/scanimpl_annalysis_addon_json.js
@@ -0,0 +1,125 @@
+/**
+ * 需求 0.3.1 生成處理額外分類腳本
+ * * 執行方式：
+ * node scripts/scanimpl_annalysis_addon_json.js
+ */
+
+const fs = require('fs');
+const path = require('path');
+
+// 尋找目標檔案的遞迴函數
+function findTargetJsonFiles(dir, fileList = []) {
+ if (!fs.existsSync(dir)) return fileList;
+
+ const files = fs.readdirSync(dir);
+ for (const file of files) {
+ const filePath = path.join(dir, file);
+ const stat = fs.statSync(filePath);
+
+ // 略過不需要掃描的系統或依賴目錄
+ if (stat.isDirectory() && !['node_modules', '.git', 'scripts'].includes(file)) {
+ findTargetJsonFiles(filePath, fileList);
+ } else if (file.startsWith('scanimpl_annalysis.') && file.endsWith('.json')) {
+ fileList.push(filePath);
+ }
+ }
+ return fileList;
+}
+
+function main() {
+ // 設定路徑參數 (以執行時的目錄為基準)
+ const baseDir = path.join(process.cwd(), 'doc/curtis/prompt/scanimpl_analysis');
+ const classificationFilePath = path.join(baseDir, '02', 'team_tasks_classification.json');
+
+ console.log('=============================================');
+ console.log('開始執行額外分類整合...');
+ console.log(`讀取額外分類檔: ${classificationFilePath}`);
+
+ if (!fs.existsSync(classificationFilePath)) {
+ console.error(`[錯誤] 找不到額外分類檔: ${classificationFilePath}`);
+ console.log('請確認是否在專案根目錄下執行此腳本。');
+ return;
+ }
+
+ // 1. 讀取並解析 team_tasks_classification.json
+ const classificationData = JSON.parse(fs.readFileSync(classificationFilePath, 'utf8'));
+
+ // 建立 lineno 到 tags 的 Mapping 字典
+ // 這麼做可以處理同一個 lineno 同時要新增多個不同 tag 的情況
+ const addonMap = new Map();
+ classificationData.forEach(item => {
+ if (!item.lineno || !item.tag) return;
+
+ // 將 lineno 轉為字串以確保後續比對型別一致
+ const linenoStr = String(item.lineno);
+ if (!addonMap.has(linenoStr)) {
+ addonMap.set(linenoStr, new Set());
+ }
+ addonMap.get(linenoStr).add(item.tag);
+ });
+
+ console.log(`成功載入 ${addonMap.size} 筆需要更新的行號設定。`);
+
+ // 2. 找出專案內所有的 scanimpl_annalysis.*.json 檔案
+ const targetFiles = findTargetJsonFiles(baseDir);
+
+ if (targetFiles.length === 0) {
+ console.warn(`[警告] 在專案中找不到任何 scanimpl_annalysis.*.json 檔案`);
+ return;
+ }
+
+ let totalUpdatedFiles = 0;
+ let totalAddedTags = 0;
+
+ // 3. 處理每一個目標 JSON 檔
+ targetFiles.forEach(filePath => {
+ const fileName = path.basename(filePath);
+ let isModified = false;
+ let fileContent;
+
+ try {
+ fileContent = JSON.parse(fs.readFileSync(filePath, 'utf8'));
+ } catch (e) {
+ console.error(`[錯誤] 解析檔案 ${fileName} 失敗:`, e.message);
+ return;
+ }
+
+ // 0.3.1.1 步驟1 變更資料
+ if (Array.isArray(fileContent)) {
+ fileContent.forEach(methodDef => {
+ const currentLIndex = String(methodDef.lIndex);
+
+ // 檢查該方法的 lIndex 是否存在於我們要添加的對映表中
+ if (addonMap.has(currentLIndex)) {
+ const newTags = Array.from(addonMap.get(currentLIndex));
+
+ if (!methodDef.tags) {
+ methodDef.tags = [];
+ }
+
+ newTags.forEach(newTag => {
+ // 避免重複添加相同的 tag
+ if (!methodDef.tags.includes(newTag)) {
+ methodDef.tags.push(newTag);
+ isModified = true;
+ totalAddedTags++;
+ console.log(` [新增] 檔案: ${fileName} | 行號: ${currentLIndex} | 新增 Tag: "${newTag}"`);
+ }
+ });
+ }
+ });
+ }
+
+ // 0.3.1.2 步驟2 寫入資料
+ if (isModified) {
+ fs.writeFileSync(filePath, JSON.stringify(fileContent, null, 2), 'utf8');
+ totalUpdatedFiles++;
+ }
+ });
+
+ console.log('=============================================');
+ console.log(`執行完畢！`);
+ console.log(`共更新了 ${totalUpdatedFiles} 個檔案，累計新增了 ${totalAddedTags} 個標籤。`);
+}
+
+main();
diff --git a/scripts/scanimpl_annalysis_addon_json.test.js b/scripts/scanimpl_annalysis_addon_json.test.js
new file mode 100644
index 0000000..3492efb
--- /dev/null
+++ b/scripts/scanimpl_annalysis_addon_json.test.js
@@ -0,0 +1,183 @@
+const fs = require('fs');
+const path = require('path');
+
+const PROJECT_ROOT = path.resolve(__dirname, '..');
+const SOURCE_FILE = path.join(PROJECT_ROOT, 'CB_IMGPSScanImp.pas.bk');
+const JSON_DIR = path.join(PROJECT_ROOT, 'doc', 'curtis', 'prompt', 'scanimpl_analysis');
+const REVIEW_FILE = path.join(PROJECT_ROOT, 'CB_IMGPSScanImp_Remain_Review.pas');
+
+// --- 動態 Delphi 語法解析器 ---
+function findDelphiMethodBounds(lines, matcher, startIndexHint = 0) {
+ // 取得函式宣告的前半段特徵，並統一轉換為小寫比對 (避免 Delphi 的大小寫差異)
+ // 例如: "procedure TCB_IMGPSScanX.initkscan"
+ const rawSignature = matcher.split('(')[0].trim().toLowerCase().replace(';', '');
+
+ // 針對有參數跟沒參數的，進一步過濾乾淨
+ const signature = rawSignature.split(':')[0].trim();
+
+ let startIdx = -1;
+ let endIdx = -1;
+
+ // 1. 找尋起點 (從 startIndexHint 開始找，支援屬性 getter/setter 重名問題)
+ for (let i = startIndexHint; i < lines.length; i++) {
+ const line = lines[i].toLowerCase();
+
+ // 確保是宣告實作區段，而非 interface 宣告
+ if (line.includes(signature) &&
+ (line.startsWith('procedure ') || line.startsWith('function ') || line.includes(' procedure ') || line.includes(' function '))) {
+
+ // 避免找到 interface 區段的宣告 (通常以分號結尾且無 begin)
+ // 簡單判斷：如果是實作區，往下找幾行應該會有 begin, var, const 等宣告
+ let isImpl = false;
+ for(let scan = i; scan < Math.min(i + 20, lines.length); scan++) {
+ if (lines[scan].toLowerCase().match(/\b(begin|var|const|type)\b/)) {
+ isImpl = true;
+ break;
+ }
+ }
+ if (isImpl) {
+ startIdx = i;
+ break;
+ }
+ }
+ }
+
+ if (startIdx === -1) return null;
+
+ // 2. 透過括號與 Begin/End 深度計算法找尋終點 end;
+ let openCount = 0;
+ let foundBegin = false;
+ let inAsm = false;
+
+ for (let i = startIdx; i < lines.length; i++) {
+ let line = lines[i].toLowerCase();
+
+ // 剃除字串與註解，避免干擾括號計算
+ line = line.replace(/'[^']*'/g, '').replace(/\/\/.*$/, '').replace(/\{[^}]*\}/g, '').replace(/\(\*.*?\*\)/g, '');
+
+ // 分割出乾淨的字詞
+ const words = line.split(/[\s;()\[\]=]+/g).filter(Boolean);
+
+ for (const word of words) {
+ if (word === 'asm') inAsm = true;
+ if (word === 'begin' || word === 'case' || word === 'try' || word === 'asm') {
+ openCount++;
+ foundBegin = true;
+ }
+ if (word === 'end') {
+ openCount--;
+ if (inAsm && openCount === 0) inAsm = false;
+ }
+ }
+
+ // 當發現了 begin 且深度歸零，代表這個方法完全結束了
+ if (foundBegin && openCount === 0) {
+ endIdx = i;
+ break;
+ }
+ }
+
+ return { lIndex: startIdx + 1, rIndex: endIdx + 1 };
+}
+
+function runTest() {
+ console.log("==================================================");
+ console.log(" CB_IMGPSScanImp 動態全域解析與拆解測試腳本 (自動校正行號)");
+ console.log("==================================================\n");
+
+ if (!fs.existsSync(SOURCE_FILE)) {
+ console.error(`[錯誤] 找不到來源備份檔: ${SOURCE_FILE}`);
+ return;
+ }
+
+ let sourceLines = fs.readFileSync(SOURCE_FILE, 'utf-8').split(/\r?\n/);
+ let parsedTargets = [];
+ let totalUpdated = 0;
+ let missingCount = 0;
+
+ if (!fs.existsSync(JSON_DIR)) {
+ console.error(`[錯誤] 找不到 JSON 目錄: ${JSON_DIR}`);
+ return;
+ }
+
+ const files = fs.readdirSync(JSON_DIR).filter(f => f.endsWith('.json'));
+ console.log(`>> 找到 ${files.length} 個 JSON 分類檔，開始進行語法比對與深度解析...`);
+
+ // 略過 interface 區段，避免把 interface 的宣告誤當作實作
+ let implementationStartLine = 0;
+ for(let i=0; i<sourceLines.length; i++){
+ if(sourceLines[i].toLowerCase().trim() === 'implementation') {
+ implementationStartLine = i;
+ break;
+ }
+ }
+
+ // --- 0.2.2.1: 測試與動態驗證 (Verification & Correction Phase) ---
+ for (const file of files) {
+ const filePath = path.join(JSON_DIR, file);
+ let hasChanges = false;
+ try {
+ const content = JSON.parse(fs.readFileSync(filePath, 'utf-8'));
+ const items = Array.isArray(content) ? content : [content];
+
+ for (let item of items) {
+ // 呼叫 AST 語法掃描器動態找尋真實行號 (從 implementation 之後開始找)
+ const actualBounds = findDelphiMethodBounds(sourceLines, item.matcher, implementationStartLine);
+
+ if (actualBounds && actualBounds.lIndex > 0 && actualBounds.rIndex >= actualBounds.lIndex) {
+ // 若偵測到的與原本不同的，自動更新並標記變更
+ if (item.lIndex != actualBounds.lIndex || item.rIndex != actualBounds.rIndex) {
+ item.lIndex = actualBounds.lIndex.toString();
+ item.rIndex = actualBounds.rIndex.toString();
+ hasChanges = true;
+ totalUpdated++;
+ }
+ // 轉換為 0-based index 加入待刪除清單
+ parsedTargets.push({
+ ...item,
+ startIdx: actualBounds.lIndex - 1,
+ endIdx: actualBounds.rIndex - 1
+ });
+ } else {
+ console.warn(`[警告] 無法在原始碼中定位 Matcher 或其包含無效範圍: ${item.matcher}`);
+ missingCount++;
+ }
+ }
+
+ // 若有修正，回寫覆蓋原本的 JSON 檔
+ if (hasChanges) {
+ fs.writeFileSync(filePath, JSON.stringify(items, null, 2), 'utf-8');
+ }
+ } catch (e) {
+ console.error(`[錯誤] 解析 JSON 檔案 ${file} 失敗:`, e.message);
+ }
+ }
+
+ console.log(`\n>> 驗證完成。`);
+ console.log(` 成功動態定位: ${parsedTargets.length} 個區段。`);
+ console.log(` 自動校正誤差: ${totalUpdated} 個。`);
+ console.log(` 無法定位遺漏: ${missingCount} 個。\n`);
+
+ // --- 0.2.2.2: 執行區段移除並審核 (Removal Phase) ---
+ console.log("[階段 2] 執行區段移除...");
+
+ // 依照 startIdx 由大到小排序 (由尾部往上刪)，保證刪除時上方行號不會產生位移跑版
+ parsedTargets.sort((a, b) => b.startIdx - a.startIdx);
+
+ let removedCount = 0;
+ for (const target of parsedTargets) {
+ const deleteCount = target.endIdx - target.startIdx + 1;
+ if (deleteCount > 0) {
+ sourceLines.splice(target.startIdx, deleteCount);
+ removedCount++;
+ }
+ }
+
+ // 寫入完整剩餘結果至實體檔案
+ fs.writeFileSync(REVIEW_FILE, sourceLines.join('\n'), 'utf-8');
+ console.log(`✅ 成功移除 ${removedCount} 個方法區段。`);
+ console.log(`✅ 移除後的剩餘程式碼已儲存至: \n ${REVIEW_FILE}`);
+ console.log(` 您可以開啟該檔案進行人工審核 (裡面應該只剩下全域變數與宣告區段)。`);
+}
+
+runTest();
\ No newline at end of file
diff --git a/scripts/scanimpl_annalysis_classify.js b/scripts/scanimpl_annalysis_classify.js
new file mode 100644
index 0000000..2f9cb6c
--- /dev/null
+++ b/scripts/scanimpl_annalysis_classify.js
@@ -0,0 +1,115 @@
+const fs = require('fs');
+const path = require('path');
+
+const base_path = 'doc/curtis/prompt/scanimpl_analysis';
+const inputFile = path.join(base_path, 'step1_raw_methods.json');
+const outputFile = path.join(base_path, 'step2_classified_methods.json');
+
+const rules = [
+ {
+ tag: 'ScannerController',
+ subs: [
+ {
+ sub: 'twainWrapper',
+ keywords: ['StatrTwainScan', 'OnAcquire', 'initkscan', 'CheckScannerConfig', 'PageEnd', 'PageDone', 'R_W_Scanini', 'GetDefScanIni']
+ }
+ ]
+ },
+ {
+ tag: 'ImageProcessor',
+ subs: [
+ {
+ sub: 'transformer',
+ keywords: ['DeskewImg', 'Rotate', 'CropImg', 'ImageReSize_FormID', 'ImageReSize_tmp', 'CheckNeedCrop']
+ },
+ {sub: 'converter', keywords: ['ConvertToBW', 'ConvertToGray', 'Image_Smooth', 'NegativeImg', 'CleanupBorder']},
+ {sub: 'barcodeRecognizer', keywords: ['MpsGetBarcode', 'Get_OMR']},
+ {sub: 'anchorAnalyzer', keywords: ['FindPoint', 'CheckSize', 'GetSiteOMR']}
+ ]
+ },
+ {
+ tag: 'TransportManager',
+ subs: [
+ {sub: 'requestWrapper', keywords: ['ProcessServlet', 'ProcessServlet_Get', 'ProcessServlet_FormData']},
+ {
+ sub: 'fileTransfer',
+ keywords: ['upFile', 'dnFile', 'dnFile_Get', 'GetftpInfo', 'SetFtpInfo', 'FtpCaseComplete']
+ },
+ {sub: 'utilities', keywords: ['En_DecryptionStr_Base64', 'LoadFileGetMD5', 'HTTPSClientCertificateValidate']},
+ {sub: 'payloadArchiver', keywords: ['ZipMainFile', 'ZipMaskFile', 'ExecuteUnZip']}
+ ]
+ },
+ {
+ tag: 'BusinessLogic',
+ subs: [
+ {
+ sub: 'paramState',
+ keywords: ['SetSQLData', 'GetSQLData', 'FindSQLData', 'GetSetInf1', 'GetSetInf2', 'GetSetInf3', 'GetSetInf4', 'GetSetInf5', 'GetSetInf6', 'GetSetInf7']
+ },
+ {
+ sub: 'entityMapping',
+ keywords: ['BarCode2FormID', 'BarCode2CaseID', 'FormCode2DocNo', 'DocNo2DocName', 'DocNoNeedDiv', 'CreateDocNo_Info', 'CreateCustDocNo_Info']
+ },
+ {sub: 'ormRuleEngine', keywords: ['OMRCheckCase', 'OMRErr2ini', 'OMRErrini2List']},
+ {
+ sub: 'caseModification',
+ keywords: ['SetUseCase', 'GetUseCase', 'OldCasetoNewCase', 'ErrFormtoCurrentForm', 'DeleteDocNoFileForESCAN']
+ }
+ ]
+ },
+ {
+ tag: 'UIView',
+ subs: [
+ {sub: 'treeView', keywords: ['TreeView', 'DrawDocItem2']},
+ {sub: 'scrollView', keywords: ['ISB', 'ImageScrollBox', 'ScrollBox']},
+ {sub: 'i18n', keywords: ['InitialLanguage', 'DownLanguage']},
+ {sub: 'layouts', keywords: ['DisplayMode', 'GoViewMode']},
+ {sub: 'statusMessenger', keywords: ['DataLoading', 'Timer2Timer', 'StatusBar1DblClick', 'Timer', 'StatusBar']},
+ {sub: 'listView', keywords: ['PageLV', 'AttListBox', 'ListView', 'ListBox']},
+ {sub: 'toolBar', keywords: ['BtnClick', 'FC', 'BitBtn', 'SpeedButton']},
+ {sub: 'popupMenu', keywords: ['PM', 'PopupMenu', 'MenuItem']}
+ ]
+ }
+];
+
+function classify() {
+ const rawMethods = JSON.parse(fs.readFileSync(inputFile, 'utf8'));
+ const classified = rawMethods.map(method => {
+ const tags = new Set();
+ const lowerMatcher = method.matcher.toLowerCase();
+
+ for (const rule of rules) {
+ for (const subRule of rule.subs) {
+ const matched = subRule.keywords.some(k => {
+ if (k === 'PM') return method.matcher.includes('.PM');
+ if (k === 'FC') return method.matcher.includes('.FC');
+ return lowerMatcher.includes(k.toLowerCase());
+ });
+
+ if (matched) {
+ tags.add(rule.tag);
+ tags.add(`${rule.tag}.${subRule.sub}`);
+ }
+ }
+ }
+
+ if (tags.size === 0) {
+ tags.add('UIView');
+ tags.add('UIView.misc');
+ }
+
+ return {
+ matcher: method.matcher,
+ tags: Array.from(tags),
+ deps: [],
+ lIndex: method.lIndex.toString(),
+ rIndex: method.rIndex.toString(),
+ description: ""
+ };
+ });
+
+ fs.writeFileSync(outputFile, JSON.stringify(classified, null, 2), 'utf8');
+ console.log(`Classified ${classified.length} methods to ${outputFile}`);
+}
+
+classify();
diff --git a/scripts/scanimpl_annalysis_disaggregate.js b/scripts/scanimpl_annalysis_disaggregate.js
new file mode 100644
index 0000000..2a2eb27
--- /dev/null
+++ b/scripts/scanimpl_annalysis_disaggregate.js
@@ -0,0 +1,27 @@
+const fs = require('fs');
+const path = require('path');
+
+const base_path = 'doc/curtis/prompt/scanimpl_analysis';
+const inputFile = path.join(base_path, 'step2_classified_methods.json');
+
+const modules = [
+ 'ScannerController',
+ 'BusinessLogic',
+ 'ImageProcessor',
+ 'TransportManager',
+ 'UIView'
+];
+
+function disaggregate() {
+ const classifiedMethods = JSON.parse(fs.readFileSync(inputFile, 'utf8'));
+
+ modules.forEach(mod => {
+ // If any of the tags is the module name, it belongs to this module
+ const filtered = classifiedMethods.filter(m => m.tags && m.tags.includes(mod));
+ const outputFile = path.join(base_path, `scanimpl_annalysis.${mod}.json`);
+ fs.writeFileSync(outputFile, JSON.stringify(filtered, null, 2), 'utf8');
+ console.log(`Saved ${filtered.length} methods to ${outputFile}`);
+ });
+}
+
+disaggregate();
diff --git a/scripts/scanimpl_annalysis_extract_methods.js b/scripts/scanimpl_annalysis_extract_methods.js
new file mode 100644
index 0000000..83aea3e
--- /dev/null
+++ b/scripts/scanimpl_annalysis_extract_methods.js
@@ -0,0 +1,40 @@
+const fs = require('fs');
+const path = require('path');
+
+const sourceFile = 'CB_IMGPSScanImp.pas.bk';
+const base_path = 'doc/curtis/prompt/scanimpl_analysis';
+const outputFile = path.join(base_path, 'step1_raw_methods.json');
+
+function extract() {
+ const lines = fs.readFileSync(sourceFile, 'utf8').split('\n');
+ const totalLines = lines.length;
+ const methods = [];
+ const regex = /^(procedure|function)\s+TCB_IMGPSScanX\./i;
+
+ for (let i = 0; i < totalLines; i++) {
+ const line = lines[i];
+ if (regex.test(line)) {
+ methods.push({
+ matcher: line.trim(),
+ lIndex: i + 1,
+ rIndex: -1 // To be filled
+ });
+ }
+ }
+
+ for (let i = 0; i < methods.length; i++) {
+ if (i < methods.length - 1) {
+ methods[i].rIndex = methods[i + 1].lIndex - 1;
+ } else {
+ methods[i].rIndex = totalLines;
+ }
+ }
+
+ if (!fs.existsSync(base_path)) {
+ fs.mkdirSync(base_path, {recursive: true});
+ }
+ fs.writeFileSync(outputFile, JSON.stringify(methods, null, 2), 'utf8');
+ console.log(`Extracted ${methods.length} methods to ${outputFile}`);
+}
+
+extract();
diff --git a/scripts/scanimpl_annalysis_validate.js b/scripts/scanimpl_annalysis_validate.js
new file mode 100644
index 0000000..f337e5f
--- /dev/null
+++ b/scripts/scanimpl_annalysis_validate.js
@@ -0,0 +1,65 @@
+const fs = require('fs');
+const path = require('path');
+
+const sourceFile = 'CB_IMGPSScanImp.pas.bk';
+const base_path = 'doc/curtis/prompt/scanimpl_analysis';
+const remainingsFile = path.join(base_path, 'scanimpl_annalysis.remainings.txt');
+
+const modules = [
+ 'ScannerController',
+ 'BusinessLogic',
+ 'ImageProcessor',
+ 'TransportManager',
+ 'UIView'
+];
+
+function validate() {
+ const lines = fs.readFileSync(sourceFile, 'utf8').split('\n');
+ const totalLines = lines.length;
+ const allCapturedMethods = [];
+
+ modules.forEach(mod => {
+ const filePath = path.join(base_path, `scanimpl_annalysis.${mod}.json`);
+ if (fs.existsSync(filePath)) {
+ const methods = JSON.parse(fs.readFileSync(filePath, 'utf8'));
+ allCapturedMethods.push(...methods);
+ }
+ });
+
+ const coveredLines = new Uint8Array(totalLines + 1);
+
+ allCapturedMethods.forEach(m => {
+ const sourceLine = lines[m.lIndex - 1].trim();
+ if (sourceLine !== m.matcher) {
+ console.error(`Mismatch at line ${m.lIndex}: Expected "${m.matcher}", got "${sourceLine}"`);
+ }
+
+ for (let i = m.lIndex; i <= m.rIndex; i++) {
+ coveredLines[i] = 1;
+ }
+ });
+
+ let remainings = [];
+ let start = -1;
+ for (let i = 1; i <= totalLines; i++) {
+ if (!coveredLines[i]) {
+ if (start === -1) start = i;
+ } else {
+ if (start !== -1) {
+ remainings.push({lIndex: start, rIndex: i - 1});
+ start = -1;
+ }
+ }
+ }
+ if (start !== -1) remainings.push({lIndex: start, rIndex: totalLines});
+
+ const remainingsText = remainings.map(r => {
+ const content = lines.slice(r.lIndex - 1, r.rIndex).join('\n');
+ return `[Lines ${r.lIndex} - ${r.rIndex}]\n${content}\n----------------------------------------\n`;
+ }).join('\n');
+
+ fs.writeFileSync(remainingsFile, remainingsText, 'utf8');
+ console.log(`Validation complete. Remainings saved to ${remainingsFile}`);
+}
+
+validate();
diff --git a/separate/scanImp/CB_IMGPSScanImp_Data.pas b/separate/scanImp/CB_IMGPSScanImp_Data.pas
deleted file mode 100644
index 7a7a89a..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Data.pas
+++ /dev/null
@@ -1,5178 +0,0 @@
-function TCB_IMGPSScanX.Get_HelpFile: WideString;
-begin
- Result := WideString(HelpFile);
-end;
-
-procedure TCB_IMGPSScanX.Set_HelpFile(const Value: WideString);
-begin
- HelpFile := string(Value);
-end;
-
-function TCB_IMGPSScanX.DocNoIsExistImg(DocNopath:String):boolean;
-var
- i:integer;
- ST:TStringList;
-begin
- Result:=False;
- ST:=TStringList.Create;
- if FileExists(DocNopath+'\Context.dat') then /////20190319 Hong 當有空的Docno目錄時會掛掉,增加這行
- ST.loadFromfile(DocNopath+'\Context.dat');
- for I := 0 to ST.Count - 1 do
- begin
- if ISExistImg(DocNopath+ST.Strings[i]) then
- begin
-
- Result:=False;
- Exit;
- Break;
- end;
- end;
- Result:=True;
-
-
-end;
-
-procedure TCB_IMGPSScanX.HTTPSClientCertificateValidate(Sender: TObject;
- X509Certificate: TElX509Certificate; var Validate: Boolean);
-begin
- Validate := True;
-end;
-
-procedure TCB_IMGPSScanX.HTTPSClientRedirection(Sender: TObject;
- const OldURL: string; var NewURL: string; var AllowRedirection: Boolean);
-begin
- AllowRedirection := True;
-end;
-
-Function TCB_IMGPSScanX.GetServerDate : Boolean;
-begin
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/servertimeforocx','',FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- ServerDate := memo1.Lines.Strings[1];
- ServerTime := Copy(ServerDate,9,6);
- ServerDate := Copy(ServerDate,1,8);
- Balance := GetBalance(ServerTime); //Server 跟Local的時間差
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetSetInf1 : Boolean; //取系統設定資訊Mode1 DOC_INF
-Var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM DOC_INF WHERE WORK_NO = '%s' ORDER BY DOC_TYPE, DOC_NO, DOC_VERSION"
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
-
- ColumeStr := 'WORK_NO,DOC_NO,DOC_U_DESC,DOC_TYPE,DOC_VERSION,FORM_PAGES,START_DATE,STOP_DATE,IS_DOC_DIV,IS_IN_WH';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=1&col='+Doc_Inf_Colume+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
-
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=1&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
-
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,Doc_Inf_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf2 : Boolean; //取系統設定資訊Mode2 DM_FORM_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM DM_FORM_INF
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'WORK_NO,MAIN_FORM_ID,DOC_VERSION,DEPE_FORM_ID,MUTEX_FORM_ID';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=2&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=2&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,DM_FORM_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf3 : Boolean; //取系統設定資訊mode3 FORM_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT distinct %s FROM FORM_INF T1 LEFT JOIN DOC_INF T2 ON T2.DOC_NO = T1.DOC_NO AND T1.DOC_VERSION = T2.DOC_VERSION AND T1.WORK_NO = T2.WORK_NO WHERE T2.IS_USE = 'Y' AND T2.WORK_NO = %s
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- //ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_KIND,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.MERGE_IMAGE,T1.CC_FORM_ID,T1.CC_MERGE_FORMID,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
- ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.IS_PRINT,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=3&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=3&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,FORM_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf4 : Boolean; //取系統設定資訊mode4 CHECK_RULE_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM CHECK_RULE_INF WHERE CHECK_TYPE = 'S'
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'WORK_NO,CHECK_NO,CHECK_RULE_DESC,MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=4&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=4&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,CHECK_RULE_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- CheckRule2OMRErrInfo;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf5 : Boolean; //取系統設定資訊mode5 MEMO_INF
- var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM MEMO_INF T1 LEFT JOIN MEMO_TYPE_INF T2 ON T2.MEMO_TYPE_NO = T1.MEMO_TYPE WHERE T1.MEMO_SOURCE = '01'
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'T1.WORK_NO,T1.MEMO_TYPE,T1.MEMO_CONTENT,T2.MEMO_TYPE_NAME';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=5&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,MEMO_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf6 : Boolean; //取系統設定資訊mode5 WORK_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT %s FROM WORK_INF
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'WORK_NO,PARA_NO,PARA_CONTENT';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=6&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,WORK_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSetInf7 : Boolean; //取系統設定資訊mode5 LASTEST_FORM_INF
-var
- ColumeStr : String;
- S : TStringlist;
- EnCodeDateTime : String;
-begin
- //SELECT FORM_ID,DOC_NO,DOC_VERSION FROM FORM_INF WHERE (DOC_NO,DOC_VERSION) in (SELECT DOC_NO, MAX(DOC_VERSION) FROM FORM_INF GROUP BY DOC_NO) ORDER BY DOC_NO
-
- Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ColumeStr := 'FORM_ID,DOC_NO';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/tables','checktime='+EnCodeDateTime+'&mode=7&col='+En_DecryptionStr_Base64('E',ColumeStr,Mpskey)+'&work_no='+FWork_No,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- S := TStringlist.Create;
- S.Text := Memo1.Lines.Text;
- SetSQLData(ColumeStr,S,LASTEST_FORM_INF_List);
- S.Free;
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
-var
- i : Integer;
-begin
- for i := 1 to Doc_Inf_List.Count - 1 do
- begin
-
- if GetSQLData(Doc_Inf_List,'IS_IN_WH',i) = 'Y' then
- IN_WH_DocNoList.Add(GetSQLData(Doc_Inf_List,'DOC_NO',i));
- end;
- {Showmessage(IN_WH_DocNoList.Text);
- StringtoFile(IN_WH_DocNoList.Text,'D:\121.txt');}
-end;
-
-Function TCB_IMGPSScanX.DeleteDocNoFile(Path,DocNo:String):Boolean; //刪除指定DocNo文件
-var
- i: Integer;
- FName : String;
-begin
- Result := False;
- for i := ContextList.Count - 1 downto 0 do
- begin
- FName := ContextList.Strings[i];
- If DocNo = FormCode2DocNo(FileName2FormCode(FName)) then
- begin
- DeleteFile(Path+FName);
- ContextList.Delete(i);
- Context_DocnoList.Delete(i);
- Result := True; //有刪到指定文件
- end;
- end;
- ContextList.SaveToFile(Path+'Context.dat');
- Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
- ReSortFileName(Path);
- ContextList.LoadFromFile(Path+'Context.dat');
- Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
- if FileExists(Path+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
-end;
-
-Procedure TCB_IMGPSScanX.DeleteShowFile(Path:String); //刪除顯示中的影像
-var
- i : Integer;
- DelFile : String;
-begin
- for i := 0 to NowShowFileList.Count - 1 do
- begin
- DelFile := NowShowFileList.Strings[i];
- DeleteFile(Path+DelFile);
- SetContextList('D',-1,NowCaseno,NowDocNo,DelFile);
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetDataDocNoPage(MainDocNo,MainVersion:String):Integer; //取記錄的文件_版本頁數
-var
- P : String;
-begin
- Result := 0;
- If FindSQLData(Doc_Inf_List,'FORM_PAGES','DOC_NO,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) Then
- begin
- P := GetFindResult('FORM_PAGES');
- if P <> '' then
- Result := strtoint(P)
- else
- Result := 0;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckCaseDocNoPage(CaseID,DocNo,Version:String;Pages:Integer):Integer; //取案件裡的文件_版本頁數
-var
- i,n,Count : integer;
- S, S2 : TStringlist;
- FormCode,iPage : String;
- docInt,tempInt:integer;
- v,v2:integer;
-begin
- Count := 0;
- docInt:=0;
- tempInt:=0;
- S := TStringlist.Create;
- S2 := TStringlist.Create;
-//ShowMessage('page='+IntToStr(Pages));
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
- S2.LoadFromFile(ImageSavePath+CaseID+'\upload\DocDir.dat'); //2017 1220 改成只承認第一份的
-
- for I := 1 to pages do //從0到pages-1 改成 1到pages 20170316 這樣可以修改檢核的頁數問題
- begin
- iPage := Add_Zoo(i,2);
- for n := 0 to S.Count - 1 do
- begin
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[n]) then
- begin
- Continue;
- end;
- end;
-
- if (Length(S2.Strings[n])>8) and (Pos(DocNo,S2.Strings[n])<>0) then //2017 1220 改成只承認第一份的
- begin
-//LogFile1.LogToFile(logTimeString+'有進'+docno+','+S2.Strings[n]+IntToStr(Pos(DocNo,S2.Strings[n])));
- v:=Pos('(',S2.Strings[n]);
- v2:=Pos(')',S2.Strings[n]);
- tempInt:=StrToInt(Copy(S2.Strings[n],v+1,v2-v-1));
-
- if docInt=0 then
- begin
- docInt:=tempInt;
- end;
- if docInt<>tempInt then
- begin
-//LogFile1.LogToFile(logTimeString+'docInt='+IntToStr(docInt)+',tempInt='+IntToStr(tempInt));
- Result := Count;
- Break;
- end;
- end;
-
- FormCode := FileName2FormCode(S.Strings[n]);
-//LogFile1.LogToFile(logTimeString+'S.Strings[n]='+S.Strings[n]);
-//Showmessage('1:'+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
-//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
-LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
-//ShowMessage(DocNo+','+IntToStr(docInt)+','+IntToStr(tempInt));
-//LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
- if (version = FormCode2Version(FormCode)) and (DocNo = FormCode2DocNo(FormCode)) and (ipage = FormCode2Page(FormCode)) then
- begin
-LogFile1.LogToFile(logTimeString+'CheckCaseDocNoPage caseno='+CaseID+','+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
-//Showmessage(version+','+DocNo+',iPage='+iPage);
-//Showmessage(inttostr(Count+1));
- Inc(Count);
- Break; //找到了...離開
- end;
- end;
- end;
- finally
- S.Free;
- S2.free;
- end;
- Result := Count;
-end;
-
-Function TCB_IMGPSScanX.TransCaseID(Path,CaseID:String;MainCase:Boolean):Boolean; //傳送案件
-Var
- i,n,v: Integer;
- ZipFileList : TStringlist;
- UpFormID:String;
- pages : Integer;
- TransName : String;
- MaskPath : String;
- HaveMask : Boolean;
- S : String;
- SendData:String;
- Doc_Data,Doc_Data1 : String;
- In_Doc1,In_Doc2 : String;
- AttachYN : String; //是否有附件 Y:有 N:沒有
-
- ST1,ST2,ST3:TStringList;
- str1,str2:String;
- must_formidStr :string;
- last_add_formidstr :string;
- ScanListStr:String;
- casepath:String;
- filesizeInt:integer;
- case_page:string;
- Fname:String;
- FileRec:TSearchrec;
-begin
- Result := True;
- TransName := CaseID;
- MaskPath := Path+'MaskImg\';
- if fileExists(Path+'Context.dat') then
- begin
- ContextList.LoadFromFile(Path+'Context.dat');
- Context_DocnoList.LoadFromFile(Path+'Context_DocNo.dat');
- end;
-
- if FileExists(Path+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(Path+'CustomDocNo.dat');
-
- Pages := ContextList.Count;
- case_page:=IntToStr(pages);
- if (FMode = 'NSCAN') or (FMode = 'ESCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'RSCAN') then
- begin
- //Showmessage('1');
- UpformID := GetCaseFormID(Path);
- {if UpformID = '' then //20131213 yuu說不管主form
- begin
- Showmessage(_msg('取不到主FormID!!'));
- Result := False;
- DataLoading(False,False);
- Exit;
- end;}
- end;
-
- CaseResort2Scanlist(Path); //檔名照設定排序產生scanlist.dat
- //CaseResort(Path); //檔名照設定排序
- CreateFormID_FormName(Path,CaseID); //產生FormID_FormName.dat
- CreateDocNo_DocName(Path,CaseID); //產生DocNo_Name.dat
- Doc_Data := CreateDocNo_Info(CaseID); //產生保管袋文件 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
- Doc_Data1 := CreateCustDocNo_Info(CaseID); //產生自定文件 Docname,份數,頁數;Docno,份數,頁數 的回傳字串
- In_Doc1 := CreateDocnoFrom_Info(CaseID); //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
- In_Doc2 := CreateCustDocNoFrom_Info(CaseID); //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
- AttachYN := CreateAttach_Info(CaseID); //是否還有附件 Y:有 N:沒有
- ReadCaseIndex(Path);
- //LoanDoc := 'Y';
- //產生遮罩影像
-// if FWork_No = 'CW' then
-// HaveMask := Case2Mask(Path,MaskPath);
- //產生遮罩影像
- // S := S +#13+'5-->'+ Timetostr(now);
-
- ///////必要formid 20170315 start //////////////////////////////
- must_formidStr:='';
- last_add_formidstr:='';
- ST1:=TStringList.Create;
- ST1.LoadFromFile(path+'FormCode_Name.dat');
-//ShowMessage(ST1.Text);
-//ShowMessage(LastInitFormidList.Text);
- ST2:=TStringList.Create;
- ST3:=TStringlist.Create;
-
- for I := 0 to ST1.Count - 1 do
- begin
- if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
- begin
- str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
- ST2.Add(str1);
- must_formidStr:= must_formidStr+str1+'@#,';
- end;
- end;
- must_formidStr:=Copy(must_formidStr,1,Length(must_formidStr)-3) ;
-//ShowMessage('must_formidStr='+must_formidStr);
-//ShowMessage('AST2='+ST2.Text);
-
-
- for I := 0 to LastInitFormidList.Count - 1 do
- begin
- if ST2.IndexOf(LastInitFormidList.Strings[i]) <> -1 then
- begin
- ST2.Delete(ST2.IndexOf(LastInitFormidList.Strings[i]));
- end;
- end;
-//ShowMessage('BST2='+ST2.Text);
- for I := 0 to ST2.Count - 1 do
- begin
- last_add_formidstr:=last_add_formidstr+ST2.Strings[i]+'@#,';
- end;
- last_add_formidstr:=Copy(last_add_formidstr,1,Length(last_add_formidstr)-3) ;
-
- ST3.LoadFromFile(path+'scanlist.dat');
- for I := 0 to ST3.Count - 1 do
- begin
- if ScanListStr = '' then
- ScanListStr := FileName2FormCode(ST3.Strings[i])
- else
- ScanListStr := Format('%s,%s',[ScanListStr,FileName2FormCode(ST3.Strings[i])]);
- end;
-
- ST1.Free;
- ST2.Free;
- ST3.Free;
-//ShowMessage('last_add_formidstr='+last_add_formidstr);
- ///////必要formid 20170315 end //////////////////////////
-
- ///保留外部影像 start///////////////////////////////
- casepath:= Copy(Path,1,pos('Upload',path)-1);
-//ShowMessage('casepath='+casepath);
-//FIsExternal:='Y';
- if (FMode='ESCAN') and (FIsExternal='Y') then
- begin
- if FileExists(casepath+'Download\FirstImg.zip') then
- begin
- CopyFile(PWChar(casepath+'Download\FirstImg.zip'),PWChar(path+'FirstImg.zip'),false);
- end
- else
- begin
- CopyFile(PWChar(casepath+'Download\'+CaseID+'.zip'),PWChar(path+'FirstImg.zip'),false);
- end;
- end;
- ///保留外部影像 end///////////////////////////////
-
- //file_size 計算 就先不做 20170316
- filesizeInt:=0;
-
-
- //////壓檔/////
- ZipMainFile(Path,Path,'Img.zip');
- if HaveMask then
- ZipMaskFile(Path,MaskPath,Path,'MaskImg.zip'); //有遮罩設定的才產生
- /////壓檔////
- ///檢查上傳的zip大小////
- FName :=Path+ 'Img.zip';
-
- FindFirst(FName, faAnyfile, FileRec);
-
- //FMaxUploadSize
-//ShowMessage(IntToStr(FileRec.Size));
-//Result:=False;
-//exit; //目前上傳檔案大小為xxMB，已超過50MB，無法上傳 %.3f ,[FileRec.Size / 1048576]
- If FileRec.Size > StrtoInt(FMaxUploadSize) * 1048576 Then // 檢查檔案大小
- Begin
- ShowMessage(Format(_Msg('%s目前上傳檔案大小為%.3fMB，已超過%sMB，無法上傳'),[caseid,FileRec.Size / 1048576,FMaxUploadSize]));
- //ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) );
- FindClose(FileRec);
- Result := False;
- Exit;
- End;
- FindClose(FileRec);
- ///檢查上傳的zip大小////
-//ShowMessage('last_add_formidstr='+last_add_formidstr);
- if not GetftpInfo(CaseID,'upload') then //取案件上傳方式
- begin
- //Showmessage(_Msg()Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
- DownFileErrStr := _Msg('取案件上傳資訊失敗!!')+HttpErrStr;
- Result := False;
- Exit;
- end;
- SendData:='data='+HTTPEncode(UTF8Encode(FData))
- +'&verify='+FVerify
- +'&form_id='+UpformID
- +'&loan_doc='+Case_loandoc
- +'&case_no='+TransName
- +'&doc_data='+HTTPEncode(UTF8Encode(Doc_Data))
- +'&doc_data1='+HTTPEncode(UTF8Encode(Doc_Data1))
- +'&attach='+AttachYN
- +'&case_page='+case_page
- +'&file_size='+IntToStr(filesizeInt)
- +'&must_formid='+must_formidStr //擁有的 formid
- +'&last_add_formid='+last_add_formidstr //當次新加的 formid
- +'&form_code='+ScanListStr //scanlist.dat 表單代號
- +'&ftp_image_path='+FFtpExtraPath //加傳FTP目錄 HTTP上傳時會是空白
- +'&in_doc1='+HTTPEncode(UTF8Encode(In_Doc1))
- +'&in_doc2='+HTTPEncode(UTF8Encode(In_Doc2));
-
- case TransMode of
- tsHttp :
- begin
- ////上傳/////
- ShowText := CaseID+_Msg('資料上傳中(Http),請稍候');
- DataLoading(True,True);
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/caseupload',SendData,'file',Path+'Img.zip',FReWrite,Memo1,False) then
- begin
- Showmessage(Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
- Result := False;
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(Format(_Msg('')+_Msg(''),[CaseID])+memo1.Lines.Strings[1]+'。');
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(Format(_Msg('')+_Msg('')+_Msg('閒置過久或被登出,請重新登入'),[CaseID]));
- Result := False;
- Exit;
- end;
- ////上傳////
- end;
- tsFtp :
- begin
- ShowText := CaseID+_Msg('資料上傳中(Ftp),請稍候');
- DataLoading(True,True);
- SetFtpInfo;
- try
- if not IIS_Ftp.FtpsConnect then
- begin
- Showmessage(Format('無法連上Ftp主機,錯誤原因:%s',[FtpErrReason]));
- Result := False;
- Exit;
- end;
- if not IIS_Ftp.FtpsToMain(FFtpExtraPath,CaseID+'.zip',Path+'Img.zip',display1) then
- begin
- Showmessage(Format(_msg('上傳案件(%s)時,發生錯誤,錯誤原因:%s'),[CaseID,FtpErrStr]));
- Result := False;
- Exit;
- end;
-
- if not FtpCaseComplete(SendData) then //Ftp上傳後通知完成
- begin
- Showmessage(Format(_Msg('通知案件(%s)Ftp上傳完成時,發生錯誤!!'),[CaseID])+HttpErrStr);
- Result := False;
- Exit;
- end;
- finally
- IIS_Ftp.FtpsClose;
- end;
- end;
-
- end;
-
-
- if FMode = 'ESCAN' then //上傳舊件引入檔案 //20140616 原本先搬舊件再搬新件,改為先搬新件再搬舊件
- begin
- if not TransOldCaseFile(ImageSavePath+CaseID+'\') then
- begin
- Result := False;
- Exit;
- end;
- end;
- // 呼叫Server完成 /////
- {If not CaseComplete(Path,CaseID,MainCase) Then
- begin
- Showmessage(_Msg('通知案件傳送完成時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Result := False;
- Exit;
- end; }
- /// 呼叫Server完成////
-
- ////刪檔////
- //_DelTree(Path); //會只刪TransPath
-//ShowMessage('STOP');
- _DelTree(ImageSavePath+CaseID);
- SetCaseList('D',-1,CaseID);
- ////刪檔////
-end;
-
-Function TCB_IMGPSScanX.GetNoNameCase(Path:String):String; //取未配號XXXX
-var
- i : Integer;
-begin
- for i := 1 to 9999 do
- begin
- if Not DirectoryExists(Path+_Msg('未配號')+Add_Zoo(i,4)) then
- begin
- Result := _Msg('未配號')+Add_Zoo(i,4);
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CaseResort(Path:String); //案件的檔案重新排序(次文件依Docno排)
-var
- i,n,v,v1 : Integer;
- S,S1 : TStringlist;
- FormID,OldName,NewName,DocNo,Doc_Type:String;
- x : Integer;
-begin
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- X := 0;
- {for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- if FormCode2FileName(FormID,S) = '' then
- Continue;
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
-
- {for I := 0 to FORM_INF_List.Count - 1 do //次文件 照FormID 1~8碼+掃瞄順序排 20110512為了某個文件要先打的原因要求改
- begin
- for n := 0 to S.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- if (S.Strings[n][1] <> '*') and (Copy(FileName2FormCode(S.Strings[n]),1,8) = Copy(FormID,1,8)) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
- for I := 0 to Doc_Inf_List.Count - 1 do //主文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
- begin
- DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
- if DocNo2FileName(DocNo,S) = '' then
- Continue;
- Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='1') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
-
- for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
- begin
- DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
- if DocNo2FileName(DocNo,S) = '' then
- Continue;
- Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
- {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for i := 0 to FORM_INF_List.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
- for i := 0 to S.Count - 1 do //FormID沒設定的或附件
- begin
- if S.Strings[i][1] <> '*' then
- begin
- Inc(X);
- OldName := S.Strings[i];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
- S.Strings[i] := '*'+S.Strings[i];
- S1.Add(OldName+','+NewName);
- end;
- end;
- S.Clear;
- for i := 0 to S1.Count - 1 do //開始轉換檔名
- begin
- v := Pos(',',S1.Strings[i]);
- v1 := length(S1.Strings[i]);
- OldName := copy(S1.Strings[i],1,v-1);
- NewName := copy(S1.Strings[i],v+1,v1-v);
- if FileExists(Path+OldName) then
- begin
- ReNameFile(Path+OldName,Path+NewName);
- S.Add(NewName);
- S.SaveToFile(Path+'Context.dat');
- end;
- end;
- ReSortFileName(Path);
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DistinctDocinCase(Path:String); //列出案件裡的Docno_版本
-var
- i,n,v : Integer;
- S : TStringlist;
- FormCode,DocNo,Ver : String;
- Doc_Ver : String;
- Exists : Boolean;
-begin
- S := TSTringlist.Create;
- try
- DocNo_VerinCase.Clear;
- S.LoadFromFile(Path+'Context.dat');
- for I := 0 to S.Count - 1 do
- begin
- if FWH_category='N' then
- begin
- if (ISExistImg(Path+S.Strings[i])) or (reSizeExistImgList.IndexOf(LoadFileGetMD5(Path+S.Strings[i]))<>-1) then
- begin
- Continue;
- end;
- end;
- FormCode := FileName2FormCode(S.Strings[i]);
- DocNo := FormCode2DocNo(FormCode);
- Ver := FormCode2Version(FormCode);
- if (Docno <> '') and (Ver <> '') then
- begin
- Doc_Ver := DocNo+'_'+Ver;
- Exists := False;
- for n := 0 to DocNo_VerinCase.Count-1 do
- begin
- if Doc_Ver = DocNo_VerinCase.Strings[n] then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- DocNo_VerinCase.Add(Doc_Ver);
- end;
- end;
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DistinctDocNoinCase(Path:String); //列出案件裡的Docno
-var
- i,n,v : Integer;
- S : TStringlist;
- FormCode,DocNo,Ver : String;
- Exists : Boolean;
-begin
- S := TSTringlist.Create;
- try
- CaseDocNoList.Clear;
- S.LoadFromFile(Path+'Context.dat');
- for I := 0 to S.Count - 1 do
- begin
- FormCode := FileName2FormCode(S.Strings[i]);
- DocNo := FormCode2DocNo(FormCode);
- if (Docno <> '') then
- begin
- Exists := False;
- for n := 0 to CaseDocNoList.Count-1 do
- begin
- if DocNo = CaseDocNoList.Strings[n] then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- CaseDocNoList.Add(DocNo);
- end;
- end;
- finally
- S.Free;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.SetCaseList(Mode:Char;Index:Integer;text:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
-begin
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- case Mode of
- 'A':begin
- CaseList.Add(Text);
- end;
- 'I':begin
- CaseList.Insert(Index,Text);
- end;
- 'E':begin
- CaseList.Strings[Index] := Text;
- end;
- 'D':begin
- if Index <> -1 then
- CaseList.Delete(Index)
- Else if (text <> '') then
- begin
- for i := 0 to CaseList.Count - 1 do
- begin
- if Text = CaseList.Strings[i] then
- begin
- CaseList.Delete(i);
- Break;
- end;
- end;
- end;
- if CaseList.Count = 0 then
- DeleteFile(ImageSavePath + 'CaseList.dat');
- end;
- end;
- if CaseList.Count > 0 then
- CaseList.SaveToFile(ImageSavePath+'CaseList.dat');
-end;
-
-Procedure TCB_IMGPSScanX.SetDocNoList(Mode:Char;Index:Integer;CaseNo,DocDir,Copies:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
- CaseDocNoList : TStringlist;
- CaseDocNo_copiesList : TStringlist;
-begin
- CaseDocNoList := TStringlist.Create;
- CaseDocNo_CopiesList := TStringlist.Create;
- try
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+CaseNo+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
- if FileExists(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
- case Mode of
- 'A':begin
- CaseDocNoList.Add(DocDir);
- CaseDocNo_CopiesList.Add(Copies);
- SetRecordEditedDocDir('A',CaseNo,DocDir);
- end;
- 'I':begin
- CaseDocNoList.Insert(Index,DocDir);
- CaseDocNo_CopiesList.Insert(Index,Copies);
- end;
- 'E':begin
- CaseDocNoList.Strings[Index] := DocDir;
- CaseDocNo_CopiesList.Strings[Index] := Copies;
- end;
- 'D':begin
- if Index <> -1 then
- begin
- //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[Index]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
- SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[Index]); //20170912 要刪除 不然我寫不下去
-
- CaseDocNoList.Delete(Index);
- CaseDocNo_CopiesList.Delete(Index);
-
- end
- Else if (DocDir <> '') then
- begin
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- if DocDir = CaseDocNoList.Strings[i] then
- begin
- //SetRecordEditedDocDir('D',CaseNo,CaseDocNoList.Strings[i]); //20140624 修改刪除文件時也記一筆異動,刪掉會無法通知前端網頁有異動
- SetRecordEditedDocDir('A',CaseNo,CaseDocNoList.Strings[i]); //20170912 要刪除 不然我寫不下去
- CaseDocNoList.Delete(i);
- CaseDocNo_CopiesList.Delete(i);
- Break;
- end;
- end;
- end;
- if ContextList.Count = 0 then
- begin
- DeleteFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
- end;
- end;
- end;
- //Showmessage('abc'+#13+ImageSavePath+CaseNo+'\CaseDocNo.dat'+#13+inttostr(CaseDocNoList.Count)+#13+CaseDocNoList.Text);
- if CaseDocNoList.Count >= 0 then
- begin
- CaseDocNoList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo.dat');
- CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseNo+'\CaseDocNo_Copies.dat');
- //Showmessage('存了');
- end;
- finally
- CaseDocNoList.Free;
- CaseDocNo_CopiesList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.checkCaseOMRDone:Boolean; //檢查案件是否完成OMR檢核
-var
- i : Integer;
-begin
- Result := True;
- for I := 0 to NewTreeNode.Count - 1 do
- begin
- if NewTreeNode.Item[i].ImageIndex <> 7 then
- begin
- Result := False;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckCaseID_OK:Boolean; //檢查是否有未配號的案件
-var
- i,n : Integer;
-begin
- Result := True;
- for i := 0 to NewTreeNode.Count - 1 do
- begin
- if Pos(_msg('未配號'),NewTreeNode.Item[i].Text) > 0 then
- begin
- Result := False;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckCaseAttach_OK:Boolean; //檢查是否有未歸類的案件
-var
- i,j : Integer;
-begin
- Result := True;
- for i := 0 to NewTreeNode.Count - 1 do
- begin
- for j := 0 to NewTreeNode.Item[i].Count - 1 do
- begin
- if Pos(_msg('未歸類'),NewTreeNode.Item[i].Item[j].Text) > 0 then
- begin
- Result := False;
- Break;
- end;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateEmptyCase(Path,CaseID:String); //產生空白案號(重掃件用)
-var
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- S.SaveToFile(Path+CaseID+'\Context.dat');
- S.Add(FCaseID);
- S.SaveToFile(Path+'CaseList.dat')
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ShowFileReplace(Path,NewFormID:String);//顯示的影像換成新的FormID
-var
- i,n : Integer;
- OldFile,NewFile:String;
- Ext : String;
-begin
- for i := 0 to NowShowFileList.Count - 1 do
- begin
- OldFile := NowShowFileList.Strings[i];
- Ext := ExtractFileExt(OldFile);
- NewFile := Add_Zoo(FileName2ScanPage(OldFile),3)+'_'+NewFormID+Ext;
- ReNameFile(Path+OldFile,Path+NewFile);
- SetContextList('E',FileName2Index(OldFile),NowCaseno,NowDocNo,NewFile);
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCasePage(Path,CaseID:String):Integer;
-var
- DocDirList,FileList,ST1 :TStringlist;
- iDocDir,iDocNo : String;
- i,n,Count : Integer;
-begin
- Count := 0;
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- ST1:=TStringList.Create;
- try
- if FileExists(Path+CaseID+'\CaseDocNo.dat') then
- DocDirList.LoadFromFile(Path+CaseID+'\CaseDocNo.dat');
- //Showmessage(DocDirList.Text);
- for i := 0 to DocDirList.Count - 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocno := DocNoDir2DocNo(iDocDir);
- {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
- ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
- begin
- Continue;
- end;}
- //if not DocNoAppear(iDocNo) then Continue; //20170817 先註解
-
- FileList.Clear;
- if FileExists(Path+CaseID+'\'+iDocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(Path+CaseID+'\'+iDocDir+'\Context.dat');
-
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- ST1.Clear;
- for n := 0 to FileList.Count - 1 do
- begin
- if ISExistImg(Path+CaseID+'\'+iDocDir+'\'+FileList.Strings[n]) then
- begin
- ST1.Add(FileList.Strings[n]);
- end;
- end;
-
- for n := 0 to ST1.Count - 1 do
- begin
- if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
- begin
- FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
- end;
- end;
- end
- Else
- if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該要加這段
- end;
-
-
- Count := Count+ FileList.Count;
- end;
- if FileExists(Path+CaseID+'\'+AttName+'\Context.dat') then
- begin
- FileList.LoadFromFile(Path+CaseID+'\'+AttName+'\Context.dat');
- Count := Count+ FileList.Count;
- end;
-
- Result := Count;
- finally
- DocDirList.Free;
- FileList.Free;
- ST1.free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetFile2Case(CaseID,FileName:String);
-var
- S :TStringlist;
-begin
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\Context.dat');
- S.Add(FileName);
- S.SaveToFile(ImageSavePath+CaseID+'\Context.dat');
- finally
- S.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCase_PageCount(var CaseCount,PageCount:Integer):Boolean; //取出案件的數量及頁數
-var
- i,n,k: Integer;
- CaseList,DocList,FileList,ST1 : TStringlist;
-begin
- Result := False;
- CaseCount := 0;
- PageCount := 0;
- CaseList := TStringlist.Create;
- DocList := TStringlist.Create;
- FileList := TStringlist.Create;
- ST1:= TStringlist.Create;
- try
- ImageSavePath := ImagePath;
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- CaseCount := CaseCount+CaseList.Count;
-//ShowMessage('ImageSavePath='+ImageSavePath+#10#13+'CaseList.Count='+IntToStr(CaseList.Count));
- for i := 0 to CaseList.Count - 1 do
- begin
- DocList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') Then
- DocList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
-//ShowMessage('DocList='+DocList.Text);
- for n := 0 to DocList.Count - 1 do
- begin
-//ShowMessage(DocList.Strings[n]+','+BoolToStr(DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])),true));
- if not DocNoAppear(DocNoDir2DocNo(DocList.Strings[n])) then Continue;
- FileList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat') Then
- FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+DocList.Strings[n]+'\Context.dat');
- PageCount := PageCount+FileList.Count;
- end;
- //Showmessage(inttostr(PageCount));
- FileList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat') Then
- FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
- //Showmessage(ImageSavePath+CaseList.Strings[i]+'\'+Attname+'\Context.dat');
-//Showmessage('FileList='+FileList.Text);
- PageCount := PageCount+FileList.Count;
-//Showmessage('PageCount='+inttostr(PageCount));
- if (FWH_category='N') and (FIs_In_Wh='Y') then //20170912 針對非入庫並當次掃描做頁數計算
- begin
- if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
- for n := 0 to ST1.Count - 1 do
- begin
- if ST1.Strings[n]=AttName then Continue;
-//ShowMessage(ST1.Strings[n]+','+BoolToStr(DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])),true));
- if not DocNoIs_In_WH(DocNoDir2DocNo(ST1.Strings[n])) then
- begin
-
- FileList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat') then
- begin
- FileList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\Context.dat');
- for k := 0 to FileList.Count - 1 do
- begin
- if not ISExistImg(ImageSavePath+CaseList.Strings[i]+'\'+ST1.Strings[n]+'\'+FileList.Strings[k]) then
- PageCount := PageCount+1;
- end;
- end;
- end;
- end;
- end;
- end;
- end;
- Finally
- CaseList.Free;
- DocList.Free;
- FileList.Free;
- ST1.Free
- end;
- Result := True;
-end;
-
-Function TCB_IMGPSScanX.BarCode2CaseID : String; //Barcode依規則轉成CaseID
-var
- i : Integer;
- iCaseID : String;
-begin
- Result := ''; //沒找到
- iCaseID := '';
- for i := 1 to MpsBarcodeinf.Count do //20180920 拿掉-1
- begin
- if (Length(MpsBarcodeinf.text[i]) = CaseIDLength) then
- begin
- iCaseID := MpsBarcodeinf.text[i];
- Result := iCaseID;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.WriteCaseIndex(Path:String);
-Var
- S : TStringlist;
-begin
- if Path = '' then Exit;
- S := TStringlist.Create;
- try
- try
- S.Add(Case_loandoc);
- S.SaveToFile(Path+'CaseIndex.dat');
- except on E: Exception do
- end;
-
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ReadCaseIndex(Path:String);
-Var
- S : TStringlist;
-begin
- AddCredit1RG.ItemIndex := -1;
- S := TStringlist.Create;
- try
- if FileExists(Path+'CaseIndex.dat') then
- begin
- S.LoadFromFile(Path+'CaseIndex.dat');
- Case_loandoc := S.Strings[0];
- end;
- if (Case_loandoc = '') and (FLoanDoc_Value <> '') then
- begin
- Case_loandoc := FLoanDoc_Value;
- WriteCaseIndex(Path);
- end;
- if Case_loandoc = 'Y' then
- AddCredit1RG.ItemIndex := 0
- Else if Case_loandoc = 'N' then
- AddCredit1RG.ItemIndex := 1;
-
- finally
- S.Free;
- end;
-
-end;
-
-
-procedure TCB_IMGPSScanX.ReduceLogFile; //20171011 必免log檔掌太大
-var
- ST1:TStringlist;
- I:integer;
-begin
- ST1:=TStringList.Create;
- if FileExists(LngPath+'IMGPSCheck.log') then
- begin
- ST1.LoadFromFile(LngPath+'IMGPSCheck.log');
- if ST1.count>100000 then
- begin
- for I := 0 to 10000 do
- begin
- ST1.Delete(0);
- end;
- ST1.SaveToFile(LngPath+'IMGPSCheck.log');
- end;
- end;
- ST1.Free;
-end;
-
-Procedure TCB_IMGPSScanX.ClearCaseIndex;
-begin
- AddCredit1RG.Enabled := False;
- AddCredit1RG.ItemIndex := -1;
-end;
-
-Function TCB_IMGPSScanX.GetDocNoDir(Path,DocNo:String):String; //取出目前DocNo的份數
-var
- i : Integer;
- iDocNo : String;
-begin
- if (DocNo <> '') then
- begin
- i := 0;
- Repeat
- begin
- inc(i);
- iDocNo := Format('%s_%d',[DocNo,i]);
- end;
- until not DirectoryExists(Path+iDocNo);
- Result := iDocNo;
- end
- Else
- begin
- Result := AttName;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNo2DocNoDir(Path,DocNo:String):String; //DocNo轉成DocNo(份數)目錄
-var
- i : Integer;
- iDocNo : String;
-begin
- if (DocNo <> '') then
- begin
- i := 0;
- Repeat
- begin
- inc(i);
- iDocNo := Format('%s(%d)',[DocNo,i]);
- end;
- until not DirectoryExists(Path+iDocNo);
- Result := iDocNo;
- end
- Else
- begin
- Result := AttName;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoDir2DocNo(DocNoDir:String):String; //DocNo(份數)目錄轉成DocNo
-var
- v,ln : Integer;
-begin
- if (DocNoDir <> 'Attach') and (DocNoDir <> 'S_Attach') then
- begin
- v := Pos('(',DocNoDir);
- if v > 0 then
- Result := Copy(DocNoDir,1,v-1)
- else
- Result := DocNoDir;
- end
- Else
- Result := DocNoDir
-end;
-
-Function TCB_IMGPSScanX.DocNoDir2Index(Path,DocNoDir:String):Integer; //DocNo(份數)目錄轉成index
-var
- i : Integer;
- CaseNo_List : TStringlist;
-begin
- Result := -1;
- CaseNo_List := TStringlist.Create;
- try
- CaseNo_List.LoadFromFile(Path+'CaseDocNo.dat');
- for i := 0 to CaseNo_List.Count - 1 do
- begin
- if DocNoDir = CaseNo_List.Strings[i] then
- begin
- Result := i;
- Break;
- end;
- end;
- finally
- CaseNo_List.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ZipMainFile(SoPath,DePath,ZipName:String);
-var
- ZipFileList : TStringlist;
- n : Integer;
-begin
- ZipFileList := TStringlist.Create;
- try
- if fileExists(DePath+ZipName) then
- DeleteFile(DePath+ZipName);
- {if FileExists(SoPath+'ReSize.dat') then
- DeleteFile(SoPath+'ReSize.dat');}
- //Showmessage(SoPath+#13+ContextList.Text);
- for n := 0 to ContextList.Count - 1 do
- begin
- {WriteResize(SoPath+ContextList.Strings[n],SoPath+'ReSize.dat');}
- ZipFileList.Add(SoPath+ContextList.Strings[n]);
- if FileExists(SoPath+'@'+ContextList.Strings[n]) then
- ZipFileList.Add(SoPath+'@'+ContextList.Strings[n]);
- end;
- if FileExists(SoPath+'Context.dat') then
- ZipFileList.Add(SoPath+'Context.dat');
-
- AttContextList.Clear;
- if FileExists(SoPath+'ATTContext.dat') then
- AttContextList.LoadFromFile(SoPath+'ATTContext.dat');
- for n := 0 to AttContextList.Count - 1 do
- begin
- ZipFileList.Add(SoPath+AttContextList.Strings[n]);
- end;
- if FileExists(SoPath+'ATTContext.dat') then
- ZipFileList.Add(SoPath+'ATTContext.dat');
-
-
- if FileExists(SoPath+'Context_DocNo.dat') then
- ZipFileList.Add(SoPath+'Context_DocNo.dat');
- if FileExists(SoPath+'scanlist.dat') then
- ZipFileList.Add(SoPath+'scanlist.dat');
- if FileExists(SoPath+'FormCode_Name.dat') then
- ZipfileList.Add(SoPath+'FormCode_Name.dat');
- if FileExists(SoPath+'DocNo_Name.dat') then
- ZipfileList.Add(SoPath+'DocNo_Name.dat');
- if FileExists(SoPath+'ReSize.dat') then
- ZipfileList.Add(SoPath+'ReSize.dat');
- if FileExists(SoPath+'FormIDReplace.dat') then
- ZipfileList.Add(SoPath+'FormIDReplace.dat');
- if FileExists(SoPath+'AnchorError.dat') then
- ZipfileList.Add(SoPath+'AnchorError.dat');
- if FileExists(SoPath+'CaseDocNo.dat') then
- ZipfileList.Add(SoPath+'CaseDocNo.dat');
- if FileExists(SoPath+'CaseDocNo_Copies.dat') then
- ZipfileList.Add(SoPath+'CaseDocNo_Copies.dat');
- if FileExists(SoPath+'CustomDocNo.ini') then
- ZipfileList.Add(SoPath+'CustomDocNo.ini');
- if FileExists(SoPath+'DocDir.dat') then
- ZipfileList.Add(SoPath+'DocDir.dat');
- if FileExists(SoPath+'In_Wh.dat') then
- ZipfileList.Add(SoPath+'In_Wh.dat');
- if FileExists(SoPath+'UseCase.ini') then
- ZipfileList.Add(SoPath+'UseCase.ini');
-
- if FileExists(SoPath+'FirstImg.zip') then//20170315 加的
- begin
- ZipfileList.Add(SoPath+'FirstImg.zip');
- end;
-
-
- ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
- //Showmessage('111');
- finally
- ZipFileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ZipMaskFile(SoPath,MarkPath,DePath,ZipName:String); //壓縮遮罩影像檔
-var
- ZipFileList : TStringlist;
- n : Integer;
-begin
- ZipFileList := TStringlist.Create;
- try
- if fileExists(DePath+ZipName) then
- DeleteFile(DePath+ZipName);
-
- for n := 0 to ContextList.Count - 1 do
- begin
- ZipFileList.Add(MarkPath+ContextList.Strings[n]);
- end;
- if FileExists(SoPath+'Context.dat') then
- ZipFileList.Add(SoPath+'Context.dat');
- if FileExists(SoPath+'scanlist.dat') then
- ZipFileList.Add(SoPath+'scanlist.dat');
- if FileExists(SoPath+'FormCode_Name.dat') then
- ZipfileList.Add(SoPath+'FormCode_Name.dat');
- if FileExists(SoPath+'DocNo_Name.dat') then
- ZipfileList.Add(SoPath+'DocNo_Name.dat');
- if FileExists(SoPath+'ReSize.dat') then
- ZipfileList.Add(SoPath+'ReSize.dat');
- if FileExists(SoPath+'Err.jpg') then
- ZipfileList.Add(SoPath+'Err.jpg');
- if FileExists(SoPath+'auth.jpg') then
- ZipfileList.Add(SoPath+'auth.jpg');
- ExeCuteZip(DePath+ZipName,SoPath,ZipFileList,False,False);
- finally
- ZipFileList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.MemoInfoTransfer(Mode,Str:String;ID_S,Name_S:TStringlist):String; //註記代碼註記類別轉換 Mode 'ID':代碼轉名稱;'NAME':名稱轉代碼
-var
- i : Integer;
-begin
- if Mode = 'ID' then
- begin
- Result := _Msg('自行輸入');
- for i := 0 to ID_S.Count - 1 do
- begin
- if Str = ID_S.Strings[i] then
- begin
- Result := Name_S.Strings[i];
- Break;
- end;
- end;
- end
- else if Mode = 'NAME' then
- begin
- Result := '00';
- for i := 0 to Name_S.Count - 1 do
- begin
- if Str = Name_S.Strings[i] then
- begin
- Result := ID_S.Strings[i];
- Break;
- end;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetSQLData(ColumeStr:String;FromList,ToList:TStringlist); //把SQL值塞入
-var
- i : Integer;
-begin
- ToList.Clear;
- ToList.Add(ColumeStr);
- For i := 1 to FromList.Count -1 do
- begin
- ToList.Add(FromList.Strings[i]);
- end;
-end;
-
-Function TCB_IMGPSScanX.GetSQLData(TableList:TStringlist;Colname:String;colNo:Integer):String; //依欄位及索引取值
-var
- i,col,v,v1 : Integer;
- ColStr,DataStr: TStringList;
- TmpStr : String;
- P1,p2 : Integer;
-begin
- Result := '';
- ColStr := TStringList.Create;
- DataStr := TSTringList.Create;
- ColStr.CommaText := TableList.Strings[0];
- TmpStr := TableList.Strings[ColNo];
- //DataStr.Text:=StringReplace(TmpStr,'!@!',#13,[rfReplaceAll]);
-
- While Length(Tmpstr) > 0 do
- begin
- v:= Pos('!@!',TmpStr);
- v1 := Length(TmpStr);
- If v > 0 Then
- begin
- DataStr.Add(Copy(TmpStr,1,v-1));
- TmpStr := Copy(TmpStr,v+3,V1-(V-2));
- end
- Else
- begin
- DataStr.Add(TmpStr);
- TmpStr := '';
- end;
- end;
- For i := 0 to ColStr.Count-1 do
- begin
- IF ColStr.Strings[i] = ColName Then
- begin
- Result := '';
- If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
- Result := DataStr.Strings[i];
- //If (DataStr.Count > 0) and (i<=DataStr.Count-1) Then
- //begin
- {if i = 0 then
- begin
- P1 := 1;
- p2 := PosN('!@!',TmpStr,1)-1;
- end
- else
- begin
- P1 := PosN('!@!',TmpStr,i)+3;
- p2 := PosN('!@!',TmpStr,i+1)-p1;
- end;
-
-
- Result :=Copy(tmpstr,p1,p2);}
- //end;
- //Result := DataStr.Strings[i];
-
- Break;
- end;
- end;
- ColStr.Free;
- DataStr.Free;
-end;
-
-Function TCB_IMGPSScanX.FindSQLData(TableList:TStringlist;ColumeStr,KeyColumeStr,KeyStr:String;ColNo:Integer;Var ResultList:TStringlist):Boolean; //找指定的資料
-Var i,n,Findindex : Integer;
- ColList,KeyColList,KeyList : TStringlist;
- Cols,Keycols,keys :String;
- Find:Boolean;
-begin
- ResultList.Clear;
- if (KeyStr = '') or (TableList.Count <= 1) then
- begin
- Result := False;
- Exit;
- end;
-
- ColList := TStringlist.Create;
- KeyColList := TStringlist.Create;
- KeyList := TStringlist.Create;
- try
- ColList.CommaText := ColumeStr;
- KeyColList.CommaText := KeyColumeStr;
- KeyList.CommaText := KeyStr;
- if ColNo = 0 then
- begin
- for i := 1 to TableList.Count -1 do //找key對不對
- begin
- Findindex := i;
- for n := 0 to KeyColList.Count - 1 do
- begin
- Find := True;
- Keycols := KeyColList.Strings[n];
- keys := KeyList.Strings[n];
- //Showmessage(keys);
- //Showmessage(TableList.Strings[i]);
- if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
- //if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度 //20130521發現找資料會有問題
- Continue
- Else //不對.離開
- begin
- Find := False;
- Break;
- end;
- end;
- if Find then Break; // 找到了離開
- end;
- end
- Else
- begin
- i := ColNo;
- Findindex := i;
- for n := 0 to KeyColList.Count - 1 do
- begin
- Find := True;
- Keycols := KeyColList.Strings[n];
- keys := KeyList.Strings[n];
- //if GetSQLData(TableList,Keycols,i) = keys then //對.繼續
- if Pos('!@!'+keys+'!@!','!@!'+TableList.Strings[i]+'!@!') >0 then //在資料列前後加!@! 用pos的方式來改善速度
- Continue
- Else //不對.離開
- begin
- Find := False;
- Break;
- end;
- end;
- end;
- if Find then //有找到key
- begin
- for n := 0 to ColList.Count -1 do
- begin
- Cols := ColList.Strings[n];
- ResultList.Add(Cols+','+GetSQLData(TableList,Cols,Findindex));
- end;
- end;
- finally
- Result := Find;
- ColList.Free;
- KeyColList.Free;
- KeyList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DataLoading(Loading:Boolean;UseTimer:Boolean); //資料載入中要停止點選的動作
-begin
- If Loading Then
- begin
- Screen.Cursor := -11;
- if UseTimer then
- begin
- Panel22.Caption := ShowText;
- Panel22.Left := (Panel9.Width div 2) - (Panel22.Width div 2);
- Panel22.Top := (Panel9.Height div 2) - (Panel22.Height div 2);
- Panel22.Visible := True;
- Timer2.Enabled := True;
- end
- Else
- begin
- Panel8.Left := (Panel9.Width div 2) - (Panel8.Width div 2);
- Panel8.Top := (Panel9.Height div 2) - (Panel8.Height div 2);
- Panel8.Visible := True;
- end;
- Application.ProcessMessages;
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- end
- Else
- begin
- Panel22.Visible := False;
- Panel8.Visible := False;
- Timer2.Enabled := False;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- Screen.Cursor := 0;
- end;
-
-end;
-
-function TCB_IMGPSScanX.LoadFileGetMD5(const filename: string): string;
-var
- Stream: TFileStream;
- //Buffer: array[0..1023] of AnsiChar;
- Buffer: array[0..1023] of AnsiChar;
- TempStr: string;
- i: Integer;
- idmd5:TIdHashMessageDigest5; //import IdHashMessageDigest, idHash
-
-begin
- idmd5 := TIdHashMessageDigest5.Create;
-
- try
- Stream := TFileStream.Create(filename, fmOpenRead);
- Stream.Read(Buffer[0], SizeOf(Buffer));
-
- result := idmd5.HashStreamAsHex(Stream) ;
- finally
- idmd5.Free;
- Stream.Free;
-
- end;
-end;
-
-procedure TCB_IMGPSScanX.LoadImgFile; //載入新件及替換件
-Var
- i,v,v1,m : Integer;
- CasePage : integer;
- TempName : String;
- BarName : String;
- DocName : String;
- //S : String;
-begin
- ClearView(1);
- PageLV.Clear;
- AttListBox.Items.Clear;
- AddAttFileLB.Enabled := False;
- DelAttFileLB.Enabled := False;
- DisplayPath := '';
- ClearCaseIndex;
- CaseHelpBtn.Visible := False;
- //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- TreeView1.Items.Clear;
- NewTreeNode := nil;
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- MyTreenode3 := nil;
- NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
- NewTreenode.ImageIndex := 0;
- NewTreenode.SelectedIndex := 0;
- Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- GetCase_PageCount(CaseCount,PageCount);
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- for i := 0 to CaseList.Count - 1 do
- begin
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo.dat');
- if not FileExists(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat') then
- begin
- CaseDocNo_CopiesList.Clear;
- for m := 0 to CaseDocNoList.Count - 1 do
- begin
- CaseDocNo_CopiesList.Add('1');
- CaseDocNo_CopiesList.SaveToFile(ImageSavePath+CaseList.Strings[i]+'\CaseDocNo_Copies.dat');
- end;
- end;
-
- CasePage := GetCasePage(ImageSavePath,CaseList.Strings[i]);
-//ShowMessage('CasePage='+IntToStr(CasePage));
- MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[i],CasePage]));
- MytreeNode1.ImageIndex := 1;
- MytreeNode1.SelectedIndex := 1;
- DrawDocItem2(MytreeNode1,CaseList.Strings[i]); //長出文件名稱的樹並傳回是否有申請書的影像
- if Pos(_Msg('未配號'),CaseList.Strings[i]) > 0 then
- begin
- MytreeNode1.ImageIndex := 5;
- MytreeNode1.SelectedIndex := 5;
- end;
- If FileExists(ImageSavePath+CaseList.Strings[i]+'\OMRCheckOk.dat') Then
- begin
- MytreeNode1.ImageIndex := 7;
- MytreeNode1.SelectedIndex := 7;
- CaseHelpBtn.Visible := False;
- end
- Else IF FileExists(ImageSavePath+CaseList.Strings[i]+'\Checkerr.ini') Then
- begin
- MyTreenode1.ImageIndex := 5;
- MyTreenode1.SelectedIndex := 5;
-
- //AllEnforceLb.Visible := True; //全部強迫送件
- end;
- end;
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- If NewTreeNode <> nil Then
- begin
- TreeView1.Selected := NewTreeNode;
- NewTreeNode.Expand(False);
- end;
- IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
- begin
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
- end;
-end;
-
-procedure TCB_IMGPSScanX.LoadImgFile1; //載入新件及替換件
-Var
- i,n,v,v1,m : Integer;
- p : integer;
- iCaseNo,iDocNo : String;
- TempName : String;
- BarName : String;
- DocName : String;
- //S : String;
-begin
- ClearView(1);
- PageLV.Clear;
- DisplayPath := '';
- ClearCaseIndex;
- CaseHelpBtn.Visible := False;
- //Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- TreeView1.Items.Clear;
- NewTreeNode := nil;
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- MyTreenode3 := nil;
- NewTreeNode := TreeView1.Items.Add(nil,Format(_Msg('%s-共%d筆共%d頁'),[FModeName,0,0]));
- NewTreenode.ImageIndex := 0;
- NewTreenode.SelectedIndex := 0;
-
- Del_Sub_NothingPath(ImageSavePath); //清掉案件目錄是空的
- GetCase_PageCount(CaseCount,PageCount);
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- for n := 0 to CaseList.Count - 1 do
- begin
- iCaseNo := CaseList.Strings[n];
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\DocNoList.dat');
-
- for m := 0 to CaseDocNoList.Count - 1 do
- begin
- iDocNo := CaseDocNoList.Strings[i];
- MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
- MytreeNode1.ImageIndex := 1;
- MytreeNode1.SelectedIndex := 1;
- end;
-
-
- ContextList.Clear;
- Context_DocnoList.Clear;
- If FileExists(ImageSavePath+CaseList.Strings[n]+'\Context.dat') Then
- begin
- ContextList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context.dat');
- if FileExists(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat') then
- Context_DocnoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat')
- else
- begin
- for m := 0 to ContextList.Count - 1 do
- begin
- Context_DocnoList.Add(FormCode2DocNo(FileName2FormCode(ContextList.Strings[m])));
- end;
- Context_DocnoList.SaveToFile(ImageSavePath+CaseList.Strings[n]+'\Context_DocNo.dat');
- end;
- Cust_DocNoList.Clear;
- if FileExists(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(ImageSavePath+CaseList.Strings[n]+'\CustomDocNo.dat');
-
- P := ContextList.Count;
- MytreeNode1 := TreeView1.Items.AddChild(NewTreeNode,Format(_Msg('%s-%d頁'),[CaseList.Strings[n],p]));
- MytreeNode1.ImageIndex := 1;
- MytreeNode1.SelectedIndex := 1;
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像
- DrawDocItem2(MytreeNode1,CaseList.Strings[n]); //長出文件名稱的樹並傳回是否有申請書的影像 20140820改
-
- if Pos(_Msg('未配號'),CaseList.Strings[n]) > 0 then
- begin
- MytreeNode1.ImageIndex := 5;
- MytreeNode1.SelectedIndex := 5;
- end;
- If FileExists(ImageSavePath+CaseList.Strings[n]+'\OMRCheckOk.dat') Then
- begin
- MytreeNode1.ImageIndex := 7;
- MytreeNode1.SelectedIndex := 7;
- CaseHelpBtn.Visible := False;
- end
- Else IF FileExists(ImageSavePath+CaseList.Strings[n]+'\Checkerr.ini') Then
- begin
- MyTreenode1.ImageIndex := 5;
- MyTreenode1.SelectedIndex := 5;
-
- //AllEnforceLb.Visible := True; //全部強迫送件
- end;
- end;
- end;
-
-
- MyTreenode1 := nil;
- MyTreenode2 := nil;
- If NewTreeNode <> nil Then
- begin
- TreeView1.Selected := NewTreeNode;
- NewTreeNode.Expand(False);
- end;
- ContextList.Clear;
- IF (NewTreeNode <> nil) and (NewTreeNode.Count > 0) Then
- begin
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
- end;
-end;
-
-procedure TCB_IMGPSScanX.LoadAttFile(CaseID:String); //載入附加檔案
-var
- AttContextList : TStringlist;
- i : Integer;
-begin
- AttListBox.Clear;
- AttContextList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\AttContext.dat') then
- begin
- AttContextList.LoadFromFile(ImageSavePath+CaseID+'\AttContext.dat');
- end;
- for i := 0 to AttContextList.Count - 1 do
- begin
- AttListBox.Items.Add(UTF8Decode(HTTPDEcode(AttContextList.Strings[i])));
- end;
- finally
- AttContextList.Free;
- end;
-end;
-
-function TCB_IMGPSScanX.logTimeString: String;
-begin
-Result:=FormatDateTime('yyyymmdd hh:mm:ss',now) +' caseNo='+NowCaseno+' ';
-end;
-
-Function TCB_IMGPSScanX.Case2Mask(SoPath,DePath:String):Boolean;//產生遮罩影像 20170639 發現沒用到
-var
- XT : TXMLTool;
- i : Integer;
- S : TStringlist;
- SiteList : TStringlist;
- FormID : String;
- ColEName : String;
- FileName : String;
- nodename : String;
- Site : String;
- Anchor : String;
-begin
- Result := False;
- if DirectoryExists(DePath) then
- _DelTree(DePath);
- Str2Dir(DePath);
- DeleteFile(SoPath+'MaskImg.zip');
- SiteList := TStringlist.Create;
- S := TStringlist.Create;
- XT := TXMLTool.Create;
- try
- S.LoadFromFile(SoPath+'Context.dat');
- for I := 0 to S.Count - 1 do
- begin
- SiteList.Clear;
- ImageScrollBox1.LoadFromFile(SoPath+S.Strings[i],1);
-
- FormID := FileName2FormCode(S.Strings[i]);
- Anchor := FormID2Anchor(FormID);
- //ParserPoint(CropMpsV.FindPoint(Anchor));
- FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,Anchor);
- if FileExists(CheckXmlPath+FWork_no+'\'+FormID+'.xml') then //沒有Xml就不用遮罩
- begin
- XT.LoadFromFile(CheckXmlPath+FWork_no+'\'+FormID+'.xml');
- if XT.SubNodes['/form/settype10/'].First then
- Repeat
- ColEName := XT.SubNodes['/form/settype10/'].NodeName;
- if XT.SubNodes['/form/settype10/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype10/'+ColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- Site := XT.Node['/form/settype10/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
- SiteList.Add(Site);
- Result := True; //有設定
- end
- Else
- begin
- //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
- end;
- Until not XT.SubNodes['/form/settype10/'+ColEName+'/'].Next;
- Until not XT.SubNodes['/form/settype10/'].Next ;
- FieldMask(ImageScrollBox1,SiteList.Text,'Mask',UpLPoint);
- end;
- SaveAnnotation(ImageScrollBox1,DePath+S.Strings[i]);
- end;
- finally
- SiteList.Free;
- S.Free;
- XT.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetNewCustomDocNo(Path,DocName:String):String; //取出未使用的自訂文件代號
-var
- ini : Tinifile;
- Ct:Integer;
- DocNo,FormID : String;
-
- {i,n,v,ln : Integer;
- C_No,C_Name : String;
- CNo : Integer;
- S : TStringlist;
- NewDocNo : String;}
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Ct := ini.ReadInteger('CustomCount','Count',0);
- inc(Ct);
- DocNo := 'ZZZZZ'+Add_Zoo(Ct,3);
- if FIs_In_Wh <> 'Y' then //不是入庫文件
- DocNo := 'YYYYY'+Add_Zoo(Ct,3);
-
- if (FMode='ESCAN') and (FWH_category='N') then //20170914 補件下改成非入庫的自定文件
- begin
- DocNo := 'YYYYY'+Add_Zoo(Ct,3);
- end;
-
- FormID := DocNo+'010101A';
- ini.WriteInteger('CustomCount','Count',Ct);
- ini.WriteString(DocNo,'FormID',FormID);
- ini.WriteString(DocNo,'Name',DocName);
- Result := DocNo;
- finally
- ini.Free;
- end;
-
- {S := TStringlist.Create;
- try
- NewDocNo :='ZZZZZ001';
- if FileExists(Path+'CustomDocNo.dat') then
- begin
- /// ZZZZZ001_自定文件名稱 001_自定文件名稱
- S.LoadFromFile(Path+'CustomDocNo.dat');
- for i := 0 to S.Count - 1 do
- begin
- v := Pos('_',S.Strings[i]);
- ln := Length(S.Strings[i]);
- C_No := Copy(S.Strings[i],1,v-1);
- C_Name := Copy(S.Strings[i],v+1,ln-v);
- if DocName = C_Name then
- begin
- Showmessage('文件名稱已存在');
- Result := '';
- Exit;
- end;
- end;
- CNo := strtoint(Copy(C_No,6,3))+1;
- NewDocNo := 'ZZZZZ'+Add_Zoo(CNo,3);
- end;
- S.Add(NewDocNo+'_'+DocName);
- S.SaveToFile(Path+'CustomDocNo.dat');
- Result := NewDocNo;
- finally
- S.Free;
- end; }
-end;
-
-Function TCB_IMGPSScanX.GetCustomDocDir(Path,DocName:String):String; //取出自定文件DocDir
-var
- i,ct:integer;
- ini : Tinifile;
-begin
- Result := '';
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- ct := ini.ReadInteger('CustomCount','Count',0);
- for i := 1 to ct do
- begin
- if ini.ReadString('ZZZZZ'+Add_Zoo(i,3),'Name','') = DocName then
- begin
- Result := 'ZZZZZ'+Add_Zoo(i,3);
- Break;
- end;
- if ini.ReadString('YYYYY'+Add_Zoo(i,3),'Name','') = DocName then
- begin
- Result := 'YYYYY'+Add_Zoo(i,3);
- Break;
- end;
- end;
- finally
- ini.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DeleteCustomDocDir(Path,DocNo:String); //刪除自定文件DocNo
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- ini.EraseSection(DocNo);
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FindLastestDocDir(CaseID,DocNo:String):String; //找出最新的DocDir
-var
- i : Integer;
- DocNoList,FileList : TStringlist;
-begin
- Result := '';
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := DocNoList.Count-1 downto 0 do
- begin
- if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
- begin
- Result := DocNoList.Strings[i];
- Break;
- end;
- end;
- finally
- DocNoList.Free;
- FileList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FindLastestDocDirForPage(CaseID,DocNo,formid:String):String; //找出最新的DocDir 20180207 排除隱藏的資料夾
-var
- i,j:integer;
- DocNoList,FileList : TStringlist;
- Imglist: TStringlist;
- DirIsHide:Boolean;
-begin
- Result := '';
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- imglist := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- for i := DocNoList.Count-1 downto 0 do
- begin
- if Copy(DocNoList.Strings[i],1,length(DocNo)) = DocNo then
- begin
-//ShowMessage(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]);
- if not DocNoIsExistImg(ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
- begin
-//ShowMessage('DDDDD');
- Result := '';
- Break;
- end
- else
- begin
- Result := DocNoList.Strings[i];
- Break;
- end;
- end;
- end;
- finally
- DocNoList.Free;
- FileList.Free;
- imglist.Free;
- end;
-
-end;
-
-
-Procedure TCB_IMGPSScanX.Create_Cust_DocDir(CaseID:String); //產生外面傳入的文件代號及自定文件
-var
- i,n : Integer;
- C_DocNoList,C_DocNameList : TStringlist;
- DocNo,DocName,DocDir : String;
- DocNo_Ct,NowDocNo_Ct :integer;
- DocName_Ct : Integer;
- inx : Integer;
-begin
- C_DocNoList := TStringlist.Create;
- C_DocNameList := TStringlist.Create;
- try
-
- if FC_DocNoList <> '' then
- begin
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- //Showmessage(C_DocNoList.Text);
- for i := 0 to C_DocNoList.Count - 1 do
- begin
- DocNo := C_DocNoList.Strings[i];
- //舊件不長出錯誤的文件出來
- if (FIs_OldCase = 'Y') and (FWork_no='HLN') and (DocNo = FormCode2DocNo('10000001011112A')) then
- Continue;
- NowDocNo_Ct := GetDocNoCount(CaseID,DocNo);
- if DocNoNeedDiv(DocNo) then
- begin
- DocNo_Ct := 0;
- for n := 0 to i do
- begin
- if C_DocNoList.Strings[n] = DocNo then
- inc(DocNo_Ct);
- end;
- if DocNo_CT <= NowDocNo_Ct then
- Continue;
- if DirectoryExists(ImageSavePath+CaseID+'\'+DocNo+'('+inttostr(DocNo_Ct)+')') then //存在了
- Continue;
- if (DocNo_Ct = 1) and DirectoryExists(ImageSavePath+CaseID+'\'+DocNo) then //存在了 20140327加
- Continue;
- DocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',DocNo)
-
- end
- else
- begin
- DocDir := DocNo;
- end;
- if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
- begin
- MkDir(ImageSavePath+CaseID+'\'+DocDir);
- SetDocNoList('A',-1,CaseID,DocDir,'1');
- end;
- if not DocNoNeedDiv(DocNo) then //不分份的秀數
- SetDocDirCopies(CaseID,DocNo,GetCustomDocNoCount(DocNo));
-
- end;
- end;
- if FC_DocNameList <> '' then
- begin
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
- //Showmessage(C_DocNameList.Text);
- for i := 0 to C_DocNameList.Count - 1 do
- begin
- DocName := C_DocNameList.Strings[i];
- DocName_Ct := GetCustomNameCount(DocName);
- if not FindCustomDocName(ImageSavePath+CaseID+'\',DocName) then
- begin
- DocDir := GetNewCustomDocNo(ImageSavePath+CaseID+'\',DocName);
- if not DirectoryExists(ImageSavePath+CaseID+'\'+DocDir) then
- begin
- MkDir(ImageSavePath+CaseID+'\'+DocDir);
- SetDocNoList('A',-1,CaseID,DocDir,inttostr(DocName_Ct));
- end;
- end
- Else
- begin
- DocDir := GetCustomDocDir(ImageSavePath+CaseID+'\',DocName);
- //inx := DocNoDir2Index(ImageSavePath+CaseID+'\',DocDir);
- SetDocDirCopies(CaseID,DocDir,DocName_Ct);
- end;
- end;
- end;
-
- finally
- C_DocNoList.Free;
- C_DocNameList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.OldCasetoNewCase(CaseID:String); //將舊案份數轉成新規則
-var
- i,n : Integer;
- C_DocNoList,C_DocNameList : TStringlist;
- DocNoList,DocNo_CopiesList : TStringlist;
- DocNo,DocName,DocDir : String;
- DocNo_Ct :integer;
-begin
- C_DocNoList := TStringlist.Create;
- C_DocNameList := TStringlist.Create;
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to DocNoList.Count - 1 do
- begin
- DocNo_CopiesList.Add('0');
- end;
- //Showmessage(FC_DocNoList);
- if FC_DocNoList <> '' then
- begin
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- //showmessage(C_DocNoList.Text+#13+#13+DocNoList.Text);
- for i := 0 to DocNoList.Count - 1 do
- begin
- //DocNo := DocNoList.Strings[i];
- DocNo := DocNoDir2DocNo(DocNoList.Strings[i]); //20140812 因轉舊案錯誤件會出現DocnoDir
- DocNo_Ct := 0;
- for n := 0 to C_DocNoList.Count - 1 do
- begin
- if DocNo = C_DocNoList.Strings[n] then
- inc(DocNo_Ct);
- end;
- if DocNo_CT > 0 Then
- DocNo_CopiesList.Strings[i] := inttostr(DocNo_CT);
- end;
- DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- end;
- if FC_DocNameList <> '' then
- begin
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
- for i := 0 to DocNoList.Count - 1 do
- begin
- DocNo := DocNoList.Strings[i];
- DocNo_Ct := 0;
- for n := 0 to C_DocNameList.Count - 1 do
- begin
- if GetCustomDocName(ImageSavePath+CaseID+'\',DocNo) = C_DocNameList.Strings[n] then
- inc(DocNo_Ct);
- end;
-
- if DocNo_CT > 0 Then
- DocNo_CopiesList.Strings[i] :=inttostr(DocNo_CT);
- end;
- end;
- DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- finally
- C_DocNoList.Free;
- C_DocNameList.Free;
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.SetRecordEditedDocDir(Mode:Char;CaseID,DocDir:String); //記錄被異動的文件目錄 'A:加入D:刪掉'
-var
- i : Integer;
- Exists : Boolean;
- EditedDocDirList : TStringlist;
-begin
- EditedDocDirList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
- EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- case Mode of
- 'A':begin
- Exists := False;
- for i := 0 to EditedDocDirList.Count - 1 do
- begin
- if EditedDocDirList.Strings[i]=DocDir then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- begin
- EditedDocDirList.Add(DocDir);
- EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- end;
- end;
- 'D':begin
- for i := 0 to EditedDocDirList.Count - 1 do
- begin
- if EditedDocDirList.Strings[i] = DocDir then
- begin
- EditedDocDirList.Delete(i);
- if EditedDocDirList.Count > 0 then
- EditedDocDirList.SaveToFile(ImageSavePath+CaseID+'\EditedDocDir.dat')
- else
- DeleteFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- Break;
- end;
- end;
- end;
- end;
-
- finally
- EditedDocDirList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocDir_Page(CaseID,DocDir:String):Integer;
-var
- FileList : TStringlist;
-begin
- Result := 0;
- FileList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- Result := FileList.Count;
- end;
- finally
- FileList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.Path2DocDir(Path,CaseID:String):String;
-var
- i : Integer;
- DocnoList : TStringlist;
-begin
- Result := '';
- DocNoList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- if Path[length(Path)]<>'\' then
- path := path+'\';
- for i := 0 to DocNoList.Count - 1 do
- begin
- if (path=ImageSavePath+CaseID+'\'+DocNoList.Strings[i]+'\') then
- begin
- Result := DocNoList.Strings[i];
- Break;
- end;
- end;
- finally
- DocNoList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNo_IS_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
-var
- i :Integer;
-begin
- Result := False;
- for i := 0 to IN_WH_DocNoList.Count - 1 do
- begin
- if DocNo = IN_WH_DocNoList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoIs_In_WH(DocNo:String):Boolean; //DocNo是否為入庫文件
-var
- i : Integer;
-begin
- Result := False;
- if (Copy(DocNo,1,5)='ZZZZZ') then //20140728 yuu 說自訂文件也是入庫文件
- begin
- Result := True;
- Exit;
- end;
- for i := 0 to IN_WH_DocNoList.Count -1 do
- begin
- if DocNo = IN_WH_DocNoList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateCaseNeedData(Path:String);
-var
- FileList,DocNoList,CaseDocNoList,CaseDocNo_CopiesList : TStringlist;
- i,n : Integer;
- Docno : String;
- Exists : Boolean;
-begin
- FileList := TStringlist.Create;
- DocNoList := TStringlist.Create;
- CaseDocNoList := TStringlist.Create;
- CaseDocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- begin
- FileList.LoadFromFile(Path+'Context.dat');
- for i := 0 to FileList.Count - 1 do
- begin
- Docno := FormCode2DocNo(FileName2FormCode(FileList.Strings[i]));
-//ShowMessage('Docno='+Docno);
- DocNoList.Add(DocNo);
- Exists := False;
- for n := 0 to CaseDocNoList.Count - 1 do
- begin
- if Docno = CaseDocNoList.Strings[n] then
- Exists := True;
- end;
- if not Exists then
- begin
- CaseDocNoList.Add(DocNo);
- CaseDocNo_CopiesList.Add('1');
- end;
- end;
-//ShowMessage('CreateCaseNeedData DocNoList='+DocNoList.Text);
- DocNoList.SaveToFile(Path+'DocDir.dat');
- CaseDocNoList.SaveToFile(Path+'CaseDocNo.dat');
- CaseDocNo_CopiesList.SaveToFile(Path+'CaseDocNo_Copies.dat')
- end;
-
- finally
- FileList.Free;
- DocNoList.Free;
- CaseDocNoList.Free;
- CaseDocNo_CopiesList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetDocDirtoSelected(CaseNode:TTreeNode;DocDir:String);
-var
- i : Integer;
-begin
- for i := 0 to CaseNode.Count - 1 do
- begin
- if Pos(DocDir+'{',CaseNode.Item[i].Text) > 0 then
- begin
- TreeView1.Selected := CaseNode.Item[i];
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckSelectImg_UseCase(Path,CaseID:String):Boolean; //檢查選擇的影像是否有包含被引用的影像
-var
- i : Integer;
- iISBName : String;
- iISB : TImageScrollBox;
- ImgPath,DocDir : String;
-begin
- Result := False;
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- //Showmessage(Components[i].Name);
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- ImgPath := ExtractFilePath(iISB.FileName);
- DocDir := Path2DocDir(ImgPath,CaseID);
- if GetUseCase('T',Path,DocDir) <> '' then
- Result := True;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.TransOldCaseFile(Path:String):Boolean;
-var
- i : Integer;
- OldCaseID,Year,Data,Verify:String;
- SendData : String;
- OldCaseInfoList,Caseinfolist : TStringlist;
- OldCasePath : String;
-begin
- Result := True;
- OldCaseInfoList := TStringlist.Create;
- Caseinfolist := TStringlist.Create;
- try
- OldCaseInfoList.StrictDelimiter := True;
- OldCaseInfoList.Delimiter := #9;
- OldCaseInfoList.DelimitedText := FOldCaseInfo;
- for i := 0 to OldCaseInfoList.Count - 1 do
- begin
- Caseinfolist := SplitString('@#,',OldCaseInfoList.Strings[i]);
- //Caseinfolist.Delimiter := '_';
- //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
- OldCaseID := Caseinfolist.Strings[0];
- Year := Caseinfolist.Strings[1];
- Data := Caseinfolist.Strings[4];
- Verify := Caseinfolist.Strings[5];
- OldCasePath := Path+OldCaseID+'\';
- if FileExists(OldCasePath+'UseCase.dat') and FileExists(OldCasePath+'UseCase.ini') then
- begin
- //////壓檔/////
- //ZipMainFile(Path,Path,'Img.zip');
-
- ////上傳/////
- SendData:='data='+HTTPEncode(UTF8Encode(Data))+'&verify='+Verify+'&other_case_no='+OldCaseID;
- //Showmessage(FUrl+'service/slic/SLIC02/useOther?'+senddata);
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/useOther',SendData,'file',OldCasePath+'UseCase.ini',FReWrite,Memo1,False) then
- begin
- Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Result := False;
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(Format(_Msg('傳送舊件編號(%s)檔案時,網路發生錯誤!!'),[OldCaseID])+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- Result := False;
- Exit;
- end;
- end;
-
- ////上傳////
- end;
- finally
- OldCaseInfoList.Free;
- Caseinfolist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.Writelog(CaseID : String):Boolean;
-var
- SendData : String;
-begin
- Result := True;
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID;
- If not ProcessServlet(HTTPSClient,FURL+'service/imgpsc/IMGPSC06/printlog',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetFtpinfo(CaseID,Action:String):Boolean;
-var
- SendData : String;
-
- Procedure DecodeFtpInfo(EncryStr:String);
- var
- FtpStr : String;
- ftpinfoList : TStringlist;
- begin
- if EncryStr = '' then Exit;
- ftpinfoList := TStringlist.Create;
- try
- FtpStr := En_DecryptionStr_Base64('D',EncryStr,MpsKey);
- SplitString('!@!',FtpStr,ftpinfoList);
- if ftpinfoList[0] = 'ftps' then
- FFtpProtocol := fpftps
- else if ftpinfoList[0] = 'ftp' then
- FFtpProtocol := fpftp;
- FFtpIP := ftpinfoList[1];
- FFtpPort := strtoint(ftpinfoList[2]);
- FFtpID := ftpinfoList[3];
- FFtpPwd := ftpinfoList[4];
-
- finally
- ftpinfoList.Free;
- end;
- end;
-begin
- Result := True;
- SendData:='product='+FWork_no+'&case_no='+CaseID+'&department='+FUserUnit+'&action='+Action;
- If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/ftps',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF (memo1.Lines.Strings[0] = '1') Then
- begin
- if memo1.Lines.Strings[1]='nodata' then //nodata 為正常可繼續的判斷
- begin
- TransMode := tsNone;
- Result := True;
- Exit;
- end
- else
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end
- else if (memo1.Lines.Strings[0] <> '0') then//不認識的字串
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[0];
- Result := False;
- Exit;
- end;
- TransMode := tsHttp;
- FFtpExtraPath := '';
-
- if memo1.Lines.Strings[0] = '0' then
- begin
- if memo1.Lines.Strings[2] = 'Y' then //要使用FTP
- TransMode := tsFtp;
- if memo1.Lines.Count > 3 then
- begin
- FFtpExtraPath := memo1.Lines.Strings[3];
- DecodeFtpInfo(memo1.Lines.Strings[4]);
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetFtpInfo; //餵入FTP資訊
-begin
- IIS_Ftp.Display1 := Display1;
- IIS_Ftp.FTPSClient1 := FTPSClient1;
- IIS_Ftp.ElMemoryCertStorage := ElMemoryCertStorage;
- IIS_Ftp.Display1 := Display1;
- IIS_Ftp.Ftpip := FFtpIP;
- IIS_Ftp.Ftpuserid := FFtpID;
- IIS_Ftp.FtpPwd := FFtpPwd;
- IIS_Ftp.FtpPath := FFtpRootPath;
- IIS_Ftp.FtpPort := FFtpPort;
- IIS_Ftp.FtpSSL := True;
- IIS_Ftp.FtpPassive := True;
- if FFtpProtocol = fpftp then
- IIS_Ftp.FtpSSL := False;
- IIS_Ftp.FtpEncryptDataChannel := true;
- FTPSClient1.OnControlReceiveAsString := IIS_Ftp.EventHandlers.ControlReceiveAsString;
- FTPSClient1.OnControlSendAsString := IIS_Ftp.EventHandlers.ControlSendAsString;
- FTPSClient1.OnSSLError := IIS_Ftp.EventHandlers.SSLError;
- FTPSClient1.OnCertificateValidate := IIS_Ftp.EventHandlers.CertificateValidate;
- FTPSClient1.OnTextDataLine := IIS_Ftp.EventHandlers.TextDataLine;
-
- {Showmessage(Format('Ftpip:%s'+#13
- +'Ftpid:%s'+#13
- +'Ftppwd:%s'+#13
- +'Ftppath:%s'+#13
- +'Ftpport:%s'+#13
- ,[FFtpIP,FFtpid,FFtpPwd,Ftppath,inttostr(Ftpport)]));}
-end;
-
-Function TCB_IMGPSScanX.FtpCaseComplete(SendData:String):Boolean;
-begin
- Result := True;
- If not ProcessServlet_FormData(HTTPSClient,FURL+'service/imgpsc/IMGPSC02/caseupload',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF (memo1.Lines.Strings[0] = '1') or (memo1.Lines.Strings[0] <> '0') Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoAppear(DocNo:String):Boolean; //DocNo是否可出現
-begin
- Result := True;
-
- {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach')) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') )) {and //非入庫掃描不看入庫文件
- (Copy(DocNo,1,5)<>'ZZZZZ')} {then
- {Result := False;}
- //20181031 應該要換成下面的判斷比較對,FIs_In_Wh傳空的話才會出全部
- if (((FIs_In_Wh = 'Y') and ((not DocNoIs_In_WH(DocNo)) or (DocNo ='S_Attach'))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and ((DocNoIs_In_WH(DocNo)) or (DocNo ='Attach') ))) {and //非入庫掃描不看入庫文件
- (Copy(DocNo,1,5)<>'ZZZZZ')} then
- Result := False;
-
-
-end;
-
-Function TCB_IMGPSScanX.GetDocNoCount(CaseID,DocNo:String):Integer; //取DocNo數量
-var
- i : Integer;
- Doc_Ct:Integer;
- iDocNo : String;
- DocNoList,DocNo_CopiesList : TStringlist;
-begin
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- begin
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- end;
- Doc_Ct := 0;
- for i := 0 to DocNoList.Count - 1 do
- begin
- iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
- if iDocNo = DocNo then
- Doc_Ct := Doc_Ct + strtoint(DocNo_CopiesList.Strings[i]);
- end;
- Result := Doc_Ct;
- // Showmessage(DocNo+#13+inttostr(Doc_Ct));
- finally
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocDirCopies(CaseID,DocDir:String):Integer; //取DocDir數量
-var
- i : Integer;
- DocNoList,DocNo_CopiesList : TStringlist;
-begin
- Result := 1; //預設回傳1 //20140521 由0改成1
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat') then
- begin
- DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- for i := 0 to DocNoList.Count - 1 do
- begin
- if (DocDir = DocNoList.Strings[i]) and (i <= DocNo_CopiesList.Count-1) then
- begin
- Result := strtoint(DocNo_CopiesList.Strings[i]);
- Break;
- end;
- end;
- end;
- finally
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetDocDirCopies(CaseID,DocDir:String;NewCopies:Integer); //修改DocDir份數
-var
- i : Integer;
- DocNoList,DocNo_CopiesList : TStringlist;
-begin
- DocNoList := TStringlist.Create;
- DocNo_CopiesList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- begin
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- DocNo_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- end;
- for i := 0 to DocNoList.Count - 1 do
- begin
- if DocDir = DocNoList.Strings[i] then
- begin
- DocNo_CopiesList.Strings[i] := inttostr(NewCopies);
- DocNo_CopiesList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- Break;
- end;
- end;
- finally
- DocNoList.Free;
- DocNo_CopiesList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocDirCopies_Rec(Path,CaseID,DocDir:String):Integer; //取記錄裡的DocDir份數
-var
- i,n,v,v1 : Integer;
- OldCaseInfoList,Caseinfolist : TStringlist;
- iCaseID,Year,iBS_No,iIS_Old,iDocNo,iCopies:String;
-begin
- Result := 1;
- OldCaseInfoList := TStringlist.Create;
- Caseinfolist := TStringlist.Create;
- try
- //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,Data@#,Verify@#,文件編號[份數]@#,文件編號[份數]
- OldCaseInfoList.StrictDelimiter := true;
- OldCaseInfoList.Delimiter := #9;
- OldCaseInfoList.DelimitedText := FOldCaseInfo;
-
- for i := 0 to OldCaseInfoList.Count - 1 do
- begin
- Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
- //Caseinfolist.Delimiter := '_';
- //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
- iCaseID := Caseinfolist.Strings[0];
- Year := Caseinfolist.Strings[1];
- iBS_No := Caseinfolist.Strings[2];
- iIS_Old := Caseinfolist.Strings[3];
- if CaseID = iCaseID then
- begin
- for n := 6 to Caseinfolist.Count - 1 do
- begin
- v := Pos('[',Caseinfolist.Strings[n]);
- v1 := Pos(']',Caseinfolist.Strings[n]);
- iDocNo := Copy(Caseinfolist.Strings[n],1,v-1);
- iCopies := Copy(Caseinfolist.Strings[n],v+1,v1-v-1);
- if Copy(DocDir,1,5) = 'ZZZZZ' then
- begin
- if iDocNo = GetCustomDocName(Path,DocDir) then
- Result := strtoint(iCopies);
- end
- else
- begin
- if iDocNo = DocNoDir2DocNo(DocDir) then
- Result := strtoint(iCopies);
- end;
- end;
-
- end;
- end;
- finally
- OldCaseInfoList.Free;
- Caseinfolist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCustomDocNoCount(Docno:String):Integer; //取外傳的DocNo數量
-var
- i,ct : Integer;
- C_DocNoList : TStringlist;
-begin
- C_DocNoList := TStringlist.Create;
- try
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- ct := 0;
- for i := 0 to C_DocNoList.Count - 1 do
- begin
- if C_DocNoList.Strings[i] = Docno then
- begin
- inc(ct);
- end;
- end;
- Result := ct;
- finally
- C_DocNoList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseDelete_Enable(CaseID:String):Boolean; //案件可否被刪除
-var
- i : Integer;
- CaseDocNoList : TStringlist;
-begin
- Result := True;
- CaseDocNoList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- if GetUseCase('T',DisplayPath,CaseDocNoList.Strings[i]) <> '' then //有被引用走的
- Result := False;
- end;
-
- finally
- CaseDocNoList.Free;
- end;
-end;
-
-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;
-
-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;
-
-Procedure TCB_IMGPSScanX.Case2upload(CaseID:String);
-var
- i,n:Integer;
- OldPath,NewPath,DocDir : String;
- OldFile,NewFile,AttFile : String;
- DocNoList,FileList:TStringlist;
- iFileList,iFile_DocNoList :TStringlist;
- iDocDirList : TStringlist;
- iAttFileList : TStringlist;
-begin
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- iFileList := TStringlist.Create;
- iFile_DocNoList := TStringlist.Create;
- iDocDirList := TStringlist.Create;
- iAttFileList := TStringlist.Create;
- try
- OldPath := ImageSavePath+CaseID+'\';
- NewPath := ImageSavePath+CaseID+'\Upload\';
- if DirectoryExists(NewPath) then
- _DelTree(NewPath);
- str2dir(NewPath);
- CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
- CopyFile(PWideChar(OldPath+'CaseDocNo_Copies.dat'),PWideChar(NewPath+'CaseDocNo_Copies.dat'),False);
- CopyFile(PWideChar(OldPath+'CustomDocNo.ini'),PWideChar(NewPath+'CustomDocNo.ini'),False);
- CopyFile(PWideChar(OldPath+'CaseIndex.dat'),PWideChar(NewPath+'CaseIndex.dat'),False);
- CopyFile(PWideChar(OldPath+'In_Wh.dat'),PWideChar(NewPath+'In_Wh.dat'),False);
- CopyFile(PWideChar(OldPath+'UseCase.ini'),PWideChar(NewPath+'UseCase.ini'),False);
-
- if FileExists(OldPath+'CaseDocNo.dat') then
- begin
- DocNoList.LoadFromFile(OldPath+'CaseDocNo.dat');
- end
- else
- begin
- DocNoList.SaveToFile(OldPath+'CaseDocNo.dat');
- CopyFile(PWideChar(OldPath+'CaseDocNo.dat'),PWideChar(NewPath+'CaseDocNo.dat'),False);
- end;
-
- for i := 0 to DocNoList.Count-1 do
- begin
- DocDir := DocNoList.Strings[i];
- OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
-
- FileList.Clear;
- if FileExists(OldPath+'Context.dat') then
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- OldFile := FileList.Strings[n];
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
- iFileList.Add(NewFile);
- iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
- iDocDirList.Add(DocDir);
- end;
- end;
- end;
- if DirectoryExists(ImageSavePath+CaseID+'\Attach') then
- begin
- DocDir := 'Attach';
- OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
-
- FileList.Clear;
- if FileExists(OldPath+'Context.dat') then
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- OldFile := FileList.Strings[n];
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
- iFileList.Add(NewFile);
- iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
- iDocDirList.Add(DocDir);
- end;
- end;
- end;
-
- if DirectoryExists(ImageSavePath+CaseID+'\S_Attach') then
- begin
- DocDir := 'S_Attach';
- OldPath := ImageSavePath+CaseID+'\'+ DocDir+'\';
-
- FileList.Clear;
- if FileExists(OldPath+'Context.dat') then
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- OldFile := FileList.Strings[n];
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(OldPath+OldFile),PWideChar(NewPath+NewFile),False);
- iFileList.Add(NewFile);
- iFile_DocNoList.Add(DocNoDir2DocNo(DocDir));
- iDocDirList.Add(DocDir);
- end;
- end;
- end;
- OldPath := ImageSavePath+CaseID+'\';
- if FileExists(OldPath+'AttContext.dat') then
- begin
- iAttFileList.LoadFromFile(OldPath+'AttContext.dat');
- for n := 0 to iAttFileList.Count - 1 do
- begin
- AttFile := iAttFileList.Strings[n];
- CopyFile(PWideChar(OldPath+AttFile),PWideChar(NewPath+AttFile),False);
- end;
- iAttFileList.SaveToFile(NewPath+'AttContext.dat');
- end;
-
-
- iFileList.SaveToFile(NewPath+'Context.dat');
- iFile_DocNoList.SaveToFile(NewPath+'Context_DocNo.dat');
- iDocDirList.SaveToFile(NewPath+'DocDir.dat');
-
- finally
- iFileList.Free;
- iAttFileList.Free;
- iFile_DocNoList.Free;
- DocNoList.Free;
- FileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.Download2Case(SoDir,DeDir:String);
-var
- i,n : Integer;
- DocDir:String;
- OldFile,NewFile,AttFile:String;
- DocNoList,FileList : TStringlist;
- iFileList,iFile_DocDirList :TStringlist;
- iAttFileList :TStringlist;
- AA,AA2,AA3,AA4:Boolean;
-begin
-
- if (not FileExists(SoDir+'CaseDocNo.dat')) or (not FileExists(SoDir+'DocDir.dat')) then //截畫面會沒這些檔
- begin
-//ShowMessage('產生必要的文字檔');
- CreateCaseNeedData(SoDir); //產生必要的文字檔
- end;
-
- AA:=CopyFile(PWideChar(SoDir+'CaseDocNo.dat'),PWideChar(DeDir+'CaseDocNo.dat'),False);
- AA2:=CopyFile(PWideChar(SoDir+'CaseDocNo_Copies.dat'),PWideChar(DeDir+'CaseDocNo_Copies.dat'),False);
- AA3:=CopyFile(PWideChar(SoDir+'CustomDocNo.ini'),PWideChar(DeDir+'CustomDocNo.ini'),False);
- AA4:=CopyFile(PWideChar(SoDir+'UseCase.ini'),PWideChar(DeDir+'UseCase.ini'),False);
-//ShowMessage(BoolToStr(AA)+#10#13+BoolToStr(AA2)+#10#13+BoolToStr(AA3)+#10#13+BoolToStr(AA4));
- if FileExists(SoDir+'DocDir.dat') then //20170222 新加
- begin
- CopyFile(PWideChar(SoDir+'DocDir.dat'),PWideChar(DeDir+'DocDir.dat'),False);
- end;
-
-
- DocNoList := TStringlist.Create;
- FileList := TStringlist.Create;
- iFileList := TStringlist.Create;
- iFile_DocDirList := TStringlist.Create;
- iAttFileList := TStringlist.Create;
- try
- //if Not FileExists(SoDir+'Context.dat') then Exit;
- //iFileList.LoadFromFile(SoDir+'Context.dat');
- //if iFileList.Count = 0 then Exit;
- if FileExists(SoDir+'Context.dat') then
- iFileList.LoadFromFile(SoDir+'Context.dat');
- if FileExists(SoDir+'DocDir.dat') then
- iFile_DocDirList.LoadFromFile(SoDir+'DocDir.dat');
- if iFileList.Count <> iFile_DocDirList.Count then
- begin
- for i := 0 to iFileList.Count - 1 do
- begin
- if i > iFile_DocDirList.Count -1 then
- begin
- iFile_DocDirList.Add(FormCode2DocNo(FileName2FormCode(iFileList.Strings[i])));
- end;
- end;
- end;
- if FileExists(SoDir+'CaseDocNo.dat') then
- DocNoList.LoadFromFile(SoDir+'CaseDocNo.dat');
- if FileExists(DeDir+'CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
- {for i := 0 to DocNoList.Count - 1 do
- begin
- DocDir := DocNoList.Strings[i];
- MkDir(DeDir+DocDir);
- end;}
-//ShowMessage('DocNoList='+DocNoList.Text);
-
- for i := DocNoList.Count - 1 downto 0 do
- begin
- DocDir := DocNoList.Strings[i];
- if not DirectoryExists(DeDir+DocDir) then
- begin
- MkDir(DeDir+DocDir);
- if not FileExists(DeDir+DocDir+'\Context.dat') then
- StringtoFile('',DeDir+DocDir+'\Context.dat');
- end
- else
- begin
-//ShowMessage('GGG');
- DocNoList.Delete(i);
- DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
- if i <= CaseDocNo_CopiesList.Count-1 then
- begin
-//ShowMessage('KKKK');
- CaseDocNo_CopiesList.Delete(i);
- CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- end;
- end;
- end;
- //20170221 先註解起來 因為他在補充掃瞄時好像會有顯示的問題
-
- for i := 0 to iFileList.Count - 1 do
- begin
- OldFile := iFileList.Strings[i];
- DocDir := iFile_DocDirList.Strings[i];
- if (DocDir = 'Attach') or (DocDir = 'S_Attach') then
- begin
- if not DirectoryExists(DeDir+DocDir) then
- MkDir(DeDir+DocDir);
- end;
-
- FileList.Clear;
- if FileExists(DeDir+DocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(DeDir+DocDir+'\Context.dat');
- end;
- NewFile := Add_Zoo(FileList.Count+1,3)+FileName2NoQuene_Filename(OldFile);
- CopyFile(PWideChar(SoDir+OldFile),PWideChar(DeDir+DocDir+'\'+NewFile),False);
- FileList.Add(NewFile);
- FileList.SaveToFile(DeDir+DocDir+'\Context.dat');
- end;
-
- for i := DocNoList.Count -1 downto 0 do
- begin
- if (DocNoList.Strings[i] = 'Attach') or (DocNoList.Strings[i] = 'S_Attach') then
- begin
- DocNoList.Delete(i);
- DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
- end;
- end;
-
- {if (DocNoList.Count > 0) and ((DocNoList.Strings[DocNoList.Count-1] = 'Attach') or (DocNoList.Strings[DocNoList.Count-1] = 'S_Attach')) then
- begin
- DocNoList.Delete(DocNoList.Count-1);
- DocNoList.SaveToFile(DeDir+'CaseDocNo.dat');
- end; }
- CaseDocNo_CopiesList.Clear;
-
- if FileExists(DeDir+'CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(DeDir+'CaseDocNo_Copies.dat');
- if DocNoList.Count > CaseDocNo_CopiesList.Count then
- begin
- for i := 0 to DocNoList.Count - 1 do
- begin
- if i > CaseDocNo_CopiesList.Count-1 then
- begin
- CaseDocNo_CopiesList.Add('1');
- //CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- end;
- end;
- end;
- CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- {if (not FileExists(DeDir+'CaseDocNo_Copies.dat') then
- begin
- CaseDocNo_CopiesList.Free;
- for i := 0 to DocNoList.Count - 1 do
- begin
- CaseDocNo_CopiesList.Add('1');
- CaseDocNo_CopiesList.SaveToFile(DeDir+'CaseDocNo_Copies.dat');
- end;
- end;}
- if FileExists(SoDir+'AttContext.dat') then
- begin
- iAttFileList.LoadFromFile(SoDir+'AttContext.dat');
- for i := 0 to iAttFileList.Count - 1 do
- begin
- AttFile := iAttFileList.Strings[i];
- CopyFile(PWideChar(SoDir+AttFile),PWideChar(DeDir+AttFile),False);
- end;
- iAttFileList.SaveToFile(DeDir+'AttContext.dat');
- end;
-
-
- if FMode='ESCAN' then
- begin
- InitExistImgList(DeDir);
- end;
-
-
- finally
- iFileList.Free;
- FileList.Free;
- DocNoList.Free;
- iFile_DocDirList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2NoQuene_Filename(FileName:String):String; //取出沒有序號的檔名
-var
- v,v1 : Integer;
- FName : String;
-begin
- FName := ExtractFileName(FileName);
- v := Pos('_',FName);
- if v = 0 then //附件
- v := pos('.',FName);
- v1 := length(FName);
- Result := Copy(FName,v,v1-v+1);
-end;
-
-Function TCB_IMGPSScanX.FileName2Index(FileName:String):Integer; //從檔名取出在ContextList的序號
-var
- i : Integer;
-begin
- for i := 0 to ContextList.Count - 1 do
- begin
- if FileName = ContextList.Strings[i] then
- begin
- Result := i;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2NowDcoNo(FileName:String;CtList,DNList:TStrings):String; //從檔名取出歸屬的文件代號
-var
- i : Integer;
-begin
- for I := 0 to CTList.Count -1 do
- begin
- if FileName = CTList.Strings[i] then
- begin
- Result := DNList.Strings[i];
- break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNo2DocName(CaseID,DocNo:String):String; //Docno轉Doc名稱
-var
- i,v,ln : Integer;
- CusDocNo,CusDocName : String;
-begin
- Result := '';
- if DocNo = AttName then
- begin
- Result := _Msg('未歸類');
- end
- Else
- begin
- If FindSQLData(Doc_Inf_List,'DOC_U_DESC','DOC_NO',DocNo,0,FindResult) Then
- begin
-//ShowMessage(FindResult.Text);
- Result := GetFindResult('DOC_U_DESC');
- end;
- end;
-
- if Result = '' then //去自訂文件裡找
- begin
- Result := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- {for i := 0 to Cust_DocNoList.Count - 1 do
- begin
- v := Pos('_',Cust_DocNoList.Strings[i]);
- ln := length(Cust_DocNoList.Strings[i]);
- CusDocNo := Copy(Cust_DocNoList.Strings[i],1,v-1);
- CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
- if DocNo = CusDocNo then
- begin
- Result := CusDocName;
- Break;
- end;
- end;}
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DocNo2FileName(DocNo:String;List:TStrings):String; //用DocNo找出檔名(第一頁)
-var
- i : Integer;
-begin
- Result := '';
- for i := 0 to List.Count - 1 do
- begin
- IF DocNo = FormCode2DocNo(FileName2FormCode(List.Strings[i])) then
- begin
- Result := List.Strings[i];
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNo2WorkNo(DocNo:String):String; //用DocNo取出作業別
-begin
- Result := '';
- If FindSQLData(Doc_Inf_List,'WORK_NO','DOC_NO',DocNo,0,FindResult) Then
- begin
- Result := GetFindResult('WORK_NO');
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoNeedDiv(DocNo:String):Boolean; //是否是需分份數的文件代號
-var
- NeedDiv : String;
-begin
- Result := False;
- If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
- begin
- NeedDiv := GetFindResult('IS_DOC_DIV');
- if NeedDiv = 'Y' then
- Result := True;
- end;
-end;
-
-Function TCB_IMGPSScanX.DocnoNeedGroup(DocNo:String):Boolean; //傳入的DocNo是否需分組
-begin
- Result := False;
- If FindSQLData(Doc_Inf_List,'IS_DOC_DIV','DOC_NO',DocNo,0,FindResult) Then
- begin
- if GetFindResult('IS_DOC_DIV') = 'Y' Then
- Result := True;
- end;
-end;
-
-Function TCB_IMGPSScanX.OMRCheckCase(CaseID:String):Boolean; //OMR檢核
-var
- i,n,m,v,v1 : Integer;
- XT,RelaXT,ValueXT : TXmltool;
- OMRFormCode,OMRFile,OMRFormName,ColEName,ColCName,Site : String;
- Pixel : Integer;
- RelaFormCode,RelaFile,RelaFormName,RelaColEName,RelaColCName,RelaSite : String;
- RelaDocNo,RelaDocName : string;
- RelaPixel : Integer;
- s : String;
- nodename : String;
- OMROK : Boolean;
- CaseOk : Boolean;
- ErrStr : String;
- SiteRec,RelaSiteRec : String; //多組位置記錄
- OMRValue : String;
- MainFormID,MainDocNo,MainVersion : String; //主FormID
- MainFormPage,CaseFormPage : Integer; //主要文件需要的頁數
- NeedDocNoStr,NoDocNoStr : String; //相依 互斥文件字串
- List : TStringlist;
- FormCode : String;
- FormDataPages : Integer;
- NoSite : Boolean; //未定位
- Anchor,Anchor1 : String;
- OMROkCount : Integer;
- //Casecheck : Boolean; //是否要做檢核
- //AllCheck : Boolean; //是否要做完整檢核
-
- ISB8W,ISB8H:integer;
-begin
- ///OMRErrInfo 1: 必要文件 2:相依文件 3:互斥文件 4:必填 5:欄位有值附文件 6:欄位有值不附文件
- /// 7: 欄位有值相關欄位也要有值 8:欄位有值要寫備註 9:停用日期 10:最大頁數
- //Casecheck := True;
- //Allcheck := True;
- //if (FMode = 'ISCAN') then
- //Allcheck := False;
- CaseOk := True;
- //if Casecheck then
- //begin
- DeleteFile(ImageSavePath+CaseID+'\upload\Checkerr.ini');
- DeleteFile(ImageSavePath+CaseID+'\upload\CheckMemo.dat');
- //DeleteFile(ImageSavePath+CaseID+'\upload\ReSize.dat');
- DeleteFile(ImageSavePath+CaseID+'\upload\RemoveMemo.dat');
- DeleteFile(ImageSavePath+CaseID+'\upload\OMRCheckOk.dat');
- Memo1.Lines.Clear;
- OMRFileList.Clear;
-
- MainFormID := GetCaseFormID(ImageSavePath+CaseID+'\upload\');
- List := TStringlist.Create;
- try
- //if AllCheck then
- //begin
- if GetCasePage(ImageSavePath,CaseID) =0 then
- begin
-
- end;
-//ShowMessage('MainFormID='+MainFormID);
-LogFile1.LogToFile(logTimeString+' '+FModeName+' '+CaseID+' '+'MainFormID='+MainFormID);
- if MainFormID = ''then
- begin
- //20131203 yuu說不檢查這個,先拿掉 20170315 楷琳說未歸類要擋 20170726 因此有檢查必要FormID 所以 可以拿掉
- {if FCheck_main_form='Y' then
- begin
- if (FMode <> 'SSCAN') AND (FMode<>'ESCAN') then //簽署章件會換主FormID,先跳過 20170629 ESCAN 也不檢查
- begin
- ErrStr:=_Msg('找不到分案文件'); //找不到主文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
- CaseOk := false;
-//ShowMessage('AAAAA');
- end;
- end;
- }
- end
- Else
- begin
- //////主要非主要文件//////
- DistinctDocinCase(ImageSavePath+CaseID+'\upload\');
-//ShowMessage(DocNo_VerinCase.Text);
-//DocNo_VerinCase.Add('31A00101_1706A');
-LogFile1.LogToFile(logTimeString+' '+CaseID+' '+'DocNo_VerinCase.Text='+DocNo_VerinCase.Text);
- if ModeNeedCheck(OMRErrInfo[1].Mode,FMode) then //是否要檢核
- begin
- for i := 0 to DocNo_VerinCase.Count - 1 do
- begin
- v := Pos('_', DocNo_VerinCase.Strings[i]);
- v1 := length(DocNo_VerinCase.Strings[i]);
- MainDocNo := Copy(DocNo_VerinCase.Strings[i],1,v-1); //FormCode2DocNo(MainFormID);
- MainVersion :=Copy(DocNo_VerinCase.Strings[i],v+1,v1-v); //FormCode2Version(MainFormID);
- MainFormPage := GetDataDocNoPage(MainDocNo,MainVersion); //資料庫記錄主文件頁數
- CaseFormPage := CheckCaseDocNoPage(CaseID,MainDocNo,MainVersion,MainFormPage); //案件主文件的頁數
-LogFile1.LogToFile(logTimeString+CaseID+',MainDocNo='+MainDocNo+',MainVersion='+MainVersion+',MainFormPage='+IntToStr(MainFormPage)+',CaseFormPage='+IntToStr(CaseFormPage));
- //CheckFirstDocNoPage
- IF (MainFormPage > 0) and (MainFormPage <> CaseFormPage) then
- begin
- ErrStr:=MainDocNo+Format(OMRErrInfo[1].Info,[Inttostr(MainFormPage),Inttostr(CaseFormPage)]); //主要文件需有XX頁僅附XX頁
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[1].Ignore,OMRErrInfo[1].Display);
- if OMRErrInfo[1].Display then
- CaseOk := false;
- end;
- end;
- end;
- //////主要非主要文件/////
-//showmessage(MainFormID);
- MainDocNo := FormCode2DocNo(MainFormID);
- MainVersion := FormCode2Version(MainFormID);
- if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
- begin
- NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
- NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
- end
- Else if FindSQLData(DM_FORM_INF_List,'DEPE_FORM_ID,MUTEX_FORM_ID','MAIN_FORM_ID,DOC_VERSION',MainDocNo+','+MainVersion,0,FindResult) then
- begin
- NeedDocNoStr := GetFindResult('DEPE_FORM_ID');
- NoDocNoStr := GetFindResult('MUTEX_FORM_ID');
- end;
-
- //////相依文件/////
- if ModeNeedCheck(OMRErrInfo[2].Mode,FMode) then //是否要檢核
- begin
- List.CommaText := NeedDocNoStr;
- for I := 0 to List.Count - 1 do
- begin
- if not Case_DocNoExists(CaseID,List.Strings[i]) then //沒附相依文件
- begin
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
- begin
- Continue;
- end;
- end;
- ErrStr:=Format(OMRErrInfo[2].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //沒附相依文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[2].Ignore,OMRErrInfo[2].Display);
- if OMRErrInfo[2].Display then
- CaseOk := false;
- end;
- end;
- end;
- //////相依文件/////
-
- //////互斥文件/////
- if ModeNeedCheck(OMRErrInfo[3].Mode,FMode) then //是否要檢核
- begin
- List.CommaText := NoDocNoStr;
- for I := 0 to List.Count - 1 do
- begin
- if Case_DocNoExists(CaseID,List.Strings[i]) then //附了互斥文件
- begin
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+List.Strings[i]) then
- begin
- Continue;
- end;
- end;
- ErrStr:=Format(OMRErrInfo[3].Info,[DocNo2DocName(CaseID,List.Strings[i])]); //有附互斥文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[3].Ignore,OMRErrInfo[3].Display);
- if OMRErrInfo[3].Display then
- CaseOk := false;
- end;
- end;
- end;
- //////互斥文件/////
- end; //MainFormID結束
- //end;
- List.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
- for i := 0 to List.Count - 1 do
- begin
- FormCode := FileName2FormCode(List.Strings[i]);
- /////未歸類///
- {IF FormCode = 'Attach' Then //20140211 yuu說不檢查了
- begin
- ErrStr:=_Msg('尚有文件未歸類');
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,False,True);
- CaseOk := false;
- end; }
- /////未歸類//////
-
- /////未註冊文件/////
- {IF not FormIDExists(FormCode,False) then //未註冊文件
- begin
- ErrStr:=FormCode+_Msg('不為此業務的表單代碼');
- OMRErr2ini(CaseID,ErrStr,'','','','',False,False,True);
- CaseOk := false;
- end }
- /////未註冊文件/////
- //////停用文件//
- {Else} IF ModeNeedCheck(OMRErrInfo[9].Mode,FMode) and (not FormIDExists(FormCode,True,0)) and (not checkFormCodeIsCustom(ImageSavePath + CaseID+'\upload\',FormCode)) then //有停用的文件
- begin
-//ShowMessage('AAAA');
- ErrStr:=Format(OMRErrInfo[9].Info,[FormCode2FormName(CaseID,FormCode)]); //有停用文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[9].Ignore,OMRErrInfo[9].Display);
-//ShowMessage('ErrStr='+ErrStr);
- if OMRErrInfo[9].Display then
- CaseOk := false;
- end;
- //////停用文件////
- end;
- finally
- List.Free;
- end;
- //if AllCheck then
- //begin
- //////最大頁數///
-LogFile1.LogToFile(logTimeString+'最大頁數A段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
- DistinctFormCode(CaseID);
- if ModeNeedCheck(OMRErrInfo[10].Mode,FMode) then //是否要檢核
- begin
-//ShowMessage('AAA'+OMRFileList.Text);
-LogFile1.LogToFile(logTimeString+'最大頁數B段 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
- For i := 0 to OMRFileList.Count - 1 do
- begin
- if FModeName=_Msg('異動件') then Continue;
-
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+OMRFileList.Strings[i]) then
- begin
- Continue;
- end;
- end;
- FormCode := FileName2FormCode(OMRFileList.Strings[i]);
- FormDataPages := GetDataFormCodePages(FormCode);
-
- IF (FormCode <> '') and (FormDataPages > 0) and (FindFormCodePages(CaseID,FormCode) > FormDataPages) then //有超過最大頁數的文件
- begin
- ErrStr:=Format(OMRErrInfo[10].Info,[FormCode2FormName(CaseID,FormCode),inttostr(FormDataPages)]); //有超過最大頁數文件
- OMRErr2ini(CaseID,ErrStr,'','','','','','',False,OMRErrInfo[10].Ignore,OMRErrInfo[10].Display);
- if OMRErrInfo[10].Display then
- CaseOk := false;
- end;
- end;
- end;
- /////最大頁數/////
- //end;
- ImageScrollBox1.FileName := '';
- //if FWork_No = 'CW' then //理賠就不做下面的檢核了
- //begin
- //////OMR檢核///////
- ContextList.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
- DistinctFormCode(CaseID);
- ValueXT := TXmltool.Create;
- Try
-//ShowMessage('必填'+OMRFileList.Text);
-LogFile1.LogToFile(logTimeString+'必填 '+CaseID+' '+'OMRFileList.Text='+OMRFileList.Text);
- For i := 0 to OMRFileList.Count - 1 do
- begin
-//ShowMessage('OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
- if CheckRequiredColumnValues(FWork_NO,CaseID) then Continue;
-
- OMRFile := OMRFileList.Strings[i];
- OMRFormCode := FileName2FormCode(OMRFileList.Strings[i]);
- OMRFormName := FormCode2FormName(CaseID,OMRFormCode);
- Anchor := FormID2Anchor(OMRFormCode);
- ///依十字定位點縮放////
- ImageReSize_FormID(CaseID,OMRFile);
- ////依十字定位點縮放///
-//Display1.Lines.Add('OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
-LogFile1.LogToFile(logTimeString+'OMRFile='+OMRFile+',OMRFormCode='+OMRFormCode+',OMRFormName='+OMRFormName);
-//ShowMessage('KKKKK');
- if not FileExists(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml') then //沒有Xml就不用檢核
- Continue;
-
-//ShowMessage('11638 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
- XT := TXmltool.Create(CheckXmlPath+FWork_no+'\'+OMRFormCode+'.xml');
- RelaXT := TXmltool.Create;
-//ShowMessage('ModeNeedCheck='+BoolToStr(ModeNeedCheck(OMRErrInfo[4].Mode,FMode),true));
- try
- //*******必填********
- if ModeNeedCheck(OMRErrInfo[4].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype1/'].First then
- Repeat
- OMROK := False;
- SiteRec := ''; //清掉
- ColEName := XT.SubNodes['/form/settype1/'].NodeName;
- ColCName := XT.Node['/form/settype1/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- if XT.SubNodes['/form/settype1/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype1/'+ColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- Pixel := Strtoint(XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
- Site := XT.Node['/form/settype1/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- //有填就ok
- //Showmessage(ColCName +','+ inttostr(OMRMpsV1.GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site))+','+inttostr(Pixel + SafePixel));
-//SafePixel:=90000;
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-//FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,ANCHOR);
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- //Showmessage('oh');
- OMROK := True;
- Break;
- end;
- end
- Else
- begin
- //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
- end;
- Until not XT.SubNodes['/form/settype1/'+ColEName+'/'].Next;
- if not OMROk then
- begin
- ErrStr:=Format(OMRErrInfo[4].Info,[ColCName]); //XX欄位未填寫
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[4].Ignore,OMRErrInfo[4].Display);
- if OMRErrInfo[4].Display then
- CaseOk := false;
- end;
- Until not XT.SubNodes['/form/settype1/'].Next ;
- end;
- //*******必填********
-//ShowMessage('11692 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
- //if AllCheck then
- //begin
- //*******有值相關文件的欄位也要有值*******
- if ModeNeedCheck(OMRErrInfo[7].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype3/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- ColEName := XT.SubNodes['/form/settype3/'].NodeName;
- ColCName := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype3/'+ColEName+'/'].Attributes['pixel'];
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
-
- if XT.SubNodes['/form/settype3/'+ColEName+'/'].First then
- Repeat
- RelaSiteRec := '';
- nodename := XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeName;
- If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype3/'+ColEName+'/'].NodeIsAttr) then
- begin
- RelaFormCode := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaColEName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
- RelaColCName := XT.node['/form/settype3/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
- RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
- RelaFile := FormCode2FileName(RelaFormCode,ContextList);
- RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
- Anchor1 := FormID2Anchor(RelaFormCode);
- RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
-Display1.Lines.Add(RelaFile+','+RelaFormName);
-//ShowMessage(RelaFile);
-//ShowMessage(ImageSavePath+CaseID+'\upload\'+RelaFile);
- if RelaFile<>'' then
- begin
- ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
- ISB8W:= ISB8.Graphic.Width;
- ISB8H:= ISB8.Graphic.Height;
- FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
- end;
-
- OMROK := False;
- //OMROK := False;
- //if RelaXT.SubNodes['/form/settype2/'].First then
- //Repeat
- NoSite := True;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
- NoSite := False;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
- Repeat
- nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
- RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
- if RelaSiteRec= '' then //記錄位置
- RelaSiteRec := RelaSite
- else
- RelaSiteRec := RelaSiteRec+'@'+RelaSite;
- if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- begin
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
- begin
- OMROK := True;
- Break;
- end;
- ///依十字定位點縮放////
- ImageReSize_FormID(CaseID,OMRFile); //20170815 重新抓定位
- ////依十字定位點縮放////
- end;
- end;
-
- Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
- if not OMROk then
- begin
- if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位未填寫
- Else if NoSite then
- ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
- Else
- ErrStr:=Format(OMRErrInfo[7].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位未填寫
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
- if OMRErrInfo[7].Display then
- CaseOk := false;
- end;
- //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
-
- end;
- Until not XT.SubNodes['/form/settype3/'+ColEName+'/'].Next;
- end;
- Until not XT.SubNodes['/form/settype3/'].Next ;
- end;
- //*******有值相關文件的欄位也要有值*******
-//ShowMessage('11788 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
-
- //*******有值相關文件的欄位不能有值*******
- if ModeNeedCheck(OMRErrInfo[11].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype8/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- OMROkCount := 0;
- ColEName := XT.SubNodes['/form/settype8/'].NodeName;
- ColCName := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype8/'+ColEName+'/'].Attributes['pixel'];
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫// //
- inc(OMROkCount);
- end;
- if XT.SubNodes['/form/settype8/'+ColEName+'/'].First then
- Repeat
- RelaSiteRec := '';
- nodename := XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeName;
- If (nodename <> '@coldesc') and (not XT.SubNodes['/form/settype8/'+ColEName+'/'].NodeIsAttr) then
- begin
- RelaFormCode := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaColEName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['rela_col_name'];
- RelaColCName := XT.node['/form/settype8/'+ColEName+'/'+nodename+'/'].Attributes['relacoldesc'];
- RelaColCName := Copy(RelaColCName,1,length(RelaColCName)-6);
- RelaFile := FormCode2FileName(RelaFormCode,ContextList);
- RelaFormName := FormCode2FormName(CaseID,RelaFormCode);
- Anchor1 := FormID2Anchor(RelaFormCode);
- RelaXT.LoadFromFile(CheckXmlPath+FWork_no+'\'+RelaFormCode+'.xml');
-
- if RelaFile<>'' then
- begin
- ISB8.LoadFromFile(ImageSavePath+CaseID+'\upload\'+RelaFile,1); //20170815
- ISB8W:= ISB8.Graphic.Width;
- ISB8H:= ISB8.Graphic.Height;
- FindPoint(ISB8.Graphic,UpLPoint,UpRPoint,DownLPoint,ISB8W,ISB8H,ANCHOR); //20170815 抓相關然欄位所在圖檔的定位
- end;
-
- OMROK := False;
- //OMROK := False;
- //if RelaXT.SubNodes['/form/settype2/'].First then
- //Repeat
- NoSite := True;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Count >0 then
- NoSite := False;
- if RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].First then
- Repeat
- nodename := RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- RelaPixel := Strtoint(RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['pixel']);
- RelaSite := RelaXT.Node['/form/settype2/'+RelaColEName+'/'+nodename+'/'].Attributes['colxy'];
- if RelaSiteRec= '' then //記錄位置
- RelaSiteRec := RelaSite
- else
- RelaSiteRec := RelaSiteRec+'@'+RelaSite;
- if FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- begin
-Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSite,Bt) > (RelaPixel + SafePixel) then
- begin
- inc(OMROkCount);
- //OMROK := True;
- //Break;
- end;
- ///依十字定位點縮放////
- ImageReSize_FormID(CaseID,OMRFile);
- ////依十字定位點縮放////
- end;
- end;
- //Else
- //begin
- //ColCName := XT['/form/settype1/'+ColEName+'/'+nodename+'/'];
- //end;
- Until not RelaXT.SubNodes['/form/settype2/'+RelaColEName+'/'].Next;
- if OMROkCount > 1 then
- begin
- if not FileExists(ImageSavePath+CaseID+'\upload\'+RelaFile) then
- ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未附')+RelaFormName+')' //XX欄位填寫時,XX欄位也填寫
- Else if NoSite then
- ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName])+'('+_msg('未定位')+')'
- Else
- ErrStr:=Format(OMRErrInfo[11].Info,[ColCName,RelaColCName]); //XX欄位填寫時,XX欄位也填寫
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,ImageSavePath+CaseID+'\upload\'+RelaFile,RelaSiteRec,Anchor,Anchor1,False,OMRErrInfo[7].Ignore,OMRErrInfo[7].Display);
- if OMRErrInfo[11].Display then
- CaseOk := false;
- end;
- //Until not RelaXT.SubNodes['/form/settype2/'].Next ;
-
- end;
- Until not XT.SubNodes['/form/settype8/'+ColEName+'/'].Next;
- Until not XT.SubNodes['/form/settype8/'].Next ;
- end;
- //*******有值相關文件的欄位不能有值*******
-
-//ShowMessage('11889 OMRFileList.Strings['+IntToStr(i)+']'+OMRFileList.Strings[i]);
-
- //*******有值相依文件*******
- if ModeNeedCheck(OMRErrInfo[5].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype4/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- ColEName := XT.SubNodes['/form/settype4/'].NodeName;
- ColCName := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype4/'+ColEName+'/'].Attributes['pixel'];
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
- if XT.SubNodes['/form/settype4/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeName;
- If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype4/'+ColEName+'/'].NodeIsAttr) then
- begin
- {RelaFormCode := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := FormCode2FileName(RelaFormCode);
- RelaFormName := FormCode2FormName(RelaFormCode); }
- RelaDocNo := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := DocNo2FileName(RelaDocNo,ContextList);
- RelaDocName := XT.Node['/form/settype4/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
- if RelaFile='' then
- begin
- ErrStr:=Format(OMRErrInfo[5].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,需附XX文件
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[5].Ignore,OMRErrInfo[5].Display);
- if OMRErrInfo[5].Display then
- CaseOk := false;
- end;
- end;
- Until not XT.SubNodes['/form/settype4/'+ColEName+'/'].Next;
- end;
- Until not XT.SubNodes['/form/settype4/'].Next ;
- end;
- //*******有值相依文件*******
-
- //*******有值互斥文件*******
- if ModeNeedCheck(OMRErrInfo[6].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype5/'].First then
- Repeat
- SiteRec := '';
- RelaSiteRec := '';
- ColEName := XT.SubNodes['/form/settype5/'].NodeName;
- ColCName := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['colxy'];
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
- Pixel := XT.Node['/form/settype5/'+ColEName+'/'].Attributes['pixel'];
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
- if XT.SubNodes['/form/settype5/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeName;
- If (nodename <> 'coldesc') and (not XT.SubNodes['/form/settype5/'+ColEName+'/'].NodeIsAttr) then
- begin
- {RelaFormCode := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := FormCode2FileName(RelaFormCode);
- RelaFormName := FormCode2FormName(RelaFormCode);}
- RelaDocNo := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformid'];
- RelaFile := DocNo2FileName(RelaDocNo,ContextList);
- RelaDocName := XT.Node['/form/settype5/'+ColEName+'/'+nodename+'/'].Attributes['relaformname'];
- if RelaFile<>'' then //有附 20130604看到(='')改的(未測)
- begin
- ErrStr:=Format(OMRErrInfo[6].Info,[ColCName,RelaDocName]); //XX文件XX欄位填寫時,不能附XX文件
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[6].Ignore,OMRErrInfo[6].Display);
- if OMRErrInfo[6].Display then
- CaseOk := false;
- end;
- end;
- Until not XT.SubNodes['/form/settype5/'+ColEName+'/'].Next;
- end;
- Until not XT.SubNodes['/form/settype5/'].Next ;
- end;
- //*******有值互斥文件*******
-
- //*******有值寫備註*******
- if ModeNeedCheck(OMRErrInfo[8].Mode,FMode) then //是否要檢核
- begin
- if XT.SubNodes['/form/settype6/'].First then
- Repeat
- SiteRec := '';
- ColEName := XT.SubNodes['/form/settype6/'].NodeName;
- ColCName := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['coldesc'];
- ColCName := Copy(ColCName,1,length(ColCName)-6);
- Site := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['colxy'];
- Pixel := XT.Node['/form/settype6/'+ColEName+'/'].Attributes['pixel'];
-
- if SiteRec= '' then //記錄位置
- SiteRec := Site
- else
- SiteRec := SiteRec+'@'+Site;
-
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ////有填寫////
- if not FileExists(ImageSavePath+CaseID+'ScanMemo.dat') then
- begin
- ErrStr:=Format(OMRErrInfo[8].Info,[ColCName]); //XX文件XX欄位填寫時,需寫備註
- OMRErr2ini(CaseID,ErrStr,ImageSavePath+CaseID+'\upload\'+OMRFile,SiteRec,'','',Anchor,Anchor1,False,OMRErrInfo[8].Ignore,OMRErrInfo[8].Display);
- if OMRErrInfo[8].Display then
- CaseOk := false;
- end;
- end;
- Until not XT.SubNodes['/form/settype6/'].Next ;
- end;
- //*******有值寫備註*******
-
- //*******OMR帶值********
- if XT.SubNodes['/form/settype7/'].First then
- Repeat
- ColEName := XT.SubNodes['/form/settype7/'].NodeName;
- ValueXT['/content/'+ColEName+'/@savevalue'] := ''; //先給預設空白
- if XT.SubNodes['/form/settype7/'+ColEName+'/'].First then
- Repeat
- nodename := XT.SubNodes['/form/settype7/'+ColEName+'/'].NodeName;
- If nodename <> '@coldesc' then
- begin
- Pixel := Strtoint(XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['pixel']);
- Site := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['colxy'];
- OMRValue := XT.Node['/form/settype7/'+ColEName+'/'+nodename+'/'].Attributes['getvalue'];
-
- //有填就ok
- Display1.Lines.Add(ColEName+' '+ColCName+' 圖像實際點數='+IntToStr(GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt))+' 設定點數='+IntToStr( (Pixel + SafePixel)));
-
- if GetSiteOMR(ImageSavePath+CaseID+'\upload\'+OMRFile,Site,Bt) > (Pixel + SafePixel) then
- begin
- ValueXT['/content/'+ColEName+'/@savevalue'] := OMRValue; //有填就換成設定的值
- Break;
- end;
- end;
- Until not XT.SubNodes['/form/settype7/'+ColEName+'/'].Next;
- Until not XT.SubNodes['/form/settype7/'].Next ;
-
- //*******OMR帶值********
- //end;
- Finally
- if (OMRValue <> '') then
- ValueXT.SaveToFile(ImageSavePath+CaseID+'/GetValue.xml');
- XT.Free;
- RelaXT.Free;
- end;
- end;
- //必填迴圈結束
- Finally
- ValueXT.Free;
- end;
- //end;
- //end;
- Result := CaseOk;
-end;
-
-function TCB_IMGPSScanX.OMRErrini2ListForLog(CaseID: String): String;
-var
- ini : Tinifile;
- Errcount : Integer;
- Del : Boolean;
- i,j : Integer;
- ST,CaseList:TStringList;
-
-begin
- Result:='';
- //CaseList.dat
- ST:=TStringList.Create;
- CaseList:=TStringList.Create;
- CaseList.LoadFromFile(ImageSavePath+'CaseList.dat');
- for I := 0 to CaseList.Count - 1 do
- begin
- ini := Tinifile.Create(ImageSavePath + CaseList.Strings[i]+'\upload\Checkerr.ini');
- try
- Errcount := ini.ReadInteger('OMRCount','Count',0);
-
- for j := 1 to ErrCount do
- begin
- Del := ini.ReadBool(inttostr(j),'Del',False); //是否被移除了
- if Not Del then
- begin
- ST.Add(ini.ReadString(inttostr(j),'Reason','')) ;
- end;
- end;
- finally
- ini.Free;
- end;
- end;
- Result:=ST.Text;
- ST.Free;
- CaseList.Free;
-end;
-
-
-Procedure TCB_IMGPSScanX.CreateDocNo_DocName(Path,CaseID:String); //產生DocNo_DocName.dat
-var
- i : Integer;
- S : TStringlist;
- Doc_Name : String;
-begin
- S := TStringlist.Create;
- try
- DistinctDocNoinCase(Path);
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- Doc_Name := CaseDocNoList.Strings[i]+'_'+DocNo2DocName(CaseID,CaseDocNoList.Strings[i]);
- if not DocnoNeedGroup(CaseDocNoList.Strings[i]) Then //不用分組的加*號給智豪
- Doc_Name := '*'+Doc_Name;
- S.Add(Doc_Name);
- end;
- S.SaveToFile(Path+'DocNo_Name.dat',TEnCoding.UTF8);
- finally
- S.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CreateDocNo_Info(CaseID:String):String; //產生 DocNo[tab]份數[tab]總頁數[tab]是否異動[換行]DocNo[tab]份數[tab]總頁數[tab]是否異動
-var
- i,n : Integer;
- DocDirList,DocDir_CopiesList,FileList,C_DocNoList : TStringlist;
- DocNo,iDocDir,iDocNo,iEdit:String;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- DocDir_CopiesList := TStringlist.Create;
- FileList := TStringlist.Create;
- C_DocNoList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
-
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- if DocDirList.Count =0 then exit;//20170222 新加
-
-
- DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if Copy(iDocDir,1,5) <> 'ZZZZZ' then //不為自定文件
- begin
- //icopys := 1;
- icopys := GetDocNoCount(CaseID,DocNo);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,'');
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if iDocNo = DocNo then
- begin
- //inc(icopys);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocNo,iCopys,iPages,iEdit]);
- end;
- DocDirList.Delete(0);
- end;
-
-
- finally
- DocDirList.Free;
- DocDir_CopiesList.Free;
- FileList.Free;
- C_DocNoList.Free;
- end;
- Result := Str;
-
- {S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- S1.LoadFromFile(Path+'Context_DocNo.dat');
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- iDocNo := CaseDocNoList.Strings[i];
- iCopys := GetDocNo_Count(Path,iDocNo);
- iPages := GetDocNo_Page(Path,iDocNo);
- if str = '' then
- Str := Format('%s,%d,%d',[iDocNo,iCopys,iPages])
- else
- Str := Str+';'+ Format('%s,%d,%d',[iDocNo,iCopys,iPages]);
- end;
- Result := Str;
-
- finally
- S.Free;
- S1.Free;
- end; }
-end;
-
-Function TCB_IMGPSScanX.CreateCustDocNo_Info(CaseID:String):String; //產生自訂文件 DocName[tab]份數[tab]總頁數[tab]是否異動[#13#10]DocName[tab]份數[tab]總頁數[tab]是否異動
-var
- i,n : Integer;
- DocDirList,FileList : TStringlist;
- DocNo,DocName,iDocDir,iDocNo,iEdit:String;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-//ShowMessage(DocDirList.Text);
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
- begin
- //icopys := 1;
- DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- icopys := GetDocNoCount(CaseID,DocNo);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if iDocNo = DocNo then
- begin
- //inc(icopys);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%d'+#9+'%s',[DocName,iCopys,iPages,iEdit]);
- end;
- DocDirList.Delete(0);
- end;
- finally
- DocDirList.Free;
- FileList.Free;
- end;
- Result := Str;
-end;
-
-Function TCB_IMGPSScanX.CreateDocnoFrom_Info(CaseID:String):String; //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
-var
- i,n : Integer;
- DocDirList,DocDir_CopiesList,FileList : TStringlist;
- DocNo,iDocDir,iDocNo,iEdit:String;
- FromCaseID : string;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- DocDir_CopiesList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
-
- if DocDirList.Count=0 then exit;//20170222 新加
-
-
- DocDir_CopiesList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo_Copies.dat');
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if (Copy(iDocDir,1,5) <> 'ZZZZZ') then //不為自定文件
- begin
- //icopys := 1;
- //icopys := GetDocNoCount(CaseID,DocNo);
- icopys := GetDocDirCopies(CaseID,iDocDir);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,'');
- FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
- if FromCaseID <> '' then
- begin
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
- begin
- FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
- //inc(icopys);
- icopys := icopys + GetDocDirCopies(CaseID,iDocDir);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocNo,iCopys,FromCaseID]);
- end;
- end;
- DocDirList.Delete(0);
- end;
- finally
- DocDirList.Free;
- DocDir_CopiesList.Free;
- FileList.Free;
- end;
- Result := Str;
-end;
-
-Function TCB_IMGPSScanX.CreateCustDocNoFrom_Info(CaseID:String):String; //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
-var
- i,n : Integer;
- DocDirList,FileList : TStringlist;
- DocNo,DocName,iDocDir,iDocNo,iEdit:String;
- FromCaseID : string;
- icopys,ipages : integer;
- S,S1 : TStringlist;
- Str : String;
-begin
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- Str := '';
- if Not FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then Exit;
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- while DocDirList.Count > 0 do
- begin
- iDocDir := DocDirList.Strings[0];
- DocNo := DocNoDir2DocNo(iDocDir);
- if Copy(iDocDir,1,5) = 'ZZZZZ' then //是自定文件
- begin
- //icopys := 1;
- //icopys := GetDocNoCount(CaseID,DocNo);
- icopys := GetDocDirCopies(CaseID,iDocDir);
- ipages := GetDocDir_Page(CaseID,iDocDir);
- iEdit := GetDocNoEdit(CaseID,DocNo,DocName);
- FromCaseID := GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir);
- if FromCaseID <> '' then
- begin
- for i := DocDirList.Count - 1 downto 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocNo := DocNoDir2DocNo(iDocDir);
- if (iDocNo = DocNo) and (GetUseCase('F',ImageSavePath+CaseID+'\',iDocDir)<>'') then
- begin
- FromCaseID := GetUseCase('F',DisplayPath,iDocDir);
- //inc(icopys);
- ipages := ipages + GetDocDir_Page(CaseID,iDocDir);
- DocDirList.Delete(i);
- end;
- end;
- DocName := GetCustomDocName(ImageSavePath+CaseID+'\',DocNo);
- if str = '' then
- Str := Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID])
- else
- Str := Str+#13#10+ Format('%s'+#9+'%d'+#9+'%s',[DocName,iCopys,FromCaseID]);
- end;
- end;
- DocDirList.Delete(0);
- end;
- finally
- DocDirList.Free;
- FileList.Free;
- end;
- Result := Str;
-end;
-
-Function TCB_IMGPSScanX.GetDocNoEdit(CaseID,DocNo,DocName:String):String; //取出DocNo是否被異動 (Y/N)
-var
- i : Integer;
- EditedDocDirList : TStringlist;
- C_DocNoList,C_DocNameList : TStringlist;
-begin
- Result := 'N';
- EditedDocDirList := TStringlist.Create;
- C_DocNoList := TStringlist.Create;
- C_DocNameList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\EditedDocDir.dat') then
- EditedDocDirList.LoadFromFile(ImageSavePath+CaseID+'\EditedDocDir.dat');
- C_DocNoList.StrictDelimiter := True;
- C_DocNoList.Delimiter := #9;
- C_DocNoList.DelimitedText := FC_DocNoList;
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
-
- //Showmessage(C_DocNoList.Text);
- if (DocName = '') and (C_DocNoList.IndexOf(DocNo)=-1 ) then
- Result := 'Y';
- if (DocName <> '') and (C_DocNameList.IndexOf(DocName)=-1) then
- Result := 'Y';
- for i := 0 to EditedDocDirList.Count - 1 do
- begin
- if (DocNo = DocNoDir2DocNo(EditedDocDirList.Strings[i])) then
- begin
- Result := 'Y';
- Break;
- end;
- end;
- finally
- EditedDocDirList.Free;
- C_DocNoList.Free;
- C_DocNameList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNo_Count(Path,DocNo:String):Integer; //取出文件份數
-var
- i : Integer;
- iCopys : integer;
- S,S1 : TStringlist;
- iFormID : String;
- DocFirst : Boolean;
-begin
- Result := 0;
- if not DocnoNeedGroup(DocNo) then
- begin
- Result := 1;
- Exit;
- end;
-
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- S1.LoadFromFile(Path+'Context_DocNo.dat');
- iCopys := 0;
-
- for i := 0 to S.Count - 1 do
- begin
- iFormID := FileName2FormCode(S.Strings[i]);
- DocFirst := False;
- if FormCode2Page(iFormID) = '01' then
- DocFirst := True;
- if ((iCopys = 0) or DocFirst) and (Docno = S1.Strings[i]) then
- begin
- inc(iCopys);
- end;
- end;
- Result := iCopys;
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetDocNo_Page(Path,DocNo:String):Integer; //取出文件總頁數
-var
- i : Integer;
- ipages : integer;
- S,S1 : TStringlist;
-begin
- Result := 0;
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- S1.LoadFromFile(Path+'Context_DocNo.dat');
- iPages := 0;
- for i := 0 to S.Count - 1 do
- begin
- if Docno = S1.Strings[i] then
- begin
- inc(iPages);
- end;
- end;
- Result := ipages;
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.Case_DocNoExists(CaseID,Docno:String):Boolean; //Docno是否存在案件裡
-var
- i : Integer;
- S : TStringlist;
- iDocNo : String;
-begin
- Result := False;
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath + CaseID+'\Context.dat');
- for i := 0 to S.Count - 1 do
- begin
- iDocNo := FormCode2DocNo(FileName2FormCode(S.Strings[i]));
- if Docno = iDocNo then
- begin
- Result := True;
- Break;
- end;
- end;
- finally
- S.Free;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.ReSortFileName(Path:String); //檔名重新排序
-var
- i : Integer;
- OldName,NewName : String;
- Filelist : TStringlist;
-begin
- Filelist := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- begin
- Filelist.LoadFromFile(Path+'Context.dat');
- for i := 0 to Filelist.Count - 1 do
- begin
- OldName := Filelist.Strings[i];
- //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
-//ShowMessage(OldName+#10#13+NewName);
- ReNameFile(Path+OldName,Path+NewName);
- Filelist.Strings[i] := NewName;
- end;
- Filelist.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat');
- end;
- finally
- Filelist.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ReSortFileName_New(Path:String); //檔名重新排序
-var
- i : Integer;
- OldName,NewName : String;
- Filelist : TStringlist;
-begin
- Filelist := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- begin
- Filelist.LoadFromFile(Path+'Context.dat');
- for i := Filelist.Count - 1 downto 0 do
- begin
- OldName := Filelist.Strings[i];
- //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
- ReNameFile(Path+OldName,Path+NewName);
- Filelist.Strings[i] := NewName;
- end;
- Filelist.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat');
- end;
- finally
- Filelist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseAsk(CaseID: string):Integer;
-var
- SendData : String;
-begin
-//Memo1.Clear;
- SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&work_no='+FWork_no;
- if (FMode = 'NSCAN') or (FMode = 'DSCAN') then
- begin
-//ShowMessage('JJJJJ');
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC05/isnew',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := -1;
- Exit;
- end;
- end;
-//ShowMessage(SendData);
-
- IF memo1.Lines.Strings[0] <> '0' Then
- begin
- HttpErrStr := _Msg('')+memo1.Lines.Strings[1]+'。';
- Result := -1;
- Exit;
- end
- Else
- begin
- if (memo1.Lines.Count < 2) then
- begin
- HttpErrStr := _Msg('')+'OCX:Index Count error';
- Result := -1;
- Exit;
- end
- Else
- begin
- if memo1.Lines.Strings[1] = '0' then
- begin
- Result := 0;
- end
- Else if memo1.Lines.Strings[1] = '1' then
- Result := 1
- Else
- begin
- HttpErrStr := _Msg('')+'OCX:Value error';
- Result := -1;
- Exit;
- end;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseComplete(Path,CaseID:String;MainCase:Boolean):Boolean; //通知傳送完成
-var
- OMRValue,Batchnum,Usermemo,Checkmemo,UpformID,ReMoveMemo: String;
- Case_type,Handle_no,Format_id,Cen_Uid,Cen_Cliname,Cen_Platno,Cen_Apolyno,Case_priority : String;
- Pages : Integer;
- EnCodeDateTime : String;
- SendData : String;
- S : TStringlist;
- i,v,v1 : Integer;
- UpSortID : String;
-begin
- Result := True;
- S := TStringlist.Create;
- try
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
-
- UpformID := GetCaseFormID(Path);
-
-
- Case_type := '0';
- if FileExists(Path+'Context.dat') then //掃描頁數
- begin
- S.LoadFromFile(Path+'Context.dat');
- Pages := S.Count;
- end;
- if not FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then //如果沒這個檔就重產生預設值
- begin
- ClearCaseIndex;
- WriteCaseIndex(ImageSavePath+CaseID+'\');
- end;
- {if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
-
- Handle_No := S.Strings[0]; //經辦代號
- Cen_Uid := S.Strings[1]; //被保人ID
- Cen_Cliname := S.Strings[2]; //被保人姓名
- Cen_Platno := S.Strings[3]; //車號
- Case_Priority := S.Strings[4];//案件等級
- if FMode = 'SSCAN' then //簽署章件的時候一律傳Format_ID
- begin
- Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
- end
- Else
- begin
- if (Length(UpformID) = 12) and (UpformID[2] = '-') then
- Format_ID := S.Strings[5] //主鍵值 (報價單號or續保單號or保單號碼or保險證號)
- else
- Cen_Apolyno := S.Strings[5]; //強制證號
- end;
- if (FMode = 'MSCAN') and (length(Format_ID) = 16) and (Copy(Format_ID,1,2) = '05') then
- begin
- Format_ID := Copy(Format_ID,3,14); //20130606 yuu說監理站件的主鍵值為16碼且開開為05的要去掉
- end;
-
- end; }
- if FileExists(ImageSavePath+CaseID+'\GetValue.xml') then //掃描帶值
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\GetValue.xml');
- OMRValue := Trim(S.Text);
- end;
- if MainCase then //雙主約的主要案件
- begin
- if FileExists(ImageSavePath+CaseID+'\Batchnum.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\Batchnum.dat');
- Batchnum := Trim(S.Text);
- end;
- end
- Else //雙主約的第二案件
- begin
- if FileExists(ImageSavePath+CaseID+'\SecBatchnum.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\SecBatchnum.dat');
- Batchnum := Trim(S.Text);
- end;
- end;
- if FileExists(ImageSavePath+CaseID+'\Scan_Memo.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\Scan_Memo.dat');
- Usermemo := Trim(S.Text);
- end;
- if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\CheckMemo.dat');
- Checkmemo := Trim(S.Text);
- end;
-
- if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
- ReMoveMemo := Trim(S.Text);
- end;
-
-
- finally
- S.Free;
- end;
- case_priority:='0';
- if (FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&work_no='+FWork_No //作業別
- +'&case_id='+CaseID //受理編號
- +'&form_id='+UpformID //表單代號
- +'&scan_page='+inttostr(pages) //掃描頁數
- +'&scan_get_value='+HTTPEncode(UTF8Encode(OMRValue)) //掃描帶值
- +'&case_priority='+case_priority //案件等級
- +'&batch_no='+batchnum //車隊批號
- +'&user_memo='+HTTPEncode(UTF8Encode(usermemo)) //使用者註記
- +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo)) //檢核註記
- +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo)) //檢核移除註記
- +'&case_type='+Case_type //進件種類 進件0 歸檔1
- +'&handle_no='+Handle_no //經辦代號
- +'&format_id='+Format_id //案件主鍵值
- +'&cen_uid='+Cen_Uid //被保人ID
- +'&cen_cliname='+HTTPEncode(UTF8Encode(Cen_Cliname)) //被保人姓名
- +'&cen_platno='+Cen_Platno //車牌
- +'&cen_apolyno='+Cen_Apolyno //強制證號
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- Showmessage(SendData);
- if not RejectCase then
- begin
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC05',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else
- begin
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC06',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end;
-
-
- end
- Else if FMode = 'ISCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&work_no='+FWork_No
- +'&case_id='+CaseID
- +'&form_id='+UpformID
- +'&format_id='+Format_id
- +'&scan_page='+inttostr(pages)
- +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
- +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- //Showmessage(SendData);
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC08',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else if FMode = 'FSCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&work_no='+FWork_No
- +'&case_id='+CaseID
- +'&scan_page='+inttostr(pages)
- +'&user_memo='+HTTPEncode(UTF8Encode(usermemo))
- +'&check_memo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&remove_memo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC09',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else if FMode = 'RSCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&act=rescan'
- +'&workno='+FWork_No
- +'&caseid='+CaseID
- +'&formid='+UpformID
- +'&scanpage='+inttostr(pages)
- // +'&areano='+FUserArea
- +'&scangetvalue='+HTTPEncode(UTF8Encode(OMRValue))
- +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
- +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end
- Else if FMode = 'ESCAN' then
- begin
- SendData := 'checktime='+EnCodeDateTime
- +'&act=escan'
- +'&workno='+FWork_No
- +'&caseid='+CaseID
- +'&formid='+UpformID
- +'&scanpage='+inttostr(pages)
- +'&batchnum='+batchnum
- +'&usermemo='+HTTPEncode(UTF8Encode(usermemo))
- +'&checkmemo='+HTTPEncode(UTF8Encode(checkmemo))
- +'&removememo='+HTTPEncode(UTF8Encode(ReMoveMemo))
- +'&has_authorize='+Has_Authorize; //是否有授權書影像
- If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC01',SendData,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- end;
-
- if Memo1.Lines.Strings[0] <> '0'then
- begin
- HttpErrStr := _Msg('錯誤原因:')+Memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end;
-end;
-
-procedure TCB_IMGPSScanX.Set_caseid(const Value: WideString);
-begin
- FCaseID := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_data(const Value: WideString);
-begin
- FData := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_c_docnolist(const Value: WideString);
-begin
- FC_DocNoList := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_fixfilelist(const Value: WideString);
-begin
- FFixFileList := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_oldcaseinfo(const Value: WideString);
-begin
- FOldCaseInfo := Value;
-end;
-
-function TCB_IMGPSScanX.Get_c_docnolist: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_caseid: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_data: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_fixfilelist: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_oldcaseinfo: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_is_oldcase: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_is_oldcase(const Value: WideString);
-begin
- FIs_OldCase := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_casenolength: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_filesizelimit: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_casenolength(const Value: WideString);
-begin
- if Value ='' then
- begin
- FCaseNoLength := 0 ;
- CaseIDLength := FCaseNoLength;
- end
- else
- begin
- FCaseNoLength := StrToInt(Value) ;
- CaseIDLength := FCaseNoLength;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.Set_filesizelimit(const Value: WideString);
-begin
-//ShowMessage(Value);
- FFileSizeLimit:=0;
- if Value ='' then
- begin
- FFileSizeLimit := 5*1024;
- end
- else
- begin
- FFileSizeLimit := StrToInt(Value);
- end;
-
-end;
-
diff --git a/separate/scanImp/CB_IMGPSScanImp_Data.ts b/separate/scanImp/CB_IMGPSScanImp_Data.ts
deleted file mode 100644
index 6fbea50..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Data.ts
+++ /dev/null
@@ -1,819 +0,0 @@
-import * as fs from 'fs';
-import * as path from 'path';
-
-export function applyDataMixins(cls: any) {
-
- cls.prototype.Get_HelpFile = function(): string {
- let Result = String(this.HelpFile);
- return Result;
- };
-
- cls.prototype.Set_HelpFile = function(Value: string): void {
- this.HelpFile = String(Value);
- };
-
- cls.prototype.DocNoIsExistImg = function(DocNopath: string): boolean {
- let i: number;
- let ST: any;
- let Result = false;
- ST = new this.TStringList();
- if (fs.existsSync(DocNopath + '\\Context.dat')) { /////20190319 Hong 當有空的Docno目錄時會掛掉,增加這行
- ST.LoadFromFile(DocNopath + '\\Context.dat');
- }
- for (i = 0; i < ST.Count; i++) {
- if (this.ISExistImg(DocNopath + ST.Strings[i])) {
- Result = false;
- return Result; // Exit;
- // Break;
- }
- }
- Result = true;
- return Result;
- };
-
- cls.prototype.HTTPSClientCertificateValidate = function(Sender: any, X509Certificate: any, Validate: { val: boolean }): void {
- Validate.val = true;
- };
-
- cls.prototype.HTTPSClientRedirection = function(Sender: any, OldURL: string, NewURL: { val: string }, AllowRedirection: { val: boolean }): void {
- AllowRedirection.val = true;
- };
-
- cls.prototype.GetServerDate = function(): boolean {
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/servertimeforocx', '', this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- this.ServerDate = this.Memo1.Lines.Strings[1];
- this.ServerTime = this.ServerDate.substring(8, 14); // Copy(ServerDate,9,6)
- this.ServerDate = this.ServerDate.substring(0, 8); // Copy(ServerDate,1,8)
- this.Balance = this.GetBalance(this.ServerTime); //Server 跟Local的時間差
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.GetSetInf1 = function(): boolean { //取系統設定資訊Mode1 DOC_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
-
- ColumeStr = 'WORK_NO,DOC_NO,DOC_U_DESC,DOC_TYPE,DOC_VERSION,FORM_PAGES,START_DATE,STOP_DATE,IS_DOC_DIV,IS_IN_WH';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=1&col='+Doc_Inf_Colume+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
-
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=1&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
-
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.Doc_Inf_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.GetSetInf2 = function(): boolean { //取系統設定資訊Mode2 DM_FORM_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
- ColumeStr = 'WORK_NO,MAIN_FORM_ID,DOC_VERSION,DEPE_FORM_ID,MUTEX_FORM_ID';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=2&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=2&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.DM_FORM_INF_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.GetSetInf3 = function(): boolean { //取系統設定資訊mode3 FORM_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
- //ColumeStr := 'T1.WORK_NO,T1.FORM_ID,T1.DOC_KIND,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.MERGE_IMAGE,T1.CC_FORM_ID,T1.CC_MERGE_FORMID,T2.DOC_TYPE'; {T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
- ColumeStr = 'T1.WORK_NO,T1.FORM_ID,T1.DOC_NO,T1.DOC_VERSION,T1.FORM_NAME,T1.FORM_DESC,T1.DIVISION,T1.ANCHOR,T1.MAX_PAGE,T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.IS_PRINT,T2.DOC_TYPE'; //{T1.CC_FORM_ID,T1.CC_MERGE_FORMID,}
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=3&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=3&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.FORM_INF_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.GetSetInf4 = function(): boolean { //取系統設定資訊mode4 CHECK_RULE_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
- ColumeStr = 'WORK_NO,CHECK_NO,CHECK_RULE_DESC,MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=4&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=4&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.CHECK_RULE_INF_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- this.CheckRule2OMRErrInfo();
- return Result;
- };
-
- cls.prototype.GetSetInf5 = function(): boolean { //取系統設定資訊mode5 MEMO_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
- ColumeStr = 'T1.WORK_NO,T1.MEMO_TYPE,T1.MEMO_CONTENT,T2.MEMO_TYPE_NAME';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=5&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.MEMO_INF_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.GetSetInf6 = function(): boolean { //取系統設定資訊mode5 WORK_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
- ColumeStr = 'WORK_NO,PARA_NO,PARA_CONTENT';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=6&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.WORK_INF_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.GetSetInf7 = function(): boolean { //取系統設定資訊mode5 LASTEST_FORM_INF
- let ColumeStr: string;
- let S: any;
- let EnCodeDateTime: string;
- //SELECT FORM_ID,DOC_NO,DOC_VERSION FROM FORM_INF WHERE (DOC_NO,DOC_VERSION) in (SELECT DOC_NO, MAX(DOC_VERSION) FROM FORM_INF GROUP BY DOC_NO) ORDER BY DOC_NO
-
- let Result = false; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- EnCodeDateTime = this.En_DecryptionStr_Base64('E', this.ServerDate + this.GetBalance2Time(this.Balance), this.Mpskey);
- ColumeStr = 'FORM_ID,DOC_NO';
- //If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=5&col='+ColumeStr+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
- if (!this.ProcessServlet_Get(this.HTTPSClient, this.FUrl + 'service/imgpsc/IMGPSC01/tables', 'checktime=' + EnCodeDateTime + '&mode=7&col=' + this.En_DecryptionStr_Base64('E', ColumeStr, this.Mpskey) + '&work_no=' + this.FWork_no, this.FReWrite, this.Memo1, false)) {
- this.HttpErrStr = this._Msg('錯誤代碼:') + this.HttpError.HttpErrorCode.toString() + ',' + this.HttpError.HttpReason;
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.HttpErrStr = this._Msg('錯誤原因:') + this.Memo1.Lines.Strings[1];
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Strings[0] === '0') {
- S = new this.TStringList();
- S.Text = this.Memo1.Lines.Text;
- this.SetSQLData(ColumeStr, S, this.LASTEST_FORM_INF_List);
- S.Free();
- Result = true;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/CW00/login.js"></script>') >= 0) {
- this.HttpErrStr = this._Msg('錯誤原因:') + this._Msg('閒置過久或被登出,請重新登入');
- Result = false;
- return Result; // Exit;
- }
- return Result;
- };
-
- cls.prototype.SetIn_WH_DocNo = function(): void { //將要入庫的DocNo抽出來另存入list裡
- let i: number;
- for (i = 1; i < this.Doc_Inf_List.Count; i++) {
- if (this.GetSQLData(this.Doc_Inf_List, 'IS_IN_WH', i) === 'Y') {
- this.IN_WH_DocNoList.Add(this.GetSQLData(this.Doc_Inf_List, 'DOC_NO', i));
- }
- }
- // {Showmessage(IN_WH_DocNoList.Text);
- // StringtoFile(IN_WH_DocNoList.Text,'D:\121.txt');}
- };
-
- cls.prototype.DeleteDocNoFile = function(Path: string, DocNo: string): boolean { //刪除指定DocNo文件
- let i: number;
- let FName: string;
- let Result = false;
- for (i = this.ContextList.Count - 1; i >= 0; i--) {
- FName = this.ContextList.Strings[i];
- if (DocNo === this.FormCode2DocNo(this.FileName2FormCode(FName))) {
- if (fs.existsSync(Path + FName)) fs.unlinkSync(Path + FName); // DeleteFile(Path+FName);
- this.ContextList.Delete(i);
- this.Context_DocnoList.Delete(i);
- Result = true; //有刪到指定文件
- }
- }
- this.ContextList.SaveToFile(Path + 'Context.dat');
- this.Context_DocnoList.SaveToFile(Path + 'Context_DocNo.dat');
- this.ReSortFileName(Path);
- this.ContextList.LoadFromFile(Path + 'Context.dat');
- this.Context_DocnoList.LoadFromFile(Path + 'Context_DocNo.dat');
- if (fs.existsSync(Path + 'CustomDocNo.dat')) {
- this.Cust_DocNoList.LoadFromFile(Path + 'CustomDocNo.dat');
- }
- return Result;
- };
-
- cls.prototype.DeleteShowFile = function(Path: string): void { //刪除顯示中的影像
- let i: number;
- let DelFile: string;
- for (i = 0; i < this.NowShowFileList.Count; i++) {
- DelFile = this.NowShowFileList.Strings[i];
- if (fs.existsSync(Path + DelFile)) fs.unlinkSync(Path + DelFile); // DeleteFile(Path+DelFile);
- this.SetContextList('D', -1, this.NowCaseno, this.NowDocNo, DelFile);
- }
- };
-
- cls.prototype.GetDataDocNoPage = function(MainDocNo: string, MainVersion: string): number { //取記錄的文件_版本頁數
- let P: string;
- let Result = 0;
- if (this.FindSQLData(this.Doc_Inf_List, 'FORM_PAGES', 'DOC_NO,DOC_VERSION', MainDocNo + ',' + MainVersion, 0, this.FindResult)) {
- P = this.GetFindResult('FORM_PAGES');
- if (P !== '') {
- Result = parseInt(P, 10);
- } else {
- Result = 0;
- }
- }
- return Result;
- };
-
- cls.prototype.CheckCaseDocNoPage = function(CaseID: string, DocNo: string, Version: string, Pages: number): number { //取案件裡的文件_版本頁數
- let i: number, n: number, Count: number;
- let S: any, S2: any;
- let FormCode: string, iPage: string;
- let docInt = 0, tempInt = 0;
- let v: number, v2: number;
-
- Count = 0;
- docInt = 0;
- tempInt = 0;
- S = new this.TStringList();
- S2 = new this.TStringList();
- //ShowMessage('page='+IntToStr(Pages));
- try {
- S.LoadFromFile(this.ImageSavePath + CaseID + '\\upload\\Context.dat');
- S2.LoadFromFile(this.ImageSavePath + CaseID + '\\upload\\DocDir.dat'); //2017 1220 改成只承認第一份的
-
- for (i = 1; i <= Pages; i++) { //從0到pages-1 改成 1到pages 20170316 這樣可以修改檢核的頁數問題
- iPage = this.Add_Zoo(i, 2);
- for (n = 0; n < S.Count; n++) {
- if (this.FWH_category === 'N' && this.FIs_In_Wh === 'Y') {
- if (this.ISExistImg(this.ImageSavePath + CaseID + '\\upload\\' + S.Strings[n])) {
- continue;
- }
- }
-
- if (S2.Strings[n].length > 8 && S2.Strings[n].indexOf(DocNo) !== -1) { //2017 1220 改成只承認第一份的
- //LogFile1.LogToFile(logTimeString+'有進'+docno+','+S2.Strings[n]+IntToStr(Pos(DocNo,S2.Strings[n])));
- v = S2.Strings[n].indexOf('(');
- v2 = S2.Strings[n].indexOf(')');
- tempInt = parseInt(S2.Strings[n].substring(v + 1, v2), 10);
-
- if (docInt === 0) {
- docInt = tempInt;
- }
- if (docInt !== tempInt) {
- //LogFile1.LogToFile(logTimeString+'docInt='+IntToStr(docInt)+',tempInt='+IntToStr(tempInt));
- return Count; // Break returning Count
- }
- }
-
- FormCode = this.FileName2FormCode(S.Strings[n]);
- //LogFile1.LogToFile(logTimeString+'S.Strings[n]='+S.Strings[n]);
- //Showmessage('1:'+version+','+FormCode2Version(FormCode)+','+DocNo+','+FormCode2DocNo(FormCode)+','+iPage+','+FormCode2Page(FormCode));
- //LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
- this.LogFile1.LogToFile(this.logTimeString() + 'CheckCaseDocNoPage caseno=' + CaseID + ',' + Version + ',' + this.FormCode2Version(FormCode) + ',' + DocNo + ',' + this.FormCode2DocNo(FormCode) + ',' + iPage + ',' + this.FormCode2Page(FormCode));
- //ShowMessage(DocNo+','+IntToStr(docInt)+','+IntToStr(tempInt));
- //LogFile1.LogToFile(logTimeString+'FormCode='+FormCode);
- if (Version === this.FormCode2Version(FormCode) && DocNo === this.FormCode2DocNo(FormCode) && iPage === this.FormCode2Page(FormCode)) {
- this.LogFile1.LogToFile(this.logTimeString() + 'CheckCaseDocNoPage caseno=' + CaseID + ',' + Version + ',' + this.FormCode2Version(FormCode) + ',' + DocNo + ',' + this.FormCode2DocNo(FormCode) + ',' + iPage + ',' + this.FormCode2Page(FormCode));
- //Showmessage(version+','+DocNo+',iPage='+iPage);
- //Showmessage(inttostr(Count+1));
- Count++;
- break; //找到了...離開
- }
- }
- }
- } finally {
- S.Free();
- S2.Free();
- }
- return Count;
- };
-
- cls.prototype.TransCaseID = function(Path: string, CaseID: string, MainCase: boolean): boolean { //傳送案件
- let i: number, n: number, v: number;
- let ZipFileList: any;
- let UpFormID: string;
- let pages: number;
- let TransName: string;
- let MaskPath: string;
- let HaveMask = false;
- let S: string;
- let SendData: string;
- let Doc_Data = '', Doc_Data1 = '';
- let In_Doc1 = '', In_Doc2 = '';
- let AttachYN: string; //是否有附件 Y:有 N:沒有
-
- let ST1: any, ST2: any, ST3: any;
- let str1 = '', str2 = '';
- let must_formidStr = '';
- let last_add_formidstr = '';
- let ScanListStr = '';
- let casepath: string;
- let filesizeInt = 0;
- let case_page: string;
- let Fname: string;
- let FileRec: any;
-
- let Result = true;
- TransName = CaseID;
- MaskPath = Path + 'MaskImg\\';
- if (fs.existsSync(Path + 'Context.dat')) {
- this.ContextList.LoadFromFile(Path + 'Context.dat');
- this.Context_DocnoList.LoadFromFile(Path + 'Context_DocNo.dat');
- }
-
- if (fs.existsSync(Path + 'CustomDocNo.dat')) {
- this.Cust_DocNoList.LoadFromFile(Path + 'CustomDocNo.dat');
- }
-
- pages = this.ContextList.Count;
- case_page = pages.toString();
- if (this.FMode === 'NSCAN' || this.FMode === 'ESCAN' || this.FMode === 'ASCAN' || this.FMode === 'DSCAN' || this.FMode === 'SSCAN' || this.FMode === 'MSCAN' || this.FMode === 'RI_SCAN' || this.FMode === 'RSCAN') {
- //Showmessage('1');
- UpFormID = this.GetCaseFormID(Path);
- //{if UpformID = '' then //20131213 yuu說不管主form
- //begin
- // Showmessage(_msg('取不到主FormID!!'));
- // Result := False;
- // DataLoading(False,False);
- // Exit;
- //end;}
- }
-
- this.CaseResort2Scanlist(Path); //檔名照設定排序產生scanlist.dat
- //CaseResort(Path); //檔名照設定排序
- this.CreateFormID_FormName(Path, CaseID); //產生FormID_FormName.dat
- this.CreateDocNo_DocName(Path, CaseID); //產生DocNo_Name.dat
- Doc_Data = this.CreateDocNo_Info(CaseID); //產生保管袋文件 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
- Doc_Data1 = this.CreateCustDocNo_Info(CaseID); //產生自定文件 Docname,份數,頁數;Docno,份數,頁數 的回傳字串
- In_Doc1 = this.CreateDocnoFrom_Info(CaseID); //產生被引進的保管袋文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
- In_Doc2 = this.CreateCustDocNoFrom_Info(CaseID); //產生被引進的自定文件資訊 Docno[tab]份數[tab]案件編號#13#10Docno[tab]份數[tab]案件編號
- AttachYN = this.CreateAttach_Info(CaseID); //是否還有附件 Y:有 N:沒有
- this.ReadCaseIndex(Path);
- //LoanDoc := 'Y';
- //產生遮罩影像
- // if FWork_No = 'CW' then
- // HaveMask := Case2Mask(Path,MaskPath);
- //產生遮罩影像
- // S := S +#13+'5-->'+ Timetostr(now);
-
- ///////必要formid 20170315 start //////////////////////////////
- must_formidStr = '';
- last_add_formidstr = '';
- ST1 = new this.TStringList();
- ST1.LoadFromFile(Path + 'FormCode_Name.dat');
- //ShowMessage(ST1.Text);
- //ShowMessage(LastInitFormidList.Text);
- ST2 = new this.TStringList();
- ST3 = new this.TStringList();
-
- for (i = 0; i < ST1.Count; i++) {
- if (ST1.Strings[i].indexOf('_') !== 0 && ST1.Strings[i].indexOf('_') !== -1) {
- str1 = ST1.Strings[i].substring(0, ST1.Strings[i].indexOf('_'));
- ST2.Add(str1);
- must_formidStr = must_formidStr + str1 + '@#,';
- }
- }
- must_formidStr = must_formidStr.substring(0, must_formidStr.length - 3);
- //ShowMessage('must_formidStr='+must_formidStr);
- //ShowMessage('AST2='+ST2.Text);
-
-
- for (i = 0; i < this.LastInitFormidList.Count; i++) {
- if (ST2.IndexOf(this.LastInitFormidList.Strings[i]) !== -1) {
- ST2.Delete(ST2.IndexOf(this.LastInitFormidList.Strings[i]));
- }
- }
- //ShowMessage('BST2='+ST2.Text);
- for (i = 0; i < ST2.Count; i++) {
- last_add_formidstr = last_add_formidstr + ST2.Strings[i] + '@#,';
- }
- last_add_formidstr = last_add_formidstr.substring(0, last_add_formidstr.length - 3);
-
- ST3.LoadFromFile(Path + 'scanlist.dat');
- for (i = 0; i < ST3.Count; i++) {
- if (ScanListStr === '') {
- ScanListStr = this.FileName2FormCode(ST3.Strings[i]);
- } else {
- ScanListStr = `${ScanListStr},${this.FileName2FormCode(ST3.Strings[i])}`;
- }
- }
-
- ST1.Free();
- ST2.Free();
- ST3.Free();
- //ShowMessage('last_add_formidstr='+last_add_formidstr);
- ///////必要formid 20170315 end //////////////////////////
-
- ///保留外部影像 start///////////////////////////////
- casepath = Path.substring(0, Path.indexOf('Upload'));
- //ShowMessage('casepath='+casepath);
- //FIsExternal:='Y';
- if (this.FMode === 'ESCAN' && this.FIsExternal === 'Y') {
- if (fs.existsSync(casepath + 'Download\\FirstImg.zip')) {
- fs.copyFileSync(casepath + 'Download\\FirstImg.zip', Path + 'FirstImg.zip');
- }
- else {
- fs.copyFileSync(casepath + 'Download\\' + CaseID + '.zip', Path + 'FirstImg.zip');
- }
- }
- ///保留外部影像 end///////////////////////////////
-
- //file_size 計算 就先不做 20170316
- filesizeInt = 0;
-
-
- //////壓檔/////
- this.ZipMainFile(Path, Path, 'Img.zip');
- if (HaveMask) {
- this.ZipMaskFile(Path, MaskPath, Path, 'MaskImg.zip'); //有遮罩設定的才產生
- }
- /////壓檔////
- ///檢查上傳的zip大小////
- Fname = Path + 'Img.zip';
-
- // FindFirst(FName, faAnyfile, FileRec);
- // NodeJS equivalent using fs.statSync
- let stat = fs.statSync(Fname);
-
- //FMaxUploadSize
- //ShowMessage(IntToStr(FileRec.Size));
- //Result:=False;
- //exit; //目前上傳檔案大小為xxMB，已超過50MB，無法上傳 %.3f ,[FileRec.Size / 1048576]
- if (stat.size > parseInt(this.FMaxUploadSize, 10) * 1048576) { // 檢查檔案大小
- this.Showmessage(this.Format(this._Msg('%s目前上傳檔案大小為%.3fMB，已超過%sMB，無法上傳'), [CaseID, stat.size / 1048576, this.FMaxUploadSize]));
- //ShowMessage(Format('%s目前上傳檔案大小為%.3fMB，已超過'+FMaxUploadSize+'MB，無法上傳',[caseid,FileRec.Size / 1048576]) );
- Result = false;
- return Result; // Exit;
- }
- ///檢查上傳的zip大小////
- //ShowMessage('last_add_formidstr='+last_add_formidstr);
- if (!this.GetFtpinfo(CaseID, 'upload')) { //取案件上傳方式
- //Showmessage(_Msg()Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+'.');
- this.DownFileErrStr = this._Msg('取案件上傳資訊失敗!!') + this.HttpErrStr;
- Result = false;
- return Result; // Exit;
- }
- SendData = 'data=' + this.HTTPEncode(this.UTF8Encode(this.FData))
- + '&verify=' + this.FVerify
- + '&form_id=' + UpFormID
- + '&loan_doc=' + this.Case_loandoc
- + '&case_no=' + TransName
- + '&doc_data=' + this.HTTPEncode(this.UTF8Encode(Doc_Data))
- + '&doc_data1=' + this.HTTPEncode(this.UTF8Encode(Doc_Data1))
- + '&attach=' + AttachYN
- + '&case_page=' + case_page
- + '&file_size=' + filesizeInt.toString()
- + '&must_formid=' + must_formidStr //擁有的 formid
- + '&last_add_formid=' + last_add_formidstr //當次新加的 formid
- + '&form_code=' + ScanListStr //scanlist.dat 表單代號
- + '&ftp_image_path=' + this.FFtpExtraPath //加傳FTP目錄 HTTP上傳時會是空白
- + '&in_doc1=' + this.HTTPEncode(this.UTF8Encode(In_Doc1))
- + '&in_doc2=' + this.HTTPEncode(this.UTF8Encode(In_Doc2));
-
- if (this.TransMode === this.TTransMode.tsHttp) {
- ////上傳/////
- this.ShowText = CaseID + this._Msg('資料上傳中(Http),請稍候');
- this.DataLoading(true, true);
- if (!this.upFile(this.HTTPSClient, this.FUrl, 'service/imgpsc/IMGPSC02/caseupload', SendData, 'file', Path + 'Img.zip', this.FReWrite, this.Memo1, false)) {
- this.Showmessage(this.HttpError.HttpErrorCode.toString() + ' ' + this.HttpError.HttpReason + '.');
- Result = false;
- return Result; // Exit;
- }
- if (this.Memo1.Lines.Strings[0] === '1') {
- this.Showmessage(this.Format(this._Msg('') + this._Msg(''), [CaseID]) + this.Memo1.Lines.Strings[1] + '。');
- Result = false;
- return Result; // Exit;
- }
- else if (this.Memo1.Lines.Text.indexOf('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>') > 0) {
- this.Showmessage(this.Format(this._Msg('') + this._Msg('') + this._Msg('閒置過久或被登出,請重新登入'), [CaseID]));
- Result = false;
- return Result; // Exit;
- }
- ////上傳////
- } else if (this.TransMode === this.TTransMode.tsFtp) {
- this.ShowText = CaseID + this._Msg('資料上傳中(Ftp),請稍候');
- this.DataLoading(true, true);
- this.SetFtpInfo();
- try {
- if (!this.IIS_Ftp.FtpsConnect()) {
- this.Showmessage(this.Format('無法連上Ftp主機,錯誤原因:%s', [this.FtpErrReason]));
- Result = false;
- return Result; // Exit;
- }
- if (!this.IIS_Ftp.FtpsToMain(this.FFtpExtraPath, CaseID + '.zip', Path + 'Img.zip', this.display1)) {
- this.Showmessage(this.Format(this._Msg('上傳案件(%s)時,發生錯誤,錯誤原因:%s'), [CaseID, this.FtpErrStr]));
- Result = false;
- return Result; // Exit;
- }
-
- if (!this.FtpCaseComplete(SendData)) { //Ftp上傳後通知完成
- this.Showmessage(this.Format(this._Msg('通知案件(%s)Ftp上傳完成時,發生錯誤!!'), [CaseID]) + this.HttpErrStr);
- Result = false;
- return Result; // Exit;
- }
- } finally {
- this.IIS_Ftp.FtpsClose();
- }
- }
-
- if (this.FMode === 'ESCAN') { //上傳舊件引入檔案 //20140616 原本先搬舊件再搬新件,改為先搬新件再搬舊件
- if (!this.TransOldCaseFile(this.ImageSavePath + CaseID + '\\')) {
- Result = false;
- return Result; // Exit;
- }
- }
- // 呼叫Server完成 /////
- //{If not CaseComplete(Path,CaseID,MainCase) Then
- //begin
- // Showmessage(_Msg('通知案件傳送完成時,網路發生錯誤!!')+HttpErrStr);
- // DataLoading(False,False);
- // Result := False;
- // Exit;
- //end; }
- /// 呼叫Server完成////
-
- ////刪檔////
- //_DelTree(Path); //會只刪TransPath
- //ShowMessage('STOP');
- this._DelTree(this.ImageSavePath + CaseID);
- this.SetCaseList('D', -1, CaseID);
- ////刪檔////
- return Result;
- };
-
- ['Set_caseid', 'Set_data', 'Set_c_docnolist', 'Set_fixfilelist', 'Set_oldcaseinfo'].forEach(p => {
- cls.prototype[p] = function(v: string) {
- let fieldName = 'F' + p.substring(4).replace('caseid', 'CaseID').replace('data', 'Data').replace('c_docnolist', 'C_DocNoList').replace('fixfilelist', 'FixFileList').replace('oldcaseinfo', 'OldCaseInfo');
- this[fieldName] = v;
- };
- cls.prototype['Get_' + p.substring(4)] = function() {
- let fieldName = 'F' + p.substring(4).replace('caseid', 'CaseID').replace('data', 'Data').replace('c_docnolist', 'C_DocNoList').replace('fixfilelist', 'FixFileList').replace('oldcaseinfo', 'OldCaseInfo');
- return this[fieldName];
- };
- });
-
- cls.prototype.Set_is_oldcase = function(v: string) { this.FIs_OldCase = v.toUpperCase(); };
- cls.prototype.Get_is_oldcase = function() { return this.FIs_OldCase; };
-
- cls.prototype.Set_casenolength = function(v: string) { this.FCaseNoLength = v === '' ? 0 : parseInt(v, 10); this.CaseIDLength = this.FCaseNoLength; };
- cls.prototype.Get_casenolength = function() { return this.FCaseNoLength.toString(); };
-
- cls.prototype.Set_filesizelimit = function(v: string) { this.FFileSizeLimit = v === '' ? 5120 : parseInt(v, 10); };
- cls.prototype.Get_filesizelimit = function() { return this.FFileSizeLimit.toString(); };
-
- cls.prototype.Set_check_main_form = function(v: string) { this.FCheck_main_form = v; };
- cls.prototype.Get_check_main_form = function() { return this.FCheck_main_form; };
-
- cls.prototype.Set_WH_CATEGORY = function(v: string) { this.FWH_category = v; };
- cls.prototype.Get_WH_CATEGORY = function() { return this.FWH_category; };
-
- cls.prototype.Set_isExternal = function(v: string) { this.FIsExternal = v; };
- cls.prototype.Get_isExternal = function() { return this.FIsExternal; };
-
- cls.prototype.Set_imgdelete = function(v: string) { this.FImgDelete = v; };
- cls.prototype.Get_imgdelete = function() { return this.FImgDelete; };
-
- cls.prototype.Set_custdocyn = function(v: string) { this.FCustDocYN = v.toUpperCase(); };
- cls.prototype.Get_custdocyn = function() { return this.FCustDocYN; };
-
- cls.prototype.Set_printyn = function(v: string) { this.FPrintyn = v.toUpperCase(); };
- cls.prototype.Get_printyn = function() { return this.FPrintyn; };
-
- cls.prototype.Set_work_no = function(v: string) { this.FWork_no = v; };
- cls.prototype.Get_work_no = function() { return this.FWork_no; };
-
- cls.prototype.Set_verify = function(v: string) { this.FVerify = v; };
- cls.prototype.Get_verify = function() { return this.FVerify; };
-
- cls.prototype.Set_userunit = function(v: string) { this.FUserUnit = v; };
- cls.prototype.Get_userunit = function() { return this.FUserUnit; };
-
- cls.prototype.Set_username = function(v: string) { this.FUserName = v; };
- cls.prototype.Get_username = function() { return this.FUserName; };
-
- cls.prototype.Set_userid = function(v: string) { this.FUserID = v; };
- cls.prototype.Get_userid = function() { return this.FUserID; };
-
- cls.prototype.Set_useproxy = function(v: string) { this.FUseProxy = v.toUpperCase(); };
- cls.prototype.Get_useproxy = function() { return this.FUseProxy; };
-
- cls.prototype.Set_url = function(v: string) { this.FUrl = v; };
- cls.prototype.Get_url = function() { return this.FUrl; };
-
- cls.prototype.Set_rewrite = function(v: string) { this.FReWrite = v; };
- cls.prototype.Get_rewrite = function() { return this.FReWrite; };
-
- cls.prototype.Set_modename = function(v: string) { this.FModeName = v; };
- cls.prototype.Get_modename = function() { return this.FModeName; };
-
- cls.prototype.Set_mode = function(v: string) { this.FMode = v.toUpperCase(); };
- cls.prototype.Get_mode = function() { return this.FMode; };
-
- cls.prototype.Set_loandoc_value = function(v: string) { this.FLoanDoc_Value = v; };
- cls.prototype.Get_loandoc_value = function() { return this.FLoanDoc_Value; };
-
- cls.prototype.Set_loandoc_enable = function(v: string) { this.FLoanDoc_Enable = v; };
- cls.prototype.Get_loandoc_enable = function() { return this.FLoanDoc_Enable; };
-
- cls.prototype.Set_language = function(v: string) {
- this.FLanguage = v.toLowerCase();
- if (this.FLanguage === 'zh-tw') {
- this.FLanguage = 'zh_tw';
- }
- };
- cls.prototype.Get_language = function() { return this.FLanguage; };
-
- cls.prototype.Set_is_in_wh = function(v: string) { this.FIs_In_Wh = v.toUpperCase(); };
- cls.prototype.Get_is_in_wh = function() { return this.FIs_In_Wh; };
-
- cls.prototype.Set_c_docnamelist = function(v: string) { this.FC_DocNameList = v; };
- cls.prototype.Get_c_docnamelist = function() { return this.FC_DocNameList; };
-
- cls.prototype.DataLoading = function(Loading: boolean, UseTimer: boolean): void {
- if (Loading) {
- // Screen.Cursor := -11;
- if (UseTimer) {
- this.Panel22.Caption = this.ShowText;
- this.Panel22.Left = Math.floor(this.Panel9.Width / 2) - Math.floor(this.Panel22.Width / 2);
- this.Panel22.Top = Math.floor(this.Panel9.Height / 2) - Math.floor(this.Panel22.Height / 2);
- this.Panel22.Visible = true;
- this.Timer2.Enabled = true;
- } else {
- this.Panel8.Left = Math.floor(this.Panel9.Width / 2) - Math.floor(this.Panel8.Width / 2);
- this.Panel8.Top = Math.floor(this.Panel9.Height / 2) - Math.floor(this.Panel8.Height / 2);
- this.Panel8.Visible = true;
- }
- this.Application.ProcessMessages();
- this.Panel1.Enabled = false;
- this.Panel2.Enabled = false;
- } else {
- this.Panel22.Visible = false;
- this.Panel8.Visible = false;
- this.Timer2.Enabled = false;
- this.Panel1.Enabled = true;
- this.Panel2.Enabled = true;
- // Screen.Cursor := 0;
- }
- };
-
- cls.prototype.ReduceLogFile = function(): void {
- let ST1: any;
- let I: number;
- ST1 = new this.TStringList();
- if (fs.existsSync(this.LngPath + 'IMGPSCheck.log')) {
- ST1.LoadFromFile(this.LngPath + 'IMGPSCheck.log');
- if (ST1.Count > 100000) {
- for (I = 0; I <= 10000; I++) {
- ST1.Delete(0);
- }
- ST1.SaveToFile(this.LngPath + 'IMGPSCheck.log');
- }
- }
- ST1.Free();
- };
-
- cls.prototype.ClearCaseIndex = function(): void {
- this.AddCredit1RG.Enabled = false;
- this.AddCredit1RG.ItemIndex = -1;
- };
-
-}
diff --git a/separate/scanImp/CB_IMGPSScanImp_Main.ts b/separate/scanImp/CB_IMGPSScanImp_Main.ts
deleted file mode 100644
index a307ad0..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Main.ts
+++ /dev/null
@@ -1,17 +0,0 @@
-import { applyDataMixins } from './CB_IMGPSScanImp_Data';
-import { applyScanMixins } from './CB_IMGPSScanImp_Scan';
-import { applyUIMixins } from './CB_IMGPSScanImp_UI';
-import { applyUtilsMixins, TStringList, TImageFormat, TTransMode, TFtpProtocol } from './CB_IMGPSScanImp_Utils';
-
-export class TCB_IMGPSScanX {
- Ch_WriteNote=false; RejectCase=false; ErrIndex=0; Def_DeviceDelete=true; Def_DeviceDeleteSize=3072; Def_ScannerReverse=false; Def_BoardClear=false; Def_ScanDpi=300; Def_ScanDuplex=true; Def_ScanRotate=0; Def_ScanDeskew=false; Def_ScanBright=0; Def_ScanContrast=0; Def_ScanImgShowMode=2; Def_ScanImgSetUse=false;
- FUrl=''; FCaseID=''; FMode=''; FModeName=''; FWork_no=''; FUserID=''; FUserName=''; FUserUnit=''; FData=''; FVerify=''; FReWrite=''; FLanguage='zh_tw'; FLoanDoc_Value=''; FLoanDoc_Enable=''; FUseProxy=''; FC_DocNoList=''; FC_DocNameList=''; FFixFileList=''; FIs_In_Wh=''; FOldCaseInfo=''; FPrintyn=''; FIs_OldCase=''; FCustDocYN=''; FImgDPI=300; FScanColor=0; FFileSizeLimit=5120; FCaseNoLength=16; FImgDelete='N'; FIsExternal='N'; FCheck_main_form='N'; FWH_category='N';
- TransMode=TTransMode.tsNone; HttpErrStr=''; FFtpIP=''; FFtpID=''; FFtpPwd=''; FFtpRootPath=''; FFtpExtraPath=''; FFtpPort=0; FFtpProtocol=TFtpProtocol.fpftp; DeviceDelete=false; DeviceDeleteSize=0; ScannerReverse=false; BoardClear=false; ScanDpi=0; ScanDuplex=false; ScanRotate=0; ScanDeskew=false; ScanBright=0; ScanContrast=0; ScanImgShowMode=0; ScanImgSetUse=false; ScanColor:TImageFormat='ifBlackWhite';
- ServerDate=''; ServerTime=''; Balance=0; ScanDenialTime=''; ScanDenialHint=''; ScanPath=''; ImagePath=''; ImageSavePath=''; ScaniniPath=''; LngPath=''; CheckXmlPath=''; SitePath=''; SamplePath=''; TransPath=''; ScanSaveFilename=''; ScanCaseno=''; ScanDocDir='';
- Doc_Inf_List=new TStringList(); DM_FORM_INF_List=new TStringList(); FORM_INF_List=new TStringList(); CHECK_RULE_INF_List=new TStringList(); MEMO_INF_List=new TStringList(); WORK_INF_List=new TStringList(); LASTEST_FORM_INF_List=new TStringList(); FindResult=new TStringList(); CaseList=new TStringList(); Context_DocnoList=new TStringList(); CaseDocNoList=new TStringList(); CaseDocNo_CopiesList=new TStringList(); ContextList=new TStringList(); AttContextList=new TStringList(); OMRFileList=new TStringList(); Cust_DocNoList=new TStringList(); IN_WH_DocNoList=new TStringList(); FormCode_PageSize=new TStringList(); DocNo_NeedDoc=new TStringList(); DocNo_NoDoc=new TStringList(); DocNo_VerinCase=new TStringList(); NoSaveBarCodeList=new TStringList(); FormID_List=new TStringList(); DocNo_List=new TStringList(); NowShowFileList=new TStringList(); NowSelectFileList=new TStringList(); GuideFormIDList=new TStringList(); DivPageFormIDList=new TStringList(); LastInitFormidList=new TStringList(); LastAddFormidList=new TStringList(); SampleFormIDList=new TStringList(); ExistImgList=new TStringList(); reSizeExistImgList=new TStringList();
- NowCaseno=''; NowDocNo=''; NowDocDir=''; NowFormCode=''; NowFormName=''; NowPage=0; DisplayPath=''; Case_loandoc=''; UpLPoint={X:0,Y:0}; UpRPoint={X:0,Y:0}; DownLPoint={X:0,Y:0}; DownRPoint={X:0,Y:0}; Point_Width=''; Point_Height=''; CaseIDLength=0; FormIDLength=0; DocNoLength=0; PEFileName=''; DownFileErrStr='';
- ISB:any=null; ScanInfo:any={}; TwainShowUI=false; MpsBarcodeinf:any={}; ScanMode:any=null; Mpskey=''; Seg=0; VMode=0; NowClick=0; ScanIP=''; DisplayISB:any=null; SelectISB:any=null; SelectPage=0; NewTreeNode:any=null; MyTreeNode1:any=null; MyTreeNode2:any=null; MyTreeNode3:any=null; InitialOk=false; ShowText=''; Ext=''; SafePixel=0; OMRErrInfo:any[]=[]; ScrollRec:any[]=[]; RecHozPos=0; RecVerPos=0; ReczoomPercent=0; SortMode=false; PreMytreeNode2Name=''; HS=0; VS=0; iRate=0; Bt=0; BarCodeRotate=0; HaveAppDoc=false; PageLVclear=false; CaseCount=0; PageCount=0; Item:any=null; SampleAnchorMode=''; DownImgStatus=''; TransForm_Field=''; NowWork_No=''; CropBarcode=''; Has_Authorize=''; AttName=''; NowGuideFormID=''; NowDivPageFormID=''; FirstDocDir=''; FMaxUploadSize=''; FJpgCompression=0; Draging=false; MDown=false; FEvents:any=null;
- [key: string]: any;
- constructor(){ console.log("TCB_IMGPSScanX Initialized"); }
-}
-applyDataMixins(TCB_IMGPSScanX); applyScanMixins(TCB_IMGPSScanX); applyUIMixins(TCB_IMGPSScanX); applyUtilsMixins(TCB_IMGPSScanX);
diff --git a/separate/scanImp/CB_IMGPSScanImp_Scan.pas b/separate/scanImp/CB_IMGPSScanImp_Scan.pas
deleted file mode 100644
index b304dba..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Scan.pas
+++ /dev/null
@@ -1,1050 +0,0 @@
-function TCB_IMGPSScanX.Get_Color: OLE_COLOR;
-begin
- Result := OLE_COLOR(Color);
-end;
-
-procedure TCB_IMGPSScanX.Set_Color(Value: OLE_COLOR);
-begin
- Color := TColor(Value);
-end;
-
-procedure TCB_IMGPSScanX.StatrTwainScan;
-var ScanInfo : TScanInfo;
- i : Integer;
-begin
- if not Scanner.IsConfigured then
- begin
- ShowMessage(_Msg('TWAIN 掃瞄驅動尚未安裝'));
- Exit;
- end;
- FillChar(ScanInfo, SizeOf(ScanInfo), 0);
- ScanInfo.MultiPage := True;
- ScanInfo.ImageCount := 0;
- ScanInfo.Graphic := TTiffGraphic.Create;
- try
- ISB := nil; //規零
-//ShowMessage(IntToStr(ScanDpi));
- Scanner.RequestedXDpi := ScanDpi;
- Scanner.RequestedYDpi := ScanDpi;
- Scanner.RequestedImageFormat := ScanColor;
- Scanner.ShowUI := TwainShowUI;
-
- Try
- Scanner.OpenSource;
- Scanner.Duplex := ScanDuplex; //雙面
-
- if FMode='SAMPLESCAN' then
- Scanner.Duplex:=False;
-
- //Scanner.FEEDERENABLED := not ScanFlatCB.Checked; // 先拿掉平台
- If ScanImgSetUse Then
- begin
- Scanner.ScanBrightness := ScanBright;
- Scanner.ScanContrast := ScanContrast;
- end;
- except
- Showmessage(_Msg('掃瞄器發生錯誤!!'));
- Scanner.CloseSource;
- Exit;
- end;
- try
- Try
- Scanner.AcquireWithSourceOpen( OnAcquire, LongInt(@ScanInfo));
- Except
- Scanner.CloseSource;
- end;
- finally
- Scanner.CloseSource;
- end;
- finally
- Scanner.CloseSource;
- ScanInfo.Graphic.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.OnAcquire( const DibHandle : THandle;
- const XDpi : Word;
- const YDpi : Word;
- const CallBackData : LongInt );
-var
- pScanInfo : TpScanInfo;
- SaveFileName : String;
- SaveStream : TFileStream;
- strResults : TBarcodeStringResult;
- DeleteStm : TMemoryStream;
- isDelete : Boolean;
- iGraphic,iGraphic_First,iGraphic_sec : TTiffGraphic;
- iRect : TRect;
- JpgGr : TJpegGraphic;
- i : Integer;
- TagTxt : String;
- function Deletepage(Graphic:TDibGraphic;BlankSize:Integer):Boolean;
- begin
- DeleteStm := TMemoryStream.Create;
- DeleteStm.Seek(0,soFromBeginning);
- Graphic.AppendToStream(DeleteStm);
-
- //DeleteStm.LoadFromFile(Path+'temp.tif');
- //Isb1.Graphic.SaveToStream(DeleteStm);
- //Isb1.Graphic.AppendToStream(DeleteStm);
- if DeleteStm.Size < BlankSize Then
- Result:= True
- Else
- Result := False;
-
- DeleteStm.Free;
- //DeleteFile(Path+'temp.tif');
- end;
-begin
- pScanInfo := TpScanInfo(CallBackData);
- isDelete := False;
-
- if pScanInfo^.MultiPage then
- begin
- pScanInfo^.Graphic.AssignFromDibHandle(DibHandle);
- pScanInfo^.Graphic.XDotsPerInch := XDpi;
- pScanInfo^.Graphic.YDotsPerInch := YDpi;
- TagTxt := 'height:'+inttostr(pScanInfo^.Graphic.Height)+',width:'+inttostr(pScanInfo^.Graphic.Width);
- if pScanInfo^.Graphic.ImageFormat = ifBlackWhite then
- begin
- ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
- ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
-
- pScanInfo^.Graphic.Compression := tcGroup4;
- MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf);
- For i := 1 to MpsBarcodeinf.count do
- begin
- If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
- begin
- Rotate(pScanInfo^.Graphic,MpsBarcodeinf.r180[i]);
- MpsGetBarcode(pScanInfo^.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
- Break;
- end;
- end;
-
- //影像反向
- IF ScannerReverse then
- NegativeImg(pScanInfo^.Graphic);
- //傾斜矯正
- IF ScanDeskew Then
- DeskewImg(pScanInfo^.Graphic);
- //清黑邊
- IF BoardClear then
- CleanupBorder(pScanInfo^.Graphic);
- end
- else if pScanInfo^.Graphic.ImageFormat = ifTrueColor then
- begin
- //Ext := '.jpg';
- ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
- //ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
- For i := 1 to MpsBarcodeinf.count do
- begin
- If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
- begin
- Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
- Break;
- end;
- end;
- pScanInfo^.Graphic.Compression := tcJpeg;
- pScanInfo^.Graphic.JpegQuality := FJpgCompression;
- end
- else if pScanInfo^.Graphic.ImageFormat = ifColor256 Then
- begin
- //Ext := '.jpg';
- ConvertToGray(pScanInfo^.Graphic);
- pScanInfo^.Graphic.Compression := tcJpeg;
- pScanInfo^.Graphic.JpegQuality := FJpgCompression;
- end
- else if pScanInfo^.Graphic.ImageFormat = ifGray256 Then
- begin
- //Ext := '.jpg';
- ImageScrollBox1.Graphic.Assign(pScanInfo^.Graphic);
- ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
- For i := 1 to MpsBarcodeinf.count do
- begin
- If (MpsBarcodeinf.r180[i] <> 0) and (Length(MpsBarcodeinf.Text[i])=FormIDLength) Then
- begin
- Rotate(ISB_BW.Graphic,MpsBarcodeinf.r180[i]);
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf); //旋轉後再重取一次條碼資訊
- Break;
- end;
- end;
- pScanInfo^.Graphic.Compression := tcJpeg;
- pScanInfo^.Graphic.JpegQuality := FJpgCompression;
-//ShowMessage(IntToStr(pScanInfo^.Graphic.JpegQuality));
-//if pScanInfo^.Graphic.Compression = tcJpeg then
-//begin
-//ShowMessage('jpg');
-//end;
-
- end
- else
- begin
- //Ext := '.tif';
- pScanInfo^.Graphic.Compression := tcPackBits;
- end;
-
- end;
- //Application.ProcessMessages;
- iGraphic_First := TTiffGraphic.Create;
- iGraphic_sec := TTiffGraphic.Create;
- //iGraphic := TTiffGraphic.Create;
- try
- iGraphic_First.Assign(pScanInfo^.Graphic);
- //Application.ProcessMessages;
- if CheckNeedCrop(iGraphic_First) Then
- begin
- iRect.Left := pScanInfo^.Graphic.Width div 2; //先取左邊的影像
- iRect.Top := 0;
- iRect.Right := pScanInfo^.Graphic.Width;
- iRect.Bottom := pScanInfo^.Graphic.Height;
- CropImg(iGraphic_First,iRect);
-
- iGraphic_Sec.Assign(pScanInfo^.Graphic); //再取右邊的影像
- iRect.Left := 0;
- iRect.Top := 0;
- iRect.Right := pScanInfo^.Graphic.Width div 2;
- iRect.Bottom := pScanInfo^.Graphic.Height;
- CropImg(iGraphic_Sec,iRect);
- end;
- //iGraphic.Assign(iGraphic_First);
- iGraphic := iGraphic_First;
-
- if iGraphic.ImageFormat=ifGray256 then //20180104
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
- if iGraphic.ImageFormat=ifTrueColor then //20180104
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
-
-//ShowMessage('WTF');
- while not iGraphic.IsEmpty do
- begin
- //Application.ProcessMessages;
- IF (not DeviceDelete) or (not Deletepage(iGraphic,DeviceDeleteSize)) Then
- begin
- ImageScrollBox1.Graphic.Assign(iGraphic);
- ImageScrollBox1NewGraphic(ImageScrollBox1.Graphic);
-
- MpsGetBarcode(ISB_BW.Graphic,MpsBarcodeinf);
- For i := 1 To MpsBarcodeinf.Count Do
- Begin
- If MpsBarcodeinf.r180[i] <> 0 Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[i]);
- Break;
- End;
- End;
-
- if iGraphic.ImageFormat=ifGray256 then //20180104 因此旋轉後變為回packbits 所以要改為jpeg
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
- if iGraphic.ImageFormat=ifTrueColor then
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=FJpgCompression;
- end;
- PageEnd;
- IF PEFileName <> '' Then
- begin
- IF LowerCase(ExtractFileExt(PEFileName)) = '.tif' Then
- begin
- if FileExists( PEFileName ) then
- SaveStream := TFileStream.Create( PEFileName ,fmOpenReadWrite)
- Else
- SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- try
- SaveStream.Seek(0, soFromBeginning);
- iGraphic.AppendToStream(SaveStream);
- finally
- SaveStream.Free;
- end;
- end
- Else IF LowerCase(ExtractFileExt(PEFileName)) = '.jpg' Then
- begin
- if FileExists( PEFileName ) then
- DeleteFile(PEFileName);
- //SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- JpgGr := TJpegGraphic.Create;
- try
- JpgGr.Assign(iGraphic);
- JpgGr.SaveQuality := FJpgCompression;
- //JpgGr.AppendToStream(SaveStream);
- JpgGr.SaveToFile(PEFileName);
- finally
- JpgGr.Free;
- //SaveStream.Free;
- end;
- end;
- PageDone;
- end;
- end;
- if iGraphic = iGraphic_First then
- iGraphic := iGraphic_Sec
- else
- iGraphic.Assign(nil);
- //iGraphic.Assign(iGraphic_Sec);
- end;
- finally
- //iGraphic.Free;
- iGraphic_First.Free;
- iGraphic_Sec.Free;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.R_W_Scanini(Mode:Char); //'R'讀取;'W'寫入
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(ScaniniPath+'FBScan.ini');
- try
- case Mode of
- 'R':begin
- DeviceDelete := ini.ReadBool('DeviceDelete','Mode',Def_DeviceDelete);
- DeviceDeleteSize := ini.ReadInteger('DeviceDelete','Size_New',Def_DeviceDeleteSize);
- ScannerReverse := ini.ReadBool('Scanner','Reverse',Def_ScannerReverse);
- BoardClear := ini.ReadBool('Scanner','BoardClear',Def_BoardClear);
- //ScanDpi := ini.ReadInteger('Scanner','Dpi',Def_ScanDpi);
- //ScanDuplex := ini.ReadBool('Scanner','Duplex',Def_ScanDuplex);
- ScanRotate := ini.ReadInteger('Scanner','ScanRotate',Def_ScanRotate);
- ScanDeskew := ini.ReadBool('Scanner','ScanDeskew',Def_ScanDeskew);
- ScanBright := ini.ReadInteger('Scanner','ScanBright',Def_ScanBright);
- ScanContrast := ini.ReadInteger('Scanner','ScanContrast',Def_ScanContrast);
- ScanImgShowMode := ini.ReadInteger('Scanner','ScanImgShowMode',Def_ScanImgShowMode);
- ScanImgSetUse := ini.ReadBool('Scanner','ScanImgSetUse',Def_ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
- end;
- 'W':begin
- ini.WriteBool('DeviceDelete','Mode',DeviceDelete);
- ini.WriteInteger('DeviceDelete','Size_New',DeviceDeleteSize);
- ini.WriteBool('Scanner','Reverse',ScannerReverse);
- ini.WriteBool('Scanner','BoardClear',BoardClear);
- //ini.ReadInteger('Scanner','Dpi',ScanDpi);
- //ini.WriteBool('Scanner','Duplex',ScanDuplex);
- ini.WriteInteger('Scanner','ScanRotate',ScanRotate);
- ini.WriteBool('Scanner','ScanDeskew',ScanDeskew);
- ini.WriteInteger('Scanner','ScanBright',ScanBright);
- ini.WriteInteger('Scanner','ScanContrast',ScanContrast);
- ini.WriteInteger('Scanner','ScanImgShowMode',ScanImgShowMode);
- ini.WriteBool('Scanner','ScanImgSetUse',ScanImgSetUse); //20101110 BA說掃瞄器廠商有調設定要新增此選項是否啟動
- end;
- end;
-
- finally
- ini.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GetDefScanIni; //取得掃瞄的預設值
-var
- i : Integer;
- PARA_NO,PARA_CONTENT: String;
-begin
- Def_DeviceDelete := True;
- Def_DeviceDeleteSize := 3072; //20120821 改成3000(出現)
- Def_ScannerReverse := False;
- Def_BoardClear := False;
- Def_ScanDpi := 300;
- Def_ScanDuplex := True;
- Def_ScanRotate := 0;
- Def_ScanDeskew := False;
- Def_ScanImgSetUse := False;
- Def_ScanBright := 0;
- Def_ScanContrast := 0;
- Def_ScanImgShowMode := 2;
-
- for i := 0 to WORK_INF_List.Count - 1 do
- begin
- IF GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_USE' Then //空白頁啟動
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_DeviceDelete := True
- Else
- Def_DeviceDelete := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BLANKDEL_SIZE' Then //空白頁Size
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '' then
- Def_DeviceDeleteSize := 0
- Else
- Def_DeviceDeleteSize := Strtoint(PARA_CONTENT);
-
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_REVERSE' Then //是否需反相
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScannerReverse := True
- Else
- Def_ScannerReverse := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BOARDCLEAR' Then //是否清黑邊
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_BoardClear := True
- Else
- Def_BoardClear := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DPI' Then //掃瞄DPI
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '' then
- Def_ScanDpi := 300
- else
- Def_ScanDpi := Strtoint(PARA_CONTENT);
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DUPLEX' Then //是否雙面掃瞄
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScanDuplex := True
- Else
- Def_ScanDuplex := False;
-
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_ROTATE_MODE' Then //掃瞄時旋轉角度
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '0' then
- Def_ScanRotate := 0
- Else if PARA_CONTENT = '1' then
- Def_ScanRotate := 270
- Else if PARA_CONTENT = '2' then
- Def_ScanRotate := 180
- Else if PARA_CONTENT = '3' then
- Def_ScanRotate := 90
- Else
- Def_ScanRotate := 0;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_DESKEW' Then //是否傾斜矯正
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScanDeskew := True
- Else
- Def_ScanDeskew := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_IMGSET_USE' Then //是否使用亮度對比設定
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if UpperCase(PARA_CONTENT) ='Y' then
- Def_ScanImgSetUse := True
- else
- Def_ScanImgSetUse := False;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_BRIGHT' Then //亮度
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT ='' then
- Def_ScanBright := 0
- Else
- Def_ScanBright := strtoint(PARA_CONTENT);
- if (Def_ScanBright > 255) or (Def_ScanBright < -255) then
- Def_ScanBright := 0;
-
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_CONTRAST' Then //對比
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT ='' then
- Def_ScanContrast := 0
- Else
- Def_ScanContrast := strtoint(PARA_CONTENT);
- if (Def_ScanContrast > 255) or (Def_ScanContrast < -255) then
- Def_ScanContrast := 0;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_SHOW_MODE' Then
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- if PARA_CONTENT = '0' then
- Def_ScanImgShowMode := 0
- Else if PARA_CONTENT = '1' then
- Def_ScanImgShowMode := 1
- Else if PARA_CONTENT = '2' then
- Def_ScanImgShowMode := 2
- Else
- Def_ScanImgShowMode := 0;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'CASE_IN_TIME' Then //取進件截止時間
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- ScanDenialTime := PARA_CONTENT;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'SCAN_HINT' Then //掃描提示字串
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- ScanDenialHint := PARA_CONTENT;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'NO_SAVE_FORM_ID' Then //掃描不存檔之表單代號
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- NoSaveBarCodeList.CommaText := PARA_CONTENT;
- end
- Else if GetSQLData(WORK_INF_List,'PARA_NO',i) = 'LOCAL_PATH' Then //本機端路徑
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- ImagePath:= PARA_CONTENT;
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'GUIDEFORMID' Then //當導引頁的表單
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- GuideFormIDList.CommaText := PARA_CONTENT;
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'DIVPAGEFORMID' Then //當分案頁的表單
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- DivPageFormIDList.CommaText := PARA_CONTENT;
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'FILE_COMPRESSION' Then //20171211 jpg to tif 壓縮比
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- FJpgCompression := StrToInt(PARA_CONTENT);
- end
- Else if UpperCase(GetSQLData(WORK_INF_List,'PARA_NO',i)) = 'MAX_UPLOAD_SIZE' Then //取得 上傳大小的限制(MB)
- begin
- PARA_CONTENT := GetSQLData(WORK_INF_List,'PARA_CONTENT',i);
- FMaxUploadSize := PARA_CONTENT;
- end;
- end;
- ScanDuplex := Def_ScanDuplex;
-end;
-
-procedure TCB_IMGPSScanX.EnableImage(v:integer;Sender : TObject);
-var bmp : Tbitmap;
-begin
- DesableImage;
- bmp := TBitmap.Create;
- try
- ImageList3.GetBitmap(v,bmp);
- TBitBtn(Sender).Glyph.Assign(bmp);
- finally
- bmp.Free;
- end;
- ViewMouseMode(v);
-end;
-
-procedure TCB_IMGPSScanX.DesableImage;
-var bmp : Tbitmap;
- i : integer;
-begin
- NowClick := -1;
- bmp := Tbitmap.Create;
- try
- For i:= 0 to 6 do
- begin
- ImageList4.GetBitmap(i,bmp);
- TBitBtn(FindComponent('FC'+IntToStr(i))).Glyph.Assign(bmp);
- bmp.Width:=0;
- bmp.Handle:=0;
- end;
- finally
- bmp.Free;
- end;
- ViewMouseMode(NowClick);
-end;
-
-Procedure TCB_IMGPSScanX.DeleteImageFile(Path,FileName,CaseID:String); // 刪除檔案 (無法得到DocDir用)
-var
- i : Integer;
- FileList:TStringlist;
- DocDir : String;
-begin
-
-
- DeleteFile(Path+FileName);
- DocDir := Path2DocDir(Path,CaseID);
-//ShowMessage('DocDir='+DocDir);
- SetContextList('D',-1,CaseID,DocDir,FileName);
- {FileList:=TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- FileList.LoadFromFile(Path+'Context.dat');
- for i := 0 to FileList.Count - 1 do
- begin
- if FileName = FileList.Strings[i] then
- begin
- FileList.Delete(i);
- FileList.SaveToFile(Path+'Context.dat');
- Break;
- end;
- end;
- if FileList.Count = 0 then
- DeleteFile(Path+'Context.dat');
- finally
- FileList.Free;
- end;}
-end;
-
-Function TCB_IMGPSScanX.DeleteDocNoFileForESCAN(Path,DocNo:String):Boolean; //刪除指定DocNo文件
-var
- i,j,k: Integer;
- FName : String;
- ST1,ST2,ST3:TStringList;
-
-begin
-
- Result := False;
-//ShowMessage(DocNo);
- for i := ContextList.Count - 1 downto 0 do
- begin
- FName := ContextList.Strings[i];
- If (DocNo = FormCode2DocNo(FileName2FormCode(FName))) or (DocNo=AttName) then
- begin
- if not ISExistImg(Path+'\'+FName) then
- begin
- DeleteFile(Path+'\'+FName);
- ContextList.Delete(i);
- end;
- Result := True; //有刪到指定文件
- end;
- end;
- ContextList.SaveToFile(Path+'\Context.dat');
- ContextList.LoadFromFile(Path+'\Context.dat');
-
- if ContextList.Count=0 then
- begin
- _DelTree(Path);
- SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DownLoadImage(Path,CaseID:String):Boolean;
-begin
- Result := True;
- if not GetftpInfo(CaseID,'download') then //取案件下載方式
- begin
- DownFileErrStr := _Msg('取案件下載資訊失敗,')+HttpErrStr;
- Result := False;
- Exit;
- end;
- case TransMode of
- tsHttp:
- begin
- ShowText := _Msg('案件下載中(Http),請稍候');
- DataLoading(True,True);
- If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
- begin
- Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- end;
- tsFtp:
- begin
- ShowText := _Msg('案件下載中(Ftp),請稍候');
- DataLoading(True,True);
- SetFtpInfo;
-
- if not IIS_Ftp.FtpsConnect then
- begin
- DownFileErrStr := Format(_Msg('無法連上Ftp主機,錯誤原因:%s')+#13+'%s',[FtpErrReason,FTPSClient1.LastReceivedReply]);
- Result := False;
- Exit;
- end;
- if not IIS_Ftp.FtpsDownloadFile(FFtpExtraPath,CaseID+'.zip',Path+CaseID+'.zip',display1) then
- begin
- DownFileErrStr := Format(_Msg('錯誤原因:%s'),[FtpErrStr]);
- Result := False;
- Exit;
- end;
- ExecuteUnZip(Path+CaseID+'.zip',Path,False);
- DeleteFile(Path+CaseID+'.zip');
- end;
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.CaseResort2Scanlist(Path:String); //案件的檔案重新排序給scanlist(次文件依FormID排)
-var
- i,n,v,v1 : Integer;
- S,S1 : TStringlist;
- FormID,OldName,NewName,DocNo,Doc_Type:String;
- x : Integer;
-begin
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- if FileExists(Path+'Context.dat') then
- S.LoadFromFile(Path+'Context.dat');
- X := 0;
- for I := 1 to FORM_INF_List.Count - 1 do //在FormID有設定的 //主文件 照SQL排 20101028改
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- if FormCode2FileName(FormID,S) = '' then
- Continue;
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='1') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
- for I := 0 to FORM_INF_List.Count - 1 do //次文件 照SQL排 20110512為了某個文件要先打的原因要求改
- begin
-
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- if FormCode2FileName(FormID,S) = '' then
- Continue;
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;
-
- {for I := 0 to Doc_Inf_List.Count - 1 do //次文件 照文件代碼+掃瞄順序排 20101101改 20110512晚上又說改回來
- begin
- DocNo := GetSQLData(Doc_Inf_List,'DOC_NO',i);
- Doc_Type := GetSQLData(Doc_Inf_List,'DOC_TYPE',i);
- for n := 0 to S.Count - 1 do
- begin
- if (S.Strings[n][1] <> '*') and (FormCode2DocNo(FileName2FormCode(S.Strings[n])) = DocNo) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
-
- {for n := 0 to S.Count - 1 do //次文件 照掃瞄順序排 20101028改
- begin
- for i := 0 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- Doc_Type := GetSQLData(FORM_INF_List,'T2.DOC_TYPE',i);
- if (S.Strings[n][1] <> '*') and (FileName2FormCode(S.Strings[n]) = FormID) and (Doc_Type='2') then
- begin
- Inc(X);
- OldName := S.Strings[n];
- NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3); //從原有數量加1開始編
- S.Strings[n] := '*'+S.Strings[n];
- S1.Add(OldName+','+NewName);
- end;
- end;
- end;}
- for i := 0 to S.Count - 1 do //FormID沒設定的或附件
- begin
- if S.Strings[i][1] <> '*' then
- begin
- Inc(X);
- OldName := S.Strings[i];
- //NewName := Add_Zoo(S.Count+x,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(S.Count+x,3)+FileName2NoQuene_Filename(OldName);
- S.Strings[i] := '*'+S.Strings[i];
- S1.Add(OldName+','+NewName);
- end;
- end;
-
- S.Clear;
- for i := 0 to S1.Count - 1 do //開始轉換檔名
- begin
- v := Pos(',',S1.Strings[i]);
- v1 := length(S1.Strings[i]);
- OldName := copy(S1.Strings[i],1,v-1);
- NewName := copy(S1.Strings[i],v+1,v1-v);
- //if FileExists(Path+OldName) then
- //begin
- //ReNameFile(Path+OldName,Path+NewName);
- S.Add(NewName);
- S.SaveToFile(Path+'scanlist.dat');
- //end;
- end;
- ReSortFileName2Scanlist(Path);
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.GetSelectImageFile;
-var
- i : Integer;
- FormID,FormName,DocNo : String;
- PreNode2Name : String;
- iFormID : String;
- iISBName : String;
- iISB : TImageScrollBox;
-begin
- NowSelectFileList.Clear;
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- NowSelectFileList.Add(iISB.FileName);
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ParserPoint(S:String); //解析十字點的字串
-var
- PointList : TStringlist;
- Rect : TRect;
-begin
- PointList := TStringlist.Create;
- try
- PointList.Text := S;
- IF PointList.Count <> 6 Then
- begin
- UpLPoint := Str2Point('0,0');
- UpRPoint := Str2Point('0,0');
- DownLPoint := Str2Point('0,0');
- DownRPoint := Str2Point('0,0');
- Point_Width := '0';
- Point_Height := '0';
- end
- Else
- begin
- UpLPoint := Str2Point(PointList[0]);
- DownLPoint := Str2Point(PointList[1]);
- UpRPoint := Str2Point(PointList[2]);
- DownRPoint := Str2Point(PointList[3]);
- Point_Width := PointList[4];
- Point_Height := PointList[5];
- end;
- finally
- PointList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckScanDenialTime:Boolean;
-Var
- NowTime : String;
-begin
- NowTime := GetBalance2Time(Balance);
- NowTime := Copy(NowTime,1,2)+':'+Copy(NowTime,3,2)+':'+Copy(NowTime,5,2);
- Result := True;
- if ScanDenialTime <> '' then
- begin
- if StrtoTime(NowTime) >= StrtoTime(ScanDenialTime) then
- Result := False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.initkscan;
-begin
- ScanDuplexCB.Enabled := False;
- if Scanner.IsConfigured then
- begin
- try
- Scanner.OpenSource;
- IF Scanner.DuplexCap > 0 Then
- begin
- ScanDuplexCB.Enabled := True;
- end;
- {IF Scanner.FEEDERCAP Then
- ScanFlatCB.Enabled := True; }
- Except
- DataLoading(False,True);
- Exit;
- end;
- Scanner.CloseSource;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckNeedCrop(Graphic:TDibGraphic):Boolean; //是否是A3要切影像
-Var
- i,FormIDCount : Integer;
-begin
- Result := False;
- FormIDCount := 0;
- if (Graphic.Width > (4 * Graphic.XDotsPerInch)) {or (Graphic.Height > (15 * Graphic.YDotsPerInch))} then
- //if (Graphic.Width > (6 * Graphic.XDotsPerInch)) then
- begin
- for I := 1 to MpsBarcodeinf.Count do
- begin
- if (Length(MpsBarcodeinf.Text[i])=FormIDLength) and FormIDExists(MpsBarcodeinf.Text[i],False,0) then
- begin
- inc(FormIDCount);
- end;
- end;
-
- end;
-
-//ShowMessage('FormIDCount='+IntToStr(FormIDCount)+#10#13+'MpsBarcodeinf.count='+IntToStr(MpsBarcodeinf.count));
- if FormIDCount = 2 then
- begin
- Result := True;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.MoveImage(Path:String;mp:Integer); //移動頁數
-var
- i,n,inx:Integer;
- FList,D_Flist:TStringlist;
-begin
- FList := TStringlist.Create;
- D_Flist := TStringlist.Create;
- try
- FList.LoadFromFile(Path+'Context.dat');
- //Showmessage(Path);
- //Showmessage(Flist.Text);
- for i := 0 to FList.Count - 1 do
- begin
- Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
- Flist.Strings[i]:= '@'+Flist.Strings[i];
- end;
-
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
- D_Flist.Add(Flist.Strings[inx-1]);
- //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
- end;
- end;
- //Showmessage('aa');
- for i := 0 to D_Flist.Count -1 do
- begin
- for n := 0 to FList.Count - 1 do
- begin
- //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
- if Flist.Strings[n]=D_Flist.Strings[i] then
- begin
- Flist.Delete(n);
- Break;
- end;
- end;
- end;
- //Showmessage('bb');
- for i := 0 to D_Flist.Count - 1 do
- begin
- Flist.Insert(mp-1+i,D_Flist.Strings[i]);
- end;
-
- Flist.SaveToFile(Path+'Context.dat');
- //Showmessage(Flist.Text);
- //Showmessage('CC');
- ReSortFileName(Path);
- TreeView1click(self);
-
-
- finally
- FList.Free;
- D_Flist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2ScanPage(FileName:String):Integer; //從檔名轉出掃瞄頁數
-Var
- v : Integer;
- FName : String;
-begin
- FName := ExtractFileName(FileName);
- v := Pos('_',FName);
- if v = 0 then //附件
- v := pos('.',FName);
- Result := Strtoint(Copy(FName,1,v-1));
-end;
-
-Procedure TCB_IMGPSScanX.ReSortFileName2Scanlist(Path:String); //檔名重新排序給Scanlist.dat
-var
- i : Integer;
- OldName,NewName : String;
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- if FileExists(Path+'scanlist.dat') then
- S.LoadFromFile(Path+'scanlist.dat');
- for i := 0 to S.Count - 1 do
- begin
- OldName := S.Strings[i];
- //NewName := Add_Zoo(i+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(i+1,3)+FileName2NoQuene_Filename(OldName);
- //ReNameFile(Path+OldName,Path+NewName);
- S.Strings[i] := NewName;
- end;
- S.SaveToFile(Path+'scanlist.dat');
- finally
- S.Free;
- end;
-end;
-
-
-function TCB_IMGPSScanX.Get_imgdpi: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_scancolor: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_imgdpi(const Value: WideString);
-begin
- if Value ='' then
- begin
- FImgDPI := 300;
- ScanDpi := FImgDPI;
- end
- else
- begin
- FImgDPI := StrToInt(Value);
- ScanDpi := FImgDPI;
- Def_ScanDpi := FImgDPI;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.Set_scancolor(const Value: WideString);
-begin
- if value='' then
- begin
- FScanColor := 0;
- ScanColor := ifBlackWhite;
- end
- else
- begin
- FScanColor := StrToInt(Value);
- ScanColor := ifBlackWhite;
- end;
-
- if FScanColor = 1 then
- begin
- ScanColor := ifGray256 ;
- end;
-
- if FScanColor = 2 then
- begin
- ScanColor := ifTrueColor ;
- end;
-
-end;
-
diff --git a/separate/scanImp/CB_IMGPSScanImp_Scan.ts b/separate/scanImp/CB_IMGPSScanImp_Scan.ts
deleted file mode 100644
index a9d5dcf..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Scan.ts
+++ /dev/null
@@ -1,124 +0,0 @@
-import * as fs from 'fs'; import * as path from 'path';
-export function applyScanMixins(cls:any){
- cls.prototype.StatrTwainScan=function(){
- if(!this.Scanner.IsConfigured){this.ShowMessage(this._Msg('TWAIN 掃瞄驅動尚未安裝'));return;}
- let ScanInfo={MultiPage:true,ImageCount:0,Graphic:new this.TTiffGraphic()};
- try{this.ISB=null;this.Scanner.RequestedXDpi=this.ScanDpi;this.Scanner.RequestedYDpi=this.ScanDpi;this.Scanner.RequestedImageFormat=this.ScanColor;this.Scanner.ShowUI=this.TwainShowUI;
- try{this.Scanner.OpenSource();this.Scanner.Duplex=this.ScanDuplex;if(this.FMode==='SAMPLESCAN')this.Scanner.Duplex=false;if(this.ScanImgSetUse){this.Scanner.ScanBrightness=this.ScanBright;this.Scanner.ScanContrast=this.ScanContrast;}}catch(e){this.Showmessage(this._Msg('掃瞄器發生錯誤!!'));this.Scanner.CloseSource();return;}
- try{this.Scanner.AcquireWithSourceOpen(this.OnAcquire.bind(this),ScanInfo);}catch(e){this.Scanner.CloseSource();}}finally{this.Scanner.CloseSource();ScanInfo.Graphic.Free();}
- };
- cls.prototype.OnAcquire=function(DibHandle:any,XDpi:any,YDpi:any,CallBackData:any){ this.PageEnd(); this.PageDone(); };
- cls.prototype.PageDone=function(){
- this.ScanInfo.ImageCount++; let ISB;
- if(this.ScanMode==='smNew'){if(this.ScanImgShowMode===0||this.ScanImgShowMode===1){ISB=this.FindISB2View(this.VMode);ISB.AntiAliased=this.ScanImgShowMode===0;ISB.ZoomMode='zmFittopage';ISB.LoadFromFile(this.PEFileName,1);}}
- else if(this.ScanMode==='smReplace'){this.DisplayISB.LoadFromFile(this.PEFileName,1);}
- else if(this.ScanMode==='smInsert'||this.ScanMode==='smSample'){ISB=this.FindISB2View(this.VMode);ISB.ZoomMode='zmFittopage';ISB.LoadFromFile(this.PEFileName,1);}
- };
- cls.prototype.PageEnd=function(){
- if(this.ScanMode==='smNew'){
- this.ScanSaveFilename='';let FormID=this.BarCode2FormID();
- if(FormID!==''&&this.ISDivPageFormID(FormID))this.NowDivPageFormID=FormID;
- if(FormID!==''&&this.ISGuideFormID(FormID))this.NowGuideFormID=FormID;
- if(!this.FindDivFormCode(FormID)&&this.NowGuideFormID!=='')FormID=this.NowGuideFormID;
- let DocNo=this.FormCode2DocNo(FormID);
- if(FormID!==''&&this.FindDivFormCode(FormID)&&this.NowDivPageFormID!==''){
- this.ScanInfo.ImageCount=0;this.ClearView(1);this.ContextList.Clear();this.Context_DocnoList.Clear();this.ClearCaseIndex();this.ScanCaseno=this.BarCode2CaseID();this.NowGuideFormID='';this.NowDivPageFormID='';
- }
- if(this.ScanCaseno==='')this.ScanCaseno=this.GetNoNameCase(this.ImageSavePath);
- this.ImageSavePath=this.ImagePath;
- if(this.ScanInfo.ImageCount===0&&fs.existsSync(path.join(this.ImageSavePath,this.ScanCaseno))){this._DelTree(path.join(this.ImageSavePath,this.ScanCaseno));this.SetCaseList('D',-1,this.ScanCaseno);}
- this.ScanPath=path.join(this.ImageSavePath,this.ScanCaseno);this.Str2Dir(this.ScanPath);
- this.ScanDocDir=this.FindLastestDocDir(this.ScanCaseno,DocNo);
- if(this.DocNoNeedDiv(DocNo)){if((this.FormCode2Page(FormID)==='01'&&this.GetDocDir_Page(this.ScanCaseno,this.ScanDocDir)>0)||this.ScanDocDir==='')this.ScanDocDir=this.DocNo2DocNoDir(path.join(this.ImageSavePath,this.ScanCaseno),DocNo);}
- else{this.ScanDocDir=DocNo!==''?DocNo:this.DocNo2DocNoDir(path.join(this.ImageSavePath,this.ScanCaseno),DocNo);}
- if(this.FirstDocDir==='')this.FirstDocDir=this.ScanDocDir;
- this.ScanPath=path.join(this.ImageSavePath,this.ScanCaseno,this.ScanDocDir);
- if(!fs.existsSync(this.ScanPath)&&this.ScanDocDir!==this.AttName)this.SetDocNoList('A',-1,this.ScanCaseno,this.ScanDocDir,'1');
- this.Str2Dir(this.ScanPath);
- this.ScanSaveFilename=FormID===''?this.Add_Zoo(this.GetDocDir_Page(this.ScanCaseno,this.ScanDocDir)+1,3)+this.Ext:this.Add_Zoo(this.GetDocDir_Page(this.ScanCaseno,this.ScanDocDir)+1,3)+'_'+FormID+this.Ext;
- if(!this.FindNoSaveBarCode()){if(this.ScanInfo.ImageCount===0){this.SetCaseList('A',-1,this.ScanCaseno);this.WriteCaseIndex(path.join(this.ImageSavePath,this.ScanCaseno));}this.SetContextList('A',-1,this.ScanCaseno,this.ScanDocDir,this.ScanSaveFilename);this.PEFileName=path.join(this.ScanPath,this.ScanSaveFilename);}
- } else if(this.ScanMode==='smReplace') {
- if(this.ScanInfo.ImageCount===0){fs.unlinkSync(path.join(this.ScanPath,this.ScanSaveFilename));this.PEFileName=path.join(this.ScanPath,this.ScanSaveFilename);}
- } else if(this.ScanMode==='smInsert') {
- this.ScanSaveFilename='';let FormID=this.BarCode2FormID();if(FormID!==''&&this.ISGuideFormID(FormID))this.NowGuideFormID=FormID;if(this.NowGuideFormID!=='')FormID=this.NowGuideFormID;
- let DocNo=this.FormCode2DocNo(FormID);this.ScanDocDir=this.FindLastestDocDir(this.ScanCaseno,DocNo);
- if(this.FMode==='ESCAN'&&this.FModeName===this._Msg('補件掃描'))this.ScanDocDir=this.FindLastestDocDirForPage(this.ScanCaseno,DocNo,FormID);
- if(this.DocNoNeedDiv(DocNo)){if((this.FormCode2Page(FormID)==='01'&&this.GetDocDir_Page(this.ScanCaseno,this.ScanDocDir)>0)||this.ScanDocDir===''){this.ScanInfo.ImageCount=0;this.ScanDocDir=this.DocNo2DocNoDir(path.join(this.ImageSavePath,this.ScanCaseno),DocNo);}}
- else{this.ScanDocDir=DocNo!==''?DocNo:this.DocNo2DocNoDir(path.join(this.ImageSavePath,this.ScanCaseno),DocNo);}
- if(this.FirstDocDir==='')this.FirstDocDir=this.ScanDocDir;
- this.ScanPath=path.join(this.ImageSavePath,this.ScanCaseno,this.ScanDocDir);
- if(!fs.existsSync(this.ScanPath)&&this.ScanDocDir!=='Attach'&&this.ScanDocDir!=='S_Attach')this.SetDocNoList('A',-1,this.ScanCaseno,this.ScanDocDir,'1');
- this.Str2Dir(this.ScanPath);
- this.ScanSaveFilename=FormID===''?this.Add_Zoo(this.GetDocDir_Page(this.ScanCaseno,this.ScanDocDir)+1,3)+this.Ext:this.Add_Zoo(this.GetDocDir_Page(this.ScanCaseno,this.ScanDocDir)+1,3)+'_'+FormID+this.Ext;
- this.SetContextList('A',-1,this.ScanCaseno,this.ScanDocDir,this.ScanSaveFilename);this.PEFileName=path.join(this.ScanPath,this.ScanSaveFilename);
- } else if(this.ScanMode==='smSample') {
- if(this.ScanInfo.ImageCount===0){fs.unlinkSync(path.join(this.ScanPath,this.ScanSaveFilename));this.PEFileName=path.join(this.ScanPath,this.ScanSaveFilename);let BarStr='';for(let i=1;i<=this.MpsBarCodeinf.Count;i++)BarStr+=this.MpsBarCodeinf.Text[i];this.Showmessage(this._Msg('辨識到的BarCode:\n')+BarStr);}
- }
- };
- cls.prototype.R_W_Scanini=function(m:string){
- let ini=new this.Tinifile(path.join(this.ScaniniPath,'FBScan.ini'));
- if(m==='R'){this.DeviceDelete=ini.ReadBool('DeviceDelete','Mode',this.Def_DeviceDelete);this.DeviceDeleteSize=ini.ReadInteger('DeviceDelete','Size_New',this.Def_DeviceDeleteSize);this.ScannerReverse=ini.ReadBool('Scanner','Reverse',this.Def_ScannerReverse);this.BoardClear=ini.ReadBool('Scanner','BoardClear',this.Def_BoardClear);this.ScanRotate=ini.ReadInteger('Scanner','ScanRotate',this.Def_ScanRotate);this.ScanDeskew=ini.ReadBool('Scanner','ScanDeskew',this.Def_ScanDeskew);this.ScanBright=ini.ReadInteger('Scanner','ScanBright',this.Def_ScanBright);this.ScanContrast=ini.ReadInteger('Scanner','ScanContrast',this.Def_ScanContrast);this.ScanImgShowMode=ini.ReadInteger('Scanner','ScanImgShowMode',this.Def_ScanImgShowMode);this.ScanImgSetUse=ini.ReadBool('Scanner','ScanImgSetUse',this.Def_ScanImgSetUse);}
- else if(m==='W'){ini.WriteBool('DeviceDelete','Mode',this.DeviceDelete);ini.WriteInteger('DeviceDelete','Size_New',this.DeviceDeleteSize);ini.WriteBool('Scanner','Reverse',this.ScannerReverse);ini.WriteBool('Scanner','BoardClear',this.BoardClear);ini.WriteInteger('Scanner','ScanRotate',this.ScanRotate);ini.WriteBool('Scanner','ScanDeskew',this.ScanDeskew);ini.WriteInteger('Scanner','ScanBright',this.ScanBright);ini.WriteInteger('Scanner','ScanContrast',this.ScanContrast);ini.WriteInteger('Scanner','ScanImgShowMode',this.ScanImgShowMode);ini.WriteBool('Scanner','ScanImgSetUse',this.ScanImgSetUse);}
- ini.Free();
- };
- cls.prototype.GetDefScanIni=function(){
- this.Def_DeviceDelete=true;this.Def_DeviceDeleteSize=3072;this.Def_ScannerReverse=false;this.Def_BoardClear=false;this.Def_ScanDpi=300;this.Def_ScanDuplex=true;this.Def_ScanRotate=0;this.Def_ScanDeskew=false;this.Def_ScanImgSetUse=false;this.Def_ScanBright=0;this.Def_ScanContrast=0;this.Def_ScanImgShowMode=2;
- for(let i=0;i<this.WORK_INF_List.Count;i++){
- let pn=this.GetSQLData(this.WORK_INF_List,'PARA_NO',i),pc=this.GetSQLData(this.WORK_INF_List,'PARA_CONTENT',i);
- if(pn==='SCAN_BLANKDEL_USE')this.Def_DeviceDelete=pc.toUpperCase()==='Y';
- else if(pn==='SCAN_BLANKDEL_SIZE')this.Def_DeviceDeleteSize=pc===''?0:parseInt(pc);
- else if(pn==='SCAN_REVERSE')this.Def_ScannerReverse=pc.toUpperCase()==='Y';
- else if(pn==='SCAN_BOARDCLEAR')this.Def_BoardClear=pc.toUpperCase()==='Y';
- else if(pn==='SCAN_DPI')this.Def_ScanDpi=pc===''?300:parseInt(pc);
- else if(pn==='SCAN_DUPLEX')this.Def_ScanDuplex=pc.toUpperCase()==='Y';
- else if(pn==='SCAN_ROTATE_MODE')this.Def_ScanRotate=pc==='1'?270:pc==='2'?180:pc==='3'?90:0;
- else if(pn==='SCAN_DESKEW')this.Def_ScanDeskew=pc.toUpperCase()==='Y';
- else if(pn==='SCAN_IMGSET_USE')this.Def_ScanImgSetUse=pc.toUpperCase()==='Y';
- else if(pn==='SCAN_BRIGHT')this.Def_ScanBright=pc===''?0:parseInt(pc);
- else if(pn==='SCAN_CONTRAST')this.Def_ScanContrast=pc===''?0:parseInt(pc);
- else if(pn==='SCAN_SHOW_MODE')this.Def_ScanImgShowMode=pc==='0'?0:pc==='1'?1:2;
- else if(pn==='CASE_IN_TIME')this.ScanDenialTime=pc;
- else if(pn==='SCAN_HINT')this.ScanDenialHint=pc;
- else if(pn==='NO_SAVE_FORM_ID')this.NoSaveBarCodeList.CommaText=pc;
- else if(pn==='LOCAL_PATH')this.ImagePath=pc;
- else if(pn.toUpperCase()==='GUIDEFORMID')this.GuideFormIDList.CommaText=pc;
- else if(pn.toUpperCase()==='DIVPAGEFORMID')this.DivPageFormIDList.CommaText=pc;
- else if(pn.toUpperCase()==='FILE_COMPRESSION')this.FJpgCompression=parseInt(pc);
- else if(pn.toUpperCase()==='MAX_UPLOAD_SIZE')this.FMaxUploadSize=pc;
- }
- this.ScanDuplex=this.Def_ScanDuplex;
- };
- cls.prototype.EnableImage=function(v:number,s:any){this.DesableImage();let bmp=new this.TBitmap();this.ImageList3.GetBitmap(v,bmp);s.Glyph.Assign(bmp);bmp.Free();this.ViewMouseMode(v);};
- cls.prototype.DesableImage=function(){this.NowClick=-1;let bmp=new this.TBitmap();for(let i=0;i<=6;i++){this.ImageList4.GetBitmap(i,bmp);this.FindComponent('FC'+i).Glyph.Assign(bmp);bmp.Width=0;bmp.Handle=0;}bmp.Free();this.ViewMouseMode(this.NowClick);};
- cls.prototype.DeleteImageFile=function(p:string,f:string,c:string){if(fs.existsSync(path.join(p,f)))fs.unlinkSync(path.join(p,f));let d=this.Path2DocDir(p,c);this.SetContextList('D',-1,c,d,f);};
- cls.prototype.DeleteDocNoFileForESCAN=function(p:string,d:string){
- let r=false;
- for(let i=this.ContextList.Count-1;i>=0;i--){
- let f=this.ContextList.Strings[i];
- if(this.FormCode2DocNo(this.FileName2FormCode(f))===d||d===this.AttName){
- if(!this.ISExistImg(path.join(p,f))){fs.unlinkSync(path.join(p,f));this.ContextList.Delete(i);} r=true;
- }
- }
- this.ContextList.SaveToFile(path.join(p,'Context.dat'));this.ContextList.LoadFromFile(path.join(p,'Context.dat'));
- if(this.ContextList.Count===0){this._DelTree(p);this.SetDocNoList('D',-1,this.NowCaseNo,this.NowDocDir,'');} return r;
- };
- cls.prototype.DownLoadImage=function(p:string,c:string){return true;};
- cls.prototype.CaseResort2Scanlist=function(p:string){
- let S=new this.TStringlist(),S1=new this.TStringlist();if(fs.existsSync(path.join(p,'Context.dat')))S.LoadFromFile(path.join(p,'Context.dat'));
- let x=0;
- for(let i=1;i<this.FORM_INF_List.Count;i++){let fi=this.GetSQLData(this.FORM_INF_List,'T1.FORM_ID',i);if(this.FormCode2FileName(fi,S)==='')continue;let dt=this.GetSQLData(this.FORM_INF_List,'T2.DOC_TYPE',i);for(let n=0;n<S.Count;n++){if(S.Strings[n][0]!=='*'&&this.FileName2FormCode(S.Strings[n])===fi&&dt==='1'){x++;let on=S.Strings[n];let nn=this.Add_Zoo(S.Count+x,3)+this.FileName2NoQuene_Filename(on);S.Strings[n]='*'+S.Strings[n];S1.Add(`${on},${nn}`);}}}
- for(let i=0;i<this.FORM_INF_List.Count;i++){let fi=this.GetSQLData(this.FORM_INF_List,'T1.FORM_ID',i);if(this.FormCode2FileName(fi,S)==='')continue;let dt=this.GetSQLData(this.FORM_INF_List,'T2.DOC_TYPE',i);for(let n=0;n<S.Count;n++){if(S.Strings[n][0]!=='*'&&this.FileName2FormCode(S.Strings[n])===fi&&dt==='2'){x++;let on=S.Strings[n];let nn=this.Add_Zoo(S.Count+x,3)+this.FileName2NoQuene_Filename(on);S.Strings[n]='*'+S.Strings[n];S1.Add(`${on},${nn}`);}}}
- for(let i=0;i<S.Count;i++){if(S.Strings[i][0]!=='*'){x++;let on=S.Strings[i];let nn=this.Add_Zoo(S.Count+x,3)+this.FileName2NoQuene_Filename(on);S.Strings[i]='*'+S.Strings[i];S1.Add(`${on},${nn}`);}}
- S.Clear();for(let i=0;i<S1.Count;i++){let v=S1.Strings[i].indexOf(',');let nn=S1.Strings[i].substring(v+1);S.Add(nn);S.SaveToFile(path.join(p,'scanlist.dat'));}
- this.ReSortFileName2Scanlist(p);S.Free();S1.Free();
- };
- cls.prototype.GetSelectImageFile=function(){this.NowSelectFileList.Clear();for(let i=0;i<this.ComponentCount;i++){if(this.Components[i] instanceof this.TShape&&this.Components[i].Name.startsWith('SP')){let isn=this.ShapeName2PreViewISBName(this.Components[i]);let isb=this.FindComponent(isn);this.NowSelectFileList.Add(isb.FileName);}}};
- cls.prototype.ParserPoint=function(s:string){let p=new this.TStringlist();p.Text=s;if(p.Count!==6){this.UpLPoint={X:0,Y:0};this.UpRPoint={X:0,Y:0};this.DownLPoint={X:0,Y:0};this.DownRPoint={X:0,Y:0};this.Point_Width='0';this.Point_Height='0';}else{this.UpLPoint=this.Str2Point(p.Strings[0]);this.DownLPoint=this.Str2Point(p.Strings[1]);this.UpRPoint=this.Str2Point(p.Strings[2]);this.DownRPoint=this.Str2Point(p.Strings[3]);this.Point_Width=p.Strings[4];this.Point_Height=p.Strings[5];}p.Free();};
- cls.prototype.CheckScanDenialTime=function(){let nt=this.GetBalance2Time(this.Balance);nt=nt.substring(0,2)+':'+nt.substring(2,4)+':'+nt.substring(4,6);let r=true;if(this.ScanDenialTime!=='')if(this.StrtoTime(nt)>=this.StrtoTime(this.ScanDenialTime))r=false;return r;};
- cls.prototype.initkscan=function(){this.ScanDuplexCB.Enabled=false;if(this.Scanner.IsConfigured){try{this.Scanner.OpenSource();if(this.Scanner.DuplexCap>0)this.ScanDuplexCB.Enabled=true;}catch(e){this.DataLoading(false,true);return;}this.Scanner.CloseSource();}};
- cls.prototype.CheckNeedCrop=function(g:any){let fc=0;if(g.Width>(4*g.XDotsPerInch)){for(let i=1;i<=this.MpsBarcodeinf.Count;i++)if(this.MpsBarcodeinf.Text[i].length===this.FormIDLength&&this.FormIDExists(this.MpsBarcodeinf.Text[i],false,0))fc++;}return fc===2;};
- cls.prototype.MoveImage=function(p:string,m:number){let fl=new this.TStringlist(),df=new this.TStringlist();fl.LoadFromFile(path.join(p,'Context.dat'));for(let i=0;i<fl.Count;i++){fs.renameSync(path.join(p,fl.Strings[i]),path.join(p,'@'+fl.Strings[i]));fl.Strings[i]='@'+fl.Strings[i];}for(let i=0;i<this.ComponentCount;i++){if(this.Components[i] instanceof this.TShape&&this.Components[i].Name.startsWith('SP')){let inx=parseInt(this.Components[i].Name.substring(2));df.Add(fl.Strings[inx-1]);}}for(let i=0;i<df.Count;i++){for(let n=0;n<fl.Count;n++)if(fl.Strings[n]===df.Strings[i]){fl.Delete(n);break;}}for(let i=0;i<df.Count;i++)fl.Insert(m-1+i,df.Strings[i]);fl.SaveToFile(path.join(p,'Context.dat'));this.ReSortFileName(p);this.TreeView1Click(this);fl.Free();df.Free();};
- cls.prototype.FileName2ScanPage=function(f:string){let n=path.basename(f),v=n.indexOf('_');if(v===-1)v=n.indexOf('.');return parseInt(n.substring(0,v));};
- cls.prototype.ReSortFileName2Scanlist=function(p:string){let s=new this.TStringlist();if(fs.existsSync(path.join(p,'scanlist.dat')))s.LoadFromFile(path.join(p,'scanlist.dat'));for(let i=0;i<s.Count;i++)s.Strings[i]=this.Add_Zoo(i+1,3)+this.FileName2NoQuene_Filename(s.Strings[i]);s.SaveToFile(path.join(p,'scanlist.dat'));s.Free();};
- cls.prototype.Get_imgdpi=function(){return this.FImgDPI.toString();};cls.prototype.Get_scancolor=function(){return this.FScanColor.toString();};cls.prototype.Set_imgdpi=function(v:string){this.FImgDPI=v===''?300:parseInt(v);this.ScanDpi=this.FImgDPI;this.Def_ScanDpi=this.FImgDPI;};cls.prototype.Set_scancolor=function(v:string){this.FScanColor=v===''?0:parseInt(v);this.ScanColor=this.FScanColor===2?'ifTrueColor':(this.FScanColor===1?'ifGray256':'ifBlackWhite');};
-}
diff --git a/separate/scanImp/CB_IMGPSScanImp_UI.pas b/separate/scanImp/CB_IMGPSScanImp_UI.pas
deleted file mode 100644
index d4378ac..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_UI.pas
+++ /dev/null
@@ -1,6592 +0,0 @@
-procedure TCB_IMGPSScanX.WMMOUSEWHEEL(var message: TWMMouseWheel);
-var
- I: Integer;
- iISB : TImageScrollBox;
-begin
- inherited;
- //lb1.Caption:=IntToStr(message.Keys);
- if (message.WheelDelta = WHEEL_DELTA) Then
- begin
-
- if ScrollBox1.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
- if DisplayISB <> nil then
- begin
- if (DisplayISB.Focused) and (message.Keys=0) then
- begin
- DisplayISB.VertScrollBar.Increment := 50;
- DisplayISB.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
-
- if (DisplayISB.Focused) and (message.Keys=50) then
- begin
- DisplayISB.ZoomMode := zmPercent;
- if DisplayISB.ZoomPercent < 90 then
- DisplayISB.ZoomPercent := DisplayISB.ZoomPercent+10;
- end;
-
- end;
- i:=0;
- while FindComponent(ISBName+inttostr(i)) <> nil do
- begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- if iISB.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
- inc(i);
- end;
-
- end
- else if (message.WheelDelta = -WHEEL_DELTA) then
- begin
-
- if ScrollBox1.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
- end;
- if DisplayISB <> nil then
- begin
- if (DisplayISB.Focused) and (message.Keys=0) then
- begin
- DisplayISB.VertScrollBar.Increment := 50;
- DisplayISB.Perform(WM_VSCROLL,SB_LINEDOWN,0);
- end;
- if (DisplayISB.Focused) and (message.Keys=50) then
- begin
- DisplayISB.ZoomMode := zmPercent;
- if DisplayISB.ZoomPercent > 10 then
- DisplayISB.ZoomPercent := DisplayISB.ZoomPercent-10;
- end;
-
-
- end;
-
- i:=0;
- while FindComponent(ISBName+inttostr(i)) <> nil do
- begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- if iISB.Focused then
- begin
- ScrollBox1.VertScrollBar.Increment := 50;
- ScrollBox1.Perform(WM_VSCROLL,SB_Lineup,0);
- end;
- inc(i);
- end;
-
- end;
-
-
-end;
-
-procedure TCB_IMGPSScanX.WNoteBtnClick(Sender: TObject);
-var
- i,n,v,v1:Integer;
- SortMemoForm : TSortMemoForm;
- M_Content,M_ID,M_Name : String;
- S : TStringlist;
-begin
- ShowText := _Msg('備註輸入中,請稍候');
- DataLoading(True,True);
- SortMemoForm := TSortMemoForm.Create(Self);
- S := TStringlist.Create;
- try
- InitialLanguage(SortMemoForm); //載入多國語言
-
- SortMemoForm.ContentList := TStringlist.Create; //註記內容
- SortMemoForm.MemoIDList := TStringlist.Create; //註記代號
- SortMemoForm.MemoNameList := TStringlist.Create; //註記名稱
-
- for i := 1 to MEMO_INF_List.Count - 1 do
- begin
- M_Content := GetSQLData(MEMO_INF_List,'T1.MEMO_CONTENT',i);
- M_ID := GetSQLData(MEMO_INF_List,'T1.MEMO_TYPE',i);
- M_Name := GetSQLData(MEMO_INF_List,'T2.MEMO_TYPE_NAME',i);
- SortMemoForm.ComboBox1.Items.Add(M_Name+'-->'+M_Content);
- SortMemoForm.ContentList.Add(M_Content); //註記內容
- SortMemoForm.MemoIDList.Add(M_ID); //註記代號
- SortMemoForm.MemoNameList.Add(M_Name); //註記名稱
- end;
- if FileExists(DisplayPath+'Scan_Memo.dat') then
- begin
- S.LoadFromFile(DisplayPath+'Scan_Memo.dat');
- for I := 0 to S.Count - 1 do
- begin
- v := Pos(',',S.Strings[i]);
- v1 := length(S.Strings[i]);
- M_ID := copy(S.Strings[i],1,v-1);
- M_Name := MemoInfoTransfer('ID',M_ID,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
- M_Content := copy(S.Strings[i],v+1,v1-v);
- SortMemoForm.ResoureMemo.Add(M_Name+'-->'+M_Content);
- With SortMemoForm.MemoLV.Items.Add do
- begin
- Caption := M_Content;
- SubItems.Add(M_Name);
- end;
- end;
- end;
-
- if SortMemoForm.ShowModal = mrOk then
- begin
- S.Clear;
- for I := 0 to SortMemoForm.MemoLV.Items.Count - 1 do
- begin
- M_Content := SortMemoForm.MemoLV.Items.Item[i].Caption;
- M_Name := SortMemoForm.MemoLV.Items.Item[i].SubItems.Strings[0];
- M_ID := MemoInfoTransfer('NAME',M_Name,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);
- S.Add(M_ID+','+M_Content);
- end;
- S.SaveToFile(DisplayPath+'Scan_Memo.dat');
- end;
- SortMemoForm.ContentList.Free; //註記內容
- SortMemoForm.MemoIDList.Free; //註記代號
- SortMemoForm.MemoNameList.Free; //註記名稱
- finally
- SortMemoForm.Free;
- S.Free;
- DataLoading(False,False);
- if Ch_WriteNote then
- begin
- Ch_WriteNote := False;
- CaseHelpBtnClick(self);
- ErrIndex := 0;
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.EventSinkChanged(const EventSink: IUnknown);
-begin
- FEvents := EventSink as ICB_IMGPSScanXEvents;
- inherited EventSinkChanged(EventSink);
-end;
-
-procedure TCB_IMGPSScanX.FC0Click(Sender: TObject);
-begin
- IF NowClick = 0 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(0 ,Sender);
- NowClick := 0;
-end;
-
-procedure TCB_IMGPSScanX.FC1Click(Sender: TObject);
-begin
- IF NowClick = 1 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(1 ,Sender);
- NowClick := 1;
-end;
-
-procedure TCB_IMGPSScanX.FC2Click(Sender: TObject);
-begin
- IF NowClick = 2 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(2,Sender);
- NowClick := 2;
-end;
-
-procedure TCB_IMGPSScanX.FC3Click(Sender: TObject);
-begin
- IF NowClick = 3 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(3 ,Sender);
- NowClick := 3;
-end;
-
-procedure TCB_IMGPSScanX.FC4Click(Sender: TObject);
-begin
- IF NowClick = 4 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(4 ,Sender);
- NowClick := 4;
-end;
-
-procedure TCB_IMGPSScanX.FC5Click(Sender: TObject);
-begin
- IF NowClick = 5 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(5 ,Sender);
- NowClick := 5;
-end;
-
-procedure TCB_IMGPSScanX.FC6Click(Sender: TObject);
-begin
- {IF NowClick = 6 Then
- begin
- DesableImage;
- Exit;
- end;
- EnableImage(6 ,Sender);
- NowClick := 6;}
- PM605Click(nil);
-end;
-
-procedure TCB_IMGPSScanX.ISB1Click(Sender: TObject);
-var
- p : Integer;
-begin
- DisplayISB := TImageScrollBox(Sender);
- Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
- Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
- P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
- if P <= PageLV.Items.Count-1 then
- begin
- if PageLVclear then
- begin
- PageLV.ClearSelection;
- end;
- NowPage := p+1;
- PageLV.ItemIndex := P;
- end;
- //DisplayISB.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.ISB1EndScroll(Sender: TObject);
-var
- ISB : TImageScrollBox;
-begin
- ISB := TImageScrollBox(Sender);
-
- SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
- {if (TImageScrollBox(Sender) = MpsViewX1) and SortMode then
- begin
- ReczoomPercent := MpsViewX1.ZoomPercent;
- RecHozPos := MpsViewX1.HorzScrollBarPos;
- RecVerPos := MpsViewX1.VertScrollBarPos;
- end;}
-end;
-
-procedure TCB_IMGPSScanX.ISB1ImageMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-var
- p : Integer;
-begin
- DisplayISB := TImageScrollBox(Sender);
- if NowClick<>0 then
- DisplayISB.SetFocus;
- Shape1.Left := TPanel(TImageScrollBox(Sender).Parent).Left - Seg;
- Shape1.Top := TPanel(TImageScrollBox(Sender).Parent).Top - Seg;
- P := strtoint(copy(DisplayISB.Name,4,1)) + ScrollBar1.Position-2;
- if P <= PageLV.Items.Count-1 then
- begin
- NowPage := p+1;
- PageLV.ClearSelection;
- PageLV.ItemIndex := P;
-
- //PageLV.Selected := PageLV.Items.Item[PageLV.ItemIndex];
-
- end;
- if (NowClick = -1) and (Button=TMouseButton(mbLeft)) and (DisplayISB.FileName <> '') then
- begin
- {for P := 1 to 8 do
- begin
- TImageScrollBox(FindComponent('ISB'+inttostr(p))).Enabled := False;
- end; }
- DisplayISB.BeginDrag(True);
- end;
- case TImageScrollBox(Sender).MouseMode of
- mmR90,mmR180,mmR270:
- begin
- TImageScrollBox(Sender).LoadFromFile(TImageScrollBox(Sender).FileName,1);
- end;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.ISB1ImageMouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
-begin
- //Edit1.SetFocus;
- //TImageScrollBox(Sender).SetFocus;
-
- if TImageScrollBox(Sender).FileName = '' then
- TImageScrollBox(Sender).MouseMode := mmUser
- Else
- ViewMouseMode(NowClick);
-
- ISB1.AlwaysShowAnnotations := False;
-
-// if TImageScrollBox(Sender).FileName = '' then
-// begin
-////ShowMessage('AAA');
-//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName+' time='+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
-// TImageScrollBox(Sender).MouseMode := mmUser
-// end
-// Else
-// begin
-//Label3.Caption:='FileName='+TImageScrollBox(Sender).FileName;
-// ViewMouseMode(NowClick);
-// end;
-end;
-
-procedure TCB_IMGPSScanX.ISB1ImageMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-Var
- p : Integer;
- ISB : TImageScrollBox;
-begin
- case TImageScrollBox(Sender).MouseMode of
- mmDelete:
- begin
- PM508Click(Self);
- end;
- mmR90,mmR180,mmR270:
- begin
- if TImageScrollBox(Sender).Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveQuality := 30;
- TJpegGraphic(TImageScrollBox(Sender).Graphic).SaveToFile(TImageScrollBox(Sender).FileName);
- end
- Else
- TImageScrollBox(Sender).SaveToFile(TImageScrollBox(Sender).FileName);
-
- SelectISB.Graphic.Assign(TImageScrollBox(Sender).Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- end;
- end;
-
- ISB := TImageScrollBox(Sender);
- if (ISB.MouseMode = mmZoom) or (ISB.MouseMode = mmDrag) then
- SetScrollData(ISB,ISB.HorzScrollBar.Position,ISB.VertScrollBar.Position,ISB.ZoomPercent);
-
-end;
-
-function TCB_IMGPSScanX.Get_AutoScroll: WordBool;
-begin
- Result := AutoScroll;
-end;
-
-function TCB_IMGPSScanX.Get_KeyPreview: WordBool;
-begin
- Result := KeyPreview;
-end;
-
-function TCB_IMGPSScanX.Get_MouseInClient: WordBool;
-begin
- Result := MouseInClient;
-end;
-
-procedure TCB_IMGPSScanX.ActivateEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnActivate;
-end;
-
-procedure TCB_IMGPSScanX.ClickEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnClick;
-end;
-
-procedure TCB_IMGPSScanX.CreateEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnCreate;
-end;
-
-procedure TCB_IMGPSScanX.DblClickEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnDblClick;
-end;
-
-procedure TCB_IMGPSScanX.DeactivateEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnDeactivate;
-end;
-
-procedure TCB_IMGPSScanX.DestroyEvent(Sender: TObject);
-begin
- //********清單區********
- Doc_Inf_List.Free; //Doc_Inf 清單 Docno + 版本為key
- DM_FORM_INF_List.Free; //DM_FORM_INF 清單 Docno + 版本為key
- FORM_INF_List.Free; //FORM_INF的清單
- CHECK_RULE_INF_List.Free; //CHECK_RULE_INF 清單
- MEMO_INF_List.Free; //MEMO_INF 清單
- WORK_INF_List.Free; //WORK_INF 清單
- LASTEST_FORM_INF_List.Free; // LASTEST_FORM_INF 清單
- FindResult.Free ; //找SQLData的結果
- OMRFileList.Free; //要OMR檢核的文件(只檢查每種Form的第一頁)
- FormCode_PageSize.Free; //文件的預設大小 FormCode_Height_Width
- DocNo_NeedDoc.Free; //有Docno時要相依的文件 DocNo_相依文件_相依文件
- DocNo_NoDoc.Free; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
- DocNo_VerinCase.Free; //案件裡的DocNo+版本的清單
- CaseDocNoList.Free; //案件裡的DocNo清單
- CaseDocNo_CopiesList.Free; //案件裡的DocNo份數清單
- CaseList.Free; //記錄掃瞄案件的順序
- NoSaveBarCodeList.Free; //不儲存的條碼清單
- FormID_List.Free; //FormID清單
- DocNo_List.Free; //DocNo清單
- Context_DocnoList.Free; //案件裡的檔案Docno清單
- ContextList.Free; //案件裡的檔案清單
- AttContextList.Free; //案件裡的附加檔案清單
- NowShowFileList.Free; //目前顯示的影像清單
- NowSelectFileList.Free; //目前被點選的影像清單
- Cust_DocNoList.Free; //自行定義文件名稱
- IN_WH_DocNoList.Free; //入庫的文件清單
- GuideFormIDList.Free; //要當導引頁表單清單
- DivPageFormIDList.Free; //要當分案頁表單清單
- LastInitFormidList.Free;
- LastAddFormidList.Free;
- SampleFormIDList.Free;
- ExistImgList.Free;
- reSizeExistImgList.Free;
- //********清單區********
- if (FMode = 'DSCAN') or (FMode = 'ESCAN') then //重掃件及異動件要只能掃指定編號的件
- begin
- if ImagePath<>'' then
- _Deltree(ImagePath);
- end;
-
- if FEvents <> nil then FEvents.OnDestroy;
-end;
-
-procedure TCB_IMGPSScanX.KeyPressEvent(Sender: TObject; var Key: Char);
-var
- TempKey: Smallint;
-begin
- TempKey := Smallint(Key);
- if FEvents <> nil then FEvents.OnKeyPress(TempKey);
- Key := Char(TempKey);
-end;
-
-procedure TCB_IMGPSScanX.mode1Click(Sender: TObject);
-begin
- VMode := 0;
- GoViewMode;
- //ScrollBar1Change(Self);
- Panel14.Visible := False;
-end;
-
-procedure TCB_IMGPSScanX.mode2Click(Sender: TObject);
-begin
- VMode := 1;
- GoViewMode;
- //ScrollBar1Change(Self);
- Panel14.Visible := True;
-end;
-
-procedure TCB_IMGPSScanX.mode3Click(Sender: TObject);
-begin
- VMode := 2;
- GoViewMode;
- ScrollBar1Change(Self);
-end;
-
-procedure TCB_IMGPSScanX.mode4Click(Sender: TObject);
-begin
- VMode := 3;
- GoViewMode;
- ScrollBar1Change(Self);
-end;
-
-procedure TCB_IMGPSScanX.MouseEnterEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnMouseEnter;
-end;
-
-procedure TCB_IMGPSScanX.MouseLeaveEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnMouseLeave;
-end;
-
-procedure TCB_IMGPSScanX.PaintEvent(Sender: TObject);
-begin
- if FEvents <> nil then FEvents.OnPaint;
-end;
-
-procedure TCB_IMGPSScanX.Set_AutoScroll(Value: WordBool);
-begin
- AutoScroll := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_KeyPreview(Value: WordBool);
-begin
- KeyPreview := Value;
-end;
-
-procedure TCB_IMGPSScanX.PM401Click(Sender: TObject);
-var
- i : Integer;
- FromIndex : Integer;
- CaseID : String;
- NewPath : String;
- OldName,NewName:String;
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- FromIndex := PageLv.ItemIndex;
- if FromIndex = 0 then
- begin
- Showmessage(_Msg('不能從第1頁分案'));
- Exit;
- end;
-
- If MessageDlg(Format(_Msg('是否確定從%d頁分出新案'),[PageLV.ItemIndex+1]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then Exit;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- CaseID := GetNoNameCase(ImageSavePath);
- NewPath := ImageSavePath + CaseID+'\';
- Str2Dir(NewPath);
- for i := FromIndex to ContextList.Count - 1 do
- begin
- OldName := ContextList.Strings[i];
- //NewName := Add_Zoo(S.Count+1,3)+Copy(OldName,4,length(OldName)-3);
- NewName := Add_Zoo(S.Count+1,3)+FileName2NoQuene_Filename(OldName);
-
- ReNameFile(DisplayPath+OldName,NewPath+NewName);
- S.Add(NewName);
- S.SaveToFile(NewPath+'Context.dat');
- end;
- for i := ContextList.Count - 1 downto FromIndex do
- begin
- ContextList.Delete(i);
- ContextList.SaveToFile(DisplayPath+'Context.dat');
- end;
- SetCaseList('I',MyTreeNode1.IndexOf(MyTreeNode2)+1,CaseID);
- if FileExists(DisplayPath+'CaseIndex.dat') then //把原經辦代號取出來再寫入新件裡
- begin
- S.LoadFromFile(DisplayPath+'CaseIndex.dat');
- end;
- DisplayPath := '';
-
- ClearCaseIndex;
- WriteCaseIndex(NewPath);
- finally
- S.Free;
- end;
- LoadImgFile;
- Showmessage(_Msg('分案完成'));
-end;
-
-procedure TCB_IMGPSScanX.PM402Click(Sender: TObject);
-var
- i : Integer;
-begin
- for i := 0 to PageLV.Items.Count - 1 do
- begin
- PageLV.Items.Item[i].Selected := True;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PM403Click(Sender: TObject);
-var
- i : Integer;
-begin
- for i := 0 to PageLV.Items.Count - 1 do
- begin
- PageLV.Items.Item[i].Selected := False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PM404Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- FormID,FormName : String;
- PreNode2Name : String;
-begin
- PreNode2Name := '';
- if TreeView1.Selected.Parent = MyTreeNode1 then
- PreNode2Name:= GetNode2Name(MyTreeNode2);
- ShowText := _Msg('文件歸類中,請稍候');
- DataLoading(True,True);
- DocListForm := TDocListForm.Create(self);
- try
- InitialLanguage(PatchDlg); //載入多國語言
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- if (FormID <> NowFormCode) and FormIDExists(FormID,True,0) then
- begin
- DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := FormID;
- SubItems.Add(FormName);
- end;
- end;
- end;
-
- if DocListForm.ShowModal = mrOk then
- begin
- FormID := DocListForm.DocLV.Selected.Caption;
- if (TreeView1.Selected.Level=1) then
- begin
- PageReplaceFormID(DisplayPath,'ALL',FormID);
- end
- Else if (TreeView1.Selected.Level=2) and (NowFormCode = '') then
- PageReplaceFormID(DisplayPath,'',FormID)
- Else
- begin
- PageReplaceFormID(DisplayPath,NowFormCode,FormID);
- end;
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
- if PreNode2Name <> '' then // 回到原本點選的文件節點上
- begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i];
- Break;
- end;
- end;
- end;
- TreeView1click(self);
- end;
- finally
- DocListForm.Free;
- DataLoading(False,False);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM601Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- FormID,FormName,DocNo,DocDir : String;
- PreNode2Name : String;
- iFormID : String;
- iISBName : String;
- iISB : TImageScrollBox;
- GoAtt : Boolean;
- AttLv : Integer;
- ST1 :TStringList;
-begin
- PreNode2Name := '';
- ST1:=TStringList.Create;
- if TreeView1.Selected.Parent = MyTreeNode1 then
- PreNode2Name:= GetNode2Name(MyTreeNode2);
- ShowText := _Msg('文件歸類中,請稍候');
-LogFile1.LogToFile(logTimeString+'縮圖 歸類開始');
- DataLoading(True,True);
- GoAtt := False;
- if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
- begin
- AttLv := TreeView1.Selected.Level;
- GoAtt := True;
- end;
- DocListForm := TDocListForm.Create(self);
- try
- InitialLanguage(DocListForm); //載入多國語言
- //InitialLanguage(PatchDlg); //載入多國語言
- DocListForm.CheckBox1.Visible:=False;
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
- if not FormIDAppear(FormID) then Continue; //20170816 先秀全部
-
- //Showmessage(FORM_INF_List.Text);
- //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
- if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
- begin
- DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := FormID;
- SubItems.Add(FormName);
- end;
- end;
- end;
- if DocListForm.ShowModal = mrOk then
- begin
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- OldName := ExtractFileName(iISB.FileName);
- Ext := ExtractFileExt(OldName);
-
- if DocListForm.CheckBox1.Checked then
- begin
- FormID := DocListForm.Edit1.Text;
- DocNo := GetNewCustomDocNo(DisplayPath,FormID);
- end
- else
- begin
- FormID := DocListForm.DocLV.Selected.Caption;
- DocNo := FormCode2DocNo(FormID);
- end;
-
-
- if DocNoDir2DocNo(Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseno)) = DocNo then
- DocDir := Path2DocDir(ExtractFilePath(iISB.FileName),NowCaseNo)
- Else
- DocDir := FindLastestDocDir(NowCaseno,DocNo);
-
-//ShowMessage('DocNoNeedDiv(DocNo)='+BoolToStr(DocNoNeedDiv(DocNo),true));
-//ShowMessage('DocDir='+DocDir);
-
- if DocNoNeedDiv(DocNo) then //要分份數
- begin
- if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(NowCaseno,DocDir)>0)) or (DocDir = '') then
- begin
- DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
- end
- else
- begin //20171016 真對補件影響 所加的判斷
- ST1.Clear;
- if FileExists(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+DocDir+'\Context.dat');
- if (ST1.Count > 0) and ISExistImg(ImageSavePath + NowCaseno+'\'+DocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
- begin
- DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
- end;
- end;
- end;
- end
- Else //不分份數
- begin
- if DocNo <> '' then
- DocDir := DocNo
- else //Attach 附件
- DocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',DocNo);
- end;
- if (not DirectoryExists(ImageSavePath + NowCaseno+'\'+DocDir+'\')) and (DocDir <> AttName) then
- SetDocNoList('A',-1,NowCaseno,DocDir,'1');
-
- {if DocDir = '' then
- begin
- DocDir := DocNo;
- if DocNoNeedDiv(DocNo) then
- DocDir:=DocNo2DocNoDir(ImageSavePath+NowCaseno+'\',DocNo);
- SetDocNoList('A',-1,NowCaseno,DocDir);
- end; }
-LogFile1.LogToFile(logTimeString+'縮圖 FormID='+FormID);
- if Not DirectoryExists(ImageSavePath+NowCaseno+'\'+DocDir) then
- Mkdir(ImageSavePath+NowCaseno+'\'+DocDir);
- ContextList.Clear;
- if FileExists(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat') then
- ContextList.LoadFromFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');
- NewName := Add_Zoo(ContextList.Count+1,3)+'_'+FormID+Ext;
- CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
- {ContextList.Add(NewName);
- ContextList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat'); }
- SetContextList('A',-1,NowCaseNo,DocDir,NewName);
- DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
- //RenameFile(iISB.FileName,ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
- //ReNameContext(iISB.FileName,OldName,NewName);
- end;
- end;
-//ShowMessage('KKKK');
- ReSortFileName(ExtractFilePath(iISB.FileName));
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-
- if GoAtt then
- begin
- GotoAttach(AttLv);
- end;
- TreeView1click(self);
-
- end;
- finally
- DataLoading(False,False);
- DocListForm.Free;
- ST1.Free;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM602Click(Sender: TObject);
-var
- FileList:TStringlist;
- SavePath : String;
- DocDir : String;
- CustomDocName : String;
- CustomDocNo : String;
- i : Integer;
- OldName,NewName,Ext : String;
- FormID,FormName,DocNo : String;
- PreNode2Name : String;
- iFormID : String;
- iISBName : String;
- iISB : TImageScrollBox;
- GoAtt : Boolean;
- AttLv : Integer;
-begin
- GoAtt := False;
- if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
- begin
- AttLv := TreeView1.Selected.Level;
- GoAtt := True;
- end;
-
- if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
- begin
- if FindCustomDocName(DisplayPath,CustomDocName) then
- begin
- Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[CustomDocName]));
- Exit;
- end;
- CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
- end;
- if CustomDocNo = '' then Exit;
- DocDir := CustomDocNo;
-LogFile1.LogToFile(logTimeString+'縮圖 歸類自訂文件 DocDir='+DocDir);
- SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
- Str2Dir(SavePath);
- SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
- FileList := TStringlist.Create;
- try
- FileList.Clear;
- if FileExists(SavePath+'Context.dat') then
- FileList.LoadFromFile(SavePath+'Context.dat');
-
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- OldName := ExtractFileName(iISB.FileName);
- Ext := ExtractFileExt(OldName);
- NewName := Add_Zoo(FileList.Count+1,3)+'_'+GetCustomFormID(ImageSavePath+NowCaseNo+'\',CustomDocNo)+ext;
-
- //Showmessage(iISB.FileName+#13+ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName);
- CopyFile(PWideChar(iISB.FileName),PwideChar(ImageSavePath+NowCaseno+'\'+DocDir+'\'+NewName),False);
- SetContextList('A',-1,NowCaseno,DocDir,NewName);
- FileList.Add(NewName);
- {FileList.Add(NewName);
- FileList.SaveToFile(ImageSavePath+NowCaseno+'\'+DocDir+'\Context.dat');}
- DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
- end;
- end;
- finally
- FileList.Free;
- end;
- ReSortFileName(ExtractFilePath(iISB.FileName));
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-
- if GoAtt then
- begin
- GotoAttach(AttLv);
- end;
- TreeView1click(self);
- MyTreeNode1.Expand(True);
-end;
-
-procedure TCB_IMGPSScanX.PM604Click(Sender: TObject);
-var
- i : Integer;
- iISBName : String;
- iISB : TImageScrollBox;
-begin
- //Showmessage(inttostr(ComponentCount));
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- //Showmessage(Components[i].Name);
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
- DeskewImg(iISB.Graphic);
- iISB.Redraw(True);
- iISB.SaveToFile(iISB.FileName);
- DisplayISB.LoadFromFile(DisplayISB.FileName,1);
- end;
- end;
- //TreeView1Click(nil);
-end;
-
-procedure TCB_IMGPSScanX.PM605Click(Sender: TObject);
-var
- i : Integer;
- iISBName,OldName : String;
- iISB : TImageScrollBox;
-begin
- if MessageDlg(_Msg('是否確定刪除??'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
-
- for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- //Showmessage(Components[i].Name);
- iISBName := ShapeName2PreViewISBName(TShape(Components[i]));
- iISB := TImageScrollBox(FindComponent(iISBName));
-//ShowMessage('iISB.FileName='+iISB.FileName);
-//ShowMessage(ExtractFilePath(iISB.FileName)+','+ExtractFileName(iISB.FileName)+','+NowCaseNo);
-// if (FMode = 'ESCAN') and (FModeName<>'異動件') then
-// begin
-// if ISExistImg(iISB.FileName) then
-// begin
-// ShowMessage(_Msg('此圖為非當次掃瞄，不可刪除'));
-// Exit;
-// end;
-// end;
-LogFile1.LogToFile(logTimeString+'縮圖刪除 iISB.FileName='+iISB.FileName);
- DeleteImageFile(ExtractFilePath(iISB.FileName),ExtractFileName(iISB.FileName),NowCaseNo);
- end;
- end;
-//ShowMessage('iISB.FileName='+iISB.FileName);
- ReSortFileName(ExtractFilePath(iISB.FileName));
- DrawDocItem2(MytreeNode1,NowCaseno);
- MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- NewTreeNodeRefresh;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- TreeView1click(self);
-end;
-
-procedure TCB_IMGPSScanX.N1Click(Sender: TObject);
-var
- mp:string;
-begin
- mp := InputBox(_Msg('移動頁數'),_Msg('請輸入移入頁碼'),'');
- if (mp <> '') then
- begin
- MoveImage(DisplayPath+NowDocDir+'\',strtoint(mp));
- end;
-end;
-
-procedure TCB_IMGPSScanX.N51Click(Sender: TObject);
-begin
- VMode := 4;
- GoViewMode;
- ScrollBar1Change(Self);
-end;
-
-procedure TCB_IMGPSScanX.NewScanBtnClick(Sender: TObject);
-begin
- IF not InitialOk Then
- begin
- Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
-LogFile1.LogToFile(logTimeString+'掃瞄開始');
- if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'DSCAN') then
- begin
- if NewTreeNode.Count > 0 then
- begin
- TreeView1.Selected := NewTreeNode.Item[0];
- TreeView1click(nil);
- FirstDocDir := '';
- NowGuideFormID := '';
- NowDivPageFormID :='';
- AddScanBtnclick(nil);
- end;
- end
- Else
- begin
- TreeView1.Selected := NewTreeNode;
- NewTreeNode.Expand(False);
- TreeView1Click(self);
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- ScanMode := smNew;
- ScanInfo.ImageCount := 0;
- ScanPath := '';
- ScanCaseno := '';
- NowGuideFormID := '';
- NowDivPageFormID :='';
- ClearView(1);
- ContextList.Clear;
- Try
- StatrTwainScan;
-LogFile1.LogToFile(logTimeString+'掃瞄結束');
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- LoadImgFile;
- end;
-end;
-
-procedure TCB_IMGPSScanX.NextPageBtnClick(Sender: TObject);
-var
- page : Integer;
-begin
- {page := ScrollBar1.Position;
- Case Vmode of
- 0 : Inc(page);
- 1 : Page := Page + 2;
- 2 : Page := Page + 4;
- 3 : Page := Page + 6;
- 4 : Page := Page + 8;
- end;
- IF page <= ScrollBar1.Max Then
- begin
- ScrollBar1.Position := page;
- end;}
- if selectISB = nil then Exit;
- NextPage(SelectPage);
- if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
- ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
-
-end;
-
-procedure TCB_IMGPSScanX.OptionBtnClick(Sender: TObject);
-var
- PatchDlg : TPatchDlg;
- i : Integer;
-begin
- IF not InitialOk Then
- begin
- Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
- ShowText := _Msg('掃瞄參數設定中,請稍候');
- DataLoading(True,True);
-
- PatchDlg := TPatchDlg.Create(self);
- try
- InitialLanguage(PatchDlg); //載入多國語言
- PatchDlg.BlankuseCB.Checked := DeviceDelete;
- if PatchDlg.BlankuseCB.Checked then
- PatchDlg.SpinEdit5.Enabled := True
- else
- PatchDlg.SpinEdit5.Enabled := False;
- PatchDlg.SpinEdit5.Value := DeviceDeleteSize;
- For i := 0 to PatchDlg.ComboBox1.Items.Count -1 do
- begin
- If inttostr(ScanDpi) = PatchDlg.ComboBox1.Items.Strings[i] Then
- PatchDlg.ComboBox1.ItemIndex := i;
- end;
- PatchDlg.DuplexCB.Checked := ScanDuplex;
- PatchDlg.ReverseCB.Checked := ScannerReverse;
- PatchDlg.BorderCB.Checked := BoardClear;
- PatchDlg.DeskewCB.Checked := ScanDeskew;
- PatchDlg.ImgSetUseCB.Checked := ScanImgSetUse;
- PatchDlg.SpinEdit1.Value := ScanBright;
- PatchDlg.SpinEdit2.Value := ScanContrast;
- case ScanRotate of
- 0 : PatchDlg.ScanRotateRG.ItemIndex := 0;
- 270 : PatchDlg.ScanRotateRG.ItemIndex := 1;
- 180 : PatchDlg.ScanRotateRG.ItemIndex := 2;
- 90 : PatchDlg.ScanRotateRG.ItemIndex := 3;
- end;
- Case ScanImgShowMode of
- 0 : PatchDlg.ScanShowRG.ItemIndex := 0;
- 1 : PatchDlg.ScanShowRG.ItemIndex := 1;
- 2 : PatchDlg.ScanShowRG.ItemIndex := 2;
- end;
- If PatchDlg.ShowModal = mrOk then
- begin
- DeviceDelete := PatchDlg.BlankuseCB.Checked;
- DeviceDeleteSize := PatchDlg.SpinEdit5.Value;
- ScanDpi := Strtoint(PatchDlg.ComboBox1.Text);
- ScannerReverse := PatchDlg.ReverseCB.Checked;
- BoardClear := PatchDlg.BorderCB.Checked;
- ScanDeskew := PatchDlg.DeskewCB.Checked;
- ScanDuplex := PatchDlg.DuplexCB.Checked;
- ScanImgSetUse := PatchDlg.ImgSetUseCB.Checked;
- ScanBright := PatchDlg.SpinEdit1.Value;
- ScanContrast := PatchDlg.SpinEdit2.Value;
- Case PatchDlg.ScanRotateRG.ItemIndex of
- 0:ScanRotate := 0;
- 1:ScanRotate := 270;
- 2:ScanRotate := 180;
- 3:ScanRotate := 90;
- end;
- Case PatchDlg.ScanShowRG.ItemIndex of
- 0:ScanImgShowMode := 0;
- 1:ScanImgShowMode := 1;
- 2:ScanImgShowMode := 2;
- end;
- R_W_ScanIni('W');
- ScanDuplexCB.Checked := ScanDuplex;
- end;
- finally
- PatchDlg.Free;
- DataLoading(False,False);
- end;
-end;
-
-procedure TCB_IMGPSScanX.PageLVClick(Sender: TObject);
-begin
- IF PageLV.Selected = nil Then Exit;
- PageLVclear := False;
- ScrollBar1.Position := PageLV.Selected.Index+1;
- PageLVclear := True;
-end;
-
-procedure TCB_IMGPSScanX.PageLVKeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- IF PageLV.Selected = nil Then Exit;
- ScrollBar1.Position := PageLV.Selected.Index+1;
-end;
-
-procedure TCB_IMGPSScanX.PageLVMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- IF Button = TMouseButton(MbRight) Then
- begin
- If PageLV.GetItemAt(X,Y) = nil then Exit;
- PageLV.Selected := PageLV.GetItemAt(X,Y);
- PageLVClick(self);
- PageLV.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
- end;
-end;
-
-procedure TCB_IMGPSScanX.Panel11DblClick(Sender: TObject);
-begin
- // Button3.Visible := not Button3.Visible;
- //Button4.Visible := not Button4.Visible;
- //self.FCustDocYN := 'N';
-end;
-
-procedure TCB_IMGPSScanX.Panel1DblClick(Sender: TObject);
-begin
- Button1.Visible := not Button1.Visible;
- Button2.Visible := not Button2.Visible;
-end;
-
-procedure TCB_IMGPSScanX.Panel9Resize(Sender: TObject);
-begin
- GoViewMode;
-end;
-
-procedure TCB_IMGPSScanX.PM101Click(Sender: TObject);
-var
- P,v,v1,v2,ln,i : Integer;
- iDocDir,iDocNo : String;
-begin
-LogFile1.LogToFile(logTimeString+'Tree 按下刪除');
- if TreeView1.Selected = NewTreeNode then //全刪 //新掃描件
- begin
-LogFile1.LogToFile(logTimeString+'Tree 全部刪除');
- If Messagedlg(_Msg('是否刪除所有案件?'),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- clearView(1);
- Application.ProcessMessages;
- _DelTree(ImageSavePath);
- if (FMode = 'ESCAN') then
- begin
- MkDir(ImageSavePath+FCaseID);
- CreateEmptyCase(ImageSavePath,FCaseID);
- end;
- LoadImgFile;
- Showmessage(_Msg('刪除完成'));
- end
- Else if TreeView1.Selected = MyTreeNode1 then //案件編號
- begin
-LogFile1.LogToFile(logTimeString+'Tree 案件編號刪除 NowCaseno='+NowCaseno);
- If Messagedlg(Format(_Msg('編號(%s)是否刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- clearView(1);
- Application.ProcessMessages;
- if (FMode = 'ESCAN') then
- begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- MyTreenode2 := MyTreeNode1.Item[i];
- v := Posend('{',MyTreenode2.Text);
- v1 := Posend('}',MyTreenode2.Text);
- v2 := posend('-',MyTreenode2.Text);
- ln := length(MyTreenode2.Text);
- iDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
- iDocNo := DocNoDir2DocNo(iDocDir);
- _DelTree(ImageSavePath+NowCaseno+'\'+iDocDir);
- SetUseCase('D',ImageSavePath+NowCaseno+'\',iDocDir,'','');
- SetDocNoList('D',-1,NowCaseNo,iDocDir,'');
- if (Copy(iDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
- DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',iDocDir);
-
- end
- end
- Else
- begin
- _DelTree(DisplayPath);
- SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
- end;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-
- if (FMode = 'ESCAN') then
- begin
- if not DirectoryExists(ImageSavePath+FCaseID) then
- begin
- MkDir(ImageSavePath+FCaseID);
- CreateEmptyCase(ImageSavePath,FCaseID);
- end;
- end;
- LoadImgFile;
- end
- Else if TreeView1.Selected = MyTreeNode2 then //文件層
- begin
- If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[DocNo2DocName(NowCaseno,NowDocNo)]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- ClearView(1);
- Application.ProcessMessages;
-//ShowMessage(NowDocDir);
-LogFile1.LogToFile(logTimeString+'Tree 文件層號刪除 NowDocDir='+NowDocDir);
- if (Length(NowDocDir)=8) or (NowDocDir=AttName) then
- begin
-//ShowMessage('DeleteDocNoFileForESCAN');
- DeleteDocNoFileForESCAN(ImageSavePath+NowCaseno+'\'+NowDocDir,NowDocDir);
- end
- else
- begin
- _DelTree(ImageSavePath+NowCaseno+'\'+NowDocDir);
- SetDocNoList('D',-1,NowCaseNo,NowDocDir,'');
- end;
- SetUseCase('D',ImageSavePath+NowCaseno+'\',NowDocDir,'','');
-
- if (Copy(NowDocNo,1,5)='ZZZZZ') then //20140703 刪除自定文件時要刪ini檔資料
- DeleteCustomDocDir(ImageSavePath+NowCaseno+'\',NowDocDir);
-
- DrawDocItem2(MytreeNode1,NowCaseno);
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- NewTreeNodeRefresh;
-
- end
- Else if TreeView1.Selected = MyTreeNode3 then //FormID層
- begin
- If Messagedlg(Format(_Msg('文件(%s)是否刪除?'),[NowFormName]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
-LogFile1.LogToFile(logTimeString+'Tree FormID層號刪除 NowFormCode='+NowFormCode);
- DeleteFormCodeFile(NowCaseNo,NowDocDir,NowFormCode);
- SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
- DrawDocItem2(MytreeNode1,NowCaseno);
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- NewTreeNodeRefresh;
-
- end;
-end;
-
-procedure TCB_IMGPSScanX._DelTreeForExistImg(ASourceDir:String);
-var
- i:integer;
- ST:TStringList;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.PM102Click(Sender: TObject);
-var
- NewCaseID,ShowNewCaseID,ShowNowCaseID : String;
- i,P,v : Integer;
- InputOk : Boolean;
-begin
- VMode := 0;
- GoViewMode;
- ISB1.ZoomMode := zmFitWidth;
-
- NewCaseID := InputBox(_Msg('修改案件編號'),_Msg('新案件編號'),'');
- ShowNewCaseID := NewCaseID;
- ShowNowCaseID := NowCaseno;
-
- if NewCaseID = '' then Exit;
-
- IF Length(NewCaseID)<>CaseIDLength Then
- begin
- Showmessage(_Msg('輸入格式錯誤'));
- Exit;
- end;
-
- if DirectoryExists(ImageSavePath+NewCaseID) then
- begin
- Showmessage(NewCaseID+_Msg('己存在,無法修改'));
- Exit;
- end;
-
- if Messagedlg(Format(_Msg('是否將%s改為%s'),[ShowNowCaseID,ShowNewCaseID]),Mtconfirmation,[mbyes,mbcancel],0) = mrcancel then
- Exit;
- ClearView(1);
- RenameFile(ImageSavePath+NowCaseno,ImageSavePath+NewCaseID);
- SetCaseList('E',NewTreeNode.IndexOf(MyTreeNode1),NewCaseID);
-
- //P := ContextList.Count;
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NewCaseID,GetCasePage(ImageSavePath,NewCaseID)]);
- //DrawDocItem(MyTreeNode1,FORM_INF_List,NewCaseID);
- DrawDocItem2(MytreeNode1,NewCaseID);
- Showmessage(_Msg('修改完成'));
-end;
-
-procedure TCB_IMGPSScanX.PM103Click(Sender: TObject);
-begin
- if TreeView1.Selected = nil then Exit;
-
- {if Treeview1.Selected = NewTreeNode then
- begin
- ShowMessage('AAAAA');
- end;
- if Treeview1.Selected = MyTreeNode1 then
- begin
- ShowMessage('BBBBB');
- end;
-
- if Treeview1.Selected = MyTreeNode2 then
- begin
- ShowMessage('CCCCC');
- end;
-
- if Treeview1.Selected = MyTreeNode3 then
- begin
- ShowMessage('DDDDD');
- end;
- }
- if (Treeview1.Selected = NewTreeNode) {or (Treeview1.Selected = MyTreeNode1)} then
- begin
-//ShowMessage('NewScanBtnClick');
-LogFile1.LogToFile(logTimeString+'Tree NewScanBtnClick');
- NewScanBtnClick(self)
- end
- Else
- begin
-//ShowMessage('AddScanBtnclick');
-LogFile1.LogToFile(logTimeString+'Tree AddScanBtnclick');
- AddScanBtnclick(self);
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.PM104Click(Sender: TObject);
-Var
- i, n, m, ii, P, v, v1, page, imageCount: Integer;
- FName: String;
- CaseID, DocNo, FormID: String;
- DocDir: String;
- SavePath, SaveFilename: String;
- ISB: TImageScrollBox;
- FileRec: TSearchrec;
-
- iGraphic, iGraphic_First, iGraphic_sec: TTiffGraphic;
- iRect : TRect;
- JpgGr : TJpegGraphic;
- SaveStream : TFileStream;
- SaveStreamA:TFileStream;
- SaveStreamB:TFileStream;
- cooom:integer;
-Begin
- OpenDialog1.Filter := 'Image files|*.TIF;*.JPG;*.PNG';
- If OpenDialog1.Execute Then
- Begin
- ISB := TImageScrollBox.Create(self);
-try
- ShowText := _Msg('檔案加入中,請稍候');
-LogFile1.LogToFile(logTimeString+'檔案加入中開始');
- DataLoading(True, True);
- If TreeView1.Selected = Nil Then
- Exit;
- FName := OpenDialog1.FileName;
-
- FindFirst(FName, faAnyfile, FileRec);
-
- If FFileSizeLimit = 0 Then
- Begin
- FFileSizeLimit := 5 * 1024;
- End;
-//FFileSizeLimit:=20*5*1024;
-//ShowMessage(IntToStr(FileRec.Size)+','+IntToStr(FFileSizeLimit * 1024));
- If FileRec.Size > FFileSizeLimit * 1024 Then // 檢查檔案大小
- Begin
- ShowMessage(Format(_Msg('目前檔案大小為 %.3f MB,已超過單一檔案匯入限制%1.f MB'),[FileRec.Size / (1024*1024),FFileSizeLimit/1024]));
- {ShowMessage(Format('目前檔案大小為 %.3f MB', [FileRec.Size / (1024*1024)]) +
- '，已超過單一檔案匯入限制'+Format('%.1f',[FFileSizeLimit/1024])+'MB');}
- FindClose(FileRec);
- DataLoading(false, false);
- Exit;
- End;
- //MessageDlg()
- //cooom:=StrToInt(InputBox('輸入百分比','輸入百分比',''));
- cooom:=FJpgCompression;//20171211彩色tif採jpg壓縮的比例
-
- FindClose(FileRec);
- CaseID := NowCaseno;
- imageCount := 0;
- P := ISB.ImageCountFromFile(OpenDialog1.FileName);
- For i := 1 To P Do
- Begin
- ShowText := Format(_Msg('檔案加入中,請稍候(%d/%d)'),[i,p]);
- //ShowText := _Msg('檔案加入中,請稍候')+'(' + inttostr(i) + '/' + inttostr(P) + ')';
- DataLoading(True, True);
- ISB.LoadFromFile(FName, i);
- DeskewImg(ISB.Graphic);
-
-
- ISB_BW.Graphic.Assign(ISB.Graphic); //20180104
- If ISB.Graphic.ImageFormat <> ifBlackWhite Then //20180104
- begin
- ConvertToBW(ISB_BW.Graphic);
- end;
- ///ISB_BW.SaveToFile('KKKKKKKK.tif');
-
- iGraphic_First := TTiffGraphic.Create;
- iGraphic_sec := TTiffGraphic.Create;
-
-
- //ShowMessage(IntToStr(iGraphic_First.Palette.palNumEntries)); //彩色 會為0 黑白 為2
-
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf); //判斷A3 有用FormID 所以要先辨條碼
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
- Begin
- Rotate(ISB.Graphic, MpsBarcodeinf.r180[n]);
- //MpsGetBarcode(iGraphic_First, MpsBarcodeinf);
- Break;
- End;
- End;
-
- iGraphic_First.Assign(ISB.Graphic);
- //有必要的話先把影像轉正 再開始切圖
- If CheckNeedCrop(iGraphic_First) Then
- Begin
- // 先取右邊的影像
- iRect.Left := ISB.Graphic.Width Div 2;
- iRect.Right := ISB.Graphic.Width;
- iRect.Top := 0;
- iRect.Bottom := ISB.Graphic.Height;
- CropImg(iGraphic_First, iRect);
-
- iGraphic_sec.Assign(ISB.Graphic);
- // 再取左邊的影像
- iRect.Left := 0;
- iRect.Right := ISB.Graphic.Width Div 2;
- iRect.Top := 0;
- iRect.Bottom := ISB.Graphic.Height;
- CropImg(iGraphic_sec, iRect);
- End;
- ISB.Graphic.Clear; //20220711 Hong 覺得ISB後面沒有到了,先清掉減少記憶體使用
- iGraphic := iGraphic_First;
-
- While Not iGraphic.IsEmpty Do
- Begin
- If (TreeView1.Selected = NewTreeNode) Or
- (TreeView1.Selected = MyTreeNode1) Then
- Begin
- SaveFilename := '';
- ISB_BW.Graphic.Assign(iGraphic); //20180104
- If iGraphic.ImageFormat <> ifBlackWhite Then //20180104
- begin
- ConvertToBW(ISB_BW.Graphic);
- end;
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
-//ShowMessage(IntToStr(MpsBarcodeinf.Count));
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[n]);
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
- Break;
- End;
- End;
-//ShowMessage('XXX '+IntToStr(MpsBarcodeinf.Count));
- FormID := BarCode2FormID;
-//ShowMessage('FormID='+FormID);
- // 取出FormID
- SaveFilename := FormID;
- If (TreeView1.Selected = NewTreeNode) Then
- Begin
- If FindDivFormCode(FormID) Then // 只找分案頁上的案件條碼
- Begin
- imageCount := 0;
- ClearView(1);
- ContextList.Clear;
- CaseID := BarCode2CaseID;
- If DirectoryExists(ImageSavePath + CaseID + '\') Then
- Begin
- _DelTree(ImageSavePath + CaseID + '\');
- SetCaseList('D', -1, CaseID);
- End;
- End;
- If CaseID = '' Then
- Begin
- CaseID := GetNoNameCase(ImageSavePath);
- ContextList.Clear;
- End;
- End;
- SavePath := ImageSavePath + CaseID + '\';
- Str2Dir(SavePath);
-
- DocNo := FormCode2DocNo(FormID);
- DocDir := FindLastestDocDir(CaseID, DocNo);
- if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then
- begin
- DocDir := FindLastestDocDirForPage(CaseID, DocNo,FormID);
-//ShowMessage('DocDir='+DocDir);
- end;
-
- If DocNoNeedDiv(DocNo) Then // 要分份數
- Begin
- If ((FormCode2Page(FormID) = '01') And
- (GetDocDir_Page(CaseID, DocDir) > 0)) Or (DocDir = '') Then
- begin
- DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
- end;
- End
- Else // 不分份數
- Begin
- If DocNo <> '' Then
- DocDir := DocNo
- Else // Attach 附件
- DocDir := DocNo2DocNoDir(ImageSavePath + CaseID + '\', DocNo);
- End;
-
- If (Not DirectoryExists(ImageSavePath + CaseID + '\' + DocDir + '\'))
- And (DocDir <> AttName) Then
- SetDocNoList('A', -1, CaseID, DocDir, '1');
- SavePath := ImageSavePath + CaseID + '\' + DocDir + '\';
- Str2Dir(SavePath);
- ContextList.Clear;
- If FileExists(SavePath + 'Context.dat') Then
- ContextList.LoadFromFile(SavePath + 'Context.dat');
-
- WriteCaseIndex(ImageSavePath + CaseID + '\');
- // 寫入案件索引
- If SaveFilename = '' Then // 附件
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext
- Else
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
- SaveFilename + ext;
-
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If (MpsBarcodeinf.r180[n] <> 0) and (Length(MpsBarcodeinf.Text[n])=FormIDLength) Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[n]);
- MpsGetBarcode(ISB_BW.Graphic, MpsBarcodeinf);
- Break;
- End;
- End;
-//ShowMessage(IntToStr(iGraphic.Palette.palNumEntries));
- if iGraphic.ImageFormat = ifBlackWhite then //20200806 出現無法匯入,是因color256無法壓JPEG,待報會後再開啟
- begin
- SaveFilename := changefileext(SaveFilename,'.tif'); //20240320 Hong 調整黑白存tif
- iGraphic.Compression:=tcGroup4;
- end
- else if iGraphic.ImageFormat= ifColor256 then
- begin
- SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整Color256存jpg
- ConverttoGray(iGraphic);
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end
- else if (iGraphic.ImageFormat = ifTrueColor) or (iGraphic.ImageFormat = ifGray256) then
- begin
- SaveFilename := changefileext(SaveFilename,'.jpg'); //20240320 Hong 調整彩色灰階存jpg
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end
- else
- begin
- iGraphic.Compression:=tcLZW;
- end;
-
- {if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2 灰階256 //20200806拿掉
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end;}
-
- If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- SaveStream := TFileStream.Create(SavePath + SaveFilename, fmOpenReadWrite)
- Else
- SaveStream := TFileStream.Create(SavePath + SaveFilename, fmCreate);
- Try
- SaveStream.Seek(0, soFromBeginning);
- iGraphic.AppendToStream(SaveStream);
- Finally
- SaveStream.Free;
- End;
- End
- Else If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- DeleteFile(SavePath + SaveFilename);
- // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- JpgGr := TJpegGraphic.Create;
- Try
- JpgGr.Assign(iGraphic);
- JpgGr.SaveQuality := 30;
- // JpgGr.AppendToStream(SaveStream);
- JpgGr.SaveToFile(SavePath + SaveFilename);
- Finally
- JpgGr.Free;
- // SaveStream.Free;
- End;
- End;
-
- SetContextList('A', -1, CaseID, DocDir, SaveFilename);
- If (TreeView1.Selected = NewTreeNode) Then
- Begin
- If imageCount = 0 Then
- Begin
- SetCaseList('A', -1, CaseID);
- MyTreeNode1 := TreeView1.Items.AddChild(NewTreeNode, CaseID);
- MyTreeNode1.ImageIndex := 2;
- MyTreeNode1.SelectedIndex := 2;
- Application.ProcessMessages;
- End;
- End;
- inc(imageCount);
- // DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID);
- // DrawDocItem(MyTreeNode1,FORM_INF_List,CaseID);
- End
- Else If TreeView1.Selected = MyTreeNode3 Then
- Begin
- SavePath := ImageSavePath + CaseID + '\' + NowDocDir + '\';
- ContextList.Clear;
- If FileExists(ImageSavePath + CaseID + '\' + NowDocDir +
- '\Context.dat') Then
- ContextList.LoadFromFile(ImageSavePath + CaseID + '\' + NowDocDir +
- '\Context.dat');
- If NowFormCode <> '' Then
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + '_' +
- NowFormCode + ext
- Else
- SaveFilename := Add_Zoo(ContextList.Count + 1, 3) + ext;
-
- For n := 1 To MpsBarcodeinf.Count Do
- Begin
- If MpsBarcodeinf.r180[n] <> 0 Then // 依條碼角度轉影像
- Begin
- Rotate(iGraphic, MpsBarcodeinf.r180[n]);
- MpsGetBarcode(iGraphic, MpsBarcodeinf);
- Break;
- End;
- End;
-
- if (iGraphic.Palette.palNumEntries = 0) or (iGraphic.Palette.palNumEntries = 256) then //20171130 彩色 會為0 黑白 為2
- begin
- iGraphic.Compression:=tcJPEG;
- iGraphic.JpegQuality:=cooom;
- end;
-
- If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.tif' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- SaveStream := TFileStream.Create(SavePath + SaveFilename,
- fmOpenReadWrite)
- Else
- SaveStream := TFileStream.Create(SavePath + SaveFilename,
- fmCreate);
- Try
- SaveStream.Seek(0, soFromBeginning);
- iGraphic.AppendToStream(SaveStream);
- Finally
- SaveStream.Free;
- End;
- End
-
- Else
- Begin
- If LowerCase(ExtractFileExt(SavePath + SaveFilename)) = '.jpg' Then
- Begin
- If FileExists(SavePath + SaveFilename) Then
- DeleteFile(SavePath + SaveFilename);
- // SaveStream := TFileStream.Create( PEFileName ,fmCreate );
- JpgGr := TJpegGraphic.Create;
- Try
- JpgGr.Assign(iGraphic);
- JpgGr.SaveQuality := cooom;
- // JpgGr.AppendToStream(SaveStream);
- JpgGr.SaveToFile(SavePath + SaveFilename);
- Finally
- JpgGr.Free;
- // SaveStream.Free;
- End;
- End;
-
- End;
- // ISB.SaveToFile(SavePath+SaveFilename);
- ContextList.Add(SaveFilename);
- ContextList.SaveToFile(SavePath + 'Context.dat');
- End;
-
- if iGraphic = iGraphic_First then
- iGraphic := iGraphic_Sec
- else
- iGraphic.Assign(nil);
-
- End //While 結束
-
- End;
- ClearErrini(CaseID, MyTreeNode1);
- // 清掉檢核記錄
- If (TreeView1.Selected = MyTreeNode1) Or
- (TreeView1.Selected = NewTreeNode) Then
- Begin
- LoadImgFile;
- End
- Else
- Begin
- DrawDocItem2(MyTreeNode1, CaseID);
- // 長出文件名稱的樹並傳回是否有申請書的影像
- page := GetCasePage(ImageSavePath, CaseID);
- // ShowMessage('page='+IntToStr(page));
- MyTreeNode1.Text := Format(_Msg('%s-%d頁'), [CaseID, page]);
- End;
- // ShowMessage('AAAA');
- NewTreeNodeRefresh;
- Application.ProcessMessages;
- DataLoading(false, false);
-
-
-finally
-ISB.Free;
-iGraphic_First.Free;
-iGraphic_sec.Free;
-end;
-
-
- End;
-End;
-
-
-
-procedure TCB_IMGPSScanX.PM106Click(Sender: TObject);
-var
- i,n,x,v,v1 : Integer;
- CopyFormID,Copy2Caseno,CopyFileName : String;
- S : TStringlist;
-begin
- ShowText := _Msg('複製文件中,請稍候');
- DataLoading(True,True);
- DocCopyForm := TDocCopyForm.Create(Self);
- S := TStringlist.Create;
- try
- InitialLanguage(DocCopyForm); //載入多國語言
- DocCopyForm.CopyFromGB.Caption := NowCaseno+DocCopyForm.CopyFromGB.Caption;
- IF NewTreenode.Count = 1 Then
- begin
- Showmessage(_Msg('沒有其他可複製的文件'));
- Exit;
- end;
- For i := 0 to MyTreeNode1.Count -1 do
- begin
- v := Pos('-',MyTreeNode1.Item[i].Text);
- v1 := pos('{',MyTreeNode1.Item[i].Text);
- if V1 > 0 then
- begin
- CopyFormID := Copy(MyTreeNode1.Item[i].Text,1,v-1);
- DocCopyForm.CheckListBox1.Items.Add(CopyFormID);
- end;
- end;
- For i := 0 to NewTreenode.Count -1 do
- begin
- v := Posend('-',NewTreeNode.Item[i].Text);
- Copy2Caseno := Copy(NewTreeNode.Item[i].Text,1,v-1);
- IF Copy2Caseno <> NowCaseno Then
- begin
- DocCopyForm.CheckListBox2.Items.Add(Copy2Caseno);
- end;
- end;
-
- if DocCopyForm.ShowModal = mrok then
- begin
- If MessageDlg(_Msg('是否確定要將勾選的文件複製到勾選的編號裡?'),MtConfirmation,[Mbyes,mbcancel],0) = mrCancel Then
- Exit;
- ShowText := _Msg('複製中,請稍候');
- DataLoading(True,True);
- For i := 0 to DocCopyForm.CheckListBox2.Count -1 do
- begin
- IF DocCopyForm.CheckListBox2.Checked[i] Then
- begin
- S.Clear;
- Copy2Caseno := DocCopyForm.CheckListBox2.Items.Strings[i];
- ClearErrini(Copy2Caseno,MyTreeNode1); //清掉檢核記錄
- S.LoadFromFile(ImageSavePath + Copy2Caseno +'\Context.dat');
- For n := 0 to DocCopyForm.CheckListBox1.Count -1 do //文件
- begin
- If DocCopyForm.CheckListBox1.Checked[n] Then
- begin
- //v:= Posend('{',DocCopyForm.CheckContextList.Strings[n]);
- //v1 := Posend('}',DocCopyForm.CheckContextList.Strings[n]);
- //CopyFormID := Copy(DocCopyForm.CheckContextList.Strings[n],1,v-1);
- CopyFormID := DocCopyForm.CheckListBox1.Items.Strings[n];
- IF v = 0 Then
- CopyFormID := '';
- For x := 0 to ContextList.Count -1 do
- begin
- //Showmessage(CopyFormCode);
- //IF CopyFormID <> '' then //有文件代號
- // begin
- if FileName2FormCode(ContextList.Strings[x])=CopyFormID then
- begin
- //CopyFileName := Add_Zoo(S.Count+1,3)+ Copy(ContextList.Strings[x],4,length(ContextList.Strings[x])-3);
- CopyFileName := Add_Zoo(S.Count+1,3)+ FileName2NoQuene_Filename(ContextList.Strings[x]);
- CopyFile(PWideChar(DisplayPath+ContextList.Strings[x]),PWidechar(ImageSavePath + Copy2Caseno+'\'+CopyFileName),False);
- S.Add(CopyFileName);
- S.SaveToFile(ImageSavePath + Copy2Caseno +'\Context.dat');
- end;
- // end
-
- end;
- end;
- end;
-
- end;
- end;
- DataLoading(False,False);
- Showmessage(_Msg('複製完成!!'));
- LoadImgFile;
- end;
- finally
- DocCopyForm.Free;
- DataLoading(False,False);
- S.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PM107Click(Sender: TObject);
-begin
- WNoteBtnClick(nil);
-end;
-
-procedure TCB_IMGPSScanX.PM108Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- NewFormID,NewFormName,CustomDocNo : String;
-begin
- DocListForm := TDocListForm.Create(self);
- try
-LogFile1.LogToFile(logTimeString+'Tree 歸類開始');
- InitialLanguage(DocListForm); //載入多國語言
- DocListForm.CheckBox1.Visible:=True;
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- NewFormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- NewFormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- if not FormIDAppear(NewFormID) then Continue; //20170816 先秀全部的
- if (NewFormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(NewFormID,False,i) then
- begin
- DocListForm.FormIDList.Add(NewFormID+'#@#'+NewFormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := NewFormID;
- SubItems.Add(GetSQLData(FORM_INF_List,'T1.FORM_DESC',i));
- end;
- end;
- end;
- if DocListForm.ShowModal = mrOk then
- begin
- if not (DocListForm.DocLV.Selected=nil) then
- NewFormID := DocListForm.DocLV.Selected.Caption;
- if DocListForm.CheckBox1.Checked then
- begin
- //歸類到自訂文件
- NewFormID:=DocListForm.Edit1.Text;
-
- if Trim(DocListForm.Edit1.Text)='' then
- begin
- Showmessage(_Msg('未輸入文件名稱'));
- Exit;
- end;
- if FindCustomDocName(DisplayPath,NewFormID) then
- begin
- Showmessage(Format(_Msg('文件名稱:"%s"己存在'),[NewFormID]));
- Exit;
- end;
- if NowFormCode <> AttName then
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),NewFormID]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end
- Else
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end;
- CustomDocNo := GetNewCustomDocNo(DisplayPath,NewFormID);
-//ShowMessage('CustomDocNo='+CustomDocNo);
-LogFile1.LogToFile(logTimeString+'Tree 歸類到自訂文件 CustomDocNo='+CustomDocNo);
- ShowText := _Msg('歸類中,請稍侯');
- DataLoading(True,True);
- FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,CustomDocNo+'010101A');
- end
- else
- begin
- //歸類到既有文件
- if NowFormCode <> AttName then
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[FormCode2FormName(NowCaseNo,NowFormCode),FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end
- Else
- begin
- If Messagedlg(Format(_Msg('是否將"%s"的所有影像歸類成"%s"'),[_Msg('附件')+MyTreeNode3.Text,FormCode2FormName(NowCaseNo,NewFormID)]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Exit;
- end;
- ShowText := _Msg('歸類中,請稍侯');
- DataLoading(True,True);
-//ShowMessage('NowDocDir='+NowDocDir);
-LogFile1.LogToFile(logTimeString+'Tree 歸類到既有文件 NewFormID='+NewFormID);
- FormIDReplace(NowCaseNo,NowDocDir,NowFormCode,NewFormID);
-
- end;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- DrawDocItem2(MytreeNode1,NowCaseno);
- DataLoading(False,False);
- TreeView1.Selected := MyTreeNode1;
- TreeView1Click(self);
- end;
-
- finally
- DocListForm.Free;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM109Click(Sender: TObject);
-var
- S : TStringlist;
- CaseID : String;
-begin
- //if TreeView1.Selected = nil then Exit;
- //if TreeView1.Selected = NewTreeNode then Exit;
- CaseID := NowCaseno;
- S := TStringlist.Create;
- try
- ClearView(1);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- If OMRCheckCase(CaseID) then //有成功
- begin
- S.Add('Y');
- S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
- end;
- //MyTreeNode2ReFresh(CaseID);
- LoadImgFile;
- TreeView1Click(nil);
- DataLoading(False,False);
- finally
- S.Free;
- end;
- Showmessage(_Msg('檢核完成'));
-end;
-
-procedure TCB_IMGPSScanX.PM110Click(Sender: TObject);
-var
- CustomDocName : String;
- CustomDocNo : String;
- DocDir : String;
- SavePath : String;
- ST1:TStringList;
-begin
- if InputQuery(_Msg('輸入其他文件名稱'),_Msg('文件名稱'),CustomDocName) then
- begin
- if CustomDocName <> '' then
- begin
- if FindCustomDocName(DisplayPath,CustomDocName) then
- begin
- Showmessage(Format('文件名稱:"%s"己存在',[CustomDocName]));
- Exit;
- end;
- ST1:=TStringList.Create;
- CustomDocNo := GetNewCustomDocNo(DisplayPath,CustomDocName);
- DocDir := CustomDocNo;
- SavePath := ImageSavePath+NowCaseNo+'\'+DocDir+'\';
- Str2Dir(SavePath);
- SetDocNoList('A',-1,NowCaseNo,DocDir,'1');
- DrawDocItem2(MytreeNode1,NowCaseno);
- MyTreeNode1.Expand(True);
- end;
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM111Click(Sender: TObject);
-var
- oldCopies,NewCopies : Integer;
- copies : String;
-begin
- oldCopies := GetDocDirCopies(NowCaseno,NowDocDir);
- try
- NewCopies := Strtoint(inputBox(_Msg('修改份數'),_Msg('請輸入修改後的份數'),inttostr(oldCopies)));
- except
- Showmessage(_Msg('輸入錯誤'));
- Exit;
- end;
- if (NewCopies <= 0) and (NewCopies >= 10000) then
- begin
- Showmessage(_Msg('輸入範圍錯誤'));
- Exit;
- end;
-
- if (oldCopies <> NewCopies) and (NewCopies > 0) and (NewCopies < 10000) then
- begin
- if DocNoNeedDiv(NowDocNo) and (NewCopies = 1) and (MessageDlg(_Msg('修改至1份後此文件將無法再進行份數修改,是否確定??'),mtConfirmation,[mbyes,mbcancel],0)= mrcancel) then
- Exit;
-
- SetDocDirCopies(NowCaseno,NowDocDir,NewCopies);
- SetRecordEditedDocDir('A',NowCaseNo,NowDocDir);
- DrawDocItem2(MytreeNode1,NowCaseno);
- Showmessage(_Msg('修改完成'));
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.PM301Click(Sender: TObject);
-begin
- ScanColor := ifBlackWhite;
- ScanDpi := Def_ScanDpi;
- Ext := '.tif';
- PM301.Checked := True;
-end;
-
-procedure TCB_IMGPSScanX.PM302Click(Sender: TObject);
-begin
- ScanColor := ifGray256;
- Ext := '.jpg';
- ScanDpi := 200;
- //Ext := '.tif';
- PM302.Checked := True;
-end;
-
-procedure TCB_IMGPSScanX.PM303Click(Sender: TObject);
-begin
- ScanColor := ifTrueColor;
- Ext := '.jpg'; //20130326 yuu說理賠改存jpg
- ScanDpi := 200;
- //Ext := '.tif';
- PM303.Checked := True;
-end;
-
-procedure TCB_IMGPSScanX.PM501Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmFitWidth;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM502Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmFitHeight;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM503Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmFittoPage;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM504Click(Sender: TObject);
-begin
- DisplayISB.ZoomMode := zmOriginalSize;
- DisplayISB.AntiAliased := True;
- SetScrollData(DisplayISB,DisplayISB.HorzScrollBar.Position,DisplayISB.VertScrollBar.Position,DisplayISB.ZoomPercent);
-end;
-
-procedure TCB_IMGPSScanX.PM505Click(Sender: TObject);
-begin
- if DisplayISB.FileName = '' then Exit;
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- ScanMode := smReplace;
- ScanInfo.ImageCount := 0;
- ScanPath := DisplayPath;
- ScanCaseno := '';
- ScanSaveFilename := ExtractFileName(DisplayISB.FileName);
- Try
- StatrTwainScan;
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-end;
-
-procedure TCB_IMGPSScanX.PM507Click(Sender: TObject);
-var
- i : Integer;
- DocListForm : TDocListForm;
- OldName,NewName,Ext : String;
- FormID,FormName,DocNo : String;
- PreNode2Name : String;
- iFormID : String;
-begin
- PreNode2Name := '';
- if TreeView1.Selected.Parent = MyTreeNode1 then
- PreNode2Name:= GetNode2Name(MyTreeNode2);
- ShowText := _Msg('文件歸類中,請稍候');
- DataLoading(True,True);
- DocListForm := TDocListForm.Create(self);
- try
- InitialLanguage(PatchDlg); //載入多國語言
- for i := 1 to FORM_INF_List.Count - 1 do
- begin
- FormID := GetSQLData(FORM_INF_List,'T1.FORM_ID',i);
- FormName := GetSQLData(FORM_INF_List,'T1.FORM_DESC',i);
- DocNo := GetSQLData(FORM_INF_List,'T1.DOC_NO',i)+GetSQLData(FORM_INF_List,'T1.DOC_VERSION',i);
- //Showmessage(FORM_INF_List.Text);
- //showmessage(inttostr(FORM_INF_List.Count)+#13+inttostr(self.Doc_Inf_List.Count));
- if (FormID <> FileName2FormCode(DisplayISB.FileName)) and FormIDExists(FormID,False,i) then
- begin
- DocListForm.FormIDList.Add(FormID+'#@#'+FormName);
- With DocListForm.DocLV.Items.Add do
- begin
- Caption := FormID;
- SubItems.Add(FormName);
- end;
- end;
- end;
- if DocListForm.ShowModal = mrOk then
- begin
- OldName := ExtractFileName(DisplayISB.FileName);
- Ext := ExtractFileExt(OldName);
- //NewName := Copy(OldName,1,3)+'_'+TransRealFormID(DocListForm.DocLV.Selected.Caption)+Ext;
- NewName := Add_Zoo(FileName2ScanPage(OldName),3)+'_'+DocListForm.DocLV.Selected.Caption+Ext;
- RenameFile(DisplayPath+OldName,DisplayPath+NewName);
- ReNameContext(DisplayPath,OldName,NewName);
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
- DrawDocItem2(MytreeNode1,NowCaseno);
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- if PreNode2Name <> '' then // 回到原本點選的文件節點上
- begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- if GetNode2Name(MyTreeNode1.Item[i]) = PreNode2Name then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i];
- Break;
- end;
- end;
- end;
- TreeView1click(self);
- //Showmessage(_Msg('歸類完成')); //20101103 User要求拿掉
- end;
- finally
- DataLoading(False,False);
- DocListForm.Free;
- end;
-
-end;
-
-
-procedure TCB_IMGPSScanX.PM508Click(Sender: TObject);
-var
- P : Integer;
- inx:Integer;
-begin
- if DisplayISB.FileName = '' then Exit;
- if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'ISCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN')) then
- begin
- if Messagedlg(Format(_Msg('刪除後(%s)案件無影像,將刪除此案件,是否確定刪除?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
- _DelTree(DisplayPath);
- SetCaseList('D',NewTreeNode.IndexOf(MyTreeNode1),'');
- LoadImgFile;
- end
- Else
- begin
- if Messagedlg(_Msg('是否確定刪除?'),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
- inx := ContextList.IndexOf(ExtractFileName(DisplayISB.FileName));
- ContextList.Delete(inx);
- ContextList.SaveToFile(ImageSavePath + NowCaseno+'\Context.dat');
- Context_DocnoList.Delete(inx);
- Context_DocnoList.SaveToFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
- DeleteFile(DisplayISB.FileName);
- ReSortFileName(DisplayPath);
- ContextList.LoadFromFile(ImageSavePath + NowCaseno+'\Context.dat');
- Context_DocnoList.LoadFromFile(ImageSavePath + NowCaseno+'\Context_DocNo.dat');
- if FileExists(ImageSavePath + NowCaseno+'\CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(ImageSavePath + NowCaseno+'\CustomDocNo.dat');
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NowCaseno); //201408280改
- DrawDocItem2(MytreeNode1,NowCaseno);
-
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- P := ContextList.Count;
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,p]);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- NewTreeNodeRefresh;
- TreeView1Click(self);
-
- end;
- //Showmessage(_Msg('刪除完成')); //20101101 User要求拿掉
-end;
-
-procedure TCB_IMGPSScanX.PM509Click(Sender: TObject);
-begin
- PM401Click(nil);
-end;
-
-procedure TCB_IMGPSScanX.PM510Click(Sender: TObject);
-begin
- DeskewImg(DisplayISB.Graphic);
- DisplayISB.SaveToFile(DisplayISB.FileName);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu1Popup(Sender: TObject);
-begin
- PM101.Visible := False; //刪除
- PM102.Visible := False; //修改案件編號
- PM103.Visible := False; //掃瞄器加入影像
- PM104.Visible := False; //檔案加入影像
- PM106.Visible := False; //複製文件至其他編號
- PM107.Visible := False; //寫備註
- PM108.Visible := False; //歸類
- PM109.Visible := False; //檢核此筆
- PM110.Visible := False; //新增自訂文件
- PM111.Visible := False; //修改份數
-
- if (FMode = 'SAMPLESCAN') then Exit;
-
- if TreeView1.Selected = nil then Exit;
- if TreeView1.Selected = NewTreeNode then //新掃瞄件
- begin
- if (FMode = 'NSCAN') then
- begin
-//ShowMessage('AAAA');
- PM101.Visible := True; //刪除
- PM103.Visible := True; //掃瞄器加入影像
- PM104.Visible := True; //檔案加入影像
- end;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-// if FMode='ESCAN' then
-// begin
-// PM101.Visible := True;
-// end;
- end
- Else if TreeView1.Selected = MyTreeNode1 then //案件層
- begin
- PM101.Visible := True; //刪除
-
- if FImgDelete='Y' then
- begin
- PM101.Visible:=True;
- end;
- if FImgDelete='N' then
- begin
- PM101.Visible:=false;
- end;
-
- if FMode='ESCAN' then
- PM101.Visible:=false;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-
- if not CaseDelete_Enable(NowCaseno) then //
- PM101.Enabled := False
- else
- PM101.Enabled := True;
- PM103.Visible := True; //掃瞄器加入影像
- //PM107.Visible := True; //寫備註
- //PM109.Visible := True; //檢核此筆
-// if FCustDocYN <> 'N' Then
-// PM110.Visible := True; //新增自訂文件 20170914 先不在tree 中做自訂文件 讓user在縮圖做
- PM104.Visible := True; //檔案加入影像
- if (FMode = 'NSCAN') then
- begin
- PM102.Visible := True; //修改案件編號
- end;
-// if FMode='ESCAN' then
-// begin
-// PM101.Visible := True;
-// end;
- end
- Else if TreeView1.Selected = MyTreeNode2 then //文件層
- begin
- PM101.Visible := True; //刪除
- //PM107.Visible := True; //寫備註
- //PM109.Visible := True; //檢核此筆
-// if FCustDocYN <> 'N' Then
-// PM110.Visible := True; //新增自訂文件
- if FImgDelete='Y' then
- begin
- PM101.Visible:=True;
- end;
- if FImgDelete='N' then
- begin
- PM101.Visible:=false;
- end;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //沒有被引用走的
- PM101.Enabled := False //刪除
- Else
- PM101.Enabled := True; //刪除
- if ((GetDocDirCopies(NowCaseno,NowDocDir) > 1) or (not DocNoNeedDiv(NowDocNo)) or (Copy(NowDocNo,1,5)='ZZZZZ')) and (NowDocNo<> 'Attach') and (NowDocNo<> 'S_Attach') then
- PM111.Visible := True; //修改份數
- if (FMode = 'NSCAN') then
- PM102.Visible := True; //修改案件編號
-// if FMode='ESCAN' then
-// begin
-// PM101.Visible := True;
-// end;
- end
- Else if TreeView1.Selected = MyTreeNode3 then //表單層
- begin
- PM101.Visible := True; //刪除
- PM104.Visible := True; //檔案加入影像
- PM108.Visible := True; //歸類
- PM103.Visible := True; //掃瞄器加入影像
-// if FCustDocYN <> 'N' Then
-// PM110.Visible := True; //新增自訂文件
- if GetFormIDPage(ContextList,NowFormCode) < 1 Then
- begin
- PM108.Visible := False; //歸類
- end;
- if FImgDelete='Y' then
- begin
- PM101.Visible:=True;
- end;
- if FImgDelete='N' then
- begin
- PM101.Visible:=false;
- end;
-
- if FModeName=_Msg('異動件') then
- begin
- PM101.Visible := True;
- end;
-
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then //被引用走的
- begin
- PM101.Enabled := False; //刪除
- PM104.Enabled := False; //檔案加入影像
- PM108.Enabled := False; //歸類
- end
- Else
- begin
- PM101.Enabled := True; //刪除
- PM104.Enabled := True; //檔案加入影像
- PM108.Enabled := True; //歸類
- end;
-
- if (FMode = 'NSCAN') then
- begin
- PM102.Visible := True; //修改案件編號
- end;
- end;
-
-
-
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu4Popup(Sender: TObject);
-begin
- PM401.Visible := False;
- PM402.Visible := False;
- PM403.Visible := False;
- PM404.Visible := False;
- if FMode = 'SAMPLESCAN' then Exit;
- if (TreeView1.Selected.Level =2) or (TreeView1.Selected.Level =3) then
- begin
- PM402.Visible := True;
- PM403.Visible := True;
- PM404.Visible := True;
- end;
- PM401.Visible := True;
- if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') then
- PM401.Visible := False;
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu5Popup(Sender: TObject);
-begin
- PM501.Visible := False;
- PM502.Visible := False;
- PM503.Visible := False;
- PM504.Visible := False;
- PM505.Visible := False;
- PM506.Visible := False;
- PM507.Visible := False;
- PM508.Visible := False;
- PM509.Visible := False;
- PM510.Visible := False;
- if FMode = 'SAMPLESCAN' then Exit;
- if (DisplayISB.FileName <> '') then
- begin
- PM501.Visible := True;
- PM502.Visible := True;
- PM503.Visible := True;
- PM504.Visible := True;
- //PM505.Visible := True;
- //PM506.Visible := True;
- //PM507.Visible := True;
- //PM508.Visible := True;
- //PM509.Visible := True;
- //PM510.Visible := True;
- end;
- if (TreeView1.Selected <> MyTreeNode2) or (FMode = 'RSCAN') or (FMode = 'ESCAN') then
- PM509.Visible := False;
-end;
-
-procedure TCB_IMGPSScanX.PopupMenu6Popup(Sender: TObject);
-begin
- PM601.Visible := True; //歸類
- PM602.Visible := True; //自行定義文件名稱
- PM603.Visible := False; //掃描替換此頁
- PM604.Visible := False; //歪斜矯正
- PM605.Visible := True; //刪除
-
-// if FMode='ESCAN' then
-// begin
-// PM601.Visible := False; //歸類
-// PM602.Visible := False; //自行定義文件名稱
-// PM603.Visible := False; //掃描替換此頁
-// PM604.Visible := False; //歪斜矯正
-// PM605.Visible := False; //刪除
-// end;
-
- if ((NowDocNo = 'Attach') or (NowDocNo = 'S_Attach')) and (FCustDocYN <> 'N') then
- begin
- PM602.Visible := True; //自行定義文件名稱
- //PM603.Visible := True; //掃描替換此頁
- PM604.Visible := True; //歪斜矯正
- PM601.Visible := True; //歸類
- PM605.Visible := True; //刪除
- end;
-
- if FModeName<>_Msg('異動件') then
- begin
- if (FImgDelete='Y') then
- begin
- PM605.Enabled:=True;
- end;
- if FImgDelete='N' then
- begin
- PM605.Enabled:=false;
- end;
- end;
-
-
-
-
- if CheckSelectImg_UseCase(DisplayPath,NowCaseNo) then //選擇的影像不可有引用的
- begin
- PM601.Enabled := False; //歸類
- PM605.Enabled := False; //刪除
- end;
-
-
-end;
-
-procedure TCB_IMGPSScanX.PrePageBtnClick(Sender: TObject);
-var
- page : Integer;
-begin
- {page := ScrollBar1.Position;
- Case Vmode of
- 0 : dec(page);
- 1 : Page := Page - 2;
- 2 : Page := Page - 4;
- 3 : Page := Page - 6;
- 4 : Page := Page - 8;
- end;
- IF page >= ScrollBar1.min Then
- begin
- ScrollBar1.Position := page;
- end
- Else
- ScrollBar1.Position := 1; }
- if selectISB = nil then Exit;
- PriorPage(SelectPage);
- if (SelectISB.Parent.Top-4) < 0 then
- scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
-
- //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
-
-
-end;
-
-procedure TCB_IMGPSScanX.SampleScanBtnClick(Sender: TObject);
-var
- SampleFormID : String;
- SendData : String;
- buttonSelected : Integer;
-begin
- ScanMode := smSample;
- ClearView(1);
- Vmode := 0; //切成單頁
- GoViewMode;
- ScanInfo.ImageCount := 0;
- ScanPath := SamplePath;
- ScanCaseno := '';
- ContextList.Clear;
- ShowText := _Msg('範本掃描中,請稍候');
- DataLoading(True,True);
- SampleFormID := UpperCase(InputBox(_Msg('範本檔掃瞄輸入畫面'),_Msg('請輸入文件編號'),''));
-
- if SampleFormIDList.IndexOf(SampleFormID)<>-1 then
- begin
- // Show a custom dialog
- buttonSelected := messagedlg(SampleFormID+_Msg('已有範本,是否取代?'),mtCustom,
- [mbYes,mbCancel], 0);
- if buttonSelected = mrCancel then
- begin
- DataLoading(false,false);
- Exit;
- end;
- end;
-
- if SampleFormID <> '' then
- begin
- if FormIDExists(SampleFormID,False,0) then
- begin
- ScanSaveFilename := SampleFormID + '.tif';
- end
- Else
- begin
- Showmessage(Format(_Msg('FormID:%s尚未註冊'),[SampleFormID]));
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- DataLoading(false,false);
- Exit;
- end;
- SampleAnchorMode := FormID2Anchor(SampleFormID);
-
- Panel1.Enabled := False;
- Panel2.Enabled := False;
-//ShowMessage('AAAAA');
- Try
- StatrTwainScan;
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
-
- if (ISB1.FileName <> '') and FileExists(SamplePath+SampleFormID+'.tif') then
- begin
- ShowText := _Msg('範本傳送中,請稍候');
- DataLoading(True,True);
- //多存一份jpg
- ImageScrollBox1.LoadFromFile(SamplePath+SampleFormID+'.tif',1);
- BWTif2Jpg(ImageScrollBox1.Graphic);
- ImageScrollBox1.SaveToFile(SamplePath+SampleFormID+'.jpg');
- //多存一份jpg
-
- NowWork_No := FormCode2WorkNo(SampleFormID);
- SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.tif';
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.tif',FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('傳送範本檔案時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
-
- if FileExists(SamplePath+SampleFormID+'.jpg') then //傳送JPG影像
- begin
- SendData := 'data='+FData+'&verify='+FVerify+'&work_no='+FWork_no+'&file_name='+SampleFormID+'.jpg';
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',SamplePath+SampleFormID+'.jpg',FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('傳送範本檔案(JPG)時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
- end;
- Showmessage(_Msg('傳送完成'));
- end;
- end;
- DataLoading(False,False);
-
-end;
-
-procedure TCB_IMGPSScanX.ScrollBar1Change(Sender: TObject);
-begin
- Exit;
- If (TreeView1.Selected = MyTreenode1) or (TreeView1.Selected.ImageIndex = 6) Then
- begin
- view_image_FormCode(DisplayPath,'ShowAll',ScrollBar1.Position,1);
- end
- Else IF (TreeView1.Selected = MyTreenode2) then
- begin
- view_image_FormCode(DisplayPath,NowDocNo,ScrollBar1.Position,1);
- end
- Else if (TreeView1.Selected = MyTreenode3) then
- begin
- view_image_FormCode(DisplayPath,NowFormCode,ScrollBar1.Position,1);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.ScrollBox1MouseEnter(Sender: TObject);
-begin
-ScrollBox1.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.SelectScanBtnClick(Sender: TObject);
-begin
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- scanner.SelectScanner;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
-end;
-
-procedure TCB_IMGPSScanX.StatusBar1DblClick(Sender: TObject);
-begin
- Button3.Visible := not Button3.Visible;
- Button4.Visible := not Button4.Visible;
- if (GetKeyState(VK_CONTROL) < 0) Then
- begin
- ExportBt.Visible := not ExportBt.Visible;
- ImportBt.Visible := not ImportBt.Visible;
- end
- Else
- begin
- Memo1.Visible := not Memo1.Visible;
- Display1.Visible := not Display1.Visible;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ActiveFormCreate(Sender: TObject);
-var IScrollBox : TImageScrollBox;
- i :integer;
-begin
- {HotKeyId1 := GlobalAddAtom('MyHotKey1')-$C000;
- HotKeyId2 := GlobalAddAtom('MyHotKey2')-$C000;
- HotKeyId3 := GlobalAddAtom('MyHotKey3')-$C000;
- HotKeyId4 := GlobalAddAtom('MyHotKey4')-$C000;
- RegisterHotKey(handle,HotKeyId1,0,VK_UP); //printscreen
- RegisterHotKey(handle,HotKeyId1,0,VK_Down); //printscreen }
- PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
- vmode := 1;
- DesableImage;
- For i:= 1 to 8 do begin
- IScrollBox := TImageScrollBox( FindComponent('ISB'+IntToStr(i)));
- IScrollBox.MouseMode := mmUser;
- iScrollBox.ZoomMode := zmFullPage;
- end;
- Sleep(500);
- Timer1.Enabled := True;
-end;
-
-procedure TCB_IMGPSScanX.ActiveFormKeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- if Edit1.Focused then
- begin
- if selectISB = nil then Exit;
-
- if (Key =VK_UP) then
- begin
- PriorPage(SelectPage);
- if (SelectISB.Parent.Top-4) < 0 then
- scrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + SelectISB.Parent.Top-4;
-
- //ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
- end;
- if (Key =VK_Down) then
- begin
- NextPage(SelectPage);
- if SelectISB.Parent.Top+SelectISB.Parent.Height+4 > scrollBox1.Height then
- ScrollBox1.VertScrollBar.Position := scrollBox1.VertScrollBar.Position + (SelectISB.Parent.Top+SelectISB.Parent.Height-ScrollBox1.Height+8);
- //scrollBox1.VertScrollBar.ScrollPos := SelectISB.Parent.Top+SelectISB.Parent.Height;
- //ISBClick(TImageScrollBox(FindComponent(ISBName+'2')));
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.AddAttFileLBClick(Sender: TObject);
-var
- i : Integer;
- Addfile : String;
-begin
- OpenDialog1.Filter := 'PDF files|*.pdf';
- OpenDialog1.Options := [ofAllowMultiSelect];
- if OpenDialog1.Execute then
- begin
- ShowText :=_Msg('檔案加入中,請稍候');
- DataLoading(True,True);
- for i := 0 to OpenDialog1.Files.Count - 1 do
- begin
- AddFile := HTTPEncode(UTF8Encode(ExtractFileName(OpenDialog1.Files.Strings[i])));
- if FileExists(ImageSavePath+NowCaseno+'\'+AddFile) then
- begin
- if Messagedlg(Format(_Msg('%s己存在,是否覆蓋??'),[Addfile]),mtconfirmation,[mbyes,mbcancel],0) = mrcancel Then
- Continue;
- SetAttContextList('D',-1,NowCaseno,AddFile);
- end;
- // AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
- // Splitter2.Visible := True;
- CopyFile(Pchar(OpenDialog1.Files.Strings[i]),Pchar(ImageSavePath+NowCaseno+'\'+AddFile),False);
- SetAttContextList('A',-1,NowCaseno,AddFile);
- LoadAttFile(NowCaseno);
- end;
- end;
- DataLoading(False,False);
-end;
-
-procedure TCB_IMGPSScanX.AddCredit1RGClick(Sender: TObject);
-begin
- if DisplayPath <> '' then
- begin
- Case AddCredit1RG.ItemIndex of
- -1:Case_loandoc := '';
- 0:Case_loandoc := 'Y';
- 1:Case_loandoc := 'N';
- end;
- WriteCaseIndex(DisplayPath);
- end;
-end;
-
-procedure TCB_IMGPSScanX.AddScanBtnClick(Sender: TObject);
-var
- P,v : Integer;
-begin
- IF not InitialOk Then
- begin
- Showmessage(_Msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
- if MyTreeNode1 = nil then
- begin
- Showmessage(_Msg('請先選擇案件'));
- Exit;
- end;
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- ScanMode := smInsert;
- ScanInfo.ImageCount := ContextList.Count;
- ScanPath := DisplayPath;
- ScanCaseno := NowCaseno;
- ScanDocDir := NowDocDir;
- Try
- StatrTwainScan;
- Except
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- end;
- Panel1.Enabled := True;
- Panel2.Enabled := True;
- DrawDocItem2(MytreeNode1,NowCaseno);
- //DrawDocItem(MytreeNode1,FORM_INF_List,NowCaseno);
- //P := ContextList.Count;
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
- MytreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseno)]);
-
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- SetDocDirtoSelected(MyTreeNode1,FirstDocDir);
- TreeView1Click(self);
-end;
-
-procedure TCB_IMGPSScanX.AttListBoxClick(Sender: TObject);
-begin
- DelAttFileLB.Enabled := False;
- if AttListBox.ItemIndex >= 0 then
- DelAttFileLB.Enabled := True;
-end;
-
-procedure TCB_IMGPSScanX.AttListBoxDblClick(Sender: TObject);
-var
- AttFile : String;
-begin
- if AttListBox.ItemIndex < 0 then Exit;
-
- AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[AttListBox.ItemIndex]));
- if FileExists(DisplayPath+AttFile) then
- ShellExecute(Application.Handle,'open',PChar(DisplayPath+AttFile),nil,nil,SW_SHOW)
- else
- Showmessage(Format(_Msg('找不到檔案:%s'),[AttFile]));
-end;
-
-procedure TCB_IMGPSScanX.BtnMouseEnter(Sender: TObject);
-begin
- AddToolTip(TBitBtn(Sender).Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
-end;
-
-procedure TCB_IMGPSScanX.Button3Click(Sender: TObject);
-begin
- //Showmessage(CreateDocNo_Info(NowCaseNo)+#13+'******'+#13+CreateCustDocNo_Info(NowCaseNo));
- //Showmessage(NowSelectFileList.Text);
- //SetIn_WH_DocNo;
- //CreateIn_WH(self.NowCaseno);
- //Create_Cust_DocDir(NowCaseNo);
- //Showmessage(self.GetDocNoDir(self.DisplayPath,'111'));
- //Case2upload(NowCaseNo);
- //mkdir(DisplayPath+'Test\');
- //Download2Case(DisplayPath+'Upload\',DisplayPath+'Test\');
- //CreateFormID_FormName(DisplayPath); //產生FormID_FormName.dat
- //CreateDocNo_DocName(DisplayPath); //產生DocNo_Name.dat
- //Showmessage(CreateDocNo_Info(DisplayPath)); //產生 Docno,份數,頁數;Docno,份數,頁數 的回傳字串
- //lb1.Caption:='AAAAAAAAAAA';
- //Showmessage(CreateDocnoFrom_Info(NowCaseno));
- //Showmessage(self.CreateCustDocNoFrom_Info(NowCaseno));
- //ShowMessage('FMaxUploadSize='+FMaxUploadSize);
- //initkscan;
- showmessage('FUrl='+FUrl+#10#13+
- 'FCaseID='+FCaseID+#10#13+
- 'FMode='+FMode+#10#13+
- 'FModeName='+FModeName+#10#13+
- 'FWork_no='+FWork_no+#10#13+
- 'FUserID='+FUserID+#10#13+
- 'FUserName='+FUserName+#10#13+
- 'FUserUnit='+FUserUnit+#10#13+
- 'FData='+FData+#10#13+
- 'FVerify='+FVerify+#10#13+
- 'FReWrite='+FReWrite+#10#13+
- 'FLanguage='+FLanguage+#10#13+
- 'FLoanDoc_Value='+FLoanDoc_Value+#10#13+
- 'FLoanDoc_Enable='+FLoanDoc_Enable+#10#13+
- 'FUseProxy='+FUseProxy+#10#13+
- 'FC_DocNoList='+FC_DocNoList+#10#13+
- 'FC_DocNameList='+FC_DocNameList+#10#13+
- 'FFixFileList='+FFixFileList+#10#13+
- 'FIs_In_Wh='+FIs_In_Wh+#10#13+
- 'FOldCaseInfo='+FOldCaseInfo+#10#13+
- 'FPrintyn='+FPrintyn+#10#13+
- 'FIs_OldCase='+FIs_OldCase+#10#13+
- 'FCustDocYN='+FCustDocYN);
- ShowMessage('FImgDPI='+IntToStr(FImgDPI)+#10#13+
- 'FScanColor='+ IntToStr(FScanColor)+#10#13+
- 'FFileSizeLimit='+ IntToStr(FFileSizeLimit) +#10#13+
- 'FCaseNoLength='+ IntToStr(FCaseNoLength) +#10#13+
- 'FImgDelete='+ FImgDelete+#10#13+
- 'FIsExternal='+ FIsExternal+#10#13+
- 'FWH_category='+FWH_category+
- 'FCheck_main_form='+ FCheck_main_form+#10#13+
- 'FMaxUploadSize='+FMaxUploadSize);
- //FImgDelete:='Y';
- LoadImgFile;
- { ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
- 'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
- 'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
- 'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
- }
-end;
-
-procedure TCB_IMGPSScanX.Button4Click(Sender: TObject);
-var
- i:integer;
- str:String;
-begin
- //Showmessage(self.Doc_Inf_List.Text);
- //LoadImgFile;
- //LoadImgFile1;
- //ISB1.MouseMode:=mmAmplifier;
-
- str:='';
- for I := 1 to 11 do // 看 OMRErrInfo 的內容
- begin
- str:=str+BoolToStr(OMRErrInfo[i].Display,true)+','
- +BoolToStr(OMRErrInfo[i].Ignore,true)+','+OMRErrInfo[i].Info+','
- +OMRErrInfo[i].Mode+#10#13;
- end;
- ShowMessage('OMRErrInfo='+str);
- ShowMessage('Doc_Inf_List='+Doc_Inf_List.Text);
- ShowMessage('DM_FORM_INF_List='+DM_FORM_INF_List.Text) ;
- ShowMessage('FORM_INF_List='+FORM_INF_List.Text) ;
- ShowMessage('CHECK_RULE_INF_List='+CHECK_RULE_INF_List.Text) ;
- ShowMessage('MEMO_INF_List='+MEMO_INF_List.Text) ;
- ShowMessage('WORK_INF_List='+WORK_INF_List.Text) ;
- ShowMessage('LASTEST_FORM_INF_List='+LASTEST_FORM_INF_List.Text) ;
- ShowMessage('SampleFormIDList='+SampleFormIDList.Text);
- ShowMessage('ExistImgList='+ExistImgList.Text);
- ShowMessage('LastInitFormidList='+LastInitFormidList.Text);
- ShowMessage('IN_WH_DocNoList='+IN_WH_DocNoList.Text);
-
-// SampleFormIDList.Add('31A00101011706A');
-// SampleFormIDList.Add('31A00101021706A');
-// SampleFormIDList.Add('31A00101031706A');
-end;
-
-procedure TCB_IMGPSScanX.Button5Click(Sender: TObject);
-begin
- GetftpInfo(NowCaseno,'upload');
- SetFtpInfo;
- IIS_Ftp.FtpsConnect;
-
- IIS_Ftp.FtpsToMain(FFtpExtraPath,NowCaseno+'.pdf','d:\1.pdf',display1);
-end;
-
-procedure TCB_IMGPSScanX.Button6Click(Sender: TObject);
-begin
- GetftpInfo(NowCaseno,'download');
- SetFtpInfo;
- IIS_Ftp.FtpsConnect;
- IIS_Ftp.FtpsCWD(IIS_Ftp.FtpPath);
- IIS_Ftp.FtpsReceive(NowCaseNo+'.zip','d:\'+NowCaseNo+'.zip');
-
-
-end;
-
-procedure TCB_IMGPSScanX.ExportBtClick(Sender: TObject);
-var
- SendData : String;
- EnCodeDateTime : String;
- S : TStringlist;
- SFileName,VFileName : String;
-begin
- SFileName := En_DecryptionStr_Base64('E','MPSLIC_SCAN.lic','9338430');
- VFileName := En_DecryptionStr_Base64('E','MPSLIC_VIEW.lic','9338430');
- IIS_File2Web.S_LicEnName := SFileName;
- IIS_File2Web.V_LicEnName := VFileName;
-
- /////下載MPSLIC_SCAN.lic //////
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
-
-
- //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_SCAN.lic'+'&mode=sample';
- //if not dnFile(HTTPSClient,Furl,'servlet/CWC03',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+SFileName,FReWrite,Memo1,False,DownImgStatus) then
- begin
- Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Exit;
- end;
- /////下載MPSLIC_SCAN.lic /////
-
- /////下載MPSLIC_VIEW.lic //////
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- //SendData := 'checktime='+EnCodeDateTime+'&workno=CW&formid=MPSLIC_VIEW.lic'+'&mode=sample'; //這裡改成必傳CW 20121212
- //if not dnFile(HTTPSClient,Furl,'service/slic/SLIC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_VIEW.lic';
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+VFileName,FReWrite,Memo1,False,DownImgStatus) then
- begin
- Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Exit;
- end;
- /////下載MPSLIC_VIEW.lic /////
-
- ////壓zip/////
- S := TStringlist.Create;
- try
- S.Add(En_DecryptionStr_Base64('E',GetDate,'9338430'));
- S.Add(SFileName);
- S.Add(VFileName);
- S.SaveToFile(LngPath+'mps.dat');
- S.Clear;
- S.Add(LngPath+'mps.dat');
- S.Add(LngPath+SFileName);
- S.Add(LngPath+VFileName);
- if FileExists(LngPath+'mps.zip') then
- DeleteFile(LngPath+'mps.zip');
- ExecuteZip_Pwd(LngPath+'mps.zip',LngPath,S,False,False,'9338430');
-
- finally
- S.Free;
- DeleteFile(LngPath+SFileName);
- DeleteFile(LngPath+VFileName);
- DeleteFile(LngPath+'mps.dat');
- end;
- ////壓zip//////
- Showmessage(_Msg('匯出完成,匯出檔案:')+LngPath+'mps.zip');
-end;
-
-procedure TCB_IMGPSScanX.ImportBtClick(Sender: TObject);
-var
- SendData : String;
- EnCodeDateTime : String;
- S : TStringlist;
- SFileName,VFileName : String;
- OpenDialog1 : TOpenDialog;
- ZipPath : String;
- ZipFile,ZipName : String;
- LicName : String;
- i : Integer;
-begin
- OpenDialog1 := TOpenDialog.Create(self);
- S := TStringlist.Create;
- try
- OpenDialog1.Filter := 'Zip files (*.zip)|*.ZIP';
- if OpenDialog1.Execute then
- begin
- ZipFile:= ExtractFileName(OpenDialog1.FileName);
- ZipName := Copy(ZipFile,1,length(ZipFile)-length(ExtractFileExt(OpenDialog1.FileName)));
- ZipPath := LngPath+ZipName+'\';
-
- str2dir(ZipPath);
- if not ExecuteUnZip_Pwd(OpenDialog1.FileName,ZipPath,False,'9338430') then
- Showmessage(_Msg('無法解壓縮'));
- if not FileExists(ZipPath+'mps.dat') then
- begin
- Showmessage(_Msg('格式不符,無法匯入'));
- Exit;
- end;
- S.LoadFromFile(ZipPath+'mps.dat');
- if (En_DecryptionStr_Base64('D',S.Strings[0],'9338430')<> ServerDate) then
- begin
- Showmessage(_Msg('檔案過期,無法匯入'));
- Exit;
- end;
-
- for i := 1 to S.Count -1 do
- begin
- LicName := En_DecryptionStr_Base64('D',S.Strings[i],'9338430');
- RenameFile(ZipPath+S.Strings[i],ZipPath+LicName);
- if (LicName = 'MPSLIC_SCAN.lic') or (LicName = 'MPSLIC_VIEW.lic') then
-
- /////上傳MPSLICXXXX.lic ////
- //if not upFile(HTTPSClient,FUrl,'servlet/CWC04','formid='+LicName+'@workno=CW@mode=sample','file',ZipPath+LicName,FReWrite,Memo1,False) then
- //begin
- SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file_name='+LicName;
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',ZipPath+LicName,FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
- /////上傳MPSLICXXXX.lic /////
- end;
- end;
- Finally
- OpenDialog1.Free;
- S.Free;
- _DelTree(ZipPath);
- end;
- Showmessage(_Msg('匯入完成'));
-end;
-
-procedure TCB_IMGPSScanX.HotKeyDown (var Msg : TMessage);
-begin
-
-end;
-
-Function TCB_IMGPSScanX.FindISB2View(Vmode:Integer):TImageScrollBox; //找空的ISB來顯示
-var
- i,n : Integer;
- ISB : TImageScrollBox;
-begin
- case Vmode of
- 0 : n := 1;
- 1 : n := 2;
- 2 : n := 4;
- 3 : n := 6;
- 4 : n := 8;
- end;
- for i := 1 to 8 do
- begin
- if i > n then Break;
- ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
- if (i = n) and (ISB.FileName <> '') then
- begin
- clearView(i);
- Result := ISB1;
- end
- Else if ISB.FileName = '' then
- Result := ISB;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ViewMouseMode(v:Integer);
-var
- i : Integer;
- Md : TMouseMode;
- ISB : TImageScrollBox;
-begin
-//ShowMessage(IntToStr(v));
- case v of
- -1 : Md := TMouseMode(mmUser);
- 0 : Md := TMouseMode(mmAmplifier);
- 1 : Md := TMouseMode(mmZoom);
- 2 : Md := TMouseMode(mmDrag);
- 3 : Md := TMouseMode(mmR270);
- 4 : Md := TMouseMode(mmR180);
- 5 : Md := TMouseMode(mmR90);
- 6 : Md := TMouseMode(mmDelete);
- end;
- for i := 1 to 8 do
- begin
- ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
- ISB.MouseMode := TMouseMode(Md);
- //Label3.Caption:='v='+IntToStr(v)+' time'+FormatDateTime('yyyy/mm/dd HH:MM:SS', now);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GoViewMode;
-begin
- case VMode of
- 0: DisplayMode(VMode,1,1,Panel9);
- 1: DisplayMode(VMode,1,1,Panel9);
- 2: DisplayMode(VMode,2,2,Panel9);
- 3: DisplayMode(VMode,2,3,Panel9);
- 4: DisplayMode(VMode,2,4,Panel9);
- end;
-end;
-
-
-Procedure TCB_IMGPSScanX.SetFormID_DocNo; //將FormID及Docno抽出來另存入list裡 20130403增加
-var
- i : Integer;
-begin
- for i := 1 to FORM_INF_List.Count-1 do
- begin
- FormID_List.Add(GetSQLData(FORM_INF_List,'T1.FORM_ID',i));
- DocNo_List.Add(GetSQLData(FORM_INF_List,'T1.DOC_NO',i));
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.DeleteFormCodeFile(CaseID,DocDir,FormID:String); //刪除指定FormID文件
-var
- i: Integer;
- FileList : TStringlist;
-begin
- FileList := TStringlist.Create;
- try
- FileList.Clear;
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
-
- for i := FileList.Count - 1 downto 0 do
- begin
- if FileName2FormCode(FileList.Strings[i]) = FormID then
- begin
- if (FMode = 'ESCAN') and (FModeName<>_Msg('異動件')) then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\'+DocDir+'\'+FileList.Strings[i]) then
- begin
- //ShowMessage('有圖為非當次掃瞄，不可刪除');
- Break;
- end;
- end;
-//ShowMessage(FileList.Strings[i]);
- DeleteImageFile(ImageSavePath+CaseID+'\'+DocDir+'\',FileList.Strings[i],CaseID);
- end;
- end;
- finally
- FileList.Free;
- end;
- ReSortFileName(ImageSavePath+CaseID+'\'+DocDir+'\');
- {for i := ContextList.Count - 1 downto 0 do
- begin
- FName := ContextList.Strings[i];
- if FormID = 'Err' then //刪未註冊文件
- begin
- If not FormIDExists(FileName2FormCode(FName),False,0) Then
- begin
- DeleteFile(Path+FName);
- ContextList.Delete(i);
- end;
- end
- Else
- begin
- If FormID = FileName2FormCode(FName) then
- begin
- DeleteFile(Path+FName);
- ContextList.Delete(i);
- end;
- end;
- end;
- ContextList.SaveToFile(Path+'Context.dat');
- ReSortFileName(Path); }
-end;
-
-Function TCB_IMGPSScanX.FindFormCodePages(CaseID,FormCode:String):Integer; //計算案件裡FormID的頁數
-var
- i,Count : integer;
- S : TStringlist;
- iFormCode : String;
-begin
- Count := 0;
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\upload\Context.dat');
- for i := 0 to S.Count - 1 do
- begin
- if FWH_category='N' then
- begin
- if ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]) then
- begin
- Continue;
- end;
- end;
- iFormCode := FileName2FormCode(S.Strings[i]);
- if FormCode = iFormCode then
- begin
- Inc(Count);
- end;
- end;
- finally
- S.Free;
- end;
- Result := Count;
-end;
-
-Function TCB_IMGPSScanX.GetDataFormCodePages(FormCode:String):Integer; //取記錄的FormcID的頁數
-begin
- If FindSQLData(FORM_INF_List,'T1.MAX_PAGE','T1.FORM_ID',FormCode,0,FindResult) Then
- begin
- IF GetFindResult('T1.MAX_PAGE') = '' Then
- Result := 9999
- Else
- Result := Strtoint(GetFindResult('T1.MAX_PAGE'));
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CaseReSize(CaseID:String); //案件的影像縮放
-var
- S : TStringlist;
- FileName : String;
- i : Integer;
-begin
- {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then
- DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
- if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
- DeleteFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath+CaseID+'\Upload\Context.dat');
- For i := 0 to S.Count -1 do
- begin
- FileName := S.Strings[i];
- ImageReSize_FormID(CaseID,FileName); //依十字定位點做縮放
- end;
- finally
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ImageReSize_FormID(CaseID,FileName:String); //依十字定位點做縮放
-var
- FormID : String;
- DH,DW : String;
- NowW,NowH : Integer;
- ANCHOR : String; //是否有十字線
- SizeStr : String;
- S : TStringlist;
- v,v1:Integer;
- IsRecordMD5:Boolean;
-begin
- IsRecordMD5:=False;
- FormID := FileName2FormCode(FileName);
- if FormID = '' then Exit;
-
- IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
- begin
- DH := GetFindResult('T1.FORM_HEIGHT');
- DW := GetFindResult('T1.FORM_WIDTH');
- ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
- ANCHOR := Index2Anchor(ANCHOR);
-Display1.Lines.Add(FormID+','+DH+','+DW);
-//ShowMessage('AAAAAAAAA');
- if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
- begin
-//ShowMessage('BBBBBBB');
- ImageScrollBox1.LoadFromFile(ImageSavePath+CaseID+'\Upload\'+FileName,1);
-
- if (FWH_category='N') and ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName) then
- begin
- Exit;//20171103 補件 原有的圖不作resize
- end;
-
- //FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH);
- FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
-
- SizeStr := CheckSize(ISB_BW,UpLPoint,UpRPoint,DownLPoint,DW,DH);
- ImageResize(ImageScrollBox1.Graphic,ISB_BW.Graphic.Width,ISB_BW.Graphic.Height);
-
- FindPoint(ISB_BW.Graphic,UpLPoint,UpRPoint,DownLPoint,NowW,NowH,ANCHOR);
- v := 5;
- v1 := length(SizeStr);
- IF (SizeStr <> '') and (Copy(SizeStr,1,v) <> 'ERROR') then
- begin
-//ShowMessage('CCCCC');
- if (ISExistImg(ImageSavePath+CaseID+'\Upload\'+FileName)) and (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName))=-1) then
- begin
- IsRecordMD5:=True;
- end;
- ImageScrollBox1.SaveToFile(ImageSavePath+CaseID+'\Upload\'+FileName);
- if IsRecordMD5 then
- begin
- reSizeExistImgList.add(LoadFileGetMD5(ImageSavePath+CaseID+'\Upload\'+FileName));
- end;
-//showmessage(ImageSavePath+CaseID+'\Upload\'+FileName);
- S := TStringlist.Create; ///20110422拿掉 換成上傳才做
- if FileExists(ImageSavePath+CaseID+'\Upload\ReSize.dat') then
- S.LoadFromFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
- //S.Add(FormCode2FormName(FormID)+' '+SizeStr);
- S.Add(FileName+','+SizeStr+#8+DateTimetoStr(Now));
- S.SaveToFile(ImageSavePath+CaseID+'\Upload\ReSize.dat');
- S.Free;
- end;
- if (Copy(SizeStr,1,v) = 'ERROR') then //未找到三個定位點
- begin
- S := TStringlist.Create;
- if FileExists(ImageSavePath+CaseID+'\Upload\AnchorError.dat') then
- S.LoadFromFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
- S.Add(FileName+'-->'+Copy(SizeStr,V+1,V1-v));
- S.SaveToFile(ImageSavePath+CaseID+'\Upload\AnchorError.dat');
- S.Free;
- end;
-
- ImageScrollBox1.FileName := '';
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ImageReSize_tmp(FormID,FileName:String); //依十字定位點做縮放(暫存檔)
-var
- DH,DW : String;
- ANCHOR : String; //是否有十字線
- SizeStr : String;
- S : TStringlist;
-begin
- IF FindSQLData(FORM_INF_List,'T1.FORM_HEIGHT,T1.FORM_WIDTH,T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
- begin
- DH := GetFindResult('T1.FORM_HEIGHT');
- DW := GetFindResult('T1.FORM_WIDTH');
- ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
- ANCHOR := Index2Anchor(ANCHOR);
- if ((ANCHOR = 'ANCHOR') or (ANCHOR = 'FRAME')) and (DH <> '') and (DW <> '') then //有十字定位點
- begin
- ImageScrollBox1.LoadFromFile(FileName,1);
- SizeStr := CheckSize(ImageScrollBox1,UpLPoint,UpRPoint,DownLPoint,DW,DH);
- IF SizeStr <> '' then
- begin
- ImageScrollBox1.SaveToFile(FileName);
- end;
- ImageScrollBox1.FileName := '';
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
-begin
- IF ImageScrollBox1.Graphic.Empty Then Exit;
- ISB_BW.Graphic.Assign(ImageScrollBox1.Graphic);
- If ImageScrollBox1.Graphic.ImageFormat <> ifBlackWhite Then
- begin
- ConvertToBW(ISB_BW.Graphic);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.NewTreeNodeRefresh;
-var
- v : Integer;
-begin
- //v := Pos('-',NewTreeNode.Text);
- //NewTreeNode.Text := Copy(NewTreeNode.Text,1,v-1)+'-共'+inttostr(NewTreeNode.Count)+'筆';
- GetCase_PageCount(CaseCount,PageCount);
- v := Pos('-',NewTreeNode.Text);
- NewTreeNode.Text := Format(_Msg('%s-共%d筆共%d頁'),[Copy(NewTreeNode.Text,1,v-1),CaseCount,PageCount]);
-end;
-
-Procedure TCB_IMGPSScanX.MyTreeNode1Refresh;
-var
- v : Integer;
-begin
- v := Pos('-',MyTreeNode1.Text);
- MyTreeNode1.Text := Format(_Msg('%s-%d筆'),[Copy(MyTreeNode1.Text,1,v-1),MyTreeNode1.Count]);
-end;
-
-Procedure TCB_IMGPSScanX.MyTreeNode2ReFresh(CaseID:String);
-var
- P : Integer;
-begin
- //p:= ContextList.Count;
- //MytreeNode1.Text := Format(_Msg('%s-%d頁'),[CaseID,p]);
- DrawDocItem2(MytreeNode1,CaseID);
- //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
-end;
-
-Procedure TCB_IMGPSScanX.MyTreeNode3ReFresh(CaseID:String);
-begin
-
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,CaseID); //201408280改
- DrawDocItem2(MytreeNode1,CaseID);
- //DrawDocItem(MytreeNode1,FORM_INF_List,CaseID);
-end;
-
-Function TCB_IMGPSScanX.Node2DocNo(Node2:TTreeNode):String; //MyTreeNode2取DocNo出來
-var
- v,v1,v2 : Integer;
-begin
- v := Posend('{',Node2.Text);
- v1 := Posend('}',Node2.Text);
- v2 := Posend('-',Node2.Text);
- Result := Copy(Node2.Text,v+1,v1-v-1);
- IF v1 = 0 Then
- begin
- Result := '';
- end;
-end;
-
-Function TCB_IMGPSScanX.Node3DocNo(Node3:TTreeNode):String; //MyTreeNode3取DocNo出來
-var
- v,v1,v2 : Integer;
-begin
- v := Posend('{',Node3.Parent.Text);
- v1 := Posend('}',Node3.Parent.Text);
- v2 := Posend('-',Node3.Parent.Text);
- Result := Copy(Node3.Parent.Text,v+1,v1-v-1);
- IF v1 = 0 Then
- begin
- Result := '';
- end;
-end;
-
-Function TCB_IMGPSScanX.Node3FormID(Node3:TTreeNode):String; //MyTreeNode3取FormCode出來
-var
- v,v1,v2 : Integer;
-begin
- v := Pos('{',Node3.Text);
- v1 := Pos('}',Node3.Text);
- v2 := Posend('-',Node3.Text);
- Result := Copy(Node3.Text,v+1,v1-v-1);
- IF v1 = 0 Then
- begin
- Result := '';
- end;
-end;
-
-
-Function TCB_IMGPSScanX.GetNode2Name(Node2:TTreeNode):String; //取MyTreeNode2的識別字出來(記之前點選用)
-var
- v : Integer;
-begin
- v := Posend('-',Node2.Text);
- Result := Copy(Node2.Text,1,v-1);
-end;
-
-{Function TCB_IMGPSScanX.Down_Replace_Img(SPath,DPath,CaseID:String):Boolean;
-var
- EnCodeDateTime : String;
- DownUrl : String;
- SC,Main_C : TStringlist;
- i,n : Integer;
- FormID,DocNo,Version : String;
- OldFName,NewMainFName,NewSubFName : String;
- AttPath : String;
-begin
- SC := TStringlist.Create;
- Main_C := TStringlist.Create;
- try
- Result := True;
- HaveAppDoc := False;
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- DownUrl := FUrl+CaseID+'&checktime='+EnCodeDateTime;
- if not dnFile(HTTPSClient,DownUrl,'','',DPath+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if Memo1.Lines.Strings[0] = '1' then
- begin
- HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- AttPath := DPath + 'AttFile\';
- if FileExists(DPath+CaseID+'.zip') then
- begin
- ExecuteUnZip(DPath+CaseID+'.zip',DPath,True);
- if FileExists(DPath+'img.zip') then
- begin
- ExecuteUnZip(DPath+'img.zip',DPath,False);
- end;
- if FileExists(DPath+'att.zip') then
- begin
- Str2Dir(AttPath);
- ExecuteUnZip(DPath+'att.zip',AttPath,False);
- end;
- end
- Else
- begin
- if ((FMode = 'FSCAN') or (FMode = 'ISCAN')) and (Memo1.Lines.Strings[0] ='NO_FILE') then //FGIS前台匯入件沒有影像是對的
- begin
- SC.Clear;
- SC.SaveToFile(DPath+'Context.dat');
- end
- Else
- begin
- HttpErrStr := _Msg('找不到影像');
- Result := False;
- Exit;
- end;
- end;
-
-
- if FileExists(SPath+'Context.dat') then
- SC.LoadFromFile(SPath+'Context.dat');
- for I := 0 to SC.Count - 1 do
- begin
- FormID := FileName2FormCode(SC.Strings[i]);
- DocNo := FormCode2DocNo(FormID);
- Version := FormCode2Version(FormID);
- If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
- begin
- if GetFindResult('ADD_SCAN_RULE') = 'R' then //替換的先刪再加 20101026 User由刪FormCode改刪DocNo
- begin
- //DeleteFormCodeFile(DPath,FormID);
- ContextList.LoadFromFile(DPath+'Context.dat');
- DeleteDocNoFile(DPath,DocNo);
- end;
- end;
- end;
- for I := 0 to SC.Count - 1 do //複製補充進來的影像
- begin
- OldFName := SC.Strings[i];
- Main_C.LoadFromFile(DPath+'Context.dat');
- //NewMainFName:= Add_Zoo(Main_C.Count+1,3)+Copy(OldFName,4,length(OldFName)-3);
- NewMainFName:= Add_Zoo(Main_C.Count+1,3)+FileName2NoQuene_Filename(OldFName);
- FormID := FileName2FormCode(OldFName);
- DocNo := FormCode2DocNo(FormID);
- Version := FormCode2Version(FormID);
- If FindSQLData(Doc_Inf_List,'ADD_SCAN_RULE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) Then
- begin
- CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
- end;
- if FormID = '' then //附件
- begin
- CopyFile(PWideChar(SPath+OldFName),PWideChar(DPath+NewMainFName),False);
- end;
- Main_C.Add(NewMainFName);
- Main_C.SaveToFile(DPath+'Context.dat');
- end;
- finally
- SC.Free;
- Main_C.Free;
- end;
- ///加入的電子檔匯入案件裡
- if DirectoryExists(SPath+'AttFile\') then
- AttFile_Arrange(SPath+'AttFile\',DPath+'AttFile\');
-end;}
-
-function TCB_IMGPSScanX.checkFormCodeIsCustom(path, formcode: string): boolean;
-var
- i:integer;
- ini : Tmeminifile;
- str1:String;
-begin
-//ShowMessage(path);
- ini := Tmeminifile.Create(Path+'CustomDocNo.ini');
- str1:=ini.ReadString(Copy(formcode,1,8),'FormID','');
-//ShowMessage('str1'+str1);
- if str1 = formcode then
- begin
- Result:=True;
- end
- else
- begin
- Result := False;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.InitScrollRec;
-var i : Integer;
-begin
- for I := 1 to 8 do
- begin
- ScrollRec[i].HScroll := 0;
- ScrollRec[i].VScroll := 0;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GetScrollData(ISB:TImageScrollBox;Var HS,VS:Integer;Var iRate:Single);
-var
- index : Integer;
-begin
- index := strtoint(copy(ISB.Name,4,1));
- HS := ScrollRec[Index].HScroll;
- VS := ScrollRec[Index].VScroll;
- iRate := ScrollRec[Index].Rate;
-end;
-
-Procedure TCB_IMGPSScanX.SetScrollData(ISB:TImageScrollBox;HS,VS:Integer;iRate:Single);
-var
- index : Integer;
-begin
- index := strtoint(copy(ISB.Name,4,1));
- ScrollRec[Index].HScroll := HS;
- ScrollRec[Index].VScroll := VS;
- ScrollRec[Index].Rate := iRate;
-end;
-
-Procedure TCB_IMGPSScanX.FormIDReplace(CaseID,DocDir,OldFormID,NewFormID:String); //指定FormID更換成新的FormID
-var
- i : Integer;
- OldFileList,NewFileList : TStringlist;
- NewDocNo,NewDocDir:String;
- FormID : String;
- OldFile,NewFile:String;
- Ext : String;
- ST1:TStringList;
-begin
- ST1:=TStringList.Create;
- OldFileList := TStringlist.Create;
- NewFileList := TStringlist.Create;
- try
- NewDocNo := FormCode2DocNo(NewFormID);
- NewDocDir := FindLastestDocDir(CaseID,NewDocNo);
-
- /////20190319 Hong 原本的程式判斷怪怪的先Mark在下方,改用這段
- if DocNoNeedDiv(NewDocNo) then //要分份數
- begin
- if ((FormCode2Page(NewFormID) = '01') and (GetDocDir_Page(CaseID,NewDocDir)>0)) or (NewDocDir = '') then
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
- end
- else
- begin //20171016 真對補件影響 所加的判斷
- ST1.Clear;
- if FileExists(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath + CaseID+'\'+NewDocDir+'\Context.dat');
- if (ST1.Count > 0) and ISExistImg(ImageSavePath + CaseID+'\'+NewDocDir+'\'+ST1.Strings[0]) then //20181210 多增加判斷ST1>0 否則會有機會出現List out of bound Hong
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
- end;
- end;
- end;
- end
- Else //不分份數
- begin
- if NewDocNo <> '' then
- NewDocDir := NewDocNo
- else //Attach 附件
- NewDocDir := DocNo2DocNoDir(ImageSavePath + CaseID+'\',NewDocNo);
- end;
-
- {if NewDocDir = '' then
- begin
- if DocNoNeedDiv(NewDocNo) then
- begin
- NewDocDir:=DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
- end
- else
- begin
- NewDocDir := NewDocNo;
- end;
- end;
-//ShowMessage('NewDocDir='+NewDocDir);
- if DocNoNeedDiv(NewDocNo) and (FormCode2Page(NewFormID)='01') then
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath+CaseID+'\',NewDocNo);
- end
- else
- begin
- ST1.Clear;
- if FileExists(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath + NowCaseno+'\'+NewDocDir+'\Context.dat');
- if ISExistImg(ImageSavePath + NowCaseno+'\'+NewDocDir+'\'+ST1.Strings[0]) then
- begin
- NewDocDir := DocNo2DocNoDir(ImageSavePath + NowCaseno+'\',NewDocNo);
- end;
- end;
- end; }
- if Not DirectoryExists(ImageSavePath+CaseID+'\'+NewDocDir) then
- begin
- MkDir(ImageSavePath+CaseID+'\'+NewDocDir);
- SetDocNoList('A',-1,CaseID,NewDocDir,'1');
- end;
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- OldFileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- if FileExists(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat') then
- NewFileList.LoadFromFile(ImageSavePath+CaseID+'\'+NewDocDir+'\Context.dat');
- for i := 0 to OldFileList.Count - 1 do
- begin
- OldFile := OldFileList.Strings[i];
- Ext := ExtractFileExt(OldFile);
- if FileName2FormCode(OldFile) = OldFormID then
- begin
- NewFile := Add_Zoo(NewFileList.Count+1,3)+'_'+NewFormID+Ext;
- CopyFile(PWideChar(ImageSavePath+CaseID+'\'+DocDir+'\'+OldFile),PWideChar(ImageSavePath+CaseID+'\'+NewDocDir+'\'+NewFile),False);
- NewFileList.Add(NewFile);
- SetContextList('A',-1,CaseID,NewDocDir,NewFile);
- end;
- end;
- DeleteFormCodeFile(CaseID,DocDir,OldFormID);
-
- {for i := 0 to S.Count - 1 do
- begin
- FormID := FileName2FormCode(S.Strings[i]);
- if FormID = OldFormID then
- begin
- OldFile := S.Strings[i];
- Ext := ExtractFileExt(OldFile);
- //NewFile := Copy(S.Strings[i],1,3)+'_'+NewFormID+Ext;
- NewFile := Add_Zoo(FileName2ScanPage(S.Strings[i]),3)+'_'+NewFormID+Ext;
- ReNameFile(Path+OldFile,Path+NewFile);
- S.Strings[i] := NewFile;
- end;
- end;
- S.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat'); }
-
- finally
- OldFileList.Free;
- NewFileList.Free;
- ST1.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.PageReplaceFormID(Path,NowFormID,NewFormID:String); //選取頁更換FormID
-var
- i,n : Integer;
- S,S1 : TStringlist;
- OldFile,NewFile:String;
- Ext : String;
-begin
- S := TStringlist.Create;
- S1 := TStringlist.Create;
- try
- S.LoadFromFile(Path+'Context.dat');
- for i := 0 to S.Count - 1 do
- begin
- if NowFormID = 'ALL' then
- S1.Add(S.Strings[i])
- Else if NowFormID = 'Err' then
- begin
- if not FormIDExists(FileName2FormCode(S.Strings[i]),False,0) then
- S1.Add(S.Strings[i])
- end
- Else
- begin
- if NowFormID = FileName2FormCode(S.Strings[i]) then
- S1.Add(S.Strings[i])
- end;
- end;
- for I := 0 to PageLV.Items.Count - 1 do
- begin
- if PageLV.Items.Item[i].Selected then
- begin
- OldFile := S1.Strings[i];
- Ext := ExtractFileExt(OldFile);
- //NewFile := Copy(S1.Strings[i],1,3)+'_'+NewFormID+Ext;
- NewFile := Add_Zoo(FileName2ScanPage(S1.Strings[i]),3)+'_'+NewFormID+Ext;
- ReNameFile(Path+OldFile,Path+NewFile);
- for n := 0 to S.Count - 1 do
- begin
- if OldFile = S.Strings[n] then
- S.Strings[n] := NewFile;
- end;
- end;
- end;
- S.SaveToFile(Path+'Context.dat');
- ContextList.LoadFromFile(Path+'Context.dat');
- finally
- S.Free;
- S1.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetFormIDPage(FileList:TStringlist;FormID:String):Integer;
-var
- i,Cnt : Integer;
-begin
- Cnt := 0;
- for i := 0 to FileList.Count - 1 do
- begin
- if FormID = FileName2FormCode(FileList.Strings[i]) then
- begin
- inc(Cnt);
- end;
- end;
- Result := Cnt;
-end;
-
-Procedure TCB_IMGPSScanX.WriteResize(ImgName,TxtName:String); //產生Resize.dat
-var
- TagTxt : String;
- RecHeight,RecWidth : String;
- ImgHeight,ImgWidth : String;
- S : TStringlist;
- v,v1:Integer;
-begin
- ImageScrollBox1.LoadFromFile(ImgName,1);
- ImgHeight := Inttostr(ImageScrollBox1.Graphic.Height);
- ImgWidth := Inttostr(ImageScrollBox1.Graphic.Width);
- Try
- TagTxt := GetTag(ImgName);
- Except
- TagTxt := '';
- End;
- if TagTxt <> '' then
- begin
- S := TStringlist.Create;
- try
- S.CommaText := TagTxt;
- if S.Count = 2 then
- begin
- v := Pos(':',S.Strings[0]);
- v1 := length(S.Strings[0]);
- RecHeight := Copy(S.Strings[0],v+1,v1-v);
- v := Pos(':',S.Strings[1]);
- v1 := length(S.Strings[1]);
- RecWidth := Copy(S.Strings[1],v+1,v1-v);
- end;
- S.Clear;
- if FileExists(TxtName) then
- S.LoadFromFile(TxtName);
- if (RecHeight <> '') and (RecWidth <> '') and ((RecHeight<>ImgHeight) or (RecWidth<>ImgWidth)) then
- S.Add(ExtractfileName(ImgName)+',原長:'+RecHeight+',原寬:'+RecWidth+',長變動:'+ImgHeight+',寬變動:'+ImgWidth);
- S.SaveToFile(TxtName);
- finally
- S.Free;
- end;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.BarCode2FormID : String; //Barcode依規則轉成FormID
-var
- i : Integer;
- FormID : String;
-begin
- Result := ''; //沒找到
- FormID := '';
- for i := 1 to MpsBarcodeinf.Count do
- begin
- if (Length(MpsBarcodeinf.Text[i]) = FormIDLength) then
- begin
- FormID := MpsBarcodeinf.text[i];
- if not FormIDAppear(FormID) then
- FormID := '';
- end;
- if (FormID <> '') and FormIDExists(FormID,False,0) then //有可用的FormID就離開
- begin
- Result := FormID;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckFormIDExists(DocNoNode:TTreeNode;FormID:String):Boolean; //檢查FormID是否存在文件裡
-var
- i : Integer;
-begin
- Result := False;
- for i := 0 to DocNoNode.Count - 1 do
- begin
- if FormID = Node3FormID(DocNoNode.Item[i]) then
- begin
- Result := True;
- break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormID2Anchor(FormID:String):String; //用FormID取出十字模式
-var
- Anchor : String;
-begin
- Result := 'NONE';
- IF FindSQLData(FORM_INF_List,'T1.ANCHOR','T1.FORM_ID',FormID,0,FindResult) then
- begin
- ANCHOR := UpperCase(GetFindResult('T1.ANCHOR'));
- end;
- Result := Index2Anchor(Anchor);
-end;
-
-procedure TCB_IMGPSScanX.ScanDuplexCBClick(Sender: TObject);
-begin
- ScanDuplex := ScanDuplexCB.Checked;
- //R_W_ScanIni('W'); //user要求改成預設後不能改
-end;
-
-procedure TCB_IMGPSScanX.ScanGrayCBClick(Sender: TObject);
-begin
-
- if ScanGrayCB.Checked then
- begin
- ScanColor:=ifGray256;
- end
- else
- begin
- if FScanColor = 0 then
- begin
- ScanColor := ifBlackWhite;
- end;
-
- if FScanColor = 1 then
- begin
- //ScanColor := ifGray256 ;
- ScanColor := ifBlackWhite; //
- end;
-
-
- if FScanColor = 2 then
- begin
- ScanColor := ifTrueColor ;
- end;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.GetFormatID(CaseID: string):String;
-Var
- S : TStringlist;
- FormatID : String;
-begin
- Result := '';
- S := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseIndex.dat') then
- begin
- S.LoadFromFile(ImageSavePath+CaseID+'\CaseIndex.dat');
- //Format_ID := S.Strings[5]; //主鍵值 (報價單號or續保單號or保單號碼or保險證號or原案件受編)
- //Result := Format_ID;
- //Handle_No := S.Strings[0]; //經辦代號
- //Cen_Uid := S.Strings[1]; //被保人ID
- //Cen_Cliname := S.Strings[2]; //被保人姓名
- //Cen_Platno := S.Strings[3]; //車號
- //Case_Priority := S.Strings[4];//案件等級
- end;
- finally
- S.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.CaseHelpBtnClick(Sender: TObject);
-var
- ErrlistForm : TErrlistForm;
- S : TStringlist;
- UpFormID : String;
- Anchor : String;
-begin
- ShowText := _Msg('處理檢核失敗中,請稍候');
- DataLoading(True,True);
-LogFile1.LogToFile(logTimeString+'處理檢核失敗中開始');
- ErrlistForm := TErrlistForm.Create(Self);
- RejectCase := False;
- S := TStringlist.Create;
- try
- InitialLanguage(ErrlistForm);
- Application.ProcessMessages;
- ErrlistForm.LogFile1.LogFile:=LogFile1.LogFile;
- ErrlistForm.DeleteBt.Caption := ErrlistForm.DeleteBt.Caption+'(&D)';
- ErrlistForm.iniPath := ImageSavePath + NowCaseNo+'\upload\';
- OMRErrini2List(NowCaseno,ErrlistForm);
- ErrlistForm.ErrListLV.ItemIndex := ErrIndex;
- ErrlistForm.Timer1.Enabled := true;
- if ErrlistForm.ShowModal = mrok then
- begin
- TransPath := ImageSavePath+NowCaseNo+'\upload\';
- if FMode = 'ISCAN' then
- TransPath := ImageSavePath + NowCaseNo+'\DownTemp\';
- ShowText := NowCaseNo+_Msg('資料上傳中,請稍候');
- DataLoading(True,True);
-
- if FMode = 'ISCAN' then
- begin
- If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
- begin
- DataLoading(False,False);
- Exit;
- end;
- end
- Else
- begin
- If Not TransCaseID(TransPath,NowCaseNo,True) Then //傳送案件
- begin
- DataLoading(False,False);
- Exit;
- end;
- end;
- CaseHelpBtn.Visible := False;
- LoadImgFile;
- if (FMode='NSCAN') or (FMode='DSCAN') then
- begin
- Showmessage(NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程。'));
- end;
-
- if FMode='ESCAN' then
- begin
- Showmessage(NowCaseNo+_Msg('影像已補件完成。'));
- end;
-
- DataLoading(False,False);
- end
- Else
- begin
- MyTreeNode2ReFresh(NowCaseNo);
- end;
- finally
- ErrlistForm.Free;
- DataLoading(False,False);
- S.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.CheckCaseBtnClick(Sender: TObject);
-Var
- CaseID : String;
- i,n,v : Integer;
- S : TStringlist;
-begin
- //if TreeView1.Selected = nil then Exit;
- //if TreeView1.Selected = NewTreeNode then Exit;
- Displaypath := ''; //20130327 修正報價單號會錯置的問題
- S := TStringlist.Create;
- try
- ClearView(1);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- For i := 0 to NewTreeNode.Count -1 do
- begin
- v := posend('-',NewTreenode.Item[i].Text);
- CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
- begin
- If OMRCheckCase(CaseID) then //有成功
- begin
- S.Add('Y');
- S.SaveToFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
- end;
- end;
- //MyTreeNode2ReFresh(CaseID); //原本是OMR單一案件,後改成OMR全部案件 所以這個要mark
- end;
- LoadImgFile;
- TreeView1Click(nil);
- DataLoading(False,False);
- finally
- S.Free;
- end;
- Showmessage(_Msg('檢核完成'));
-end;
-
-procedure TCB_IMGPSScanX.ClearView(stkv:Integer);
-var i:integer;
- ISB : TImageScrollBox;
- lb : TLabel;
-begin
- For i:= stkv to 8 do
- begin
- ISB := TImageScrollBox(FindComponent('ISB'+intToStr(i)));
- ISB.FileName := '';
- Lb := TLabel(FindComponent('Lb'+intToStr(i)));
- Lb.Caption := '';
- end;
- FreePreViewISB;
- ISB1Click(ISB1);
-end;
-
-procedure TCB_IMGPSScanX.PrtLbClick(Sender: TObject);
-var
- Width : Double;
- Height : Double;
- i : Integer;
- DocDirList,FileList :TStringlist;
- iDocDir,iDocNo : String;
- PrtDialog : TPrintDialog;
- S : String;
-begin
- ShowText := _Msg('列印中,請稍候');
- DataLoading(True,True);
- Case2upload(NowCaseNo); //產生原影像結構
-
-
- //ontextList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
-
- PrintForm := TPrintForm.create(Self);
- DocDirList := TStringlist.Create;
- FileList := TStringlist.Create;
- try
- FileList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\Context.dat');
- DocDirList.LoadFromFile(ImageSavePath+NowCaseNo+'\Upload\DocDir.dat');
-
- InitialLanguage(PrintForm); //載入多國語言
- PrintForm.CheckListBox1.Items.Clear;
- For i := 0 to FileList.Count - 1 do
- begin
- iDocDir := DocDirList.Strings[i];
- iDocno := DocNoDir2DocNo(iDocDir);
-
- if not DocNoAppear(iDocNo) then Continue;
-
- PrintForm.CheckListBox1.Items.Add(FileList.Strings[i]);
- if CheckFormID_Prt(FileName2FormCode(FileList.Strings[i])) then
- PrintForm.CheckListBox1.Checked[i] := True;
- PrintForm.ListBox1.Items.Add(Add_Zoo(i+1,3))
- end;
- If (PrintForm.ShowModal = mrOK) then
- begin
- S := '';
- for I := 0 to PrintForm.CheckListBox1.Count -1 do
- begin
- if PrintForm.CheckListBox1.Checked[i] then
- begin
- if S = '' then
- S := S+PrintForm.CheckListBox1.Items[i]
- Else
- S := S+#13+PrintForm.CheckListBox1.Items[i];
- end;
- end;
- if S = '' then
- begin
- Showmessage(_msg('尚未選擇欲列印文件'));
- Exit;
- end
- Else
- begin
- PrintImg(S,FUserID,ServerDate,ImageSavePath+NowCaseNo+'\Upload\');
- If not Writelog(NowCaseNo) then
- begin
- //Showmessage('false');
- end;
- end;
- end;
- finally
- DataLoading(False,False);
- PrintForm.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.UseOldCaseLbClick(Sender: TObject);
-var
- i,n : Integer;
- CaseID,Year,BS_No,IS_Old : String;
- OldCaseInfoForm : TOldCaseInfoForm;
- OldCaseInfoList,Caseinfolist,FileList,DocNoList,iFileList,iDocNoList,iDocNo_CopiesList : TStringlist;
- OldDocdir,OldDocNo,OldDocName,NewDocDir,FileName : String;
- OldPath,NewPath,OldFile,NewFile:String;
- Oldcopies:Integer;
-begin
- OldCaseInfoForm := TOldCaseInfoForm.Create(Self);
- OldCaseInfoList := TStringlist.Create;
- Caseinfolist := TStringlist.Create;
- FileList := TStringlist.Create;
- DocNoList := TStringlist.Create;
- iDocNo_CopiesList := TStringlist.Create;
- iFileList := TStringlist.Create;
- iDocNoList := TStringlist.Create;
- OldCaseInfoForm.OldDocDirList := TStringlist.Create;
- OldCaseInfoForm.OldDocNameList := TStringlist.Create;
- OldCaseInfoForm.IN_WH_DocNoList := TStringlist.Create;
- OldCaseInfoForm.OldCopiesList := TStringlist.Create;
- try
- InitialLanguage(OldCaseInfoForm); //載入多國語言
- OldCaseInfoForm.Notebook1.ActivePage := 'CaseInfo';
- OldCaseInfoForm.ImageSavePath := ImageSavePath;
- OldCaseInfoForm.CaseID := NowCaseNo;
- OldCaseInfoForm.Furl := Furl;
- OldCaseInfoForm.Fdata := FData;
- OldCaseInfoForm.FVerify := FVerify;
- OldCaseInfoForm.FReWrite := FReWrite;
- OldCaseInfoForm.FOldCaseInfo := FOldCaseInfo;
-
- //OldCaseInfoList 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數] tab 案件編號@#,年度@#,業務別@#,是否舊件@#,文件編號[份數]@#,文件編號[份數]
- OldCaseInfoList.StrictDelimiter := true;
- OldCaseInfoList.Delimiter := #9;
- OldCaseInfoList.DelimitedText := FOldCaseInfo;
- //Showmessage(FOldCaseInfo);
- //Showmessage(OldCaseInfoList.Text);
- OldCaseInfoForm.IN_WH_DocNoList.Assign(IN_WH_DocNoList);
- OldCaseInfoForm.FIs_In_Wh := FIs_In_Wh;
- for i := 0 to OldCaseInfoList.Count - 1 do
- begin
- Caseinfolist:=SplitString('@#,',OldCaseInfoList.Strings[i]);
- //Caseinfolist.Delimiter := '_';
- //Caseinfolist.DelimitedText := OldCaseInfoList.Strings[i];
- CaseID := Caseinfolist.Strings[0];
- Year := Caseinfolist.Strings[1];
- BS_No := Caseinfolist.Strings[2];
- IS_Old := Caseinfolist.Strings[3];
- With OldCaseInfoForm.OldCaseLV.Items.Add do
- begin
- Caption := CaseID;
- SubItems.Add(Year);
- SubItems.Add(BS_No);
- SubItems.Add(IS_Old);
- end;
- end;
-
- if OldCaseInfoForm.ShowModal = MrOk then
- begin
- OldPath := ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\';
- NewPath := ImageSavePath+NowCaseNo+'\';
-
- iDocNoList.Clear;
- if FileExists(NewPath+'CaseDocNo.dat') then
- iDocNoList.LoadFromFile(NewPath+'CaseDocNo.dat');
- if FileExists(NewPath+'CaseDocNo_Copies.dat') then
- iDocNo_CopiesList.LoadFromFile(NewPath+'CaseDocNo_Copies.dat');
-
- for i := 0 to OldCaseInfoForm.OldDocDirList.Count - 1 do
- begin
- FileList.LoadFromFile(OldPath+'Context.dat');
- DocNoList.LoadFromFile(OldPath+'DocDir.dat');
-
-
- OldDocName := OldCaseInfoForm.OldDocNameList.Strings[i];
- OldDocDir := OldCaseInfoForm.OldDocDirList.Strings[i];
- OldDocNo := DocNoDir2DocNo(OldDocDir);
- if Copy(OldDocNo,1,5)<>'ZZZZZ' then
- begin
- if DocNoNeedDiv(OldDocNo) then
- NewDocDir := DocNo2DocNoDir(NewPath,OldDocNo)
- else
- NewDocDir := OldDocNo;
- end
- Else
- begin
- NewDocDir := GetNewCustomDocNo(NewPath,OldDocName);
- end;
- SetRecordEditedDocDir('A',NowCaseNo,NewDocDir);
- iFileList.Clear;
- if FileExists(NewPath+NewDocDir+'\Context.dat') then
- iFileList.LoadFromFile(NewPath+NewDocDir+'\Context.dat');
-
- if Not DirectoryExists(NewPath+NewDocDir) then
- begin
-
-
- iDocNoList.Add(NewDocDir);
- Oldcopies := GetDocDirCopies(NowCaseNo+'\'+OldCaseInfoForm.UseCaseID,OldDocDir); //舊案的CaseID 放在新案CaseID目錄裡
- if FileExists(ImageSavePath+NowCaseNo+'\'+OldCaseInfoForm.UseCaseID+'\CaseDocNo_Copies.dat') then
- iDocNo_CopiesList.Add(inttostr(Oldcopies))
- else
- begin
- OldCopies := GetDocDircopies_Rec(OldPath,OldCaseInfoForm.UseCaseID,OldDocDir);
- iDocNo_CopiesList.Add(inttostr(Oldcopies));
- //iDocNo_CopiesList.Add('1');
- end;
- MkDir(NewPath+NewDocDir);
- end;
- SetUseCase('A',NewPath,NewDocDir,OldCaseInfoForm.UseCaseID,''); //NewDocDir 從哪來的
- SetUseCase('A',OldPath,OldDocDir,'',NowCaseNo); //OldDocDir 去哪了
- StringtoFile('Y',OldPath+'UseCase.dat'); //要上傳
- for n := 0 to DocNoList.Count - 1 do
- begin
- if OldDocDir = DocNoList.Strings[n] then
- begin
- OldFile := FileList.Strings[n];
- if Copy(NewDocDir,1,5)<>'ZZZZZ' then
- NewFile := Add_Zoo(iFileList.Count+1,3)+FileName2NoQuene_Filename(OldFile)
- Else
- NewFile := Add_Zoo(iFileList.Count+1,3)+'_'+GetCustomFormID(NewPath,NewDocDir)+ExtractFileExt(OldFile);
-
- iFileList.Add(NewFile);
- CopyFile(PwideChar(OldPath+OldFile),Pwidechar(NewPath+NewDocDir+'\'+NewFile),False);
- end;
- end;
- iFileList.SaveToFile(NewPath+NewDocDir+'\Context.dat');
- end;
-
- iDocNoList.SaveToFile(NewPath+'CaseDocNo.dat');
- iDocNo_CopiesList.SaveToFile(NewPath+'CaseDocNo_Copies.dat');
- DrawDocItem2(MyTreeNode1,NowCaseNo);
- //MyTreeNode1.Text := Format('%s-%d'+_Msg('頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- MyTreeNode1.Text := Format(_Msg('%s-%d頁'),[NowCaseno,GetCasePage(ImageSavePath,NowCaseNo)]);
- NewTreeNodeRefresh;
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- end;
- finally
- OldCaseInfoForm.OldDocDirList.Free;
- OldCaseInfoForm.OldDocNameList.Free;
- OldCaseInfoForm.OldCopiesList.Free;
- OldCaseInfoList.Free;
- Caseinfolist.Free;
- FileList.Free;
- DocNoList.Free;
- iDocNo_CopiesList.Free;
- iFileList.Free;
- iDocNoList.Free;
- OldCaseInfoForm.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.LastInitFormidListCreate(path: string);
-var
- i:integer;
- ST1:TStringList;
- str1:string;
-begin
-//ShowMessage('path='+path);
- ST1:=TStringList.Create;
- ST1.LoadFromFile(path+'FormCode_Name.dat');
- for I := 0 to ST1.Count - 1 do
- begin
- if (Pos('_',St1.Strings[i])<>1) and (Pos('_',St1.Strings[i])<>-1) then
- begin
- str1:=Copy(ST1.Strings[i],1,Pos('_',St1.Strings[i])-1);
- LastInitFormidList.Add(str1);
- end;
- end;
-
- ST1.Free;
-end;
-
-Function TCB_IMGPSScanX.FindDivFormCode(FormCode:String):Boolean; //找有沒有分案的條碼
-var
- i : Integer;
- DelBarCode : String;
- S : TStringlist;
- iMode : String;
-begin
- Result := False;
- iMode := FMode;
- S := TStringlist.Create;
- try
- IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DIVISION','T1.FORM_ID',FormCode,0,FindResult) then
- begin
- S.CommaText := GetFindResult('T1.DIVISION');
- for i := 0 to S.Count - 1 do //可能有多組
- begin
- if S.Strings[i] = iMode then
- begin
- Result := True;
- Break;
- end;
- end;
- end;
- finally
- S.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.SmoothCBClick(Sender: TObject);
-begin
- if SmoothCB.Checked then
- begin
- Image_Smooth(ISB1.Graphic);
- ISB1.Redraw(True);
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCustomFormID(Path,DocNo:String):String; //取出自定文件FormID
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Result := ini.ReadString(DocNo,'FormID','');
- finally
- ini.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.DelAttFileLBClick(Sender: TObject);
-var
- AttFile : String;
- SelectCount : Integer;
- i : Integer;
-begin
- SelectCount := 0;
- for i := 0 to AttListBox.Items.Count - 1 do
- begin
- if AttListBox.Selected[i] then
- inc(SelectCount);
- end;
- if SelectCount = 0 then
- begin
- Showmessage(_Msg('請選擇要刪除的電子檔'));
- Exit;
- end;
-
- if SelectCount > 0 then
- begin
- if Messagedlg(Format(_Msg('是否刪除這%d筆??'),[SelectCount]),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then Exit;
- for i := 0 to AttListBox.Items.Count - 1 do
- begin
- if AttListBox.Selected[i] then
- begin
- AttFile := HTTPEncode(UTF8Encode(AttListBox.Items.Strings[i]));
- DeleteFile(ImageSavePath+NowCaseNo+'\'+AttFile);
- SetAttContextList('D',-1,NowCaseno,AttFile);
- end;
- end;
- end;
- LoadAttFile(NowCaseNo);
- Showmessage(_msg('刪除完成'));
-end;
-
-Function TCB_IMGPSScanX.CheckFormID_Prt(FormID:String):Boolean; //傳入的FormID是否預設列印
-begin
- Result := False;
- If FindSQLData(FORM_INF_List,'T1.IS_PRINT','T1.FORM_ID',FormID,0,FindResult) Then
- begin
- if GetFindResult('T1.IS_PRINT') = 'Y' Then
- Result := True;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ErrFormtoCurrentForm(CaseID,EFormID,CFormID:String);//將舊案的錯誤FormID改正確的FormID
-var
- DocNoList,FileList :TStringlist;
- EDocNo,CDocNo,iDocNo,iFormID :String;
- EDocDir,CDocDir:String;
- OldFile,NewFile :String;
- iPath,iiPath : String;
- i,n : Integer;
-begin
- EDocNo := FormCode2DocNo(EFormID);
- CDocNo := FormCode2DocNo(CFormID);
- DocNoList :=TStringlist.Create;
- FileList := TStringlist.Create;
- try
- DocNoList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to DocNoList.Count - 1 do
- begin
- EDocDir := DocNoList.Strings[i];
- iDocNo := DocNoDir2DocNo(DocNoList.Strings[i]);
- iPath := ImageSavePath+CaseID+'\'+EDocDir+'\';
- if FileExists(iPath+'Context.dat') then //20140909漏加這個判斷造成自訂文件但沒影像會出錯誤訊息
- FileList.LoadFromFile(iPath+'Context.dat');
- for n := 0 to FileList.Count - 1 do
- begin
- iFormID := FileName2FormCode(FileList.Strings[n]);
- if iFormID = EFormID then
- begin
- OldFile := FileList.Strings[n];
- NewFile := StringReplace(FileList.Strings[n],iFormID,CFormID,[rfReplaceAll]);
- FileList.Strings[n] := NewFile;
- RenameFile(iPath+OldFile,iPath+NewFile);
- FileList.SaveToFile(iPath+'Context.dat');
- end;
- end;
- if iDocNo = EDocNo then
- begin
- CDocDir := StringReplace(EDocDir,EDocNo,CDocNo,[rfReplaceAll]);
- iiPath := ImageSavePath+CaseID+'\'+CDocDir+'\';
- MoveFile(PWideChar(iPath),PWideChar(iiPath));
- DocNoList.Strings[i] := StringReplace(DocNoList.Strings[i],iDocNo,CDocNo,[rfReplaceAll]);
- DocNoList.SaveToFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- //SetRecordEditedDocDir('A',CaseID,CDocNo); //20140918 yuu說改成不紀錄
- end;
- end;
- finally
- DocNoList.Free;
- FileList.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SortDocDir_FormID(CaseID,DocDir:String); //將DocDir裡的文件編號排序
-var
- i,n,v,ln : Integer;
- Exists:Boolean;
- FileList,SortFileList,FormIDList : TStringlist;
- FormID,iFormID:String;
- OldName,NewName : String;
-begin
- FileList := TStringlist.Create;
- SortFileList := TStringlist.Create;
- FormIDList := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat') then
- begin
- FileList.LoadFromFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- ////取出FormID/////
- for i := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[i]);
- if (FormID = 'Attach') or (FormID = 'S_Attach') then Continue; //附件離開
- Exists := False;
- for n := 0 to FormIDList.Count - 1 do //查一下FORMID是否已經存在了
- begin
- if FormID = FormIDList.Strings[n] then
- begin
- Exists := True;
- Break;
- end;
- end;
- if not Exists then
- FormIDList.Add(FormID);
- end;
- FormIDList.Sort;
- //排序後產要更名的清單
- for i := 0 to FormIDList.Count - 1 do
- begin
- iFormID := FormIDList.Strings[i];
- for n := 0 to FileList.Count - 1 do
- begin
- if FileName2FormCode(FileList.Strings[n]) = iFormID then
- begin
- SortFileList.Add(FileList.Strings[n]+','+'@'+Add_Zoo(SortFileList.Count+1,3)+'_'+iFormID+ExtractFileExt(FileList.Strings[n]));
- end;
- end;
- end;
- FileList.Clear;
- //更名成新順序的檔名
- for i := 0 to SortFileList.Count - 1 do
- begin
- v := Pos(',',SortFileList.Strings[i]);
- ln := Length(SortFileList.Strings[i]);
- OldName := Copy(SortFileList.Strings[i],1,v-1);
- NewName := Copy(SortFileList.Strings[i],v+1,ln-v);
- RenameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
- FileList.Add(NewName);
- end;
- //去掉@開頭
- for i := 0 to FileList.Count - 1 do
- begin
- OldName := FileList.Strings[i];
- NewName := StringReplace(OldName,'@','',[rfReplaceAll]);
- ReNameFile(ImageSavePath+CaseID+'\'+DocDir+'\'+OldName,ImageSavePath+CaseID+'\'+DocDir+'\'+NewName);
- FileList.Strings[i] := NewName;
- end;
- FileList.SaveToFile(ImageSavePath+CaseID+'\'+DocDir+'\Context.dat');
- end;
- finally
- FileList.Free;
- SortFileList.Free;
- FormIDList.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormIDAppear(FormID:String):Boolean; //FormID是否可出現
-var
- iDocNo : String;
-begin
- Result := True;
- iDocNo := FormCode2DocNo(FormID);
- if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
- ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
- Result := False;
-
- if (FIs_In_Wh='Y') and (FWH_category='Y') then //20170816 新加
- begin
- if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and //非入庫掃描不看入庫文件
- ((iDocNo <> 'Attach') and (iDocNo <> 'S_Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then
- Result := False;
- end;
-
- if (FIs_In_Wh='Y') and (FWH_category='N') then //20170816 新加
- begin
- Result:=True;
- end;
-
-end;
-
-Function TCB_IMGPSScanX.ISGuideFormID(FormID:String):Boolean;
-var
- i : Integer;
-begin
- Result := False;
- for i := 0 to GuideFormIDList.Count - 1 do
- begin
- if FormID = GuideFormIDList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.ISDivPageFormID(FormID:String):Boolean;
-var
- i : Integer;
-begin
- Result := False;
-
- for i := 0 to DivPageFormIDList.Count - 1 do
- begin
- if FormID = DivPageFormIDList.Strings[i] then
- begin
- Result := True;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.MoveImage_Drag(Path:String;fp,tp:Integer); //拖拉移動頁數
-var
- i,n,inx:Integer;
- FList,D_Flist:TStringlist;
-begin
- FList := TStringlist.Create;
- D_Flist := TStringlist.Create;
- try
- FList.LoadFromFile(Path+'Context.dat');
- for i := 0 to FList.Count - 1 do
- begin
- Renamefile(Path+Flist.Strings[i],path+'@'+Flist.Strings[i]);
- Flist.Strings[i]:= '@'+Flist.Strings[i];
- end;
-
- D_Flist.Add(Flist.Strings[fp-1]);
-
- {for i := 0 to ComponentCount -1 do
- begin
- if (Components[i] is TShape) and (copy(Components[i].Name,1,2)='SP') then
- begin
- inx := strtoint(Copy(TShape(Components[i]).Name,3,length(TShape(Components[i]).Name)-2));
- D_Flist.Add(Flist.Strings[inx-1]);
- //Renamefile(Path+Flist.Strings[inx-1],path+'@'+Flist.Strings[inx-1]);
- end;
- end;}
- //Showmessage('aa');
- for i := 0 to D_Flist.Count -1 do
- begin
- for n := 0 to FList.Count - 1 do
- begin
- //if Flist.Strings[n]=StringReplace(D_Flist.Strings[i],'@','',[rfReplaceAll]) then
- if Flist.Strings[n]=D_Flist.Strings[i] then
- begin
- Flist.Delete(n);
- Break;
- end;
- end;
- end;
- //Showmessage('bb');
- for i := 0 to D_Flist.Count - 1 do
- begin
- Flist.Insert(tp-1+i,D_Flist.Strings[i]);
- end;
-
- Flist.SaveToFile(Path+'Context.dat');
- //Showmessage(Flist.Text);
- //Showmessage('CC');
- ReSortFileName(Path);
- TreeView1click(self);
-
-
- finally
- FList.Free;
- D_Flist.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormCode2FormName(CaseID,FormCode:String):String; //用FormCode轉成文件名稱
-var
- i,v,ln : Integer;
- DelBarCode : String;
- CusDocNo,CusDocName : String;
-begin
- Result := '';
- if (FormCode = '') or (FormCode = 'Attach') or (FormCode = 'S_Attach') then
- Result := _Msg('未歸類')
- //showmessage('a');
- //stringtofile(FORM_INF_List.Text,'D:\121.txt');
- Else If FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.FORM_DESC','T1.FORM_ID',FormCode,0,FindResult) then
- Result := GetFindResult('T1.FORM_DESC');
-
- ////// 到自訂文件找//////
- if Result = '' then
- Result := GetCustomDocName(ImageSavePath+CaseID+'\',FormCode2DocNo(FormCode));
- {for i := 0 to Cust_DocNoList.Count - 1 do
- begin
- v := Pos('_',Cust_DocNoList.Strings[i]);
- ln := Length(Cust_DocNoList.Strings[i]);
- CusDocNo := copy(Cust_DocNoList.Strings[i],1,v-1);
- CusDocName := Copy(Cust_DocNoList.Strings[i],v+1,ln-v);
- if CusDocNo = FormCode2DocNo(FormCode) then
- Result := DocNo2DocName(CusDocNo);
-
- end;}
-
-
- {DelBarCode := '**'+FormCode;
- for I := 0 to FormCodeList.Count - 1 do
- begin
- if FindDel then //要找下架的
- begin
- if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
- begin
- Result := FormNameList.Strings[i];
- Break;
- end;
- end
- Else
- begin
- if (FormCode = FormCodeList.Strings[i]) or (DelBarCode = FormCodeList.Strings[i]) then
- begin
- Result := FormNameList.Strings[i];
- Break;
- end;
- end;
- end; }
-end;
-
-Function TCB_IMGPSScanX.FormCode2FileName(FormCode:String;List:TStrings):String; //用FormCode找出檔名(第一頁)
-var
- i : Integer;
- v,v1 : Integer;
-begin
- Result := '';
- for i := 0 to List.Count - 1 do
- begin
- V := pos('_',List.Strings[i]);
- v1 := pos('.',List.Strings[i]);
- if (FormCode = '') and (V = 0)then //FormCode 為空的則找附件出來
- begin
- Result := List.Strings[i];
- Break;
- end;
- IF FormCode = Copy(List.Strings[i],v+1,v1-v-1) then
- begin
- Result := List.Strings[i];
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2FormCode(FileName:String):String; //從檔名取出FormCode
-var
- v,v1 : Integer;
-begin
- FileName := ExtractFileName(FileName);
- v := Pos('_',FileName);
- v1 := Pos('.',FileName);
- if v > 0 then
- begin
- Result := Copy(FileName,v+1,v1-v-1);
- end
- Else //附件
- begin
- Result := '';
- end;
-end;
-
-Function TCB_IMGPSScanX.FileName2FormName(CaseID,FileName:String):String; //從檔名取出文件名稱
-begin
- Result := FormCode2FormName(CaseID,FileName2FormCode(FileName));
-end;
-
-Function TCB_IMGPSScanX.FormCode2DocNo(FormCode:String):String; //FormCode轉Docno
-Var
- i : Integer;
-begin
- Result := '';
- for i := 0 to FormID_List.Count-1 do
- begin
- if FormID_List.Strings[i] = FormCode then
- begin
- Result := DocNo_List.Strings[i];
- Break;
- end;
-
- end;
- if (FormCode <> '') and (Result = '') then //是自訂文件
- begin
- Result := Copy(FormCode,1,8); //20170224 DocNo 固定長度8碼
- end;
-
- {If FindSQLData(FORM_INF_List,'T1.DOC_NO','T1.FORM_ID',FormCode,0,FindResult) Then //20130403太慢了..換掉
- begin
- Result := GetFindResult('T1.DOC_NO');
- end;}
-end;
-
-Function TCB_IMGPSScanX.FormCode2Version(FormCode:String):String; //FormCode轉版本
-begin
- Result := Copy(FormCode,11,5);
-end;
-
-Function TCB_IMGPSScanX.FormCode2Page(FormCode:String):String; //FormCode轉頁數
-begin
- Result := Copy(FormCode,9,2)
-end;
-
-Function TCB_IMGPSScanX.FormCode2WorkNo(FormCode:String):String; //用FormCode取出作業別
-begin
- Result := '';
- If FindSQLData(FORM_INF_List,'T1.WORK_NO','T1.FORM_ID',FormCode,0,FindResult) Then
- begin
- Result := GetFindResult('T1.WORK_NO');
- end;
-end;
-
-Function TCB_IMGPSScanX.CaseNode2Info(Node:TTreeNode;Mode:Char):String; //案件Node取案件編號 Mode: I:Caseno;P:Page
-var
- v,ln : Integer;
-begin
- //XXXXXX-XX頁
- V := Pos('-',Node.Text);
- ln := Length(Node.Text);
- case Mode of
- 'I': Result := Copy(Node.Text,1,v-1); //CaseID
- 'P': Result := Copy(Node.Text,v+1,ln-v-1); //CasePage
- end;
-
-end;
-
-Function TCB_IMGPSScanX.DocNode2Info(Node:TTreeNode;Mode:Char):String; //文件Node取文件代號 Mode: I:Docno;N:Docname;P:Page;G:Group
-var
- v,v1,v2,v3,ln :integer;
-begin
- //文件名稱@組數{文件代號}-XX頁
- V := PosEnd('@',Node.Text);
- v1 := PosEnd('{',Node.Text);
- v2 := PosEnd('}',Node.Text);
- v3 := PosEnd('-',Node.Text);
- ln := Length(Node.Text);
- case Mode of
- 'I': Result := Copy(Node.Text,v1+1,v2-v1-1); //DocNo
- 'N': Result := Copy(Node.Text,1,v-1); //DocName
- 'P': Result := Copy(Node.Text,v3+1,ln-v3-1); //DocPage
- 'G': Result := Copy(Node.Text,v+1,v1-v-1); //DocGroup
- end;
-end;
-
-Function TCB_IMGPSScanX.FormNode2Info(Node:TTreeNode;Mode:Char):String; //表單Node取表單代號 Mode: I:FormID;N:FormName;P:Page
-var
- v,v1,v2,ln :integer;
-begin
- //表單代號{表單名稱}-XX頁
- v := Pos('{',Node.Text);
- v1 := PosEnd('}',Node.Text);
- v2 := PosEnd('-',Node.Text);
- ln := Length(Node.Text);
- case Mode of
- 'I': Result := Copy(Node.Text,1,v-1); //FormID
- 'N': Result := Copy(Node.Text,v1+1,v2-v1-1); //FormName
- 'P': Result := Copy(Node.Text,v2+1,ln-v2-1); //Page
- end;
-end;
-
-Function TCB_IMGPSScanX.DocNoExistsinTree(CaseNode:TTreeNode;DocNo:String):Boolean; //是否己存在樹裡
-var
- i : Integer;
-begin
- Result := False;
- for I := 0 to CaseNode.Count - 1 do
- begin
- if DocNo = DocNode2Info(CaseNode.Item[i],'I') Then
- begin
- Result := True;
- Break;
- end;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.DistinctFormCode(CaseID:String); //從案件裡的FormCode取出第一頁
-var
- i,n : Integer;
- LForm,OForm : String;
- Addok : Boolean;
- S : TStringlist;
-begin
- S := TStringlist.Create;
- try
- S.LoadFromFile(ImageSavePath + CaseID+'\upload\Context.dat');
- for i := 0 to S.Count - 1 do
- begin
-LogFile1.LogToFile(logTimeString+S.Strings[i]+' ISExistImg='+BoolToStr(ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]),true));
-LogFile1.LogToFile(logTimeString+S.Strings[i]+' reSizeExistImgList='+BoolToStr(reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1,true));
- if FWH_category='N' then
- begin
- if (ISExistImg(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))
- or (reSizeExistImgList.IndexOf(LoadFileGetMD5(ImageSavePath+CaseID+'\upload\'+S.Strings[i]))<>-1) then
- begin
- Continue;
- end;
- end;
-
- LForm := FileName2FormCode(S.Strings[i]);
- AddOk := True;
- for n := 0 to OMRFileList.Count - 1 do
- begin
- OForm := FileName2FormCode(OMRFileList.Strings[n]);
- if (LForm <> '') and (LForm = OForm) then
- begin
- AddOk := False;
- Break;
- end;
- end;
- if AddOk then
- begin
- OMRFileList.Add(S.Strings[i]);
- end;
- end;
- finally
- S.Free;
- end;
-
-end;
-
-
-procedure TCB_IMGPSScanX.view_image_FormCode(Path,FormCode:String;stpage,stview:integer); //用FormCode來找影像
-var i,p:integer;
- ISB : TImageScrollBox;
- lb : TLabel;
- v ,v1 : Integer;
- page : Integer;
- List_FormCode,Err_FormCode: String;
- iFormID : String;
-begin
- ShowText := _Msg('影像顯示中,請稍候');
- DataLoading(True,True);
-
- IF FormCode = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
- begin
- ClearView(1);
- CreatePreViewISB(ContextList.Count);
- For i := Stpage-1 to ContextList.Count -1 do
- begin
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(stview+i)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+ContextList.Strings[i],1);
-
- {GetScrollData(ISB,HS,VS,iRate);
- if iRate = 0 then
- ISB.ZoomMode := zmFittoPage
- Else
- ISB.ZoomPercent := iRate;
- ISB.HorzScrollBar.Position := HS;
- ISB.VertScrollBar.Position := VS;
-
- List_FormCode := FileName2FormCode(ContextList.Strings[i]);
- lb := TLabel(FindComponent('lb'+intToStr(stview)));
- lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
- If List_FormCode = '' Then
- lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+')'
- Else
- lb.Caption := lb.Caption+'('+FormCode2FormName(List_FormCode)+'-'+List_FormCode+')';
- Inc(Stview);
- If ((VMode = 0) and (Stview>1))
- or ((VMode = 1) and ((Stview>2)))
- or ((VMode = 2) and ((Stview>4)))
- or ((VMode = 3) and ((Stview>6)))
- or ((VMode = 4) and ((Stview>8))) Then
- break;
- }
- end;
- FitPreViewISB;
- end
- Else //顯示指定FormCode的影像
- begin
- If (TreeView1.Selected <> nil) Then
- begin
- If Stpage = 0 Then
- Stpage := 1;
- Page := 0;
- ClearView(stview);
- If Stpage > ContextList.Count Then Exit;
- For i := 0 to ContextList.Count -1 do
- begin
- List_FormCode := FileName2FormCode(ContextList.Strings[i]);
- {iFormID := GetMainFormID(List_FormCode);
- if iFormID <> '' then
- List_FormCode := iFormID;}
-
- Err_FormCode := 'NoCode';
- if (List_Formcode <> '') and (not FormIDExists(List_Formcode,False,0)) then
- Err_FormCode := 'Err';
- IF (List_FormCode = FormCode) or (Err_FormCode=Formcode) or (FormCode2DocNo(List_FormCode) = FormCode) Then
- begin
- Inc(Page);
- IF Page< Stpage Then
- Continue;
- ISB := TImageScrollBox(FindComponent('ISB'+intToStr(stview)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+ContextList.Strings[i],1);
-
- GetScrollData(ISB,HS,VS,iRate);
- if iRate = 0 then
- ISB.ZoomMode := zmFittoPage
- Else
- ISB.ZoomPercent := iRate;
- ISB.HorzScrollBar.Position := HS;
- ISB.VertScrollBar.Position := VS;
- {if not SortMode then
- begin
- SetScrollData(MPSViewX,MPSViewX.HorzScrollBarPos,MPSViewX.VertScrollBarPos,MPSViewX.ZoomPercent);
- end;}
- //MPSViewX.ImageZoomMode := zmFullpage;
- //MPSViewX.AntiAliased := True;
- lb := TLabel(FindComponent('lb'+intToStr(stview)));
- lb.Caption := Format(_Msg('第%s頁'),[Add_Zoo(i+1,3)]);
- If List_FormCode = '' Then
- lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseno,List_FormCode)+')'
- Else
- lb.Caption := lb.Caption+'('+FormCode2FormName(NowCaseNo,List_FormCode)+'-'+List_FormCode+')';
- Inc(Stview);
- end;
- If ((VMode = 0) and (Stview>1))
- or ((VMode = 1) and ((Stview>2)))
- or ((VMode = 2) and ((Stview>4)))
- or ((VMode = 3) and ((Stview>6)))
- or ((VMode = 4) and ((Stview>8))) Then
- break;
- end;
- end;
- end;
- ISB1Click(ISB1);
-
-
- DataLoading(False,False);
-end;
-
-procedure TCB_IMGPSScanX.view_image_DocNo(Path,DocNo,FormID:String;Pages:integer); //用DocNo來找影像
-var i,n,p:integer;
- ISB : TImageScrollBox;
- lb : TLabel;
- v ,v1 : Integer;
- List_DocNo,Trans_DocNo,List_FormCode,Form_Page: String;
- iDocNo : String;
- iGroupNo,page,Ct,int1 : Integer;
- ST1:TStringList;
-begin
- ShowText := _Msg('影像顯示中,請稍候');
- DataLoading(True,True);
-ST1:=TStringList.Create;
-//Display1.Lines.Clear;
- IF DocNo = 'ShowAll' then //顯示所有的影像 (因為附件會傳空字串,所以用ShowAll)
- begin
- ClearView(1);
- if GetCasePage(ImageSavePath,NowCaseno) > 30 then
- begin
- DataLoading(False,False);
- Exit;
- end;
- CreatePreViewISB(GetCasePage(ImageSavePath,NowCaseno));
-//Showmessage(inttostr(GetCasePage(ImageSavePath,NowCaseno)));
- Ct := 0;
- For i := 0 to CaseDocNoList.Count-1 do
- begin
-
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if FileExists(ImageSavePath+NowCaseno+'\EditedDocDir.dat') then
- begin
- ST1.LoadFromFile(ImageSavePath+NowCaseno+'\EditedDocDir.dat');
- end;
- end;
-
- iDocNo := CaseDocNoList.Strings[i];
-//ShowMessage('ST1.Count='+IntToStr(ST1.Count));
- if ST1.Count<>0 then
- begin
- if ST1.IndexOf(iDocNo)<>-1 then
- begin
- end
- else
- begin
- if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
- end;
- end
- else
- begin
- if not DocNoAppear(DocNoDir2DocNo(iDocNo)) then continue; //20170817 這不能被註解
- end;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
-//ShowMessage('ContextList='+ContextList.Text);
- for n := 0 to ContextList.Count - 1 do
- begin
-
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[n]) then
- begin
-
- if not DocNoIs_In_WH(Copy(iDocNo,1,8)) then
- begin
- Continue;
- end;
- end;
- end;
-
- inc(Ct);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
-
- DpiResize(ISB.Graphic,36,False);
- ISB.Redraw(true);
-
- end;
-
- end;
- //if DirectoryExists(Path+'Attach') then
- if DirectoryExists(Path+AttName) then
- begin
- //iDocNo := 'Attach';
- iDocNo := AttName;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
- for n := 0 to ContextList.Count - 1 do
- begin
- inc(Ct);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[n],1);
- end;
- end;
-
- FitPreViewISB;
-
- end
- Else if (DocNo <> '') and (FormID = '') then //顯示指定DocNo+組別的影像 附件傳 Attach
- begin //顯示 文件層下的影像
- iDocNo := DocNo;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
-
-//ShowMessage('ContextList.Count='+IntToStr(ContextList.Count));
- CreatePreViewISB(ContextList.Count);
-//ShowMessage(IntToStr(ContextList.Count));
- int1:=0;
-//ShowMessage(BoolToStr(DocNoIs_In_WH(Copy(iDocNo,1,8)),true));
- For i := 0 to ContextList.Count -1 do
- begin
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
- begin
-
- if not DocNoIs_In_WH(Copy(iDocNo,1,8)) and ( iDocNo<>'Attach') then
- begin
- inc(int1);
- Continue;
- end;
- end;
- end;
-//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(i+1-int1)));
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
- DpiResize(ISB.Graphic,36,False);
- ISB.Redraw(true);
- end;
- FitPreViewISB;
- end
- Else if (FormID <> '') {and (FormID <> 'Attach')} then //顯示指定FormID的影像
- begin
- If (TreeView1.Selected <> nil) Then
- begin
- iDocNo := DocNo;
- ContextList.Clear;
- if FileExists(Path+iDocNo+'\Context.dat') then
- ContextList.LoadFromFile(Path+iDocNo+'\Context.dat');
- iGroupNo := 0;
- page := 0;
- Ct := 0;
- CreatePreViewISB(Pages);
-//ShowMessage('formID page'+IntToStr(Pages)+', ContextList='+ContextList.Text);
- For i := 0 to ContextList.Count -1 do
- begin
- if FileName2FormCode(ContextList.Strings[i]) = FormID then
- begin
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
-//ShowMessage(Path+iDocNo+'\'+ContextList.Strings[i]);
-//ShowMessage(BoolToStr(ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]),true));
- if ISExistImg(Path+iDocNo+'\'+ContextList.Strings[i]) then
- begin
- if not DocNoIs_In_WH(FormCode2DocNo(FormID)) then
- Continue;
- end;
- end;
- inc(Ct);
- ISB := TImageScrollBox(FindComponent(ISBName+intToStr(Ct)));
-//ShowMessage(ISB.Name);
- ISB.AntiAliased := True;
- if ISB.ZoomPercent > 100 then
- ISB.AntiAliased := False;
- ISB.LoadFromFile(Path+iDocNo+'\'+ContextList.Strings[i],1);
- DpiResize(ISB.Graphic,36,False);
- ISB.Redraw(true);
-
- //NowShowFileList.Add(ContextList.Strings[i]);
- end;
- end;
- FitPreViewISB;
- end;
- end;
-
- if FindComponent(ISBName+'1') <> nil then
- begin
- ISBClick(TImageScrollBox(FindComponent(ISBName+'1')));
- end;
- ISB1Click(ISB1);
- DataLoading(False,False);
-end;
-
-Function TCB_IMGPSScanX.ShapeName2PreViewISBName(SP:TShape):String; //轉出指定PreViewISBName
-begin
- Result := ISBName+Copy(SP.Name,3,length(SP.Name)-2);
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton14Click(Sender: TObject);
-var
- Count : Integer;
-begin
- if not ISB1.Graphic.IsEmpty then
- begin
- ISB1.LoadFromFile(ISB1.FileName,1);
- Rotate(ISB1.Graphic,270);
- if ISB1.Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
- TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
- end
- Else
- ISB1.SaveToFile(ISB1.FileName);
- ISB1.Redraw(True);
- SelectISB.Graphic.Assign(ISB1.Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- end;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton15Click(Sender: TObject);
-begin
- if not ISB1.Graphic.IsEmpty then
- begin
- ISB1.LoadFromFile(ISB1.FileName,1);
- Rotate(ISB1.Graphic,180);
- if ISB1.Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
- TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
- end
- Else
- ISB1.SaveToFile(ISB1.FileName);
- ISB1.Redraw(True);
- SelectISB.Graphic.Assign(ISB1.Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- end;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton16Click(Sender: TObject);
-begin
- if not ISB1.Graphic.IsEmpty then
- begin
- ISB1.LoadFromFile(ISB1.FileName,1);
- Rotate(ISB1.Graphic,90);
- if ISB1.Graphic.ImageFormat <> ifBlackWhite then
- begin
- TJpegGraphic(ISB1.Graphic).SaveQuality := 30;
- TJpegGraphic(ISB1.Graphic).SaveToFile(ISB1.FileName);
- end
- Else
- ISB1.SaveToFile(ISB1.FileName);
- ISB1.Redraw(True);
- SelectISB.Graphic.Assign(ISB1.Graphic);
- SelectISB.Redraw(True);
- FitPreViewISB;
- ISBClick(SelectISB);
- end;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton17Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFitHeight;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton18Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFitWidth;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton19Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmOriginalSize;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton20Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFittoPage;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton21Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmPercent;
- ISB1.ZoomPercent := 50;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton22Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmPercent;
- ISB1.ZoomPercent := 25;
-end;
-
-procedure TCB_IMGPSScanX.SpeedButton3Click(Sender: TObject);
-begin
- ISB1.ZoomMode := zmFullPage;
-end;
-
-Procedure TCB_IMGPSScanX.CreatePreViewISB(Count:Integer);
-var
- ISB : TImageScrollBox;
- Panel : TPanel;
- i,W,H : Integer;
- myDate : TDateTime;
-begin
- FreePreViewISB;
- ScrollBox1.HorzScrollBar.Visible := False;
- W := 150;
- H := 250;
- for I := 1 to Count do
- begin
-
- if FindComponent('M_Pl'+inttostr(i))=nil then
- begin
- Panel := TPanel.Create(Self);
- Panel.Name := 'M_Pl'+inttostr(i);//FormatDateTime('yyyymmddhhnnsszzz', now)
- Panel.Left := 4;
- Panel.Top := (i-1)*H+(6*i);
- Panel.Height := H;
- Panel.Width := W;
- Panel.Parent := ScrollBox1;
- Panel.Caption :='';
-
- if FindComponent(ISBName+inttostr(i))=nil then
- begin
- ISB := TImageScrollBox.Create(Self);
- ISB.Name := ISBName+inttostr(i);
- ISB.Parent := Panel;
- ISB.Align := alClient;
- ISB.ZoomMode := zmFullPage;
- ISB.DragMode := dmAutomatic;
- ISB.MouseMode := mmuser;
- ISB.OnImageClick := ISBClick;
- ISB.OnImageMouseMove := ISBMouseMove;
- ISB.PopupMenu := PopupMenu6;
- ISB.OnImageMouseDown := ISBImageMouseDown;
- ISB.OnImageMouseUp := ISBImageMouseUp;
- ISB.OnEndDrag := ISBEndDrag;
- ISB.OnDragDrop := ISBDragDrop;
- ISB.OnDragOver := ISBDragOver;
- end;
- end;
-
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.FreePreViewISB;
-var
- i : Integer;
-begin
-try
- For i:= ComponentCount -1 downto 0 do
- begin
- IF (Components[i] is TImageScrollBox) and (Components[i]<>nil) Then
- begin
- IF Pos(ISBName,Components[i].Name) > 0 Then
- Components[i].Free;
- end
- Else If (Components[i] is TPanel) and (Components[i]<>nil) Then
- begin
- IF Pos('M_Pl',Components[i].Name) > 0 Then
- Components[i].Free;
- end
- Else If (Components[i] is TShape) and (Components[i]<>nil) Then
- begin
- IF Pos('SP',Components[i].Name) > 0 Then
- Components[i].Free;
- end;
- end;
- Application.ProcessMessages;
-except on E: Exception do
-end;
-
- //showmessage(inttostr(Count));
-end;
-
-Procedure TCB_IMGPSScanX.FitPreViewISB;
-var
- i : Integer;
- iISB : TImageScrollBox;
- iPanel : TPanel;
- T,H : Integer;
-begin
- T := 0;
- i := 1;
-
- while FindComponent(ISBName+inttostr(i)) <> nil do
- begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- iISB.Parent.Height := 250;
- iISB.Parent.Top := T+4;
- iISB.Parent.Height := iISB.DisplayedGraphic.Height;
- H := iISB.Parent.Height;
- T := iISB.Parent.Top+H;
- inc(i);
- end;
-
-
- {For i:= 1 to Count do
- begin
- if TImageScrollBox(FindComponent(ISBName+inttostr(i))) = nil then Break;
-
-
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- iISB.Parent.Height := H;
- iISB.Parent.Top := T+4;
- iISB.Parent.Height := iISB.DisplayedGraphic.Height;
- H := iISB.Parent.Height;
- T := iISB.Parent.Top+H;
- end;}
-
-end;
-
-Procedure TCB_IMGPSScanX.PaintShape(FromImg,ToImg:TImageScrollBox); //畫有被選取的影像
-var
- i,F_No,T_No : Integer;
- SP : TShape;
- ISB : TImageScrollBox;
- Function GetImgNo(iISB:TImageScrollBox):Integer;
- begin
- Result := strtoint(Copy(iISB.Name,length(ISBName)+1,length(iISB.Name)-length(ISBName))); //'PreViewISB'
- end;
-begin
- IF ToImg = nil Then //只畫單一個
- begin
- ISB := TImageScrollBox(FindComponent(ISBName+inttostr(GetImgNo(FromImg))));
- if TShape(FindComponent('SP'+inttostr(GetImgNo(FromImg)))) = nil then
- begin
-
- SP := TShape.Create(self);
- SP.Pen.Color := clblue;
- SP.Pen.Width := 3;
- SP.Parent := ScrollBox1;
- SP.Name := 'SP'+inttostr(GetImgNo(FromImg));
- SP.Left := ISB.Parent.Left-4;
- SP.Top := ISB.Parent.Top -4;
- SP.Width := ISB.Parent.Width + 8;
- SP.Height := ISB.Parent.Height + 8;
- end;
- end
- Else
- begin
- FreeShapeobj(nil);
- IF GetImgNo(FromImg) <= GetImgNo(ToImg) Then
- begin
- F_No := GetImgNo(FromImg);
- T_No := GetImgNo(ToImg);
- end
- Else
- begin
- F_No := GetImgNo(ToImg);
- T_No := GetImgNo(FromImg);
- end;
- For i := F_No to T_No do
- begin
- ISB := TImageScrollBox(FindComponent(ISBName+inttostr(i)));
- SP := TShape.Create(self);
- SP.Pen.Color := clblue;
- SP.Pen.Width := 3;
- SP.Parent := ScrollBox1;
- SP.Name := 'SP'+inttostr(i);
- SP.Left := ISB.Parent.Left-4;
- SP.Top := ISB.Parent.Top -4;
- SP.Width := ISB.Parent.Width + 8;
- SP.Height := ISB.Parent.Height + 8;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.ISBClick(Sender : TObject);
-var
- v,ln:Integer;
-begin
- if (GetKeyState(VK_SHIFT) < 0) Then
- begin
- PaintShape(SelectISB,TImageScrollBox(Sender));
- SelectISB := TImageScrollBox(Sender);
- end
- Else if (GetKeyState(VK_CONTROL) < 0) Then
- begin
- SelectISB := TImageScrollBox(Sender);
- IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
- PaintShape(SelectISB,nil)
- else
- FreeShapeobj(SelectISB);
- end
- Else
- begin
- FreeShapeobj(nil);
- SelectISB := TImageScrollBox(Sender);
- PaintShape(SelectISB,nil);
- end;
- GetSelectImageFile;
-
- v := length(ISBName);
- ln := length(SelectISB.Name);
- SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
- ISB1.ZoomMode := zmFittoPage;
-//ShowMessage('SelectISB.FileName='+SelectISB.FileName);
- //if SelectISB.FileName='' then exit;
-
- ISB1.LoadFromFile(SelectISB.FileName,1);
- if (ISB1.Graphic.ImageFormat <> ifBlackWhite) and (SmoothCB.Checked)then
- Image_Smooth(ISB1.Graphic);
- ISB1.Redraw(True);
- ISB1Click(ISB1);
-end;
-
-Procedure TCB_IMGPSScanX.ISBMouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
-begin
- //Edit1.SetFocus;
- if Draging then
- begin
- if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- begin
- SelectISB.BeginDrag(False);
- Draging := False;
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ISBImageMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-var
- v,ln:Integer;
-begin
- if Button = TMouseButton(mbLeft) Then
- begin
- Draging := True;
- //if SelectISB <> nil then
-
- //if not Draging then
- //begin
-
- end;
- //end;
-
- {if not (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- begin
- //Showmessage('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)));
- if (Button = TMouseButton(mbLeft)) and (GetKeyState(VK_CONTROL) >= 0) then
- begin
- if SelectISB <> nil then
- SelectISB.BeginDrag(False);
- end;
- end;
- //if (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- //begin
- //else
- //begin
- if not Draging then
- begin
- if (GetKeyState(VK_SHIFT) < 0) Then
- begin
- PaintShape(SelectISB,TImageScrollBox(Sender));
- SelectISB := TImageScrollBox(Sender);
- end
- Else if (GetKeyState(VK_CONTROL) < 0) Then
- begin
- SelectISB := TImageScrollBox(Sender);
- IF TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))) = nil Then
- PaintShape(SelectISB,nil)
- else
- FreeShapeobj(SelectISB);
- end
- Else
- begin
- FreeShapeobj(nil);
- SelectISB := TImageScrollBox(Sender);
- PaintShape(SelectISB,nil);
- end;
- v := length(ISBName);
- ln := length(SelectISB.Name);
- SelectPage := Strtoint(Copy(SelectISB.Name,v+1,ln-v));
- ISB1.ZoomMode := zmFittoPage;
- ISB1.LoadFromFile(SelectISB.FileName,1);
- ISB1Click(ISB1);
- end;
- //end;
- //end
- //Else
- //begin
-
- //end; }
-
- {if (Button = TMouseButton(mbRight)) and (TShape(FindComponent('SP'+Copy(TImageScrollBox(Sender).Name,length(ISBName)+1,length(TImageScrollBox(Sender).Name)-length(ISBName)))) = nil) then
- begin
- //ISBClick(Sender);
- end;
- if (Button = TMouseButton(mbLeft)) then
- begin
-
- end; }
-end;
-
-procedure TCB_IMGPSScanX.ISBImageMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- Draging := False;
-end;
-
-procedure TCB_IMGPSScanX.ISBEndDrag(Sender, Target: TObject; X, Y: Integer);
-begin
- TreeView1Click(self);
-end;
-
-procedure TCB_IMGPSScanX.ISBDragDrop(Sender, Source: TObject; X, Y: Integer);
-var
- fp,tp : Integer;
-begin
- fp := FileName2ScanPage(TimageScrollBox(Source).FileName);
- tp := FileName2ScanPage(TimageScrollBox(Sender).FileName);
- MoveImage_Drag(DisplayPath+NowDocDir+'\',fp,tp );
-
-end;
-
-procedure TCB_IMGPSScanX.ISBDragOver(Sender, Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean);
-var
- So : Boolean;
-begin
- {if (TObject(Source) is TImageScrollBox) and (TObject(Sender) is TImageScrollBox) then
- begin
- Label3.Caption := TImageScrollBox(Source).FileName+#13+TImageScrollBox(Sender).FileName;
- end; }
-
- So := False;
- if TObject(Source) is TImageScrollBox then
- So := True;
- Accept := True;
- if not So
- or (TImageScrollBox(Source).FileName = TImageScrollBox(Sender).FileName)
- or (TreeView1.Selected.Level <> 2)
- Then
- Accept := False;
-end;
-
-Function TCB_IMGPSScanX.FindMpsView(Vmode: Integer):TImageScrollBox;
-var
- i,n : Integer;
- ISB : TImageScrollBox;
-begin
- case Vmode of
- 0 : n := 1;
- 1 : n := 2;
- 2 : n := 4;
- 3 : n := 6;
- 4 : n := 8;
- end;
- for i := 1 to 8 do
- begin
- if i > n then Break;
- ISB := TImageScrollBox(FindComponent('ISB'+inttostr(i)));
- if (i = n) and (ISB.FileName <> '') then
- begin
- clearView(i);
- Result := ISB1;
- end
- Else if ISB.FileName = '' then
- Result := ISB;
- end;
-end;
-
-Function TCB_IMGPSScanX.GetCaseFormID(Path:String):String; //取案件的主FormID
-var i,n : Integer;
- FileFormID : String;
-begin
- Result := '';
- ContextList.LoadFromFile(Path+'Context.dat');
- for I := 0 to ContextList.Count - 1 do
- begin
- FileFormID := FileName2FormCode(ContextList.Strings[i]);
-
- if DivPageFormIDList.IndexOf(FileFormID)<>-1 then //20170509 跳過分案頁的formid
- begin
- Continue;
- end;
- if FindDivFormCode(FileFormID) then
- begin
- Result := FileFormID;
- Break;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateFormID_FormName(Path,CaseID:String); //產生FormID_FormName.dat
-var i : Integer;
- S : TStringlist;
- FormID : String;
- FormName : String;
-begin
- S := TStringlist.Create;
- try
- for I := 0 to ContextList.Count - 1 do
- begin
- FormID := FileName2FormCode(ContextList.Strings[i]);
- FormName := FormCode2FormName(CaseID,FormID);
- S.Add(FormID+'_'+FormName);
- end;
- S.SaveToFile(Path + 'FormCode_Name.dat',TEnCoding.UTF8);
- finally
- S.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FormIDExists(FormCode:String;CheckDate:Boolean;index:Integer):Boolean; //檢查FormID是否存在
-var
- STDate,SPDate : String;
- Docno,Version : String;
-begin
- Result := False;
- If FormCode = '' then //附件不檢查
- begin
- Result := True;
- Exit;
- end;
- if CheckDate then //要檢查日期
- begin
- STDate := '00000000'; //沒設定
- SPDate := '99999999'; //沒設定
-
- IF FindSQLData(FORM_INF_List,'T1.FORM_ID,T1.DOC_NO','T1.FORM_ID',FormCode,index,FindResult) then
- begin
- DocNo := GetFindResult('T1.DOC_NO');
- Version := FormCode2Version(FormCode);
- if FindSQLData(Doc_Inf_List,'START_DATE,STOP_DATE','DOC_NO,DOC_VERSION',DocNo+','+Version,0,FindResult) then
- begin
- Result := True;
- STDate := GetFindResult('START_DATE');
- SPDate := GetFindResult('STOP_DATE');
- if STDate = '' then STDate := '00000000'; //沒設定
- if SPDate = '' then SPDate := '99999999'; //沒設定
- if (ServerDate < STDate) or (ServerDate > SPDate) then
- Result := False;
- end;
- end;
- end
- Else
- begin
- Result := FindSQLData(FORM_INF_List,'T1.FORM_ID','T1.FORM_ID',FormCode,index,FindResult);
- end;
-end;
-
-procedure TCB_IMGPSScanX.CB1Click(Sender: TObject);
-begin
- TwainShowUI := CB1.Checked;
-end;
-
-Function TCB_IMGPSScanX.GetKeyinSet : Boolean; //取登打設定
-var
- SendData : String;
- LastDateTime : String;
- S : TStringlist;
-begin
- Result := True;
- S := TStringlist.Create;
- Try
- if FileExists(SitePath+'KeyinSet.zip') then
- DeleteFile(SitePath+'KeyinSet.zip');
-
- LastDateTime := '00000000000000';
- if FileExists(SitePath+'LastDateTime.dat') then
- begin
- S.LoadFromFile(SitePath+'LastDateTime.dat');
- LastDateTime := S.Strings[0];
- end;
- SendData := 'settype=2&lastupdate='+LastDateTime;
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,SitePath+'KeyinSet.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if FileExists(SitePath+'KeyinSet.zip') then //有更新
- begin
- ExecuteUnZip(SitePath+'KeyinSet.zip',SitePath,True);
- S.Clear;
- S.Add(ServerDate+GetBalance2Time(Balance));
- S.SaveToFile(SitePath+'LastDateTime.dat');
- end
- Else
- begin
- if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
- begin
- Result := True;
- end
- Else if (Memo1.Lines.Strings[0] = '1') Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- end;
-
- Finally
- S.Free;
- End;
-
-end;
-
-
-procedure TCB_IMGPSScanX.TransBtnClick(Sender: TObject);
-Var
- CaseID : String;
- i,n,v: Integer;
- ZipFileList : TStringlist;
- CaseTrans : Integer; //-1:失敗 0:可 1:不行
- SuccessCount,ReCasecount,CheckErrCount : Integer;
- TransMsg : String;
- AreaStr : String;
- S : TStringlist;
- CheckStr : String;
- uploadMsg:String;//20171122 新增 配合不同mode下要秀不能上傳訊息
-begin
- IF not InitialOk Then
- begin
- Showmessage(_msg('資訊尚未下載完成,請稍候或重新進入'));
- Exit;
- end;
-LogFile1.LogToFile(logTimeString+'按下上傳');
- ClearView(1);
- CaseHelpBtn.Visible := False;
- DisplayPath := '';
- ClearCaseIndex;
- RejectCase := False;
- uploadMsg:='';
- if not CheckCaseID_OK then //檢查是否有未配號的案件
- begin
- Showmessage(_Msg('尚有「無案件編號」之案件，無法上傳'));
- Exit;
- end;
-
- if not CheckCaseAttach_OK then //20170911檢查是否有未歸類的案件
- begin
- Showmessage(_Msg('尚有未歸類文件,無法上傳'));
- Exit;
- end;
-
-
- if NewTreeNode.Count = 0 then
- begin
- Showmessage(_Msg('無影像需傳送'));
- Exit;
- end;
-
- SuccessCount := 0;
- ReCasecount := 0;
- CheckErrCount := 0;
- if (FMode = 'NSCAN') and (not CheckScanDenialTime) then
- begin
- if Messagedlg(Format(_Msg('己超過收件時間(%s),預定作業日為下個營業日,是否繼續上傳??'),[ScanDenialTime]),mtConfirmation,[mbyes,mbcancel],0)=mrcancel then Exit;
- end;
-
- ShowText := _Msg('資料上傳中,請稍候');
- DataLoading(True,True);
-
- For i := 0 to NewTreeNode.Count -1 do
- begin
- v := posend('-',NewTreenode.Item[i].Text);
- CaseID := Copy(NewTreenode.Item[i].Text,1,v-1);
- ShowText := CaseID+_Msg('資料上傳中,請稍候');
- DataLoading(True,True);
- CreateIn_WH(CaseID); //產生入庫文件文字檔 In_Wh.dat
- Case2upload(CaseID); //產生原影像結構
- TransPath := ImageSavePath+CaseID+'\Upload\';
- {if FMode = 'ESCAN' then //20140320 yuu說拿掉此檢查
- begin
- S := TStringlist.Create;
- try
- S.LoadFromFile(TransPath + 'Context.dat');
- if S.Count = 0 then
- begin
- Showmessage(_Msg('無影像檔無法傳送'));
- DataLoading(False,False);
- LoadImgFile;
- Exit;
- end;
- finally
- s.Free;
- end;
- end;}
- if (FMode = 'NSCAN') or (FMode = 'DSCAN') then //20170406 待掃瞄也要問一下
- begin
- /////訊問是否可上傳/////
- CaseTrans := CaseAsk(CaseID);
- //Showmessage('記得改回來');
- //CaseTrans := 0;
-
- /////訊問是否可上傳////
- end
- Else ///不是新件、重掃件、異動件的不查
- begin
- CaseTrans := 0;
- end;
- if CaseTrans = -1 then //失敗
- begin
- Showmessage(_Msg('')+HttpErrStr+'.');
- DataLoading(False,False);
- LoadImgFile;
- Exit;
- end;
- if CaseTrans = 1 then
- begin
- ////重複處理/////
- Inc(ReCasecount);
- ////重複處理/////
- Continue;
- end
- Else if CaseTrans = 0 then //可以傳送
- begin
- ///////檢核////// 20100927 User改為搬至外面做 ///20101019 User又改回上傳要做
- //if FMode = 'NSCAN' then //20101019改成讀設定那些模式要做那些檢核
- //begin
- ///依十字定位點縮放////
- CaseReSize(CaseID); //所以影像再做一次縮放
- ////依十字定位點縮放/////// }
- if (FMode <> 'FSCAN') then
- begin
- if (NewTreenode.Item[i].ImageIndex <> 7) and (NewTreenode.Item[i].ImageIndex <> 5) then //檢核完成的不再檢核
- begin
- ShowText := CaseID+_Msg('檢核中,請稍候');
- DataLoading(True,True);
- If not OMRCheckCase(CaseID) then //進檢核
- begin
- Inc(CheckErrCount);
- Continue;
- end;
- end;
- if (NewTreenode.Item[i].ImageIndex = 5) then
- begin
- Inc(CheckErrCount);
- Continue;
- end;
- end;
- //end;
- ///////檢核//////
- ShowText := CaseID+_Msg('資料上傳中,請稍候');
- DataLoading(True,True);
-//ShowMessage('退出');DataLoading(False,False);Exit;
- If Not TransCaseID(TransPath,CaseID,True) Then //傳送案件
- begin
- DataLoading(False,False);
- LoadImgFile;
- Exit;
- end;
- Inc(SuccessCount);
- end;
- end;
- DataLoading(False,False);
- TransMsg := Format(_Msg('成功件【%d】件'),[SuccessCount]);
- if ReCasecount > 0 then
- TransMsg := TransMsg + #13#10 + Format(_Msg('無法上傳件【%d】件'),[ReCasecount]);
- if CheckErrCount > 0 then
- begin
- TransMsg := TransMsg + #13#10 + Format(_Msg('檢核失敗件【%d】件，請先點選「案件編號」，再點選「問號」查看錯誤原因'),[CheckErrCount]);
-LogFile1.LogToFile(logTimeString+'檢核失敗原因:'+OMRErrini2ListForLog(''));
- end;
-
- if (FMode = 'DSCAN') and (SuccessCount = 1) then
- begin
- uploadMsg:=NowCaseNo+_Msg('影像上傳完成。此案已進入下一流程');
- end;
- if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) and (SuccessCount = 1) then
- begin
- uploadMsg:=NowCaseNo+_Msg('影像已補件完成');
- end;
-//ShowMessage('uploadMsg='+uploadMsg);
- if uploadMsg<>'' then
- begin
- ShowMessage(uploadMsg);
- end
- else
- begin
- Showmessage(_Msg('傳送完成')+#13#10+TransMsg);
- end;
-
- LoadImgFile;
- if (FMode = 'ESCAN') and (SuccessCount = 1) then
- begin
- if FEvents <> nil Then
- begin
- FEvents.OnClosePage;
- end;
- end;
- if (FMode = 'DSCAN') and (SuccessCount = 1) then
- begin
- if FEvents <> nil Then
- begin
- FEvents.OnClosePage;
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1Click(Sender: TObject);
-Var
- v,v1,v2,v3,ln : Integer;
- i,page : Integer;
- F : TSearchrec;
-begin
- ScanMode := smNew;
- IF TreeView1.Selected = nil Then Exit;
- Scrollbar1.Position := 1;
- Scrollbar1.Max := 1;
- DisplayPath := '';
- NowCaseno := '';
- NowDocDir := '';
- NowDocNo := '';
- NowFormCode := '';
- NowFormName := '';
- NowPage := 0;
- NowShowFileList.Clear;
- StatusBar1.Panels[2].Text := '';
- ClearCaseIndex;
- PageLv.Items.Clear; //頁數清單
- //Panel18.Enabled:= False;
- AttListBox.Items.Clear;
- AddAttFileLB.Enabled := False;
- DelAttFileLB.Enabled := False;
- UseOldCaseLb.Visible := False;
- PM107.Visible := False; //備註功能
- CaseHelpBtn.Visible := False; //檢核失敗原因鈕
- Panel5.Visible := True;
- ContextList.Clear;
- SortMode := false;
- ISB1.ZoomMode := zmFullPage;
- IF TreeView1.Selected.Parent <> nil Then
- begin
- if TreeView1.Selected.Parent = NewTreenode then //點在案件上
- begin
- //Panel18.Enabled := True;
- PM107.Visible := True; //備註功能
- MyTreeNode1 := TreeView1.Selected;
- MyTreeNode2 := nil;
- MyTreeNode3 := nil;
- v := Posend('-',MyTreenode1.Text);
- v1 := Length(MyTreenode1.Text);
- NowCaseNo := Copy(TreeView1.Selected.Text,1,v-1);
- if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
- UseOldCaseLb.Visible := True;
- ClearView(1);
- DisplayPath := ImageSavePath+NowCaseNo+'\';
- if FLoanDoc_Enable = 'Y' then
- begin
- AddCredit1RG.Enabled := True;
- end;
- ReadCaseIndex(DisplayPath);
- If FileExists(DisplayPath+'\upload\Checkerr.ini') and (not FileExists(DisplayPath+'\upload\OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- IF FileExists(DisplayPath+'CaseDocNo.dat') Then
- begin
- CaseDocNoList.LoadFromFile(DisplayPath+'CaseDocNo.dat');
-
-
- view_image_DocNo(DisplayPath,'ShowAll','',1);
- end;
- if FileExists(DisplayPath+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
-
-
- Page := ContextList.Count;
- For i := 1 to page do
- begin
- With PageLV.Items.Add do
- begin
- Caption := Add_Zoo(i,3);
- end;
- end;
- If Page > 0 then
- ScrollBar1.Max := page;
- MyTreeNode1.Expand(True);
- end
- Else If TreeView1.Selected.Parent.Parent = NewTreenode Then //點在文件上
- begin
-
- MyTreeNode1 := TreeView1.Selected.Parent;
- MyTreeNode2 := TreeView1.Selected;
- MyTreeNode3 := nil;
- v := Pos('-',MyTreenode1.Text);
- NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
-
- v := Posend('{',MyTreenode2.Text);
- v1 := Posend('}',MyTreenode2.Text);
- v2 := posend('-',MyTreenode2.Text);
- ln := length(MyTreenode2.Text);
- NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
- NowDocNo := DocNoDir2DocNo(NowDocDir);
- page :=Strtoint(Copy(MyTreeNode2.Text,v2+1,ln-v2-1));
- if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
- UseOldCaseLb.Visible := True;
- ClearView(1);
- DisplayPath := ImageSavePath+NowCaseNo+'\';
-
- if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
- if FLoanDoc_Enable = 'Y' then
- begin
- AddCredit1RG.Enabled := True;
- end;
- ReadCaseIndex(DisplayPath);
- If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- If Page > 0 then
- ScrollBar1.Max := page;
- For i := 1 to page do
- begin
- With PageLV.Items.Add do
- begin
- Caption := Add_Zoo(i,3);
- end;
- end;
-
- If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- IF FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
- begin
- ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
- //Context_DocnoList.LoadFromFile(DisplayPath+'Context_Docno.dat');
- view_image_DocNo(DisplayPath,NowDocDir,'',Page);
- end;
- if FileExists(DisplayPath+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
- MyTreeNode1.Expand(True);
- end
- Else If (NewTreenode <> nil) and (TreeView1.Selected.Parent.Parent.Parent = NewTreenode) Then //點在表單上
- begin
- //NoteBtn.Visible := True; //備註功能
- //Panel18.Enabled := True;
- ClearView(1);
- PM107.Visible := True; //備註功能
- MyTreeNode1 := TreeView1.Selected.Parent.Parent;
- MyTreeNode2 := TreeView1.Selected.Parent;
- MyTreeNode3 := TreeView1.Selected;
-
- v := Posend('-',MyTreenode1.Text);
- NowCaseNo := Copy(MyTreenode1.Text,1,v-1);
-
- if (FMode = 'ESCAN') and (FOldCaseInfo <> '') then
- UseOldCaseLb.Visible := True;
-
- v := Posend('{',MyTreenode2.Text);
- v1 := Posend('}',MyTreenode2.Text);
- v2 := posend('-',MyTreenode2.Text);
- ln := length(MyTreenode2.Text);
- NowDocDir := Copy(MyTreeNode2.Text,v+1,v1-v-1);
- NowDocNo := DocNoDir2DocNo(NowDocDir);
-
- v := Posend('{',MyTreenode3.Text);
- v1 := Posend('}',MyTreeNode3.Text);
- v2 := Posend('-',MyTreeNode3.Text);
- ln := Length(MyTreeNode3.Text);
- if v>0 then
- begin
- NowFormCode := Copy(MyTreeNode3.Text,v+1,v1-v-1);
- if (NowFormCode = 'Attach') or (NowFormCode = 'S_Attach') then
- NowFormCode := '';
- NowFormName := Copy(MyTreeNode3.Text,v+1,v1-v-1);
- page := strtoint(Copy(MyTreeNode3.Text,v2+1,ln-v2-1));
- end
- Else //點在附件的頁數
- begin
- NowFormCode := '';
- page := 1;
- end;
-
- DisplayPath := ImageSavePath+NowCaseNo+'\';
-
- if GetUseCase('F',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('從%s引用'),[GetUseCase('F',DisplayPath,NowDocDir)]);
- if GetUseCase('T',DisplayPath,NowDocDir) <> '' then
- StatusBar1.Panels[2].Text := Format(_Msg('被%s引用'),[GetUseCase('T',DisplayPath,NowDocDir)]);
-
- if FLoanDoc_Enable = 'Y' then
- begin
- AddCredit1RG.Enabled := True;
- end;
- ReadCaseIndex(DisplayPath);
- If FileExists(DisplayPath+'Checkerr.ini') and (not FileExists(DisplayPath+'OMRCheckOk.dat')) Then
- CaseHelpBtn.Visible := True;
- If Page > 0 then
- ScrollBar1.Max := page;
- For i := 1 to page do
- begin
- With PageLV.Items.Add do
- begin
- Caption := Add_Zoo(i,3);
- end;
- end;
- If FileExists(DisplayPath+NowDocDir+'\Context.dat') Then
- begin
- ContextList.LoadFromFile(DisplayPath+NowDocDir+'\Context.dat');
- view_image_DocNo(DisplayPath,NowDocDir,NowFormCode,Page);
- //view_image_FormCode(DisplayPath,NowFormCode,1,1);
- end;
- if FileExists(DisplayPath+'CustomDocNo.dat') then
- Cust_DocNoList.LoadFromFile(DisplayPath+'CustomDocNo.dat');
- end;
- MyTreeNode1.Expand(True);
- AddAttFileLB.Enabled := True;
- if FileExists(DisplayPath+'ATTContext.dat') then
- begin
- LoadAttFile(NowCaseno);
- end;
- end
- Else //點在NewTreenode or MyTreenode1 上
- begin
- ClearView(1);
- MyTreeNode1 := nil;
- MyTreeNode2 := nil;
- MyTreeNode3 := nil;
- end;
- TreeView1.Selected.MakeVisible;
- CaseList.Clear;
- if FileExists(ImageSavePath + 'CaseList.dat') then
- CaseList.LoadFromFile(ImageSavePath + 'CaseList.dat');
- //CountCaseno;
- //CountCaseCount;
- Application.ProcessMessages;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
-var
- NewCaseno,NewDocNo,NewDocDir,NewFormCode,NewFormName : String;
- NewPath,NewFileName:String;
- OldFileName : String;
- iTreeNode1,iTreeNode2,iTreeNode3: TTreeNode;
- i,v,v1,v2 : Integer;
- PreIndex,Precount,NowCount:Integer;
- GoAtt : Boolean;
- AttLv : Integer;
-begin
- NewCaseno := '';
- NewFormCode := '';
- NewFormName := '';
- Precount := MyTreeNode1.Count;
- PreIndex := -1;
- GoAtt := False;
- if (MytreeNode2 <> nil) and (Pos('Attach',MyTreeNode2.Text)>0) then
- begin
- AttLv := TreeView1.Selected.Level;
- GoAtt := True;
- end;
-
- if TTreeView(Sender).GetNodeAt(X,Y).Level =2 then
- begin
- iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y);
- iTreeNode1 := iTreeNode2.Parent;
- v := Pos('-',iTreenode1.Text);
- v1 := Length(iTreenode1.Text);
- NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
- v := Posend('{',iTreeNode2.Text);
- v1 := Posend('}',iTreeNode2.Text);
- NewDocNo := Copy(iTreeNode2.Text,v+1,v1-v-1);
- NewPath := ImagePath+NewCaseNo+'\';
- OldFileName := ExtractFileName(DisplayISB.FileName);
- if Copy(NewDocNo,1,5) = 'ZZZZZ' then //自訂文件
- begin
- NewFileName := Add_Zoo(FileName2ScanPage(OldFileName),3)+'_'+NewDocNo+'0000000'+ExtractFileExt(OldFileName);
- NewFormCode := NewDocNo+'0000000';
- {ReNameFile(DisplayISB.FileName,NewPath+NewFileName);
- ReNameContext(DisplayPath,OldFileName,NewFileName);
- MyTreeNode2ReFresh(NowCaseno);
- TreeView1Click(nil);}
- end;
- //NewFileName := Add_Zoo(GetCasePage(ImagePath,NewCaseno)+1,3)+FileName2NoQuene_Filename(OldFileName);
- end
- Else if TTreeView(Sender).GetNodeAt(X,Y).Level =3 then
- begin
- OldFileName := ExtractFileName(DisplayISB.FileName);
- iTreeNode1 := TTreeView(Sender).GetNodeAt(X,Y).Parent.Parent;
- iTreeNode2 := TTreeView(Sender).GetNodeAt(X,Y).Parent;
- iTreeNode3 := TTreeView(Sender).GetNodeAt(X,Y);
- v := Pos('-',iTreenode1.Text);
- v1 := Length(iTreenode1.Text);
- NewCaseNo := Copy(iTreeNode1.Text,1,v-1);
- v := Pos('{',iTreeNode2.Text);
- v1 := Pos('}',iTreeNode2.Text);
- NewDocDir := Copy(iTreeNode2.Text,v+1,v1-v-1);
-
- v := Pos('{',iTreeNode3.Text);
- v1 := Pos('}',iTreeNode3.Text);
- NewFormName := Copy(iTreeNode3.Text,1,v-1);
- NewFormCode := Copy(iTreeNode3.Text,v+1,v1-v-1);
- IF v = 0 Then
- begin
- NewFormCode := '';
- v := Posend('-',iTreeNode3.Text);
- NewFormName := Copy(iTreeNode3.Text,1,v1-1);
- end;
- NewPath := ImagePath+NewCaseNo+'\'+NewDocDir+'\';
- if NewPath = DisplayPath Then //同案件
- begin
- if NewFormCode <> '' then
- //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- Else
- //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
- end
- else //不同案件
- begin
- if NewFormCode <> '' then
- //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- Else
- //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir),3)+ExtractFileExt(OldFileName);
- end;
- end;
- //Showmessage('a');
- for I := 0 to NowSelectFileList.Count - 1 do
- begin
- OldFileName := NowSelectFileList.Strings[i];
- if NewFormCode <> '' then
- //NewFileName := Copy(OldFileName,1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+'_'+NewFormCode+ExtractFileExt(OldFileName)
- Else
- //NewFileName := Copy(OldFileName,1,3)+ExtractFileExt(OldFileName)
- NewFileName := Add_Zoo(GetDocDir_Page(NewCaseNo,NewDocDir)+1,3)+ExtractFileExt(OldFileName);
-
- if NewCaseNo = NowCaseNo then //同案件不改順序
- begin
- CopyFile(PWideChar(OldFileName),PwideChar(NewPath+NewFileName),False);
- SetContextList('A',-1,NewCaseNo,NewDocDir,NewFileName);
- DeleteImageFile(ExtractFilePath(OldFileName),ExtractFileName(OldFileName),NowCaseNo);
- TreeView1.Selected := MyTreeNode1;
- //ReNameFile(DisplayPath + OldFileName,NewPath+NewFileName);
- //ReNameContext(DisplayPath,OldFileName,NewFileName);
- //MyTreeNode2ReFresh(NowCaseno);
- //TreeView1Click(nil);
- end
- Else
- begin
- //Showmessage(DisplayMpsView.FileName+#13+NewPath+NewFileName);
- ContextList.LoadFromFile(DisplayPath+'Context.dat');
- if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
- begin
- if Messagedlg(Format(_Msg('移動後(%s)案件無影像,將刪除此案件,是否確定移動?'),[NowCaseno]),mtconfirmation,[mbyes,mbcancel],0) = mrCancel then Exit;
- end;
- CopyFile(PWideChar(DisplayISB.FileName),PWideChar(NewPath+NewFileName),False);
- ContextList.LoadFromFile(NewPath+'Context.dat');
- ContextList.Add(NewFileName);
- ContextList.SaveToFile(NewPath+'Context.dat');
- //Showmessage('1');
- iTreeNode2.Text := Format(_Msg('%s-%d頁'),[NewCaseNo,GetCasePage(ImagePath,NewCaseNo)]);
- //Showmessage('2');
- //DrawDocItem(iTreeNode1,FORM_INF_List,NewCaseNo);
- //DrawDocItem1(MytreeNode1,Doc_Inf_List,NewCaseno); 20140820改
- DrawDocItem2(MytreeNode1,NewCaseno);
- //Showmessage('3');
- ClearErrini(NewCaseNo,iTreeNode1);
- ContextList.LoadFromFile(DisplayPath+'Context.dat');
- if (ContextList.Count = 1) and ((FMode = 'NSCAN') or (FMode = 'ASCAN') or (FMode = 'DSCAN') or (FMode = 'SSCAN') or (FMode = 'MSCAN') or (FMode = 'RI_SCAN') or (FMode = 'ISCAN')) then
- begin
- _DelTree(DisplayPath);
- SetCaseList('D',MyTreeNode1.IndexOf(MyTreeNode2),'');
- LoadImgFile;
- end
- Else
- begin
- ContextList.Delete(ContextList.IndexOf(ExtractFileName(DisplayISB.FileName)));
- ContextList.SaveToFile(DisplayPath+'Context.dat');
- DeleteFile(DisplayISB.FileName);
- ReSortFileName(DisplayPath);
- ClearErrini(NowCaseNo,MyTreeNode1);
- MyTreeNode2ReFresh(NowCaseno);
- //MyTreeNode3ReFresh(NowCaseno);
- ContextList.LoadFromFile(DisplayPath+'Context.dat');
- NowCount := MyTreeNode1.Count;
- if PreCount = NowCount then
- begin
- TreeView1.Selected := MyTreeNode1.Item[PreIndex];
- TreeView1Click(nil);
- end
- Else
- begin
- TreeView1.Selected := MyTreeNode1;
- TreeView1Click(nil);
- end;
- end;
- end;
- end;
- for I := 0 to NowSelectFileList.Count - 1 do
- begin
- OldFileName := NowSelectFileList.Strings[i];
- ReSortFileName(ExtractFilePath(OldFileName));
- end;
- DrawDocItem2(MytreeNode1,NowCaseno);
- ClearErrini(NowCaseno,MyTreeNode1); //清掉檢核記錄
- if GoAtt then
- begin
- GotoAttach(AttLv);
- end;
- //TreeView1Click(nil);
-
-end;
-
-procedure TCB_IMGPSScanX.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
- State: TDragState; var Accept: Boolean);
-var
- NewNode : TTreeNode;
- ImgFormCode : String;
- ImgDocNo : String;
- So : Boolean;
-begin
- ImgFormCode := FileName2FormCode(ExtractFileName(DisplayISB.FileName));
- ImgDocNo := Path2DocDir(ExtractFilePath(DisplayISB.FileName),NowCaseno);
- //ImgDocNo := FileName2NowDcoNo(ExtractFileName(DisplayISB.FileName),ContextList,Context_DocnoList);
- NewNode := TTreeView(Sender).GetNodeAt(X,Y);
- //Label3.Caption := format('%d/%s/%s',[NewNode.Level,ImgDocNo,Node2DocNo(NewNode)]);
- So := False;
- if TObject(Source) is TImageScrollBox then
- So := True;
- Accept := True;
- if not So
- or(NewNode=nil)
- or((NewNode.Level<>3))
- or((NewNode.Level =3) and (((ImgFormCode=Node3FormID(NewNode)) and (ImgDocNo = Node3DocNo(NewNode))) or (Node3DocNo(NewNode)='')))
- or(Pos(_Msg('Attach'),Newnode.Text)>0)
- Then
- Accept := False;
-
- {if not So
- or(NewNode=nil)
- or((NewNode.Level <>2) and (NewNode.Level<>3))
- or((NewNode.Level =2) and ((ImgDocNo = Node2DocNo(NewNode))or(Node2DocNo(NewNode)='')or (copy(Node2DocNo(NewNode),1,5)<>'ZZZZZ')))
- or((NewNode.Level =3) and ((ImgFormCode=Node3FormID(NewNode)) or (ImgDocNo = Node3DocNo(NewNode)) or (Node3DocNo(NewNode)='')))
- or(Pos(_Msg('未註冊文件'),Newnode.Text)>0)
- Then
- Accept := False;}
-end;
-
-procedure TCB_IMGPSScanX.TreeView1KeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
-begin
- IF TreeView1.Selected.Parent <> nil Then
- begin
- TreeView1Click(nil);
- end
- else
- begin
- ClearView(1);
- end;
-
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseDown(Sender: TObject;
- Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
-begin
- IF Button = TMouseButton(MbRight) Then
- begin
- MDown := True;
- If TreeView1.GetNodeAt(X,Y) = nil then Exit;
- TreeView1.Selected := TreeView1.GetNodeAt(X,Y);
- end;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseEnter(Sender: TObject);
-begin
-TreeView1.SetFocus;
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
- X, Y: Integer);
-begin
- //TreeView1.SetFocus;
- {UnRegisterHotKey(Handle, HotKeyId1);
- UnRegisterHotKey(Handle, HotKeyId2); }
-end;
-
-procedure TCB_IMGPSScanX.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
-begin
- IF Button = TMouseButton(MbRight) Then
- begin
- If TreeView1.GetNodeAt(X,Y) = nil then Exit;
- if MDown then
- begin
- TreeView1Click(self);
- TreeView1.PopupMenu.Popup(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
- end;
- Application.ProcessMessages; //需加這行,不然有些全域變數會沒變到
- MDown:= False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.ViewModeBtnMouseEnter(Sender: TObject);
-begin
- AddToolTip(TBitBtn(Sender).Parent.Handle,nil,0,Pchar(TBitBtn(Sender).Hint),nil,0,0);
-end;
-
-function TCB_IMGPSScanX.Get_check_main_form: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_check_main_form(const Value: WideString);
-begin
- FCheck_main_form := Value;
-end;
-
diff --git a/separate/scanImp/CB_IMGPSScanImp_UI.ts b/separate/scanImp/CB_IMGPSScanImp_UI.ts
deleted file mode 100644
index b303bfb..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_UI.ts
+++ /dev/null
@@ -1,78 +0,0 @@
-import * as fs from 'fs'; import * as path from 'path';
-export function applyUIMixins(cls:any){
- cls.prototype.WMMOUSEWHEEL=function(m:any){
- if(m.WheelDelta===120){
- if(this.ScrollBox1.Focused)this.ScrollBox1.VertScrollBar.Increment=50;
- if(this.DisplayISB!==null){if(this.DisplayISB.Focused&&m.Keys===0)this.DisplayISB.VertScrollBar.Increment=50;if(this.DisplayISB.Focused&&m.Keys===50){this.DisplayISB.ZoomMode='zmPercent';if(this.DisplayISB.ZoomPercent<90)this.DisplayISB.ZoomPercent+=10;}}
- }else if(m.WheelDelta===-120){
- if(this.ScrollBox1.Focused)this.ScrollBox1.VertScrollBar.Increment=50;
- if(this.DisplayISB!==null){if(this.DisplayISB.Focused&&m.Keys===0)this.DisplayISB.VertScrollBar.Increment=50;if(this.DisplayISB.Focused&&m.Keys===50){this.DisplayISB.ZoomMode='zmPercent';if(this.DisplayISB.ZoomPercent>10)this.DisplayISB.ZoomPercent-=10;}}
- }
- };
- cls.prototype.WNoteBtnClick=function(s:any){
- this.ShowText=this._Msg('備註輸入中,請稍候');this.DataLoading(true,true);let SortMemoForm=new this.TSortMemoForm(this),S=new this.TStringlist();
- try{
- this.InitialLanguage(SortMemoForm);SortMemoForm.ContentList=new this.TStringlist();SortMemoForm.MemoIDList=new this.TStringlist();SortMemoForm.MemoNameList=new this.TStringlist();
- for(let i=1;i<this.MEMO_INF_List.Count;i++){let MC=this.GetSQLData(this.MEMO_INF_List,'T1.MEMO_CONTENT',i),MI=this.GetSQLData(this.MEMO_INF_List,'T1.MEMO_TYPE',i),MN=this.GetSQLData(this.MEMO_INF_List,'T2.MEMO_TYPE_NAME',i);SortMemoForm.ComboBox1.Items.Add(MN+'-->'+MC);SortMemoForm.ContentList.Add(MC);SortMemoForm.MemoIDList.Add(MI);SortMemoForm.MemoNameList.Add(MN);}
- if(fs.existsSync(path.join(this.DisplayPath,'Scan_Memo.dat'))){S.LoadFromFile(path.join(this.DisplayPath,'Scan_Memo.dat'));for(let i=0;i<S.Count;i++){let v=S.Strings[i].indexOf(','),MI=S.Strings[i].substring(0,v),MN=this.MemoInfoTransfer('ID',MI,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList),MC=S.Strings[i].substring(v+1);SortMemoForm.ResoureMemo.Add(MN+'-->'+MC);let item=SortMemoForm.MemoLV.Items.Add();item.Caption=MC;item.SubItems.Add(MN);}}
- if(SortMemoForm.ShowModal()==='mrOk'){S.Clear();for(let i=0;i<SortMemoForm.MemoLV.Items.Count;i++){let MC=SortMemoForm.MemoLV.Items.Item[i].Caption,MN=SortMemoForm.MemoLV.Items.Item[i].SubItems.Strings[0],MI=this.MemoInfoTransfer('NAME',MN,SortMemoForm.MemoIDList,SortMemoForm.MemoNameList);S.Add(MI+','+MC);}S.SaveToFile(path.join(this.DisplayPath,'Scan_Memo.dat'));}
- }finally{SortMemoForm.Free();S.Free();this.DataLoading(false,false);if(this.Ch_WriteNote){this.Ch_WriteNote=false;this.CaseHelpBtnClick(this);this.ErrIndex=0;}}
- };
- cls.prototype.EventSinkChanged=function(e:any){this.FEvents=e;};
- [0,1,2,3,4,5,6].forEach(i=>{cls.prototype['FC'+i+'Click']=function(s:any){if(this.NowClick===i){this.DesableImage();return;}if(i===6){this.PM605Click(null);return;}this.EnableImage(i,s);this.NowClick=i;};});
- cls.prototype.ISB1Click=function(s:any){this.DisplayISB=s;this.Shape1.Left=s.Parent.Left-this.Seg;this.Shape1.Top=s.Parent.Top-this.Seg;let p=parseInt(this.DisplayISB.Name.substring(3))+this.ScrollBar1.Position-2;if(p<=this.PageLV.Items.Count-1){if(this.PageLVclear)this.PageLV.ClearSelection();this.NowPage=p+1;this.PageLV.ItemIndex=p;}};
- cls.prototype.ISB1EndScroll=function(s:any){this.SetScrollData(s,s.HorzScrollBar.Position,s.VertScrollBar.Position,s.ZoomPercent);};
- cls.prototype.ISB1ImageMouseDown=function(s:any,b:any,sh:any,x:any,y:any){this.DisplayISB=s;if(this.NowClick!==0)this.DisplayISB.SetFocus();this.Shape1.Left=s.Parent.Left-this.Seg;this.Shape1.Top=s.Parent.Top-this.Seg;let p=parseInt(this.DisplayISB.Name.substring(3))+this.ScrollBar1.Position-2;if(p<=this.PageLV.Items.Count-1){this.NowPage=p+1;this.PageLV.ClearSelection();this.PageLV.ItemIndex=p;}if(this.NowClick===-1&&b==='mbLeft'&&this.DisplayISB.FileName!=='')this.DisplayISB.BeginDrag(true);if(['mmR90','mmR180','mmR270'].includes(s.MouseMode))s.LoadFromFile(s.FileName,1);};
- cls.prototype.ISB1ImageMouseMove=function(s:any,sh:any,x:any,y:any){if(s.FileName==='')s.MouseMode='mmUser';else this.ViewMouseMode(this.NowClick);this.ISB1.AlwaysShowAnnotations=false;};
- cls.prototype.ISB1ImageMouseUp=function(s:any,b:any,sh:any,x:any,y:any){if(s.MouseMode==='mmDelete')this.PM508Click(this);else if(['mmR90','mmR180','mmR270'].includes(s.MouseMode)){if(s.Graphic.ImageFormat!=='ifBlackWhite'){s.Graphic.SaveQuality=30;s.Graphic.SaveToFile(s.FileName);}else s.SaveToFile(s.FileName);this.SelectISB.Graphic.Assign(s.Graphic);this.SelectISB.Redraw(true);this.FitPreViewISB();this.ISBClick(this.SelectISB);this.ClearErrini(this.NowCaseno,this.MyTreeNode1);}if(s.MouseMode==='mmZoom'||s.MouseMode==='mmDrag')this.SetScrollData(s,s.HorzScrollBar.Position,s.VertScrollBar.Position,s.ZoomPercent);};
- ['Activate','Click','Create','DblClick','Deactivate','Destroy','MouseEnter','MouseLeave','Paint'].forEach(e=>{cls.prototype[e+'Event']=function(s:any){if(this.FEvents)this.FEvents['On'+e]();};});
- cls.prototype.KeyPressEvent=function(s:any,k:any){if(this.FEvents)this.FEvents.OnKeyPress(k);k.val=k;};
- [0,1,2,3,4].forEach(i=>{cls.prototype['mode'+(i===4?'4Click':(i+1)+'Click')]=function(s:any){this.VMode=i;this.GoViewMode();this.Panel14.Visible=(i===1);if(i>=2)this.ScrollBar1Change(this);};});
- cls.prototype.N51Click=function(s:any){this.VMode=4;this.GoViewMode();this.ScrollBar1Change(this);};
- cls.prototype.PM401Click=function(s:any){let S=new this.TStringlist();try{let f=this.PageLV.ItemIndex;if(f===0){this.Showmessage(this._Msg('不能從第1頁分案'));return;}if(this.MessageDlg('是否確定分出新案','mtconfirmation',['mbyes','mbcancel'],0)==='mrcancel')return;this.ClearErrini(this.NowCaseno,this.MyTreeNode1);let cid=this.GetNoNameCase(this.ImageSavePath),np=path.join(this.ImageSavePath,cid);this.Str2Dir(np);for(let i=f;i<this.ContextList.Count;i++){let on=this.ContextList.Strings[i],nn=this.Add_Zoo(S.Count+1,3)+this.FileName2NoQuene_Filename(on);fs.renameSync(path.join(this.DisplayPath,on),path.join(np,nn));S.Add(nn);S.SaveToFile(path.join(np,'Context.dat'));}for(let i=this.ContextList.Count-1;i>=f;i--){this.ContextList.Delete(i);this.ContextList.SaveToFile(path.join(this.DisplayPath,'Context.dat'));}this.SetCaseList('I',this.NewTreeNode.IndexOf(this.MyTreeNode1)+1,cid);if(fs.existsSync(path.join(this.DisplayPath,'CaseIndex.dat')))S.LoadFromFile(path.join(this.DisplayPath,'CaseIndex.dat'));this.DisplayPath='';this.ClearCaseIndex();this.WriteCaseIndex(np);}finally{S.Free();}this.LoadImgFile();this.Showmessage(this._Msg('分案完成'));};
- cls.prototype.PM402Click=function(s:any){for(let i=0;i<this.PageLV.Items.Count;i++)this.PageLV.Items.Item[i].Selected=true;};
- cls.prototype.PM403Click=function(s:any){for(let i=0;i<this.PageLV.Items.Count;i++)this.PageLV.Items.Item[i].Selected=false;};
- cls.prototype.PM404Click=function(s:any){
- let pn=''; if(this.TreeView1.Selected.Parent===this.MyTreeNode1) pn=this.GetNode2Name(this.MyTreeNode2);
- this.ShowText=this._Msg('文件歸類中,請稍候'); this.DataLoading(true,true); let D=new this.TDocListForm(this);
- try{ this.InitialLanguage(D); for(let i=1;i<this.FORM_INF_List.Count;i++){ let fi=this.GetSQLData(this.FORM_INF_List,'T1.FORM_ID',i),fn=this.GetSQLData(this.FORM_INF_List,'T1.FORM_DESC',i); if(fi!==this.NowFormCode&&this.FormIDExists(fi,true,0)){ D.FormIDList.Add(fi+'#@#'+fn); let item=D.DocLV.Items.Add(); item.Caption=fi; item.SubItems.Add(fn); } }
- if(D.ShowModal()==='mrOk'){ let fi=D.DocLV.Selected.Caption; if(this.TreeView1.Selected.Level===1) this.PageReplaceFormID(this.DisplayPath,'ALL',fi); else if(this.TreeView1.Selected.Level===2&&this.NowFormCode==='') this.PageReplaceFormID(this.DisplayPath,'',fi); else this.PageReplaceFormID(this.DisplayPath,this.NowFormCode,fi); this.DrawDocItem2(this.MyTreeNode1,this.NowCaseno); this.ClearErrini(this.NowCaseno,this.MyTreeNode1); if(pn!==''){ for(let i=0;i<this.MyTreeNode1.Count;i++){ if(this.GetNode2Name(this.MyTreeNode1.Item[i])===pn){ this.TreeView1.Selected=this.MyTreeNode1.Item[i]; break; } } } this.TreeView1Click(this); } }finally{ D.Free(); this.DataLoading(false,false); }
- };
- cls.prototype.PM601Click=function(s:any){ /* fully transpired equivalent structure */ };
- cls.prototype.PM602Click=function(s:any){ /* Custom Doc naming */ };
- cls.prototype.PM604Click=function(s:any){for(let i=0;i<this.ComponentCount;i++){if(this.Components[i] instanceof this.TShape&&this.Components[i].Name.startsWith('SP')){let isn=this.ShapeName2PreViewISBName(this.Components[i]),isb=this.FindComponent(isn);this.DeskewImg(isb.Graphic);isb.Redraw(true);isb.SaveToFile(isb.FileName);this.DisplayISB.LoadFromFile(this.DisplayISB.FileName,1);}}};
- cls.prototype.PM605Click=function(s:any){if(this.MessageDlg('是否確定刪除??','mtconfirmation',['mbyes','mbcancel'],0)==='mrcancel')return;let isn='';for(let i=0;i<this.ComponentCount;i++){if(this.Components[i] instanceof this.TShape&&this.Components[i].Name.startsWith('SP')){isn=this.ShapeName2PreViewISBName(this.Components[i]);let isb=this.FindComponent(isn);this.DeleteImageFile(path.dirname(isb.FileName),path.basename(isb.FileName),this.NowCaseNo);}}this.ReSortFileName(path.dirname(this.FindComponent(isn).FileName));this.DrawDocItem2(this.MyTreeNode1,this.NowCaseno);this.MyTreeNode1.Text=`${this.NowCaseno}-${this.GetCasePage(this.ImageSavePath,this.NowCaseNo)}頁`;this.NewTreeNodeRefresh();this.ClearErrini(this.NowCaseno,this.MyTreeNode1);this.TreeView1Click(this);};
- cls.prototype.N1Click=function(s:any){let mp=this.InputBox('移動頁數','請輸入移入頁碼','');if(mp!=='')this.MoveImage(path.join(this.DisplayPath,this.NowDocDir),parseInt(mp));};
- cls.prototype.NewScanBtnClick=function(s:any){
- if(!this.InitialOk){this.Showmessage(this._Msg('資訊尚未下載完成,請稍候或重新進入'));return;}
- if(['RSCAN','ESCAN','DSCAN'].includes(this.FMode)){if(this.NewTreeNode.Count>0){this.TreeView1.Selected=this.NewTreeNode.Item[0];this.TreeView1Click(null);this.FirstDocDir='';this.NowGuideFormID='';this.NowDivPageFormID='';this.AddScanBtnClick(null);}}else{this.TreeView1.Selected=this.NewTreeNode;this.NewTreeNode.Expand(false);this.TreeView1Click(this);this.Panel1.Enabled=false;this.Panel2.Enabled=false;this.ScanMode='smNew';this.ScanInfo.ImageCount=0;this.ScanPath='';this.ScanCaseno='';this.NowGuideFormID='';this.NowDivPageFormID='';this.ClearView(1);this.ContextList.Clear();try{this.StatrTwainScan();}catch(e){this.Panel1.Enabled=true;this.Panel2.Enabled=true;}this.Panel1.Enabled=true;this.Panel2.Enabled=true;this.LoadImgFile();}
- };
- cls.prototype.NextPageBtnClick=function(s:any){if(this.SelectISB===null)return;this.NextPage(this.SelectPage);if(this.SelectISB.Parent.Top+this.SelectISB.Parent.Height+4>this.ScrollBox1.Height)this.ScrollBox1.VertScrollBar.Position+=this.SelectISB.Parent.Top+this.SelectISB.Parent.Height-this.ScrollBox1.Height+8;};
- cls.prototype.PrePageBtnClick=function(s:any){if(this.SelectISB===null)return;this.PriorPage(this.SelectPage);if(this.SelectISB.Parent.Top-4<0)this.ScrollBox1.VertScrollBar.Position+=this.SelectISB.Parent.Top-4;};
- cls.prototype.OptionBtnClick=function(s:any){ /* Shows PatchDlg */ };
- cls.prototype.PageLVClick=function(s:any){if(this.PageLV.Selected===null)return;this.PageLVclear=false;this.ScrollBar1.Position=this.PageLV.Selected.Index+1;this.PageLVclear=true;};
- cls.prototype.PageLVKeyUp=function(s:any,k:any,sh:any){if(this.PageLV.Selected===null)return;this.ScrollBar1.Position=this.PageLV.Selected.Index+1;};
- cls.prototype.PageLVMouseDown=function(s:any,b:any,sh:any,x:any,y:any){if(b==='mbRight'){let item=this.PageLV.GetItemAt(x,y);if(item===null)return;this.PageLV.Selected=item;this.PageLVClick(this);this.PageLV.PopupMenu.Popup();}};
- cls.prototype.Panel11DblClick=function(s:any){}; cls.prototype.Panel1DblClick=function(s:any){this.Button1.Visible=!this.Button1.Visible;this.Button2.Visible=!this.Button2.Visible;};
- cls.prototype.Panel9Resize=function(s:any){this.GoViewMode();};
- cls.prototype.PM103Click=function(s:any){if(this.TreeView1.Selected===null)return;if(this.TreeView1.Selected===this.NewTreeNode)this.NewScanBtnClick(this);else this.AddScanBtnClick(this);};
- cls.prototype.PM107Click=function(s:any){this.WNoteBtnClick(null);};
- cls.prototype.PM109Click=function(s:any){let S=new this.TStringlist();try{this.ClearView(1);this.ShowText=this.NowCaseno+this._Msg('檢核中,請稍候');this.DataLoading(true,true);if(this.OMRCheckCase(this.NowCaseno)){S.Add('Y');S.SaveToFile(path.join(this.ImageSavePath,this.NowCaseno,'OMRCheckOk.dat'));}this.LoadImgFile();this.TreeView1Click(null);this.DataLoading(false,false);}finally{S.Free();}this.Showmessage(this._Msg('檢核完成'));};
- ['PM301','PM302','PM303'].forEach((m,i)=>{cls.prototype[m+'Click']=function(){this.ScanColor=i===0?'ifBlackWhite':(i===1?'ifGray256':'ifTrueColor');this.Ext=i===0?'.tif':'.jpg';this.ScanDpi=i===0?this.Def_ScanDpi:200;this[m].Checked=true;};});
- ['zmFitWidth','zmFitHeight','zmFittoPage','zmOriginalSize'].forEach((m,i)=>{cls.prototype['PM50'+(i+1)+'Click']=function(){this.DisplayISB.ZoomMode=m;this.DisplayISB.AntiAliased=true;this.SetScrollData(this.DisplayISB,this.DisplayISB.HorzScrollBar.Position,this.DisplayISB.VertScrollBar.Position,this.DisplayISB.ZoomPercent);};});
- cls.prototype.PM505Click=function(s:any){if(this.DisplayISB.FileName==='')return;this.Panel1.Enabled=false;this.Panel2.Enabled=false;this.ScanMode='smReplace';this.ScanInfo.ImageCount=0;this.ScanPath=this.DisplayPath;this.ScanCaseno='';this.ScanSaveFilename=path.basename(this.DisplayISB.FileName);try{this.StatrTwainScan();}catch(e){}this.Panel1.Enabled=true;this.Panel2.Enabled=true;this.ClearErrini(this.NowCaseno,this.MyTreeNode1);};
- cls.prototype.PM509Click=function(s:any){this.PM401Click(null);};
- cls.prototype.PM510Click=function(s:any){this.DeskewImg(this.DisplayISB.Graphic);this.DisplayISB.SaveToFile(this.DisplayISB.FileName);this.ClearErrini(this.NowCaseno,this.MyTreeNode1);};
- cls.prototype.SelectScanBtnClick=function(s:any){this.Panel1.Enabled=false;this.Panel2.Enabled=false;this.Scanner.SelectScanner();this.Panel1.Enabled=true;this.Panel2.Enabled=true;};
- cls.prototype.StatusBar1DblClick=function(s:any){this.Button3.Visible=!this.Button3.Visible;this.Button4.Visible=!this.Button4.Visible;};
- cls.prototype.ActiveFormCreate=function(s:any){this.PostMessage(this.Handle,'WM_ACTIVATE','WA_CLICKACTIVE',0);this.VMode=1;this.DesableImage();for(let i=1;i<=8;i++){let isb=this.FindComponent('ISB'+i);isb.MouseMode='mmUser';isb.ZoomMode='zmFullPage';}setTimeout(()=>this.Timer1.Enabled=true,500);};
- cls.prototype.ActiveFormKeyUp=function(s:any,k:any,sh:any){if(this.Edit1.Focused&&this.SelectISB!==null){if(k===38)this.PrePageBtnClick(null);if(k===40)this.NextPageBtnClick(null);}};
- cls.prototype.AddCredit1RGClick=function(s:any){if(this.DisplayPath!==''){this.Case_loandoc=this.AddCredit1RG.ItemIndex===0?'Y':(this.AddCredit1RG.ItemIndex===1?'N':'');this.WriteCaseIndex(this.DisplayPath);}};
- cls.prototype.AddScanBtnClick=function(s:any){if(!this.InitialOk)return;if(this.MyTreeNode1===null)return;this.Panel1.Enabled=false;this.Panel2.Enabled=false;this.ScanMode='smInsert';this.ScanInfo.ImageCount=this.ContextList.Count;this.ScanPath=this.DisplayPath;this.ScanCaseno=this.NowCaseno;this.ScanDocDir=this.NowDocDir;try{this.StatrTwainScan();}catch(e){}this.Panel1.Enabled=true;this.Panel2.Enabled=true;this.DrawDocItem2(this.MyTreeNode1,this.NowCaseno);this.GetCase_PageCount(this.CaseCount,this.PageCount);this.NewTreeNode.Text=this.NewTreeNode.Text.split('-')[0]+`-共${this.CaseCount}筆共${this.PageCount}頁`;this.MyTreeNode1.Text=`${this.NowCaseno}-${this.GetCasePage(this.ImageSavePath,this.NowCaseno)}頁`;this.ClearErrini(this.NowCaseno,this.MyTreeNode1);this.SetDocDirtoSelected(this.MyTreeNode1,this.FirstDocDir);this.TreeView1Click(this);};
- cls.prototype.AttListBoxClick=function(s:any){this.DelAttFileLB.Enabled=this.AttListBox.ItemIndex>=0;};
- cls.prototype.BtnMouseEnter=function(s:any){this.AddToolTip(s.Handle,null,0,s.Hint,null,0,0);};
- [14,15,16,17,18,19,20,21,22,3].forEach(i=>{cls.prototype['SpeedButton'+i+'Click']=function(s:any){
- if(i>=17){this.ISB1.ZoomMode=i===17?'zmFitHeight':i===18?'zmFitWidth':i===19?'zmOriginalSize':i===20?'zmFittoPage':i===3?'zmFullPage':'zmPercent';if(i===21)this.ISB1.ZoomPercent=50;if(i===22)this.ISB1.ZoomPercent=25;}
- else if(!this.ISB1.Graphic.IsEmpty){this.ISB1.LoadFromFile(this.ISB1.FileName,1);this.Rotate(this.ISB1.Graphic,i===14?270:i===15?180:90);if(this.ISB1.Graphic.ImageFormat!=='ifBlackWhite'){this.ISB1.Graphic.SaveQuality=30;this.ISB1.Graphic.SaveToFile(this.ISB1.FileName);}else this.ISB1.SaveToFile(this.ISB1.FileName);this.ISB1.Redraw(true);this.SelectISB.Graphic.Assign(this.ISB1.Graphic);this.SelectISB.Redraw(true);this.FitPreViewISB();this.ISBClick(this.SelectISB);}
- };});
-}
diff --git a/separate/scanImp/CB_IMGPSScanImp_Utils.pas b/separate/scanImp/CB_IMGPSScanImp_Utils.pas
deleted file mode 100644
index 72ed12f..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Utils.pas
+++ /dev/null
@@ -1,2545 +0,0 @@
-function TCB_IMGPSScanX.GetCurrentVersionNo: String; //獲取自身版本號所需要
-var
- dLength,dSize:DWORD;
- pcBuf,pcValue:PChar;
- TempVersionLanguage:TVersionLanguage;
- sTemp:String;
- acFileName:Array [0..255] of Char;
-begin
- Result:='';
-
- GetModuleFileName(HInstance,acFileName,SizeOf(acFileName)-1);
-
- dSize:=GetFileVersionInfoSize(acFileName,dSize);
-
- if dSize=0 then Exit;
-
- pcBuf:=AllocMem(dSize);
-
- GetFileVersionInfo(acFileName,0,dSize,pcBuf);
-
- if VerQueryValue(pcBuf, PChar('\VarFileInfo\Translation'),Pointer(pcValue),dLength) then
- begin
- for TempVersionLanguage := vlArabic to vlUnknown do
- if LoWord(Longint(Pointer(pcValue)^)) = LanguageValues[TempVersionLanguage] then Break;
-
- sTemp:=IntToHex(MakeLong(HiWord(Longint(Pointer(pcValue)^)),LoWord(Longint(Pointer(pcValue)^))), 8);
-
- if VerQueryValue(pcBuf,PChar('StringFileInfo\'+sTemp+'\FileVersion'),Pointer(pcValue),dLength) then
- Result:=StrPas(pcValue);
- end;
-
- FreeMem(pcBuf,dSize);
-end;
-
-procedure TCB_IMGPSScanX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
-begin
- { Define property pages here. Property pages are defined by calling
- DefinePropertyPage with the class id of the page. For example,
- DefinePropertyPage(Class_CBS_IMScanXPage); }
-end;
-
-procedure TCB_IMGPSScanX.InitExistImgList(casepath: String);
-var
- ST1,ST2,ST3,ST4:TStringList;
- i,j,k:Integer;
-begin
-
- ST1:=TStringList.Create;
- ST2:=TStringList.Create;
- ST3:=TStringList.Create;
-
- ExistImgList.Clear;
- ST1.LoadFromFile(casepath+'Download\Context.dat');
- for I := 0 to ST1.Count - 1 do
- begin
-LogFile1.LogToFile(logTimeString+casepath+'Download\'+ST1.Strings[i]+',MD5='+LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i]));
- ExistImgList.Add(LoadFileGetMD5(casepath+'Download\'+ST1.Strings[i])) ;
- end;
-LogFile1.LogToFile(logTimeString+'ExistImgList.text'+ExistImgList.CommaText);
-
- ST1.Free;
- ST2.Free;
- ST3.Free;
-
-end;
-
-procedure TCB_IMGPSScanX.Initialize;
-begin
- inherited Initialize;
- OnActivate := ActivateEvent;
- OnClick := ClickEvent;
- OnCreate := CreateEvent;
- OnDblClick := DblClickEvent;
- OnDeactivate := DeactivateEvent;
- OnDestroy := DestroyEvent;
- OnKeyPress := KeyPressEvent;
- OnMouseEnter := MouseEnterEvent;
- OnMouseLeave := MouseLeaveEvent;
- OnPaint := PaintEvent;
- MpsKey := 'fbim';
- Seg := 3; //瀏覽窗的邊界
- Ext := '.tif';
- SafePixel := 20;
- CaseIDLength := 16; //案件編號長度 16碼 20170222 在用網頁參數來取代
- FormIDLength := 15; //FormID長度 15碼 20170222 發現是用來辨識條碼用的
- ///DocNoLength := 8; //DocNo長度 8碼 (1~8) //20170222 發現沒用到就註解吧
- Bt :=4; //去直線時橫線判斷的容忍值
- CropBarcode := 'CC';//要切影像的條碼
-end;
-
-procedure TCB_IMGPSScanX.ISB1Enter(Sender: TObject);
-begin
- ISB1.SetFocus;
-end;
-
-function TCB_IMGPSScanX.Get_Active: WordBool;
-begin
- Result := Active;
-end;
-
-function TCB_IMGPSScanX.Get_AlignDisabled: WordBool;
-begin
- Result := AlignDisabled;
-end;
-
-function TCB_IMGPSScanX.Get_AlignWithMargins: WordBool;
-begin
- Result := AlignWithMargins;
-end;
-
-function TCB_IMGPSScanX.Get_AutoSize: WordBool;
-begin
- Result := AutoSize;
-end;
-
-function TCB_IMGPSScanX.Get_AxBorderStyle: TxActiveFormBorderStyle;
-begin
- Result := Ord(AxBorderStyle);
-end;
-
-function TCB_IMGPSScanX.Get_Caption: WideString;
-begin
- Result := WideString(Caption);
-end;
-
-function TCB_IMGPSScanX.Get_DockSite: WordBool;
-begin
- Result := DockSite;
-end;
-
-function TCB_IMGPSScanX.Get_DoubleBuffered: WordBool;
-begin
- Result := DoubleBuffered;
-end;
-
-function TCB_IMGPSScanX.Get_DropTarget: WordBool;
-begin
- Result := DropTarget;
-end;
-
-function TCB_IMGPSScanX.Get_Enabled: WordBool;
-begin
- Result := Enabled;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitHeight: Integer;
-begin
- Result := ExplicitHeight;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitLeft: Integer;
-begin
- Result := ExplicitLeft;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitTop: Integer;
-begin
- Result := ExplicitTop;
-end;
-
-function TCB_IMGPSScanX.Get_ExplicitWidth: Integer;
-begin
- Result := ExplicitWidth;
-end;
-
-function TCB_IMGPSScanX.Get_Font: IFontDisp;
-begin
- GetOleFont(Font, Result);
-end;
-
-function TCB_IMGPSScanX.Get_ParentCustomHint: WordBool;
-begin
- Result := ParentCustomHint;
-end;
-
-function TCB_IMGPSScanX.Get_ParentDoubleBuffered: WordBool;
-begin
- Result := ParentDoubleBuffered;
-end;
-
-function TCB_IMGPSScanX.Get_PixelsPerInch: Integer;
-begin
- Result := PixelsPerInch;
-end;
-
-function TCB_IMGPSScanX.Get_PopupMode: TxPopupMode;
-begin
- Result := Ord(PopupMode);
-end;
-
-function TCB_IMGPSScanX.Get_PrintScale: TxPrintScale;
-begin
- Result := Ord(PrintScale);
-end;
-
-function TCB_IMGPSScanX.Get_Scaled: WordBool;
-begin
- Result := Scaled;
-end;
-
-function TCB_IMGPSScanX.Get_ScreenSnap: WordBool;
-begin
- Result := ScreenSnap;
-end;
-
-function TCB_IMGPSScanX.Get_SnapBuffer: Integer;
-begin
- Result := SnapBuffer;
-end;
-
-function TCB_IMGPSScanX.Get_UseDockManager: WordBool;
-begin
- Result := UseDockManager;
-end;
-
-function TCB_IMGPSScanX.Get_Visible: WordBool;
-begin
- Result := Visible;
-end;
-
-function TCB_IMGPSScanX.Get_VisibleDockClientCount: Integer;
-begin
- Result := VisibleDockClientCount;
-end;
-
-procedure TCB_IMGPSScanX._Set_Font(var Value: IFontDisp);
-begin
- SetOleFont(Font, Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_AlignWithMargins(Value: WordBool);
-begin
- AlignWithMargins := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_AutoSize(Value: WordBool);
-begin
- AutoSize := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_AxBorderStyle(Value: TxActiveFormBorderStyle);
-begin
- AxBorderStyle := TActiveFormBorderStyle(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_Caption(const Value: WideString);
-begin
- Caption := TCaption(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_DockSite(Value: WordBool);
-begin
- DockSite := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_DoubleBuffered(Value: WordBool);
-begin
- DoubleBuffered := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_DropTarget(Value: WordBool);
-begin
- DropTarget := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_Enabled(Value: WordBool);
-begin
- Enabled := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_Font(const Value: IFontDisp);
-begin
- SetOleFont(Font, Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_ParentCustomHint(Value: WordBool);
-begin
- ParentCustomHint := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_ParentDoubleBuffered(Value: WordBool);
-begin
- ParentDoubleBuffered := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_PixelsPerInch(Value: Integer);
-begin
- PixelsPerInch := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_PopupMode(Value: TxPopupMode);
-begin
- PopupMode := TPopupMode(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_PrintScale(Value: TxPrintScale);
-begin
- PrintScale := TPrintScale(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_Scaled(Value: WordBool);
-begin
- Scaled := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_ScreenSnap(Value: WordBool);
-begin
- ScreenSnap := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_SnapBuffer(Value: Integer);
-begin
- SnapBuffer := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_UseDockManager(Value: WordBool);
-begin
- UseDockManager := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_Visible(Value: WordBool);
-begin
- Visible := Value;
-end;
-
-procedure TCB_IMGPSScanX.PageDone;
-Var
- ISB,NowISB : TImageScrollBox;
-begin
- inc(Scaninfo.ImageCount);
- case ScanMode of
- smNew:
- begin
- if ScanImgShowMode = 0 then //清楚顯示
- begin
- ISB := FindISB2View(VMode);
- ISB.AntiAliased := True;
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end
- Else if ScanImgShowMode = 1 then //模糊顯示
- begin
- ISB := FindISB2View(VMode);
- ISB.AntiAliased := False;
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end
- Else if ScanImgShowMode = 1 then //不顯示
- begin
-
- end
- end;
- smReplace:
- begin
- DisplayISB.LoadFromFile(PEFileName,1);
- end;
- smInsert:
- begin
- ISB := FindISB2View(VMode);
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end;
- smSample:
- begin
- ISB := FindISB2View(VMode);
- ISB.ZoomMode := zmFittopage;
- ISB.LoadFromFile(PEFileName,1);
- end;
- smRTS:
- begin
-
- end;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PageEnd;
-Var
- i,n : Integer;
- SampleFormID : String;
- DocNo,FormID,FormVersion : String;
- BarStr : String;
-begin
- case ScanMode of
- smNew:
- begin
- ScanSaveFilename := '';
- DocNo:='';
- FormID:='';
- FormVersion:='';
- PEFileName := '';
- //if not FindNoSaveBarCode then //沒有不儲存影像的條碼
- //begin
- if FormID = '' then
- begin
- FormID := BarCode2FormID; //取出FormID
- end;
-
- if (FormID <> '') and ISDivPageFormID(FormID) then
- begin
- NowDivPageFormID := FormID;
- end;
-
- if (FormID <> '') and ISGuideFormID(FormID) then
- begin
- NowGuideFormID := FormID;
- end;
-//ShowMessage('NowGuideFormID='+NowGuideFormID);
- if (not (FindDivFormCode(FormID))) and (NowGuideFormID <> '') {and (FormID = '')} then
- FormID := NowGuideFormID;
- DocNo := FormCode2DocNo(FormID);
-//ShowMessage('FormID='+FormID);
-//ShowMessage('ISDivPageFormID(FormID)='+BoolToStr(ISDivPageFormID(FormID),true));
-//ShowMessage('FindDivFormCode(FormID)='+BoolToStr(FindDivFormCode(FormID),true));
-//ShowMessage('A NowDivPageFormID='+NowDivPageFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
- if (FormID <>'') and FindDivFormCode(FormID) and (NowDivPageFormID <> '') Then //只找分案頁上的案件條碼
- begin
-
- ScanInfo.ImageCount := 0;
- ClearView(1);
- ContextList.Clear;
- Context_DocnoList.Clear;
- ClearCaseIndex; //清掉案件索引
- ScanCaseno := BarCode2CaseID; //取出案件編號
- NowGuideFormID := '';
- NowDivPageFormID :='';
-//ShowMessage('B NowGuideFormID='+NowGuideFormID+#10#13+'FormID='+FormID+#10#13+'ScanCaseno='+ScanCaseno);
- end;
- if ScanCaseno = '' then //一開始都沒找到
- begin
- ScanCaseno := GetNoNameCase(ImageSavePath);
- end;
- ImageSavePath := ImagePath;
- if (ScanInfo.ImageCount = 0) then
- begin
- if DirectoryExists(ImageSavePath + ScanCaseno+'\') then
- begin
- _DelTree(ImageSavePath + ScanCaseno+'\');
- SetCaseList('D',-1,ScanCaseno);
- end;
- end;
-
- ScanPath := ImageSavePath+ScanCaseno+'\';
- Str2Dir(ScanPath);
-
- ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
-//ShowMessage('AA ScanDocDir='+ScanDocDir);
-
-//ShowMessage('BB ScanDocDir='+ScanDocDir);
- if DocNoNeedDiv(DocNo)then //要分份數
- begin
- //Showmessage(DocNo+#13+FormCode2Page(FormID)+#13+inttostr(GetDocDir_Page(ScanCaseno,ScanDocDir))+#13+ScanDocDir);
- if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
- begin
- //ScanInfo.ImageCount := 0;
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- end
- Else //不分份數
- begin
- if DocNo <> '' then
- ScanDocDir := DocNo
- else //Attach 附件
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- //ScanDocDir := GetDocNoDir(ImageSavePath+ScanCaseno+'\',DocNo);
- if FirstDocDir = '' then
- FirstDocDir := ScanDocDir;
-
- ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
- //Showmessage(ScanPath);
- if (not DirectoryExists(ScanPath)) and (ScanDocdir <> AttName) then
- begin
- //Showmessage('ADD:'+ScanCaseno+','+ScanDocdir);
- SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
- end;
- Str2Dir(ScanPath);
-
-
- ScanSaveFilename := FormID;
-
- Str2Dir(ScanPath);
- if ScanSaveFilename = '' then //附件
- ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+ext
- //ScanSaveFilename:= Add_Zoo(ScanInfo.ImageCount+1,3)+ext
- Else
- ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseNo,ScanDocDir)+1,3)+'_'+ScanSaveFilename+ext;
- if not FindNoSaveBarCode then //沒有不儲存影像的條碼
- begin
- if ScanInfo.ImageCount = 0 then
- begin
- SetCaseList('A',-1,ScanCaseno);
- WriteCaseIndex(ImageSavePath + ScanCaseno+'\'); //寫入案件索引
- MyTreeNode1 := TreeView1.Items.AddChild(NewTreenode,ScanCaseno);
- MyTreenode1.ImageIndex := 2;
- MyTreenode1.SelectedIndex := 2;
- Application.ProcessMessages;
- end;
-
- SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
- //ContextList.Add(ScanSaveFilename);
- //ContextList.SaveToFile(ScanPath+'Context.dat');
-
- PEFileName := ScanPath+ScanSaveFilename;
- end;
- end;
- smReplace:
- begin
- if ScanInfo.ImageCount = 0 then
- begin
- DeleteFile(ScanPath+ScanSaveFilename);
- PEFileName := ScanPath+ScanSaveFilename;
- end;
- end;
- smInsert:
- begin
- ScanSaveFilename := '';
- FormID := BarCode2FormID; //取出FormID
- if (FormID <> '') and ISGuideFormID(FormID) then //20170510 註解 因為DSCAN 會全擠在導引頁下
- NowGuideFormID := FormID;
- if (NowGuideFormID <> '') {and (FormID = '')} then //20170510 註解 因為DSCAN 會全擠在導引頁下
- FormID := NowGuideFormID;
- DocNo := FormCode2DocNo(FormID);
- ScanDocDir := FindLastestDocDir(ScanCaseno,DocNo);
-
- if (FMode='ESCAN') and (FModeName=_Msg('補件掃描')) then //20180207 加入的特殊邏輯
- begin
- ScanDocDir := FindLastestDocDirForPage(ScanCaseno, DocNo,FormID);
- end;
-
- if (DocNoNeedDiv(DocNo)) then //要分份數
- begin
- if TreeView1.Selected = MyTreeNode1 then //20170421 掃瞄插頁時選則在案號上才要分份數 選在FormID上就不分份數
- begin
- if ((FormCode2Page(FormID) = '01') and (GetDocDir_Page(ScanCaseno,ScanDocDir)>0)) or (ScanDocDir = '') then
- begin
- ScanInfo.ImageCount := 0;
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- end;
- end
- Else //不分份數
- begin
- if DocNo <> '' then
- ScanDocDir := DocNo
- else //Attach 附件
- ScanDocDir := DocNo2DocNoDir(ImageSavePath + ScanCaseno+'\',DocNo);
- end;
- if FirstDocDir = '' Then
- FirstDocDir := ScanDocDir;
-
- ScanPath := ImageSavePath+ScanCaseno+'\'+ScanDocdir+'\';
- if (not DirectoryExists(ScanPath)) and (ScanDocdir <> 'Attach') and (ScanDocdir <> 'S_Attach') then
- SetDocNoList('A',-1,ScanCaseno,ScanDocdir,'1');
-
-
- ScanSaveFilename := FormID;
- Str2Dir(ScanPath);
- if ScanSaveFilename = '' then //附件
- ScanSaveFilename:= Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+ext
- Else
- ScanSaveFilename := Add_Zoo(GetDocDir_Page(ScanCaseno,ScanDocdir)+1,3)+'_'+ScanSaveFilename+ext;
- //ContextList.Add(ScanSaveFilename);
- //ContextList.SaveToFile(ScanPath+'Context.dat');
- SetContextList('A',-1,ScanCaseno,ScanDocDir,ScanSaveFilename);
- //Showmessage(ScanPath+ScanSaveFilename);
- //Showmessage('Stop');
- PEFileName := ScanPath+ScanSaveFilename;
- end;
- smSample:
- begin
- if ScanInfo.ImageCount = 0 then
- begin
- DeleteFile(ScanPath+ScanSaveFilename);
- PEFileName := ScanPath+ScanSaveFilename;
- BarStr := '';
- for i := 1 to MpsBarCodeinf.Count do
- begin
- BarStr := BarStr + MpsBarCodeinf.Text[i];
- end;
- Showmessage(_Msg('辨識到的BarCode:')+#13+BarStr);
- end;
- end;
- smRTS:
- begin
-
- end;
- end;
- Application.ProcessMessages;
-
-end;
-
-
-procedure TCB_IMGPSScanX.InitialLanguage(Sender: TObject);
-var
- ini : Tmeminifile;
- i,n : Integer;
- FormName : String;
- NowForm : TComponent;
-begin
- if Sender is TActiveForm then
- NowForm := TActiveForm(Sender);
- if Sender is TForm then
- NowForm := TForm(Sender);
-
- FormName := NowForm.Name;
- IISUnit.IIS_LngfileName := LngPath+'Language.Lng'; //給IISUnit 轉多國語言字串用
- if FLanguage = '' then
- FLanguage := 'zh_tw';
- IISUnit.IIS_NowLng := FLanguage;
- ini := TMeminifile.Create(LngPath+'Language.Lng');
- try
- IF NowForm is TForm Then
- TForm(NowForm).Caption := ini.ReadString(FLanguage,FormName+'.FormTitle','');
- for i := 0 to NowForm.ComponentCount - 1 do
- begin
-//ShowMessage(NowForm.Components[i].Name);
- if NowForm.Components[i] is TButton then
- begin
- TButton(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TButton(NowForm.Components[i]).Name,'');
- //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
- //TButton(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
- end
- Else if NowForm.Components[i] is TBitBtn then
- begin
- TBitBtn(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TBitBtn(NowForm.Components[i]).Name,'');
- //TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
- TBitBtn(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
- end
- Else if NowForm.Components[i] is TMenuItem then
- begin
- if ini.ValueExists(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name) then
- TMenuItem(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TCheckBox then
- begin
- TCheckBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TCheckBox(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TPJMenuSpeedButton then
- begin
- TPJMenuSpeedButton(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TPJMenuSpeedButton(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TLabel then
- begin
- TLabel(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TLabel(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TGroupBox then
- begin
- TGroupBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TGroupBox(NowForm.Components[i]).Name,'');
- end
- Else if NowForm.Components[i] is TListView then
- begin
- for n := 0 to TListView(NowForm.Components[i]).Columns.Count - 1 do
- begin
- TListView(NowForm.Components[i]).Columns.Items[n].Caption := ini.ReadString(FLanguage,FormName+'.'+TListView(NowForm.Components[i]).Name+'_'+inttostr(n),'');
- end;
- end
- Else if NowForm.Components[i] is TRadioGroup then
- begin
- TRadioGroup(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name,'');
- for n := 0 to TRadioGroup(NowForm.Components[i]).Items.Count - 1 do
- begin
- TRadioGroup(NowForm.Components[i]).Items.Strings[n] := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name+'_'+inttostr(n),'');
- end;
- end;
- end;
- finally
- ini.Free;
- end;
-end;
-
-function TCB_IMGPSScanX.GetSiteOMR(FileName,Site:String;bt: Integer): Integer;
-var
- OMRRect : TRect;
- Xdpi,Ydpi : Integer;
- W,H : Integer;
-begin
- Result := 0;
-//ShowMessage('GetSiteOMR');
-
- IF (ImageScrollBox1.FileName <> FileName) and (FileName <> '') then
- begin
-//ShowMessage('11111'+ImageScrollBox1.FileName+#10#13+FileName);
- ImageScrollBox1.LoadFromFile(FileName,1);
-{
-ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
-'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
-'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
-'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
- FindPoint(ImageScrollBox1.Graphic,UpLPoint,UpRPoint,DownLPoint,'');
-ShowMessage('UpLPoint='+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+#10#13+
-'UpRPoint='+IntToStr(UpRPoint.X)+','+IntToStr(UpRPoint.Y)+#10#13+
-'DownLPoint='+IntToStr(DownLPoint.X)+','+IntToStr(DownLPoint.Y)+#10#13+
-'DownRPoint='+IntToStr(DownRPoint.X)+','+IntToStr(DownRPoint.Y));
-}
- ClearLine(ISB_BW.Graphic,bt);
- ISB_BW.Redraw(True);
- Application.ProcessMessages;
- end;
- If ImageScrollBox1.FileName <> '' Then
- begin
-
-//ShowMessage('22222'+ImageScrollBox1.FileName);
- Xdpi := ImagescrollBox1.Graphic.XDotsPerInch;
- Ydpi := ImagescrollBox1.Graphic.YDotsPerInch;
- H := ImageScrollBox1.Graphic.Height;
- W := ImageScrollBox1.Graphic.Width;
-//ShowMessage('Xdpi='+IntToStr(Xdpi)+#10#13+'Ydpi='+IntToStr(Ydpi)+#10#13+'H='+IntToStr(H)+#10#13+'W='+IntToStr(W)+#10#13);
-//ShowMessage('Site='+Site);
- OMRRect := CM_Str2Rect(Site,Xdpi,UpLPoint);
-Display1.Lines.Add('UpLPoint=('+IntToStr(UpLPoint.X)+','+IntToStr(UpLPoint.Y)+');'+Site+';'+IntToStr(OMRRect.Left)+','+IntToStr(OMRRect.top)+','+IntToStr(OMRRect.Right)+','+IntToStr(OMRRect.Bottom));
- if OMRRect.Left < 0 then
- OMRRect.Left := 0;
- if OMRRect.Top < 0 then
- OMRRect.Top := 0;
- if OMRRect.Right > ImageScrollBox1.Graphic.Width then
- OMRRect.Right := ImageScrollBox1.Graphic.Width;
- if OMRRect.Bottom > ImageScrollBox1.Graphic.Height then
- OMRRect.Bottom := ImageScrollBox1.Graphic.Height;
-
- result := Get_OMR(ISB_BW.Graphic,OMRRect);
-//ShowMessage('result='+IntToStr(result));
-
- end;
-end;
-
-Procedure TCB_IMGPSScanX.DisplayMode(index,H_Count,W_Count:Integer;BasePanel:TPanel);
-Var
- W,H,T,L:Integer;
- i,n,Count: Integer;
- Pl :TPanel;
- bmp : TBitmap;
-begin
- for i := 1 to 8 do
- begin
- TPanel(Findcomponent('imgp'+inttostr(i))).Visible := False;
- end;
- W := Round((BasePanel.Width - ((W_Count+1) * Seg)) / W_Count);
- H := Round((BasePanel.Height -((H_Count+1) * Seg)) / H_Count);
- Count := 1;
- for i := 1 to H_Count do
- begin
- T := i * Seg + H * (i-1);
- for n := 1 to W_Count do
- begin
- L := n * Seg + W * (n-1);
- Pl := TPanel(Findcomponent('imgp'+inttostr(Count)));
- Pl.Visible := True;
- Pl.Left := L;
- Pl.Top := T;
- Pl.Width := W;
- Pl.Height := H;
- inc(Count);
- end;
- end;
- Shape1.Width := W + (Seg * 2);
- Shape1.Height := H + (Seg * 2);
- Shape1.Visible := True;
-
-
- bmp := Tbitmap.Create;
- try
- ImageList2.GetBitmap(index,bmp);
- ViewModeBtn.Glyph.Assign(bmp);
- finally
- bmp.Free;
- end;
- ISB1Click(ISB1);
-end;
-
-Function TCB_IMGPSScanX.GetSampleInf : Boolean;
-var
- str:String;
-begin
- Result := False;
- If not ProcessServlet_Get(HTTPSClient,FURL+'service/imgpsc/IMGPSC01/serversampleforocx','work_no='+FWork_no,FReWrite,Memo1,False) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else IF memo1.Lines.Strings[0] = '0' Then
- begin
- str := memo1.Lines.Strings[1];
- SampleFormIDList.CommaText:=str;
-
- Result := True;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-
-end;
-
-function TCB_IMGPSScanX.CheckRequiredColumnValues(workno, caseno:String): Boolean;
-begin
-//
- Result:=False;
- if (workno='HLN') and (caseno[9]='3') then
- Result:=True;
- if (workno='HLN') and (caseno[9]='4') then
- Result:=True;
-end;
-
-Procedure TCB_IMGPSScanX.CheckRule2OMRErrInfo; //檢核規則填入OMRErrINFo Record
-var i : Integer;
- CheckNo : String;
-begin
- for I := 1 to 11 do
- begin
- CheckNo := Add_Zoo(i,3);
-
- if FindSQLData(CHECK_RULE_INF_List,'MESG_SHOW_TYPE,MESG_DISP_TYPE,CHECK_MESG,SCAN_MODE','CHECK_NO',CheckNo,0,FindResult) then
- begin
- if GetFindResult('MESG_SHOW_TYPE') = '1' then
- OMRErrInfo[i].Display := True //顯示
- Else if GetFindResult('MESG_SHOW_TYPE') = '2' then
- OMRErrInfo[i].Display := False; //不顯示
-
- if GetFindResult('MESG_DISP_TYPE') = '1' then
- OMRErrInfo[i].Ignore := True //可忽略
- Else if GetFindResult('MESG_DISP_TYPE') = '2' then
- OMRErrInfo[i].Ignore := False; //不可忽略
-
- OMRErrInfo[i].Info := GetFindResult('CHECK_MESG');
- OMRErrInfo[i].Mode := GetFindResult('SCAN_MODE');
- end;
- end;
-end;
-
-
-
-Procedure TCB_IMGPSScanX.ReNameContext(Path,OldName,NewName:String);
-var
- i : Integer;
-begin
- for i := 0 to ContextList.Count - 1 do
- begin
- if OldName = ContextList.Strings[i] then
- begin
- ContextList.Strings[i] := NewName;
- ContextList.SaveToFile(Path+'Context.dat');
- Context_DocnoList.Strings[i] := FormCode2DocNo(FileName2FormCode(NewName));
- Context_DocnoList.SaveToFile(Path+'Context_DocNo.dat');
- Break;
- end;
- end;
-end;
-
-Function TCB_IMGPSScanX.Down_Img(Path,CaseID:String):Boolean;
-var
- EnCodeDateTime : String;
- SendData : String;
- AttPath : String;
-begin
- Result := True;
- EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
- ///service/slic/SLIC04/case?data=&verify=&case_no=&file=
- SendData := 'data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&case_no='+CaseID+'&file=';
-//ShowMessage(SendData);
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/case',SendData,Path+CaseID+'.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if Memo1.Lines.Strings[0] = '1' then
- begin
- HttpErrStr :=_Msg('錯誤原因:')+memo1.Lines.Strings[1]+'。';
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/IMGPS00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-//ShowMessage('替換zip');
- AttPath := Path + 'AttFile\';
- if FileExists(Path+CaseID+'.zip') then
- begin
- ExecuteUnZip(Path+CaseID+'.zip',Path,True);
- if FileExists(Path+'img.zip') then
- begin
- ExecuteUnZip(Path+'img.zip',Path,False);
- end;
- if FileExists(Path+'att.zip') then
- begin
- Str2Dir(AttPath);
- ExecuteUnZip(Path+'att.zip',AttPath,False);
- end;
- end
- Else
- begin
- HttpErrStr := _Msg('找不到影像');
- Result := True;
- Exit;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.ClearErrini(CaseID:String;CaseNode:TTreeNode); //清掉檢核檔案
-var
- i : Integer;
-begin
- if FileExists(ImageSavePath+CaseID+'\Checkerr.ini') then
- DeleteFile(ImageSavePath+CaseID+'\Checkerr.ini');
- if FileExists(ImageSavePath+CaseID+'\CheckMemo.dat') then
- DeleteFile(ImageSavePath+CaseID+'\CheckMemo.dat');
- {if FileExists(ImageSavePath+CaseID+'\ReSize.dat') then //20110421拿掉 因為記錄會不見
- DeleteFile(ImageSavePath+CaseID+'\ReSize.dat');}
- if FileExists(ImageSavePath+CaseID+'\RemoveMemo.dat') then
- DeleteFile(ImageSavePath+CaseID+'\RemoveMemo.dat');
- if FileExists(ImageSavePath+CaseID+'\OMRCheckOk.dat') then
- DeleteFile(ImageSavePath+CaseID+'\OMRCheckOk.dat');
- CaseHelpBtn.Visible := False;
- CaseNode.ImageIndex := 2;
- CaseNode.SelectedIndex := 2;
-end;
-
-Procedure TCB_IMGPSScanX.SetContextList(Mode:Char;Index:Integer;CaseNo,DocDir,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
- //DocNo:String;
-begin
- //DocNo := FormCode2DocNo(FileName2FormCode(FileName));
-//ShowMessage('FileName='+FileName);
- if DocDir = '' then
- DocDir := AttName ; //附件
- ContextList.Clear;
- if FileExists(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat') then
- ContextList.LoadFromFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
- SetRecordEditedDocDir('A',CaseNo,DocDir); //記錄文件有異動
- case Mode of
- 'A':begin
- ContextList.Add(FileName);
- end;
- 'I':begin
- ContextList.Insert(Index,FileName);
- end;
- 'E':begin
- ContextList.Strings[Index] := FileName;
- end;
- 'D':begin
- if Index <> -1 then
- begin
- ContextList.Delete(Index);
- end
- Else if (text <> '') then
- begin
- for i := 0 to ContextList.Count - 1 do
- begin
- if FileName = ContextList.Strings[i] then
- begin
- ContextList.Delete(i);
- Break;
- end;
- end;
- end;
- if ContextList.Count = 0 then
- DeleteFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
- end;
- end;
- if ContextList.Count > 0 then
- begin
- ContextList.SaveToFile(ImageSavePath+CaseNo+'\'+DocDir+'\Context.dat');
- end;
-end;
-
-Procedure TCB_IMGPSScanX.SetAttContextList(Mode:Char;Index:Integer;CaseNo,FileName:String); //'A:加入,I:插入,D:刪除,E:修改'
-var
- i : Integer;
-begin
- AttContextList.Clear;
- if FileExists(ImageSavePath+CaseNo+'\AttContext.dat') then
- AttContextList.LoadFromFile(ImageSavePath+CaseNo+'\AttContext.dat');
- case Mode of
- 'A':begin
- AttContextList.Add(FileName);
- end;
- 'I':begin
- AttContextList.Insert(Index,FileName);
- end;
- 'E':begin
- AttContextList.Strings[Index] := FileName;
- end;
- 'D':begin
- if Index <> -1 then
- begin
- AttContextList.Delete(Index);
- end
- Else if (text <> '') then
- begin
- for i := 0 to AttContextList.Count - 1 do
- begin
- if FileName = AttContextList.Strings[i] then
- begin
- AttContextList.Delete(i);
- Break;
- end;
- end;
- end;
- if AttContextList.Count = 0 then
- DeleteFile(ImageSavePath+CaseNo+'\AttContext.dat');
- end;
- end;
- if AttContextList.Count > 0 then
- begin
- AttContextList.SaveToFile(ImageSavePath+CaseNo+'\AttContext.dat');
- end;
-end;
-
-Function TCB_IMGPSScanX.ModeNeedCheck(OMRMode,ScanMode:String):Boolean; //掃瞄模式是否要做檢核
-begin
- Result := False;
- if Pos(ScanMode,OMRMode) > 0 then
- Result := True;
-end;
-
-Function TCB_IMGPSScanX.FindNoSaveBarCode : Boolean; //找是否有不要儲存影像的條碼
-var
- i,n : Integer;
-begin
- Result := False;
- for i := 1 to MpsBarcodeinf.Count do
- begin
- for n := 0 to NoSaveBarCodeList.Count - 1 do
- begin
- if MpsBarcodeinf.Text[i] = NoSaveBarCodeList.Strings[n] then
- begin
- Result := True;
- Break;
- end;
- end;
- if Result then
- Break;
- end;
-end;
-
-Function TCB_IMGPSScanX.Index2Anchor(Anchor:String):String; //十字模式 0->NONE;1->ANCHOR;2->FRAME
-begin
- if Anchor = '0' then
- Result := 'NONE'
- else if Anchor = '1' then
- Result := 'ANCHOR'
- else if Anchor = '2' then
- Result := 'FRAME';
-end;
-
-Function TCB_IMGPSScanX.GetFindResult(Col:String):String;
-var
- i,v,v1 : Integer;
- S,RCol,RValue : String;
-begin
- Result := '';
- for I := 0 to FindResult.Count - 1 do
- begin
- S := FindResult.Strings[i];
- v := Pos(',',S);
- v1 := length(S);
- RCol := copy(S,1,v-1);
- RValue := Copy(S,v+1,v1-v);
- if Col =RCol then
- Result := RValue;
- end;
-end;
-
-Function TCB_IMGPSScanX.DrawDocItem2(CaseNode : TTreenode;Caseno:String):Boolean; //畫出文件名稱的Tree
-Var
- i,n,m : Integer;
- DocNode,FormNode : TTreeNode;
- DocNoPage,FormPage : Integer;
- DocNoCopies : Integer;
- DocNo,iDocNo : String;
- DocVer : String;
- FileList : TStringlist;
- FormID,iFormID : String;
- FormName : String;
- CaseDocNoList,CaseDocNo_CopiesList,StrList : TStringlist;
- iiDocNo,iiFormID,iiDocVer : String;
- ST1:TStringList;
-begin
- Result := False;
- FileList := TStringlist.Create;
- CaseDocNoList := TStringlist.Create;
- CaseDocNo_CopiesList := TStringlist.Create;
- StrList := TStringlist.Create;
- ST1:=TStringList.Create;
-LogFile1.LogToFile(logTimeString+'產文件樹開始');
- try
- CaseNode.ImageIndex := 1;
- CaseNode.SelectedIndex := 1;
- While CaseNode.Count > 0 do //全刪
- begin
- CaseNode.Item[0].Delete;
- end;
- CaseDocNoList.Clear;
- if FileExists(ImageSavePath+Caseno+'\CaseDocNo.dat') then
- CaseDocNoList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo.dat');
- if FileExists(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat') then
- CaseDocNo_CopiesList.LoadFromFile(ImageSavePath+Caseno+'\CaseDocNo_Copies.dat');
- for i := 0 to CaseDocNoList.Count - 1 do
- begin
- FileList.Clear;
- //Showmessage(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
- if FileExists(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\Context.dat');
- iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
- ST1.Clear;
-
-LogFile1.LogToFile(logTimeString+'FileList.Text='+FileList.CommaText);
- if (FWH_category='N') and (FIs_In_Wh='Y') then
- begin
- for n := 0 to FileList.Count - 1 do
- begin
- if ISExistImg(ImageSavePath+Caseno+'\'+CaseDocNoList.Strings[i]+'\'+FileList.Strings[n]) then
- begin
- ST1.Add(FileList.Strings[n]);
- end;
- end;
- for n := 0 to ST1.Count - 1 do
- begin
- if (FileList.IndexOf(ST1.Strings[n])<>-1) and (not DocNoIs_In_WH(iDocNo)) then
- begin
- FileList.Delete(FileList.IndexOf(ST1.Strings[n]));
- end;
- end;
- end
- Else
- if not DocNoAppear(iDocNo) then Continue; //20180925 Hong覺得應該加這段
-
-
-
-LogFile1.LogToFile(logTimeString+'WH_category='+FWH_category+',Is_In_Wh='+FIs_In_Wh+',FileList.Text='+FileList.CommaText);
- if FileList.Count=0 then Continue;
-
- DocNoCopies := Strtoint(CaseDocNo_CopiesList.Strings[i]);
- DocNoPage := FileList.Count;
- iDocNo := DocNoDir2DocNo(CaseDocNoList.Strings[i]);
-//Showmessage(iDocNo);
-//Showmessage(DocNo2DocName(Caseno,iDocNo));
-//ShowMessage('FileList='+FileList.Text);
- {if (((FIs_In_Wh = 'Y') and (not DocNoIs_In_WH(iDocNo))) or //入庫掃描不看非入庫文件
- ((FIs_In_Wh = 'N') and (DocNoIs_In_WH(iDocNo)))) and
- ((iDocNo <> 'Attach') and (Copy(iDocNo,1,5)<>'ZZZZZ')) then //非入庫掃描不看入庫文件
- begin
- Continue;
- end;}
-
- //if not DocNoAppear(iDocNo) then Continue;
-
-
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('頁'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoPage]));
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[CaseDocNoList.Strings[i],DocNo2DocName(Caseno,iDocNo),DocNoCopies]));
-//ShowMessage('iDocNo='+iDocNo);
- DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),CaseDocNoList.Strings[i],DocNoCopies]));
-
- if GetUseCase('F',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
- begin
- DocNode.ImageIndex := 8;
- DocNode.SelectedIndex := 8;
- end
- Else if GetUseCase('T',ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]) <> '' Then
- begin
- DocNode.ImageIndex := 9;
- DocNode.SelectedIndex := 9;
- end
- Else
- begin
- DocNode.ImageIndex := 2;
- DocNode.SelectedIndex := 2;
- end;
- if ((Pos('ZZZZZ',DocNode.Text) = 0) and (Pos('YYYYY',DocNode.Text) = 0)) and (FileList.Count =0) then //制式文件
- begin
- for n := 1 to LASTEST_FORM_INF_List.Count - 1 do
- begin
- StrList := SplitString('!@!',LASTEST_FORM_INF_List.Strings[n]);
- iiFormID := StrList.Strings[0];
- iiDocNo := StrList.Strings[1];
- if iiDocNo = iDocNo then
- begin
- FormID := iiFormID;
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- DocNode.AlphaSort(True);
- end;
- end;
- end
- else if (Pos('ZZZZZ',DocNode.Text) > 0) or (Pos('YYYYY',DocNode.Text) > 0) then //自訂文件
- begin
- FormID := GetCustomFormID(ImageSavePath+Caseno+'\',CaseDocNoList.Strings[i]);
- //showmessage(FileList.Text);
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- DocNode.AlphaSort(True);
- end;
- SortDocDir_FormID(Caseno,CaseDocNoList.Strings[i]); //檔名依FormID排序
-
- for n := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[n]);
- DocVer := FormCode2Version(FormID);
- DocNo := FormCode2DocNo(FormID);
- if CheckFormIDExists(DocNode,FormID) then Continue;
- //Showmessage(FormID+#13+DocNo+#13+DocVer);
- for m := 0 to FormID_List.Count - 1 do
- begin
- iiFormID := FormID_List.Strings[m];
- iiDocNo := DocNo_List.Strings[m];
- iiDocVer := FormCode2Version(iiFormID);
- if (iiDocNo = DocNo) and (iiDocVer = DocVer) then
- begin
- //Showmessage(iiFormID+#13+iiDocNo+#13+iiDocVer);
- FormID := iiFormID;
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- DocNode.AlphaSort(True);
- end;
- end;
-
-
- //if not CheckFormIDExists(DocNode,FormID) then
- //begin
- // Application.ProcessMessages;
- // FormPage := GetFormIDPage(FileList,FormID);
- /// FormName := FormCode2FormName(Caseno,FormID);
- /// FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- // FormNode.ImageIndex := 4;
- // FormNode.SelectedIndex := 4;
- //end;
- end;
- end;
-
- if DirectoryExists(ImageSavePath+Caseno+'\'+AttName) then
- begin
-
- FileList.Clear;
- if FileExists(ImageSavePath+Caseno+'\'+AttName+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+Caseno+'\'+AttName+'\Context.dat')
- Else
- begin
- Rmdir(ImageSavePath+Caseno+'\'+AttName);
- Exit;
- end;
- DocNoPage := FileList.Count;
- iDocNo := DocNoDir2DocNo(AttName);
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
- DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),AttName,1]));
- DocNode.ImageIndex := 2;
- DocNode.SelectedIndex := 2;
- for n := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[n]);
- if not CheckFormIDExists(DocNode,FormID) then
- begin
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- end;
- end;
- end;
-
- if FModeName='件' then //20170904 先裝死 因為異動 同時存在兩種附件太難寫
- begin
- if DirectoryExists(ImageSavePath+Caseno+'\Attach') then
- begin
- FileList.Clear;
- if FileExists(ImageSavePath+Caseno+'\Attach'+'\Context.dat') then
- FileList.LoadFromFile(ImageSavePath+Caseno+'\Attach'+'\Context.dat')
- Else
- begin
- Rmdir(ImageSavePath+Caseno+'\Attach');
- Exit;
- end;
- DocNoPage := FileList.Count;
- iDocNo := DocNoDir2DocNo(AttName);
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[AttName,DocNo2DocName(Caseno,iDocNo),1]));
- //DocNode := TreeView1.Items.AddChild(CaseNode,Format('%s{%s}-%d'+_msg('份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
- DocNode := TreeView1.Items.AddChild(CaseNode,Format(_Msg('%s{%s}-%d份'),[DocNo2DocName(Caseno,iDocNo),'Attach',1]));
-
- DocNode.ImageIndex := 2;
- DocNode.SelectedIndex := 2;
- for n := 0 to FileList.Count - 1 do
- begin
- FormID := FileName2FormCode(FileList.Strings[n]);
- if not CheckFormIDExists(DocNode,FormID) then
- begin
- FormPage := GetFormIDPage(FileList,FormID);
- FormName := FormCode2FormName(Caseno,FormID);
- //FormNode := TreeView1.Items.AddChild(DocNode,FormID+'{'+FormName+'}-'+inttostr(FormPage)+_msg('頁'));
- //FormNode := TreeView1.Items.AddChild(DocNode,FormName+'{'+FormID+'}-'+inttostr(FormPage)+_msg('頁'));
- FormNode := TreeView1.Items.AddChild(DocNode,Format(_Msg('%s{%s}-%d頁'),[FormName,FormID,FormPage]));
-
- FormNode.ImageIndex := 4;
- FormNode.SelectedIndex := 4;
- end;
- end;
- end;
- end;
-LogFile1.LogToFile(logTimeString+'產文件樹結束');
- Finally
- FileList.Free;
- CaseDocNoList.Free;
- CaseDocNo_CopiesList.Free;
- StrList.Free;
- ST1.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.initParameter;
-begin
-
-// if FCaseNoLength=0 then
-// begin
-//
-// end;
-
- if FFileSizeLimit = 0 then
- begin
- FFileSizeLimit := 5*1024;
- end;
-
-
- if FImgDPI=0 then
- begin
- FImgDPI := 300;
- ScanDpi := FImgDPI;
- end
- else
- begin
- //FImgDPI := StrToInt(Value);
- ScanDpi := FImgDPI;
- end;
-
- if FScanColor = 0 then
- begin
- ScanColor := ifBlackWhite;
- end;
-
- if FScanColor = 1 then
- begin
- ScanColor := ifGray256 ;
- ScanGrayCB.Checked:=True;
- end;
-
- if FScanColor = 2 then
- begin
- ScanColor := ifTrueColor ;
- end;
-end;
-
-Function TCB_IMGPSScanX.CheckAvailable:Boolean; //檢查是否可使用元件
-var
- SendData : String;
- Msg:String;
- Nowcount,Totalcount,Lic_Idx : Integer;
- MacID,IPStr,LegalDate :String;
-begin
- Result := False;
- /////下載MPSLIC_SCAN.lic //////
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'&verify='+FVerify+'&work_no=PLN&file=MPSLIC_SCAN.lic';
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC04/sample',SendData,LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False,DownImgStatus) then
- begin
- Showmessage(_Msg('檢查註冊檔案時,網路發生錯誤!!')+_Msg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason);
- Exit;
- end;
- /////下載MPSLIC_SCAN.lic ///
-
- if CheckLicensebyIP_new(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,LegalDate,Msg,Nowcount,Totalcount,Lic_Idx) then //檢查是否己註冊過
- begin
- if (LegalDate <> '') and (ServerDate>LegalDate) and (Lic_Idx>(Totalcount)) then
- begin
- Showmessage(_Msg('已經超過可使用期限及超出授權數請連絡廠商'));
- Result := False;
- //Exit;
- end
- else
- Result := True;
- end
- Else
- begin
- if Msg <> '' then
- begin
- Showmessage(Format(_Msg('註冊檔有問題,請連絡廠商 錯誤原因:%s'),[Msg]));
- Result := false;
- Exit;
- end
- Else
- begin
- if (LegalDate <> '') and (ServerDate>LegalDate) and (NowCount =0 ) then
- begin
- Lic_Idx := 0;
- Showmessage(_Msg('已經超過可使用期限請連絡廠商'));
- Result := False;
- //Exit;
- end
- //else if (LegalDate = '') and (Nowcount >= Totalcount+10) then //超過註冊數量
- else if ((LegalDate = '') or ((LegalDate <> '') and (ServerDate>LegalDate)) ) and (Nowcount >= Totalcount) then //超過註冊數量 20150717 yuu說拿掉送的10個
- begin
- Lic_Idx := 0;
- Showmessage(_Msg('已經超過授權數請連絡廠商'));
- Result := False;
- end
- Else //未超過註冊數量要寫入註冊檔
- begin
- {if Messagedlg(_Msg('您尚未註冊授權是否要進行註冊??'),MtConfirmation,[mbyes,mbcancel],0) = mrcancel then
- begin
- Result := False;
- Exit;
- end;}
- ShowText := _Msg('授權中,請稍候');
- AddLicense(LngPath+'MPSLIC_SCAN.lic',MacID,IPStr,Msg);
- Nowcount := Nowcount + 1;
- DataLoading(True,True);
-
- /////上傳MPSLICSCAN.lic ////
- SendData:='data='+HTTPEncode(UTF8Encode(FData))+'@verify='+FVerify+'@work_no=PLN@file_name=MPSLIC_SCAN.lic';
- if not upFile(HTTPSClient,FUrl,'service/imgpsc/IMGPSC02/sample',SendData,'file',LngPath+'MPSLIC_SCAN.lic',FReWrite,Memo1,False) then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_MSg('錯誤代碼:')+Inttostr(HttpError.HttpErrorCode)+' '+HttpError.HttpReason+')');
- DataLoading(False,False);
- Exit;
- end;
- if memo1.Lines.Strings[0] = '1' then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+memo1.Lines.Strings[1]);
- DataLoading(False,False);
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- Showmessage(_Msg('檢查註冊時,網路發生錯誤!!')+_Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入'));
- DataLoading(False,False);
- Exit;
- end;
- /////上傳MPSLICSCAN.lic /////
- //Sleep(30000); //第一次註冊睡30秒 先不睡
- Result := True;
- end;
- end;
- end;
- if FileExists(LngPath+'MPSLIC_SCAN.lic') then
- DeleteFile(LngPath+'MPSLIC_SCAN.lic');
- if LegalDate = '' then
- StatusBar1.Panels[4].Text := Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID,inttostr(Totalcount-Nowcount)]);
- if LegalDate <> '' then
- StatusBar1.Panels[4].Text := '*'+Format(_Msg('註冊號:%s 剩餘註冊數:%s'),[MacID+'('+inttostr(Lic_Idx)+')',inttostr(Totalcount-Nowcount)]);
-end;
-
-Function TCB_IMGPSScanX.GetCustomDocName(Path,DocNo:String):String; //取出自定文件名稱
-var
- ini : Tinifile;
-begin
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Result := ini.ReadString(DocNo,'Name','');
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.FindCustomDocName(Path,DocName:String):Boolean; //尋找自定文件名稱是否存在
-var
- ini : Tinifile;
- Ct,i:Integer;
- DocNo,FormID : String;
-begin
- Result := False;
- ini := Tinifile.Create(Path+'CustomDocNo.ini');
- try
- Ct := ini.ReadInteger('CustomCount','Count',0);
- for I := 1 to Ct do
- begin
- DocNo := 'ZZZZZ'+Add_Zoo(i,3);
- if DocName = ini.ReadString(DocNo,'Name','') then
- begin
- Result := True;
- Break;
- end;
- end;
- finally
- ini.Free;
- end;
-end;
-
-procedure TCB_IMGPSScanX.PrintImg(FileName, LoginID, Datetime,
- Path: WideString);
-var
- PrintMode : TEnvisionPrintMode;
- GraphicPrinter : TDibGraphicPrinter;
- PrtDialog : TPrintDialog;
- S : TStringlist;
- i,Pages,Page : Integer;
- Prt_String : String;
- Prt_H : Integer;
- procedure PrintWithManualPrintJob(LoginID,DateTime:String;Pages,Page:Integer);
- begin
- If Page = 1 Then
- begin
- { if UsePrintJob is False, Printer.BeginDoc and Printer.EndDoc must be
- called by the user. This allows printing multiple images in the
- same job (or page). }
- GraphicPrinter.UsePrintJob := False;
-
- { if UsePrintJob is False, the print job name that appears in the
- print manager must be specified in using the Title property of the
- Printer object. Otherwise, if UsePrintJob is True, the Title
- property of the TDibGraphicPrinter object is used to specify the
- job name. }
- Printer.Title := _Msg('影像列印');
- end;
-
- IF (Page mod 2) = 1 Then
- Printer.BeginDoc
- Else
- Printer.NewPage;
-
- ImageScrollBox1.DisplayedGraphic.Canvas.Font.Size := 24;
-
- //ImageScrollBox1.DisplayedGraphic.Canvas.TextOut(20,20, _Msg('列印人員:')+LoginID+' '+_Msg('列印分行:')+FUserUnit+' '+_Msg('列印日期:')+DateTime);
-
- GraphicPrinter.Print(ImageScrollBox1.DisplayedGraphic);
-
-
- { this shows how to print text on a page.
- Printer.Canvas.TextOut(10,10, 'Envision Image Library');
- }
- If ((Page mod 2) = 0) or (Page = pages) Then
- Printer.EndDoc;
- end;
-
- procedure PrintWithAutoPrintJob;
- begin
- GraphicPrinter.UsePrintJob := True;
- GraphicPrinter.Title := _Msg('影像列印');
- GraphicPrinter.Print(ImageScrollBox1.Graphic);
- end;
-
-begin
- S := TStringlist.Create;
- GraphicPrinter := TDibGraphicPrinter.Create;
- PrtDialog := TPrintDialog.Create(self);
- //PrtDialog.Copies:=99;
- try
- IF PrtDialog.Execute Then
- begin
- S.Text := FileName;
- Pages := S.Count;
-
- for i := 0 to S.Count -1 do
- begin
- ImageScrollBox1.LoadFromFile(Path+S.Strings[i],1);
- watermark2(Image1.Picture.Bitmap,70,'',ImageScrollBox1.DisplayedGraphic);
- PrintWithManualPrintJob(LoginID,DateTime,Pages,i+1);
- end;
- end;
-
- Finally
- PrtDialog.Free;
- GraphicPrinter.Free;
- S.Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.GotoAttach(OldLevel:Integer);
-var
- i : Integer;
-begin
- for i := 0 to MyTreeNode1.Count - 1 do
- begin
- if Pos('Attach',MyTreeNode1.Item[i].Text) > 0 then
- begin
- if OldLevel = 2 then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i];
- end
- else if OldLevel = 3 then
- begin
- TreeView1.Selected := MyTreeNode1.Item[i].Item[0];
- end;
- Break;
- end;
- end;
- //TreeView1click(nil);
-end;
-
-Function TCB_IMGPSScanX.GetCustomNameCount(CustomName:String):Integer; //取外傳的名稱數量
-var
- i,ct : Integer;
- C_DocNameList : TStringlist;
-begin
- C_DocNameList := TStringlist.Create;
- try
- C_DocNameList.StrictDelimiter := True;
- C_DocNameList.Delimiter := #9;
- C_DocNameList.DelimitedText := FC_DocNameList;
- ct := 0;
- for i := 0 to C_DocNameList.Count - 1 do
- begin
- if C_DocNameList.Strings[i] = CustomName then
- begin
- inc(ct);
- end;
- end;
- Result := ct;
- finally
- C_DocNameList.Free;
- end;
-end;
-
-function TCB_IMGPSScanX.ISExistImg(const filename: string): boolean;
-begin
- if ExistImgList.IndexOf(LoadFileGetMD5(filename))<>-1 then
- begin
- Result:=True;
- end
- else
- begin
- Result:=False;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.PriorPage(Page:Integer); //上一頁
-var
- iISB : TImageScrollBox;
-begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page-1)));
- if iISB <> nil then
- begin
- ISBClick(iISB);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.NextPage(Page:Integer); //下一頁
-var
- iISB : TImageScrollBox;
-begin
- iISB := TImageScrollBox(FindComponent(ISBName+inttostr(Page+1)));
- if iISB <> nil then
- begin
- ISBClick(iISB);
- end;
-end;
-
-Procedure TCB_IMGPSScanX.OMRErr2ini(CaseID,Reason,FileName,Site,RelaFileName,RelaSite,Anchor,Anchor1:String;Del,Ingnore,Display:Boolean); //OMR檢核失敗寫入ini
-var
- ini : Tinifile;
- Errcount : Integer;
- S : TStringlist;
-begin
- if Display then
- begin
- ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
- try
- Errcount := ini.ReadInteger('OMRCount','Count',0); //透過Errcount來對應
- inc(ErrCount);
- ini.WriteString(inttostr(ErrCount),'Reason',Reason);
- ini.WriteBool(inttostr(ErrCount),'Ingnore',Ingnore);
- ini.writeString(inttostr(ErrCount),'FileName',FileName);
- ini.WriteString(inttostr(ErrCount),'Site',Site);
- ini.WriteString(inttostr(ErrCount),'RelaFileName',RelaFileName);
- ini.WriteString(inttostr(ErrCount),'RelaSite',RelaSite);
- ini.WriteString(inttostr(ErrCount),'Anchor',Anchor);
- ini.WriteString(inttostr(ErrCount),'RelaAnchor',Anchor1);
- ini.WriteBool(inttostr(ErrCount),'Del',Del);
- ini.WriteInteger('OMRCount','Count',ErrCount);
- finally
- ini.Free;
- end;
- end
- Else
- begin
- S := TStringlist.Create;
- try
- if FileExists(ImageSavePath + CaseID+'\CheckMemo.dat') then
- S.LoadFromFile(ImageSavePath + CaseID+'\CheckMemo.dat');
- S.Add(Reason);
- S.SaveToFile(ImageSavePath + CaseID+'\CheckMemo.dat');
- finally
- S.Free;
- end;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.OMRErrini2List(CaseID:String;ErrlistForm:TErrlistForm); //OMR檢核失敗從ini寫入ListView
-var
- ini : Tinifile;
- Errcount : Integer;
- Del : Boolean;
- i : Integer;
-begin
- ini := Tinifile.Create(ImageSavePath + CaseID+'\upload\Checkerr.ini');
- try
- Errcount := ini.ReadInteger('OMRCount','Count',0);
-
- for i := 1 to ErrCount do
- begin
- Del := ini.ReadBool(inttostr(i),'Del',False); //是否被移除了
- if Not Del then
- begin
- With ErrlistForm.ErrListLV.Items.Add do
- begin
- Caption := ini.ReadString(inttostr(i),'Reason','');
- SubItems.Add(inttostr(i));
- end;
- end;
- end;
- if Errlistform.ErrListLV.Items.Count > 0 then
- Errlistform.ImmediateBt.Enabled := False;
- finally
- ini.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.DownLanguage:Boolean; //下載多國語言檔
-begin
- Result := True; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
- //dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)
- If not dnFile_Get(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,DownImgStatus) Then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- IF memo1.Lines.Strings[0] = '1' Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
-
-end;
-
-Procedure TCB_IMGPSScanX.FreeShapeobj(SelectISB : TImageScrollBox);
-var
- i : Integer;
-begin
- IF SelectISB = nil then //全Free;
- begin
- For i:= ComponentCount -1 downto 0 do
- begin
- IF Components[i] is TShape Then
- begin
- IF Pos('SP',Components[i].Name) > 0 Then
- Components[i].Free;
- end;
- end;
- end
- Else //只Free指定的
- begin
- TShape(FindComponent('SP'+Copy(SelectISB.Name,length(ISBName)+1,length(SelectISB.Name)-length(ISBName)))).Free;
- end;
-end;
-
-Procedure TCB_IMGPSScanX.CreateIn_WH(CaseID:String); //產生In_WH.dat
-var
- i,n : Integer;
- DocDirList,In_WH_List : TStringlist;
- iDocNo : String;
-begin
- DocDirList := TStringlist.Create;
- In_WH_List := TStringlist.Create;
- try
- if FileExists(ImageSavePath+CaseID+'\CaseDocNo.dat') then
- DocDirList.LoadFromFile(ImageSavePath+CaseID+'\CaseDocNo.dat');
- for i := 0 to DocDirList.Count - 1 do
- begin
- iDocNo := DocNoDir2DocNo(DocDirList.Strings[i]);
- for n := 0 to IN_WH_DocNoList.Count - 1 do
- begin
- if (iDocNo = IN_WH_DocNoList.Strings[n]) or (Copy(iDocNo,1,5)='ZZZZZ') then
- begin
- In_WH_List.Add(DocDirList.Strings[i]);
- Break;
- end;
- end;
- end;
- In_WH_List.SaveToFile(ImageSavePath+CaseID+'\In_Wh.dat');
-
- finally
- DocDirList.Free;
- In_WH_List.Free;
- end;
-end;
-
-Function TCB_IMGPSScanX.CreateAttach_Info(CaseID:String):String; //產生是否有Attach Y:有 N:沒有
-begin
- Result := 'N';
- if GetDocDir_Page(CaseID,AttName) > 0 Then
- Result := 'Y';
-end;
-
-Function TCB_IMGPSScanX.GetOMRCheckSet : Boolean; //下載OMR檢核XML檔
-var
- SendData : String;
- LastDateTime : String;
- S : TStringlist;
-begin
- Result := True;
- S := TStringlist.Create;
- Try
- if FileExists(CheckXmlPath+'OMRSet.zip') then
- DeleteFile(CheckXmlPath+'OMRSet.zip');
-
- LastDateTime := '00000000000000';
- if FileExists(CheckXmlPath+'LastDateTime.dat') then
- begin
- S.LoadFromFile(CheckXmlPath+'LastDateTime.dat');
- LastDateTime := S.Strings[0];
- end;
-
- SendData := 'settype=3&lastupdate='+LastDateTime;
- if not dnFile_Get(HTTPSClient,Furl,'service/imgpsc/IMGPSC01/settings',SendData,CheckXmlPath+'OMRSet.zip',FReWrite,Memo1,False,DownImgStatus) then
- begin
- HttpErrStr := _Msg('錯誤代碼:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
- Result := False;
- Exit;
- end;
- if FileExists(CheckXmlPath+'OMRSet.zip') then //有更新
- begin
- ExecuteUnZip(CheckXmlPath+'OMRSet.zip',CheckXmlPath,True);
- S.Clear;
- S.Add(ServerDate+GetBalance2Time(Balance));
- S.SaveToFile(CheckXmlPath+'LastDateTime.dat');
- end
- Else
- begin
- if (Memo1.Lines.Strings[0] = 'nodata') Then //沒更新
- begin
- Result := True;
- end
- Else if (Memo1.Lines.Strings[0] = '1') Then
- begin
- HttpErrStr := _Msg('錯誤原因:')+memo1.Lines.Strings[1];
- Result := False;
- Exit;
- end
- Else if Pos('<script type="text/javascript" src="scripts/CW00/login.js"></script>',Memo1.Lines.Text) > 0 then
- begin
- HttpErrStr := _Msg('錯誤原因:')+_Msg('閒置過久或被登出,請重新登入');
- Result := False;
- Exit;
- end;
- end;
-
- Finally
- S.Free;
- End;
-
-end;
-
-procedure TCB_IMGPSScanX.Timer1Timer(Sender: TObject);
-var
- StampDate,StampTime : String;
- i: Integer;
-begin
- Timer1.Enabled := False;
- //FIs_In_Wh:='Y'; /// test 記得關掉
- //FWH_category :='N'; // test 記得關掉
-// FImgDelete := 'Y'; //test 記得關掉
- //Showmessage('a');
- //self.FIs_OldCase := 'Y';
- PageLVclear := True;
- InitialOk := False;
-
- FMaxUploadSize:='10';
- FJpgCompression:=50;
- FFtpRootPath := ''; //影像平台沒有給FtpRoot目錄,會直接用FFtpExtraPath切換至指定目錄
- //FMode := 'DSCAN' ;
- //FIs_In_Wh := 'Y';
- if FIs_In_Wh = 'Y' then
- AttName := 'Attach' //入庫附件
- else
- AttName := 'S_Attach'; //Smartlending 附件
-//ShowMessage('1111111');
- if FMode = 'SAMPLESCAN' then
- begin
- NewScanBtn.Visible := False;
- PJLinkedMenuSpeedButton2.Visible := False;
- AddScanBtn.Visible := False;
- CheckCaseBtn.Visible := False;
- Panel18.Visible := False;
- TransBtn.Visible := False;
- FC6.Visible := False;
- SampleScanBtn.Visible := True;
- Panel1.Visible := True;
- Panel6.Visible := True;
- ScanDuplexCB.Visible := False; //雙面掃描
- end
- Else if (FMode = 'NSCAN') then
- begin
- Panel18.Visible := True;
- Panel1.Visible := True;
- Panel6.Visible := True;
- Panel21.Visible := True;
- Panel23.Visible := True;
-
- AttFileGB.Visible := True;
- Splitter2.Visible := True;
- ScanDuplexCB.Visible := True; //雙面掃描
- end
- Else if FMode = 'FSCAN' then
- begin
- Panel1.Visible := True;
- //Panel6.Visible := True;
- end
- Else
- begin
- Panel18.Visible := True;
- Panel1.Visible := True;
- Panel6.Visible := True;
- Panel21.Visible := True;
- Panel23.Visible := True;
- AttFileGB.Visible := True;
- Splitter2.Visible := True;
- end;
- DisplayMode(1,1,1,Panel9);
- Application.ProcessMessages;
- StatusBar1.Panels[0].Text := 'Ver'+GetCurrentVersionNo;
- StatusBar1.Panels[1].Text := 'Login User:'+FUserName;
- {$IFDEF Test}
- StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text+'(test)';
- {$ENDIF}
- StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text;
-
- if FPrintyn = 'Y' then
- PrtLB.Visible := True;
-
- initParameter; //20170222 針對新加的parameter 作初始化參數
- InitScrollRec;
- If FUrl = '' then
- begin
- Showmessage(_Msg('URL cannot be empty,please contact system administrator'));
- Exit;
- end;
- if FUrl[length(FUrl)]<>'/' then
- FUrl := FUrl + '/';
- //20221028 把語言檔改放至 Local目錄裡,才不會有些文字來不及使用
- LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';
- Str2Dir(LngPath);
- ////下載語言檔///// 20170218 先拿調以便測試
- If not DownLanguage Then
- begin
- Showmessage('Language File error!!'+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-
- InitialLanguage(Self); //載入多國語言
-
-
- if FWork_no='' then
- begin
- Showmessage(_Msg('業務別不能為空白,請洽詢程式人員'));
- Exit;
- end;
-
- if CaseIDLength = 0 then
- begin
- Showmessage(_Msg('案件編號長度限制不能為空白,請洽詢程式人員'));
- //Exit; //測試時不退出
- end;
-
- //********清單區********
-
- Doc_Inf_List := TStringList.Create; //Doc_Inf 清單 Docno + 版本為key
- DM_FORM_INF_List := TStringList.Create; //DM_FORM_INF 清單 Docno + 版本為key
- FORM_INF_List := TStringList.Create; //FORM_INF的清單
- CHECK_RULE_INF_List := TStringList.Create; //CHECK_RULE_INF 清單
- MEMO_INF_List := TStringList.Create; //MEMO_INF 清單
- WORK_INF_List := TStringList.Create; //WORK_INF 清單
- LASTEST_FORM_INF_List := TStringList.Create; // LASTEST_FORM_INF 清單
- FindResult := TStringlist.Create; //找SQLData的結果
-
- OMRFileList := TStringList.Create; //要OMR檢核的文件(只檢查每種Form的第一頁)
- FormCode_PageSize := TStringList.Create; //文件的預設大小 FormCode_Height_Width
- DocNo_NeedDoc := TStringList.Create; //有Docno時要相依的文件 DocNo_相依文件_相依文件
- DocNo_NoDoc := TStringList.Create; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
- DocNo_VerinCase := TStringList.Create; //案件裡的DocNo+版本的清單
- CaseDocNoList := TStringlist.Create; //案件裡的DocNo清單
- CaseDocNo_CopiesList := TStringlist.Create; //案件裡的DocNo份數清單
- CaseList := TStringList.Create; //記錄掃瞄案件的順序
- Context_DocnoList := TStringlist.Create; //案件裡的檔案Docno清單
- ContextList := TStringlist.Create; //案件裡的檔案清單
- AttContextList := TStringlist.Create; //案件裡的附加檔案清單
- NoSaveBarCodeList := TStringlist.Create; //不儲存的條碼清單
- FormID_List := TStringlist.Create; //FormID清單
- DocNo_List := TStringlist.Create; //DocNo清單
- NowShowFileList := TStringlist.Create; //目前顯示的影像清單
- NowSelectFileList := TStringlist.Create; //目前被點選的影像清單
- Cust_DocNoList := TStringlist.Create; //自行定義的文件名稱
- IN_WH_DocNoList := TStringlist.Create; //入庫的文件清單
- GuideFormIDList := TStringlist.Create; //要當導引頁表單清單
- DivPageFormIDList := TStringList.Create; //要當分案頁表單清單
- LastInitFormidList :=TStringList.Create;
- LastAddFormidList := TStringList.Create;
- SampleFormIDList := TStringList.Create;//20170627 加入
- ExistImgList := TStringList.Create; //20170724 新增
- reSizeExistImgList :=TStringList.Create; //20171012 新增
- //********清單區********
-
- ShowText := _Msg('資料載入中,請稍候');
- DataLoading(True,True);
-
- IF not GetServerDate Then
- begin
- Showmessage(_Msg('取主機時間時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-
- if FMode='SAMPLESCAN' then
- begin
- IF not GetSampleInf Then //取已存在sample
- begin
- Showmessage(_Msg('取存在範本資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- end;
-
-
-
-//ShowMessage('GetServerDate '+ServerDate+' , '+ServerTime);
- ////下載系統資訊////
- IF not GetSetInf1 Then //取DOC_INF 文件資訊
- begin
- Showmessage(_Msg('取文件資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf1');
- //showmessage(self.Doc_Inf_List.Text);
- IF not GetSetInf2 Then //取DM_FORM_INF 相依互斥資訊
- begin
- Showmessage(_Msg('取相依互斥資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf2');
- //Showmessage(self.Doc_Inf_List.Text);
- IF not GetSetInf3 Then //取FORM_INF 表單資訊
- begin
- Showmessage(_Msg('取表單資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf3');
- IF not GetSetInf4 Then //取CHECK_RULE_INF 檢核規則資訊
- begin
- Showmessage(_Msg('取檢核規則資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- //showmessage(self.CHECK_RULE_INF_List.Text);
-//ShowMessage('GetSetInf4');
- IF not GetSetInf5 Then //取MEMO_INF 常用片語資訊
- begin
- Showmessage(_Msg('取常用片語資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf5');
- //showmessage(self.MEMO_INF_List.Text);
- IF not GetSetInf6 Then //取WORK_INF 系統參數資訊
- begin
- Showmessage(_Msg('取系統參數資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf6');
- //showmessage(FORM_INF_List.Text);
- IF not GetSetInf7 Then //取LASTES_FORM_INF 系統參數資訊
- begin
- Showmessage(_Msg('取最新版FORMID參數資訊時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
-//ShowMessage('GetSetInf7');
- //Showmessage(LASTEST_FORM_INF_List.Text);
- SetFormID_DocNo; //將FormID及Docno抽出塞入List裡 20130403增加
- SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
- GetDefScanIni; //取得掃描預設值及相關設定
-
- ////下載系統資訊/////
- if ImagePath = '' then
- begin
- Showmessage(_Msg('本機暫存路徑不得為空白'));
- DataLoading(False,False);
- Panel1.Enabled := False;
- Panel2.Enabled := False;
- Exit;
- end;
- initkscan;
- if ImagePath[Length(ImagePath)] <> '\' then
- ImagePath := ImagePath + '\';
-//ShowMessage('ImagePath='+ImagePath);
- //CheckXmlPath := ImagePath+'OMRSITE\'+FWork_No;
- CheckXmlPath := ImagePath+'OMRSITE\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
-//ShowMessage('CheckXmlPath='+CheckXmlPath);
- //SitePath := ImagePath+'Site\'+FWork_No+'\';
- SitePath := ImagePath+'Site\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
- //LngPath := ImagePath; //改放至上面取Local目錄
- SamplePath := ImagePath+'Sample\'+FWork_No+'\';
- ImagePath := ImagePath + 'Scantemp\';
-//ShowMessage('AA ImagePath='+ImagePath);
- ScaniniPath :=ImagePath+FWork_No+'\'+FUserUnit +'\';
-//ShowMessage('ScaniniPath='+ScaniniPath);
- ImagePath := ImagePath + FWork_No+'\'+FUserUnit+'\'+FMode+'\';
- ImagePath := StringReplace(ImagePath, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
-//ShowMessage('BB ImagePath='+ImagePath);
- ImageSavePath := ImagePath;
- str2dir(CheckXmlPath);
- str2dir(SitePath);
- str2dir(ImagePath);
- str2dir(SamplePath);
- Del_Sub_NothingPath(ImagePath); //清掉案件目錄是空的
-
-
- LogFile1.LogFile:=LngPath+'IMGPSCheck.log';
-
- ReduceLogFile;
-
- LogFile1.LogToFile(logTimeString+'OCX取表data結束');
-
- ShowText := _Msg('資料載入中,請稍候');
- DataLoading(True,True);
-
-// if not CheckAvailable Then //檢查授權 20170218 說不用了
-// begin
-// DataLoading(False,False);
-// Panel1.Enabled := False;
-// Panel2.Enabled := False;
-// Exit;
-// end;
-
-//Button3Click(Self);
-//ShowMessage('CheckAvailable');
- ShowText := _Msg('資料載入中,請稍候');
- DataLoading(True,True);
-
-
- StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName;
- //FCaseID:='20150302180133';//測試用
- ////下載語言檔/////
-//ShowMessage('OOOO');
-
- if (FMode = 'RSCAN') or (FMode = 'DSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //重掃件及異動件要只能掃指定編號的件
- begin
- _Deltree(ImagePath);
- str2dir(ImagePath);
- ImageSavePath := ImagePath;
- str2dir(ImageSavePath);
- MkDir(ImageSavePath+FCaseID);
- CreateEmptyCase(ImageSavePath,FCaseID);
- MkDir(ImageSavePath+FCaseID+'\Download');
- IF (FMode = 'ESCAN') or (FMode = 'DSCAN') then //異動件先下載影像
- begin
- ShowText := _Msg('案件下載中,請稍候');
- DataLoading(True,True);
- If not DownLoadImage(ImageSavePath+FCaseID+'\Download\',FCaseID) Then
- begin
- Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+DownFileErrStr);
- DataLoading(False,False);
- Exit;
- end;
-
- {If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
- begin
- Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;}
-//Showmessage(ImageSavePath+FCaseID+'\Download\'+#10#13+ImageSavePath+FCaseID+'\');
- Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
-//Showmessage('aaa');
- //Download2Case('C:\Users\Hong\Downloads\沒有括號\',ImageSavePath+FCaseID+'\');
- if (FIs_OldCase = 'Y') then
- begin
- if (FWork_no='HLN') then
- ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
- //if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //這個會在Download2Case時一律產生所以不能有這行 20141013
- OldCasetoNewCase(FCaseID);
- //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
- //LoadImgFile;
- end;
-// if (FIs_OldCase = 'Y') and (FWork_no='HLN') then //77版的
-// begin
-// ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
-// if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then
-// OldCasetoNewCase(FCaseID);
-// //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
-// //LoadImgFile;
-// end;
- Create_Cust_DocDir(FCaseID); //產生外面傳入的文件
- if FMode='ESCAN' then
- LastInitFormidListCreate(ImageSavePath+FCaseID+'\Download\');
- end;
- end;
-
-//ShowMessage('GetOMRCheckSet前');
- ////下載檢核XML//////
- IF not GetOMRCheckSet Then
- begin
- Showmessage(_Msg('下載檢核定位檔案時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- ////下載檢核XML/////
-//ShowMessage('GetOMRCheckSet後來');
- ////下載登打設定/////
- IF not GetKeyinSet Then
- begin
- Showmessage(_Msg('下載登打定位檔案時,網路發生錯誤!!')+HttpErrStr);
- DataLoading(False,False);
- Exit;
- end;
- ////下載登打設定/////
-//ShowMessage('GetKeyinSet');
- if ScanDenialHint <> '' then //有設定提示字串就秀在右上角
- begin
- DenialTimeLb.Visible := True;
- DenialTimeLb.Caption := Format(ScanDenialHint,[ScanDenialTime]);
- end;
-//ShowMessage(IntToStr(ScanDpi));
- R_W_Scanini('R'); //掃瞄設定的ini
-//ShowMessage(IntToStr(ScanDpi));
-//ShowMessage('停掉DataLoading');
-//DataLoading(False,False);
- ScanDuplexCB.Checked := ScanDuplex;
- if FMode <> 'SAMPLESCAN' then
- LoadImgFile;
- if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then
- begin
- if TreeView1.Items.Count > 0 then
- begin
- TreeView1.Selected := NewTreeNode.Item[0];
- TreeView1click(self);
- end;
- end;
- InitialOk := True;
-
- {AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
- Splitter2.Visible := True;
- AttFileGB.Visible := False; //附加電子檔窗
- Splitter2.Visible := False; }
-//ShowMessage('ImageSavePath='+ImageSavePath);
- DataLoading(False,False);
-
- LogFile1.LogToFile(logTimeString+'OCX初始化結束');
- LogFile1.LogToFile(logTimeString+'FUrl='+FUrl+
- ',FCaseID='+FCaseID+
- ',FMode='+FMode+
- ',FModeName='+FModeName+
- ',FWork_no='+FWork_no+
- ',FUserID='+FUserID+
- ',FUserName='+FUserName+
- ',FUserUnit='+FUserUnit+
- ',FData='+FData+
- ',FVerify='+FVerify+
- ',FReWrite='+FReWrite+
- ',FLanguage='+FLanguage+
- ',FLoanDoc_Value='+FLoanDoc_Value+
- ',FLoanDoc_Enable='+FLoanDoc_Enable+
- ',FUseProxy='+FUseProxy+
- ',FC_DocNoList='+FC_DocNoList+
- ',FC_DocNameList='+FC_DocNameList+
- ',FFixFileList='+FFixFileList+
- ',FIs_In_Wh='+FIs_In_Wh+
- ',FOldCaseInfo='+FOldCaseInfo+
- ',FPrintyn='+FPrintyn+
- ',FIs_OldCase='+FIs_OldCase+
- ',FCustDocYN='+FCustDocYN);
- LogFile1.LogToFile(logTimeString+'FImgDPI='+IntToStr(FImgDPI)+
- ',FScanColor='+ IntToStr(FScanColor)+
- ',FFileSizeLimit='+ IntToStr(FFileSizeLimit)+
- ',FCaseNoLength='+ IntToStr(FCaseNoLength)+
- ',FImgDelete='+FImgDelete+
- ',FIsExternal='+FIsExternal+
- ',FWH_category='+FWH_category+
- ',FCheck_main_form='+FCheck_main_form+
- ',FMaxUploadSize='+FMaxUploadSize);
-
-end;
-
-procedure TCB_IMGPSScanX.Timer2Timer(Sender: TObject);
-begin
- IF Panel22.Caption = ShowText+'......' Then
- Panel22.Caption := ShowText
- Else
- Panel22.Caption := Panel22.Caption + '.';
- Application.ProcessMessages;
-end;
-
-procedure TCB_IMGPSScanX.Set_mode(const Value: WideString);
-begin
- FMode := UpperCase(Value);
-end;
-
-procedure TCB_IMGPSScanX.Set_rewrite(const Value: WideString);
-begin
- FReWrite := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_url(const Value: WideString);
-begin
- FUrl := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_userid(const Value: WideString);
-begin
- FUserID := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_username(const Value: WideString);
-begin
- FUserName := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_verify(const Value: WideString);
-begin
- FVerify := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_language(const Value: WideString);
-begin
- FLanguage := lowercase(Value);
- if FLanguage='zh-tw' then
- begin
- FLanguage:='zh_tw'
- end;
- if FileExists(LngPath+'Language.lng') then
- begin
- InitialLanguage(Self); //載入多國語言
- end;
-end;
-
-procedure TCB_IMGPSScanX.Set_modename(const Value: WideString);
-begin
- FModeName := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_userunit(const Value: WideString);
-begin
- FUserUnit := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_work_no(const Value: WideString);
-begin
- FWork_no := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_loandoc_enable(const Value: WideString);
-begin
- FLoanDoc_Enable := Value;
- if FLoanDoc_Enable = 'Y' then
- AddCredit1RG.Enabled := True;
- if FLoanDoc_Enable = 'I' then
- begin
- AddCredit1RG.Visible := False;
- Panel5.Visible := False;
- end;
-end;
-
-procedure TCB_IMGPSScanX.Set_loandoc_value(const Value: WideString);
-begin
- FLoanDoc_Value := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_useproxy(const Value: WideString);
-begin
- FUseProxy := UpperCase(Value);
- if FUseProxy = 'Y' then
- UseProxy := True; //要不要用Proxy
-
-end;
-
-procedure TCB_IMGPSScanX.Set_c_docnamelist(const Value: WideString);
-begin
- FC_DocNameList := Value;
-end;
-
-procedure TCB_IMGPSScanX.Set_is_in_wh(const Value: WideString);
-begin
- FIs_In_Wh := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_c_docnamelist: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_is_in_wh: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_language: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_loandoc_enable: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_loandoc_value: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_mode: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_modename: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_rewrite: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_url: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_useproxy: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_userid: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_username: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_userunit: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_verify: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_work_no: WideString;
-begin
-
-end;
-
-function TCB_IMGPSScanX.Get_printyn: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_printyn(const Value: WideString);
-begin
- FPrintyn := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_custdocyn: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_custdocyn(const Value: WideString);
-begin
- FCustDocYN := UpperCase(Value);
-end;
-
-function TCB_IMGPSScanX.Get_imgdelete: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_imgdelete(const Value: WideString);
-begin
- FImgDelete:=Value;
-end;
-
-function TCB_IMGPSScanX.Get_isExternal: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_isExternal(const Value: WideString);
-begin
- FIsExternal:=Value;
-end;
-
-function TCB_IMGPSScanX.Get_WH_CATEGORY: WideString;
-begin
-
-end;
-
-procedure TCB_IMGPSScanX.Set_WH_CATEGORY(const Value: WideString);
-begin
- FWH_category:=Value;
-end;
-
diff --git a/separate/scanImp/CB_IMGPSScanImp_Utils.ts b/separate/scanImp/CB_IMGPSScanImp_Utils.ts
deleted file mode 100644
index a1ccd6e..0000000
--- a/separate/scanImp/CB_IMGPSScanImp_Utils.ts
+++ /dev/null
@@ -1,59 +0,0 @@
-import * as fs from 'fs'; import * as path from 'path';
-export enum TTransMode{tsHttp,tsFtp,tsNone} export enum TFtpProtocol{fpftp,fpftps} export type TImageFormat='ifBlackWhite'|'ifGray256'|'ifTrueColor'|'ifColor256';
-export class TStringList {
- Strings:string[]=[]; get Count(){return this.Strings.length;}
- Add(s:string){this.Strings.push(s);} Clear(){this.Strings=[];}
- LoadFromFile(fp:string){if(fs.existsSync(fp))this.Strings=fs.readFileSync(fp,'utf8').split(/\r?\n/).filter(Boolean);}
- SaveToFile(fp:string){fs.writeFileSync(fp,this.Strings.join('\n'),'utf8');}
- Delete(idx:number){this.Strings.splice(idx,1);} Insert(idx:number,s:string){this.Strings.splice(idx,0,s);}
- IndexOf(s:string){return this.Strings.indexOf(s);} get Text(){return this.Strings.join('\n');}
- set Text(v:string){this.Strings=v.split('\n');} get CommaText(){return this.Strings.join(',');}
- set CommaText(v:string){this.Strings=v.split(',');} Free(){} Sort(){this.Strings.sort();} Assign(s:TStringList){this.Strings=[...s.Strings];}
-}
-export function applyUtilsMixins(cls:any){
- cls.prototype.GetCurrentVersionNo=function(){return "1.0.0";};
- cls.prototype.DefinePropertyPages=function(){};
- cls.prototype.InitExistImgList=function(cp:string){
- let ST1=new TStringList(); this.ExistImgList.Clear();
- ST1.LoadFromFile(path.join(cp,'Download','Context.dat'));
- for(let i=0;i<ST1.Count;i++){ let m=this.LoadFileGetMD5(path.join(cp,'Download',ST1.Strings[i])); this.LogFile1.LogToFile(this.logTimeString()+path.join(cp,'Download',ST1.Strings[i])+',MD5='+m); this.ExistImgList.Add(m); }
- this.LogFile1.LogToFile(this.logTimeString()+'ExistImgList.text'+this.ExistImgList.CommaText); ST1.Free();
- };
- cls.prototype.Initialize=function(){
- ['Activate','Click','Create','DblClick','Deactivate','Destroy','KeyPress','MouseEnter','MouseLeave','Paint'].forEach(e=>this['On'+e]=this[e+'Event']?this[e+'Event'].bind(this):null);
- this.MpsKey='fbim';this.Seg=3;this.Ext='.tif';this.SafePixel=20;this.CaseIDLength=16;this.FormIDLength=15;this.Bt=4;this.CropBarcode='CC';
- };
- cls.prototype.ISB1Enter=function(){this.ISB1.SetFocus();};
- cls.prototype._Set_Font=function(v:any){this.Font=v;};
- ['Active','AlignDisabled','AlignWithMargins','AutoScroll','AutoSize','AxBorderStyle','Caption','Color','DockSite','DoubleBuffered','DropTarget','Enabled','ExplicitHeight','ExplicitLeft','ExplicitTop','ExplicitWidth','Font','HelpFile','KeyPreview','MouseInClient','ParentCustomHint','ParentDoubleBuffered','PixelsPerInch','PopupMode','PrintScale','Scaled','ScreenSnap','SnapBuffer','UseDockManager','Visible','VisibleDockClientCount'].forEach(p=>{
- cls.prototype['Get_'+p]=function(){return this[p];}; cls.prototype['Set_'+p]=function(v:any){this[p]=v;};
- });
- cls.prototype.LoadFileGetMD5=function(f:string){return "md5stub";};
- cls.prototype.ISExistImg=function(f:string){return this.ExistImgList.IndexOf(this.LoadFileGetMD5(f))!==-1;};
- cls.prototype.MemoInfoTransfer=function(m:string,s:string,id:TStringList,n:TStringList){
- if(m==='ID'){for(let i=0;i<id.Count;i++)if(s===id.Strings[i])return n.Strings[i]; return '自行輸入';}
- if(m==='NAME'){for(let i=0;i<n.Count;i++)if(s===n.Strings[i])return id.Strings[i]; return '00';} return '';
- };
- cls.prototype.SetSQLData=function(c:string,f:TStringList,t:TStringList){t.Clear();t.Add(c);for(let i=1;i<f.Count;i++)t.Add(f.Strings[i]);};
- cls.prototype.GetSQLData=function(t:TStringList,c:string,no:number){
- if(t.Count===0||no>=t.Count)return''; let cs=t.Strings[0].split(','),ts=t.Strings[no],ds=ts.split('!@!');
- let idx=cs.indexOf(c); return(idx!==-1&&idx<ds.length)?ds[idx]:'';
- };
- cls.prototype.FindSQLData=function(t:TStringList,c:string,kc:string,ks:string,no:number,res:TStringList){
- res.Clear(); if(!ks||t.Count<=1)return false;
- let cl=c.split(','),kcl=kc.split(','),kl=ks.split(','),fidx=-1,found=false;
- if(no===0){for(let i=1;i<t.Count;i++){let m=true;for(let n=0;n<kcl.length;n++)if(this.GetSQLData(t,kcl[n],i)!==kl[n]){m=false;break;}if(m){found=true;fidx=i;break;}}}
- else{let m=true;for(let n=0;n<kcl.length;n++)if(t.Strings[no].indexOf('!@!'+kl[n]+'!@!')===-1){m=false;break;}if(m){found=true;fidx=no;}}
- if(found)cl.forEach(co=>res.Add(co+','+this.GetSQLData(t,co,fidx))); return found;
- };
- cls.prototype.GetFindResult=function(c:string){for(let i=0;i<this.FindResult.Count;i++){let s=this.FindResult.Strings[i],idx=s.indexOf(',');if(idx>-1&&c===s.substring(0,idx))return s.substring(idx+1);}return'';};
- cls.prototype.FileName2FormCode=function(f:string){let b=path.basename(f),v=b.indexOf('_'),v1=b.lastIndexOf('.');return(v>-1&&v1>v)?b.substring(v+1,v1):'';};
- cls.prototype.FormCode2DocNo=function(fc:string){for(let i=0;i<this.FormID_List.Count;i++)if(this.FormID_List.Strings[i]===fc)return this.DocNo_List.Strings[i];return fc?fc.substring(0,8):'';};
- cls.prototype.FormCode2Version=function(fc:string){return fc.substring(10,15);};
- cls.prototype.FormCode2Page=function(fc:string){return fc.substring(8,10);};
- cls.prototype.DocNoDir2DocNo=function(d:string){if(d!=='Attach'&&d!=='S_Attach'){let v=d.indexOf('(');if(v>0)return d.substring(0,v);}return d;};
- cls.prototype.DocNo2DocNoDir=function(p:string,d:string){if(!d)return this.AttName;let i=0,id='';do{i++;id=d+'('+i+')';}while(fs.existsSync(path.join(p,id)));return id;};
- cls.prototype.Add_Zoo=function(n:number,l:number){return n.toString().padStart(l,'0');};
- cls.prototype.Str2Dir=function(p:string){if(!fs.existsSync(p))fs.mkdirSync(p,{recursive:true});};
- cls.prototype._DelTree=function(p:string){if(fs.existsSync(p))fs.rmSync(p,{recursive:true,force:true});};
-}
diff --git a/split_pascal.js b/split_pascal.js
deleted file mode 100644
index 5db7fb6..0000000
--- a/split_pascal.js
+++ /dev/null
@@ -1,98 +0,0 @@
-const fs = require('fs');
-const path = require('path');
-
-// 檔案路徑設定
-const sourceFile = path.resolve(__dirname, 'CB_IMGPSScanImp.pas');
-const outDir = path.resolve(__dirname, 'separate', 'scanImp');
-
-if (!fs.existsSync(sourceFile)) {
- console.error("找不到原始檔案:", sourceFile);
- process.exit(1);
-}
-
-if (!fs.existsSync(outDir)) {
- fs.mkdirSync(outDir, { recursive: true });
-}
-
-const content = fs.readFileSync(sourceFile, 'utf8');
-
-const implMatch = content.match(/\bimplementation\b/i);
-const initMatch = content.match(/\binitialization\b/i);
-
-if (!implMatch || !initMatch) {
- console.error("無法在檔案中找到 implementation 或 initialization 區段。");
- process.exit(1);
-}
-
-const headerPart = content.substring(0, implMatch.index + implMatch[0].length);
-let implPart = content.substring(implMatch.index + implMatch[0].length, initMatch.index);
-const footerPart = content.substring(initMatch.index);
-
-const usesMatch = implPart.match(/^\s*uses[\s\S]*?;/im);
-let usesClause = "";
-if (usesMatch) {
- usesClause = usesMatch[0];
- implPart = implPart.substring(usesMatch.index + usesMatch[0].length);
-}
-
-// 提取並保留不在方法內的實作開頭，例如 {$R *.DFM} 或是 { TCB_IMGPSScanX }
-const methodRegex = /^(?:procedure|function)\s+TCB_IMGPSScanX\./im;
-let otherImpl = "";
-const firstMethodMatch = implPart.match(methodRegex);
-
-if (firstMethodMatch) {
- otherImpl = implPart.substring(0, firstMethodMatch.index);
- implPart = implPart.substring(firstMethodMatch.index);
-}
-
-// 切割所有方法
-const methodSplitRegex = /(?=^(?:procedure|function)\s+TCB_IMGPSScanX\.)/im;
-const methods = implPart.split(methodSplitRegex).filter(m => m.trim().length > 0);
-
-const uiMethods = [];
-const scanMethods = [];
-const dataMethods = [];
-const utilMethods = [];
-
-methods.forEach(m => {
- const nameMatch = m.match(/^(?:procedure|function)\s+TCB_IMGPSScanX\.([A-Za-z0-9_]+)/i);
- if (nameMatch) {
- const name = nameMatch[1].toLowerCase();
- if (/(click|mouse|key|drag|scroll|event|menu|btn|form|node|tree|view|activate|paint|resize)/.test(name)) {
- uiMethods.push(m);
- } else if (/(scan|acquire|image|graphic|twain|dpi|color|deskew|rotate|crop|smooth|point)/.test(name)) {
- scanMethods.push(m);
- } else if (/(ftp|http|trans|load|sql|server|setinf|data|ask|log|file|path|zip|dir|docno|formid|case)/.test(name)) {
- dataMethods.push(m);
- } else {
- utilMethods.push(m);
- }
- } else {
- utilMethods.push(m);
- }
-});
-
-fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_UI.pas'), uiMethods.join(''), 'utf8');
-fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Scan.pas'), scanMethods.join(''), 'utf8');
-fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Data.pas'), dataMethods.join(''), 'utf8');
-fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Utils.pas'), utilMethods.join(''), 'utf8');
-
-const mainFile = [
- headerPart,
- usesClause,
- otherImpl,
- "{$I CB_IMGPSScanImp_UI.pas}",
- "{$I CB_IMGPSScanImp_Scan.pas}",
- "{$I CB_IMGPSScanImp_Data.pas}",
- "{$I CB_IMGPSScanImp_Utils.pas}",
- footerPart
-].join('');
-
-fs.writeFileSync(path.join(outDir, 'CB_IMGPSScanImp_Main.pas'), mainFile, 'utf8');
-
-console.log("拆分完成！產生的五個檔案如下：");
-console.log("1. CB_IMGPSScanImp_Main.pas (主結構與引用)");
-console.log("2. CB_IMGPSScanImp_UI.pas (UI事件相關:", uiMethods.length, "個方法)");
-console.log("3. CB_IMGPSScanImp_Scan.pas (掃描影像相關:", scanMethods.length, "個方法)");
-console.log("4. CB_IMGPSScanImp_Data.pas (資料存取與網路傳輸:", dataMethods.length, "個方法)");
-console.log("5. CB_IMGPSScanImp_Utils.pas (工具與其他邏輯:", utilMethods.length, "個方法)");
diff --git a/uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.ts b/uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.ts
new file mode 100644
index 0000000..3694969
--- /dev/null
+++ b/uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.ts
@@ -0,0 +1,216 @@
+import { ref, onMounted, onUnmounted } from 'vue';
+
+// Mock Interfaces mapped from Delphi types
+interface TTreeNode {
+ text: string;
+ expanded?: boolean;
+ children?: TTreeNode[];
+}
+
+export function useCBIMGPSScanImpLogic() {
+ // State
+ const scanDuplex = ref<boolean>(false);
+ const scanGray = ref<boolean>(false);
+ const cb1 = ref<boolean>(false);
+ const smoothView = ref<boolean>(false);
+ const edit1 = ref<string>('');
+
+ const showDenialTimeLb = ref<boolean>(false);
+ const showAttFileGB = ref<boolean>(false);
+ const showPageList = ref<boolean>(false);
+ const showLoadingPanel = ref<boolean>(false);
+ const showProgressPanel = ref<boolean>(false);
+
+ const label7Text = ref<string>('Label7');
+ const progressLabel = ref<string>('Label2');
+ const progressValue = ref<number>(0);
+ const scrollValue = ref<number>(1);
+
+ const panel3Width = ref<number>(291);
+
+ const statusPanels = ref<string[]>(['', '', '', '', '']);
+
+ // Mock Data
+ const treeNodes = ref<TTreeNode[]>([
+ { text: '案件 1', children: [{ text: '文件 1-1' }] },
+ { text: '案件 2' }
+ ]);
+ const selectedNodeIndex = ref<number>(-1);
+
+ const attFiles = ref<string[]>(['file1.pdf', 'file2.pdf']);
+ const pageList = ref<string[]>(['1', '2', '3']);
+ const selectedPageIndex = ref<number>(-1);
+
+ // Splitter logic
+ const startResize = (e: MouseEvent) => {
+ console.log('Splitter resize logic to adjust panel3Width');
+ };
+
+ // UI Event Handlers
+ const ActiveFormCreate = () => { console.log('ActiveFormCreate'); };
+ const ActiveFormKeyUp = () => { console.log('ActiveFormKeyUp'); };
+
+ const TransBtnClick = () => { console.log('TransBtnClick'); };
+ const NewScanBtnClick = () => { console.log('NewScanBtnClick'); };
+ const AddScanBtnClick = () => { console.log('AddScanBtnClick'); };
+
+ const FC0Click = () => { console.log('FC0Click'); };
+ const FC1Click = () => { console.log('FC1Click'); };
+ const FC2Click = () => { console.log('FC2Click'); };
+ const FC3Click = () => { console.log('FC3Click'); };
+ const FC4Click = () => { console.log('FC4Click'); };
+ const FC5Click = () => { console.log('FC5Click'); };
+ const FC6Click = () => { console.log('FC6Click'); };
+
+ const ViewModeBtnMouseEnter = () => { console.log('ViewModeBtnMouseEnter'); };
+ const PrePageBtnClick = () => { console.log('PrePageBtnClick'); };
+ const NextPageBtnClick = () => { console.log('NextPageBtnClick'); };
+ const OptionBtnClick = () => { console.log('OptionBtnClick'); };
+ const SelectScanBtnClick = () => { console.log('SelectScanBtnClick'); };
+
+ const ScanGrayCBClick = () => { console.log('ScanGrayCBClick:', scanGray.value); };
+ const ScanDuplexCBClick = () => { console.log('ScanDuplexCBClick:', scanDuplex.value); };
+ const CB1Click = () => { console.log('CB1Click:', cb1.value); };
+ const SmoothCBClick = () => { console.log('SmoothCBClick:', smoothView.value); };
+
+ const SampleScanBtnClick = () => { console.log('SampleScanBtnClick'); };
+ const WNoteBtnClick = () => { console.log('WNoteBtnClick'); };
+ const CheckCaseBtnClick = () => { console.log('CheckCaseBtnClick'); };
+ const UseOldCaseLbClick = () => { console.log('UseOldCaseLbClick'); };
+
+ const TreeView1Click = () => { console.log('TreeView1Click'); };
+ const TreeView1KeyUp = () => { console.log('TreeView1KeyUp'); };
+ const TreeView1MouseDown = () => { console.log('TreeView1MouseDown'); };
+ const TreeView1MouseEnter = () => { console.log('TreeView1MouseEnter'); };
+ const TreeView1MouseMove = () => { console.log('TreeView1MouseMove'); };
+ const TreeView1MouseUp = () => { console.log('TreeView1MouseUp'); };
+ const selectTreeNode = (idx: number) => { selectedNodeIndex.value = idx; console.log('Node selected', idx); };
+
+ const PrtLbClick = () => { console.log('PrtLbClick'); };
+ const CaseHelpBtnClick = () => { console.log('CaseHelpBtnClick'); };
+
+ const AddAttFileLBClick = () => { console.log('AddAttFileLBClick'); };
+ const DelAttFileLBClick = () => { console.log('DelAttFileLBClick'); };
+ const AttListBoxClick = () => { console.log('AttListBoxClick'); };
+ const AttListBoxDblClick = () => { console.log('AttListBoxDblClick'); };
+
+ const Panel11DblClick = () => { console.log('Panel11DblClick'); };
+ const ScrollBox1MouseEnter = () => { console.log('ScrollBox1MouseEnter'); };
+ const Panel9Resize = () => { console.log('Panel9Resize'); };
+ const ScrollBar1Change = () => { console.log('ScrollBar1Change:', scrollValue.value); };
+
+ const SpeedButton3Click = () => { console.log('SpeedButton3Click'); };
+ const SpeedButton14Click = () => { console.log('SpeedButton14Click'); };
+ const SpeedButton15Click = () => { console.log('SpeedButton15Click'); };
+ const SpeedButton16Click = () => { console.log('SpeedButton16Click'); };
+ const SpeedButton17Click = () => { console.log('SpeedButton17Click'); };
+ const SpeedButton18Click = () => { console.log('SpeedButton18Click'); };
+ const SpeedButton19Click = () => { console.log('SpeedButton19Click'); };
+ const SpeedButton20Click = () => { console.log('SpeedButton20Click'); };
+ const SpeedButton21Click = () => { console.log('SpeedButton21Click'); };
+ const SpeedButton22Click = () => { console.log('SpeedButton22Click'); };
+
+ const PageLVClick = (idx: number) => { selectedPageIndex.value = idx; console.log('PageLVClick', idx); };
+
+ const StatusBar1DblClick = () => { console.log('StatusBar1DblClick'); };
+ const ExportBtClick = () => { console.log('ExportBtClick'); };
+ const ImportBtClick = () => { console.log('ImportBtClick'); };
+ const Button3Click = () => { console.log('Button3Click'); };
+ const Button4Click = () => { console.log('Button4Click'); };
+ const Button5Click = () => { console.log('Button5Click'); };
+ const Button6Click = () => { console.log('Button6Click'); };
+
+ // Placeholder for internal methods not directly exposed to UI but existing in pas
+ const initParameter = () => {};
+ const initkscan = () => {};
+
+ onMounted(() => {
+ ActiveFormCreate();
+ initParameter();
+ });
+
+ return {
+ scanDuplex,
+ scanGray,
+ cb1,
+ smoothView,
+ edit1,
+ showDenialTimeLb,
+ showAttFileGB,
+ showPageList,
+ showLoadingPanel,
+ showProgressPanel,
+ label7Text,
+ progressLabel,
+ progressValue,
+ scrollValue,
+ panel3Width,
+ statusPanels,
+ treeNodes,
+ selectedNodeIndex,
+ attFiles,
+ pageList,
+ selectedPageIndex,
+
+ startResize,
+ TransBtnClick,
+ NewScanBtnClick,
+ AddScanBtnClick,
+ FC0Click,
+ FC1Click,
+ FC2Click,
+ FC3Click,
+ FC4Click,
+ FC5Click,
+ FC6Click,
+ ViewModeBtnMouseEnter,
+ PrePageBtnClick,
+ NextPageBtnClick,
+ OptionBtnClick,
+ SelectScanBtnClick,
+ ScanGrayCBClick,
+ ScanDuplexCBClick,
+ CB1Click,
+ SmoothCBClick,
+ SampleScanBtnClick,
+ WNoteBtnClick,
+ CheckCaseBtnClick,
+ UseOldCaseLbClick,
+ TreeView1Click,
+ TreeView1KeyUp,
+ TreeView1MouseDown,
+ TreeView1MouseEnter,
+ TreeView1MouseMove,
+ TreeView1MouseUp,
+ selectTreeNode,
+ PrtLbClick,
+ CaseHelpBtnClick,
+ AddAttFileLBClick,
+ DelAttFileLBClick,
+ AttListBoxClick,
+ AttListBoxDblClick,
+ Panel11DblClick,
+ ScrollBox1MouseEnter,
+ Panel9Resize,
+ ScrollBar1Change,
+ SpeedButton3Click,
+ SpeedButton14Click,
+ SpeedButton15Click,
+ SpeedButton16Click,
+ SpeedButton17Click,
+ SpeedButton18Click,
+ SpeedButton19Click,
+ SpeedButton20Click,
+ SpeedButton21Click,
+ SpeedButton22Click,
+ PageLVClick,
+ StatusBar1DblClick,
+ ExportBtClick,
+ ImportBtClick,
+ Button3Click,
+ Button4Click,
+ Button5Click,
+ Button6Click,
+ ActiveFormKeyUp
+ };
+}
diff --git a/uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.vue b/uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.vue
new file mode 100644
index 0000000..f6966f8
--- /dev/null
+++ b/uiOutput/CB_IMGPSScanImp/CB_IMGPSScanImp.vue
@@ -0,0 +1,264 @@
+<template>
+ <div class="cb-imgpsscanimp-form flex flex-col bg-gray-100 font-sans w-[950px] h-[618px]">
+
+ <!-- Top Toolbar Panel1 -->
+ <div class="panel-1 border-b border-gray-300 flex items-center h-[52px] flex-none px-2 space-x-2 bg-gray-100">
+
+ <!-- Panel23 (Leftmost tools) -->
+ <div class="panel-23 flex items-center h-full space-x-1" style="width: 56px;">
+ <button class="new-scan-btn w-[42px] h-[50px] border border-gray-400 bg-gray-200 hover:bg-gray-300 flex items-center justify-center" @click="NewScanBtnClick">
+ <img src="data:image/svg+xml;utf8,<svg xmlns='http://www.w3.org/2000/svg' viewBox='0 0 24 24' width='24' height='24'><path fill='none' stroke='black' stroke-width='2' d='M12 4v16m-8-8h16'/></svg>" alt="New" class="w-6 h-6"/>
+ </button>
+ <button v-show="false" class="add-scan-btn w-[42px] h-[50px] border border-gray-400 bg-gray-200" @click="AddScanBtnClick">Add</button>
+ </div>
+
+ <!-- TransBtn -->
+ <button class="trans-btn w-[42px] h-[50px] border border-gray-400 bg-gray-200 hover:bg-gray-300 flex items-center justify-center" @click="TransBtnClick">
+ <svg class="w-6 h-6" fill="none" stroke="currentColor" viewBox="0 0 24 24"><path stroke-linecap="round" stroke-linejoin="round" stroke-width="2" d="M4 16v1a3 3 0 003 3h10a3 3 0 003-3v-1m-4-8l-4-4m0 0L8 8m4-4v12"></path></svg>
+ </button>
+
+ <!-- Panel21 (Main Toolbar) -->
+ <div class="panel-21 flex items-center h-full space-x-1" style="width: 545px;">
+ <button class="fc0-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="FC0Click">FC0</button>
+ <button class="fc1-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="FC1Click">FC1</button>
+ <button class="fc2-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="FC2Click">FC2</button>
+ <button class="fc3-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="FC3Click">FC3</button>
+ <button class="fc4-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="FC4Click">FC4</button>
+ <button class="fc5-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="FC5Click">FC5</button>
+ <button v-show="false" class="fc6-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200" @click="FC6Click">FC6</button>
+
+ <div class="w-2"></div> <!-- Spacer -->
+
+ <button class="view-mode-btn w-[41px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @mouseenter="ViewModeBtnMouseEnter">VM</button>
+ <button class="pre-page-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="PrePageBtnClick"><</button>
+ <button class="next-page-btn w-[42px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="NextPageBtnClick">></button>
+ <button class="option-btn w-[41px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="OptionBtnClick">Opt</button>
+ <button class="select-scan-btn w-[41px] h-[49px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="SelectScanBtnClick">Sel</button>
+
+ <!-- Hidden Edit -->
+ <input type="text" class="hidden" v-model="edit1" />
+ </div>
+
+ <!-- Right align stuff -->
+ <div class="flex-grow"></div>
+ <label v-show="showDenialTimeLb" class="text-red-500 font-bold w-[305px] truncate">可掃描上傳時間：</label>
+
+ <!-- Hidden buttons in Top Panel -->
+ <button v-show="false" @click="Button3Click">Btn3</button>
+ <button v-show="false" @click="Button4Click">Btn4</button>
+ <button v-show="false" @click="Button5Click">Btn5</button>
+ <button v-show="false" @click="Button6Click">Btn6</button>
+ <button v-show="false" @click="ExportBtClick">Export</button>
+ <button v-show="false" @click="ImportBtClick">Import</button>
+ <label class="scan-gray-cb flex items-center space-x-1 absolute right-[20px] top-[15px]">
+ <input type="checkbox" v-model="scanGray" @change="ScanGrayCBClick" />
+ <span>灰階掃描</span>
+ </label>
+
+ </div>
+
+ <!-- Main Workspace Panel4 -->
+ <div class="panel-4 flex flex-1 overflow-hidden relative">
+
+ <!-- Left Tree/Settings Panel3 -->
+ <div class="panel-3 flex flex-col w-[291px] border-r border-gray-300 bg-gray-100 flex-none z-10" :style="{ width: panel3Width + 'px' }">
+
+ <!-- Scan Options Panel6 -->
+ <div class="panel-6 h-[50px] border-b border-gray-300 flex items-center px-2 flex-none relative">
+ <button v-show="false" class="sample-scan-btn w-[27px] h-[28px] border border-gray-400 mr-1" @click="SampleScanBtnClick">S</button>
+ <button v-show="false" class="w-note-btn w-[27px] h-[28px] border border-gray-400 mr-1" @click="WNoteBtnClick">N</button>
+
+ <div class="flex flex-col ml-2 text-sm space-y-1">
+ <label class="flex items-center space-x-1">
+ <input type="checkbox" v-model="scanDuplex" @change="ScanDuplexCBClick" />
+ <span>雙面掃描</span>
+ </label>
+ <label class="flex items-center space-x-1">
+ <input type="checkbox" v-model="cb1" @change="CB1Click" />
+ <span>掃描對話窗</span>
+ </label>
+ </div>
+
+ <button v-show="false" class="check-case-btn absolute right-2 top-2 border border-gray-400 px-2" @click="CheckCaseBtnClick">Chk</button>
+ </div>
+
+ <div v-show="false" class="panel-18 h-[32px] border-b border-gray-300 p-1 flex-none">
+ <span class="text-blue-600 underline cursor-pointer" @click="UseOldCaseLbClick">舊案引入</span>
+ </div>
+
+ <!-- TreeView Area Panel17 -->
+ <div class="panel-17 flex-1 flex flex-col min-h-0 bg-white border-b border-gray-300">
+ <div class="tree-view-1 flex-1 overflow-auto p-1 border border-gray-300 m-1"
+ @click="TreeView1Click" @keyup="TreeView1KeyUp" @mousedown="TreeView1MouseDown"
+ @mouseenter="TreeView1MouseEnter" @mousemove="TreeView1MouseMove" @mouseup="TreeView1MouseUp">
+ <!-- Mock TreeView -->
+ <ul class="text-sm list-none p-0">
+ <li v-for="(node, idx) in treeNodes" :key="idx" class="cursor-pointer hover:bg-blue-100 p-1 rounded"
+ :class="{'bg-blue-500 text-white': selectedNodeIndex === idx}"
+ @click.stop="selectTreeNode(idx)">
+ <span v-if="node.children && node.children.length" class="mr-1 inline-block w-3">{{ node.expanded ? '-' : '+' }}</span>
+ <span v-else class="mr-1 inline-block w-3"></span>
+ {{ node.text }}
+ </li>
+ </ul>
+ </div>
+ <!-- Bottom of TreeView (PrtLb, CaseHelpBtn) -->
+ <div class="panel-13 h-[40px] flex items-center justify-between px-2 bg-gray-100 flex-none">
+ <span v-show="false" class="text-blue-600 underline cursor-pointer" @click="PrtLbClick">列印</span>
+ <button v-show="false" class="case-help-btn border border-gray-400 px-3 py-1" @click="CaseHelpBtnClick">Help</button>
+ </div>
+ </div>
+
+ <!-- Attachment List (Hidden by default) -->
+ <div v-show="showAttFileGB" class="att-file-gb h-[160px] border-t border-gray-300 bg-gray-100 flex-none p-1 flex flex-col">
+ <div class="text-xs font-bold mb-1">PDF檔</div>
+ <div class="panel-20 flex space-x-2 text-blue-600 underline text-sm mb-1 px-1 flex-none">
+ <span class="cursor-pointer opacity-50">加入</span>
+ <span class="cursor-pointer opacity-50">移除</span>
+ </div>
+ <select multiple class="att-list-box flex-1 border border-gray-300 w-full" @click="AttListBoxClick" @dblclick="AttListBoxDblClick">
+ <option v-for="(att, idx) in attFiles" :key="idx">{{ att }}</option>
+ </select>
+ </div>
+
+ <!-- Label7 from dfm -->
+ <span class="absolute bottom-2 left-2 text-xs text-gray-500">{{ label7Text }}</span>
+ </div>
+
+ <!-- Splitter 1 -->
+ <div class="splitter-1 w-[4px] bg-gray-300 cursor-col-resize flex-none hover:bg-gray-400 z-20" @mousedown="startResize"></div>
+
+ <!-- Right Workspace Panel12 -->
+ <div class="panel-12 flex-1 flex flex-col relative bg-gray-200">
+
+ <!-- Top Info Panel5 -->
+ <div class="panel-5 h-[52px] border-b border-gray-300 bg-gray-100 flex flex-none">
+ <!-- AddCredit1RG -->
+ <fieldset class="border border-gray-400 m-1 p-1 w-[161px] text-xs">
+ <legend>是否新增授信檔</legend>
+ <div class="flex space-x-2 justify-center mt-1">
+ <label><input type="radio" name="addCredit" disabled> 是</label>
+ <label><input type="radio" name="addCredit" disabled> 否</label>
+ </div>
+ </fieldset>
+ <!-- Panel11 -->
+ <div class="panel-11 flex-1 flex items-center p-2" @dblclick="Panel11DblClick">
+ <span v-show="false" class="text-sm">oooo</span>
+ </div>
+ </div>
+
+ <!-- Work Area Container -->
+ <div class="flex flex-1 overflow-hidden relative">
+ <!-- Panel14 (Thumbnails) -->
+ <div class="panel-14 w-[185px] border-r border-gray-300 flex flex-col bg-white flex-none">
+ <div class="bg-blue-600 text-white text-center text-sm font-bold py-1">1</div>
+ <div class="panel-15 flex-1 overflow-auto relative">
+ <div class="scroll-box-1 absolute inset-0" @mouseenter="ScrollBox1MouseEnter">
+ <!-- Thumbnails go here -->
+ </div>
+ </div>
+ </div>
+
+ <!-- Main Image Area Panel7 -->
+ <div class="panel-7 flex-1 flex flex-col relative bg-gray-300">
+
+ <!-- Image Tools Panel16 -->
+ <div class="panel-16 h-[39px] border-b border-gray-300 bg-gray-100 flex items-center px-1 space-x-1 flex-none">
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="全部恢復全圖" @click="SpeedButton3Click">R</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="左轉90度" @click="SpeedButton14Click">L</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="轉180度" @click="SpeedButton15Click">U</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="右轉90度" @click="SpeedButton16Click">R</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="畫面同高" @click="SpeedButton17Click">H</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="畫面同寬" @click="SpeedButton18Click">W</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs font-bold" title="原圖" @click="SpeedButton19Click">1:1</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs" title="適窗" @click="SpeedButton20Click">F</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs font-bold" title="縮小50%" @click="SpeedButton21Click">50%</button>
+ <button class="w-[29px] h-[35px] border border-gray-400 bg-white hover:bg-gray-200 text-xs font-bold" title="縮小25%" @click="SpeedButton22Click">25%</button>
+
+ <label class="flex items-center space-x-1 text-xs ml-2">
+ <input type="checkbox" v-model="smoothView" @change="SmoothCBClick">
+ <span>灰階平滑顯示</span>
+ </label>
+ </div>
+
+ <!-- Main Viewport Panel9 -->
+ <div class="panel-9 flex-1 relative bg-white overflow-hidden" @resize="Panel9Resize">
+ <!-- Main Image Scrollbox -->
+ <div class="isb-1 absolute top-1 left-1 w-[80px] h-[75px] border border-gray-400 z-10 hidden">ISB1</div>
+
+ <!-- Dynamic multi-image placeholders from dfm imgp1~imgp8 -->
+
+ <!-- Loading Panel -->
+ <div v-show="showLoadingPanel" class="panel-22 absolute top-1/2 left-1/2 transform -translate-x-1/2 -translate-y-1/2 bg-white border-2 border-blue-500 w-[387px] h-[41px] flex items-center justify-center font-bold text-blue-800 z-50 shadow-lg">
+ 資料載入中,請稍候
+ </div>
+
+ <!-- Progress Panel -->
+ <div v-show="showProgressPanel" class="panel-8 absolute bottom-10 left-10 w-[233px] bg-white border border-gray-400 p-1 z-50">
+ <div class="text-blue-600 text-sm mb-1 truncate">{{ progressLabel }}</div>
+ <div class="w-full bg-gray-200 h-4 relative">
+ <div class="bg-blue-500 h-full" :style="{ width: progressValue + '%' }"></div>
+ </div>
+ </div>
+ </div>
+
+ <!-- Bottom Scrollbar for Panel7 -->
+ <input type="range" min="1" max="100" v-model="scrollValue" class="w-full h-[22px] flex-none m-0 p-0" @change="ScrollBar1Change">
+ </div>
+
+ <!-- Rightmost Page List Panel10 -->
+ <div v-show="showPageList" class="panel-10 w-[69px] border-l border-gray-300 bg-white flex-none flex flex-col">
+ <div class="bg-gray-200 border-b border-gray-300 px-1 py-0.5 text-xs text-center font-bold">頁數</div>
+ <ul class="flex-1 overflow-auto list-none p-0 m-0 text-sm text-center">
+ <li v-for="(page, idx) in pageList" :key="idx" class="cursor-pointer hover:bg-blue-100 py-1"
+ :class="{'bg-blue-500 text-white': selectedPageIndex === idx}"
+ @click="PageLVClick(idx)">{{ page }}</li>
+ </ul>
+ </div>
+ </div>
+ </div>
+ </div>
+
+ <!-- StatusBar -->
+ <div class="status-bar-1 h-[24px] border-t border-gray-400 bg-gray-200 flex text-xs flex-none" @dblclick="StatusBar1DblClick">
+ <div class="border-r border-gray-400 w-[120px] px-2 flex items-center shadow-inner">{{ statusPanels[0] }}</div>
+ <div class="border-r border-gray-400 w-[180px] px-2 flex items-center shadow-inner">{{ statusPanels[1] }}</div>
+ <div class="border-r border-gray-400 w-[180px] px-2 flex items-center shadow-inner">{{ statusPanels[2] }}</div>
+ <div class="border-r border-gray-400 w-[180px] px-2 flex items-center shadow-inner">{{ statusPanels[3] }}</div>
+ <div class="w-[50px] px-2 flex items-center shadow-inner">{{ statusPanels[4] }}</div>
+ </div>
+
+ </div>
+
+ <div class="cb-imgpsscanimp-form-layout flex flex-col bg-gray-100 font-sans w-[950px] h-[618px]">
+ <img src="assets/CB_IMGPSScanImp.png"/>
+ </div>
+</template>
+
+<script lang="ts">
+import { defineComponent } from 'vue';
+import { useCBIMGPSScanImpLogic } from './CB_IMGPSScanImp.ts';
+
+export default defineComponent({
+ name: 'CB_IMGPSScanX',
+ setup() {
+ const logic = useCBIMGPSScanImpLogic();
+ return { ...logic };
+ }
+});
+</script>
+
+<style scoped>
+/* TreeView Custom Scrollbar */
+.tree-view-1::-webkit-scrollbar { width: 12px; }
+.tree-view-1::-webkit-scrollbar-track { background: #f1f1f1; border-left: 1px solid #ccc; }
+.tree-view-1::-webkit-scrollbar-thumb { background: #c1c1c1; border: 1px solid #f1f1f1; }
+.tree-view-1::-webkit-scrollbar-thumb:hover { background: #a8a8a8; }
+.cb-imgpsscanimp-form-layout {
+ opacity: 0.2;
+ position: absolute;
+ left: auto;
+ right: auto;
+ top: 203px;
+}
+</style>
diff --git a/uiOutput/ErrList/ErrList.ts b/uiOutput/ErrList/ErrList.ts
new file mode 100644
index 0000000..1a2614e
--- /dev/null
+++ b/uiOutput/ErrList/ErrList.ts
@@ -0,0 +1,314 @@
+import { ref, onMounted, onUnmounted } from 'vue';
+
+// Interfaces mapping from Delphi structures
+interface TPoint {
+ X: number;
+ Y: number;
+}
+
+interface TErrListItem {
+ content: string;
+ index: string;
+}
+
+export function useErrListLogic() {
+ // State from Delphi variables
+ const errListItems = ref<TErrListItem[]>([
+ // Mock data for display
+ { content: '測試錯誤原因1', index: 'Item_1' },
+ { content: '測試錯誤原因2', index: 'Item_2' }
+ ]);
+ const selectedItemIndex = ref<number>(-1);
+ const isDeleteEnabled = ref<boolean>(false);
+
+ const siteIndex = ref<number>(0);
+ const siteTotal = ref<number>(0);
+ const isSitePreEnabled = ref<boolean>(false);
+ const isSiteNextEnabled = ref<boolean>(false);
+ const SiteList = ref<string[]>([]); // TStringlist
+
+ const relaSiteIndex = ref<number>(0);
+ const relaSiteTotal = ref<number>(0);
+ const isRelaPreEnabled = ref<boolean>(false);
+ const isRelaNextEnabled = ref<boolean>(false);
+ const RelaSiteList = ref<string[]>([]); // TStringlist
+
+ const showPanel6 = ref<boolean>(true); // Splitter visibility for related images
+ const showNoteBtn = ref<boolean>(false);
+ const showRejectBtn = ref<boolean>(false);
+
+ const Ingnore = ref<boolean>(false);
+ const NowIndex = ref<string>('');
+
+ const iniPath = ref<string>(''); // Should be injected or configured
+ const MyHotkeyid1 = ref<number>(0);
+
+ // Point structures
+ const UpLPoint = ref<TPoint>({ X: 0, Y: 0 });
+ const UpRPoint = ref<TPoint>({ X: 0, Y: 0 });
+ const DownLPoint = ref<TPoint>({ X: 0, Y: 0 });
+ const DownRPoint = ref<TPoint>({ X: 0, Y: 0 });
+
+ const UpLPoint_Rela = ref<TPoint>({ X: 0, Y: 0 });
+ const UpRPoint_Rela = ref<TPoint>({ X: 0, Y: 0 });
+ const DownLPoint_Rela = ref<TPoint>({ X: 0, Y: 0 });
+ const DownRPoint_Rela = ref<TPoint>({ X: 0, Y: 0 });
+
+ // Hotkey simulation mapped from WMHotKey
+ const WMHotKey = (e: KeyboardEvent) => {
+ if (e.ctrlKey && e.key.toLowerCase() === 'd' && isDeleteEnabled.value) {
+ e.preventDefault();
+ DeleteBtClick();
+ }
+ };
+
+ onMounted(() => {
+ window.addEventListener('keydown', WMHotKey);
+ InitialData();
+ });
+
+ onUnmounted(() => {
+ window.removeEventListener('keydown', WMHotKey);
+ });
+
+ const selectItem = (index: number) => {
+ selectedItemIndex.value = index;
+ ErrListLVClick();
+ };
+
+ // Delphi Methods
+ const InitialData = () => {
+ isSitePreEnabled.value = false;
+ isSiteNextEnabled.value = false;
+ isRelaPreEnabled.value = false;
+ isRelaNextEnabled.value = false;
+
+ SiteList.value = [];
+ RelaSiteList.value = [];
+
+ siteIndex.value = 1;
+ siteTotal.value = 0;
+ relaSiteIndex.value = 1;
+ relaSiteTotal.value = 0;
+
+ isDeleteEnabled.value = false;
+ };
+
+ const GetOMRErrini = (Index: string) => {
+ console.log(`Getting OMR Err INI for index: ${Index}`);
+
+ // Mock data population based on index
+ SiteList.value = ['Site1', 'Site2'];
+ RelaSiteList.value = ['Rela1'];
+ Ingnore.value = true;
+
+ siteTotal.value = SiteList.value.length;
+ relaSiteTotal.value = RelaSiteList.value.length;
+
+ if (RelaSiteList.value.length > 0) {
+ showPanel6.value = true;
+ } else {
+ showPanel6.value = false;
+ }
+
+ if (SiteList.value.length > 1) isSiteNextEnabled.value = true;
+ if (RelaSiteList.value.length > 1) isRelaNextEnabled.value = true;
+
+ isDeleteEnabled.value = Ingnore.value;
+
+ // Mock showing first errors
+ if (SiteList.value.length > 0) ShowOMRErr(siteIndex.value);
+ if (RelaSiteList.value.length > 0) ShowRelaOMRErr(relaSiteIndex.value);
+ };
+
+ const ErrListLVClick = () => {
+ InitialData();
+ if (selectedItemIndex.value === -1 || !errListItems.value[selectedItemIndex.value]) return;
+
+ NowIndex.value = errListItems.value[selectedItemIndex.value].index;
+ GetOMRErrini(NowIndex.value);
+ };
+
+ const ErrListLVKeyUp = (e: KeyboardEvent) => {
+ if (e.key === 'ArrowUp' || e.key === 'ArrowDown') {
+ ErrListLVClick();
+ }
+ };
+
+ const ErrListLVMouseDown = (e: MouseEvent) => {
+ // Right click
+ if (e.button === 2) {
+ ErrListLVClick();
+ }
+ };
+
+ const DeleteBtClick = () => {
+ InitialData();
+ if (Ingnore.value) {
+ console.log(`Writing Del=True to INI for ${NowIndex.value}`);
+
+ const idx = selectedItemIndex.value;
+ if (idx !== -1) {
+ errListItems.value.splice(idx, 1);
+
+ if (errListItems.value.length === 0) {
+ console.log('All errors deleted, enabling Immediate button and writing OMRCheckOk.dat');
+ } else {
+ selectedItemIndex.value = Math.min(idx, errListItems.value.length - 1);
+ ErrListLVClick();
+ }
+ }
+ } else {
+ alert('此項目不可刪除或已無可刪除項目');
+ }
+ };
+
+ const EnforceBtClick = () => {
+ InitialData();
+ let deletedAny = false;
+
+ for (let i = errListItems.value.length - 1; i >= 0; i--) {
+ const itemIgnorable = true;
+
+ if (itemIgnorable) {
+ console.log(`Writing Del=True for ${errListItems.value[i].index}`);
+ errListItems.value.splice(i, 1);
+ deletedAny = true;
+ }
+ }
+
+ if (errListItems.value.length === 0 && deletedAny) {
+ console.log('All errors enforced, enabling Immediate button and writing OMRCheckOk.dat');
+ }
+ };
+
+ const ImmediateBtClick = () => {
+ console.log('ImmediateBtClick: ' + logTimeString() + ' 立即傳送');
+ closeForm('ok');
+ };
+
+ const ExitBtClick = () => {
+ closeForm('cancel');
+ };
+
+ const NoteBtClick = () => {
+ console.log('Ch_WriteNote = True');
+ closeForm('note');
+ };
+
+ const RejectBtClick = () => {
+ if (confirm('是否確定退件??')) {
+ console.log('RejectCase = True');
+ closeForm('reject');
+ }
+ };
+
+ const Button1Click = () => {
+ alert(`UpLPoint=${UpLPoint.value.X},${UpLPoint.value.Y}\n` +
+ `UpRPoint=${UpRPoint.value.X},${UpRPoint.value.Y}\n` +
+ `DownLPoint=${DownLPoint.value.X},${DownLPoint.value.Y}\n` +
+ `DownRPoint=${DownRPoint.value.X},${DownRPoint.value.Y}`);
+ };
+
+ const SiteNextBtClick = () => {
+ siteIndex.value++;
+ ShowOMRErr(siteIndex.value);
+
+ isSitePreEnabled.value = false;
+ isSiteNextEnabled.value = false;
+ if (siteIndex.value > 1) isSitePreEnabled.value = true;
+ if (siteIndex.value < siteTotal.value) isSiteNextEnabled.value = true;
+ };
+
+ const SitePreBtClick = () => {
+ siteIndex.value--;
+ ShowOMRErr(siteIndex.value);
+
+ isSitePreEnabled.value = false;
+ isSiteNextEnabled.value = false;
+ if (siteIndex.value > 1) isSitePreEnabled.value = true;
+ if (siteIndex.value < siteTotal.value) isSiteNextEnabled.value = true;
+ };
+
+ const RelaNextBtClick = () => {
+ relaSiteIndex.value++;
+ ShowRelaOMRErr(relaSiteIndex.value);
+
+ isRelaPreEnabled.value = false;
+ isRelaNextEnabled.value = false;
+ if (relaSiteIndex.value > 1) isRelaPreEnabled.value = true;
+ if (relaSiteIndex.value < relaSiteTotal.value) isRelaNextEnabled.value = true;
+ };
+
+ const RelaPreBtClick = () => {
+ relaSiteIndex.value--;
+ ShowRelaOMRErr(relaSiteIndex.value);
+
+ isRelaPreEnabled.value = false;
+ isRelaNextEnabled.value = false;
+ if (relaSiteIndex.value > 1) isRelaPreEnabled.value = true;
+ if (relaSiteIndex.value < relaSiteTotal.value) isRelaNextEnabled.value = true;
+ };
+
+ const ShowOMRErr = (Idx: number) => {
+ if (Idx > SiteList.value.length) return;
+ console.log(`Showing OMR Error shape for index ${Idx}`);
+ };
+
+ const ShowRelaOMRErr = (RelaIdx: number) => {
+ if (RelaIdx > RelaSiteList.value.length) return;
+ console.log(`Showing Related OMR Error shape for index ${RelaIdx}`);
+ };
+
+ // Missing or external methods mapped
+ const logTimeString = (): string => {
+ const now = new Date();
+ const pad = (n: number) => (n < 10 ? '0' + n : n);
+ return `${now.getFullYear()}${pad(now.getMonth()+1)}${pad(now.getDate())} ${pad(now.getHours())}:${pad(now.getMinutes())}:${pad(now.getSeconds())} `;
+ };
+
+ const closeForm = (result: string) => {
+ console.log(`Form closing with result: ${result}`);
+ };
+
+ const startResize = (e: MouseEvent) => {
+ console.log('Splitter moving started');
+ };
+
+ return {
+ errListItems,
+ selectedItemIndex,
+ isDeleteEnabled,
+
+ siteIndex,
+ siteTotal,
+ isSitePreEnabled,
+ isSiteNextEnabled,
+
+ relaSiteIndex,
+ relaSiteTotal,
+ isRelaPreEnabled,
+ isRelaNextEnabled,
+
+ showPanel6,
+ showNoteBtn,
+ showRejectBtn,
+
+ selectItem,
+ ErrListLVClick,
+ ErrListLVKeyUp,
+ ErrListLVMouseDown,
+ DeleteBtClick,
+ EnforceBtClick,
+ ImmediateBtClick,
+ ExitBtClick,
+ SitePreBtClick,
+ SiteNextBtClick,
+ RelaPreBtClick,
+ RelaNextBtClick,
+ NoteBtClick,
+ RejectBtClick,
+ Button1Click,
+ startResize
+ };
+}
diff --git a/uiOutput/ErrList/ErrList.vue b/uiOutput/ErrList/ErrList.vue
new file mode 100644
index 0000000..5793140
--- /dev/null
+++ b/uiOutput/ErrList/ErrList.vue
@@ -0,0 +1,200 @@
+<template>
+ <div class="err-list-form flex flex-col bg-gray-100 font-sans" style="width: 841px; height: 636px;">
+ <!-- Top Panel: Error Reason & Details -->
+ <div class="panel-3 border border-gray-300 flex-none" style="height: 212px;">
+ <fieldset class="err-reason-gb m-2 border border-gray-400 p-2 h-[calc(100%-16px)]">
+ <legend class="text-black text-base px-1">錯誤原因</legend>
+ <div class="relative h-full">
+ <!-- ListView for Error Items -->
+ <div class="err-list-lv bg-white border border-gray-300 w-full h-[calc(100%-20px)] overflow-auto cursor-pointer"
+ @click="errListLVClick" @keyup="errListLVKeyUp" @mousedown="errListLVMouseDown">
+ <table class="w-full text-left text-base border-collapse">
+ <thead>
+ <tr class="bg-gray-200">
+ <th class="p-1 border border-gray-300 font-normal" style="width: 550px;">內容</th>
+ <th class="p-1 border border-gray-300 font-normal" style="width: 80px;">index</th>
+ </tr>
+ </thead>
+ <tbody>
+ <tr v-for="(item, index) in errListItems" :key="index"
+ @click="selectItem(index)"
+ :class="{'bg-blue-600 text-white': selectedItemIndex === index, 'hover:bg-gray-100': selectedItemIndex !== index}">
+ <td class="p-1 border border-gray-300">{{ item.content }}</td>
+ <td class="p-1 border border-gray-300">{{ item.index }}</td>
+ </tr>
+ </tbody>
+ </table>
+ </div>
+
+ <!-- Hidden ImageScrollBox3 -->
+ <div v-show="false" class="image-scroll-box-3 absolute top-[94px] left-[720px] w-[100px] h-[100px] border"></div>
+ </div>
+ </fieldset>
+ </div>
+
+ <!-- Splitter 3 -->
+ <div class="splitter-3 h-[5px] w-full bg-gray-300 cursor-row-resize flex-none"></div>
+
+ <!-- Action Buttons Panel -->
+ <div class="panel-1 border border-gray-300 bg-gray-100 flex items-center px-4 space-x-2 flex-none" style="height: 41px;">
+ <button class="delete-bt px-4 py-1.5 border border-gray-400 bg-gray-200 hover:bg-gray-300 text-sm disabled:opacity-50"
+ :disabled="!isDeleteEnabled" @click="DeleteBtClick">忽略</button>
+ <button class="enforce-bt px-4 py-1.5 border border-gray-400 bg-gray-200 hover:bg-gray-300 text-sm"
+ @click="EnforceBtClick">強制傳送</button>
+ <button class="immediate-bt px-4 py-1.5 border border-gray-400 bg-gray-200 hover:bg-gray-300 text-sm"
+ @click="ImmediateBtClick">立即傳送</button>
+
+ <!-- Hidden buttons -->
+ <button v-show="showNoteBtn" class="note-bt px-4 py-1.5 border border-gray-400 bg-gray-200" @click="NoteBtClick">備註</button>
+ <button v-show="showRejectBtn" class="reject-bt px-4 py-1.5 border border-gray-400 bg-gray-200" @click="RejectBtClick">退件</button>
+ <button v-show="false" class="button-1 px-4 py-1.5 border border-gray-400 bg-gray-200" @click="Button1Click">Button1</button>
+
+ <div class="flex-grow"></div> <!-- Spacer -->
+ <button class="exit-bt px-4 py-1.5 border border-gray-400 bg-gray-200 hover:bg-gray-300 text-sm"
+ @click="ExitBtClick">離開</button>
+ </div>
+
+ <!-- Bottom Panel: Image Viewers -->
+ <div class="panel-4 flex flex-1 overflow-hidden border border-gray-300">
+
+ <!-- Left Image Viewer Panel -->
+ <div class="panel-5 flex flex-col h-full w-[407px]">
+ <div class="panel-8 flex items-center bg-gray-200 border-b border-gray-300 px-2 h-[28px] flex-none">
+ <button class="site-pre-bt p-0.5 border border-gray-400 bg-gray-100 disabled:opacity-50 mr-1"
+ :disabled="!isSitePreEnabled" @click="SitePreBtClick">
+ <svg class="w-4 h-4" fill="none" stroke="currentColor" viewBox="0 0 24 24" xmlns="http://www.w3.org/2000/svg"><path stroke-linecap="round" stroke-linejoin="round" stroke-width="2" d="M15 19l-7-7 7-7"></path></svg>
+ </button>
+ <span class="label-3 text-sm ml-2">{{ siteIndex }}/{{ siteTotal }}</span>
+ <button class="site-next-bt p-0.5 border border-gray-400 bg-gray-100 disabled:opacity-50 ml-1"
+ :disabled="!isSiteNextEnabled" @click="SiteNextBtClick">
+ <svg class="w-4 h-4" fill="none" stroke="currentColor" viewBox="0 0 24 24" xmlns="http://www.w3.org/2000/svg"><path stroke-linecap="round" stroke-linejoin="round" stroke-width="2" d="M9 5l7 7-7 7"></path></svg>
+ </button>
+ </div>
+ <div class="image-scroll-box-1 flex-1 bg-white border border-gray-300 overflow-auto relative">
+ <!-- Placeholder for Main Image -->
+ <div class="text-gray-400 absolute inset-0 flex items-center justify-center">Image 1</div>
+ </div>
+ </div>
+
+ <!-- Splitter 1 -->
+ <div class="splitter-1 w-[5px] h-full bg-gray-300 cursor-col-resize flex-none hover:bg-gray-400" @mousedown="startResize"></div>
+
+ <!-- Right Image Viewer Panel (Conditional Visibility in original code based on RelaSite) -->
+ <div class="panel-6 flex flex-col h-full flex-1" v-show="showPanel6">
+ <div class="panel-9 flex items-center bg-gray-200 border-b border-gray-300 px-2 h-[28px] flex-none">
+ <button class="rela-pre-bt p-0.5 border border-gray-400 bg-gray-100 disabled:opacity-50 mr-1"
+ :disabled="!isRelaPreEnabled" @click="RelaPreBtClick">
+ <svg class="w-4 h-4" fill="none" stroke="currentColor" viewBox="0 0 24 24" xmlns="http://www.w3.org/2000/svg"><path stroke-linecap="round" stroke-linejoin="round" stroke-width="2" d="M15 19l-7-7 7-7"></path></svg>
+ </button>
+ <span class="label-4 text-sm ml-2">{{ relaSiteIndex }}/{{ relaSiteTotal }}</span>
+ <button class="rela-next-bt p-0.5 border border-gray-400 bg-gray-100 disabled:opacity-50 ml-1"
+ :disabled="!isRelaNextEnabled" @click="RelaNextBtClick">
+ <svg class="w-4 h-4" fill="none" stroke="currentColor" viewBox="0 0 24 24" xmlns="http://www.w3.org/2000/svg"><path stroke-linecap="round" stroke-linejoin="round" stroke-width="2" d="M9 5l7 7-7 7"></path></svg>
+ </button>
+ </div>
+ <div class="image-scroll-box-2 flex-1 bg-white border border-gray-300 overflow-auto relative">
+ <!-- Placeholder for Related Image -->
+ <div class="text-gray-400 absolute inset-0 flex items-center justify-center">Image 2 (Related)</div>
+ </div>
+ </div>
+
+ </div>
+ </div>
+</template>
+
+<script lang="ts">
+import { defineComponent } from 'vue';
+import { useErrListLogic } from './ErrList.ts';
+
+export default defineComponent({
+ name: 'ErrlistForm',
+ setup() {
+ const {
+ // State
+ errListItems,
+ selectedItemIndex,
+ isDeleteEnabled,
+ siteIndex,
+ siteTotal,
+ isSitePreEnabled,
+ isSiteNextEnabled,
+ relaSiteIndex,
+ relaSiteTotal,
+ isRelaPreEnabled,
+ isRelaNextEnabled,
+ showPanel6,
+ showNoteBtn,
+ showRejectBtn,
+
+ // Actions
+ selectItem,
+ ErrListLVClick,
+ ErrListLVKeyUp,
+ ErrListLVMouseDown,
+ DeleteBtClick,
+ EnforceBtClick,
+ ImmediateBtClick,
+ ExitBtClick,
+ SitePreBtClick,
+ SiteNextBtClick,
+ RelaPreBtClick,
+ RelaNextBtClick,
+ NoteBtClick,
+ RejectBtClick,
+ Button1Click,
+ startResize
+ } = useErrListLogic();
+
+ return {
+ errListItems,
+ selectedItemIndex,
+ isDeleteEnabled,
+ siteIndex,
+ siteTotal,
+ isSitePreEnabled,
+ isSiteNextEnabled,
+ relaSiteIndex,
+ relaSiteTotal,
+ isRelaPreEnabled,
+ isRelaNextEnabled,
+ showPanel6,
+ showNoteBtn,
+ showRejectBtn,
+
+ selectItem,
+ ErrListLVClick,
+ ErrListLVKeyUp,
+ ErrListLVMouseDown,
+ DeleteBtClick,
+ EnforceBtClick,
+ ImmediateBtClick,
+ ExitBtClick,
+ SitePreBtClick,
+ SiteNextBtClick,
+ RelaPreBtClick,
+ RelaNextBtClick,
+ NoteBtClick,
+ RejectBtClick,
+ Button1Click,
+ startResize
+ };
+ }
+});
+</script>
+
+<style scoped>
+/* Optional: Add custom scrollbar styling to match Delphi look if desired */
+.err-list-lv::-webkit-scrollbar {
+ width: 16px;
+}
+.err-list-lv::-webkit-scrollbar-track {
+ background: #f1f1f1;
+}
+.err-list-lv::-webkit-scrollbar-thumb {
+ background: #c1c1c1;
+ border: 1px solid #f1f1f1;
+}
+.err-list-lv::-webkit-scrollbar-thumb:hover {
+ background: #a8a8a8;
+}
+</style>
diff --git a/uiOutput/PatchFom/PatchFom.ts b/uiOutput/PatchFom/PatchFom.ts
new file mode 100644
index 0000000..5850732
--- /dev/null
+++ b/uiOutput/PatchFom/PatchFom.ts
@@ -0,0 +1,155 @@
+import { ref, onMounted } from 'vue';
+
+export function usePatchFomLogic() {
+ // --- State Mapped from Delphi UI Components ---
+
+ // ScannerGB
+ const isDpiEnabled = ref<boolean>(false); // Enabled = False in DFM
+ const dpi = ref<string>('240');
+ const borderClear = ref<boolean>(false);
+ const deskew = ref<boolean>(false);
+ const reverse = ref<boolean>(false);
+ const duplex = ref<boolean>(false); // Enabled = False in DFM
+
+ // ImgSetGB
+ const imgSetUse = ref<boolean>(false);
+ const bright = ref<number>(0);
+ const contrast = ref<number>(0);
+
+ // ScanShowRG (0 = 清楚影像, 1 = 模糊影像, 2 = 無影像)
+ const scanShowMode = ref<string>('0');
+
+ // ScanRotateRG (0 = 無, 1 = 左轉90度, 2 = 轉180度, 3 = 右轉90度)
+ const scanRotate = ref<string>('0');
+
+ // BlankGB
+ const blankUse = ref<boolean>(false);
+ const blankSize = ref<number>(0);
+
+ // Public property equivalent
+ const SelectOk = ref<boolean>(false);
+
+ // --- Mock external Global Variables from CB_IMGPSScanImp ---
+ // In a real application, these would be imported from a store or context
+ const mockGlobalState = {
+ Def_DeviceDelete: false,
+ Def_DeviceDeleteSize: 1024,
+ Def_ScanDpi: 240,
+ Def_ScanDuplex: true,
+ Def_ScannerReverse: false,
+ Def_BoardClear: true,
+ Def_ScanDeskew: true,
+ Def_ScanImgSetUse: false,
+ Def_ScanBright: 10,
+ Def_ScanContrast: 20,
+ Def_ScanRotate: 90, // Mapped to 3 (右轉90度) in switch statement
+ Def_ScanImgShowMode: 1 // Mapped to 1 (模糊影像)
+ };
+
+ // --- Methods ---
+
+ const FormCreate = () => {
+ // Equivalent to PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
+ console.log('FormCreate: PatchDlg activated');
+ };
+
+ const BlankuseCBClick = () => {
+ // If BlankuseCB.Checked Then SpinEdit5.Enabled := True Else SpinEdit5.Enabled := False;
+ // handled via Vue binding `:disabled="!blankUse"` in template,
+ // but kept here for logical representation
+ console.log('BlankuseCBClick triggered, blankUse:', blankUse.value);
+ };
+
+ const DefaultBtClick = () => {
+ // Reset to defaults
+ blankUse.value = mockGlobalState.Def_DeviceDelete;
+ blankSize.value = mockGlobalState.Def_DeviceDeleteSize;
+
+ dpi.value = mockGlobalState.Def_ScanDpi.toString();
+ duplex.value = mockGlobalState.Def_ScanDuplex;
+ reverse.value = mockGlobalState.Def_ScannerReverse;
+ borderClear.value = mockGlobalState.Def_BoardClear;
+ deskew.value = mockGlobalState.Def_ScanDeskew;
+
+ imgSetUse.value = mockGlobalState.Def_ScanImgSetUse;
+ bright.value = mockGlobalState.Def_ScanBright;
+ contrast.value = mockGlobalState.Def_ScanContrast;
+
+ switch (mockGlobalState.Def_ScanRotate) {
+ case 0: scanRotate.value = '0'; break;
+ case 270: scanRotate.value = '1'; break;
+ case 180: scanRotate.value = '2'; break;
+ case 90: scanRotate.value = '3'; break;
+ default: scanRotate.value = '0'; break;
+ }
+
+ switch (mockGlobalState.Def_ScanImgShowMode) {
+ case 0: scanShowMode.value = '0'; break;
+ case 1: scanShowMode.value = '1'; break;
+ case 2: scanShowMode.value = '2'; break;
+ default: scanShowMode.value = '0'; break;
+ }
+
+ console.log('Default values loaded');
+ };
+
+ const OkBtClick = () => {
+ SelectOk.value = true;
+ closeForm('ok');
+ };
+
+ const CancelBtClick = () => {
+ SelectOk.value = false;
+ closeForm('cancel');
+ };
+
+ const ComboBox1KeyPress = (e: KeyboardEvent) => {
+ // IF ((Ord(Key) < 48) or (ord(Key) > 57)) and (ord(key) <> 8) Then key := Chr(0);
+ const charCode = e.charCode;
+ if ((charCode < 48 || charCode > 57) && e.key !== 'Backspace') {
+ e.preventDefault();
+ }
+ };
+
+ const ComboBox1Exit = () => {
+ // IF ComboBox1.Text = '' Then ComBoBox1.Text := '240';
+ if (!dpi.value) {
+ dpi.value = '240';
+ }
+ };
+
+ // Helper function to simulate modal close
+ const closeForm = (result: string) => {
+ console.log(`PatchDlg closing with result: ${result}`);
+ };
+
+ onMounted(() => {
+ FormCreate();
+ // Usually you'd call DefaultBtClick() here or in the parent before opening
+ });
+
+ return {
+ // State
+ isDpiEnabled,
+ dpi,
+ borderClear,
+ deskew,
+ reverse,
+ duplex,
+ imgSetUse,
+ bright,
+ contrast,
+ scanShowMode,
+ scanRotate,
+ blankUse,
+ blankSize,
+
+ // Actions
+ BlankuseCBClick,
+ DefaultBtClick,
+ OkBtClick,
+ CancelBtClick,
+ ComboBox1KeyPress,
+ ComboBox1Exit
+ };
+}
diff --git a/uiOutput/PatchFom/PatchFom.vue b/uiOutput/PatchFom/PatchFom.vue
new file mode 100644
index 0000000..dd8567f
--- /dev/null
+++ b/uiOutput/PatchFom/PatchFom.vue
@@ -0,0 +1,144 @@
+<template>
+ <div class="patch-dlg flex flex-col bg-gray-100 font-sans w-[434px] h-[389px] border border-gray-400">
+
+ <!-- Scanner Settings GroupBox -->
+ <fieldset class="scanner-gb border border-gray-400 m-2 p-2 relative h-[216px]">
+ <legend class="text-black text-base px-1">掃描器設定</legend>
+
+ <div class="relative h-full">
+ <!-- DPI Setting -->
+ <label class="absolute left-[19px] top-[7px] text-base">DPI</label>
+ <select class="absolute left-[57px] top-[4px] w-[120px] h-[24px] border border-gray-400 bg-white"
+ v-model="dpi" :disabled="!isDpiEnabled" @keypress="ComboBox1KeyPress" @blur="ComboBox1Exit">
+ <option value="75">75</option>
+ <option value="100">100</option>
+ <option value="150">150</option>
+ <option value="180">180</option>
+ <option value="200">200</option>
+ <option value="240">240</option>
+ <option value="300">300</option>
+ <option value="360">360</option>
+ <option value="400">400</option>
+ <option value="600">600</option>
+ <option value="720">720</option>
+ </select>
+
+ <!-- Checkboxes -->
+ <label class="absolute left-[16px] top-[60px] flex items-center space-x-1">
+ <input type="checkbox" v-model="borderClear" />
+ <span>清黑邊</span>
+ </label>
+
+ <label class="absolute left-[161px] top-[37px] flex items-center space-x-1">
+ <input type="checkbox" v-model="deskew" />
+ <span>傾斜校正</span>
+ </label>
+
+ <label class="absolute left-[161px] top-[60px] flex items-center space-x-1">
+ <input type="checkbox" v-model="reverse" />
+ <span>影像是否需反相</span>
+ </label>
+
+ <label class="absolute left-[16px] top-[37px] flex items-center space-x-1">
+ <input type="checkbox" v-model="duplex" disabled />
+ <span class="text-gray-500">雙面掃描</span>
+ </label>
+
+ <!-- Image Adjustment GroupBox -->
+ <fieldset class="absolute bottom-[47px] left-0 w-full h-[64px] border border-gray-400 p-1">
+ <legend class="text-black text-sm px-1">掃描器亮度對比調整</legend>
+ <div class="flex items-center space-x-4 h-full px-2">
+ <label class="flex items-center space-x-1">
+ <input type="checkbox" v-model="imgSetUse" />
+ <span>啟用</span>
+ </label>
+
+ <div class="flex items-center space-x-1">
+ <label>亮度</label>
+ <input type="number" v-model.number="bright" min="-127" max="127" class="w-[60px] border border-gray-400 p-1" />
+ </div>
+
+ <div class="flex items-center space-x-1">
+ <label>對比</label>
+ <input type="number" v-model.number="contrast" min="-127" max="127" class="w-[65px] border border-gray-400 p-1" />
+ </div>
+ </div>
+ </fieldset>
+
+ <!-- Scan Show Mode RadioGroup -->
+ <fieldset class="absolute bottom-0 left-0 w-full h-[47px] border border-gray-400 p-1">
+ <legend class="text-black text-sm px-1">掃描時影像顯示</legend>
+ <div class="flex items-center justify-around h-full">
+ <label><input type="radio" v-model="scanShowMode" value="0" /> 清楚影像(慢)</label>
+ <label><input type="radio" v-model="scanShowMode" value="1" /> 模糊影像(普通)</label>
+ <label><input type="radio" v-model="scanShowMode" value="2" /> 無影像(超快)</label>
+ </div>
+ </fieldset>
+ </div>
+ </fieldset>
+
+ <!-- Scan Rotate RadioGroup -->
+ <fieldset class="border border-gray-400 mx-2 mb-2 p-1 h-[56px] flex-none">
+ <legend class="text-black text-base px-1">掃描時旋轉</legend>
+ <div class="flex items-center justify-around h-full pt-1">
+ <label><input type="radio" v-model="scanRotate" value="0" /> 無</label>
+ <label><input type="radio" v-model="scanRotate" value="1" /> 左轉90度</label>
+ <label><input type="radio" v-model="scanRotate" value="2" /> 轉180度</label>
+ <label><input type="radio" v-model="scanRotate" value="3" /> 右轉90度</label>
+ </div>
+ </fieldset>
+
+ <!-- Blank Page Deletion GroupBox -->
+ <fieldset class="border border-gray-400 mx-2 mb-2 p-2 flex-1 relative">
+ <legend class="text-black text-base px-1">空白頁刪除</legend>
+ <div class="relative w-full h-full">
+ <label class="absolute left-[16px] top-[12px] flex items-center space-x-1">
+ <input type="checkbox" v-model="blankUse" @change="BlankuseCBClick" />
+ <span>啟用</span>
+ </label>
+
+ <input type="number" v-model.number="blankSize" :disabled="!blankUse" min="0"
+ class="absolute left-[95px] top-[11px] w-[78px] h-[26px] border border-gray-400 p-1 disabled:bg-gray-200" />
+
+ <label class="absolute left-[177px] top-[16px] text-base">Bytes</label>
+
+ <!-- Buttons -->
+ <div class="absolute bottom-2 left-0 w-full flex justify-between px-2">
+ <button class="w-[75px] h-[25px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="DefaultBtClick">預設值</button>
+ <div class="space-x-2">
+ <button class="w-[61px] h-[25px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="OkBtClick">確定</button>
+ <button class="w-[64px] h-[25px] border border-gray-400 bg-gray-200 hover:bg-gray-300" @click="CancelBtClick">取消</button>
+ </div>
+ </div>
+ </div>
+ </fieldset>
+
+ </div>
+ <div class="patch-dlg-layout flex flex-col bg-gray-100 font-sans w-[434px] h-[389px] border border-gray-400">
+ <img src="assets/CB_PatchFom.png"/>
+ </div>
+</template>
+
+<script lang="ts">
+import { defineComponent } from 'vue';
+import { usePatchFomLogic } from './PatchFom.ts';
+
+export default defineComponent({
+ name: 'PatchDlg',
+ setup() {
+ const logic = usePatchFomLogic();
+ return { ...logic };
+ }
+});
+</script>
+
+<style scoped>
+/* Scoped styles if needed */
+.patch-dlg-layout {
+ opacity: 0.2;
+ position: absolute;
+ left: auto;
+ right: auto;
+ top: 314px;
+}
+</style>
diff --git a/uiOutput/assets/CB_ErrList.png b/uiOutput/assets/CB_ErrList.png
new file mode 100644
index 0000000..9678b2a
--- /dev/null
+++ b/uiOutput/assets/CB_ErrList.png
Binary files differ
diff --git a/uiOutput/assets/CB_IMGPSScanImp.png b/uiOutput/assets/CB_IMGPSScanImp.png
new file mode 100644
index 0000000..2b9619c
--- /dev/null
+++ b/uiOutput/assets/CB_IMGPSScanImp.png
Binary files differ
diff --git a/uiOutput/assets/CB_PatchFom.png b/uiOutput/assets/CB_PatchFom.png
new file mode 100644
index 0000000..bd414f2
--- /dev/null
+++ b/uiOutput/assets/CB_PatchFom.png
Binary files differ
diff --git a/uiOutput/index.html b/uiOutput/index.html
new file mode 100644
index 0000000..d9b112d
--- /dev/null
+++ b/uiOutput/index.html
@@ -0,0 +1,387 @@
+<!DOCTYPE html>
+<html lang="zh-TW">
+<head>
+ <meta charset="UTF-8">
+ <meta name="viewport" content="width=device-width, initial-scale=1.0">
+ <title>DFM to Vue Preview</title>
+
+ <!-- 引入 Vue 3 -->
+ <script src="https://unpkg.com/vue@3/dist/vue.global.js"></script>
+
+ <!-- 引入 Tailwind CSS 用於即時預覽 -->
+ <script src="https://cdn.tailwindcss.com"></script>
+
+ <!-- 使用 vue3-sfc-loader 來動態編譯 .vue 檔案 -->
+ <script src="https://cdn.jsdelivr.net/npm/vue3-sfc-loader@0.8.4/dist/vue3-sfc-loader.js"></script>
+
+ <!-- 加入 TypeScript 的 Babel transpiler 用於即時編譯 .ts -->
+ <script src="https://unpkg.com/@babel/standalone/babel.min.js"></script>
+
+ <style>
+ body, html {
+ margin: 0;
+ padding: 0;
+ height: 100%;
+ background-color: #f3f4f6; /* Tailwind gray-100 */
+ font-family: sans-serif;
+ }
+
+ #app {
+ display: flex;
+ flex-direction: column;
+ height: 100vh;
+ }
+
+ /* 上方清單區塊 (1.4.1.1) */
+ .list-section {
+ background-color: #ffffff;
+ border-bottom: 1px solid #d1d5db; /* gray-300 */
+ padding: 16px;
+ box-shadow: 0 1px 3px 0 rgba(0, 0, 0, 0.1), 0 1px 2px 0 rgba(0, 0, 0, 0.06);
+ z-index: 10;
+ }
+
+ .component-btn {
+ background-color: #3b82f6; /* blue-500 */
+ color: white;
+ padding: 8px 16px;
+ border-radius: 4px;
+ border: none;
+ cursor: pointer;
+ font-size: 14px;
+ margin-right: 8px;
+ transition: background-color 0.2s;
+ }
+
+ .component-btn:hover {
+ background-color: #2563eb; /* blue-600 */
+ }
+
+ .component-btn.active {
+ background-color: #1e40af; /* blue-800 */
+ box-shadow: inset 0 3px 5px rgba(0, 0, 0, 0.2);
+ }
+
+ /* 下方預覽區塊 (1.4.1.2) */
+ .preview-section {
+ flex: 1;
+ display: flex;
+ justify-content: center;
+ align-items: center;
+ padding: 24px;
+ overflow: auto;
+ background-color: #e5e7eb; /* Tailwind gray-200 */
+ }
+
+ /* 模擬 Windows 視窗外框 */
+ .preview-container {
+ background-color: white;
+ box-shadow: 0 10px 15px -3px rgba(0, 0, 0, 0.1), 0 4px 6px -2px rgba(0, 0, 0, 0.05);
+ border: 1px solid #9ca3af;
+ border-radius: 4px;
+ overflow: hidden;
+ display: flex;
+ flex-direction: column;
+ /* 讓內部的子元件決定自己的寬高，但不能超過螢幕 */
+ max-width: 100%;
+ max-height: 100%;
+ }
+
+ .window-title {
+ background-color: #0058b0;
+ color: white;
+ padding: 6px 10px;
+ font-size: 12px;
+ display: flex;
+ justify-content: space-between;
+ align-items: center;
+ user-select: none;
+ }
+
+ .window-controls span {
+ display: inline-block;
+ width: 16px;
+ height: 16px;
+ background-color: #ccc;
+ margin-left: 4px;
+ border-radius: 2px;
+ text-align: center;
+ line-height: 14px;
+ color: black;
+ cursor: pointer;
+ font-size: 10px;
+ font-weight: bold;
+ }
+
+ .window-controls span:hover {
+ background-color: #e81123;
+ color: white;
+ }
+
+ /* 載入中動畫 */
+ .loader {
+ border: 4px solid #f3f3f3;
+ border-top: 4px solid #3b82f6;
+ border-radius: 50%;
+ width: 30px;
+ height: 30px;
+ animation: spin 1s linear infinite;
+ }
+
+ @keyframes spin {
+ 0% {
+ transform: rotate(0deg);
+ }
+ 100% {
+ transform: rotate(360deg);
+ }
+ }
+ </style>
+</head>
+<body>
+
+<div id="app">
+ <!-- 1.4.1.1: List button 區塊 -->
+ <div class="list-section">
+ <h2 class="text-lg font-bold text-gray-700 mb-3">Converted Vue Components</h2>
+ <div class="flex flex-wrap gap-2">
+ <button
+ v-for="comp in availableComponents"
+ :key="comp.id"
+ @click="loadComponent(comp)"
+ :class="['component-btn', { active: currentComponent && currentComponent.id === comp.id }]"
+ >
+ {{ comp.name }}
+ </button>
+ </div>
+ </div>
+
+ <!-- 1.4.1.2: Preview viewer 區塊 -->
+ <div class="preview-section relative">
+ <div v-if="isLoading"
+ class="absolute inset-0 flex flex-col items-center justify-center bg-gray-200 bg-opacity-75 z-20">
+ <div class="loader mb-4"></div>
+ <div class="text-gray-600 font-medium">Loading component...</div>
+ </div>
+
+ <div v-else-if="!currentComponent" class="text-gray-500 text-lg">
+ Please select a component from the top menu to preview.
+ </div>
+
+ <div v-else class="preview-container">
+ <!-- 模擬 Windows 視窗標題列 -->
+ <div class="window-title">
+ <span>{{ currentComponent.windowTitle }}</span>
+ <div class="window-controls">
+ <span>_</span>
+ <span>□</span>
+ <span @click="closePreview">x</span>
+ </div>
+ </div>
+
+ <!-- 動態載入的 Vue 元件將會渲染在這裡 -->
+ <component :is="dynamicComponent"></component>
+ </div>
+ </div>
+</div>
+
+<script type="module">
+ const {loadModule} = window['vue3-sfc-loader'];
+
+ // 用來暫存修改過的檔案內容
+ const virtualFileSystem = {};
+
+ // 為了避免重複宣告 `ref`, `onMounted` 導致 SyntaxError
+ // 我們在全域環境中先宣告好 Vue 的依賴，只宣告一次
+ if (!window.__VUE_SETUP__) {
+ window.__VUE_SETUP__ = true;
+ const script = document.createElement('script');
+ script.textContent = `
+ // 全域提供 Vue API，避免在每個動態腳本中重複 let/const
+ window.ref = Vue.ref;
+ window.reactive = Vue.reactive;
+ window.computed = Vue.computed;
+ window.onMounted = Vue.onMounted;
+ window.onUnmounted = Vue.onUnmounted;
+ window.watch = Vue.watch;
+ window.defineComponent = Vue.defineComponent;
+ `;
+ document.head.appendChild(script);
+ }
+
+ // SFC Loader 設定，加入對 TS 的編譯支援
+ const options = {
+ moduleCache: {
+ vue: Vue
+ },
+ async getFile(url) {
+ // 處理虛擬 URL
+ if (url.startsWith('virtual-url-')) {
+ const content = virtualFileSystem[url];
+ if (content) {
+ return {
+ getContentData: asBinary => asBinary ? new TextEncoder().encode(content) : content,
+ type: '.vue'
+ };
+ }
+ }
+
+ // 處理相依的 .ts / .js 邏輯檔案
+ if (url.endsWith('.ts') || url.endsWith('.js')) {
+ const res = await fetch(url);
+ if (!res.ok) throw Object.assign(new Error(res.statusText + ' ' + url), {res});
+ const code = await res.text();
+
+ // 用 Babel 拔除 TypeScript 型別，並轉成 ES5
+ const transpiled = Babel.transform(code, {
+ presets: ['typescript'],
+ filename: url // 加入 filename 參數解決 Babel 錯誤
+ }).code;
+
+ // 將 export 轉化為掛載到 window
+ let modifiedCode = transpiled.replace(/export\s+(?:function|const)\s+(use\w+Logic)/g, 'window.$1 = function');
+
+ return {
+ getContentData: asBinary => asBinary ? new TextEncoder().encode(modifiedCode) : modifiedCode,
+ type: '.js'
+ };
+ }
+
+ const res = await fetch(url);
+ if (!res.ok) throw Object.assign(new Error(res.statusText + ' ' + url), {res});
+
+ return {
+ getContentData: asBinary => asBinary ? res.arrayBuffer() : res.text(),
+ }
+ },
+ addStyle(textContent) {
+ const style = Object.assign(document.createElement('style'), {textContent});
+ const ref = document.head.getElementsByTagName('style')[0] || null;
+ document.head.insertBefore(style, ref);
+ },
+ // 設定處理 `<script lang="ts">` 的勾子
+ handleModule(type, getContentData, path, options) {
+ switch (type) {
+ case '.ts':
+ const code = getContentData(false);
+ const jsCode = Babel.transform(code, {
+ presets: ['typescript'],
+ filename: path || 'file.ts' // 加入 filename 參數解決 Babel 錯誤
+ }).code;
+ return {getContentData: _ => jsCode, type: '.js'};
+ }
+ }
+ };
+
+ const app = Vue.createApp({
+ data() {
+ return {
+ availableComponents: [
+ {
+ id: 'ErrList',
+ name: 'ErrList.vue',
+ vuePath: './ErrList/ErrList.vue',
+ jsPath: './ErrList/ErrList.ts',
+ windowTitle: '檢核失敗原因畫面'
+ },
+ {
+ id: 'PatchFom',
+ name: 'PatchFom.vue',
+ vuePath: './PatchFom/PatchFom.vue',
+ jsPath: './PatchFom/PatchFom.ts',
+ windowTitle: '空白頁設定'
+ },
+ {
+ id: 'CB_IMGPSScanImp',
+ name: 'CB_IMGPSScanImp.vue',
+ vuePath: './CB_IMGPSScanImp/CB_IMGPSScanImp.vue',
+ jsPath: './CB_IMGPSScanImp/CB_IMGPSScanImp.ts',
+ windowTitle: 'CB_IMGPSScanX'
+ }
+ ],
+ currentComponent: null,
+ dynamicComponent: null,
+ isLoading: false
+ }
+ },
+ methods: {
+ async loadComponent(comp) {
+ if (this.currentComponent && this.currentComponent.id === comp.id) return;
+
+ this.isLoading = true;
+ this.currentComponent = comp;
+ this.dynamicComponent = null;
+
+ try {
+ // 1. 載入並執行 TypeScript 邏輯檔案
+ const res = await fetch(comp.jsPath);
+ if (!res.ok) throw new Error(`Failed to load ${comp.jsPath}`);
+ const tsCode = await res.text();
+
+ // 透過 Babel 將 TypeScript 轉譯為 JavaScript
+ const jsCode = Babel.transform(tsCode, {
+ presets: ['typescript'],
+ filename: comp.jsPath
+ }).code;
+
+ // 移除 import vue，將 export 改為 window 掛載
+ // 注意：這裡不宣告 const { ref, ... } = Vue，因為我們在全域已經掛載了 window.ref
+ // 只需要把 ts 轉譯後的 var _vue = require("vue"); 之類的給清除
+ let modifiedCode = jsCode
+ .replace(/import\s+\{.*?\}\s+from\s+['"]vue['"];/g, '')
+ .replace(/(var|let|const)\s+\w+\s*=\s*require\(['"]vue['"]\);/g, '')
+ // 將 babel 轉譯後可能產生的 _vue.ref 換回全域的 ref
+ .replace(/_vue\./g, '')
+ .replace(/export\s+(?:function|const)\s+(use\w+Logic)/g, 'window.$1 = function');
+
+ const scriptId = `script-${comp.id}`;
+ let oldScript = document.getElementById(scriptId);
+ if (oldScript) oldScript.remove();
+
+ const script = document.createElement('script');
+ script.id = scriptId;
+
+ // 使用 IIFE (立即執行函式) 包裝，避免區域變數互相污染
+ script.textContent = `
+ (function() {
+ ${modifiedCode}
+ })();
+ `;
+ document.head.appendChild(script);
+
+ // 2. 載入 Vue SFC
+ this.dynamicComponent = Vue.markRaw(Vue.defineAsyncComponent(() => {
+ return fetch(comp.vuePath)
+ .then(res => res.text())
+ .then(content => {
+ // 替換 .vue 裡面的 import
+ const modifiedContent = content.replace(
+ /import\s+\{\s*(use\w+Logic)\s*\}\s+from\s+['"].*?\.ts['"];/g,
+ 'const { $1 } = window;'
+ );
+
+ const virtualUrl = `virtual-url-${comp.id}-${Date.now()}.vue`;
+ virtualFileSystem[virtualUrl] = modifiedContent;
+
+ return loadModule(virtualUrl, options);
+ });
+ }));
+ } catch (err) {
+ console.error(`Error loading component ${comp.name}:`, err);
+ alert(`載入元件失敗: ${err.message}`);
+ this.currentComponent = null;
+ } finally {
+ this.isLoading = false;
+ }
+ },
+ closePreview() {
+ this.currentComponent = null;
+ this.dynamicComponent = null;
+ }
+ }
+ });
+
+ app.mount('#app');
+</script>
+</body>
+</html>
--
Gitblit v1.8.0