unit MultiChannel_ClientData;

interface

uses
  SysUtils, Classes, uROClient, uROBinMessage, uROServer, uROLocalServer, uROClientIntf;

type
  TMultiChannel_ClientDataMain = class(TDataModule)
    LocalServer: TROLocalServer;
    BinMessage: TROBinMessage;
    procedure BinMessageInitializeMessage(Sender: TROMessage;
      const aTransport: IROTransport; const anInterfaceName,
      aMessageName: string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MultiChannel_ClientDataMain: TMultiChannel_ClientDataMain;

implementation
uses MultiChannelService_Impl, MultiChannel_ClientMain;
{$R *.dfm}

procedure TMultiChannel_ClientDataMain.BinMessageInitializeMessage(
  Sender: TROMessage; const aTransport: IROTransport;
  const anInterfaceName, aMessageName: string);
begin
  MultiChannel_ClientMainForm.Log('');
  MultiChannel_ClientMainForm.Log('SERVER: Connect via ' + Tobject(aTransport.GetTransportObject).ClassName);
  MultiChannel_ClientMainForm.Log('SERVER: ' + anInterfaceName + ':'#9 + StringReplace(aMessageName, 'Response', '', []));
  MultiChannel_ClientMainForm.Log('');
end;

end.