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
50 lines
1.3 KiB
ObjectPascal
50 lines
1.3 KiB
ObjectPascal
unit MultiChannelService_Impl;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
{ the RODL file associated with this project . }
|
|
{ }
|
|
{ This is where you are supposed to code the implementation of your objects. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, SysUtils,
|
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
|
{Generated:} MultiChannelLibrary_Intf;
|
|
|
|
type
|
|
{ TMultiChannelService }
|
|
TMultiChannelService = class(TRORemotable, IMultiChannelService)
|
|
private
|
|
protected
|
|
{ IMultiChannelService methods }
|
|
function GetServerTime: DateTime;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{Generated:} MultiChannelLibrary_Invk;
|
|
|
|
procedure Create_MultiChannelService(out anInstance: IUnknown);
|
|
begin
|
|
anInstance := TMultiChannelService.Create;
|
|
end;
|
|
|
|
{ MultiChannelService }
|
|
|
|
function TMultiChannelService.GetServerTime: DateTime;
|
|
begin
|
|
Result := Now;
|
|
end;
|
|
|
|
initialization
|
|
TROClassFactory.Create('MultiChannelService', Create_MultiChannelService, TMultiChannelService_Invoker);
|
|
|
|
finalization
|
|
|
|
end.
|
|
|