bckj_tlb.pas

三层的通用架构

unit bckj_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.                                         
// ************************************************************************ //

// PASTLWTR : $Revision:   1.130.3.0.1.0  $
// File generated on 2002-12-03 16:17:44 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\Project\bckj.tlb (1)
// LIBID: {F35CB223-5714-4BF5-964F-7EA543F1F66A}
// LCID: 0
// Helpfile: 
// DepndLst: 
//   (1) v1.0 Midas, (C:\WINDOWS\SYSTEM\midas.dll)
//   (2) v2.0 stdole, (C:\WINDOWS\SYSTEM\stdole2.tlb)
//   (3) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}

interface

uses Windows, ActiveX, Classes, Graphics, Midas, 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
  bckjMajorVersion = 1;
  bckjMinorVersion = 0;

  LIBID_bckj: TGUID = '{F35CB223-5714-4BF5-964F-7EA543F1F66A}';

  IID_IDefaultRDM: TGUID = '{59EA197A-9292-43B1-8FE5-8ABE16162406}';
  CLASS_DefaultRDM: TGUID = '{3DD28C32-19B7-4891-AA44-EF85A411CF2E}';
  IID_IDefaultRDM1: TGUID = '{BE989373-8A93-4E9D-94DD-2C79364D1C86}';
  CLASS_DefaultRDM1: TGUID = '{18CFAF5C-D87D-4987-8BF1-42A020322E0F}';
  IID_IDefaultRDM2: TGUID = '{62D94D1F-F69F-4EC1-9449-3C7137DD4C02}';
  CLASS_DefaultRDM2: TGUID = '{18D37B10-560A-4D7C-A3CF-DD74EFE380FE}';
  IID_IDefaultRDM3: TGUID = '{D7EA057C-E9C9-4DC1-954A-B913C9C22A5D}';
  CLASS_DefaultRDM3: TGUID = '{B96628E3-4A50-4400-9A06-39D80BD4E090}';
  IID_IDefaultRDM4: TGUID = '{9066767D-6CDD-476D-84DF-33848DBD0F5D}';
  CLASS_DefaultRDM4: TGUID = '{3A8F39A5-5BBE-46E3-BDB7-E74579BC3286}';
  IID_IDefaultRDM5: TGUID = '{B1C888B9-C759-46F8-B9FC-2B72909D0F6C}';
  CLASS_DefaultRDM5: TGUID = '{02006866-3F32-4D22-9E4B-568B8113363F}';
  IID_IDefaultRDM6: TGUID = '{43812501-EAE6-4731-B8E4-BCB359A3773B}';
  CLASS_DefaultRDM6: TGUID = '{D84DEC1C-C3DE-4FEA-8554-3A986214A3BD}';
  IID_IDefaultRDM7: TGUID = '{234B2687-5C40-4E46-8DBB-39E582D59328}';
  CLASS_DefaultRDM7: TGUID = '{AC72E37E-20A7-48F0-B3AA-C10C82F0D7D2}';
  IID_IDefaultRDM8: TGUID = '{4B493F35-FDFD-4693-93AB-70A1F6A41B20}';
  CLASS_DefaultRDM8: TGUID = '{FA0CC0AC-E054-44B1-9ABD-DD67267BC943}';
  IID_IDefaultRDM9: TGUID = '{2D50F005-D41C-4121-89BC-0E0E4DC915AB}';
  CLASS_DefaultRDM9: TGUID = '{DAC97CAC-9211-4398-877B-E64451D9E8BB}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IDefaultRDM = interface;
  IDefaultRDMDisp = dispinterface;
  IDefaultRDM1 = interface;
  IDefaultRDM1Disp = dispinterface;
  IDefaultRDM2 = interface;
  IDefaultRDM2Disp = dispinterface;
  IDefaultRDM3 = interface;
  IDefaultRDM3Disp = dispinterface;
  IDefaultRDM4 = interface;
  IDefaultRDM4Disp = dispinterface;
  IDefaultRDM5 = interface;
  IDefaultRDM5Disp = dispinterface;
  IDefaultRDM6 = interface;
  IDefaultRDM6Disp = dispinterface;
  IDefaultRDM7 = interface;
  IDefaultRDM7Disp = dispinterface;
  IDefaultRDM8 = interface;
  IDefaultRDM8Disp = dispinterface;
  IDefaultRDM9 = interface;
  IDefaultRDM9Disp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  DefaultRDM = IDefaultRDM;
  DefaultRDM1 = IDefaultRDM1;
  DefaultRDM2 = IDefaultRDM2;
  DefaultRDM3 = IDefaultRDM3;
  DefaultRDM4 = IDefaultRDM4;
  DefaultRDM5 = IDefaultRDM5;
  DefaultRDM6 = IDefaultRDM6;
  DefaultRDM7 = IDefaultRDM7;
  DefaultRDM8 = IDefaultRDM8;
  DefaultRDM9 = IDefaultRDM9;


// *********************************************************************//
// Interface: IDefaultRDM
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {59EA197A-9292-43B1-8FE5-8ABE16162406}
// *********************************************************************//
  IDefaultRDM = interface(IAppServer)
    ['{59EA197A-9292-43B1-8FE5-8ABE16162406}']
    function Login(const UserName: WideString; const Password: WideString; EncryptFlag: WordBool): WordBool; safecall;
    function AddSQL(ClearFlag: WordBool; const SQLString: WideString; ExecFlag: WordBool): WordBool; safecall;
    function ChangePassword(const OldPassword: WideString; const NewPassword: WideString; 
                            EncryptFlag: WordBool): WordBool; safecall;
    procedure SetUpdateTableName(const TableName: WideString; const FieldIndexs: WideString); safecall;
    function GetErrorString(Index: Integer): WideString; safecall;
    function GetUserInfo(AllUsersFlag: WordBool): WideString; safecall;
    function ProcessPassword(const BasicStr: WideString; const Value: WideString; 
                             ToNatural: WordBool): WideString; safecall;
    function GetProcedureNames: WideString; safecall;
    function GetTableNames(SystemTables: WordBool): WideString; safecall;
    function GetFieldNames(const TableName: WideString): WideString; safecall;
    function GetRegisterUser: WideString; safecall;
    function SetUserValue(const UserName: WideString; const Value: WideString): WordBool; safecall;
    function GetDateTime: TDateTime; safecall;
    procedure BeginTrans; safecall;
    procedure CommitTrans(RollbackFlag: WordBool); safecall;
    procedure RollbackTrans; safecall;
    function Get_Object0: OleVariant; safecall;
    function Get_Object1: OleVariant; safecall;
    function Get_Object2: OleVariant; safecall;
    function Get_Object3: OleVariant; safecall;
    function Get_Object4: OleVariant; safecall;
    function Get_Object5: OleVariant; safecall;
    function Get_Object6: OleVariant; safecall;
    function Get_Object7: OleVariant; safecall;
    function Get_Object8: OleVariant; safecall;
    function Get_Object9: OleVariant; safecall;
    function Get_CustomObject: OleVariant; safecall;
    function ConnectNewObject(const TheClassName: WideString): WordBool; safecall;
    procedure DisConnectObject; safecall;
    function ProcessPassword2(const BasicStr: WideString; const Value: WideString): WideString; safecall;
    function StringEncrypt(const SourceString: WideString; const Password: WideString; 
                           EncryptFlag: WordBool): WideString; safecall;
    function StringCompress(const SourceString: WideString; CompressFlag: WordBool): WideString; safecall;
    property Object0: OleVariant read Get_Object0;
    property Object1: OleVariant read Get_Object1;
    property Object2: OleVariant read Get_Object2;
    property Object3: OleVariant read Get_Object3;
    property Object4: OleVariant read Get_Object4;
    property Object5: OleVariant read Get_Object5;
    property Object6: OleVariant read Get_Object6;
    property Object7: OleVariant read Get_Object7;
    property Object8: OleVariant read Get_Object8;
    property Object9: OleVariant read Get_Object9;
    property CustomObject: OleVariant read Get_CustomObject;
  end;

// *********************************************************************//
// DispIntf:  IDefaultRDMDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {59EA197A-9292-43B1-8FE5-8ABE16162406}
// *********************************************************************//
  IDefaultRDMDisp = dispinterface
    ['{59EA197A-9292-43B1-8FE5-8ABE16162406}']
    function Login(const UserName: WideString; const Password: WideString; EncryptFlag: WordBool): WordBool; dispid 1;
    function AddSQL(ClearFlag: WordBool; const SQLString: WideString; ExecFlag: WordBool): WordBool; dispid 2;
    function ChangePassword(const OldPassword: WideString; const NewPassword: WideString; 
                            EncryptFlag: WordBool): WordBool; dispid 3;
    procedure SetUpdateTableName(const TableName: WideString; const FieldIndexs: WideString); dispid 4;
    function GetErrorString(Index: Integer): WideString; dispid 5;
    function GetUserInfo(AllUsersFlag: WordBool): WideString; dispid 6;
    function ProcessPassword(const BasicStr: WideString; const Value: WideString; 
                             ToNatural: WordBool): WideString; dispid 7;
    function GetProcedureNames: WideString; dispid 8;
    function GetTableNames(SystemTables: WordBool): WideString; dispid 9;
    function GetFieldNames(const TableName: WideString): WideString; dispid 10;
    function GetRegisterUser: WideString; dispid 11;
    function SetUserValue(const UserName: WideString; const Value: WideString): WordBool; dispid 12;
    function GetDateTime: TDateTime; dispid 14;
    procedure BeginTrans; dispid 13;
    procedure CommitTrans(RollbackFlag: WordBool); dispid 16;
    procedure RollbackTrans; dispid 15;
    property Object0: OleVariant readonly dispid 17;
    property Object1: OleVariant readonly dispid 18;
    property Object2: OleVariant readonly dispid 19;
    property Object3: OleVariant readonly dispid 20;
    property Object4: OleVariant readonly dispid 21;
    property Object5: OleVariant readonly dispid 22;
    property Object6: OleVariant readonly dispid 23;
    property Object7: OleVariant readonly dispid 24;
    property Object8: OleVariant readonly dispid 25;
    property Object9: OleVariant readonly dispid 26;
    property CustomObject: OleVariant readonly dispid 27;
    function ConnectNewObject(const TheClassName: WideString): WordBool; dispid 28;
    procedure DisConnectObject; dispid 29;