david
472097efe5
- Recompilación de todos los paquetes de RO para poner RemObjects_Core_D10 como paquete de runtime/designtime. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@5 b6239004-a887-0f4b-9937-50029ccdca16
40 lines
1.2 KiB
ObjectPascal
40 lines
1.2 KiB
ObjectPascal
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.
|
|
|