unit NamedPipeLibrary_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;

const
  { Library ID }
  LibraryUID = '{BC2D6352-25BF-4A67-A9DD-9ED1CEE3DE20}';

  { Service Interface ID's }
  INamedPipeService_IID : TGUID = '{DCD778A1-C1C3-485F-B723-D4997B7AA972}';

  { Event ID's }

type
  { Forward declarations }
  INamedPipeService = interface;


  { INamedPipeService }
  INamedPipeService = interface
    ['{DCD778A1-C1C3-485F-B723-D4997B7AA972}']
    function GetPath: String;
    function GetConnectedUsersCount: Integer;
    function UpTime: DateTime;
  end;

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

  { TNamedPipeService_Proxy }
  TNamedPipeService_Proxy = class(TROProxy, INamedPipeService)
  protected
    function __GetInterfaceName:string; override;

    function GetPath: String;
    function GetConnectedUsersCount: Integer;
    function UpTime: DateTime;
  end;

implementation

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

{ CoNamedPipeService }

class function CoNamedPipeService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): INamedPipeService;
begin
  result := TNamedPipeService_Proxy.Create(aMessage, aTransportChannel);
end;

{ TNamedPipeService_Proxy }

function TNamedPipeService_Proxy.__GetInterfaceName:string;
begin
  result := 'NamedPipeService';
end;

function TNamedPipeService_Proxy.GetPath: String;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'NamedPipeLibrary', __InterfaceName, 'GetPath');
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

    __Message.Read('Result', TypeInfo(String), result, []);
  finally
    __Message.FreeStream;
  end
end;

function TNamedPipeService_Proxy.GetConnectedUsersCount: Integer;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'NamedPipeLibrary', __InterfaceName, 'GetConnectedUsersCount');
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

    __Message.Read('Result', TypeInfo(Integer), result, []);
  finally
    __Message.FreeStream;
  end
end;

function TNamedPipeService_Proxy.UpTime: DateTime;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'NamedPipeLibrary', __InterfaceName, 'UpTime');
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

    __Message.Read('Result', TypeInfo(DateTime), result, [paIsDateTime]);
  finally
    __Message.FreeStream;
  end
end;

initialization
  RegisterProxyClass(INamedPipeService_IID, TNamedPipeService_Proxy);


finalization
  UnregisterProxyClass(INamedPipeService_IID);

end.