david
d99a44999f
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@7 b6239004-a887-0f4b-9937-50029ccdca16
86 lines
2.8 KiB
C++
86 lines
2.8 KiB
C++
// <%%% START SERVICES %%%>
|
|
// unit %UNIT_NAME%
|
|
//
|
|
/*---------------------------------------------------------------------------}
|
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
{ the RODL file associated with this project . }
|
|
{ }
|
|
{ Modify this unit to provide implementation for your service. */
|
|
|
|
// Interface of %LIBRARY_NAME%
|
|
#include "%LIBRARY_NAME%_intf.h"
|
|
|
|
// Our header file
|
|
#include "%UNIT_NAME%.h"
|
|
|
|
// Invoker interface
|
|
#include "%LIBRARY_NAME%_Invk.h"
|
|
|
|
// <%%% START IF_DATA_MODULE %%%>
|
|
#pragma resourcefile // {$R *.dfm}
|
|
// <%%% END IF_DATA_MODULE %%%>
|
|
|
|
void __fastcall Create_%SERVICE_NAME%(/*out*/ _di_IInterface& anInstance)
|
|
{
|
|
anInstance = new T%SERVICE_NAME%(
|
|
// <%%% START IF_DATA_MODULE %%%>
|
|
NULL
|
|
// <%%% END IF_DATA_MODULE %%%>
|
|
)->operator IROObjectRetainer *();
|
|
}
|
|
|
|
// %SERVICE_NAME%
|
|
// <%%% START IF_DATA_MODULE %%%>
|
|
|
|
__fastcall T%SERVICE_NAME%::T%SERVICE_NAME%(Classes::TComponent* aOwner)
|
|
: TRORemoteDataModule(aOwner)
|
|
{
|
|
}
|
|
// <%%% END IF_DATA_MODULE %%%>
|
|
// <%%% START FUNCTION_OPERATIONS %%%>
|
|
// <%%% START IF_RESULT_SIMPLE %%%>
|
|
%OPERATION_RESULT% __fastcall T%SERVICE_NAME%::%OPERATION_NAME%(
|
|
// <%%% END IF_RESULT_SIMPLE %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%::%OPERATION_NAME%(
|
|
// <%%% END IF_RESULT_COMPLEX %%%>
|
|
// <%%% START PARAMS %%%>
|
|
// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
|
|
// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END PARAMS %%%>
|
|
)
|
|
{
|
|
// Insert your implementation code for %SERVICE_NAME%::%OPERATION_NAME% here
|
|
}
|
|
// <%%% END FUNCTION_OPERATIONS %%%>
|
|
|
|
// <%%% START PROCEDURE_OPERATIONS %%%>
|
|
void __fastcall T%SERVICE_NAME%::%OPERATION_NAME%(
|
|
// <%%% START PARAMS %%%>
|
|
// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_TYPE% %PARAM_BACK_MODIFIER% %PARAM_NAME%,
|
|
// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
%PARAM_FRONT_MODIFIER% %PARAM_TYPE%* %PARAM_BACK_MODIFIER% %PARAM_NAME%,
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END PARAMS %%%>
|
|
)
|
|
{
|
|
// Insert your implementation code for %SERVICE_NAME%::%OPERATION_NAME% here
|
|
}
|
|
// <%%% END PROCEDURE_OPERATIONS %%%>
|
|
|
|
void __initialization_%UNIT_NAME%();
|
|
|
|
#pragma startup __initialization_%UNIT_NAME%
|
|
|
|
void __initialization_%UNIT_NAME%()
|
|
{
|
|
new TROClassFactory("%SERVICE_NAME%", &Create_%SERVICE_NAME%, __classid(T%SERVICE_NAME%_Invoker));
|
|
}
|
|
|