1Client multi-Server Application

[Kersey]

Hello World,

I'm trying to use the following code to build a client-server app (cleaned up the code a bit/lot). Works fine till now, But.....
I want to make the client connect to multiple servers.
So best thing to do (I Think) is make one collection of the client-objects, where the different servers will call back upon.
Can anyone help me with this code, coz I don't seem to get it right?
If you want the full example I used please let me know & i'll mail it to you.

GREETINX,

Don

CLIENT-vbp :

form :

Dim objCbSvr As Object
Dim objMyClassInstance As Object


Private Sub cmdconnect_Click
  
  Set objMyClassInstance = New CbClientProj.CbClientClass
  Set objCbSvr = CreateObject("CbServerProj.CbServerClass")
  
  if objCbSvr.AddObjectReference(objMyClassInstance) Then
	objCbSvr.MyServerMethode(test)
  end if

end sub


Private Sub cmddisconnect_Click
 
If objCbSvr.DropObjectReference(objMyClassInstance) Then
         
        Set objMyClassInstance = Nothing
        Set objCbSvr = Nothing
end if

end sub

class:

Private Sub Class_Terminate()
  Debug.Print "CbClientProj.CbClientClass Terminated."
End Sub

Private Sub Class_Initialize()
  Debug.Print "CbClientProj.CbClientClass Initialized."
End Sub

Public Sub MyclientSub(test As String)
  'This is the *public* method the server calls (-back onto)
  'more code     
End Sub

SERVER-vbp :

module:

Global gObjRef As Object

class:

Private Sub Class_Terminate()
'  Debug.Print "CbServerProj.CbServerClass has terminated"
End Sub
Private Sub Class_Initialize()
'  Debug.Print "CbServerProj.CbServerClass has intialized"
End Sub

Public Function AddObjectReference(Caller As Object) As Boolean
  
  Set gObjRef = Caller
  
  AddObjectReference = True
  
End Function

Public Function DropObjectReference(Caller As Object) As Boolean

If gObjRef Is Caller Then
        DropObjectReference = True
  Else
'    Debug.Print "Caller not the same as ObjRef.  Unable to quit."
    DropObjectReference = False
  End If
End Function

Public sub MyServermethode(test) 
    
    'more code on server which later on triggers following code
    gObjRef.MyclientSub (serverdata)	  
	
End Sub

[Joacim Andersson]

Would it not be easier to simply make an array of client objects, one for each server?

[Kersey]

Hmm,

Don't know for sure but i think an array is 1 object, so the server has to know the number of the array also.
when using a collection the server probably calls onto collection using the correct key.

Don't think this matters a lot.
still preffering the collection (easier to handle), i'm trying things to solve this meanwhile

thanks for the input, Joacim.

by the way the client is actually the master-server which fills the database with info from all the other servers.