server_tlb.pas

来自「Direct Oracle Access 非常好的Oracle数据库直接访问组」· PAS 代码 · 共 76 行

unit Server_TLB;

{ This file contains pascal declarations imported from a type library.
  This file will be written during each import or refresh of the type
  library editor.  Changes to this file will be discarded during the
  refresh process. }

{ Server Library }
{ Version 1.0 }

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;

const
  LIBID_Server: TGUID = '{55237FA1-DA00-11D1-BD34-0020AF0B5A0C}';

const

{ Component class GUIDs }
  Class_RemoteDM: TGUID = '{55237FA3-DA00-11D1-BD34-0020AF0B5A0C}';

type

{ Forward declarations: Interfaces }
  IRemoteDM = interface;
  IRemoteDMDisp = dispinterface;

{ Forward declarations: CoClasses }
  RemoteDM = IRemoteDM;

{ Dispatch interface for RemoteDM Object }

  IRemoteDM = interface(IDataBroker)
    ['{55237FA2-DA00-11D1-BD34-0020AF0B5A0C}']
    function Get_EmpProvider: IProvider; safecall;
    function Get_DeptProvider: IProvider; safecall;
    property EmpProvider: IProvider read Get_EmpProvider;
    property DeptProvider: IProvider read Get_DeptProvider;
  end;

{ DispInterface declaration for Dual Interface IRemoteDM }

  IRemoteDMDisp = dispinterface
    ['{55237FA2-DA00-11D1-BD34-0020AF0B5A0C}']
    function GetProviderNames: OleVariant; dispid 22929905;
    property EmpProvider: IProvider readonly dispid 1;
    property DeptProvider: IProvider readonly dispid 2;
  end;

{ RemoteDMObject }

  CoRemoteDM = class
    class function Create: IRemoteDM;
    class function CreateRemote(const MachineName: string): IRemoteDM;
  end;



implementation

uses ComObj;

class function CoRemoteDM.Create: IRemoteDM;
begin
  Result := CreateComObject(Class_RemoteDM) as IRemoteDM;
end;

class function CoRemoteDM.CreateRemote(const MachineName: string): IRemoteDM;
begin
  Result := CreateRemoteComObject(MachineName, Class_RemoteDM) as IRemoteDM;
end;


end.