{ ==============================================================================
|
方法名稱：DefinePropertyPages
|
引用相依：
|
方法描述：Delphi ActiveForm 用於定義屬性頁面的存根方法，目前未實作具體內容。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
|
begin
|
{ Define property pages here. Property pages are defined by calling
|
DefinePropertyPage with the class id of the page. For example,
|
DefinePropertyPage(Class_CBS_IMScanXPage); }
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：EventSinkChanged
|
引用相依：
|
方法描述：當事件接收器改變時觸發。將傳入的 EventSink 轉換為 ICB_IMGPSScanXEvent
|
s 並賦值給 FEvents，同時呼叫繼承的 EventSinkChanged 方法。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.EventSinkChanged(const EventSink: IUnknown);
|
begin
|
FEvents := EventSink as ICB_IMGPSScanXEvents;
|
inherited EventSinkChanged(EventSink);
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：ActivateEvent
|
引用相依：
|
方法描述：觸發 COM 介面的 OnActivate 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.ActivateEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnActivate;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：ClickEvent
|
引用相依：
|
方法描述：觸發 COM 介面的 OnClick 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.ClickEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnClick;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：CreateEvent
|
引用相依：
|
方法描述：觸發 COM 介面的 OnCreate 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.CreateEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnCreate;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：DblClickEvent
|
引用相依：
|
方法描述：觸發 COM 介面的 OnDblClick 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.DblClickEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnDblClick;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：DeactivateEvent
|
引用相依：
|
方法描述：觸發 COM 介面的 OnDeactivate 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.DeactivateEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnDeactivate;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：DestroyEvent
|
引用相依：_DelTree
|
方法描述：銷毀元件時的清理工作。負責釋放大量的 TStringList 物件，包含各類資訊清
|
單（表單、規則、註記、工作、影像路徑、條碼等）。針對特定模式（DSCAN/ESCAN），若
|
ImagePath 不為空則刪除該目錄及其子目錄。最後觸發 COM 介面的 OnDestro
|
y 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.DestroyEvent(Sender: TObject);
|
begin
|
//********清單區********
|
Doc_Inf_List.Free; //Doc_Inf 清單 Docno + 版本為key
|
DM_FORM_INF_List.Free; //DM_FORM_INF 清單 Docno + 版本為key
|
FORM_INF_List.Free; //FORM_INF的清單
|
CHECK_RULE_INF_List.Free; //CHECK_RULE_INF 清單
|
MEMO_INF_List.Free; //MEMO_INF 清單
|
WORK_INF_List.Free; //WORK_INF 清單
|
LASTEST_FORM_INF_List.Free; // LASTEST_FORM_INF 清單
|
FindResult.Free ; //找SQLData的結果
|
OMRFileList.Free; //要OMR檢核的文件(只檢查每種Form的第一頁)
|
FormCode_PageSize.Free; //文件的預設大小 FormCode_Height_Width
|
DocNo_NeedDoc.Free; //有Docno時要相依的文件 DocNo_相依文件_相依文件
|
DocNo_NoDoc.Free; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
|
DocNo_VerinCase.Free; //案件裡的DocNo+版本的清單
|
CaseDocNoList.Free; //案件裡的DocNo清單
|
CaseDocNo_CopiesList.Free; //案件裡的DocNo份數清單
|
CaseList.Free; //記錄掃瞄案件的順序
|
NoSaveBarCodeList.Free; //不儲存的條碼清單
|
FormID_List.Free; //FormID清單
|
DocNo_List.Free; //DocNo清單
|
Context_DocnoList.Free; //案件裡的檔案Docno清單
|
ContextList.Free; //案件裡的檔案清單
|
AttContextList.Free; //案件裡的附加檔案清單
|
NowShowFileList.Free; //目前顯示的影像清單
|
NowSelectFileList.Free; //目前被點選的影像清單
|
Cust_DocNoList.Free; //自行定義文件名稱
|
IN_WH_DocNoList.Free; //入庫的文件清單
|
GuideFormIDList.Free; //要當導引頁表單清單
|
DivPageFormIDList.Free; //要當分案頁表單清單
|
LastInitFormidList.Free;
|
LastAddFormidList.Free;
|
SampleFormIDList.Free;
|
ExistImgList.Free;
|
reSizeExistImgList.Free;
|
//********清單區********
|
if (FMode = 'DSCAN') or (FMode = 'ESCAN') then //重掃件及異動件要只能掃指定編號的件
|
begin
|
if ImagePath<>'' then
|
_Deltree(ImagePath);
|
end;
|
|
if FEvents <> nil then FEvents.OnDestroy;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：KeyPressEvent
|
引用相依：
|
方法描述：處理鍵盤按鈕事件，並將按鍵資訊傳遞至 COM 介面的 OnKeyPress 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.KeyPressEvent(Sender: TObject; var Key: Char);
|
var
|
TempKey: Smallint;
|
begin
|
TempKey := Smallint(Key);
|
if FEvents <> nil then FEvents.OnKeyPress(TempKey);
|
Key := Char(TempKey);
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：MouseEnterEvent
|
引用相依：
|
方法描述：當滑鼠進入元件時，觸發 COM 介面的 OnMouseEnter 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.MouseEnterEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnMouseEnter;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：MouseLeaveEvent
|
引用相依：
|
方法描述：當滑鼠離開元件時，觸發 COM 介面的 OnMouseLeave 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.MouseLeaveEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnMouseLeave;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：PaintEvent
|
引用相依：
|
方法描述：當元件需要重繪時，觸發 COM 介面的 OnPaint 事件。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.PaintEvent(Sender: TObject);
|
begin
|
if FEvents <> nil then FEvents.OnPaint;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：ActiveFormCreate
|
引用相依：
|
方法描述：ActiveForm 建立時的初始化處理。發送啟動訊息、設定預設檢視模式並初始化
|
影像顯示區域。遍歷所有影像捲軸盒（ISB），設定預設滑鼠模式為 mmUser 並將
|
縮放模式設為全頁顯示，最後延遲啟動 Timer。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.ActiveFormCreate(Sender: TObject);
|
var IScrollBox : TImageScrollBox;
|
i :integer;
|
begin
|
{HotKeyId1 := GlobalAddAtom('MyHotKey1')-$C000;
|
HotKeyId2 := GlobalAddAtom('MyHotKey2')-$C000;
|
HotKeyId3 := GlobalAddAtom('MyHotKey3')-$C000;
|
HotKeyId4 := GlobalAddAtom('MyHotKey4')-$C000;
|
RegisterHotKey(handle,HotKeyId1,0,VK_UP); //printscreen
|
RegisterHotKey(handle,HotKeyId1,0,VK_Down); //printscreen }
|
PostMessage(Handle,WM_ACTIVATE,WA_CLICKACTIVE,0);
|
vmode := 1;
|
DesableImage;
|
For i:= 1 to 8 do begin
|
IScrollBox := TImageScrollBox( FindComponent('ISB'+IntToStr(i)));
|
IScrollBox.MouseMode := mmUser;
|
iScrollBox.ZoomMode := zmFullPage;
|
end;
|
Sleep(500);
|
Timer1.Enabled := True;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：HotKeyDown
|
引用相依：
|
方法描述：熱鍵按下處理程序，目前為空實作。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.HotKeyDown (var Msg : TMessage);
|
begin
|
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：InitialLanguage
|
引用相依：
|
方法描述：元件多國語言初始化核心函式。讀取 Language.Lng 設定檔，根據指定的語系遞
|
迴設定畫面上所有控制項（按鈕、選單、標籤、清單、群組框等）的 Caption 或 Hi
|
nt 文字，實現介面語系動態切換。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.InitialLanguage(Sender: TObject);
|
var
|
ini : Tmeminifile;
|
i,n : Integer;
|
FormName : String;
|
NowForm : TComponent;
|
begin
|
if Sender is TActiveForm then
|
NowForm := TActiveForm(Sender);
|
if Sender is TForm then
|
NowForm := TForm(Sender);
|
|
FormName := NowForm.Name;
|
IISUnit.IIS_LngfileName := LngPath+'Language.Lng'; //給IISUnit 轉多國語言字串用
|
if FLanguage = '' then
|
FLanguage := 'zh_tw';
|
IISUnit.IIS_NowLng := FLanguage;
|
ini := TMeminifile.Create(LngPath+'Language.Lng');
|
try
|
IF NowForm is TForm Then
|
TForm(NowForm).Caption := ini.ReadString(FLanguage,FormName+'.FormTitle','');
|
for i := 0 to NowForm.ComponentCount - 1 do
|
begin
|
//ShowMessage(NowForm.Components[i].Name);
|
if NowForm.Components[i] is TButton then
|
begin
|
TButton(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TButton(NowForm.Components[i]).Name,'');
|
//TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
|
//TButton(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
|
end
|
Else if NowForm.Components[i] is TBitBtn then
|
begin
|
TBitBtn(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TBitBtn(NowForm.Components[i]).Name,'');
|
//TBitBtn(NowForm.Components[i]).Caption := ini.ReadString(FormName,TBitBtn(NowForm.Components[i]).Name,'');
|
TBitBtn(NowForm.Components[i]).OnMouseEnter := BtnMouseEnter;
|
end
|
Else if NowForm.Components[i] is TMenuItem then
|
begin
|
if ini.ValueExists(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name) then
|
TMenuItem(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TMenuItem(NowForm.Components[i]).Name,'');
|
end
|
Else if NowForm.Components[i] is TCheckBox then
|
begin
|
TCheckBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TCheckBox(NowForm.Components[i]).Name,'');
|
end
|
Else if NowForm.Components[i] is TPJMenuSpeedButton then
|
begin
|
TPJMenuSpeedButton(NowForm.Components[i]).Hint := ini.ReadString(FLanguage,FormName+'.'+TPJMenuSpeedButton(NowForm.Components[i]).Name,'');
|
end
|
Else if NowForm.Components[i] is TLabel then
|
begin
|
TLabel(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TLabel(NowForm.Components[i]).Name,'');
|
end
|
Else if NowForm.Components[i] is TGroupBox then
|
begin
|
TGroupBox(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TGroupBox(NowForm.Components[i]).Name,'');
|
end
|
Else if NowForm.Components[i] is TListView then
|
begin
|
for n := 0 to TListView(NowForm.Components[i]).Columns.Count - 1 do
|
begin
|
TListView(NowForm.Components[i]).Columns.Items[n].Caption := ini.ReadString(FLanguage,FormName+'.'+TListView(NowForm.Components[i]).Name+'_'+inttostr(n),'');
|
end;
|
end
|
Else if NowForm.Components[i] is TRadioGroup then
|
begin
|
TRadioGroup(NowForm.Components[i]).Caption := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name,'');
|
for n := 0 to TRadioGroup(NowForm.Components[i]).Items.Count - 1 do
|
begin
|
TRadioGroup(NowForm.Components[i]).Items.Strings[n] := ini.ReadString(FLanguage,FormName+'.'+TRadioGroup(NowForm.Components[i]).Name+'_'+inttostr(n),'');
|
end;
|
end;
|
end;
|
finally
|
ini.Free;
|
end;
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：Timer1Timer
|
引用相依：FJpgCompression, GetLocalAppDir, Str2Dir, _DelTree, FileExists, init
|
kscan
|
方法描述：OCX 元件初始化的核心程序。負責從伺服器下載各類基礎資訊（業務、表單、文件
|
、檢核規則、常用片語、系統參數等），並設定本地暫存路徑（ScanTemp）。針對異動
|
或重掃模式，會自動建立空案件並下載既有影像。最後執行各類屬性與語系設定
|
，確保掃描環境就緒。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.Timer1Timer(Sender: TObject);
|
var
|
StampDate,StampTime : String;
|
i: Integer;
|
begin
|
Timer1.Enabled := False;
|
//FIs_In_Wh:='Y'; /// test 記得關掉
|
//FWH_category :='N'; // test 記得關掉
|
// FImgDelete := 'Y'; //test 記得關掉
|
//Showmessage('a');
|
//self.FIs_OldCase := 'Y';
|
PageLVclear := True;
|
InitialOk := False;
|
|
FMaxUploadSize:='10';
|
FJpgCompression:=50;
|
FFtpRootPath := ''; //影像平台沒有給FtpRoot目錄,會直接用FFtpExtraPath切換至指定目錄
|
//FMode := 'DSCAN' ;
|
//FIs_In_Wh := 'Y';
|
if FIs_In_Wh = 'Y' then
|
AttName := 'Attach' //入庫附件
|
else
|
AttName := 'S_Attach'; //Smartlending 附件
|
//ShowMessage('1111111');
|
if FMode = 'SAMPLESCAN' then
|
begin
|
NewScanBtn.Visible := False;
|
PJLinkedMenuSpeedButton2.Visible := False;
|
AddScanBtn.Visible := False;
|
CheckCaseBtn.Visible := False;
|
Panel18.Visible := False;
|
TransBtn.Visible := False;
|
FC6.Visible := False;
|
SampleScanBtn.Visible := True;
|
Panel1.Visible := True;
|
Panel6.Visible := True;
|
ScanDuplexCB.Visible := False; //雙面掃描
|
end
|
Else if (FMode = 'NSCAN') then
|
begin
|
Panel18.Visible := True;
|
Panel1.Visible := True;
|
Panel6.Visible := True;
|
Panel21.Visible := True;
|
Panel23.Visible := True;
|
|
AttFileGB.Visible := True;
|
Splitter2.Visible := True;
|
ScanDuplexCB.Visible := True; //雙面掃描
|
end
|
Else if FMode = 'FSCAN' then
|
begin
|
Panel1.Visible := True;
|
//Panel6.Visible := True;
|
end
|
Else
|
begin
|
Panel18.Visible := True;
|
Panel1.Visible := True;
|
Panel6.Visible := True;
|
Panel21.Visible := True;
|
Panel23.Visible := True;
|
AttFileGB.Visible := True;
|
Splitter2.Visible := True;
|
end;
|
DisplayMode(1,1,1,Panel9);
|
Application.ProcessMessages;
|
StatusBar1.Panels[0].Text := 'Ver'+GetCurrentVersionNo;
|
StatusBar1.Panels[1].Text := 'Login User:'+FUserName;
|
{$IFDEF Test}
|
StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text+'(test)';
|
{$ENDIF}
|
StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text;
|
|
if FPrintyn = 'Y' then
|
PrtLB.Visible := True;
|
|
initParameter; //20170222 針對新加的parameter 作初始化參數
|
InitScrollRec;
|
If FUrl = '' then
|
begin
|
Showmessage(_Msg('URL cannot be empty,please contact system administrator'));
|
Exit;
|
end;
|
if FUrl[length(FUrl)]<>'/' then
|
FUrl := FUrl + '/';
|
//20221028 把語言檔改放至 Local目錄裡,才不會有些文字來不及使用
|
LngPath := GetLocalAppDir(Handle)+'MPS\CB_IMGPS\';
|
Str2Dir(LngPath);
|
////下載語言檔///// 20170218 先拿調以便測試
|
If not DownLanguage Then
|
begin
|
Showmessage('Language File error!!'+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
|
InitialLanguage(Self); //載入多國語言
|
|
|
if FWork_no='' then
|
begin
|
Showmessage(_Msg('業務別不能為空白,請洽詢程式人員'));
|
Exit;
|
end;
|
|
if CaseIDLength = 0 then
|
begin
|
Showmessage(_Msg('案件編號長度限制不能為空白,請洽詢程式人員'));
|
//Exit; //測試時不退出
|
end;
|
|
//********清單區********
|
|
Doc_Inf_List := TStringList.Create; //Doc_Inf 清單 Docno + 版本為key
|
DM_FORM_INF_List := TStringList.Create; //DM_FORM_INF 清單 Docno + 版本為key
|
FORM_INF_List := TStringList.Create; //FORM_INF的清單
|
CHECK_RULE_INF_List := TStringList.Create; //CHECK_RULE_INF 清單
|
MEMO_INF_List := TStringList.Create; //MEMO_INF 清單
|
WORK_INF_List := TStringList.Create; //WORK_INF 清單
|
LASTEST_FORM_INF_List := TStringList.Create; // LASTEST_FORM_INF 清單
|
FindResult := TStringlist.Create; //找SQLData的結果
|
|
OMRFileList := TStringList.Create; //要OMR檢核的文件(只檢查每種Form的第一頁)
|
FormCode_PageSize := TStringList.Create; //文件的預設大小 FormCode_Height_Width
|
DocNo_NeedDoc := TStringList.Create; //有Docno時要相依的文件 DocNo_相依文件_相依文件
|
DocNo_NoDoc := TStringList.Create; //有Docno時互斥的文件 DocNo_互斥文件_互斥文件
|
DocNo_VerinCase := TStringList.Create; //案件裡的DocNo+版本的清單
|
CaseDocNoList := TStringlist.Create; //案件裡的DocNo清單
|
CaseDocNo_CopiesList := TStringlist.Create; //案件裡的DocNo份數清單
|
CaseList := TStringList.Create; //記錄掃瞄案件的順序
|
Context_DocnoList := TStringlist.Create; //案件裡的檔案Docno清單
|
ContextList := TStringlist.Create; //案件裡的檔案清單
|
AttContextList := TStringlist.Create; //案件裡的附加檔案清單
|
NoSaveBarCodeList := TStringlist.Create; //不儲存的條碼清單
|
FormID_List := TStringlist.Create; //FormID清單
|
DocNo_List := TStringlist.Create; //DocNo清單
|
NowShowFileList := TStringlist.Create; //目前顯示的影像清單
|
NowSelectFileList := TStringlist.Create; //目前被點選的影像清單
|
Cust_DocNoList := TStringlist.Create; //自行定義的文件名稱
|
IN_WH_DocNoList := TStringlist.Create; //入庫的文件清單
|
GuideFormIDList := TStringlist.Create; //要當導引頁表單清單
|
DivPageFormIDList := TStringList.Create; //要當分案頁表單清單
|
LastInitFormidList :=TStringList.Create;
|
LastAddFormidList := TStringList.Create;
|
SampleFormIDList := TStringList.Create;//20170627 加入
|
ExistImgList := TStringList.Create; //20170724 新增
|
reSizeExistImgList :=TStringList.Create; //20171012 新增
|
//********清單區********
|
|
ShowText := _Msg('資料載入中,請稍候');
|
DataLoading(True,True);
|
|
IF not GetServerDate Then
|
begin
|
Showmessage(_Msg('取主機時間時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
|
if FMode='SAMPLESCAN' then
|
begin
|
IF not GetSampleInf Then //取已存在sample
|
begin
|
Showmessage(_Msg('取存在範本資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
end;
|
|
|
|
//ShowMessage('GetServerDate '+ServerDate+' , '+ServerTime);
|
////下載系統資訊////
|
IF not GetSetInf1 Then //取DOC_INF 文件資訊
|
begin
|
Showmessage(_Msg('取文件資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//ShowMessage('GetSetInf1');
|
//showmessage(self.Doc_Inf_List.Text);
|
IF not GetSetInf2 Then //取DM_FORM_INF 相依互斥資訊
|
begin
|
Showmessage(_Msg('取相依互斥資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//ShowMessage('GetSetInf2');
|
//Showmessage(self.Doc_Inf_List.Text);
|
IF not GetSetInf3 Then //取FORM_INF 表單資訊
|
begin
|
Showmessage(_Msg('取表單資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//ShowMessage('GetSetInf3');
|
IF not GetSetInf4 Then //取CHECK_RULE_INF 檢核規則資訊
|
begin
|
Showmessage(_Msg('取檢核規則資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//showmessage(self.CHECK_RULE_INF_List.Text);
|
//ShowMessage('GetSetInf4');
|
IF not GetSetInf5 Then //取MEMO_INF 常用片語資訊
|
begin
|
Showmessage(_Msg('取常用片語資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//ShowMessage('GetSetInf5');
|
//showmessage(self.MEMO_INF_List.Text);
|
IF not GetSetInf6 Then //取WORK_INF 系統參數資訊
|
begin
|
Showmessage(_Msg('取系統參數資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//ShowMessage('GetSetInf6');
|
//showmessage(FORM_INF_List.Text);
|
IF not GetSetInf7 Then //取LASTES_FORM_INF 系統參數資訊
|
begin
|
Showmessage(_Msg('取最新版FORMID參數資訊時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
//ShowMessage('GetSetInf7');
|
//Showmessage(LASTEST_FORM_INF_List.Text);
|
SetFormID_DocNo; //將FormID及Docno抽出塞入List裡 20130403增加
|
SetIn_WH_DocNo; //將要入庫的DocNo抽出來另存入list裡
|
GetDefScanIni; //取得掃描預設值及相關設定
|
|
////下載系統資訊/////
|
if ImagePath = '' then
|
begin
|
Showmessage(_Msg('本機暫存路徑不得為空白'));
|
DataLoading(False,False);
|
Panel1.Enabled := False;
|
Panel2.Enabled := False;
|
Exit;
|
end;
|
initkscan;
|
if ImagePath[Length(ImagePath)] <> '\' then
|
ImagePath := ImagePath + '\';
|
//ShowMessage('ImagePath='+ImagePath);
|
//CheckXmlPath := ImagePath+'OMRSITE\'+FWork_No;
|
CheckXmlPath := ImagePath+'OMRSITE\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
|
//ShowMessage('CheckXmlPath='+CheckXmlPath);
|
//SitePath := ImagePath+'Site\'+FWork_No+'\';
|
SitePath := ImagePath+'Site\'; // 20200612 發現影像平台是取回所有業務的設定,所以不能有業務別目錄
|
//LngPath := ImagePath; //改放至上面取Local目錄
|
SamplePath := ImagePath+'Sample\'+FWork_No+'\';
|
ImagePath := ImagePath + 'Scantemp\';
|
//ShowMessage('AA ImagePath='+ImagePath);
|
ScaniniPath :=ImagePath+FWork_No+'\'+FUserUnit +'\';
|
//ShowMessage('ScaniniPath='+ScaniniPath);
|
ImagePath := ImagePath + FWork_No+'\'+FUserUnit+'\'+FMode+'\';
|
ImagePath := StringReplace(ImagePath, '\\', '\',[rfReplaceAll, rfIgnoreCase]);
|
//ShowMessage('BB ImagePath='+ImagePath);
|
ImageSavePath := ImagePath;
|
str2dir(CheckXmlPath);
|
str2dir(SitePath);
|
str2dir(ImagePath);
|
str2dir(SamplePath);
|
Del_Sub_NothingPath(ImagePath); //清掉案件目錄是空的
|
|
|
LogFile1.LogFile:=LngPath+'IMGPSCheck.log';
|
|
ReduceLogFile;
|
|
LogFile1.LogToFile(logTimeString+'OCX取表data結束');
|
|
ShowText := _Msg('資料載入中,請稍候');
|
DataLoading(True,True);
|
|
// if not CheckAvailable Then //檢查授權 20170218 說不用了
|
// begin
|
// DataLoading(False,False);
|
// Panel1.Enabled := False;
|
// Panel2.Enabled := False;
|
// Exit;
|
// end;
|
|
//Button3Click(Self);
|
//ShowMessage('CheckAvailable');
|
ShowText := _Msg('資料載入中,請稍候');
|
DataLoading(True,True);
|
|
|
StatusBar1.Panels[1].Text := _Msg('登入人員:')+FUserName;
|
//FCaseID:='20150302180133';//測試用
|
////下載語言檔/////
|
//ShowMessage('OOOO');
|
|
if (FMode = 'RSCAN') or (FMode = 'DSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //重掃件及異動件要只能掃指定編號的件
|
begin
|
_Deltree(ImagePath);
|
str2dir(ImagePath);
|
ImageSavePath := ImagePath;
|
str2dir(ImageSavePath);
|
MkDir(ImageSavePath+FCaseID);
|
CreateEmptyCase(ImageSavePath,FCaseID);
|
MkDir(ImageSavePath+FCaseID+'\Download');
|
IF (FMode = 'ESCAN') or (FMode = 'DSCAN') then //異動件先下載影像
|
begin
|
ShowText := _Msg('案件下載中,請稍候');
|
DataLoading(True,True);
|
If not DownLoadImage(ImageSavePath+FCaseID+'\Download\',FCaseID) Then
|
begin
|
Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+DownFileErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
|
{If not Down_Img(ImageSavePath+FCaseID+'\Download\',FCaseID) then
|
begin
|
Showmessage(FCaseID+_msg('載入異動影像時,網路發生錯誤')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;}
|
//Showmessage(ImageSavePath+FCaseID+'\Download\'+#10#13+ImageSavePath+FCaseID+'\');
|
Download2Case(ImageSavePath+FCaseID+'\Download\',ImageSavePath+FCaseID+'\');
|
//Showmessage('aaa');
|
//Download2Case('C:\Users\Hong\Downloads\沒有括號\',ImageSavePath+FCaseID+'\');
|
if (FIs_OldCase = 'Y') then
|
begin
|
if (FWork_no='HLN') then
|
ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
|
//if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then //這個會在Download2Case時一律產生所以不能有這行 20141013
|
OldCasetoNewCase(FCaseID);
|
//ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
|
//LoadImgFile;
|
end;
|
// if (FIs_OldCase = 'Y') and (FWork_no='HLN') then //77版的
|
// begin
|
// ErrFormtoCurrentForm(FCaseID,'10000001011112A','11000001011112A'); //換掉錯的FormID
|
// if not FileExists(ImageSavePath+FCaseID+'\CaseDocNo_Copies.dat') then
|
// OldCasetoNewCase(FCaseID);
|
// //ErrFormtoCurrentForm(FCaseID,'11B00005011312A','11000001011112A'); //換掉錯的FormID
|
// //LoadImgFile;
|
// end;
|
Create_Cust_DocDir(FCaseID); //產生外面傳入的文件
|
if FMode='ESCAN' then
|
LastInitFormidListCreate(ImageSavePath+FCaseID+'\Download\');
|
end;
|
end;
|
|
//ShowMessage('GetOMRCheckSet前');
|
////下載檢核XML//////
|
IF not GetOMRCheckSet Then
|
begin
|
Showmessage(_Msg('下載檢核定位檔案時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
////下載檢核XML/////
|
//ShowMessage('GetOMRCheckSet後來');
|
////下載登打設定/////
|
IF not GetKeyinSet Then
|
begin
|
Showmessage(_Msg('下載登打定位檔案時,網路發生錯誤!!')+HttpErrStr);
|
DataLoading(False,False);
|
Exit;
|
end;
|
////下載登打設定/////
|
//ShowMessage('GetKeyinSet');
|
if ScanDenialHint <> '' then //有設定提示字串就秀在右上角
|
begin
|
DenialTimeLb.Visible := True;
|
DenialTimeLb.Caption := Format(ScanDenialHint,[ScanDenialTime]);
|
end;
|
//ShowMessage(IntToStr(ScanDpi));
|
R_W_Scanini('R'); //掃瞄設定的ini
|
//ShowMessage(IntToStr(ScanDpi));
|
//ShowMessage('停掉DataLoading');
|
//DataLoading(False,False);
|
ScanDuplexCB.Checked := ScanDuplex;
|
if FMode <> 'SAMPLESCAN' then
|
LoadImgFile;
|
if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then
|
begin
|
if TreeView1.Items.Count > 0 then
|
begin
|
TreeView1.Selected := NewTreeNode.Item[0];
|
TreeView1click(self);
|
end;
|
end;
|
InitialOk := True;
|
|
{AttFileGB.Visible := True; //附加電子檔窗 //20120207楊玉說不在這加電子檔先拿掉
|
Splitter2.Visible := True;
|
AttFileGB.Visible := False; //附加電子檔窗
|
Splitter2.Visible := False; }
|
//ShowMessage('ImageSavePath='+ImageSavePath);
|
DataLoading(False,False);
|
|
LogFile1.LogToFile(logTimeString+'OCX初始化結束');
|
LogFile1.LogToFile(logTimeString+'FUrl='+FUrl+
|
',FCaseID='+FCaseID+
|
',FMode='+FMode+
|
',FModeName='+FModeName+
|
',FWork_no='+FWork_no+
|
',FUserID='+FUserID+
|
',FUserName='+FUserName+
|
',FUserUnit='+FUserUnit+
|
',FData='+FData+
|
',FVerify='+FVerify+
|
',FReWrite='+FReWrite+
|
',FLanguage='+FLanguage+
|
',FLoanDoc_Value='+FLoanDoc_Value+
|
',FLoanDoc_Enable='+FLoanDoc_Enable+
|
',FUseProxy='+FUseProxy+
|
',FC_DocNoList='+FC_DocNoList+
|
',FC_DocNameList='+FC_DocNameList+
|
',FFixFileList='+FFixFileList+
|
',FIs_In_Wh='+FIs_In_Wh+
|
',FOldCaseInfo='+FOldCaseInfo+
|
',FPrintyn='+FPrintyn+
|
',FIs_OldCase='+FIs_OldCase+
|
',FCustDocYN='+FCustDocYN);
|
LogFile1.LogToFile(logTimeString+'FImgDPI='+IntToStr(FImgDPI)+
|
',FScanColor='+ IntToStr(FScanColor)+
|
',FFileSizeLimit='+ IntToStr(FFileSizeLimit)+
|
',FCaseNoLength='+ IntToStr(FCaseNoLength)+
|
',FImgDelete='+FImgDelete+
|
',FIsExternal='+FIsExternal+
|
',FWH_category='+FWH_category+
|
',FCheck_main_form='+FCheck_main_form+
|
',FMaxUploadSize='+FMaxUploadSize);
|
|
end;
|
|
|
{ ==============================================================================
|
方法名稱：Timer2Timer
|
引用相依：
|
方法描述：處理進度條或提示文字的動態點點動畫。每觸發一次就會在 ShowText 後方增
|
加一個點，模擬載入中的視覺效果。
|
============================================================================== }
|
procedure TCB_IMGPSScanX.Timer2Timer(Sender: TObject);
|
begin
|
IF Panel22.Caption = ShowText+'......' Then
|
Panel22.Caption := ShowText
|
Else
|
Panel22.Caption := Panel22.Caption + '.';
|
Application.ProcessMessages;
|
end;
|
