kennethgardzinski

XOG : SOAP : .NET

Discussion created by kennethgardzinski on Feb 20, 2019

Heres a sample of a SOAP XOG in VB.NET

 

Private Function CallWebService(ByVal SOAP As String) As XmlDocument
   Using wcConnect As New WebClient()
      Dim xdResponse As New XmlDocument()
      wcConnect.Headers.Add("Content-Type", "application/soap+xml; charset=utf-8")
      xdResponse.LoadXml(wcConnect.UploadString(pUrl, SOAP))
      Return xdResponse
   End Using
End Function

 

Private Sub clarityLogin()
   Dim xdResponse As New XmlDocument()
   Dim xnmNsMgr As New XmlNamespaceManager(xdResponse.NameTable)
   xnmNsMgr.AddNamespace("soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
   xnmNsMgr.AddNamespace("xsi", "http://www.w3.org/2001/XMLSchema-instance")
   xnmNsMgr.AddNamespace("", "http://www.niku.com/xog")
   Dim strSoap As String = "<soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'    xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'    xmlns:tns='http://www.niku.com/xog'><soap:Header/><soap:Body><tns:Login><tns:Username>" & pUserName & "   </tns:Username><tns:Password>" & pPassword & "</tns:Password></tns:Login></soap:Body></soap:Envelope>"
   xdResponse = CallWebService(strSoap)
   pSessionId = xdResponse.SelectSingleNode("//soapenv:Envelope", xnmNsMgr).InnerText
End Sub

 

Private Sub clarityLogout()
   Dim strSoap As String = "<soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'    xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'    xmlns:tns='http://www.niku.com/xog'><soap:Header/><soap:Body><tns:Logout><tns:SessionID>" & strSessionId & "    </tns:SessionID></tns:Logout></soap:Body></soap:Envelope>"
   CallWebService(strSoap)
End Sub

Outcomes