Passing Objects to ActiveX Server
Posted on 2000-01-09
I have 3 projects: 1. The user interface. 2. The UI Business objects. 3. An ActiveX server.
I want to pass an object from the UI Business objects to the server. This server will not be known at run time, so I have to create the server with CreateObject. The server does have a reference to the UI Business objects, so I can declare variables of the type I am trying to pass. However, when I try to pass the object to the server I get error 13, type unknown. What am I doing wrong? Is it not possible to pass objects to servers created with Createobject?
The following is a code snippet from the UI Business object:
dim oServer as object
public sub Inialize(oObject as UIObject, sServerName as string)
set oServer = CreateObject("sServerName")
The following is a code snippet from the server. Keep in mind the server has a reference to the UI Business Object project:
dim svrUIObject as UIObject
Public sub Inialize(oObject as UIObject)
set svrUIObject = oObject