Ver 2,0,1,77

Hong-Dell\Hong

2022-11-08 ef8675b8cf493c2b08c428b8f9f5e35a5c52e51c

Ver 2,0,1,77

1.元件拆成正式與測試使用不同classid

 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"/>

 CB_IMGPSScan.ocx

Binary files differ

 CB_IMGPSScan.res

Binary files differ

 CB_IMGPSScanImp.dcu

Binary files differ

 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

 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;


 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.

 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>

 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>

 CB_IMGPSScan_test.identcache

Binary files differ

 CB_IMGPSScan_test.ocx

Binary files differ

 CB_IMGPSScan_test.res

Binary files differ

 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;
  };

};

 CB_IMGPSScan_test.tlb

Binary files differ

 CB_IMGPSScan_test_TLB.dcu

Binary files differ

 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.