Componentes.Terceros.RemObjects/internal/5.0.23.613/1/RemObjects SDK for Delphi/Source/CodeGen2/Templates/template.async.cpp

// %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 %%%>