VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsTestProcedures_Proxy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' *********************************************************************
'* CLASS Proxy per lo Stub dinamico per il test per il middleware
'* <BR/>Autore: <B>Giorgio Bernardi</B>
'* E-Mail: <A HREF="mailto:giorgio.bernardi@studio.unibo.it">Giorgio.Bernardi@studio.unibo.it</A>
'* Data  : Settembre 2004
'* <DIV CLASS="ClassDescription">
'*  Proxy verso lo stub dinamico per il test.
'* </DIV>
' *********************************************************************
Option Explicit
Implements ClsTestProcedures

'* Riferimento allo Stub dinamico
Private mDynamicStub  As SMom.CDynamicStub

'* Riferimento allo Stub dinamico
Public Property Get DynamicStub() As SMom.CDynamicStub
    Set DynamicStub = mDynamicStub
End Property

Private Sub Class_Initialize()
    Set mDynamicStub = New SMom.CDynamicStub
End Sub

Private Function ClsTestProcedures_BigConcatena(a As String, b As String, c As String, d As String, e As String, f As String, g As String, h As String, i As String, l As String, m As String, n As String) As Variant
    ClsTestProcedures_BigConcatena = _
        DynamicStub.CallRemoteFunction("BigConcatena", True, a, b, c, d, e, f, g, h, i, l, m, n)
End Function

Private Function ClsTestProcedures_ComputeDiff(Arg1 As Long, Arg2 As Long) As Long
    ClsTestProcedures_ComputeDiff = _
        DynamicStub.CallRemoteFunction("ComputeDiff", True, Arg1, Arg2)
End Function

Private Sub ClsTestProcedures_ComputeSum(Addendo1 As Long, Addendo2 As Long)
    Call DynamicStub.CallRemoteFunction("ComputeSum", False, Addendo1, Addendo2)
End Sub

Private Function ClsTestProcedures_Concatena(Str1 As String, Str2 As String, Str3 As String) As String
    ClsTestProcedures_Concatena = _
        DynamicStub.CallRemoteFunction("Concatena", True, Str1, Str2, Str3)
End Function

Private Function ClsTestProcedures_Divide(Arg1 As Long, Arg2 As Long) As Long
    ClsTestProcedures_Divide = _
        DynamicStub.CallRemoteFunction("Divide", True, Arg1, Arg2)
End Function

Private Function ClsTestProcedures_GetSum(Addendo1 As Long, Addendo2 As Long) As Long
    ClsTestProcedures_GetSum = _
        DynamicStub.CallRemoteFunction("GetSum", True, Addendo1, Addendo2)
End Function

Private Sub ClsTestProcedures_hello()
    Call DynamicStub.CallRemoteFunction("hello", False)
End Sub