CDynamicSkeleton

Skeleton di base con chiamate dinamiche funzionante per una qualsiasi classe Servant

Autore: Giorgio Bernardi
E-Mail: Giorgio.Bernardi@studio.unibo.it
Data : Settembre 2004

Questo skeleton può essere utilizzato per ogni oggetto in quanto contiene chiamate dinamiche grazie alla CallByName.
A causa della limitatezza della CallByName, è possibile chiamare funzioni o procedure con un massimo di 10 argomenti.
Creare una istanza della classe e associarvi il Servant attribuendo eventualmente un ObjectID idoneo per l'applicazione.
Associare la classe ad un Dispatcher in modo che riceva le richieste da parte dello Stub corrispondente.

mServant

Private mServant     As Object

Classe reale che implementa le funzionalità fruibili dall'esterno

mstrObjectID

Private mstrObjectID As String

Variabile contenente il valore della proprietà omonima

Servant

Public Property Get Servant() As Object

Oggetto Servant che esegue le operazioni

Servant

Public Property Set Servant(Value As Object)

Oggetto Servant che esegue le operazioni

SkeletonID

Public Property Get SkeletonID() As String

Restituisce l'identificativo univoco all'interno di questa applicazione dell'oggetto

SkeletonID

Public Property Let SkeletonID(Value As String)

Restituisce l'identificativo univoco all'interno di questa applicazione dell'oggetto

Class_Initialize

Private Sub Class_Initialize()

IReceiver_getObjectID

Private Function IReceiver_getObjectID() As String

IReceiver_msgArrived

Private Sub IReceiver_msgArrived(Env As SMom.CEnvelope)

Gestisce il messaggio in arrivo rimbalzando la richiesta alla classe Servant

ISender_getObjectID

Private Function ISender_getObjectID() As String