MSDASC_TLB.pas

unit MSDASC_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.1.0.1.0.1.6  $
// File generated on 6/01/2006 10:57:36 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\Common Files\System\Ole DB\oledb32.dll (1)
// LIBID: {2206CEB0-19C1-11D1-89E0-00C04FD7A829}
// LCID: 0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
//   (2) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll)
// Errors:
//   Hint: Member 'type' of 'tagSTATSTG' changed to 'type_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, 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
  MSDASCMajorVersion = 1;
  MSDASCMinorVersion = 0;

  LIBID_MSDASC: TGUID = '{2206CEB0-19C1-11D1-89E0-00C04FD7A829}';

  IID_IDataSourceLocator: TGUID = '{2206CCB2-19C1-11D1-89E0-00C04FD7A829}';
  IID_IDBPromptInitialize: TGUID = '{2206CCB0-19C1-11D1-89E0-00C04FD7A829}';
  IID_IDataInitialize: TGUID = '{2206CCB1-19C1-11D1-89E0-00C04FD7A829}';
  CLASS_DataLinks: TGUID = '{2206CDB2-19C1-11D1-89E0-00C04FD7A829}';
  CLASS_MSDAINITIALIZE: TGUID = '{2206CDB0-19C1-11D1-89E0-00C04FD7A829}';
  IID_IPersist: TGUID = '{0000010C-0000-0000-C000-000000000046}';
  CLASS_PDPO: TGUID = '{CCB4EC60-B9DC-11D1-AC80-00A0C9034873}';
  IID_IPersistFile: TGUID = '{0000010B-0000-0000-C000-000000000046}';
  IID_IBindResource: TGUID = '{0C733AB1-2A1C-11CE-ADE5-00AA0044773D}';
  IID_ICreateRow: TGUID = '{0C733AB2-2A1C-11CE-ADE5-00AA0044773D}';
  IID_IAuthenticate: TGUID = '{79EAC9D0-BAF9-11CE-8C82-00AA004BA90B}';
  IID_IRegisterProvider: TGUID = '{0C733AB9-2A1C-11CE-ADE5-00AA0044773D}';
  IID_IDBProperties: TGUID = '{0C733A8A-2A1C-11CE-ADE5-00AA0044773D}';
  IID_IMarshal: TGUID = '{00000003-0000-0000-C000-000000000046}';
  IID_IDBBinderProperties: TGUID = '{0C733AB3-2A1C-11CE-ADE5-00AA0044773D}';
  IID_IErrorInfo: TGUID = '{1CF2B120-547D-101B-8E65-08002B2BD119}';
  CLASS_RootBinder: TGUID = '{FF151822-B0BF-11D1-A80D-000000000000}';
  IID_ISequentialStream: TGUID = '{0C733A30-2A1C-11CE-ADE5-00AA0044773D}';
  IID_IStream: TGUID = '{0000000C-0000-0000-C000-000000000046}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IDataSourceLocator = interface;
  IDataSourceLocatorDisp = dispinterface;
  IDBPromptInitialize = interface;
  IDataInitialize = interface;
  IPersist = interface;
  IPersistFile = interface;
  IBindResource = interface;
  ICreateRow = interface;
  IAuthenticate = interface;
  IRegisterProvider = interface;
  IDBProperties = interface;
  IMarshal = interface;
  IDBBinderProperties = interface;
  IErrorInfo = interface;
  ISequentialStream = interface;
  IStream = interface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  DataLinks = IDataSourceLocator;
  MSDAINITIALIZE = IDataInitialize;
  PDPO = IPersist;
  RootBinder = IBindResource;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  wireHWND = ^_RemotableHandle; 
  PUINT1 = ^LongWord; {*}
  PUserType1 = ^TGUID; {*}
  PUserType2 = ^_COSERVERINFO; {*}
  PPUserType1 = ^PUserType1; {*}
  PUserType3 = ^tagDBPROPIDSET; {*}
  PUserType4 = ^tagDBPROPSET; {*}
  PUserType5 = ^tagDBPROPINFOSET; {*}
  PWord1 = ^Word; {*}
  PByte1 = ^Byte; {*}


  __MIDL_IWinTypes_0009 = record
    case Integer of
      0: (hInproc: Integer);
      1: (hRemote: Integer);
  end;

  _RemotableHandle = packed record
    fContext: Integer;
    u: __MIDL_IWinTypes_0009;
  end;

  _COAUTHIDENTITY = packed record
    User: ^Word;
    UserLength: LongWord;
    Domain: ^Word;
    DomainLength: LongWord;
    Password: ^Word;
    PasswordLength: LongWord;
    Flags: LongWord;
  end;

  _COAUTHINFO = packed record
    dwAuthnSvc: LongWord;
    dwAuthzSvc: LongWord;
    pwszServerPrincName: PWideChar;
    dwAuthnLevel: LongWord;
    dwImpersonationLevel: LongWord;
    pAuthIdentityData: ^_COAUTHIDENTITY;
    dwCapabilities: LongWord;
  end;

  _COSERVERINFO = packed record
    dwReserved1: LongWord;
    pwszName: PWideChar;
    pAuthInfo: ^_COAUTHINFO;
    dwReserved2: LongWord;
  end;

  tagDBPROPIDSET = packed record
    rgPropertyIDs: ^LongWord;
    cPropertyIDs: LongWord;
    guidPropertySet: TGUID;
  end;

  __MIDL_DBStructureDefinitions_0001 = record
    case Integer of
      0: (guid: TGUID);
      1: (pguid: ^TGUID);
  end;

  __MIDL_DBStructureDefinitions_0002 = record
    case Integer of
      0: (pwszName: PWideChar);
      1: (ulPropid: LongWord);
  end;

  tagDBID = packed record
    uGuid: __MIDL_DBStructureDefinitions_0001;
    eKind: LongWord;
    uName: __MIDL_DBStructureDefinitions_0002;
  end;

  tagDBPROP = packed record
    dwPropertyID: LongWord;
    dwOptions: LongWord;
    dwStatus: LongWord;
    colid: tagDBID;
    vValue: OleVariant;
  end;

  tagDBPROPSET = packed record
    rgProperties: ^tagDBPROP;
    cProperties: LongWord;
    guidPropertySet: TGUID;
  end;

  tagDBPROPINFO = packed record
    pwszDescription: PWideChar;
    dwPropertyID: LongWord;
    dwFlags: LongWord;
    vtType: Word;
    vValues: OleVariant;
  end;

  tagDBPROPINFOSET = packed record
    rgPropertyInfos: ^tagDBPROPINFO;
    cPropertyInfos: LongWord;
    guidPropertySet: TGUID;
  end;

  _LARGE_INTEGER = packed record
    QuadPart: Int64;
  end;

  _ULARGE_INTEGER = packed record
    QuadPart: Largeuint;
  end;

  _FILETIME = packed record
    dwLowDateTime: LongWord;
    dwHighDateTime: LongWord;
  end;

  tagSTATSTG = packed record
    pwcsName: PWideChar;
    type_: LongWord;
    cbSize: _ULARGE_INTEGER;
    mtime: _FILETIME;
    ctime: _FILETIME;
    atime: _FILETIME;
    grfMode: LongWord;
    grfLocksSupported: LongWord;
    clsid: TGUID;
    grfStateBits: LongWord;
    reserved: LongWord;
  end;


// *********************************************************************//
// Interface: IDataSourceLocator
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2206CCB2-19C1-11D1-89E0-00C04FD7A829}
// *********************************************************************//
  IDataSourceLocator = interface(IDispatch)
    ['{2206CCB2-19C1-11D1-89E0-00C04FD7A829}']
    function Get_hWnd: Integer; safecall;
    procedure Set_hWnd(phwndParent: Integer); safecall;
    function PromptNew: IDispatch; safecall;
    function PromptEdit(var ppADOConnection: IDispatch): WordBool; safecall;
    property hWnd: Integer read Get_hWnd;
  end;

// *********************************************************************//
// DispIntf:  IDataSourceLocatorDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2206CCB2-19C1-11D1-89E0-00C04FD7A829}
// *********************************************************************//
  IDataSourceLocatorDisp = dispinterface
    ['{2206CCB2-19C1-11D1-89E0-00C04FD7A829}']
    property hWnd: Integer readonly dispid 1610743808;
    function PromptNew: IDispatch; dispid 1610743810;
    function PromptEdit(var ppADOConnection: IDispatch): WordBool; dispid 1610743811;
  end;

// *********************************************************************//
// Interface: IDBPromptInitialize
// Flags:     (512) Restricted
// GUID:      {2206CCB0-19C1-11D1-89E0-00C04FD7A829}
// *********************************************************************//
  IDBPromptInitialize = interface(IUnknown)
    ['{2206CCB0-19C1-11D1-89E0-00C04FD7A829}']
    function PromptDataSource(const pUnkOuter: IUnknown; var hWndParent: _RemotableHandle; 
                              dwPromptOptions: LongWord; cSourceTypeFilter: LongWord; 
                              var rgSourceTypeFilter: LongWord; pwszszzProviderFilter: PWideChar; 
                              var riid: TGUID; var ppDataSource: IUnknown): HResult; stdcall;
    function PromptFileName(var hWndParent: _RemotableHandle; dwPromptOptions: LongWord; 
                            pwszInitialDirectory: PWideChar; pwszInitialFile: PWideChar; 
                            out ppwszSelectedFile: PWideChar): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IDataInitialize
// Flags:     (0)
// GUID:      {2206CCB1-19C1-11D1-89E0-00C04FD7A829}
// *********************************************************************//
  IDataInitialize = interface(IUnknown)
    ['{2206CCB1-19C1-11D1-89E0-00C04FD7A829}']
    function GetDataSource(const pUnkOuter: IUnknown; dwClsCtx: LongWord; 
                           pwszInitializationString: PWideChar; var riid: TGUID; 
                           var ppDataSource: IUnknown): HResult; stdcall;
    function GetInitializationString(const pDataSource: IUnknown; fIncludePassword: Shortint; 
                                     out ppwszInitString: PWideChar): HResult; stdcall;
    function CreateDBInstance(var clsidProvider: TGUID; const pUnkOuter: IUnknown; 
                              dwClsCtx: LongWord; pwszReserved: PWideChar; var riid: TGUID; 
                              out ppDataSource: IUnknown): HResult; stdcall;
    function RemoteCreateDBInstanceEx(var clsidProvider: TGUID; const pUnkOuter: IUnknown; 
                                      dwClsCtx: LongWord; pwszReserved: PWideChar; 
                                      var pServerInfo: _COSERVERINFO; cmq: LongWord; 
                                      rgpIID: PPUserType1; out rgpItf: IUnknown; out rghr: HResult): HResult; stdcall;
    function LoadStringFromStorage(pwszFileName: PWideChar; out ppwszInitializationString: PWideChar): HResult; stdcall;
    function WriteStringToStorage(pwszFileName: PWideChar; pwszInitializationString: PWideChar; 
                                  dwCreationDisposition: LongWord): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IPersist
// Flags:     (0)
// GUID:      {0000010C-0000-0000-C000-000000000046}
// *********************************************************************//
  IPersist = interface(IUnknown)
    ['{0000010C-0000-0000-C000-000000000046}']
    function GetClassID(out pClassID: TGUID): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IPersistFile
// Flags:     (0)
// GUID:      {0000010B-0000-0000-C000-000000000046}
// *********************************************************************//
  IPersistFile = interface(IPersist)
    ['{0000010B-0000-0000-C000-000000000046}']
    function IsDirty: HResult; stdcall;
    function Load(pszFileName: PWideChar; dwMode: LongWord): HResult; stdcall;
    function Save(pszFileName: PWideChar; fRemember: Integer): HResult; stdcall;
    function SaveCompleted(pszFileName: PWideChar): HResult; stdcall;
    function GetCurFile(out ppszFileName: PWideChar): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IBindResource
// Flags:     (0)
// GUID:      {0C733AB1-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
  IBindResource = interface(IUnknown)
    ['{0C733AB1-2A1C-11CE-ADE5-00AA0044773D}']
    function RemoteBind(const pUnkOuter: IUnknown; pwszURL: PWideChar; dwBindURLFlags: LongWord; 
                        var rguid: TGUID; var riid: TGUID; const pAuthenticate: IAuthenticate; 
                        const pSessionUnkOuter: IUnknown; var piid: TGUID; var ppSession: IUnknown; 
                        var pdwBindStatus: LongWord; out ppUnk: IUnknown): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ICreateRow
// Flags:     (0)
// GUID:      {0C733AB2-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
  ICreateRow = interface(IUnknown)
    ['{0C733AB2-2A1C-11CE-ADE5-00AA0044773D}']
    function RemoteCreateRow(const pUnkOuter: IUnknown; pwszURL: PWideChar; 
                             dwBindURLFlags: LongWord; var rguid: TGUID; var riid: TGUID; 
                             const pAuthenticate: IAuthenticate; const pSessionUnkOuter: IUnknown; 
                             var piid: TGUID; var ppSession: IUnknown; var pdwBindStatus: LongWord; 
                             var ppwszNewURL: PWideChar; out ppUnk: IUnknown): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IAuthenticate
// Flags:     (0)
// GUID:      {79EAC9D0-BAF9-11CE-8C82-00AA004BA90B}
// *********************************************************************//
  IAuthenticate = interface(IUnknown)
    ['{79EAC9D0-BAF9-11CE-8C82-00AA004BA90B}']
    function Authenticate(out phwnd: wireHWND; out pszUsername: PWideChar; 
                          out pszPassword: PWideChar): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IRegisterProvider
// Flags:     (0)
// GUID:      {0C733AB9-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
  IRegisterProvider = interface(IUnknown)
    ['{0C733AB9-2A1C-11CE-ADE5-00AA0044773D}']
    function RemoteGetURLMapping(pwszURL: PWideChar; dwReserved: LongWord; out pclsidProvider: TGUID): HResult; stdcall;
    function SetURLMapping(pwszURL: PWideChar; dwReserved: LongWord; var rclsidProvider: TGUID): HResult; stdcall;
    function UnregisterProvider(pwszURL: PWideChar; dwReserved: LongWord; var rclsidProvider: TGUID): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IDBProperties
// Flags:     (0)
// GUID:      {0C733A8A-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
  IDBProperties = interface(IUnknown)
    ['{0C733A8A-2A1C-11CE-ADE5-00AA0044773D}']
    function RemoteGetProperties(cPropertyIDSets: LongWord; var rgPropertyIDSets: tagDBPROPIDSET; 
                                 var pcPropertySets: LongWord; out prgPropertySets: PUserType4; 
                                 out ppErrorInfoRem: IErrorInfo): HResult; stdcall;
    function RemoteGetPropertyInfo(cPropertyIDSets: LongWord; var rgPropertyIDSets: tagDBPROPIDSET; 
                                   var pcPropertyInfoSets: LongWord; 
                                   out prgPropertyInfoSets: PUserType5; var pcOffsets: LongWord; 
                                   out prgDescOffsets: PUINT1; var pcbDescBuffer: LongWord; 
                                   var ppDescBuffer: PWord1; out ppErrorInfoRem: IErrorInfo): HResult; stdcall;
    function RemoteSetProperties(cPropertySets: LongWord; var rgPropertySets: tagDBPROPSET; 
                                 cTotalProps: LongWord; out rgPropStatus: LongWord; 
                                 out ppErrorInfoRem: IErrorInfo): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IMarshal
// Flags:     (0)
// GUID:      {00000003-0000-0000-C000-000000000046}
// *********************************************************************//
  IMarshal = interface(IUnknown)
    ['{00000003-0000-0000-C000-000000000046}']
    function GetUnmarshalClass(var riid: TGUID; var pv: Pointer; dwDestContext: LongWord; 
                               var pvDestContext: Pointer; mshlflags: LongWord; out pCid: TGUID): HResult; stdcall;
    function GetMarshalSizeMax(var riid: TGUID; var pv: Pointer; dwDestContext: LongWord; 
                               var pvDestContext: Pointer; mshlflags: LongWord; out pSize: LongWord): HResult; stdcall;
    function MarshalInterface(const pstm: ISequentialStream; var riid: TGUID; var pv: Pointer; 
                              dwDestContext: LongWord; var pvDestContext: Pointer; 
                              mshlflags: LongWord): HResult; stdcall;
    function UnmarshalInterface(const pstm: ISequentialStream; var riid: TGUID; out ppv: Pointer): HResult; stdcall;
    function ReleaseMarshalData(const pstm: ISequentialStream): HResult; stdcall;
    function DisconnectObject(dwReserved: LongWord): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IDBBinderProperties
// Flags:     (0)
// GUID:      {0C733AB3-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
  IDBBinderProperties = interface(IDBProperties)
    ['{0C733AB3-2A1C-11CE-ADE5-00AA0044773D}']
    function Reset: HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IErrorInfo
// Flags:     (0)
// GUID:      {1CF2B120-547D-101B-8E65-08002B2BD119}
// *********************************************************************//
  IErrorInfo = interface(IUnknown)
    ['{1CF2B120-547D-101B-8E65-08002B2BD119}']
    function GetGUID(out pguid: TGUID): HResult; stdcall;
    function GetSource(out pBstrSource: WideString): HResult; stdcall;
    function GetDescription(out pBstrDescription: WideString): HResult; stdcall;
    function GetHelpFile(out pBstrHelpFile: WideString): HResult; stdcall;
    function GetHelpContext(out pdwHelpContext: LongWord): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ISequentialStream
// Flags:     (0)
// GUID:      {0C733A30-2A1C-11CE-ADE5-00AA0044773D}
// *********************************************************************//
  ISequentialStream = interface(IUnknown)
    ['{0C733A30-2A1C-11CE-ADE5-00AA0044773D}']
    function RemoteRead(out pv: Byte; cb: LongWord; out pcbRead: LongWord): HResult; stdcall;
    function RemoteWrite(var pv: Byte; cb: LongWord; out pcbWritten: LongWord): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IStream
// Flags:     (0)
// GUID:      {0000000C-0000-0000-C000-000000000046}
// *********************************************************************//
  IStream = interface(ISequentialStream)
    ['{0000000C-0000-0000-C000-000000000046}']
    function RemoteSeek(dlibMove: _LARGE_INTEGER; dwOrigin: LongWord; 
                        out plibNewPosition: _ULARGE_INTEGER): HResult; stdcall;
    function SetSize(libNewSize: _ULARGE_INTEGER): HResult; stdcall;
    function RemoteCopyTo(const pstm: ISequentialStream; cb: _ULARGE_INTEGER; 
                          out pcbRead: _ULARGE_INTEGER; out pcbWritten: _ULARGE_INTEGER): HResult; stdcall;
    function Commit(grfCommitFlags: LongWord): HResult; stdcall;
    function Revert: HResult; stdcall;
    function LockRegion(libOffset: _ULARGE_INTEGER; cb: _ULARGE_INTEGER; dwLockType: LongWord): HResult; stdcall;
    function UnlockRegion(libOffset: _ULARGE_INTEGER; cb: _ULARGE_INTEGER; dwLockType: LongWord): HResult; stdcall;
    function Stat(out pstatstg: tagSTATSTG; grfStatFlag: LongWord): HResult; stdcall;
    function Clone(out ppstm: ISequentialStream): HResult; stdcall;
  end;

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

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

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

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

implementation

uses ComObj;

class function CoDataLinks.Create: IDataSourceLocator;
begin
  Result := CreateComObject(CLASS_DataLinks) as IDataSourceLocator;
end;

class function CoDataLinks.CreateRemote(const MachineName: string): IDataSourceLocator;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_DataLinks) as IDataSourceLocator;
end;

class function CoMSDAINITIALIZE.Create: IDataInitialize;
begin
  Result := CreateComObject(CLASS_MSDAINITIALIZE) as IDataInitialize;
end;

class function CoMSDAINITIALIZE.CreateRemote(const MachineName: string): IDataInitialize;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_MSDAINITIALIZE) as IDataInitialize;
end;

class function CoPDPO.Create: IPersist;
begin
  Result := CreateComObject(CLASS_PDPO) as IPersist;
end;

class function CoPDPO.CreateRemote(const MachineName: string): IPersist;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_PDPO) as IPersist;
end;

class function CoRootBinder.Create: IBindResource;
begin
  Result := CreateComObject(CLASS_RootBinder) as IBindResource;
end;

class function CoRootBinder.CreateRemote(const MachineName: string): IBindResource;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_RootBinder) as IBindResource;
end;

end.