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('',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('',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('',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('',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('',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;