From ef8675b8cf493c2b08c428b8f9f5e35a5c52e51c Mon Sep 17 00:00:00 2001
From: Hong-Dell\Hong <chlin1022@i-mps.com>
Date: 星期二, 08 十一月 2022 12:04:52 +0800
Subject: [PATCH] Ver 2,0,1,77
---
CB_IMGPSScan_test_TLB.pas | 397 +++++++++++++++++++++++
CB_IMGPSScanImp.dfm | 8
CB_IMGPSScan.ocx | 0
CB_IMGPSScan_test.identcache | 0
CB_IMGPSScan.dproj | 5
CB_IMGPSScan.res | 0
CB_IMGPSScan_test.dproj | 135 +++++++
CB_IMGPSScan_test_TLB.dcu | 0
CB_IMGPSScan_test.tlb | 0
CB_IMGPSScanImp.dcu | 0
CB_IMGPSScan_test.ridl | 374 ++++++++++++++++++++++
CB_IMGPSScan_test.res | 0
CB_IMGPSScanImp.pas | 17
CB_IMGPSScan_test.dproj.local | 20 +
CB_IMGPSScan_test.ocx | 0
CB_IMGPSScan_test.dpr | 27 +
16 files changed, 975 insertions(+), 8 deletions(-)
diff --git a/CB_IMGPSScan.dproj b/CB_IMGPSScan.dproj
index 168b84f..a29a32d 100644
--- a/CB_IMGPSScan.dproj
+++ b/CB_IMGPSScan.dproj
@@ -20,6 +20,7 @@
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_Define>Production;$(DCC_Define)</DCC_Define>
<DCC_UsePackage>vclx;vcl;dbrtl;Rave76VCL;bdertl;rtl;vclactnband;xmlrtl;vcldb;vcldbx;dsnap;dsnapcon;TeeUI;TeeDB;Tee;adortl;vclib;ibxpress;inet;intrawebdb_100_120;Intraweb_100_120;VclSmp;vclie;websnap;webdsnap;inetdbbde;inetdbxpress;soaprtl;vclribbon;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;DataSnapServer;DbxClientDriver;DBXInterBaseDriver;DBXMySQLDriver;dbxcds;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;FormShapePkg;DUSR;BaseBBoxD14;ChsBBoxD14;FTPSBBoxCliD14;SSLBBoxCliD14;LOG;SFTPBBoxCliD14;SSHBBoxCliD14;ICR_OCR;VCLZipD2009_4;HTTPBBoxCliD14;GaussSDK;mpsCtrl;chilk;Accu10;IndyCore;IndySystem;IndyProtocols;pfmgrpkgD2009;Package1;PDF</DCC_UsePackage>
<DCC_DependencyCheckOutputName>CB_IMGPSScan.ocx</DCC_DependencyCheckOutputName>
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
@@ -95,7 +96,7 @@
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">1</VersionInfo>
- <VersionInfo Name="Build">76</VersionInfo>
+ <VersionInfo Name="Build">77</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
@@ -107,7 +108,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"/>
<VersionInfoKeys Name="FileDescription"/>
- <VersionInfoKeys Name="FileVersion">2.0.1.76</VersionInfoKeys>
+ <VersionInfoKeys Name="FileVersion">2.0.1.77</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"/>
<VersionInfoKeys Name="LegalCopyright"/>
<VersionInfoKeys Name="LegalTrademarks"/>
diff --git a/CB_IMGPSScan.ocx b/CB_IMGPSScan.ocx
index 8e48b6c..1b25b72 100644
--- a/CB_IMGPSScan.ocx
+++ b/CB_IMGPSScan.ocx
Binary files differ
diff --git a/CB_IMGPSScan.res b/CB_IMGPSScan.res
index 6bd4c77..705996e 100644
--- a/CB_IMGPSScan.res
+++ b/CB_IMGPSScan.res
Binary files differ
diff --git a/CB_IMGPSScanImp.dcu b/CB_IMGPSScanImp.dcu
index dcad054..0722971 100644
--- a/CB_IMGPSScanImp.dcu
+++ b/CB_IMGPSScanImp.dcu
Binary files differ
diff --git a/CB_IMGPSScanImp.dfm b/CB_IMGPSScanImp.dfm
index 3269e50..7c3e436 100644
--- a/CB_IMGPSScanImp.dfm
+++ b/CB_IMGPSScanImp.dfm
@@ -5798,7 +5798,7 @@
Left = 32
Top = 360
Bitmap = {
- 494C01010A000D00100010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+ 494C01010A000D001C0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -6207,7 +6207,7 @@
Left = 32
Top = 225
Bitmap = {
- 494C010105000900100020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+ 494C0101050009001C0020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000800000004000000001002000000000000080
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -7278,7 +7278,7 @@
Left = 29
Top = 273
Bitmap = {
- 494C010107000900100020002000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
+ 494C0101070009001C0020002000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000800000004000000001002000000000000080
000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
@@ -8349,7 +8349,7 @@
Left = 37
Top = 313
Bitmap = {
- 494C010107000900100020002000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
+ 494C0101070009001C0020002000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000800000004000000001002000000000000080
000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index beb5aaf..2568e1a 100644
--- a/CB_IMGPSScanImp.pas
+++ b/CB_IMGPSScanImp.pas
@@ -1,5 +1,5 @@
unit CB_IMGPSScanImp;
-
+//Test
{$WARN SYMBOL_PLATFORM OFF}
interface
@@ -9,8 +9,15 @@
EnDiGrph, { for TDibGraphic }
EnMisc, { for MinFloat }
EnTifGr, { for TTifGraphic }
+ {$IFDEF Production}
+ CB_IMGPSScan_TLB,
+ {$ENDIF}
+ {$IFDEF Test}
+ CB_IMGPSScan_test_TLB,
+ {$ENDIF}
+
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- ActiveX, AxCtrls, CB_IMGPSScan_TLB, StdVcl, VCLUnZip, VCLZip, Encryp,
+ ActiveX, AxCtrls, StdVcl, VCLUnZip, VCLZip, Encryp,
ExtCtrls, ComCtrls, Menus, StdCtrls, Gauges, EnImgScr, PJMenuSpeedButtons,
Buttons, ImgList, SBSimpleSSL, SBHTTPSClient, SBWinCertStorage, SBX509,
SBCustomCertStorage, SBUtils,mpsBarco,BarcodesFinder,HTTPApp,ErrList,
@@ -5618,6 +5625,7 @@
Result := False; // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime
EnCodeDateTime := En_DecryptionStr_Base64('E',ServerDate+GetBalance2Time(Balance),Mpskey);
+
ColumeStr := 'WORK_NO,DOC_NO,DOC_U_DESC,DOC_TYPE,DOC_VERSION,FORM_PAGES,START_DATE,STOP_DATE,IS_DOC_DIV,IS_IN_WH';
//If not ProcessServlet(HTTPSClient,FURL+'servlet/CWC02 ','checktime='+EnCodeDateTime+'&mode=1&col='+Doc_Inf_Colume+'&workno='+FWork_No,FReWrite.Text,Memo1) Then
@@ -14686,6 +14694,11 @@
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;
diff --git a/CB_IMGPSScan_test.dpr b/CB_IMGPSScan_test.dpr
new file mode 100644
index 0000000..f156330
--- /dev/null
+++ b/CB_IMGPSScan_test.dpr
@@ -0,0 +1,27 @@
+library CB_IMGPSScan_test;
+
+uses
+ ComServ,
+ CB_IMGPSScan_test_TLB in 'CB_IMGPSScan_test_TLB.pas',
+ CB_IMGPSScanImp in 'CB_IMGPSScanImp.pas' {CB_IMGPSScanX: TActiveForm} {CB_IMGPSScanX: CoClass},
+ PatchFom in 'PatchFom.pas' {PatchDlg},
+ AxCtrls in 'AxCtrls.pas',
+ DocList in 'DocList.pas' {DocListForm},
+ DocPrt in 'DocPrt.pas' {PrintForm},
+ ErrList in 'ErrList.pas' {ErrlistForm},
+ OldCaseInfo in 'OldCaseInfo.pas' {OldCaseInfoForm};
+
+{$E ocx}
+
+exports
+ DllGetClassObject,
+ DllCanUnloadNow,
+ DllRegisterServer,
+ DllUnregisterServer;
+
+{$R *.TLB}
+
+{$R *.RES}
+
+begin
+end.
diff --git a/CB_IMGPSScan_test.dproj b/CB_IMGPSScan_test.dproj
new file mode 100644
index 0000000..2dd9887
--- /dev/null
+++ b/CB_IMGPSScan_test.dproj
@@ -0,0 +1,135 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{57FD82CC-686B-4D7A-B0DD-F19E156B9F29}</ProjectGuid>
+ <ProjectVersion>12.0</ProjectVersion>
+ <MainSource>CB_IMGPSScan_test.dpr</MainSource>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+ <Cfg_1>true</Cfg_1>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+ <Cfg_2>true</Cfg_2>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base)'!=''">
+ <DCC_Define>Test;$(DCC_Define)</DCC_Define>
+ <DCC_UsePackage>vclx;vcl;dbrtl;Rave76VCL;bdertl;rtl;vclactnband;xmlrtl;vcldb;vcldbx;dsnap;dsnapcon;TeeUI;TeeDB;Tee;adortl;vclib;ibxpress;inet;intrawebdb_100_120;Intraweb_100_120;VclSmp;vclie;websnap;webdsnap;inetdbbde;inetdbxpress;soaprtl;vclribbon;dbexpress;DbxCommonDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;DataSnapServer;DbxClientDriver;DBXInterBaseDriver;DBXMySQLDriver;dbxcds;DBXSybaseASEDriver;DBXSybaseASADriver;DBXOracleDriver;DBXMSSQLDriver;DBXInformixDriver;DBXDb2Driver;FormShapePkg;DUSR;BaseBBoxD14;ChsBBoxD14;FTPSBBoxCliD14;SSLBBoxCliD14;LOG;SFTPBBoxCliD14;SSHBBoxCliD14;ICR_OCR;VCLZipD2009_4;HTTPBBoxCliD14;GaussSDK;mpsCtrl;chilk;Accu10;IndyCore;IndySystem;IndyProtocols;pfmgrpkgD2009;Package1;PDF</DCC_UsePackage>
+ <DCC_DependencyCheckOutputName>CB_IMGPSScan_test.ocx</DCC_DependencyCheckOutputName>
+ <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
+ <GenDll>true</GenDll>
+ <DCC_ImageBase>00400000</DCC_ImageBase>
+ <DCC_Platform>x86</DCC_Platform>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_1)'!=''">
+ <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+ <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+ <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+ <DCC_DebugInformation>false</DCC_DebugInformation>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Cfg_2)'!=''">
+ <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+ </PropertyGroup>
+ <ItemGroup>
+ <DelphiCompile Include="CB_IMGPSScan_test.dpr">
+ <MainSource>MainSource</MainSource>
+ </DelphiCompile>
+ <DCCReference Include="CB_IMGPSScan_test_TLB.pas"/>
+ <DCCReference Include="CB_IMGPSScanImp.pas">
+ <Form>CB_IMGPSScanX</Form>
+ <DesignClass>TActiveForm</DesignClass>
+ <CoClasses>CB_IMGPSScanX</CoClasses>
+ </DCCReference>
+ <DCCReference Include="PatchFom.pas">
+ <Form>PatchDlg</Form>
+ </DCCReference>
+ <DCCReference Include="AxCtrls.pas"/>
+ <DCCReference Include="DocList.pas">
+ <Form>DocListForm</Form>
+ </DCCReference>
+ <DCCReference Include="DocPrt.pas">
+ <Form>PrintForm</Form>
+ </DCCReference>
+ <DCCReference Include="ErrList.pas">
+ <Form>ErrlistForm</Form>
+ </DCCReference>
+ <DCCReference Include="OldCaseInfo.pas">
+ <Form>OldCaseInfoForm</Form>
+ </DCCReference>
+ <RidlCompile Include="CB_IMGPSScan_test.ridl"/>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Debug">
+ <Key>Cfg_2</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ <BuildConfiguration Include="Release">
+ <Key>Cfg_1</Key>
+ <CfgParent>Base</CfgParent>
+ </BuildConfiguration>
+ </ItemGroup>
+ <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+ <ProjectExtensions>
+ <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+ <Borland.ProjectType/>
+ <BorlandProject>
+ <Delphi.Personality>
+ <Source>
+ <Source Name="MainSource">CB_IMGPSScan_test.dpr</Source>
+ </Source>
+ <Parameters>
+ <Parameters Name="UseLauncher">False</Parameters>
+ <Parameters Name="LoadAllSymbols">True</Parameters>
+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+ </Parameters>
+ <VersionInfo>
+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+ <VersionInfo Name="MajorVer">2</VersionInfo>
+ <VersionInfo Name="MinorVer">0</VersionInfo>
+ <VersionInfo Name="Release">1</VersionInfo>
+ <VersionInfo Name="Build">77</VersionInfo>
+ <VersionInfo Name="Debug">False</VersionInfo>
+ <VersionInfo Name="PreRelease">False</VersionInfo>
+ <VersionInfo Name="Special">False</VersionInfo>
+ <VersionInfo Name="Private">False</VersionInfo>
+ <VersionInfo Name="DLL">True</VersionInfo>
+ <VersionInfo Name="Locale">1028</VersionInfo>
+ <VersionInfo Name="CodePage">950</VersionInfo>
+ </VersionInfo>
+ <VersionInfoKeys>
+ <VersionInfoKeys Name="CompanyName"/>
+ <VersionInfoKeys Name="FileDescription"/>
+ <VersionInfoKeys Name="FileVersion">2.0.1.77</VersionInfoKeys>
+ <VersionInfoKeys Name="InternalName"/>
+ <VersionInfoKeys Name="LegalCopyright"/>
+ <VersionInfoKeys Name="LegalTrademarks"/>
+ <VersionInfoKeys Name="OriginalFilename"/>
+ <VersionInfoKeys Name="ProductName"/>
+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+ <VersionInfoKeys Name="Comments"/>
+ <VersionInfoKeys Name="OleSelfRegister">1</VersionInfoKeys>
+ </VersionInfoKeys>
+ <Excluded_Packages>
+ <Excluded_Packages Name="D:\vidgrab_9.2.1.4_D2009\Component\TVidGrab.bpl">File D:\vidgrab_9.2.1.4_D2009\Component\TVidGrab.bpl not found</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\bin\bcboffice2k120.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\bin\bcbofficexp120.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\bin\dcloffice2k120.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDS)\bin\dclofficexp120.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+ </Excluded_Packages>
+ </Delphi.Personality>
+ <ActiveXProjectInfo>
+ <version>1</version>
+ </ActiveXProjectInfo>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ </Project>
diff --git a/CB_IMGPSScan_test.dproj.local b/CB_IMGPSScan_test.dproj.local
new file mode 100644
index 0000000..920fe20
--- /dev/null
+++ b/CB_IMGPSScan_test.dproj.local
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+ <Transactions>
+ <Transaction>2017/01/17 15:12:12.609.pas,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Project1_TLB.pas=C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScan_TLB.pas</Transaction>
+ <Transaction>2017/01/17 15:12:36.881.dproj,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Project1.dproj=C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScan.dproj</Transaction>
+ <Transaction>2017/01/17 15:12:44.930.ridl,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Project1.ridl=C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScan.ridl</Transaction>
+ <Transaction>2017/01/17 15:12:53.538.pas,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Unit1.pas=C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScanImp.pas</Transaction>
+ <Transaction>2017/01/17 15:12:53.538.dfm,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Unit1.dfm=C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScanImp.dfm</Transaction>
+ <Transaction>2017/01/17 15:13:14.099.ridl,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScan.ridl=C:\Documents and Settings\user\桌面\lin_Delphi\國泰專案\國泰房貸\掃描元件\20170117_1\CB_IMGPSScan.ridl</Transaction>
+ <Transaction>2017/01/17 15:13:14.207.pas,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScan_TLB.pas=C:\Documents and Settings\user\桌面\lin_Delphi\國泰專案\國泰房貸\掃描元件\20170117_1\CB_IMGPSScan_TLB.pas</Transaction>
+ <Transaction>2017/01/17 15:13:15.093.pas,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScanImp.pas=C:\Documents and Settings\user\桌面\lin_Delphi\國泰專案\國泰房貸\掃描元件\20170117_1\CB_IMGPSScanImp.pas</Transaction>
+ <Transaction>2017/01/17 15:13:15.093.dfm,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScanImp.dfm=C:\Documents and Settings\user\桌面\lin_Delphi\國泰專案\國泰房貸\掃描元件\20170117_1\CB_IMGPSScanImp.dfm</Transaction>
+ <Transaction>2017/01/17 15:13:16.777.dproj,C:\Documents and Settings\user\My Documents\RAD Studio\Projects\CB_IMGPSScan.dproj=C:\Documents and Settings\user\桌面\lin_Delphi\國泰專案\國泰房貸\掃描元件\20170117_1\CB_IMGPSScan.dproj</Transaction>
+ <Transaction>2017/02/24 10:21:16.796.pas,C:\Users\Hong\Desktop\Delphi2009_project\work_project\國泰專案\國泰房貸\掃描元件CB_IMGPSScan\20170208_設置git\OldCaseImg.pas=</Transaction>
+ <Transaction>2017/02/24 10:21:16.796.dfm,C:\Users\Hong\Desktop\Delphi2009_project\work_project\國泰專案\國泰房貸\掃描元件CB_IMGPSScan\20170208_設置git\OldCaseImg.dfm=</Transaction>
+ <Transaction>2022/11/07 16:56:30.735.dproj,D:\工作區\專案\國泰世華\影像平台\掃描元件\CB_IMGPSScan.dproj=D:\工作區\專案\國泰世華\影像平台\掃描元件\CB_IMGPSScan_test.dproj</Transaction>
+ <Transaction>2022/11/07 16:57:40.108.ridl,D:\工作區\專案\國泰世華\影像平台\掃描元件\CB_IMGPSScan.ridl=D:\工作區\專案\國泰世華\影像平台\掃描元件\CB_IMGPSScan_test.ridl</Transaction>
+ <Transaction>2022/11/07 16:58:47.697.pas,D:\工作區\專案\國泰世華\影像平台\掃描元件\CB_IMGPSScan_TLB.pas=D:\工作區\專案\國泰世華\影像平台\掃描元件\CB_IMGPSScan_test_TLB.pas</Transaction>
+ </Transactions>
+</BorlandProject>
diff --git a/CB_IMGPSScan_test.identcache b/CB_IMGPSScan_test.identcache
new file mode 100644
index 0000000..0e92a68
--- /dev/null
+++ b/CB_IMGPSScan_test.identcache
Binary files differ
diff --git a/CB_IMGPSScan_test.ocx b/CB_IMGPSScan_test.ocx
new file mode 100644
index 0000000..fff3846
--- /dev/null
+++ b/CB_IMGPSScan_test.ocx
Binary files differ
diff --git a/CB_IMGPSScan_test.res b/CB_IMGPSScan_test.res
new file mode 100644
index 0000000..705996e
--- /dev/null
+++ b/CB_IMGPSScan_test.res
Binary files differ
diff --git a/CB_IMGPSScan_test.ridl b/CB_IMGPSScan_test.ridl
new file mode 100644
index 0000000..995547e
--- /dev/null
+++ b/CB_IMGPSScan_test.ridl
@@ -0,0 +1,374 @@
+// ************************************************************************ //
+// WARNING
+// -------
+// This file is generated by the Type Library importer or Type Libary Editor.
+// Barring syntax errors, the Editor will parse modifications made to the file.
+// However, when applying changes via the Editor this file will be regenerated
+// and comments or formatting changes will be lost.
+// ************************************************************************ //
+// File generated on 2022/11/7 �U�� 04:59:46 (- $Rev: 12980 $, 539968859).
+
+[
+ uuid(F7D1C429-BE85-4FAD-A058-36A41C2AAA89),
+ version(1.0),
+ control
+
+]
+library CB_IMGPSScan_test
+{
+
+ importlib("stdole2.tlb");
+ importlib("stdvcl40.dll");
+
+ interface ICB_IMGPSScanX;
+ dispinterface ICB_IMGPSScanXEvents;
+ coclass CB_IMGPSScanX;
+
+
+ [
+ uuid(3A22FC87-4EDB-4509-A190-2D503D294D38)
+ ]
+ enum TxActiveFormBorderStyle
+ {
+ [helpstring("afbNone")]
+ afbNone = 0,
+ [helpstring("afbSingle")]
+ afbSingle = 1,
+ [helpstring("afbSunken")]
+ afbSunken = 2,
+ [helpstring("afbRaised")]
+ afbRaised = 3
+ };
+
+ [
+ uuid(D7BF7B70-4BAC-4786-B02F-3D6A623541FA)
+ ]
+ enum TxPrintScale
+ {
+ [helpstring("poNone")]
+ poNone = 0,
+ [helpstring("poProportional")]
+ poProportional = 1,
+ [helpstring("poPrintToFit")]
+ poPrintToFit = 2
+ };
+
+ [
+ uuid(A29CA299-AEE0-42ED-8AA4-D69D5041DD30)
+ ]
+ enum TxMouseButton
+ {
+ [helpstring("mbLeft")]
+ mbLeft = 0,
+ [helpstring("mbRight")]
+ mbRight = 1,
+ [helpstring("mbMiddle")]
+ mbMiddle = 2
+ };
+
+ [
+ uuid(92AC6AAC-B9F0-43F3-837C-561E4F8B05C5)
+ ]
+ enum TxPopupMode
+ {
+ [helpstring("pmNone")]
+ pmNone = 0,
+ [helpstring("pmAuto")]
+ pmAuto = 1,
+ [helpstring("pmExplicit")]
+ pmExplicit = 2
+ };
+
+ [
+ custom(8B342977-45CB-4A01-A8F2-E47B61F3539E, 0)
+ ]
+ typedef IFontDisp** PPUserType1;
+
+ [
+ uuid(E68A01E9-2798-497F-9FB8-4EAFB7CCE5B9),
+ helpstring("Dispatch interface for CB_IMGPSScanX Control"),
+ dual,
+ oleautomation
+ ]
+ interface ICB_IMGPSScanX: IDispatch
+ {
+ [propget, id(0x000000C9), hidden]
+ HRESULT _stdcall Visible([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000C9), hidden]
+ HRESULT _stdcall Visible([in] VARIANT_BOOL Value);
+ [propget, id(0x000000CA)]
+ HRESULT _stdcall AutoScroll([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000CA)]
+ HRESULT _stdcall AutoScroll([in] VARIANT_BOOL Value);
+ [propget, id(0x000000CB)]
+ HRESULT _stdcall AutoSize([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000CB)]
+ HRESULT _stdcall AutoSize([in] VARIANT_BOOL Value);
+ [propget, id(0x000000CC)]
+ HRESULT _stdcall AxBorderStyle([out, retval] enum TxActiveFormBorderStyle* Value);
+ [propput, id(0x000000CC)]
+ HRESULT _stdcall AxBorderStyle([in] enum TxActiveFormBorderStyle Value);
+ [propget, id(0xFFFFFDFA)]
+ HRESULT _stdcall Caption([out, retval] BSTR* Value);
+ [propput, id(0xFFFFFDFA)]
+ HRESULT _stdcall Caption([in] BSTR Value);
+ [propget, id(0xFFFFFE0B)]
+ HRESULT _stdcall Color([out, retval] OLE_COLOR* Value);
+ [propput, id(0xFFFFFE0B)]
+ HRESULT _stdcall Color([in] OLE_COLOR Value);
+ [propget, id(0xFFFFFE00)]
+ HRESULT _stdcall Font([out, retval] IFontDisp** Value);
+ [propput, id(0xFFFFFE00)]
+ HRESULT _stdcall Font([in] IFontDisp* Value);
+ [propputref, id(0xFFFFFE00)]
+ HRESULT _stdcall Font([in] IFontDisp** Value);
+ [propget, id(0x000000CD)]
+ HRESULT _stdcall KeyPreview([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000CD)]
+ HRESULT _stdcall KeyPreview([in] VARIANT_BOOL Value);
+ [propget, id(0x000000CE)]
+ HRESULT _stdcall PixelsPerInch([out, retval] long* Value);
+ [propput, id(0x000000CE)]
+ HRESULT _stdcall PixelsPerInch([in] long Value);
+ [propget, id(0x000000CF)]
+ HRESULT _stdcall PrintScale([out, retval] enum TxPrintScale* Value);
+ [propput, id(0x000000CF)]
+ HRESULT _stdcall PrintScale([in] enum TxPrintScale Value);
+ [propget, id(0x000000D0)]
+ HRESULT _stdcall Scaled([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000D0)]
+ HRESULT _stdcall Scaled([in] VARIANT_BOOL Value);
+ [propget, id(0x000000D1), hidden]
+ HRESULT _stdcall Active([out, retval] VARIANT_BOOL* Value);
+ [propget, id(0x000000D2), hidden]
+ HRESULT _stdcall DropTarget([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000D2), hidden]
+ HRESULT _stdcall DropTarget([in] VARIANT_BOOL Value);
+ [propget, id(0x000000D3), hidden]
+ HRESULT _stdcall HelpFile([out, retval] BSTR* Value);
+ [propput, id(0x000000D3), hidden]
+ HRESULT _stdcall HelpFile([in] BSTR Value);
+ [propget, id(0x000000D4), hidden]
+ HRESULT _stdcall PopupMode([out, retval] enum TxPopupMode* Value);
+ [propput, id(0x000000D4), hidden]
+ HRESULT _stdcall PopupMode([in] enum TxPopupMode Value);
+ [propget, id(0x000000D5), hidden]
+ HRESULT _stdcall ScreenSnap([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000D5), hidden]
+ HRESULT _stdcall ScreenSnap([in] VARIANT_BOOL Value);
+ [propget, id(0x000000D6), hidden]
+ HRESULT _stdcall SnapBuffer([out, retval] long* Value);
+ [propput, id(0x000000D6), hidden]
+ HRESULT _stdcall SnapBuffer([in] long Value);
+ [propget, id(0x000000D7), hidden]
+ HRESULT _stdcall DockSite([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000D7), hidden]
+ HRESULT _stdcall DockSite([in] VARIANT_BOOL Value);
+ [propget, id(0x000000D8), hidden]
+ HRESULT _stdcall DoubleBuffered([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000D8), hidden]
+ HRESULT _stdcall DoubleBuffered([in] VARIANT_BOOL Value);
+ [propget, id(0x000000D9), hidden]
+ HRESULT _stdcall AlignDisabled([out, retval] VARIANT_BOOL* Value);
+ [propget, id(0x000000DA), hidden]
+ HRESULT _stdcall MouseInClient([out, retval] VARIANT_BOOL* Value);
+ [propget, id(0x000000DB), hidden]
+ HRESULT _stdcall VisibleDockClientCount([out, retval] long* Value);
+ [propget, id(0x000000DC), hidden]
+ HRESULT _stdcall ParentDoubleBuffered([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000DC), hidden]
+ HRESULT _stdcall ParentDoubleBuffered([in] VARIANT_BOOL Value);
+ [propget, id(0x000000DD), hidden]
+ HRESULT _stdcall UseDockManager([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000DD), hidden]
+ HRESULT _stdcall UseDockManager([in] VARIANT_BOOL Value);
+ [propget, id(0xFFFFFDFE), hidden]
+ HRESULT _stdcall Enabled([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0xFFFFFDFE), hidden]
+ HRESULT _stdcall Enabled([in] VARIANT_BOOL Value);
+ [propget, id(0x000000DE), hidden]
+ HRESULT _stdcall ExplicitLeft([out, retval] long* Value);
+ [propget, id(0x000000DF), hidden]
+ HRESULT _stdcall ExplicitTop([out, retval] long* Value);
+ [propget, id(0x000000E0), hidden]
+ HRESULT _stdcall ExplicitWidth([out, retval] long* Value);
+ [propget, id(0x000000E1), hidden]
+ HRESULT _stdcall ExplicitHeight([out, retval] long* Value);
+ [propget, id(0x000000E2)]
+ HRESULT _stdcall AlignWithMargins([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000E2)]
+ HRESULT _stdcall AlignWithMargins([in] VARIANT_BOOL Value);
+ [propget, id(0x000000E3)]
+ HRESULT _stdcall ParentCustomHint([out, retval] VARIANT_BOOL* Value);
+ [propput, id(0x000000E3)]
+ HRESULT _stdcall ParentCustomHint([in] VARIANT_BOOL Value);
+ [propget, id(0x000000E4)]
+ HRESULT _stdcall url([out, retval] BSTR* Value);
+ [propput, id(0x000000E4)]
+ HRESULT _stdcall url([in] BSTR Value);
+ [propget, id(0x000000E5)]
+ HRESULT _stdcall caseid([out, retval] BSTR* Value);
+ [propput, id(0x000000E5)]
+ HRESULT _stdcall caseid([in] BSTR Value);
+ [propget, id(0x000000E6)]
+ HRESULT _stdcall mode([out, retval] BSTR* Value);
+ [propput, id(0x000000E6)]
+ HRESULT _stdcall mode([in] BSTR Value);
+ [propget, id(0x000000E7)]
+ HRESULT _stdcall work_no([out, retval] BSTR* Value);
+ [propput, id(0x000000E7)]
+ HRESULT _stdcall work_no([in] BSTR Value);
+ [propget, id(0x000000E8)]
+ HRESULT _stdcall userid([out, retval] BSTR* Value);
+ [propput, id(0x000000E8)]
+ HRESULT _stdcall userid([in] BSTR Value);
+ [propget, id(0x000000E9)]
+ HRESULT _stdcall username([out, retval] BSTR* Value);
+ [propput, id(0x000000E9)]
+ HRESULT _stdcall username([in] BSTR Value);
+ [propget, id(0x000000EA)]
+ HRESULT _stdcall userunit([out, retval] BSTR* Value);
+ [propput, id(0x000000EA)]
+ HRESULT _stdcall userunit([in] BSTR Value);
+ [propget, id(0x000000EB)]
+ HRESULT _stdcall data([out, retval] BSTR* Value);
+ [propput, id(0x000000EB)]
+ HRESULT _stdcall data([in] BSTR Value);
+ [propget, id(0x000000EC)]
+ HRESULT _stdcall verify([out, retval] BSTR* Value);
+ [propput, id(0x000000EC)]
+ HRESULT _stdcall verify([in] BSTR Value);
+ [propget, id(0x000000ED)]
+ HRESULT _stdcall rewrite([out, retval] BSTR* Value);
+ [propput, id(0x000000ED)]
+ HRESULT _stdcall rewrite([in] BSTR Value);
+ [propget, id(0x000000EE)]
+ HRESULT _stdcall modename([out, retval] BSTR* Value);
+ [propput, id(0x000000EE)]
+ HRESULT _stdcall modename([in] BSTR Value);
+ [propget, id(0x000000EF)]
+ HRESULT _stdcall language([out, retval] BSTR* Value);
+ [propput, id(0x000000EF)]
+ HRESULT _stdcall language([in] BSTR Value);
+ [propget, id(0x000000F0)]
+ HRESULT _stdcall loandoc_value([out, retval] BSTR* Value);
+ [propput, id(0x000000F0)]
+ HRESULT _stdcall loandoc_value([in] BSTR Value);
+ [propget, id(0x000000F1)]
+ HRESULT _stdcall loandoc_enable([out, retval] BSTR* Value);
+ [propput, id(0x000000F1)]
+ HRESULT _stdcall loandoc_enable([in] BSTR Value);
+ [propget, id(0x000000F2)]
+ HRESULT _stdcall useproxy([out, retval] BSTR* Value);
+ [propput, id(0x000000F2)]
+ HRESULT _stdcall useproxy([in] BSTR Value);
+ [propget, id(0x000000F3)]
+ HRESULT _stdcall c_docnolist([out, retval] BSTR* Value);
+ [propput, id(0x000000F3)]
+ HRESULT _stdcall c_docnolist([in] BSTR Value);
+ [propget, id(0x000000F4)]
+ HRESULT _stdcall c_docnamelist([out, retval] BSTR* Value);
+ [propput, id(0x000000F4)]
+ HRESULT _stdcall c_docnamelist([in] BSTR Value);
+ [propget, id(0x000000F5)]
+ HRESULT _stdcall fixfilelist([out, retval] BSTR* Value);
+ [propput, id(0x000000F5)]
+ HRESULT _stdcall fixfilelist([in] BSTR Value);
+ [propget, id(0x000000F6)]
+ HRESULT _stdcall is_in_wh([out, retval] BSTR* Value);
+ [propput, id(0x000000F6)]
+ HRESULT _stdcall is_in_wh([in] BSTR Value);
+ [propget, id(0x000000F7)]
+ HRESULT _stdcall oldcaseinfo([out, retval] BSTR* Value);
+ [propput, id(0x000000F7)]
+ HRESULT _stdcall oldcaseinfo([in] BSTR Value);
+ [propget, id(0x000000F8)]
+ HRESULT _stdcall printyn([out, retval] BSTR* Value);
+ [propput, id(0x000000F8)]
+ HRESULT _stdcall printyn([in] BSTR Value);
+ [propget, id(0x000000F9)]
+ HRESULT _stdcall is_oldcase([out, retval] BSTR* Value);
+ [propput, id(0x000000F9)]
+ HRESULT _stdcall is_oldcase([in] BSTR Value);
+ [propget, id(0x000000FA)]
+ HRESULT _stdcall custdocyn([out, retval] BSTR* Value);
+ [propput, id(0x000000FA)]
+ HRESULT _stdcall custdocyn([in] BSTR Value);
+ [propget, id(0x000000FB)]
+ HRESULT _stdcall scancolor([out, retval] BSTR* Value);
+ [propput, id(0x000000FB)]
+ HRESULT _stdcall scancolor([in] BSTR Value);
+ [propget, id(0x000000FC)]
+ HRESULT _stdcall imgdpi([out, retval] BSTR* Value);
+ [propput, id(0x000000FC)]
+ HRESULT _stdcall imgdpi([in] BSTR Value);
+ [propget, id(0x000000FD)]
+ HRESULT _stdcall filesizelimit([out, retval] BSTR* Value);
+ [propput, id(0x000000FD)]
+ HRESULT _stdcall filesizelimit([in] BSTR Value);
+ [propget, id(0x000000FE)]
+ HRESULT _stdcall casenolength([out, retval] BSTR* Value);
+ [propput, id(0x000000FE)]
+ HRESULT _stdcall casenolength([in] BSTR Value);
+ [propget, id(0x000000FF)]
+ HRESULT _stdcall imgdelete([out, retval] BSTR* Value);
+ [propput, id(0x000000FF)]
+ HRESULT _stdcall imgdelete([in] BSTR Value);
+ [propget, id(0x00000100)]
+ HRESULT _stdcall isExternal([out, retval] BSTR* Value);
+ [propput, id(0x00000100)]
+ HRESULT _stdcall isExternal([in] BSTR Value);
+ [propget, id(0x00000101)]
+ HRESULT _stdcall check_main_form([out, retval] BSTR* Value);
+ [propput, id(0x00000101)]
+ HRESULT _stdcall check_main_form([in] BSTR Value);
+ [propget, id(0x00000102)]
+ HRESULT _stdcall WH_CATEGORY([out, retval] BSTR* Value);
+ [propput, id(0x00000102)]
+ HRESULT _stdcall WH_CATEGORY([in] BSTR Value);
+ };
+
+ [
+ uuid(B7FB8B05-8BDA-4DFD-BCCF-2B657E8A108A),
+ helpstring("Events interface for CB_IMGPSScanX Control")
+ ]
+ dispinterface ICB_IMGPSScanXEvents
+ {
+ properties:
+ methods:
+ [id(0x000000C9)]
+ void OnActivate(void);
+ [id(0x000000CA)]
+ void OnClick(void);
+ [id(0x000000CB)]
+ void OnCreate(void);
+ [id(0x000000CC)]
+ void OnDblClick(void);
+ [id(0x000000CD)]
+ void OnDestroy(void);
+ [id(0x000000CE)]
+ void OnDeactivate(void);
+ [id(0x000000CF)]
+ void OnKeyPress([in, out] short* Key);
+ [id(0x000000D0)]
+ void OnMouseEnter(void);
+ [id(0x000000D1)]
+ void OnMouseLeave(void);
+ [id(0x000000D2)]
+ void OnPaint(void);
+ [id(0x000000D3)]
+ HRESULT OnClosePage(void);
+ };
+
+ [
+ uuid(DC52273C-F064-4E73-A823-760261F94E8F),
+ helpstring("CB_IMGPSScanX Control"),
+ control
+ ]
+ coclass CB_IMGPSScanX
+ {
+ [default] interface ICB_IMGPSScanX;
+ [default, source] dispinterface ICB_IMGPSScanXEvents;
+ };
+
+};
diff --git a/CB_IMGPSScan_test.tlb b/CB_IMGPSScan_test.tlb
new file mode 100644
index 0000000..de895f4
--- /dev/null
+++ b/CB_IMGPSScan_test.tlb
Binary files differ
diff --git a/CB_IMGPSScan_test_TLB.dcu b/CB_IMGPSScan_test_TLB.dcu
new file mode 100644
index 0000000..851882d
--- /dev/null
+++ b/CB_IMGPSScan_test_TLB.dcu
Binary files differ
diff --git a/CB_IMGPSScan_test_TLB.pas b/CB_IMGPSScan_test_TLB.pas
new file mode 100644
index 0000000..ceba3cb
--- /dev/null
+++ b/CB_IMGPSScan_test_TLB.pas
@@ -0,0 +1,397 @@
+unit CB_IMGPSScan_test_TLB;
+
+// ************************************************************************ //
+// WARNING
+// -------
+// The types declared in this file were generated from data read from a
+// Type Library. If this type library is explicitly or indirectly (via
+// another type library referring to this type library) re-imported, or the
+// 'Refresh' command of the Type Library Editor activated while editing the
+// Type Library, the contents of this file will be regenerated and all
+// manual modifications will be lost.
+// ************************************************************************ //
+
+// $Rev: 17252 $
+// File generated on 2022/11/7 �U�� 04:59:48 from Type Library described below.
+
+// ************************************************************************ //
+// Type Lib: D:\�u�@��\�M��\����@��\�v�����x\���y����\CB_IMGPSScan_test (1)
+// LIBID: {F7D1C429-BE85-4FAD-A058-36A41C2AAA89}
+// LCID: 0
+// Helpfile:
+// HelpString:
+// DepndLst:
+// (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
+// (2) v4.0 StdVCL, (stdvcl40.dll)
+// ************************************************************************ //
+{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
+{$WARN SYMBOL_PLATFORM OFF}
+{$WRITEABLECONST ON}
+{$VARPROPSETTER ON}
+{$ALIGN 4}
+interface
+
+uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL, Variants;
+
+
+// *********************************************************************//
+// GUIDS declared in the TypeLibrary. Following prefixes are used:
+// Type Libraries : LIBID_xxxx
+// CoClasses : CLASS_xxxx
+// DISPInterfaces : DIID_xxxx
+// Non-DISP interfaces: IID_xxxx
+// *********************************************************************//
+const
+ // TypeLibrary Major and minor versions
+ CB_IMGPSScan_testMajorVersion = 1;
+ CB_IMGPSScan_testMinorVersion = 0;
+
+ LIBID_CB_IMGPSScan_test: TGUID = '{F7D1C429-BE85-4FAD-A058-36A41C2AAA89}';
+
+ IID_ICB_IMGPSScanX: TGUID = '{E68A01E9-2798-497F-9FB8-4EAFB7CCE5B9}';
+ DIID_ICB_IMGPSScanXEvents: TGUID = '{B7FB8B05-8BDA-4DFD-BCCF-2B657E8A108A}';
+ CLASS_CB_IMGPSScanX: TGUID = '{DC52273C-F064-4E73-A823-760261F94E8F}';
+
+// *********************************************************************//
+// Declaration of Enumerations defined in Type Library
+// *********************************************************************//
+// Constants for enum TxActiveFormBorderStyle
+type
+ TxActiveFormBorderStyle = TOleEnum;
+const
+ afbNone = $00000000;
+ afbSingle = $00000001;
+ afbSunken = $00000002;
+ afbRaised = $00000003;
+
+// Constants for enum TxPrintScale
+type
+ TxPrintScale = TOleEnum;
+const
+ poNone = $00000000;
+ poProportional = $00000001;
+ poPrintToFit = $00000002;
+
+// Constants for enum TxMouseButton
+type
+ TxMouseButton = TOleEnum;
+const
+ mbLeft = $00000000;
+ mbRight = $00000001;
+ mbMiddle = $00000002;
+
+// Constants for enum TxPopupMode
+type
+ TxPopupMode = TOleEnum;
+const
+ pmNone = $00000000;
+ pmAuto = $00000001;
+ pmExplicit = $00000002;
+
+type
+
+// *********************************************************************//
+// Forward declaration of types defined in TypeLibrary
+// *********************************************************************//
+ ICB_IMGPSScanX = interface;
+ ICB_IMGPSScanXDisp = dispinterface;
+ ICB_IMGPSScanXEvents = dispinterface;
+
+// *********************************************************************//
+// Declaration of CoClasses defined in Type Library
+// (NOTE: Here we map each CoClass to its Default Interface)
+// *********************************************************************//
+ CB_IMGPSScanX = ICB_IMGPSScanX;
+
+
+// *********************************************************************//
+// Declaration of structures, unions and aliases.
+// *********************************************************************//
+ PPUserType1 = ^IFontDisp; {*}
+
+
+// *********************************************************************//
+// Interface: ICB_IMGPSScanX
+// Flags: (4416) Dual OleAutomation Dispatchable
+// GUID: {E68A01E9-2798-497F-9FB8-4EAFB7CCE5B9}
+// *********************************************************************//
+ ICB_IMGPSScanX = interface(IDispatch)
+ ['{E68A01E9-2798-497F-9FB8-4EAFB7CCE5B9}']
+ function Get_Visible: WordBool; safecall;
+ procedure Set_Visible(Value: WordBool); safecall;
+ function Get_AutoScroll: WordBool; safecall;
+ procedure Set_AutoScroll(Value: WordBool); safecall;
+ function Get_AutoSize: WordBool; safecall;
+ procedure Set_AutoSize(Value: WordBool); safecall;
+ function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
+ procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
+ function Get_Caption: WideString; safecall;
+ procedure Set_Caption(const Value: WideString); safecall;
+ function Get_Color: OLE_COLOR; safecall;
+ procedure Set_Color(Value: OLE_COLOR); safecall;
+ function Get_Font: IFontDisp; safecall;
+ procedure Set_Font(const Value: IFontDisp); safecall;
+ procedure _Set_Font(var Value: IFontDisp); safecall;
+ function Get_KeyPreview: WordBool; safecall;
+ procedure Set_KeyPreview(Value: WordBool); safecall;
+ function Get_PixelsPerInch: Integer; safecall;
+ procedure Set_PixelsPerInch(Value: Integer); safecall;
+ function Get_PrintScale: TxPrintScale; safecall;
+ procedure Set_PrintScale(Value: TxPrintScale); safecall;
+ function Get_Scaled: WordBool; safecall;
+ procedure Set_Scaled(Value: WordBool); safecall;
+ function Get_Active: WordBool; safecall;
+ function Get_DropTarget: WordBool; safecall;
+ procedure Set_DropTarget(Value: WordBool); safecall;
+ function Get_HelpFile: WideString; safecall;
+ procedure Set_HelpFile(const Value: WideString); safecall;
+ function Get_PopupMode: TxPopupMode; safecall;
+ procedure Set_PopupMode(Value: TxPopupMode); safecall;
+ function Get_ScreenSnap: WordBool; safecall;
+ procedure Set_ScreenSnap(Value: WordBool); safecall;
+ function Get_SnapBuffer: Integer; safecall;
+ procedure Set_SnapBuffer(Value: Integer); safecall;
+ function Get_DockSite: WordBool; safecall;
+ procedure Set_DockSite(Value: WordBool); safecall;
+ function Get_DoubleBuffered: WordBool; safecall;
+ procedure Set_DoubleBuffered(Value: WordBool); safecall;
+ function Get_AlignDisabled: WordBool; safecall;
+ function Get_MouseInClient: WordBool; safecall;
+ function Get_VisibleDockClientCount: Integer; safecall;
+ function Get_ParentDoubleBuffered: WordBool; safecall;
+ procedure Set_ParentDoubleBuffered(Value: WordBool); safecall;
+ function Get_UseDockManager: WordBool; safecall;
+ procedure Set_UseDockManager(Value: WordBool); safecall;
+ function Get_Enabled: WordBool; safecall;
+ procedure Set_Enabled(Value: WordBool); safecall;
+ function Get_ExplicitLeft: Integer; safecall;
+ function Get_ExplicitTop: Integer; safecall;
+ function Get_ExplicitWidth: Integer; safecall;
+ function Get_ExplicitHeight: Integer; safecall;
+ function Get_AlignWithMargins: WordBool; safecall;
+ procedure Set_AlignWithMargins(Value: WordBool); safecall;
+ function Get_ParentCustomHint: WordBool; safecall;
+ procedure Set_ParentCustomHint(Value: WordBool); safecall;
+ function Get_url: WideString; safecall;
+ procedure Set_url(const Value: WideString); safecall;
+ function Get_caseid: WideString; safecall;
+ procedure Set_caseid(const Value: WideString); safecall;
+ function Get_mode: WideString; safecall;
+ procedure Set_mode(const Value: WideString); safecall;
+ function Get_work_no: WideString; safecall;
+ procedure Set_work_no(const Value: WideString); safecall;
+ function Get_userid: WideString; safecall;
+ procedure Set_userid(const Value: WideString); safecall;
+ function Get_username: WideString; safecall;
+ procedure Set_username(const Value: WideString); safecall;
+ function Get_userunit: WideString; safecall;
+ procedure Set_userunit(const Value: WideString); safecall;
+ function Get_data: WideString; safecall;
+ procedure Set_data(const Value: WideString); safecall;
+ function Get_verify: WideString; safecall;
+ procedure Set_verify(const Value: WideString); safecall;
+ function Get_rewrite: WideString; safecall;
+ procedure Set_rewrite(const Value: WideString); safecall;
+ function Get_modename: WideString; safecall;
+ procedure Set_modename(const Value: WideString); safecall;
+ function Get_language: WideString; safecall;
+ procedure Set_language(const Value: WideString); safecall;
+ function Get_loandoc_value: WideString; safecall;
+ procedure Set_loandoc_value(const Value: WideString); safecall;
+ function Get_loandoc_enable: WideString; safecall;
+ procedure Set_loandoc_enable(const Value: WideString); safecall;
+ function Get_useproxy: WideString; safecall;
+ procedure Set_useproxy(const Value: WideString); safecall;
+ function Get_c_docnolist: WideString; safecall;
+ procedure Set_c_docnolist(const Value: WideString); safecall;
+ function Get_c_docnamelist: WideString; safecall;
+ procedure Set_c_docnamelist(const Value: WideString); safecall;
+ function Get_fixfilelist: WideString; safecall;
+ procedure Set_fixfilelist(const Value: WideString); safecall;
+ function Get_is_in_wh: WideString; safecall;
+ procedure Set_is_in_wh(const Value: WideString); safecall;
+ function Get_oldcaseinfo: WideString; safecall;
+ procedure Set_oldcaseinfo(const Value: WideString); safecall;
+ function Get_printyn: WideString; safecall;
+ procedure Set_printyn(const Value: WideString); safecall;
+ function Get_is_oldcase: WideString; safecall;
+ procedure Set_is_oldcase(const Value: WideString); safecall;
+ function Get_custdocyn: WideString; safecall;
+ procedure Set_custdocyn(const Value: WideString); safecall;
+ function Get_scancolor: WideString; safecall;
+ procedure Set_scancolor(const Value: WideString); safecall;
+ function Get_imgdpi: WideString; safecall;
+ procedure Set_imgdpi(const Value: WideString); safecall;
+ function Get_filesizelimit: WideString; safecall;
+ procedure Set_filesizelimit(const Value: WideString); safecall;
+ function Get_casenolength: WideString; safecall;
+ procedure Set_casenolength(const Value: WideString); safecall;
+ function Get_imgdelete: WideString; safecall;
+ procedure Set_imgdelete(const Value: WideString); safecall;
+ function Get_isExternal: WideString; safecall;
+ procedure Set_isExternal(const Value: WideString); safecall;
+ function Get_check_main_form: WideString; safecall;
+ procedure Set_check_main_form(const Value: WideString); safecall;
+ function Get_WH_CATEGORY: WideString; safecall;
+ procedure Set_WH_CATEGORY(const Value: WideString); safecall;
+ property Visible: WordBool read Get_Visible write Set_Visible;
+ property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
+ property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
+ property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle;
+ property Caption: WideString read Get_Caption write Set_Caption;
+ property Color: OLE_COLOR read Get_Color write Set_Color;
+ property Font: IFontDisp read Get_Font write Set_Font;
+ property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
+ property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
+ property PrintScale: TxPrintScale read Get_PrintScale write Set_PrintScale;
+ property Scaled: WordBool read Get_Scaled write Set_Scaled;
+ property Active: WordBool read Get_Active;
+ property DropTarget: WordBool read Get_DropTarget write Set_DropTarget;
+ property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
+ property PopupMode: TxPopupMode read Get_PopupMode write Set_PopupMode;
+ property ScreenSnap: WordBool read Get_ScreenSnap write Set_ScreenSnap;
+ property SnapBuffer: Integer read Get_SnapBuffer write Set_SnapBuffer;
+ property DockSite: WordBool read Get_DockSite write Set_DockSite;
+ property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
+ property AlignDisabled: WordBool read Get_AlignDisabled;
+ property MouseInClient: WordBool read Get_MouseInClient;
+ property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
+ property ParentDoubleBuffered: WordBool read Get_ParentDoubleBuffered write Set_ParentDoubleBuffered;
+ property UseDockManager: WordBool read Get_UseDockManager write Set_UseDockManager;
+ property Enabled: WordBool read Get_Enabled write Set_Enabled;
+ property ExplicitLeft: Integer read Get_ExplicitLeft;
+ property ExplicitTop: Integer read Get_ExplicitTop;
+ property ExplicitWidth: Integer read Get_ExplicitWidth;
+ property ExplicitHeight: Integer read Get_ExplicitHeight;
+ property AlignWithMargins: WordBool read Get_AlignWithMargins write Set_AlignWithMargins;
+ property ParentCustomHint: WordBool read Get_ParentCustomHint write Set_ParentCustomHint;
+ property url: WideString read Get_url write Set_url;
+ property caseid: WideString read Get_caseid write Set_caseid;
+ property mode: WideString read Get_mode write Set_mode;
+ property work_no: WideString read Get_work_no write Set_work_no;
+ property userid: WideString read Get_userid write Set_userid;
+ property username: WideString read Get_username write Set_username;
+ property userunit: WideString read Get_userunit write Set_userunit;
+ property data: WideString read Get_data write Set_data;
+ property verify: WideString read Get_verify write Set_verify;
+ property rewrite: WideString read Get_rewrite write Set_rewrite;
+ property modename: WideString read Get_modename write Set_modename;
+ property language: WideString read Get_language write Set_language;
+ property loandoc_value: WideString read Get_loandoc_value write Set_loandoc_value;
+ property loandoc_enable: WideString read Get_loandoc_enable write Set_loandoc_enable;
+ property useproxy: WideString read Get_useproxy write Set_useproxy;
+ property c_docnolist: WideString read Get_c_docnolist write Set_c_docnolist;
+ property c_docnamelist: WideString read Get_c_docnamelist write Set_c_docnamelist;
+ property fixfilelist: WideString read Get_fixfilelist write Set_fixfilelist;
+ property is_in_wh: WideString read Get_is_in_wh write Set_is_in_wh;
+ property oldcaseinfo: WideString read Get_oldcaseinfo write Set_oldcaseinfo;
+ property printyn: WideString read Get_printyn write Set_printyn;
+ property is_oldcase: WideString read Get_is_oldcase write Set_is_oldcase;
+ property custdocyn: WideString read Get_custdocyn write Set_custdocyn;
+ property scancolor: WideString read Get_scancolor write Set_scancolor;
+ property imgdpi: WideString read Get_imgdpi write Set_imgdpi;
+ property filesizelimit: WideString read Get_filesizelimit write Set_filesizelimit;
+ property casenolength: WideString read Get_casenolength write Set_casenolength;
+ property imgdelete: WideString read Get_imgdelete write Set_imgdelete;
+ property isExternal: WideString read Get_isExternal write Set_isExternal;
+ property check_main_form: WideString read Get_check_main_form write Set_check_main_form;
+ property WH_CATEGORY: WideString read Get_WH_CATEGORY write Set_WH_CATEGORY;
+ end;
+
+// *********************************************************************//
+// DispIntf: ICB_IMGPSScanXDisp
+// Flags: (4416) Dual OleAutomation Dispatchable
+// GUID: {E68A01E9-2798-497F-9FB8-4EAFB7CCE5B9}
+// *********************************************************************//
+ ICB_IMGPSScanXDisp = dispinterface
+ ['{E68A01E9-2798-497F-9FB8-4EAFB7CCE5B9}']
+ property Visible: WordBool dispid 201;
+ property AutoScroll: WordBool dispid 202;
+ property AutoSize: WordBool dispid 203;
+ property AxBorderStyle: TxActiveFormBorderStyle dispid 204;
+ property Caption: WideString dispid -518;
+ property Color: OLE_COLOR dispid -501;
+ property Font: IFontDisp dispid -512;
+ property KeyPreview: WordBool dispid 205;
+ property PixelsPerInch: Integer dispid 206;
+ property PrintScale: TxPrintScale dispid 207;
+ property Scaled: WordBool dispid 208;
+ property Active: WordBool readonly dispid 209;
+ property DropTarget: WordBool dispid 210;
+ property HelpFile: WideString dispid 211;
+ property PopupMode: TxPopupMode dispid 212;
+ property ScreenSnap: WordBool dispid 213;
+ property SnapBuffer: Integer dispid 214;
+ property DockSite: WordBool dispid 215;
+ property DoubleBuffered: WordBool dispid 216;
+ property AlignDisabled: WordBool readonly dispid 217;
+ property MouseInClient: WordBool readonly dispid 218;
+ property VisibleDockClientCount: Integer readonly dispid 219;
+ property ParentDoubleBuffered: WordBool dispid 220;
+ property UseDockManager: WordBool dispid 221;
+ property Enabled: WordBool dispid -514;
+ property ExplicitLeft: Integer readonly dispid 222;
+ property ExplicitTop: Integer readonly dispid 223;
+ property ExplicitWidth: Integer readonly dispid 224;
+ property ExplicitHeight: Integer readonly dispid 225;
+ property AlignWithMargins: WordBool dispid 226;
+ property ParentCustomHint: WordBool dispid 227;
+ property url: WideString dispid 228;
+ property caseid: WideString dispid 229;
+ property mode: WideString dispid 230;
+ property work_no: WideString dispid 231;
+ property userid: WideString dispid 232;
+ property username: WideString dispid 233;
+ property userunit: WideString dispid 234;
+ property data: WideString dispid 235;
+ property verify: WideString dispid 236;
+ property rewrite: WideString dispid 237;
+ property modename: WideString dispid 238;
+ property language: WideString dispid 239;
+ property loandoc_value: WideString dispid 240;
+ property loandoc_enable: WideString dispid 241;
+ property useproxy: WideString dispid 242;
+ property c_docnolist: WideString dispid 243;
+ property c_docnamelist: WideString dispid 244;
+ property fixfilelist: WideString dispid 245;
+ property is_in_wh: WideString dispid 246;
+ property oldcaseinfo: WideString dispid 247;
+ property printyn: WideString dispid 248;
+ property is_oldcase: WideString dispid 249;
+ property custdocyn: WideString dispid 250;
+ property scancolor: WideString dispid 251;
+ property imgdpi: WideString dispid 252;
+ property filesizelimit: WideString dispid 253;
+ property casenolength: WideString dispid 254;
+ property imgdelete: WideString dispid 255;
+ property isExternal: WideString dispid 256;
+ property check_main_form: WideString dispid 257;
+ property WH_CATEGORY: WideString dispid 258;
+ end;
+
+// *********************************************************************//
+// DispIntf: ICB_IMGPSScanXEvents
+// Flags: (0)
+// GUID: {B7FB8B05-8BDA-4DFD-BCCF-2B657E8A108A}
+// *********************************************************************//
+ ICB_IMGPSScanXEvents = dispinterface
+ ['{B7FB8B05-8BDA-4DFD-BCCF-2B657E8A108A}']
+ procedure OnActivate; dispid 201;
+ procedure OnClick; dispid 202;
+ procedure OnCreate; dispid 203;
+ procedure OnDblClick; dispid 204;
+ procedure OnDestroy; dispid 205;
+ procedure OnDeactivate; dispid 206;
+ procedure OnKeyPress(var Key: Smallint); dispid 207;
+ procedure OnMouseEnter; dispid 208;
+ procedure OnMouseLeave; dispid 209;
+ procedure OnPaint; dispid 210;
+ procedure OnClosePage; dispid 211;
+ end;
+
+implementation
+
+uses ComObj;
+
+end.
+
--
Gitblit v1.8.0