briefcasesrvr_tlb.pas

来自「是一个delphi的流程制作软件」· PAS 代码 · 共 73 行

unit BriefCaseSrvr_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. }

{ BriefCaseSrvr Library }
{ Version 1.0 }

interface

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

const
  LIBID_BriefCaseSrvr: TGUID = '{AFB9CB64-79FC-11D2-B369-00A024429E26}';

const

{ Component class GUIDs }
  Class_rdmBriefCaseSrvr: TGUID = '{AFB9CB66-79FC-11D2-B369-00A024429E26}';

type

{ Forward declarations: Interfaces }
  IrdmBriefCaseSrvr = interface;
  IrdmBriefCaseSrvrDisp = dispinterface;

{ Forward declarations: CoClasses }
  rdmBriefCaseSrvr = IrdmBriefCaseSrvr;

{ Dispatch interface for rdmBriefCaseSrvr Object }

  IrdmBriefCaseSrvr = interface(IDataBroker)
    ['{AFB9CB65-79FC-11D2-B369-00A024429E26}']
    function Get_Provider1: IProvider; safecall;
    property Provider1: IProvider read Get_Provider1;
  end;

{ DispInterface declaration for Dual Interface IrdmBriefCaseSrvr }

  IrdmBriefCaseSrvrDisp = dispinterface
    ['{AFB9CB65-79FC-11D2-B369-00A024429E26}']
    function GetProviderNames: OleVariant; dispid 22929905;
    property Provider1: IProvider readonly dispid 1;
  end;

{ rdmBriefCaseSrvrObject }

  CordmBriefCaseSrvr = class
    class function Create: IrdmBriefCaseSrvr;
    class function CreateRemote(const MachineName: string): IrdmBriefCaseSrvr;
  end;



implementation

uses ComObj;

class function CordmBriefCaseSrvr.Create: IrdmBriefCaseSrvr;
begin
  Result := CreateComObject(Class_rdmBriefCaseSrvr) as IrdmBriefCaseSrvr;
end;

class function CordmBriefCaseSrvr.CreateRemote(const MachineName: string): IrdmBriefCaseSrvr;
begin
  Result := CreateRemoteComObject(MachineName, Class_rdmBriefCaseSrvr) as IrdmBriefCaseSrvr;
end;


end.