server_tlb.cpp

Direct Oracle Access 非常好的Oracle数据库直接访问组件包 支持个版本的Delphi及C++ Builder 有源码

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

/* File generated on 28-6-98 15:21:54 from Type Library described below. */

// ************************************************************************ //
// Type Lib: C:\Program Files\Borland\CBuilder3\Projects\3Tier\Server.tlb
// IID\LCID: {822135E0-0E9B-11D2-BD34-0020AF0B5A0C}\0
// Helpfile: C:\Program Files\Borland\CBuilder3\Projects\3Tier\Server.tlb
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\StdOle2.tlb)
//   (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\STDVCL40.DLL)
// ************************************************************************ //

#include <vcl.h>
#pragma hdrstop
#if defined(USING_ATLVCL)
#include <atl\atlvcl.h>
#endif

#include "Server_TLB.h"

#if !defined(__PRAGMA_PACKAGE_SMART_INIT)
#define      __PRAGMA_PACKAGE_SMART_INIT
#pragma package(smart_init)
#endif

namespace Server_tlb
{


// *********************************************************************//
// GUIDS declared in the TypeLibrary                                    //
// *********************************************************************//
extern "C" const GUID LIBID_Server = {0x822135E0, 0x0E9B, 0x11D2,{ 0xBD, 0x34, 0x00, 0x20, 0xAF, 0x0B, 0x5A, 0x0C} };
extern "C" const GUID IID_IRemoteCPPDM = {0x822135E1, 0x0E9B, 0x11D2,{ 0xBD, 0x34, 0x00, 0x20, 0xAF, 0x0B, 0x5A, 0x0C} };
extern "C" const GUID CLSID_RemoteCPPDM = {0x822135E3, 0x0E9B, 0x11D2,{ 0xBD, 0x34, 0x00, 0x20, 0xAF, 0x0B, 0x5A, 0x0C} };



// *********************************************************************//
// COCLASS DEFAULT INTERFACE CREATOR
// (The following methods provide an easy way to create an instance of
//  the default interface, IRemoteCPPDM, of the CoClass RemoteCPPDM)
// *********************************************************************//

HRESULT CoRemoteCPPDM::Create(TCOMIRemoteCPPDM& _intf)
{
  static TInitOle __initializeOle;
  return CoCreateInstance(CLSID_RemoteCPPDM, IID_IRemoteCPPDM, (LPVOID*)&_intf);
};

TCOMIRemoteCPPDM CoRemoteCPPDM::Create(void)
{
  TCOMIRemoteCPPDM _intf;
  Create(_intf);
  return _intf;
};

HRESULT CoRemoteCPPDM::CreateRemote(LPWSTR machineName, TCOMIRemoteCPPDM& _intf)
{
  static TInitOle __initializeOle;
  COSERVERINFO ServerInfo = { 0, machineName, NULL, 0 };
  MULTI_QI MQI = { &IID_IRemoteCPPDM, NULL, 0 };
  HRESULT _hr = ::CoCreateInstanceEx(CLSID_RemoteCPPDM, NULL,
                                     CLSCTX_LOCAL_SERVER|
                                     CLSCTX_REMOTE_SERVER|
                                     CLSCTX_INPROC_SERVER,
                                     &ServerInfo, 1, &MQI);
  if (SUCCEEDED(_hr))
    _intf = (IRemoteCPPDM*)MQI.pItf;
  return _hr;
};

TCOMIRemoteCPPDM CoRemoteCPPDM::CreateRemote(LPWSTR machineName)
{
  TCOMIRemoteCPPDM _intf;
  CreateRemote(machineName, _intf);
  return _intf;
};

};     // namespace Server_tlb