david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
94 lines
2.7 KiB
ObjectPascal
94 lines
2.7 KiB
ObjectPascal
unit %UNIT_NAME%;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ 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. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I Remobjects.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
// required units
|
|
// <%%% START REQUIRED_UNITS %%%>
|
|
%REQUIRED_UNIT_NAME%,
|
|
// <%%% END REQUIRED_UNITS %%%>
|
|
{vcl:} Classes, SysUtils,
|
|
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
|
{Generated:} %LIBRARY_NAME%_Intf;
|
|
|
|
// <%%% START SERVICES %%%>
|
|
type
|
|
{ T%SERVICE_NAME% }
|
|
T%SERVICE_NAME% = class(%SERVICE_ANCESTOR_NAME%, I%SERVICE_NAME%)
|
|
private
|
|
protected
|
|
{ I%SERVICE_NAME% methods }
|
|
// <%%% START FUNCTION_OPERATIONS %%%>
|
|
function %OPERATION_NAME%(
|
|
// <%%% START PARAMS %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
|
|
// <%%% END PARAMS %%%>
|
|
): %OPERATION_RESULT%;
|
|
// <%%% END FUNCTION_OPERATIONS %%%>
|
|
// <%%% START PROCEDURE_OPERATIONS %%%>
|
|
procedure %OPERATION_NAME%(
|
|
// <%%% START PARAMS %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
|
|
// <%%% END PARAMS %%%>
|
|
);
|
|
// <%%% END PROCEDURE_OPERATIONS %%%>
|
|
end;
|
|
// <%%% END SERVICES %%%>
|
|
|
|
implementation
|
|
|
|
// <%%% START IF_DATA_MODULE %%%>
|
|
{$R *.dfm}
|
|
|
|
// <%%% END IF_DATA_MODULE %%%>
|
|
uses
|
|
{Generated:} %LIBRARY_NAME%_Invk;
|
|
|
|
// <%%% START SERVICES %%%>
|
|
procedure Create_%SERVICE_NAME%(out anInstance : IUnknown);
|
|
begin
|
|
anInstance := T%SERVICE_NAME%.Create(
|
|
// <%%% START IF_DATA_MODULE %%%>
|
|
nil
|
|
// <%%% END IF_DATA_MODULE %%%>
|
|
);
|
|
end;
|
|
|
|
{ %SERVICE_NAME% }
|
|
// <%%% START FUNCTION_OPERATIONS %%%>
|
|
function T%SERVICE_NAME%.%OPERATION_NAME%(
|
|
// <%%% START PARAMS %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
|
|
// <%%% END PARAMS %%%>
|
|
): %OPERATION_RESULT%;
|
|
begin
|
|
end;
|
|
|
|
// <%%% END FUNCTION_OPERATIONS %%%>
|
|
// <%%% START PROCEDURE_OPERATIONS %%%>
|
|
procedure T%SERVICE_NAME%.%OPERATION_NAME%(
|
|
// <%%% START PARAMS %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_NAME%: %PARAM_TYPE%;
|
|
// <%%% END PARAMS %%%>
|
|
);
|
|
begin
|
|
end;
|
|
|
|
// <%%% END PROCEDURE_OPERATIONS %%%>
|
|
initialization
|
|
TROClassFactory.Create('%SERVICE_NAME%', Create_%SERVICE_NAME%, T%SERVICE_NAME%_Invoker);
|
|
|
|
finalization
|
|
|
|
// <%%% END SERVICES %%%>
|
|
end.
|