unit BroadcastChatLibrary_Async;

{----------------------------------------------------------------------------}
{ 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, uROTypes, uROClientIntf, uROAsync,
  {Project:} BroadcastChatLibrary_Intf;

type
  IBroadcastChatService_Async = interface;
  CoBroadcastChatService_Async = class;
  TBroadcastChatService_AsyncProxy = class;
  { IBroadcastChatService_Async }
  IBroadcastChatService_Async = interface(IROAsyncInterface)
    ['{4C7BA0F9-BF59-454B-ACAF-E5C3CEB5A309}']
    procedure Invoke_SendMessage(const iDate: DateTime; const iFrom: String; const iMessage: String);
    procedure Invoke_GetInfo;
    function Retrieve_GetInfo: string;
  end;

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

  { TBroadcastChatService_AsyncProxy }
  TBroadcastChatService_AsyncProxy = class(TROAsyncProxy, IBroadcastChatService_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_SendMessage(const iDate: DateTime; const iFrom: String; const iMessage: String);
    procedure Invoke_GetInfo;
    function Retrieve_GetInfo: string;
  end;

implementation

uses
  {vcl:} SysUtils;

{ CoBroadcastChatService }

class function CoBroadcastChatService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IBroadcastChatService_Async;
begin
  result := TBroadcastChatService_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TBroadcastChatService_AsyncProxy }

function TBroadcastChatService_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'BroadcastChatService';
end;

procedure TBroadcastChatService_AsyncProxy.Invoke_SendMessage(const iDate: DateTime; const iFrom: String; const iMessage: String);
var __request:TStream;
begin
  __AssertProxyNotBusy('SendMessage');
  __request := TMemoryStream.Create;

  __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'SendMessage');
  __Message.Write('iDate', TypeInfo(DateTime), iDate, [paIsDateTime]);
  __Message.Write('iFrom', TypeInfo(String), iFrom, []);
  __Message.Write('iMessage', TypeInfo(String), iMessage, []);
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('SendMessage',__request, false);
end;

procedure TBroadcastChatService_AsyncProxy.Invoke_GetInfo;
var __request:TStream;
begin
  __AssertProxyNotBusy('GetInfo');
  __request := TMemoryStream.Create;

  __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'GetInfo');
  __Message.Finalize;

  __Message.WriteToStream(__request);
  __DispatchAsyncRequest('GetInfo',__request);
end;

function TBroadcastChatService_AsyncProxy.Retrieve_GetInfo: string;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetInfo');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(string), Result, []);

  __response.Free();
end;


initialization
end.