> procedure TForm1.Button1Click(Sender: TObject);
> var
> v :;
> a : CoObjDB;
> begin
> a := CoObjDB.Create;
> v:= a as IObjDB;
> end;

> procedure TForm1.Button1Click(Sender: TObject);
> var
> v :;
> a : CoObjDB;
> begin
> a := CoObjDB.Create;
> v:= a as IObjDB;
> end;

procedure TForm1.Button1Click(Sender: TObject);
var
  СreateObject : procedure (IID:TGUID; out Obj);
  _Mod         : Integer;  //хэндл модуля

  mainObjDB    : ObjDB;
begin
  _Mod := LoadLibrary(PChar('C:\Dgpp\bin\deObjDB.dll'));
  try
     СreateObject := GetProcAddress (_Mod, 'CreateObject');

     СreateObject (IObjDB, mainObjDB);
  finally
     FreeLibrary (_Mod);
  end;
end;

СreateObject (IObjDB, mainObjDB);

procedure TForm1.Button1Click(Sender: TObject);
var
  СreateObject : procedure (IID:TGUID; out Obj);
  _Mod         : Integer;  //хэндл модуля

  mainObjDB    : IObjDB;
begin
  _Mod := LoadLibrary(PChar('C:\Dgpp\bin\deObjDB.dll'));
  try
     СreateObject := GetProcAddress (_Mod, 'CreateObject');
     if @СreateObject = nil then begin
        MessageBox (0, 'СreateObject = nil', '', MB_OK);
        exit;
     end;

     СreateObject (IObjDB, mainObjDB);
  finally
     FreeLibrary (_Mod);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  СreateObject : procedure (IID:TGUID; out Obj);
  _Mod         : Integer;  //хэндл модуля

  mainObjDB    : IObjDB;
begin
  SetCurrentDirectory ('C:\');
  _Mod := LoadLibrary ('C:\deObjDB.dll');
  if _Mod = 0 then begin
     MessageBox (0, 'Библиотека не загрузилась :(', '', MB_OK);
     exit;
  end;
  try
     СreateObject := GetProcAddress (_Mod, 'CreateObject');
     if not Assigned(@СreateObject) then MessageBox (0, 'СreateObject = nil', '', MB_OK)
     else                                СreateObject (IObjDB, mainObjDB);
  finally
     FreeLibrary (_Mod);
  end;
end;

  _Mod := LoadLibrary ('C:\deObjDB.dll');
  str :=  IntToStr(GetLastError);

CoLoadLibrary
Loads a specific DLL into the caller's process. CoLoadLibrary is equivalent to LoadLibraryEx. CoLoadLibrary does not do anything about the lifetime of the library.

Copy Code
       HINSTANCE CoLoadLibrary(
 LPOLESTR lpszLibName,
 BOOL bAutoFree
);
Parameters

lpszLibName
[in] Points to the name of the library to be loaded. The use of this name is the same as in the Win32 function LoadLibrary.

bAutoFree
[in] If TRUE, indicates that this library is freed when it is no longer needed, through a call to either the CoFreeUnusedLibraries or CoUninitialize functions. If FALSE, the library should be explicitly freed with the CoFreeLibrary function.

Note:  
The bAutoFree parameter is used only for 16-bit applications. This parameter is ignored for 32-bit and 64-bit applications.


Return Values

Module Handle
Handle of the loaded library.

NULL
Library could not be loaded.

Remarks

The CoGetClassObject function does not call CoLoadLibrary. CoLoadLibrary loads a DLL specified by the lpszLibName parameter into the process that called CoGetClassObject. Containers should not call CoLoadLibrary directly.

Internally, a reference count is kept on the loaded DLL, by using CoLoadLibrary to increment the count and the CoFreeLibrary function to decrement it.

Public Type TParamConnect
  Base As String
  Server As String
  BackupPath As String
  User As String
  Password As String
End Type

Public Function ConnectAdd(ParamCon As TParamConnect, strAliasDb As String) As deObjDBLib.IObjDBConnection
  Dim pXmlDoc As New MSXML2.DOMDocument
  Dim xmlField As IXMLDOMElement
  Dim pObjDb As New deObjDBLib.ObjDB
 
  Set xmlField = pXmlDoc.appendChild(pXmlDoc.createElement("CONNECTION"))
  xmlField.setAttribute "Base", ParamCon.Base
  xmlField.setAttribute "Server", ParamCon.Server
  xmlField.setAttribute "BackupPath", ParamCon.BackupPath

  Dim pNewConn As deObjDBLib.IObjDBConnection
  Set pNewConn = pObjDb.Connect(xmlField, ParamCon.User, ParamCon.Password)
  Set ConnectAdd = pNewConn
End Function

Dim pObjDb As New deObjDBLib.ObjDB

Dim pObjDb As New deObjDBLib.ObjDB

procedure TForm1.Button1Click(Sender: TObject);
var
v : IObjDB;
begin
 v := CoObjDB.Create;
end;

Sub Макрос1()
'
' Макрос1 Макрос
'
  Dim pObjDb As deObjDBLib.ObjDB
  Set pObjDb = New deObjDBLib.ObjDB
  Set pObjDb = Nothing
'
End Sub

> procedure TForm1.Button1Click(Sender: TObject);
> var
> v : IObjDB;
> begin
>  v := CoObjDB.Create;
> end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoInitFlags := Х;
end;

unit deObjDBLib_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: 5081 $
// File generated on 13.08.2007 19:43:14 from Type Library described below.

// ************************************************************************  //
// Type Lib: c:\Dgpp\bin\deObjDB.dll (1)
// LIBID: {741B2D1D-A526-459B-8039-A9D5B4C42391}
// LCID: 0
// Helpfile:
// HelpString: deObjDB 1.0 Type Library
// DepndLst:
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
//   (2) v2.0 MSXML, (C:\WINDOWS\system32\msxml.dll)
// Errors:
//   Error creating palette bitmap of (TObjDB) : Server c:\Dgpp\bin\deObjDB.dll contains no icons
//   Error creating palette bitmap of (TObjDBMetaObjectAdmin) : Server c:\Dgpp\bin\deObjDB.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You  
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively  
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, MSXML_TLB, OleServer, 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
 deObjDBLibMajorVersion = 1;
 deObjDBLibMinorVersion = 0;

 LIBID_deObjDBLib: TGUID = '{741B2D1D-A526-459B-8039-A9D5B4C42391}';

 IID_IObjDB: TGUID = '{9B1611B2-F442-47B3-BE6E-463C82F28F6F}';
 IID_IObjDBConnection: TGUID = '{9445894E-48CD-4292-97A0-B3726BA9E688}';
 IID_IObjDBTransaction: TGUID = '{B03776A6-3972-4408-89BF-2F4B5257740C}';
 IID_IObjDBDataObject: TGUID = '{F88AC266-F91E-47CA-86FB-3656F96AAC9B}';
 IID_IObjDBMetaObject: TGUID = '{59C477FB-6E85-4648-B212-3F0D1BBE32CE}';
 IID_IObjDBMetaAttribute: TGUID = '{35DCF7E0-A0B4-456A-884A-7FCB9E3305BA}';
 IID_IObjDBMetaAttributeIterator: TGUID = '{3A9D19CE-6F64-4E81-B59A-7742A588BBCD}';
 IID_IObjDBDataObjectList: TGUID = '{57E22502-72D1-4738-A8ED-574D8AD3AD7F}';
 IID_IObjDBDataObjectIterator: TGUID = '{99A25EAB-2556-44A4-9EBA-7FFC041AE366}';
 IID_IObjDBQuery: TGUID = '{1C7C4E48-4C3A-42DC-86FF-EC9D5A0DFCDA}';
 IID_IObjDBQueryField: TGUID = '{4C8FEAAC-253F-4F37-9926-E78AB2A07B1B}';
 IID_IObjDBFieldIterator: TGUID = '{A7CA6C49-00D2-4080-BB9B-2BB13D346C4F}';
 IID_IObjDBSubQueryIterator: TGUID = '{2EBEA483-A63A-46D3-8EDA-425AF61A50AF}';
 IID_IObjDBMetadata: TGUID = '{462A1C44-F2C4-4B62-8BD6-04F8E63F5D58}';
 IID_IObjDBMetaObjectIterator: TGUID = '{4B74F07F-1CD1-46BC-B3FF-4CBCBA87EEF5}';
 IID_IObjDBAdminConnection: TGUID = '{FEF651F2-607B-452A-9FC1-6FBD06386DCF}';
 IID_IObjDBMetadataAdmin: TGUID = '{303D0C2D-ABB2-4E15-BFFD-E20AE1C88F8A}';
 IID_IObjDBMetaObjectAdmin: TGUID = '{09D9074A-A60C-43B1-B2BD-9F25E13CA86F}';
 IID_IObjDBMetaAttributeAdmin: TGUID = '{69246215-D6E4-4D7F-B684-CBA25E7770D0}';
 DIID__IObjDBEvents: TGUID = '{7EAED95B-D75C-4729-8929-FC2E84580C41}';
 CLASS_ObjDB: TGUID = '{98F6535A-79B2-409B-9068-07BB7E2EC61D}';
 IID_IObjDBImportTransaction: TGUID = '{AA3C2771-BD60-4637-918E-7B5F28959520}';
 IID_IObjDBRiskyTransaction: TGUID = '{F00DE4C4-B925-45B8-85C6-85DF768AD375}';
 DIID__IObjDBTransactionEvents: TGUID = '{A3E68AAC-C9CF-47F5-8A12-E336B92614F1}';
 DIID__IObjDBConnectionEvents: TGUID = '{F9719E3F-10D5-48C7-8A2D-E397C4D43842}';
 DIID__IObjDBAdminConnectionEvents: TGUID = '{47CB1F8C-6402-44FA-A22B-D79986B097ED}';
 IID_IObjDBConnectionLifeControl: TGUID = '{9680E259-BED2-4F6A-B5ED-53049FACB7F6}';
 CLASS_ObjDBMetaObjectAdmin: TGUID = '{6CCD0008-9654-4B38-AA9B-86274069A899}';
 IID_IObjDBQueryFieldInfo: TGUID = '{E693C032-A3E0-4394-95E7-845ABC8C9086}';
 IID_IObjDBQueryFieldTimestamp: TGUID = '{16034C62-09D1-4E7C-BF14-F587137F8F8C}';
 IID_IObjDBQueryFieldInteger: TGUID = '{FDB0244C-5B30-4C09-8F07-42A2845664B9}';
 IID_IObjDBQueryFieldDouble: TGUID = '{38B668A5-2AA6-4919-B894-34A0AF9B8EBB}';
 IID_IObjDBQueryFieldString: TGUID = '{9C7F8740-D53F-4239-93E3-1B2EE7DB5D07}';
 IID_IObjDBQueryFieldBLOB: TGUID = '{D9AF9358-753B-4E82-9699-B36DF7BF3D85}';
 IID_IObjDBQueryFieldGUID: TGUID = '{713DA60E-CA0C-4A6B-9A8A-48C6B7EB48F7}';
 IID_IObjDBQueryFieldBoolean: TGUID = '{9872B799-4D6B-4968-AA6E-CDCAAF1F5831}';
 IID_IObjDBQueryFieldShape: TGUID = '{470B575D-5355-4E10-B9EE-A5012C37EB2E}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum EODBTransactionType
type
 EODBTransactionType = TOleEnum;
const
 ODBTrReadReport = $00000000;
 ODBTrReadCommited = $00000001;
 ODBTrWriteMassUpdate = $00000002;
 ODBTrWriteSingleUpdate = $00000003;

// Constants for enum EODBAttributeType
type
 EODBAttributeType = TOleEnum;
const
 ODBAttrTypeID = $00000001;
 ODBAttrTypeVersion = $00000002;
 ODBAttrTypeVersionList = $00000003;
 ODBAttrTypeParentID = $00000004;
 ODBAttrTypeUpdateTime = $00000005;
 ODBAttrTypeUpdateUser = $00000006;
 ODBAttrTypeVComments = $00000007;
 ODBAttrTypeName = $00000008;
 ODBAttrTypeInt = $00000064;
 ODBAttrTypeDouble = $00000065;
 ODBAttrTypeString = $00000066;
 ODBAttrTypeBLOB = $00000067;
 ODBAttrTypeGUID = $00000068;
 ODBAttrTypeBool = $00000069;
 ODBAttrTypeTimestamp = $0000006A;
 ODBAttrTypeShape = $0000006B;
 ODBAttrTypeDictRef = $000001F4;
 ODBAttrTypeSubObject = $000001F5;

// Constants for enum EODBQueryVersionScope
type
 EODBQueryVersionScope = TOleEnum;
const
 ODBQVSActual = $00000000;
 ODBQVSAllVersions = $00000001;
 ODBQVSDeleted = $00000002;

// Constants for enum EODBTransactionCloseReason
type
 EODBTransactionCloseReason = TOleEnum;
const
 ODBTrCloseByCommit = $00000000;
 ODBTrCloseByRollback = $00000001;
 ODBTrCloseByDisconnect = $00000002;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
 IObjDB = interface;
 IObjDBConnection = interface;
 IObjDBTransaction = interface;
 IObjDBDataObject = interface;
 IObjDBMetaObject = interface;
 IObjDBMetaAttribute = interface;
 IObjDBMetaAttributeIterator = interface;
 IObjDBDataObjectList = interface;
 IObjDBDataObjectIterator = interface;
 IObjDBQuery = interface;
 IObjDBQueryField = interface;
 IObjDBFieldIterator = interface;
 IObjDBSubQueryIterator = interface;
 IObjDBMetadata = interface;
 IObjDBMetaObjectIterator = interface;
 IObjDBAdminConnection = interface;
 IObjDBMetadataAdmin = interface;
 IObjDBMetaObjectAdmin = interface;
 IObjDBMetaAttributeAdmin = interface;
 _IObjDBEvents = dispinterface;
 IObjDBImportTransaction = interface;
 IObjDBRiskyTransaction = interface;
 _IObjDBTransactionEvents = dispinterface;
 _IObjDBConnectionEvents = dispinterface;
 _IObjDBAdminConnectionEvents = dispinterface;
 IObjDBConnectionLifeControl = interface;
 IObjDBQueryFieldInfo = interface;
 IObjDBQueryFieldTimestamp = interface;
 IObjDBQueryFieldInteger = interface;
 IObjDBQueryFieldDouble = interface;
 IObjDBQueryFieldString = interface;
 IObjDBQueryFieldBLOB = interface;
 IObjDBQueryFieldGUID = interface;
 IObjDBQueryFieldBoolean = interface;
 IObjDBQueryFieldShape = interface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                      
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
 ObjDB = IObjDB;
 ObjDBMetaObjectAdmin = IObjDBMetaObjectAdmin;

// *********************************************************************//
// Declaration of structures, unions and aliases.                        
// *********************************************************************//
 PUserType1 = ^TGUID; {*}

// *********************************************************************//
// Interface: IObjDB
// Flags:     (256) OleAutomation
// GUID:      {9B1611B2-F442-47B3-BE6E-463C82F28F6F}
// *********************************************************************//
 IObjDB = interface(IUnknown)
   ['{9B1611B2-F442-47B3-BE6E-463C82F28F6F}']
   function Connect(const pXMLConnection: IXMLDOMNode; const bstrUserLogin: WideString;
                    const bstrUserPassword: WideString; out ppNewConnection: IObjDBConnection): HResult; stdcall;
   function ConnectAdmin(const pXMLConnection: IXMLDOMNode; const bstrUserLogin: WideString;
                         const bstrUserPassword: WideString; const bstrDBALogin: WideString;
                         const bstrDBAPassword: WideString; bCreateBase: WordBool;
                         out ppNewConnection: IObjDBAdminConnection): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBConnection
// Flags:     (256) OleAutomation
// GUID:      {9445894E-48CD-4292-97A0-B3726BA9E688}
// *********************************************************************//
 IObjDBConnection = interface(IUnknown)
   ['{9445894E-48CD-4292-97A0-B3726BA9E688}']
   function StartTransaction(eTrType: EODBTransactionType; out ppNewTransaction: IObjDBTransaction): HResult; stdcall;
   function Get_Metadata(out pVal: IObjDBMetadata): HResult; stdcall;
   function SetUpdateUserLogon(const bstrUserLogon: WideString): HResult; stdcall;
   function BackupDatabaseUser(const bstrBackupFile: WideString; const bstrDBALogin: WideString;
                               const bstrDBAPassword: WideString): HResult; stdcall;
   function SuggestBackupFileName(out pVal: WideString): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBTransaction
// Flags:     (256) OleAutomation
// GUID:      {B03776A6-3972-4408-89BF-2F4B5257740C}
// *********************************************************************//
 IObjDBTransaction = interface(IUnknown)
   ['{B03776A6-3972-4408-89BF-2F4B5257740C}']
   function Commit: HResult; stdcall;
   function Rollback: HResult; stdcall;
   function Insert(const pDataObject: IObjDBDataObject): HResult; stdcall;
   function Update(const pDataObject: IObjDBDataObject): HResult; stdcall;
   function Delete(const pDataObject: IObjDBDataObject): HResult; stdcall;
   function DeleteByID(const pMetaObject: IObjDBMetaObject; nDataObjectID: SYSINT): HResult; stdcall;
   function Retrieve(const pMetaObject: IObjDBMetaObject; nDataObjectID: SYSINT;
                     out ppDataObject: IObjDBDataObject): HResult; stdcall;
   function RetrieveVersion(const pMetaObject: IObjDBMetaObject; nDataObjectVersion: SYSINT;
                            out ppDataObject: IObjDBDataObject): HResult; stdcall;
   function ExecuteQuery(const pQuery: IObjDBQuery): HResult; stdcall;
   function SetLock(const pDataObject: IObjDBDataObject): HResult; stdcall;
   function CommitRetaining: HResult; stdcall;
   function GetServerTime(out pVal: TDateTime): HResult; stdcall;
   function StartNestedTransaction(out pVal: IObjDBTransaction): HResult; stdcall;
   function RestoreByID(const pMetaObject: IObjDBMetaObject; nDataObjectID: SYSINT): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBDataObject
// Flags:     (256) OleAutomation
// GUID:      {F88AC266-F91E-47CA-86FB-3656F96AAC9B}
// *********************************************************************//
 IObjDBDataObject = interface(IUnknown)
   ['{F88AC266-F91E-47CA-86FB-3656F96AAC9B}']
   function GetMetaObject(out ppMetaObject: IObjDBMetaObject): HResult; stdcall;
   function GetID(out pVal: SYSINT): HResult; stdcall;
   function GetParentID(out pVal: SYSINT): HResult; stdcall;
   function GetVersion(out pVal: SYSINT): HResult; stdcall;
   function GetVComments(out pVal: WideString): HResult; stdcall;
   function GetUpdTime(out pVal: TDateTime): HResult; stdcall;
   function GetUpdUser(out pVal: WideString): HResult; stdcall;
   function GetName(out pVal: WideString): HResult; stdcall;
   function GetIntegerValue(const bstrAttrCode: WideString; out pVal: SYSINT): HResult; stdcall;
   function SetIntegerValue(const bstrAttrCode: WideString; nVal: SYSINT): HResult; stdcall;
   function GetDoubleValue(const bstrAttrCode: WideString; out pVal: Double): HResult; stdcall;
   function SetDoubleValue(const bstrAttrCode: WideString; dVal: Double): HResult; stdcall;
   function GetStringValue(const bstrAttrCode: WideString; out pVal: WideString): HResult; stdcall;
   function SetStringValue(const bstrAttrCode: WideString; const bstrVal: WideString): HResult; stdcall;
   function GetBLOBValue(const bstrAttrCode: WideString; out pVal: PSafeArray): HResult; stdcall;
   function SetBLOBValue(const bstrAttrCode: WideString; saVal: PSafeArray): HResult; stdcall;
   function GetBLOBValueVariant(const bstrAttrCode: WideString; out pVal: OleVariant): HResult; stdcall;
   function SetBLOBValueVariant(const bstrAttrCode: WideString; vVal: OleVariant): HResult; stdcall;
   function GetGUIDValue(const bstrAttrCode: WideString; out pVal: TGUID): HResult; stdcall;
   function SetGUIDValue(const bstrAttrCode: WideString; var guidVal: TGUID): HResult; stdcall;
   function GetGUIDValueText(const bstrAttrCode: WideString; out pVal: WideString): HResult; stdcall;
   function SetGUIDValueText(const bstrAttrCode: WideString; const bstrVal: WideString): HResult; stdcall;
   function GetBooleanValue(const bstrAttrCode: WideString; out pVal: WordBool): HResult; stdcall;
   function SetBooleanValue(const bstrAttrCode: WideString; bVal: WordBool): HResult; stdcall;
   function GetTimestampValue(const bstrAttrCode: WideString; out pVal: TDateTime): HResult; stdcall;
   function SetTimestampValue(const bstrAttrCode: WideString; tmVal: TDateTime): HResult; stdcall;
   function GetShapeValue(const bstrAttrCode: WideString; out pXMin: SYSINT; out pXMax: SYSINT;
                          out pYMin: SYSINT; out pYMax: SYSINT; out pVal: PSafeArray): HResult; stdcall;
   function SetShapeValue(const bstrAttrCode: WideString; nXMin: SYSINT; nXMax: SYSINT;
                          nYMin: SYSINT; nYMax: SYSINT; saVal: PSafeArray): HResult; stdcall;
   function GetShapeValueVariant(const bstrAttrCode: WideString; out pXMin: SYSINT;
                                 out pXMax: SYSINT; out pYMin: SYSINT; out pYMax: SYSINT;
                                 out pVal: OleVariant): HResult; stdcall;
   function SetShapeValueVariant(const bstrAttrCode: WideString; nXMin: SYSINT; nXMax: SYSINT;
                                 nYMin: SYSINT; nYMax: SYSINT; vVal: OleVariant): HResult; stdcall;
   function GetDictRefValue(const bstrAttrCode: WideString; out pVal: SYSINT): HResult; stdcall;
   function SetDictRefValue(const bstrAttrCode: WideString; nVal: SYSINT): HResult; stdcall;
   function GetSubObjValue(const bstrAttrCode: WideString; out pVal: IObjDBDataObjectList): HResult; stdcall;
   function IsNullValue(const bstrAttrCode: WideString; out pVal: WordBool): HResult; stdcall;
   function SetNullValue(const bstrAttrCode: WideString): HResult; stdcall;
   function GetMetaAttribute(const bstrAttrCode: WideString; out pVal: IObjDBMetaAttribute): HResult; stdcall;
   function Get_ReadOnly(out pVal: WordBool): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetaObject
// Flags:     (256) OleAutomation
// GUID:      {59C477FB-6E85-4648-B212-3F0D1BBE32CE}
// *********************************************************************//
 IObjDBMetaObject = interface(IUnknown)
   ['{59C477FB-6E85-4648-B212-3F0D1BBE32CE}']
   function GetName(out pVal: WideString): HResult; stdcall;
   function GetCode(out pVal: WideString): HResult; stdcall;
   function IsRequired(out pVal: WordBool): HResult; stdcall;
   function IsVersioned(out pVal: WordBool): HResult; stdcall;
   function GetNameExpression(out pVal: WideString): HResult; stdcall;
   function GetAttribute(const bstrCode: WideString; out ppMetaAttribute: IObjDBMetaAttribute): HResult; stdcall;
   function GetAttributeIterator(out pVal: IObjDBMetaAttributeIterator): HResult; stdcall;
   function MakeEmptyDataObject(out ppDataObject: IObjDBDataObject): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetaAttribute
// Flags:     (256) OleAutomation
// GUID:      {35DCF7E0-A0B4-456A-884A-7FCB9E3305BA}
// *********************************************************************//
 IObjDBMetaAttribute = interface(IUnknown)
   ['{35DCF7E0-A0B4-456A-884A-7FCB9E3305BA}']
   function GetName(out pVal: WideString): HResult; stdcall;
   function GetCode(out pVal: WideString): HResult; stdcall;
   function GetType(out pVal: EODBAttributeType): HResult; stdcall;
   function IsRequired(out pVal: WordBool): HResult; stdcall;
   function IsNullable(out pVal: WordBool): HResult; stdcall;
   function GetLength(out pVal: SYSINT): HResult; stdcall;
   function GetModuleParameters(out pVal: WideString): HResult; stdcall;
   function GetRefObject(out ppMetaObject: IObjDBMetaObject): HResult; stdcall;
   function IsIndexed(out pVal: WordBool): HResult; stdcall;
   function IsForeignKeyPresent(out pVal: WordBool): HResult; stdcall;
   function GetOwner(out pVal: IObjDBMetaObject): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetaAttributeIterator
// Flags:     (256) OleAutomation
// GUID:      {3A9D19CE-6F64-4E81-B59A-7742A588BBCD}
// *********************************************************************//
 IObjDBMetaAttributeIterator = interface(IUnknown)
   ['{3A9D19CE-6F64-4E81-B59A-7742A588BBCD}']
   function GetNextAttribute(out ppMetaAttribute: IObjDBMetaAttribute): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBDataObjectList
// Flags:     (256) OleAutomation
// GUID:      {57E22502-72D1-4738-A8ED-574D8AD3AD7F}
// *********************************************************************//
 IObjDBDataObjectList = interface(IUnknown)
   ['{57E22502-72D1-4738-A8ED-574D8AD3AD7F}']
   function GetDataObjectIterator(out pVal: IObjDBDataObjectIterator): HResult; stdcall;
   function AddNewDataObject(out ppDataObject: IObjDBDataObject): HResult; stdcall;
   function RemoveDataObject(const pDataObject: IObjDBDataObject): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBDataObjectIterator
// Flags:     (256) OleAutomation
// GUID:      {99A25EAB-2556-44A4-9EBA-7FFC041AE366}
// *********************************************************************//
 IObjDBDataObjectIterator = interface(IUnknown)
   ['{99A25EAB-2556-44A4-9EBA-7FFC041AE366}']
   function GetNextDataObject(out ppDataObject: IObjDBDataObject): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQuery
// Flags:     (256) OleAutomation
// GUID:      {1C7C4E48-4C3A-42DC-86FF-EC9D5A0DFCDA}
// *********************************************************************//
 IObjDBQuery = interface(IUnknown)
   ['{1C7C4E48-4C3A-42DC-86FF-EC9D5A0DFCDA}']
   function Fetch(out pAvailable: WordBool): HResult; stdcall;
   function Close: HResult; stdcall;
   function GetField(const bstrFieldName: WideString; out ppField: IObjDBQueryField): HResult; stdcall;
   function GetSubQuery(const bstrFieldName: WideString; out ppSubQuery: IObjDBQuery): HResult; stdcall;
   function GetMetaObject(out ppMetaObject: IObjDBMetaObject): HResult; stdcall;
   function GetName(out pName: WideString): HResult; stdcall;
   function IsPartOfParentQuery(out pPart: WordBool): HResult; stdcall;
   function GetFieldIterator(out ppVal: IObjDBFieldIterator): HResult; stdcall;
   function GetSubQueryIterator(out ppVal: IObjDBSubQueryIterator): HResult; stdcall;
   function GetVersionScope(out pVal: EODBQueryVersionScope): HResult; stdcall;
   function GetPositionInParentQuery(out pVal: SYSINT): HResult; stdcall;
   function GetInnerQueryString(out pVal: WideString): HResult; stdcall;
   function GetFullName(out pFullName: WideString): HResult; stdcall;
   function GetParentQuery(out pVal: IObjDBQuery): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryField
// Flags:     (256) OleAutomation
// GUID:      {4C8FEAAC-253F-4F37-9926-E78AB2A07B1B}
// *********************************************************************//
 IObjDBQueryField = interface(IUnknown)
   ['{4C8FEAAC-253F-4F37-9926-E78AB2A07B1B}']
   function GetName(out pName: WideString): HResult; stdcall;
   function IsNullValue(out pVal: WordBool): HResult; stdcall;
   function GetMetaAttribute(out pVal: IObjDBMetaAttribute): HResult; stdcall;
   function GetPositionInQuery(out pVal: SYSINT): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBFieldIterator
// Flags:     (256) OleAutomation
// GUID:      {A7CA6C49-00D2-4080-BB9B-2BB13D346C4F}
// *********************************************************************//
 IObjDBFieldIterator = interface(IUnknown)
   ['{A7CA6C49-00D2-4080-BB9B-2BB13D346C4F}']
   function GetNextField(out ppField: IObjDBQueryField): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBSubQueryIterator
// Flags:     (256) OleAutomation
// GUID:      {2EBEA483-A63A-46D3-8EDA-425AF61A50AF}
// *********************************************************************//
 IObjDBSubQueryIterator = interface(IUnknown)
   ['{2EBEA483-A63A-46D3-8EDA-425AF61A50AF}']
   function GetNextSubQuery(out ppQuery: IObjDBQuery): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetadata
// Flags:     (256) OleAutomation
// GUID:      {462A1C44-F2C4-4B62-8BD6-04F8E63F5D58}
// *********************************************************************//
 IObjDBMetadata = interface(IUnknown)
   ['{462A1C44-F2C4-4B62-8BD6-04F8E63F5D58}']
   function GetMetaObject(const bstrCode: WideString; out ppMetaObject: IObjDBMetaObject): HResult; stdcall;
   function GetMetaObjectIterator(out pVal: IObjDBMetaObjectIterator): HResult; stdcall;
   function PrepareQuery(const bstrQuery: WideString; out ppQueryObject: IObjDBQuery): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetaObjectIterator
// Flags:     (256) OleAutomation
// GUID:      {4B74F07F-1CD1-46BC-B3FF-4CBCBA87EEF5}
// *********************************************************************//
 IObjDBMetaObjectIterator = interface(IUnknown)
   ['{4B74F07F-1CD1-46BC-B3FF-4CBCBA87EEF5}']
   function GetNextMetaObject(out ppMetaObject: IObjDBMetaObject): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBAdminConnection
// Flags:     (256) OleAutomation
// GUID:      {FEF651F2-607B-452A-9FC1-6FBD06386DCF}
// *********************************************************************//
 IObjDBAdminConnection = interface(IObjDBConnection)
   ['{FEF651F2-607B-452A-9FC1-6FBD06386DCF}']
   function BackupDatabase(const bstrBackupFile: WideString): HResult; stdcall;
   function RestoreIndices: HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetadataAdmin
// Flags:     (256) OleAutomation
// GUID:      {303D0C2D-ABB2-4E15-BFFD-E20AE1C88F8A}
// *********************************************************************//
 IObjDBMetadataAdmin = interface(IObjDBMetadata)
   ['{303D0C2D-ABB2-4E15-BFFD-E20AE1C88F8A}']
   function AddMetaObject(const pMetaObject: IObjDBMetaObjectAdmin): HResult; stdcall;
   function RemoveMetaObject(const pMetaObject: IObjDBMetaObjectAdmin): HResult; stdcall;
   function ApplyObjectStructure(const pXMLObjStruct: IXMLDOMNode): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetaObjectAdmin
// Flags:     (256) OleAutomation
// GUID:      {09D9074A-A60C-43B1-B2BD-9F25E13CA86F}
// *********************************************************************//
 IObjDBMetaObjectAdmin = interface(IObjDBMetaObject)
   ['{09D9074A-A60C-43B1-B2BD-9F25E13CA86F}']
   function SetName(const newVal: WideString): HResult; stdcall;
   function SetCode(const newVal: WideString): HResult; stdcall;
   function SetRequired(newVal: WordBool): HResult; stdcall;
   function SetVersioned(newVal: WordBool): HResult; stdcall;
   function SetNameExpression(const newVal: WideString): HResult; stdcall;
   function AddIntegerAttribute(const bstrCode: WideString; const bstrName: WideString;
                                bIsRequired: WordBool; bIsNullable: WordBool;
                                const bstrModPar: WideString;
                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddDoubleAttribute(const bstrCode: WideString; const bstrName: WideString;
                               bIsRequired: WordBool; bIsNullable: WordBool;
                               const bstrModPar: WideString;
                               out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddStringAttribute(const bstrCode: WideString; const bstrName: WideString;
                               nLength: SYSINT; bIsRequired: WordBool;
                               const bstrModPar: WideString;
                               out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddBLOBAttribute(const bstrCode: WideString; const bstrName: WideString;
                             bIsRequired: WordBool; bIsNullable: WordBool; nLength: SYSINT;
                             const bstrModPar: WideString;
                             out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddGUIDAttribute(const bstrCode: WideString; const bstrName: WideString;
                             bIsRequired: WordBool; bIsNullable: WordBool;
                             const bstrModPar: WideString;
                             out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddBooleanAttribute(const bstrCode: WideString; const bstrName: WideString;
                                bIsRequired: WordBool; const bstrModPar: WideString;
                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddTimestampAttribute(const bstrCode: WideString; const bstrName: WideString;
                                  bIsRequired: WordBool; bIsNullable: WordBool;
                                  const bstrModPar: WideString;
                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddShapeAttribute(const bstrCode: WideString; const bstrName: WideString;
                              bIsRequired: WordBool; nLength: SYSINT;
                              const bstrModPar: WideString;
                              out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddDictRefAttribute(const bstrCode: WideString; const bstrName: WideString;
                                bIsRequired: WordBool; bIsNullable: WordBool;
                                const bstrModPar: WideString; const pRefObject: IObjDBMetaObject;
                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function AddSubObjectAttribute(const bstrCode: WideString; const bstrName: WideString;
                                  bIsRequired: WordBool; const bstrModPar: WideString;
                                  const pRefObject: IObjDBMetaObject;
                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
   function RemoveAttribute(const pMetaAttribute: IObjDBMetaAttributeAdmin): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBMetaAttributeAdmin
// Flags:     (256) OleAutomation
// GUID:      {69246215-D6E4-4D7F-B684-CBA25E7770D0}
// *********************************************************************//
 IObjDBMetaAttributeAdmin = interface(IObjDBMetaAttribute)
   ['{69246215-D6E4-4D7F-B684-CBA25E7770D0}']
   function SetName(const newVal: WideString): HResult; stdcall;
   function SetRequired(newVal: WordBool): HResult; stdcall;
   function SetNullable(newVal: WordBool): HResult; stdcall;
   function SetLength(newVal: SYSINT): HResult; stdcall;
   function SetModuleParameters(const newVal: WideString): HResult; stdcall;
   function SetIndexed(newVal: WordBool): HResult; stdcall;
   function SetForeignKeyPresent(newVal: WordBool): HResult; stdcall;
 end;

// *********************************************************************//
// DispIntf:  _IObjDBEvents
// Flags:     (4096) Dispatchable
// GUID:      {7EAED95B-D75C-4729-8929-FC2E84580C41}
// *********************************************************************//
 _IObjDBEvents = dispinterface
   ['{7EAED95B-D75C-4729-8929-FC2E84580C41}']
 end;

// *********************************************************************//
// Interface: IObjDBImportTransaction
// Flags:     (256) OleAutomation
// GUID:      {AA3C2771-BD60-4637-918E-7B5F28959520}
// *********************************************************************//
 IObjDBImportTransaction = interface(IUnknown)
   ['{AA3C2771-BD60-4637-918E-7B5F28959520}']
   function Get_Generator(const pMetaObject: IObjDBMetaObject; out pVal: Integer): HResult; stdcall;
   function Set_Generator(const pMetaObject: IObjDBMetaObject; pVal: Integer): HResult; stdcall;
   function Insert(const pDataObject: IObjDBDataObject; nId: Integer; nVersion: Integer): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBRiskyTransaction
// Flags:     (256) OleAutomation
// GUID:      {F00DE4C4-B925-45B8-85C6-85DF768AD375}
// *********************************************************************//
 IObjDBRiskyTransaction = interface(IUnknown)
   ['{F00DE4C4-B925-45B8-85C6-85DF768AD375}']
   function Insert(const pDataObject: IObjDBDataObject; nId: Integer): HResult; stdcall;
 end;

// *********************************************************************//
// DispIntf:  _IObjDBTransactionEvents
// Flags:     (4096) Dispatchable
// GUID:      {A3E68AAC-C9CF-47F5-8A12-E336B92614F1}
// *********************************************************************//
 _IObjDBTransactionEvents = dispinterface
   ['{A3E68AAC-C9CF-47F5-8A12-E336B92614F1}']
   procedure TransactionClosed(eCloseReason: EODBTransactionCloseReason); dispid 1;
 end;

// *********************************************************************//
// DispIntf:  _IObjDBConnectionEvents
// Flags:     (4096) Dispatchable
// GUID:      {F9719E3F-10D5-48C7-8A2D-E397C4D43842}
// *********************************************************************//
 _IObjDBConnectionEvents = dispinterface
   ['{F9719E3F-10D5-48C7-8A2D-E397C4D43842}']
 end;

// *********************************************************************//
// DispIntf:  _IObjDBAdminConnectionEvents
// Flags:     (4096) Dispatchable
// GUID:      {47CB1F8C-6402-44FA-A22B-D79986B097ED}
// *********************************************************************//
 _IObjDBAdminConnectionEvents = dispinterface
   ['{47CB1F8C-6402-44FA-A22B-D79986B097ED}']
 end;

// *********************************************************************//
// Interface: IObjDBConnectionLifeControl
// Flags:     (256) OleAutomation
// GUID:      {9680E259-BED2-4F6A-B5ED-53049FACB7F6}
// *********************************************************************//
 IObjDBConnectionLifeControl = interface(IUnknown)
   ['{9680E259-BED2-4F6A-B5ED-53049FACB7F6}']
   function CloseConnection: HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldInfo
// Flags:     (256) OleAutomation
// GUID:      {E693C032-A3E0-4394-95E7-845ABC8C9086}
// *********************************************************************//
 IObjDBQueryFieldInfo = interface(IUnknown)
   ['{E693C032-A3E0-4394-95E7-845ABC8C9086}']
   function GetName(out pName: WideString): HResult; stdcall;
   function GetMetaAttribute(out pVal: IObjDBMetaAttribute): HResult; stdcall;
   function GetQuery(out pVal: IObjDBQuery): HResult; stdcall;
   function GetPositionInQuery(out pVal: SYSINT): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldTimestamp
// Flags:     (256) OleAutomation
// GUID:      {16034C62-09D1-4E7C-BF14-F587137F8F8C}
// *********************************************************************//
 IObjDBQueryFieldTimestamp = interface(IObjDBQueryField)
   ['{16034C62-09D1-4E7C-BF14-F587137F8F8C}']
   function GetValue(out pVal: TDateTime): HResult; stdcall;
   function SetParam(val1: TDateTime): HResult; stdcall;
   function SetBetweenParams(val1: TDateTime; val2: TDateTime): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldInteger
// Flags:     (256) OleAutomation
// GUID:      {FDB0244C-5B30-4C09-8F07-42A2845664B9}
// *********************************************************************//
 IObjDBQueryFieldInteger = interface(IObjDBQueryField)
   ['{FDB0244C-5B30-4C09-8F07-42A2845664B9}']
   function GetValue(out pVal: SYSINT): HResult; stdcall;
   function SetParam(val1: SYSINT): HResult; stdcall;
   function SetBetweenParams(val1: SYSINT; val2: SYSINT): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldDouble
// Flags:     (256) OleAutomation
// GUID:      {38B668A5-2AA6-4919-B894-34A0AF9B8EBB}
// *********************************************************************//
 IObjDBQueryFieldDouble = interface(IObjDBQueryField)
   ['{38B668A5-2AA6-4919-B894-34A0AF9B8EBB}']
   function GetValue(out pVal: Double): HResult; stdcall;
   function SetParam(val1: Double): HResult; stdcall;
   function SetBetweenParams(val1: Double; val2: Double): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldString
// Flags:     (256) OleAutomation
// GUID:      {9C7F8740-D53F-4239-93E3-1B2EE7DB5D07}
// *********************************************************************//
 IObjDBQueryFieldString = interface(IObjDBQueryField)
   ['{9C7F8740-D53F-4239-93E3-1B2EE7DB5D07}']
   function GetValue(out pVal: WideString): HResult; stdcall;
   function SetParam(const val1: WideString): HResult; stdcall;
   function SetBetweenParams(const val1: WideString; const val2: WideString): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldBLOB
// Flags:     (256) OleAutomation
// GUID:      {D9AF9358-753B-4E82-9699-B36DF7BF3D85}
// *********************************************************************//
 IObjDBQueryFieldBLOB = interface(IObjDBQueryField)
   ['{D9AF9358-753B-4E82-9699-B36DF7BF3D85}']
   function GetValue(out pVal: PSafeArray): HResult; stdcall;
   function GetValueVariant(out pVal: OleVariant): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldGUID
// Flags:     (256) OleAutomation
// GUID:      {713DA60E-CA0C-4A6B-9A8A-48C6B7EB48F7}
// *********************************************************************//
 IObjDBQueryFieldGUID = interface(IObjDBQueryField)
   ['{713DA60E-CA0C-4A6B-9A8A-48C6B7EB48F7}']
   function GetValue(out pVal: TGUID): HResult; stdcall;
   function GetValueText(out pVal: WideString): HResult; stdcall;
   function SetParam(var val1: TGUID): HResult; stdcall;
   function SetParamText(const val1: WideString): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldBoolean
// Flags:     (256) OleAutomation
// GUID:      {9872B799-4D6B-4968-AA6E-CDCAAF1F5831}
// *********************************************************************//
 IObjDBQueryFieldBoolean = interface(IObjDBQueryField)
   ['{9872B799-4D6B-4968-AA6E-CDCAAF1F5831}']
   function GetValue(out pVal: WordBool): HResult; stdcall;
   function SetParam(val1: WordBool): HResult; stdcall;
 end;

// *********************************************************************//
// Interface: IObjDBQueryFieldShape
// Flags:     (256) OleAutomation
// GUID:      {470B575D-5355-4E10-B9EE-A5012C37EB2E}
// *********************************************************************//
 IObjDBQueryFieldShape = interface(IObjDBQueryField)
   ['{470B575D-5355-4E10-B9EE-A5012C37EB2E}']
   function GetValue(out pXMin: SYSINT; out pXMax: SYSINT; out pYMin: SYSINT; out pYMax: SYSINT;
                     out pVal: PSafeArray): HResult; stdcall;
   function GetValueVariant(out pXMin: SYSINT; out pXMax: SYSINT; out pYMin: SYSINT;
                            out pYMax: SYSINT; out pVal: OleVariant): HResult; stdcall;
   function SetIntersectParam(nXMin: SYSINT; nXMax: SYSINT; nYMin: SYSINT; nYMax: SYSINT): HResult; stdcall;
 end;

// *********************************************************************//
// The Class CoObjDB provides a Create and CreateRemote method to          
// create instances of the default interface IObjDB exposed by              
// the CoClass ObjDB. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
 CoObjDB = class
   class function Create: IObjDB;
   class function CreateRemote(const MachineName: string): IObjDB;
 end;

// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TObjDB
// Help String      : ObjDB Class
// Default Interface: IObjDB
// Def. Intf. DISP? : No
// Event   Interface: _IObjDBEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
 TObjDBProperties= class;
{$ENDIF}
 TObjDB = class(TOleServer)
 private
   FIntf: IObjDB;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
   FProps: TObjDBProperties;
   function GetServerProperties: TObjDBProperties;
{$ENDIF}
   function GetDefaultInterface: IObjDB;
 protected
   procedure InitServerData; override;
   procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
 public
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy; override;
   procedure Connect; override;
   procedure ConnectTo(svrIntf: IObjDB);
   procedure Disconnect; override;
   function Connect1(const pXMLConnection: IXMLDOMNode; const bstrUserLogin: WideString;
                     const bstrUserPassword: WideString; out ppNewConnection: IObjDBConnection): HResult;
   function ConnectAdmin(const pXMLConnection: IXMLDOMNode; const bstrUserLogin: WideString;
                         const bstrUserPassword: WideString; const bstrDBALogin: WideString;
                         const bstrDBAPassword: WideString; bCreateBase: WordBool;
                         out ppNewConnection: IObjDBAdminConnection): HResult;
   property DefaultInterface: IObjDB read GetDefaultInterface;
 published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
   property Server: TObjDBProperties read GetServerProperties;
{$ENDIF}
 end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TObjDB
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
TObjDBProperties = class(TPersistent)
 private
   FServer:    TObjDB;
   function    GetDefaultInterface: IObjDB;
   constructor Create(AServer: TObjDB);
 protected
 public
   property DefaultInterface: IObjDB read GetDefaultInterface;
 published
 end;
{$ENDIF}

// *********************************************************************//
// The Class CoObjDBMetaObjectAdmin provides a Create and CreateRemote method to          
// create instances of the default interface IObjDBMetaObjectAdmin exposed by              
// the CoClass ObjDBMetaObjectAdmin. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
 CoObjDBMetaObjectAdmin = class
   class function Create: IObjDBMetaObjectAdmin;
   class function CreateRemote(const MachineName: string): IObjDBMetaObjectAdmin;
 end;

// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TObjDBMetaObjectAdmin
// Help String      : ObjDBMetaObjectAdmin Class
// Default Interface: IObjDBMetaObjectAdmin
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
 TObjDBMetaObjectAdminProperties= class;
{$ENDIF}
 TObjDBMetaObjectAdmin = class(TOleServer)
 private
   FIntf: IObjDBMetaObjectAdmin;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
   FProps: TObjDBMetaObjectAdminProperties;
   function GetServerProperties: TObjDBMetaObjectAdminProperties;
{$ENDIF}
   function GetDefaultInterface: IObjDBMetaObjectAdmin;
 protected
   procedure InitServerData; override;
 public
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy; override;
   procedure Connect; override;
   procedure ConnectTo(svrIntf: IObjDBMetaObjectAdmin);
   procedure Disconnect; override;
   function GetName(out pVal: WideString): HResult;
   function GetCode(out pVal: WideString): HResult;
   function IsRequired(out pVal: WordBool): HResult;
   function IsVersioned(out pVal: WordBool): HResult;
   function GetNameExpression(out pVal: WideString): HResult;
   function GetAttribute(const bstrCode: WideString; out ppMetaAttribute: IObjDBMetaAttribute): HResult;
   function GetAttributeIterator(out pVal: IObjDBMetaAttributeIterator): HResult;
   function MakeEmptyDataObject(out ppDataObject: IObjDBDataObject): HResult;
   function SetName(const newVal: WideString): HResult;
   function SetCode(const newVal: WideString): HResult;
   function SetRequired(newVal: WordBool): HResult;
   function SetVersioned(newVal: WordBool): HResult;
   function SetNameExpression(const newVal: WideString): HResult;
   function AddIntegerAttribute(const bstrCode: WideString; const bstrName: WideString;
                                bIsRequired: WordBool; bIsNullable: WordBool;
                                const bstrModPar: WideString;
                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddDoubleAttribute(const bstrCode: WideString; const bstrName: WideString;
                               bIsRequired: WordBool; bIsNullable: WordBool;
                               const bstrModPar: WideString;
                               out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddStringAttribute(const bstrCode: WideString; const bstrName: WideString;
                               nLength: SYSINT; bIsRequired: WordBool;
                               const bstrModPar: WideString;
                               out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddBLOBAttribute(const bstrCode: WideString; const bstrName: WideString;
                             bIsRequired: WordBool; bIsNullable: WordBool; nLength: SYSINT;
                             const bstrModPar: WideString;
                             out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddGUIDAttribute(const bstrCode: WideString; const bstrName: WideString;
                             bIsRequired: WordBool; bIsNullable: WordBool;
                             const bstrModPar: WideString;
                             out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddBooleanAttribute(const bstrCode: WideString; const bstrName: WideString;
                                bIsRequired: WordBool; const bstrModPar: WideString;
                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddTimestampAttribute(const bstrCode: WideString; const bstrName: WideString;
                                  bIsRequired: WordBool; bIsNullable: WordBool;
                                  const bstrModPar: WideString;
                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddShapeAttribute(const bstrCode: WideString; const bstrName: WideString;
                              bIsRequired: WordBool; nLength: SYSINT;
                              const bstrModPar: WideString;
                              out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddDictRefAttribute(const bstrCode: WideString; const bstrName: WideString;
                                bIsRequired: WordBool; bIsNullable: WordBool;
                                const bstrModPar: WideString; const pRefObject: IObjDBMetaObject;
                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function AddSubObjectAttribute(const bstrCode: WideString; const bstrName: WideString;
                                  bIsRequired: WordBool; const bstrModPar: WideString;
                                  const pRefObject: IObjDBMetaObject;
                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   function RemoveAttribute(const pMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
   property DefaultInterface: IObjDBMetaObjectAdmin read GetDefaultInterface;
 published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
   property Server: TObjDBMetaObjectAdminProperties read GetServerProperties;
{$ENDIF}
 end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TObjDBMetaObjectAdmin
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
TObjDBMetaObjectAdminProperties = class(TPersistent)
 private
   FServer:    TObjDBMetaObjectAdmin;
   function    GetDefaultInterface: IObjDBMetaObjectAdmin;
   constructor Create(AServer: TObjDBMetaObjectAdmin);
 protected
 public
   property DefaultInterface: IObjDBMetaObjectAdmin read GetDefaultInterface;
 published
 end;
{$ENDIF}

procedure Register;

resourcestring
 dtlServerPage = 'geObjDB';

 dtlOcxPage = 'geObjDB';

implementation

uses ComObj;

class function CoObjDB.Create: IObjDB;
begin
 Result := CreateComObject(CLASS_ObjDB) as IObjDB;
end;

class function CoObjDB.CreateRemote(const MachineName: string): IObjDB;
begin
 Result := CreateRemoteComObject(MachineName, CLASS_ObjDB) as IObjDB;
end;

procedure TObjDB.InitServerData;
const
 CServerData: TServerData = (
   ClassID:   '{98F6535A-79B2-409B-9068-07BB7E2EC61D}';
   IntfIID:   '{9B1611B2-F442-47B3-BE6E-463C82F28F6F}';
   EventIID:  '{7EAED95B-D75C-4729-8929-FC2E84580C41}';
   LicenseKey: nil;
   Version: 500);
begin
 ServerData := @CServerData;
end;

procedure TObjDB.Connect;
var
 punk: IUnknown;
begin
 if FIntf = nil then
 begin
   punk := GetServer;
   ConnectEvents(punk);
   Fintf:= punk as IObjDB;
 end;
end;

procedure TObjDB.ConnectTo(svrIntf: IObjDB);
begin
 Disconnect;
 FIntf := svrIntf;
 ConnectEvents(FIntf);
end;

procedure TObjDB.DisConnect;
begin
 if Fintf <> nil then
 begin
   DisconnectEvents(FIntf);
   FIntf := nil;
 end;
end;

function TObjDB.GetDefaultInterface: IObjDB;
begin
 if FIntf = nil then
   Connect;
 Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
 Result := FIntf;
end;

constructor TObjDB.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
 FProps := TObjDBProperties.Create(Self);
{$ENDIF}
end;

destructor TObjDB.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
 FProps.Free;
{$ENDIF}
 inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TObjDB.GetServerProperties: TObjDBProperties;
begin
 Result := FProps;
end;
{$ENDIF}

procedure TObjDB.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
 case DispID of
   -1: Exit;  // DISPID_UNKNOWN
 end; {case DispID}
end;

function TObjDB.Connect1(const pXMLConnection: IXMLDOMNode; const bstrUserLogin: WideString;
                        const bstrUserPassword: WideString; out ppNewConnection: IObjDBConnection): HResult;
begin
 Result := DefaultInterface.Connect(pXMLConnection, bstrUserLogin, bstrUserPassword,
                                    ppNewConnection);
end;

function TObjDB.ConnectAdmin(const pXMLConnection: IXMLDOMNode; const bstrUserLogin: WideString;
                            const bstrUserPassword: WideString; const bstrDBALogin: WideString;
                            const bstrDBAPassword: WideString; bCreateBase: WordBool;
                            out ppNewConnection: IObjDBAdminConnection): HResult;
begin
 Result := DefaultInterface.ConnectAdmin(pXMLConnection, bstrUserLogin, bstrUserPassword,
                                         bstrDBALogin, bstrDBAPassword, bCreateBase,
                                         ppNewConnection);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TObjDBProperties.Create(AServer: TObjDB);
begin
 inherited Create;
 FServer := AServer;
end;

function TObjDBProperties.GetDefaultInterface: IObjDB;
begin
 Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoObjDBMetaObjectAdmin.Create: IObjDBMetaObjectAdmin;
begin
 Result := CreateComObject(CLASS_ObjDBMetaObjectAdmin) as IObjDBMetaObjectAdmin;
end;

class function CoObjDBMetaObjectAdmin.CreateRemote(const MachineName: string): IObjDBMetaObjectAdmin;
begin
 Result := CreateRemoteComObject(MachineName, CLASS_ObjDBMetaObjectAdmin) as IObjDBMetaObjectAdmin;
end;

procedure TObjDBMetaObjectAdmin.InitServerData;
const
 CServerData: TServerData = (
   ClassID:   '{6CCD0008-9654-4B38-AA9B-86274069A899}';
   IntfIID:   '{09D9074A-A60C-43B1-B2BD-9F25E13CA86F}';
   EventIID:  '';
   LicenseKey: nil;
   Version: 500);
begin
 ServerData := @CServerData;
end;

procedure TObjDBMetaObjectAdmin.Connect;
var
 punk: IUnknown;
begin
 if FIntf = nil then
 begin
   punk := GetServer;
   Fintf:= punk as IObjDBMetaObjectAdmin;
 end;
end;

procedure TObjDBMetaObjectAdmin.ConnectTo(svrIntf: IObjDBMetaObjectAdmin);
begin
 Disconnect;
 FIntf := svrIntf;
end;

procedure TObjDBMetaObjectAdmin.DisConnect;
begin
 if Fintf <> nil then
 begin
   FIntf := nil;
 end;
end;

function TObjDBMetaObjectAdmin.GetDefaultInterface: IObjDBMetaObjectAdmin;
begin
 if FIntf = nil then
   Connect;
 Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call \"Connect\" or \"ConnectTo\" before this operation');
 Result := FIntf;
end;

constructor TObjDBMetaObjectAdmin.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
 FProps := TObjDBMetaObjectAdminProperties.Create(Self);
{$ENDIF}
end;

destructor TObjDBMetaObjectAdmin.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
 FProps.Free;
{$ENDIF}
 inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TObjDBMetaObjectAdmin.GetServerProperties: TObjDBMetaObjectAdminProperties;
begin
 Result := FProps;
end;
{$ENDIF}

function TObjDBMetaObjectAdmin.GetName(out pVal: WideString): HResult;
begin
 Result := DefaultInterface.GetName(pVal);
end;

function TObjDBMetaObjectAdmin.GetCode(out pVal: WideString): HResult;
begin
 Result := DefaultInterface.GetCode(pVal);
end;

function TObjDBMetaObjectAdmin.IsRequired(out pVal: WordBool): HResult;
begin
 Result := DefaultInterface.IsRequired(pVal);
end;

function TObjDBMetaObjectAdmin.IsVersioned(out pVal: WordBool): HResult;
begin
 Result := DefaultInterface.IsVersioned(pVal);
end;

function TObjDBMetaObjectAdmin.GetNameExpression(out pVal: WideString): HResult;
begin
 Result := DefaultInterface.GetNameExpression(pVal);
end;

function TObjDBMetaObjectAdmin.GetAttribute(const bstrCode: WideString;
                                           out ppMetaAttribute: IObjDBMetaAttribute): HResult;
begin
 Result := DefaultInterface.GetAttribute(bstrCode, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.GetAttributeIterator(out pVal: IObjDBMetaAttributeIterator): HResult;
begin
 Result := DefaultInterface.GetAttributeIterator(pVal);
end;

function TObjDBMetaObjectAdmin.MakeEmptyDataObject(out ppDataObject: IObjDBDataObject): HResult;
begin
 Result := DefaultInterface.MakeEmptyDataObject(ppDataObject);
end;

function TObjDBMetaObjectAdmin.SetName(const newVal: WideString): HResult;
begin
 Result := DefaultInterface.SetName(newVal);
end;

function TObjDBMetaObjectAdmin.SetCode(const newVal: WideString): HResult;
begin
 Result := DefaultInterface.SetCode(newVal);
end;

function TObjDBMetaObjectAdmin.SetRequired(newVal: WordBool): HResult;
begin
 Result := DefaultInterface.SetRequired(newVal);
end;

function TObjDBMetaObjectAdmin.SetVersioned(newVal: WordBool): HResult;
begin
 Result := DefaultInterface.SetVersioned(newVal);
end;

function TObjDBMetaObjectAdmin.SetNameExpression(const newVal: WideString): HResult;
begin
 Result := DefaultInterface.SetNameExpression(newVal);
end;

function TObjDBMetaObjectAdmin.AddIntegerAttribute(const bstrCode: WideString;
                                                  const bstrName: WideString;
                                                  bIsRequired: WordBool; bIsNullable: WordBool;
                                                  const bstrModPar: WideString;
                                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddIntegerAttribute(bstrCode, bstrName, bIsRequired, bIsNullable,
                                                bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddDoubleAttribute(const bstrCode: WideString;
                                                 const bstrName: WideString;
                                                 bIsRequired: WordBool; bIsNullable: WordBool;
                                                 const bstrModPar: WideString;
                                                 out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddDoubleAttribute(bstrCode, bstrName, bIsRequired, bIsNullable,
                                               bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddStringAttribute(const bstrCode: WideString;
                                                 const bstrName: WideString; nLength: SYSINT;
                                                 bIsRequired: WordBool;
                                                 const bstrModPar: WideString;
                                                 out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddStringAttribute(bstrCode, bstrName, nLength, bIsRequired,
                                               bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddBLOBAttribute(const bstrCode: WideString;
                                               const bstrName: WideString; bIsRequired: WordBool;
                                               bIsNullable: WordBool; nLength: SYSINT;
                                               const bstrModPar: WideString;
                                               out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddBLOBAttribute(bstrCode, bstrName, bIsRequired, bIsNullable,
                                             nLength, bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddGUIDAttribute(const bstrCode: WideString;
                                               const bstrName: WideString; bIsRequired: WordBool;
                                               bIsNullable: WordBool;
                                               const bstrModPar: WideString;
                                               out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddGUIDAttribute(bstrCode, bstrName, bIsRequired, bIsNullable,
                                             bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddBooleanAttribute(const bstrCode: WideString;
                                                  const bstrName: WideString;
                                                  bIsRequired: WordBool;
                                                  const bstrModPar: WideString;
                                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddBooleanAttribute(bstrCode, bstrName, bIsRequired, bstrModPar,
                                                ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddTimestampAttribute(const bstrCode: WideString;
                                                    const bstrName: WideString;
                                                    bIsRequired: WordBool; bIsNullable: WordBool;
                                                    const bstrModPar: WideString;
                                                    out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddTimestampAttribute(bstrCode, bstrName, bIsRequired, bIsNullable,
                                                  bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddShapeAttribute(const bstrCode: WideString;
                                                const bstrName: WideString; bIsRequired: WordBool;
                                                nLength: SYSINT; const bstrModPar: WideString;
                                                out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddShapeAttribute(bstrCode, bstrName, bIsRequired, nLength,
                                              bstrModPar, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddDictRefAttribute(const bstrCode: WideString;
                                                  const bstrName: WideString;
                                                  bIsRequired: WordBool; bIsNullable: WordBool;
                                                  const bstrModPar: WideString;
                                                  const pRefObject: IObjDBMetaObject;
                                                  out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddDictRefAttribute(bstrCode, bstrName, bIsRequired, bIsNullable,
                                                bstrModPar, pRefObject, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.AddSubObjectAttribute(const bstrCode: WideString;
                                                    const bstrName: WideString;
                                                    bIsRequired: WordBool;
                                                    const bstrModPar: WideString;
                                                    const pRefObject: IObjDBMetaObject;
                                                    out ppMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.AddSubObjectAttribute(bstrCode, bstrName, bIsRequired, bstrModPar,
                                                  pRefObject, ppMetaAttribute);
end;

function TObjDBMetaObjectAdmin.RemoveAttribute(const pMetaAttribute: IObjDBMetaAttributeAdmin): HResult;
begin
 Result := DefaultInterface.RemoveAttribute(pMetaAttribute);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TObjDBMetaObjectAdminProperties.Create(AServer: TObjDBMetaObjectAdmin);
begin
 inherited Create;
 FServer := AServer;
end;

function TObjDBMetaObjectAdminProperties.GetDefaultInterface: IObjDBMetaObjectAdmin;
begin
 Result := FServer.DefaultInterface;
end;

{$ENDIF}

procedure Register;
begin
 RegisterComponents(dtlServerPage, [TObjDB, TObjDBMetaObjectAdmin]);
end;

end.