B
Bill
Im trying to call a EAServer (Sybase-Jaguar) component through a ASP.NET
application but i'm getting the following error:
Message: "QueryInterface for interface JaguarTypeLibrary.DIORB failed."
Source: "mscorlib"
if i use the <%@ASPCOMPAT="true" %> directive everthing works fine! but
i'dont want to use ASPCOMPAT because this component will be used from many
users concurrent.
The same code works fine in win32 application!
------------------------------------------------
ASPX Code:
Dim manager As SessionManager.Manager
Dim factory As SessionManager.Factory
Dim session As SessionManager.Session
Dim obj As Object
Dim obj1 As bill.uo_bill 'jaguar package.component
Me.Label1.Text = ""
'ORB Initialization
Dim ORB As New JaguarTypeLibrary.ORB 'new ORB object
Try
ORB.init("") 'initialize the ORB instance <---Erorr!!!
Catch ex As Exception
Me.Label1.Text = ex.Message
Exit Sub
End Try
'Create a manager instance
obj = ORB.string_to_object ("iiop://xxx.xxx.xxx.xx:xxxx")
'protocol://serverort
manager = obj.Narrow_("SessionManager/Manager")
'Create Session
obj = manager.createSession("jagadmin", "xxxx")
'jaguar username, password
session = obj.Narrow_("SessionManager/Session")
'Create stub instances
obj = session.lookup("BILL/uo_bill") 'jaguar
package/component
factory = obj.Narrow_("SessionManager/Factory")
obj1 = factory.create
' Call server object's function
Me.Label1.Text = obj1.test("bill")
obj = Nothing
factory = Nothing
session = Nothing
manager = Nothing
ORB = Nothing
application but i'm getting the following error:
Message: "QueryInterface for interface JaguarTypeLibrary.DIORB failed."
Source: "mscorlib"
if i use the <%@ASPCOMPAT="true" %> directive everthing works fine! but
i'dont want to use ASPCOMPAT because this component will be used from many
users concurrent.
The same code works fine in win32 application!
------------------------------------------------
ASPX Code:
Dim manager As SessionManager.Manager
Dim factory As SessionManager.Factory
Dim session As SessionManager.Session
Dim obj As Object
Dim obj1 As bill.uo_bill 'jaguar package.component
Me.Label1.Text = ""
'ORB Initialization
Dim ORB As New JaguarTypeLibrary.ORB 'new ORB object
Try
ORB.init("") 'initialize the ORB instance <---Erorr!!!
Catch ex As Exception
Me.Label1.Text = ex.Message
Exit Sub
End Try
'Create a manager instance
obj = ORB.string_to_object ("iiop://xxx.xxx.xxx.xx:xxxx")
'protocol://serverort
manager = obj.Narrow_("SessionManager/Manager")
'Create Session
obj = manager.createSession("jagadmin", "xxxx")
'jaguar username, password
session = obj.Narrow_("SessionManager/Session")
'Create stub instances
obj = session.lookup("BILL/uo_bill") 'jaguar
package/component
factory = obj.Narrow_("SessionManager/Factory")
obj1 = factory.create
' Call server object's function
Me.Label1.Text = obj1.test("bill")
obj = Nothing
factory = Nothing
session = Nothing
manager = Nothing
ORB = Nothing