frmTestOOSMom

Form per il testing del middleware Simple Message Oriented M.

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

Form di test. E' possibile testare il funzionamento locale, remoto e remoto collegato a Java.

ClsStub

Private ClsStub             As ClsTestProcedures

Classe usata come stub

ClsTest

Private WithEvents ClsTest  As ClsTestProcedures

Classe di test reale

IsInitialized

Private IsInitialized   As Boolean

MsgManager1

Dim MsgManager1      As New SMom.CTCPManager

MsgManager2

Dim MsgManager2      As New SMom.CTCPManager

Append

Private Sub Append(Msg As String)

ClsTest_OnComputeRequest

Private Sub ClsTest_OnComputeRequest(Msg As String)

CmdExecute_Click

Public Sub CmdExecute_Click(Index As Integer)

Test delle funzionalitą

CmdInizializza_Click

Private Sub CmdInizializza_Click()

CmdTestNormale_Click

Private Sub CmdTestNormale_Click()

DestroyServer

Public Sub DestroyServer()

Distrugge l'ambiente per poterlo eventualmente reinizializzare

Form_QueryUnload

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Form_Unload

Private Sub Form_Unload(Cancel As Integer)

InitServer

Public Sub InitServer()

Inizializza l'ambiente Client/Server a seconda delle impostazioni della finestra

TestClsTestProcedures

Public Sub TestClsTestProcedures(Dispatcher As IDispatcher, MsgManagerAddress As String)

Inizializza la classe, lo stub e lo skeleton