CProcedure

Oggetto Funzione utile per incapsulare chiamate a procedura remote

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

Creare la procedura o funzione aggiungendo parametri e impostando il nome.
In fase di costruzione viene automaticamente impostato un InstanceID di default (che si consiglia di non modificare).

CharDelimiter

Private Const CharDelimiter As String = ":"

Carattere delimitatore utilizzato

mParams

Private mParams         As CVector

Parametri in ingresso alla procedura remota

mstrInstanceID

Private mstrInstanceID  As String

Identificativo univoco di questa chiamata a procedura

mstrName

Private mstrName        As String

Nome della procedura remota da chiamare

InstanceID

Public Property Get InstanceID() As String

Accesso alla proprietà InstanceID dell'istanza

Name

Public Property Get Name() As String

Accesso alla proprietà Name dell'istanza

Name

Public Property Let Name(newValue As String)

Accesso alla proprietà Name dell'istanza

AddParam

Public Sub AddParam(newParam As CValue)

Permette di aggiungere un parametro alla procedura

Class_Initialize

Private Sub Class_Initialize()

Class_Terminate

Private Sub Class_Terminate()

fromEnvelope

Public Function fromEnvelope(Env As CEnvelope) As Boolean

Tenta di ricostruire la procedura dalla sua rappresentazione in forma di stringa contenuta nella busta.
Restituisce False in caso di errore nella costruzione

GetParam

Public Function GetParam(Index As Long) As CValue

Permette di recuperare il parametro all'indice indicato della procedura
Restituisce Nothing se all'indice non corrisponde alcun parametro

GetParamsCount

Public Function GetParamsCount() As Long

Indica il numero di parametri attualmente memorizzati per la procedura

getResponseMessage

Public Function getResponseMessage(IsValid As Boolean, ResultValue As CValue) As CFunctionResult

Restituisce un oggetto CFunctionResult pronto per essere restituito al mittente
E' necessario indicare se il risultato è valido e l'eventuale risultato della funzione

toEnvelope

Public Function toEnvelope(Sender As ISender, ReceiverObjID As String) As CEnvelope

Rappresentazione della procedura per essere inviata.
Il messaggio ha la seguente rappresentazione
[]

toString

Public Function toString() As String

Rappresentazione semplice in forma di stringa della procedura