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
163 lines
7.1 KiB
C++
163 lines
7.1 KiB
C++
// %UNIT_NAME%
|
|
//
|
|
/*---------------------------------------------------------------------------}
|
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
{ the RODL file associated with this project. }
|
|
{ }
|
|
{ Do not modify this unit manually, or your changes will be lost when this }
|
|
{ unit is regenerated the next time you compile the project. }
|
|
{---------------------------------------------------------------------------*/
|
|
|
|
// Implementation of %UNIT_NAME%
|
|
#include "%UNIT_NAME%.h"
|
|
|
|
// <%%% START SERVICES %%%>
|
|
// <%%% START FUNCTION_OPERATIONS %%%>
|
|
void __fastcall T%SERVICE_NAME%_AsyncProxy::Invoke_%OPERATION_NAME%(
|
|
// <%%% START IN_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 IN_PARAMS %%%>
|
|
)
|
|
{
|
|
__AssertProxyNotBusy("%OPERATION_NAME%");
|
|
|
|
__Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");
|
|
// <%%% START IN_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
|
|
__Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
__Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END IN_PARAMS_NO_STRIP %%%>
|
|
|
|
__DispatchAsyncRequest("%OPERATION_NAME%", __Message);
|
|
}
|
|
|
|
// <%%% START IF_RESULT_SIMPLE %%%>
|
|
%OPERATION_RESULT% __fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%(
|
|
// <%%% END IF_RESULT_SIMPLE %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
%OPERATION_RESULT%* __fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%(
|
|
// <%%% END IF_RESULT_COMPLEX %%%>
|
|
// <%%% START OUT_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 OUT_PARAMS %%%>
|
|
)
|
|
{
|
|
// <%%% START IF_RESULT_SIMPLE %%%>
|
|
%OPERATION_RESULT% result;
|
|
// <%%% END IF_RESULT_SIMPLE %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
%OPERATION_RESULT%* result;
|
|
// <%%% END IF_RESULT_COMPLEX %%%>
|
|
|
|
// <%%% START OUT_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
%PARAM_NAME% = NULL;
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END OUT_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
result = NULL;
|
|
// <%%% END IF_RESULT_COMPLEX %%%>
|
|
|
|
TStream* __response = __RetrieveAsyncResponse("%OPERATION_NAME%");
|
|
__Message->ReadFromStream(__response);
|
|
|
|
// <%%% START IF_RESULT_SIMPLE %%%>
|
|
__Message->Read("Result", __Get%OPERATION_RESULT%Info, &result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
|
|
// <%%% END IF_RESULT_SIMPLE %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
__Message->Read("Result", __typeinfo(%OPERATION_RESULT%), result, TParamAttributes(%OPERATION_RESULT_ATTRIBUTE%));
|
|
// <%%% END IF_RESULT_COMPLEX %%%>
|
|
// <%%% START OUT_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
|
|
__Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
__Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END OUT_PARAMS_NO_STRIP %%%>
|
|
|
|
delete __response;
|
|
return result;
|
|
}
|
|
|
|
// <%%% END FUNCTION_OPERATIONS %%%>
|
|
// <%%% START PROCEDURE_OPERATIONS %%%>
|
|
void _fastcall T%SERVICE_NAME%_AsyncProxy::Invoke_%OPERATION_NAME%(
|
|
// <%%% START IN_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 IN_PARAMS %%%>
|
|
)
|
|
{
|
|
__AssertProxyNotBusy("%OPERATION_NAME%");
|
|
TStream* __request = new TMemoryStream();
|
|
|
|
__Message->InitializeRequestMessage(__TransportChannel, "%LIBRARY_NAME%", __InterfaceName, "%OPERATION_NAME%");
|
|
// <%%% START IN_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
|
|
__Message->Write("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
__Message->Write("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END IN_PARAMS_NO_STRIP %%%>
|
|
__Message->Finalize();
|
|
|
|
__Message->WriteToStream(__request);
|
|
__DispatchAsyncRequest("%OPERATION_NAME%", __request, False);
|
|
}
|
|
|
|
// <%%% START IF_OUT_PARAMS %%%>
|
|
void _fastcall T%SERVICE_NAME%_AsyncProxy::Retrieve_%OPERATION_NAME%(
|
|
// <%%% START OUT_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 OUT_PARAMS %%%>
|
|
)
|
|
{
|
|
// <%%% START OUT_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
%PARAM_NAME% = NULL;
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END OUT_PARAMS_NO_STRIP %%%>
|
|
|
|
TStream* __response = __RetrieveAsyncResponse("%OPERATION_NAME%");
|
|
__Message->ReadFromStream(__response);
|
|
|
|
// <%%% START OUT_PARAMS_NO_STRIP %%%>
|
|
// <%%% START IF_PARAM_TYPE_SIMPLE %%%>
|
|
__Message->Read("%PARAM_NAME%", __Get%PARAM_TYPE%Info, &%PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_PARAM_TYPE_COMPLEX %%%>
|
|
__Message->Read("%PARAM_NAME%", __typeinfo(%PARAM_TYPE%), %PARAM_NAME%, TParamAttributes(%PARAM_ATTRIBUTE%));
|
|
// <%%% END IF_PARAM_TYPE_COMPLEX %%%>
|
|
// <%%% END OUT_PARAMS_NO_STRIP %%%>
|
|
|
|
delete __response;
|
|
}
|
|
|
|
// <%%% END IF_OUT_PARAMS %%%>
|
|
// <%%% END PROCEDURE_OPERATIONS %%%>
|
|
// <%%% END SERVICES %%%>
|