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
520 lines
19 KiB
C++
520 lines
19 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. }
|
|
{---------------------------------------------------------------------------*/
|
|
|
|
#ifndef %UNIT_NAME%_H
|
|
#define %UNIT_NAME%_H
|
|
|
|
#pragma delphiheader begin
|
|
#pragma option push
|
|
#pragma option -w- // All warnings off
|
|
#pragma option -Vx // Zero-length empty class member functions
|
|
#pragma pack(push,8)
|
|
|
|
#include <System.hpp> // Pascal unit
|
|
#include <Classes.hpp> // Pascal unit
|
|
#include <Urotypes.hpp> // Pascal unit
|
|
#include <Uroclient.hpp> // Pascal unit
|
|
#include <Uroclientintf.hpp> // Pascal unit
|
|
#include <Uroxmlintf.hpp> // Pascal unit
|
|
// <%%% START REQUIRED_UNITS %%%>
|
|
#include <%REQUIRED_UNIT_NAME%.hpp>
|
|
// <%%% END REQUIRED_UNITS %%%>
|
|
|
|
namespace %NAMESPACE_NAME%
|
|
{
|
|
// Library ID
|
|
#define LibraryUID "%LIBRARY_UID%"
|
|
#define TargetNamespace "%NAMESPACE_NAME%"
|
|
|
|
// Service Interface ID's
|
|
// <%%% START SERVICES %%%>
|
|
const GUID I%SERVICE_NAME%_IID = Sysutils::StringToGUID("%SERVICE_UID%");
|
|
// <%%% END SERVICES %%%>
|
|
|
|
// Event ID's
|
|
// <%%% START EVENT_SINKS %%%>
|
|
#define EID_%EVENT_SINK_NAME% "%EVENT_SINK_NAME%"
|
|
const GUID I%EVENT_SINK_NAME%_IID = Sysutils::StringToGUID("%EVENT_SINK_UID%");
|
|
// <%%% END EVENT_SINKS %%%>
|
|
|
|
// Forward declarations
|
|
// <%%% START SERVICES %%%>
|
|
__interface I%SERVICE_NAME%; // = interface;
|
|
// <%%% END SERVICES %%%>
|
|
// <%%% START ARRAYS %%%>
|
|
class DELPHICLASS %ARRAY_NAME%;
|
|
// <%%% END ARRAYS %%%>
|
|
// <%%% START STRUCTS %%%>
|
|
class DELPHICLASS %STRUCT_NAME%;
|
|
// <%%% END STRUCTS %%%>
|
|
// <%%% START EXCEPTIONS %%%>
|
|
class DELPHICLASS %EXCEPTION_NAME%;
|
|
// <%%% END EXCEPTIONS %%%>
|
|
// <%%% START EVENT_SINKS %%%>
|
|
__interface I%EVENT_SINK_NAME%; // = interface;
|
|
// <%%% END EVENT_SINKS %%%>
|
|
|
|
/* Enumerateds */
|
|
// <%%% START ENUMS %%%>
|
|
// <%%% START DOCUMENTATION %%%>
|
|
|
|
/* Description:
|
|
%CONTENT% */
|
|
// <%%% END DOCUMENTATION %%%>
|
|
#pragma option push -b-
|
|
enum %ENUM_NAME% {
|
|
// <%%% START VALUES %%%>
|
|
%VALUE_NAME%,
|
|
// <%%% END VALUES %%%>
|
|
};
|
|
#pragma option pop
|
|
|
|
// <%%% END ENUMS %%%>
|
|
/* Simple type holders */
|
|
// Note: In order to get type info for a simple type, we MUST have it from the
|
|
// published property of a Delphi class. There is no other way as __typeinfo
|
|
// requires the type to actually derive from TObject. Hence the reason why
|
|
// we create these dummy classes with a simple property of the correct type.
|
|
// <%%% START SIMPLE_TYPES %%%>
|
|
#ifndef __Get%TYPE_NAME%Info
|
|
class DELPHICLASS %TYPE_NAME%TypeHolder;
|
|
class %TYPE_NAME%TypeHolder : public TPersistent
|
|
{
|
|
private:
|
|
%TYPE_NAME% FHolderField;
|
|
__published:
|
|
__property %TYPE_NAME% HolderField = {read=FHolderField, write=FHolderField};
|
|
};
|
|
#define __Get%TYPE_NAME%Info *::GetPropInfo(__typeinfo(%TYPE_NAME%TypeHolder), "HolderField")->PropType
|
|
#endif // __Get%TYPE_NAME%Info
|
|
|
|
// <%%% END SIMPLE_TYPES %%%>
|
|
// <%%% START STRUCTS %%%>
|
|
// %STRUCT_NAME%
|
|
class DELPHICLASS %STRUCT_NAME%;
|
|
class %STRUCT_NAME% : public Urotypes::TROComplexType
|
|
{
|
|
// Allow the use of "inherited" in our class as Delphi allows
|
|
typedef Urotypes::TROComplexType inherited;
|
|
|
|
private:
|
|
// <%%% START FIELDS_NO_STRIP %%%>
|
|
// <%%% START IF_FIELD_TYPE_SIMPLE %%%>
|
|
%FIELD_TYPE% f%FIELD_NAME%;
|
|
// <%%% END IF_FIELD_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
%FIELD_TYPE%* f%FIELD_NAME%;
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END FIELDS_NO_STRIP %%%>
|
|
|
|
// <%%% START FIELDS_NO_STRIP %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
%FIELD_TYPE%* __fastcall Get%FIELD_NAME%();
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END FIELDS_NO_STRIP %%%>
|
|
public:
|
|
virtual void __fastcall Assign(Classes::TPersistent* iSource);
|
|
// <%%% START IF_HAS_FIELDS %%%>
|
|
virtual void __fastcall ReadComplex(TObject* ASerializer);
|
|
virtual void __fastcall WriteComplex(TObject* ASerializer);
|
|
// <%%% END IF_HAS_FIELDS %%%>
|
|
|
|
__published:
|
|
// <%%% START FIELDS_NO_STRIP %%%>
|
|
// <%%% START IF_FIELD_TYPE_SIMPLE %%%>
|
|
__property %FIELD_TYPE% %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%};
|
|
// <%%% END IF_FIELD_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
__property %FIELD_TYPE%* %FIELD_NAME% = {read=Get%FIELD_NAME%, write=f%FIELD_NAME%};
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END FIELDS_NO_STRIP %%%>
|
|
public:
|
|
// Pascal constructor/destructor
|
|
#pragma option push -w-inl
|
|
/* TROComplexType.Create */ inline __fastcall virtual %STRUCT_NAME%()/* overload */ : Urotypes::TROComplexType() {}
|
|
#pragma option pop
|
|
#pragma option push -w-inl
|
|
/* TROComplexType.Destroy */ inline __fastcall virtual ~%STRUCT_NAME%() {}
|
|
#pragma option pop
|
|
};
|
|
|
|
// %STRUCT_COLLECTION_NAME%
|
|
class DELPHICLASS %STRUCT_COLLECTION_NAME%;
|
|
class %STRUCT_COLLECTION_NAME% : public Uroclasses::TROCollection
|
|
{
|
|
typedef Uroclasses::TROCollection inherited;
|
|
|
|
public:
|
|
%STRUCT_NAME%* operator[](int Index) { return Items[Index]; }
|
|
|
|
protected:
|
|
__fastcall %STRUCT_COLLECTION_NAME%(TMetaClass* aItemClass) : Uroclasses::TROCollection(aItemClass) {} /*overload*/
|
|
%STRUCT_NAME%* __fastcall GetItems(const int Index);
|
|
void __fastcall SetItems(const int Index, %STRUCT_NAME%* Value);
|
|
|
|
public:
|
|
__fastcall %STRUCT_COLLECTION_NAME%() : Uroclasses::TROCollection(__classid(%STRUCT_NAME%)) {} /*overload*/
|
|
HIDESBASE %STRUCT_NAME%* __fastcall Add(); /*reintroduce*/
|
|
// <%%% START ARRAYS_IS_FOUND %%%>
|
|
void SaveToArray(%ARRAY_NAME%* anArray);
|
|
void LoadFromArray(%ARRAY_NAME%* anArray);
|
|
// <%%% END ARRAYS_IS_FOUND %%%>
|
|
__property %STRUCT_NAME%* Items[int Index] = {read=GetItems, write=SetItems /*default*/};
|
|
#pragma option push -w-inl
|
|
/* TCollection.Destroy */ inline __fastcall virtual ~%STRUCT_COLLECTION_NAME%() {}
|
|
#pragma option pop
|
|
};
|
|
|
|
typedef DynamicArray<%STRUCT_NAME%* > %UNIT_NAME%_%STRUCT_NAME%__4;
|
|
|
|
// <%%% END STRUCTS %%%>
|
|
// <%%% START ARRAYS %%%>
|
|
// %ARRAY_NAME%
|
|
|
|
// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
|
|
typedef DynamicArray<%ARRAY_TYPE%> %ARRAY_NAME%_%ARRAY_TYPE%;
|
|
// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
typedef DynamicArray<%ARRAY_TYPE%* > %ARRAY_NAME%_%ARRAY_TYPE%;
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
|
|
class DELPHICLASS %ARRAY_NAME%;
|
|
class %ARRAY_NAME% : public Urotypes::TROArray
|
|
{
|
|
typedef Urotypes::TROArray inherited;
|
|
|
|
public:
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
%ARRAY_TYPE%* operator[](const int Index) { return Items[Index]; }
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
|
|
%ARRAY_TYPE% operator[](const int Index) { return Items[Index]; }
|
|
// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
|
|
|
|
private:
|
|
int fCount;
|
|
%ARRAY_NAME%_%ARRAY_TYPE% fItems;
|
|
|
|
protected:
|
|
virtual void __fastcall Grow();
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
%ARRAY_TYPE%* __fastcall GetItems(const int Index);
|
|
void __fastcall SetItems(const int Index, %ARRAY_TYPE%* Value);
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
|
|
%ARRAY_TYPE% __fastcall GetItems(const int Index);
|
|
void __fastcall SetItems(const int Index, %ARRAY_TYPE% Value);
|
|
// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
|
|
virtual int __fastcall GetCount();
|
|
|
|
public:
|
|
/* virtual class method */
|
|
// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
|
|
virtual Typinfo::PTypeInfo __fastcall GetItemType(const TMetaClass* vmt) { return __Get%ARRAY_TYPE%Info; }
|
|
// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
virtual Typinfo::PTypeInfo __fastcall GetItemType(const TMetaClass* vmt) { return __typeinfo(%ARRAY_TYPE%); }
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
/* virtual class method */
|
|
virtual TMetaClass* __fastcall GetItemClass(const TMetaClass* vmt) { return __classid(%ARRAY_TYPE%); }
|
|
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
/* virtual class method */
|
|
virtual int __fastcall GetItemSize(const TMetaClass* vmt) { return sizeof(%ARRAY_TYPE%); }
|
|
|
|
virtual void * __fastcall GetItemRef(const int Index);
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
virtual void __fastcall SetItemRef(const int Index, void* Ref);
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
virtual void __fastcall Clear();
|
|
virtual void __fastcall Delete(const int Index);
|
|
virtual void __fastcall Resize(const int ElementCount);
|
|
virtual void __fastcall Assign(Classes::TPersistent* iSource);
|
|
virtual void __fastcall ReadComplex(TObject* ASerializer);
|
|
virtual void __fastcall WriteComplex(TObject* ASerializer);
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
%ARRAY_TYPE%* __fastcall Add()/* overload */;
|
|
int __fastcall Add(%ARRAY_TYPE%* Value)/* overload */;
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
|
|
int __fastcall Add(%ARRAY_TYPE% Value)/* overload */;
|
|
// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
|
|
__property int Count = {read=GetCount, nodefault};
|
|
// <%%% START IF_ARRAY_TYPE_COMPLEX %%%>
|
|
__property %ARRAY_TYPE%* Items[int Index] = {read=GetItems, write=SetItems/*, default*/};
|
|
// <%%% END IF_ARRAY_TYPE_COMPLEX %%%>
|
|
// <%%% START IF_ARRAY_TYPE_SIMPLE %%%>
|
|
__property %ARRAY_TYPE% Items[int Index] = {read=GetItems, write=SetItems/*, default*/};
|
|
// <%%% END IF_ARRAY_TYPE_SIMPLE %%%>
|
|
__property %ARRAY_NAME%_%ARRAY_TYPE% InnerArray = {read=fItems, nodefault};
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TROArray.Destroy */ inline __fastcall virtual ~%ARRAY_NAME%() {}
|
|
#pragma option pop
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TROComplexType.Create */ inline __fastcall virtual %ARRAY_NAME%()/* overload */ : Urotypes::TROArray() {}
|
|
#pragma option pop
|
|
};
|
|
|
|
// <%%% END ARRAYS %%%>
|
|
// <%%% START EXCEPTIONS %%%>
|
|
// <%%% START DOCUMENTATION %%%>
|
|
|
|
/* Description:
|
|
%CONTENT% */
|
|
// <%%% END DOCUMENTATION %%%>
|
|
class DELPHICLASS %EXCEPTION_NAME%;
|
|
class %EXCEPTION_NAME% : public %EXCEPTION_ANCESTOR_NAME%
|
|
{
|
|
typedef %EXCEPTION_ANCESTOR_NAME% inherited;
|
|
|
|
private:
|
|
// <%%% START FIELDS_NO_STRIP %%%>
|
|
// <%%% START IF_FIELD_TYPE_SIMPLE %%%>
|
|
%FIELD_TYPE% f%FIELD_NAME%;
|
|
// <%%% END IF_FIELD_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
%FIELD_TYPE%* f%FIELD_NAME%;
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END FIELDS_NO_STRIP %%%>
|
|
public:
|
|
%EXCEPTION_NAME%(AnsiString anExceptionMessage
|
|
// <%%% START ANCESTOR_FIELDS %%%>
|
|
// <%%% START IF_FIELD_TYPE_SIMPLE %%%>
|
|
, %FIELD_TYPE% a%FIELD_NAME%
|
|
// <%%% END IF_FIELD_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
, %FIELD_TYPE%* a%FIELD_NAME%
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END ANCESTOR_FIELDS %%%>
|
|
// <%%% START FIELDS_NO_STRIP %%%>
|
|
// <%%% START IF_FIELD_TYPE_SIMPLE %%%>
|
|
, %FIELD_TYPE% a%FIELD_NAME%
|
|
// <%%% END IF_FIELD_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
, %FIELD_TYPE%* a%FIELD_NAME%
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END FIELDS_NO_STRIP %%%>
|
|
);
|
|
// <%%% START IF_HAS_FIELDS %%%>
|
|
virtual void __fastcall ReadException(TObject* ASerializer);
|
|
virtual void __fastcall WriteException(TObject* ASerializer);
|
|
// <%%% END IF_HAS_FIELDS %%%>
|
|
__published:
|
|
// <%%% START FIELDS_NO_STRIP %%%>
|
|
// <%%% START IF_FIELD_TYPE_SIMPLE %%%>
|
|
__property %FIELD_TYPE% %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%};
|
|
// <%%% END IF_FIELD_TYPE_SIMPLE %%%>
|
|
// <%%% START IF_FIELD_TYPE_COMPLEX %%%>
|
|
__property %FIELD_TYPE%* %FIELD_NAME% = {read=f%FIELD_NAME%, write=f%FIELD_NAME%};
|
|
// <%%% END IF_FIELD_TYPE_COMPLEX %%%>
|
|
// <%%% END FIELDS_NO_STRIP %%%>
|
|
};
|
|
|
|
// <%%% END EXCEPTIONS %%%>
|
|
// <%%% START SERVICES %%%>
|
|
__interface I%SERVICE_NAME%;
|
|
typedef System::DelphiInterface<I%SERVICE_NAME%> _di_I%SERVICE_NAME%;
|
|
__interface INTERFACE_UUID("%SERVICE_UID%") I%SERVICE_NAME% : public %SERVICE_ANCESTOR_NAME%
|
|
{
|
|
public:
|
|
// <%%% START FUNCTION_OPERATIONS %%%>
|
|
// <%%% START IF_RESULT_SIMPLE %%%>
|
|
virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%(
|
|
// <%%% END IF_RESULT_SIMPLE %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
virtual %OPERATION_RESULT%* __fastcall %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 %%%>
|
|
) = 0; // pure virtual function - interface only
|
|
// <%%% END FUNCTION_OPERATIONS %%%>
|
|
// <%%% START PROCEDURE_OPERATIONS %%%>
|
|
virtual void __fastcall %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 %%%>
|
|
) = 0; // pure virtual function - interface only
|
|
// <%%% END PROCEDURE_OPERATIONS %%%>
|
|
};
|
|
|
|
class DELPHICLASS T%SERVICE_NAME%_Proxy;
|
|
class T%SERVICE_NAME%_Proxy : public %SERVICE_PROXY_ANCESTOR_NAME%, I%SERVICE_NAME%
|
|
{
|
|
typedef %SERVICE_PROXY_ANCESTOR_NAME% inherited;
|
|
|
|
protected:
|
|
virtual AnsiString __fastcall __GetInterfaceName()
|
|
{ return "%SERVICE_NAME%"; }
|
|
|
|
// <%%% START FUNCTION_OPERATIONS %%%>
|
|
// <%%% START IF_RESULT_SIMPLE %%%>
|
|
virtual %OPERATION_RESULT% __fastcall %OPERATION_NAME%(
|
|
// <%%% END IF_RESULT_SIMPLE %%%>
|
|
// <%%% START IF_RESULT_COMPLEX %%%>
|
|
virtual %OPERATION_RESULT%* __fastcall %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 %%%>
|
|
);
|
|
// <%%% END FUNCTION_OPERATIONS %%%>
|
|
// <%%% START PROCEDURE_OPERATIONS %%%>
|
|
virtual void __fastcall %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 %%%>
|
|
);
|
|
// <%%% END PROCEDURE_OPERATIONS %%%>
|
|
|
|
public:
|
|
#pragma option push -w-inl
|
|
/* TROProxy.Create */ inline __fastcall virtual T%SERVICE_NAME%_Proxy(const Uroclientintf::_di_IROMessage aMessage, const Uroclientintf::_di_IROTransportChannel aTransportChannel)/* overload */ :
|
|
%SERVICE_PROXY_ANCESTOR_NAME%(aMessage, aTransportChannel) {}
|
|
#pragma option pop
|
|
|
|
virtual HRESULT __stdcall QueryInterface(const GUID& IID, void **Obj) {
|
|
return inherited::QueryInterface(IID, (void *)Obj); }
|
|
|
|
virtual ULONG __stdcall AddRef() {
|
|
return inherited::_AddRef(); }
|
|
|
|
virtual ULONG __stdcall Release() {
|
|
return inherited::_Release(); }
|
|
};
|
|
|
|
// Co%SERVICE_NAME%
|
|
class DELPHICLASS Co%SERVICE_NAME%;
|
|
class Co%SERVICE_NAME% : public System::TObject
|
|
{
|
|
typedef System::TObject inherited;
|
|
|
|
public:
|
|
static _di_I%SERVICE_NAME% __fastcall Create(const Uroclientintf::_di_IROMessage aMessage,
|
|
Uroclientintf::_di_IROTransportChannel aTransportChannel)
|
|
{
|
|
_di_I%SERVICE_NAME% result;
|
|
T%SERVICE_NAME%_Proxy* proxy = new T%SERVICE_NAME%_Proxy(aMessage, aTransportChannel);
|
|
if (proxy->QueryInterface(I%SERVICE_NAME%_IID, reinterpret_cast<void**>(&result)) != S_OK)
|
|
{
|
|
delete proxy;
|
|
throw EIntfCastError::EIntfCastError("I%SERVICE_NAME% not supported");
|
|
}
|
|
return result;
|
|
};
|
|
|
|
static _di_I%SERVICE_NAME% __fastcall Create(const Uroclient::TROMessage* aMessage,
|
|
Uroclient::TROTransportChannel *aTransportChannel)
|
|
{
|
|
_di_IROMessage __Message;
|
|
_di_IROTransportChannel __TransportChannel;
|
|
|
|
if (aMessage->GetInterface(__Message))
|
|
{
|
|
if (aTransportChannel->GetInterface(__TransportChannel))
|
|
return Create(__Message, __TransportChannel);
|
|
else
|
|
throw EIntfCastError::EIntfCastError("IROTransportChannel not supported");
|
|
}
|
|
else
|
|
{
|
|
throw EIntfCastError::EIntfCastError("IROMessage not supported");
|
|
}
|
|
};
|
|
};
|
|
|
|
// <%%% END SERVICES %%%>
|
|
// <%%% START EVENT_SINKS %%%>
|
|
/* I%EVENT_SINK_NAME% */
|
|
// <%%% START DOCUMENTATION %%%>
|
|
|
|
/* Description:
|
|
%CONTENT% */
|
|
// <%%% END DOCUMENTATION %%%>
|
|
__interface I%EVENT_SINK_NAME%;
|
|
typedef System::DelphiInterface<I%EVENT_SINK_NAME%> _di_I%EVENT_SINK_NAME%;
|
|
__interface INTERFACE_UUID("%EVENT_SINK_UID%") I%EVENT_SINK_NAME% : public %EVENT_SINK_ANCESTOR_NAME%
|
|
{
|
|
public:
|
|
// <%%% START OPERATIONS %%%>
|
|
virtual void __fastcall %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 %%%>
|
|
) = 0; // pure virtual function - interface only
|
|
// <%%% END OPERATIONS %%%>
|
|
};
|
|
|
|
/* I%EVENT_SINK_NAME%_Writer */
|
|
// <%%% START DOCUMENTATION %%%>
|
|
|
|
/* Description:
|
|
%CONTENT% */
|
|
// <%%% END DOCUMENTATION %%%>
|
|
__interface I%EVENT_SINK_NAME%_Writer;
|
|
typedef System::DelphiInterface<I%EVENT_SINK_NAME%_Writer> _di_I%EVENT_SINK_NAME%_Writer;
|
|
__interface INTERFACE_UUID("%EVENT_SINK_UID%") I%EVENT_SINK_NAME%_Writer : public I%EVENT_SINK_WRITER_ANCESTOR_NAME%
|
|
{
|
|
public:
|
|
// <%%% START OPERATIONS %%%>
|
|
virtual void __fastcall %OPERATION_NAME%(GUID __Sender
|
|
// <%%% 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 %%%>
|
|
) = 0; // pure virtual function - interface only
|
|
// <%%% END OPERATIONS %%%>
|
|
};
|
|
|
|
// <%%% END EVENT_SINKS %%%>
|
|
} // namespace %NAMESPACE_NAME%
|
|
|
|
using namespace %NAMESPACE_NAME%;
|
|
#pragma pack(pop)
|
|
#pragma option pop
|
|
|
|
#pragma delphiheader end.
|
|
#endif // %UNIT_NAME%_H
|
|
|