CTcpManagerSlave

Slave per Manager utilizzabile per connettere due applicazioni differenti via IP

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

Il manager delega una istanza di questo oggetto per gestire una connessione specifica verso un peer Manager.

mSocket

Private WithEvents mSocket  As CSocket

Socket usata per coordinarsi con un Manager remoto

mstrLastError

Private mstrLastError       As String

mstrRemoteMsgManagerAddress

Private mstrRemoteMsgManagerAddress As String

Indica l'indirizzo dell'host remoto

mTcpManager

Private mTcpManager         As CTcpManager

Manager unico che funge da Master per questo oggetto

tmpSocket

Dim tmpSocket   As New CSocket

Tenta di connettersi al pari creando una connessione socket

LastError

Public Property Get LastError() As String

Descrizione dell'ultimo errore

LastError

Private Property Let LastError(newValue As String)

Descrizione dell'ultimo errore

Class_Terminate

Private Sub Class_Terminate()

Chiude la socket eventualmente aperta e gestita

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

mSocket_OnDataArrival

Private Sub mSocket_OnDataArrival(ByVal bytesTotal As Long)

mSocket_OnError

Private Sub mSocket_OnError(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Invia il messaggio Tcp all'host remoto.
Per scelta progettuale si aggiunge un ritorno a capo ad ogni messaggio in uscita