We are trying to implement webMethods from COM+. So, I created a service which will post a XML string to another site. Now I am trying to invoke that service from my COM component.
Here I am using two classes CONTEXT, VALUES provided by webMethods.dll. I used CONTEXT to connect to the Integration server and VALUES class, is to Put the input values to the service and get the output back as an object.
After these objects work is finished, The COM+ is still showing the VALUES object is still active. It is destroying after some time. My understanding is The service from integration server is not releasing the COM object immediatly.
Basically I want to kill the two objects from COM after I finished CONTEXT for Connect and INVOKE to invoke the service.
I used Set object=nothing…but no use. it i killing only CONTEXT object, but not VALUES object.
Please help me…
Here is my code…
Option Explicit
Private s_objWC As webMethods.Context
Private s_objInputs As webMethods.Values
Private s_objOutputs As webMethods.Values
Public Function SubmitXMLToWM(ByVal p_lngApplicationNumber As Long, ByVal p_strXMLString As String) As String
On Error GoTo ErrorHandler
Dim s_strUID As String
Dim s_strPWD As String
Dim s_strServer As String
Dim s_intServerPort As Integer
Dim s_lngReturnValue As Long
Dim s_strStatus As String
Dim s_objMgr As COMPSMMGR.clsCOMPSMMGR
'---------------Read Application.ini file------------------------------
Set s_objMgr = New COMPSMMGR.clsCOMPSMMGR
s_strUID = s_objMgr.GetConnString("WebMEthods Data Source", "UID")
s_strPWD = s_objMgr.GetConnString("WebMEthods Data Source", "PWD")
s_strServer = s_objMgr.GetConnString("WebMEthods Data Source", "Server")
s_intServerPort = s_objMgr.GetConnString("WebMEthods Data Source", "ServerPort")
Set s_objMgr = Nothing
'Open the WM Connection
Set s_objWC = New webMethods.Context
s_objWC.Connect s_strServer & ":" & s_intServerPort, s_strUID, s_strPWD
'Invoke the Web Methods Service
Set s_objInputs = New webMethods.Values
s_objInputs.put "XMLString", p_strXMLString
Set s_objOutputs = s_objWC.Invoke("PostXMLToCAPS", "Ser_PostXMLToCAPS", s_objInputs)
s_strStatus = s_objOutputs.get("Status")
Set s_objInputs = Nothing
Set s_objOutputs = Nothing
s_objWC.disconnect
Set s_objWC = Nothing
SubmitXMLToWM = s_strStatus
Exit Function
ErrorHandler:
Set s_objMgr = Nothing
Set s_objInputs = Nothing
Set s_objOutputs = Nothing
s_objWC.disconnect
Set s_objWC = Nothing
Call DoLogError(Err.Number, Err.Source, "EN", 9000, _
"clsCOMPCCWEB - SubmitXMLToWM - (Application Number - " & p_lngApplicationNumber & ")" & _
Err.Description, 1, 1, , "")
SubmitXMLToWM = Err.Number
End Function
Public Function DoLogError(ByVal p_lngErrorNumber As Long, _
ByVal p_strErrorSource As String, _
ByVal p_strLanguage As String, _
ByVal p_lngEventId As Long, _
Optional ByVal p_strCustomMessage As String, _
Optional ByVal p_intLogTarget As Integer, _
Optional ByVal p_intLogType As Integer, _
Optional ByVal p_strContext As String, _
Optional ByVal p_strPageId As String, _