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.                 }
{----------------------------------------------------------------------------}

{$I Remobjects.inc}

interface

uses
  {vcl:} Classes, TypInfo,
  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
  {Project:} BroadcastChatLibrary_Intf;

type
  { IBroadcastChatService_Async }
  IBroadcastChatService_Async = interface(IROAsyncInterface)
    ['{ED47ECBE-2464-41C0-8FA3-FD42573E881E}']
    procedure Invoke_SendMessage(const iDate: DateTime; const iFrom: Widestring; const iMessage: Widestring);
    procedure Invoke_GetInfo;
    function Retrieve_GetInfo: Widestring;
  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: Widestring; const iMessage: Widestring);
    procedure Invoke_GetInfo;
    function Retrieve_GetInfo: Widestring;
  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: Widestring; const iMessage: Widestring);
begin
  __AssertProxyNotBusy('SendMessage');

  __Message.InitializeRequestMessage(__TransportChannel, 'BroadcastChatLibrary', __InterfaceName, 'SendMessage');
  __Message.Write('iDate', TypeInfo(DateTime), iDate, [paIsDateTime]);
  __Message.Write('iFrom', TypeInfo(Widestring), iFrom, []);
  __Message.Write('iMessage', TypeInfo(Widestring), iMessage, []);
  __DispatchAsyncRequest('SendMessage',__Message, false);
    __Message.UnsetAttributes(__TransportChannel);
end;

procedure TBroadcastChatService_AsyncProxy.Invoke_GetInfo;
begin
  __AssertProxyNotBusy('GetInfo');

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

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

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

  __response.Free();
end;


initialization
end.