unit BriefcaseModelLibrary_Intf;

{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading  }
{ the RODL file associated with this project .                               }
{                                                                            }
{ Do not modify this unit manually, or your changes will be lost when this   }
{ unit is regenerated the next time you compile the project.                 }
{----------------------------------------------------------------------------}

interface

uses
  {vcl:} Classes, TypInfo,
  {RemObjects:} uROClasses, uROClient, uROTypes, uROClientIntf,
  {Used RODLs:} DataAbstract4_Intf;

const
  { Library ID }
  LibraryUID = '{0C6D69E2-2FEC-49FE-B07B-EE237D69F422}';
  TargetNamespace = '';

  { Service Interface ID's }
  IBriefcaseModelService_IID : TGUID = '{DF3E1E54-2924-4DE3-9834-4B225408D09F}';

  { Event ID's }

type
  { Forward declarations }
  IBriefcaseModelService = interface;




  { IBriefcaseModelService }
  IBriefcaseModelService = interface(IDataAbstractService)
    ['{DF3E1E54-2924-4DE3-9834-4B225408D09F}']
  end;

  { CoBriefcaseModelService }
  CoBriefcaseModelService = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBriefcaseModelService;
  end;

  { TBriefcaseModelService_Proxy }
  TBriefcaseModelService_Proxy = class(TDataAbstractService_Proxy, IBriefcaseModelService)
  protected
    function __GetInterfaceName:string; override;

  end;

implementation

uses
  {vcl:} SysUtils,
  {RemObjects:} uROEventRepository, uRORes;

{ CoBriefcaseModelService }

class function CoBriefcaseModelService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBriefcaseModelService;
begin
  result := TBriefcaseModelService_Proxy.Create(aMessage, aTransportChannel);
end;

function TBriefcaseModelService_Proxy.__GetInterfaceName:string;
begin
  result := 'BriefcaseModelService';
end;

initialization
  RegisterProxyClass(IBriefcaseModelService_IID, TBriefcaseModelService_Proxy);


finalization
  UnregisterProxyClass(IBriefcaseModelService_IID);

end.