CTcpManager

Manager utilizzabile per connettere due applicazioni differenti via IP

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

Il manager funge da Server su porta TCP per ricevere i messaggi.
Il manager sfrutta l'invio di messaggi TCP per spedire i messaggi.
Il manager stabilisce un metodo per l'identificazione del Manager in modo che il nome getAddress() del Manager consenta di identificarlo in una rete di computer.
Il manager stabilisce altresì un formato di spedizione dei pacchetti TCP in modo che il destinatario possa comprenderlo ricreando a sua volta l'CEnvelope.
Ad ogni richiesta di invio di un messaggio il manager legge la lista di connessioni aperte per verificare se conosce il destinatario, altrimenti crea una nuova connessione.
Ad ogni richiesta di connessione dall'esterno, questa viene recuperata indicando che si conosce già il mittente.
Importante: le socket vanno chiuse esplicitamente altrimenti il GarbageCollector di Visual Basic le lascia aperte indefinitamente causando spiacevoli errori ed inconvenienti!
Usare il metodo Destroy per pulire tutto.

mDEFAULT_PORT

Private Const mDEFAULT_PORT As Long = 5230

Porta di default per l'apertura di una nuova Socket server

OnAddressChange

Public Event OnAddressChange()

Indica che l'indirizzo del manager potrebbe essere cambiato

mDispatcher

Private mDispatcher     As IDispatcher

Variabile contenente il valore della proprietà omonima dell'oggetto

mHostData

Private mHostData       As CRemoteHost

Variabile contenente il valore della proprietà omonima dell'oggetto

mManagers

Private mManagers       As Collection

Variabile contenente il valore della proprietà omonima dell'oggetto

mServerSocket

Private WithEvents mServerSocket   As CSocket

Socket Server usata per accettare le connessioni dall'esterno

mstrLastError

Private mstrLastError           As String

Dispatcher

Public Property Get Dispatcher() As IDispatcher

Identificativo dell'oggetto che si occuperà di indirizzare i messaggi ai destinatari

Dispatcher

Public Property Set Dispatcher(dsptchr As IDispatcher)

Identificativo dell'oggetto che si occuperà di indirizzare i messaggi ai destinatari

IMsgManager_Dispatcher

Private Property Get IMsgManager_Dispatcher() As IDispatcher

IMsgManager_Dispatcher

Private Property Set IMsgManager_Dispatcher(RHS As IDispatcher)

LastError

Public Property Get LastError() As String

Descrizione dell'ultimo errore

LastError

Private Property Let LastError(newValue As String)

Descrizione dell'ultimo errore

Class_Initialize

Private Sub Class_Initialize()

Class_Terminate

Private Sub Class_Terminate()

Destroy

Public Sub Destroy()

IMPORTANTE: Funzione che distrugge l'oggetto.
E' importante chiamare questa funzione perché il Garbage Collector di Visual Basic ritarda molto a pulire le risorse non più usate a causa dei riferimenti circolari.

FindPeerServer

Private Function FindPeerServer(MngAddress As String) As CTcpManagerSlave

Recupera un elemento da una collection se esiste, altrimenti restituisce Nohting

GenerateError

Private Sub GenerateError(Description As String, Optional Number As Long = vbObjectError)

Gestisce l'errore

GenerateErrorGenerico

Private Sub GenerateErrorGenerico(Procedure As String)

Gestisce l'errore

getAddress

Public Function getAddress() As String

Indirizzo logico del manager. Identifica il manager specificandolo in maniera univoca
L'indirizzo viene generato automaticamente alla creazione dell'oggetto.

getKnownManagerNumber

Public Function getKnownManagerNumber() As Long

Indica il numero di manager conosciuti.

getLocalIpAddress

Public Function getLocalIpAddress() As String

Indirizzo IP di ascolto per il manager

getPort

Public Function getPort() As Long

Porta di ascolto per il manager

IMsgManager_getAddress

Private Function IMsgManager_getAddress() As String

IMsgManager_Send

Private Function IMsgManager_Send(Env As CEnvelope, MngAddress As String) As Boolean

mServerSocket_OnConnectionRequest

Private Sub mServerSocket_OnConnectionRequest(ByVal requestID As Long)

Send

Public Function Send(Env As CEnvelope, ByVal MngAddress As String) As Boolean

La funzione ignora il MngAddress
Restituisce False se il manager non è nell'elenco dei manager registrati.
Se il manager destinazione è vuoto o è l'oggetto stesso, restituisce False se il Dispatcher non è stato specificato.

setLocalIpAddress

Public Function setLocalIpAddress(newValue As String)

Porta di ascolto per il manager

setPort

Public Function setPort(newValue As Long)

Porta di ascolto per il manager

StartListenForMessages

Public Function StartListenForMessages() As Boolean

Permette di cominciare ad ascoltare sulla porta indicata i messaggi in ingresso

StopListenForMessages

Public Sub StopListenForMessages()

Permette di cominciare ad ascoltare sulla porta indicata i messaggi in ingresso