Componentes.Terceros.RemObjects/internal/5.0.23.613/1/RemObjects SDK for Delphi/Samples/First Sample/FirstSample_Intf.pas

unit FirstSample_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 = '{37D864AA-068E-457B-81C3-828305C09F88}';

  { Service Interface ID's }
  IFirstSampleService_IID : TGUID = '{BC25168D-B5BF-47F3-AE9D-0E457528F16E}';

  { Event ID's }

type
  { Forward declarations }
  IFirstSampleService = interface;


  { IFirstSampleService }
  IFirstSampleService = interface
    ['{BC25168D-B5BF-47F3-AE9D-0E457528F16E}']
    function Nicknames(const FullName: String): String;
    function FullNames(const Nickname: String): String;
    function VerifyName(const NickName: String; const FullName: String): Boolean;
    function CheckName(const NickName: String): Boolean;
  end;

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

  { TFirstSampleService_Proxy }
  TFirstSampleService_Proxy = class(TROProxy, IFirstSampleService)
  protected
    function __GetInterfaceName:string; override;

    function Nicknames(const FullName: String): String;
    function FullNames(const Nickname: String): String;
    function VerifyName(const NickName: String; const FullName: String): Boolean;
    function CheckName(const NickName: String): Boolean;
  end;

implementation

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

{ CoFirstSampleService }

class function CoFirstSampleService.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IFirstSampleService;
begin
  result := TFirstSampleService_Proxy.Create(aMessage, aTransportChannel);
end;

{ TFirstSampleService_Proxy }

function TFirstSampleService_Proxy.__GetInterfaceName:string;
begin
  result := 'FirstSampleService';
end;

function TFirstSampleService_Proxy.Nicknames(const FullName: String): String;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'Nicknames');
    __Message.Write('FullName', TypeInfo(String), FullName, []);
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

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

function TFirstSampleService_Proxy.FullNames(const Nickname: String): String;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'FullNames');
    __Message.Write('Nickname', TypeInfo(String), Nickname, []);
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

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

function TFirstSampleService_Proxy.VerifyName(const NickName: String; const FullName: String): Boolean;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'VerifyName');
    __Message.Write('NickName', TypeInfo(String), NickName, []);
    __Message.Write('FullName', TypeInfo(String), FullName, []);
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

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

function TFirstSampleService_Proxy.CheckName(const NickName: String): Boolean;
begin
  try
    __Message.InitializeRequestMessage(__TransportChannel, 'FirstSample', __InterfaceName, 'CheckName');
    __Message.Write('NickName', TypeInfo(String), NickName, []);
    __Message.Finalize;

    __TransportChannel.Dispatch(__Message);

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

initialization
  RegisterProxyClass(IFirstSampleService_IID, TFirstSampleService_Proxy);


finalization
  UnregisterProxyClass(IFirstSampleService_IID);

end.