appserv1_tlb.pas

来自「Delphi高级开发指南是开发程序的好帮手」· PAS 代码 · 共 76 行

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

{ AppServ1 Library }
{ Version 1.0 }

interface

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

const
  LIBID_AppServ1: TGUID = '{AE857760-2114-11D1-98D0-444553540000}';

const

{ Component class GUIDs }
  Class_TDdhFirstRM: TGUID = '{AE857762-2114-11D1-98D0-444553540000}';

type

{ Forward declarations: Interfaces }
  ITDdhFirstRM = interface;
  ITDdhFirstRMDisp = dispinterface;

{ Forward declarations: CoClasses }
  TDdhFirstRM = ITDdhFirstRM;

{ Dispatch interface for TDdhFirstRM Object }

  ITDdhFirstRM = interface(IDataBroker)
    ['{AE857761-2114-11D1-98D0-444553540000}']
    function Get_Table1: IProvider; safecall;
    function Get_Table2: IProvider; safecall;
    property Table1: IProvider read Get_Table1;
    property Table2: IProvider read Get_Table2;
  end;

{ DispInterface declaration for Dual Interface ITDdhFirstRM }

  ITDdhFirstRMDisp = dispinterface
    ['{AE857761-2114-11D1-98D0-444553540000}']
    function GetProviderNames: OleVariant; dispid 22929905;
    property Table1: IProvider readonly dispid 1;
    property Table2: IProvider readonly dispid 2;
  end;

{ TDdhFirstRMObject }

  CoTDdhFirstRM = class
    class function Create: ITDdhFirstRM;
    class function CreateRemote(const MachineName: string): ITDdhFirstRM;
  end;



implementation

uses ComObj;

class function CoTDdhFirstRM.Create: ITDdhFirstRM;
begin
  Result := CreateComObject(Class_TDdhFirstRM) as ITDdhFirstRM;
end;

class function CoTDdhFirstRM.CreateRemote(const MachineName: string): ITDdhFirstRM;
begin
  Result := CreateRemoteComObject(MachineName, Class_TDdhFirstRM) as ITDdhFirstRM;
end;


end.