Hi
 
i have send code along with it in which i have passed parameters to server. It's connecting to url , but is not able to call method of Soap Server, and output is same
 
Result :
 
I have checked that it is able to call server as url , servlet is invoked over there , but method is not called since it's not printing it on the server
 
Pls let me know what to do, may be i am passing parameters in correct way , or method call is not correct.
My urn is engine , method name is concat which takes parameters as string.
I am using VB6.0 and Soap toolkit 2.0.
 
 
 
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>SOAP Client</TITLE>
</HEAD>
<%
  Dim Serializer
  Dim Reader
  Dim Connector
  Dim Answer
 

Set Connector = CreateObject("MSSOAP.HttpConnector")
  Connector.Property("EndPointURL") = "http://localhost:7001/soap/servlet/rpcrouter"
  Connector.Property("SoapAction") = "engine" & "#concat"
  Connector.Connect
 
  Connector.BeginMessage
 
Set Serializer = CreateObject("MSSOAP.SoapSerializer")
  Serializer.Init Connector.InputStream
  Serializer.startEnvelope
  Serializer.startBody
  Serializer.startElement "concat", "engine", "http://schemas.xmlsoap.org/soap/encoding/","nsl"
  Serializer.startElement  "a"
  Serializer.writeString "hello"
  Serializer.endElement
  Serializer.startElement  "b"
  Serializer.writeString "india"
  Serializer.endElement
 
  Serializer.endElement
  Serializer.endBody
  Serializer.endEnvelope
 

  Connector.EndMessage
 
  Set Reader = CreateObject("MSSOAP.SoapReader")
 
  Reader.Load Connector.OutputStream
 
  If (Reader.Fault Is Nothing) Then
 Answer=   Reader.Body.Text
  End If
 
%>
 

Result is:<%=Answer%>
 

</BODY>
</HTML>
 

<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>SOAP Client</TITLE>
</HEAD>
<%
  Dim Serializer
  Dim Reader
  Dim Connector
  Dim Answer
 

Set Connector = CreateObject("MSSOAP.HttpConnector")
  Connector.Property("EndPointURL") = "http://localhost:7001/soap/servlet/rpcrouter"
  Connector.Property("SoapAction") = "engine" & "#concat"
  Connector.Connect
 
  Connector.BeginMessage
 
Set Serializer = CreateObject("MSSOAP.SoapSerializer")
  Serializer.Init Connector.InputStream
  Serializer.startEnvelope
  Serializer.startBody
  Serializer.startElement "concat", "engine", "http://schemas.xmlsoap.org/soap/encoding/","nsl"
  Serializer.startElement  "a"
  Serializer.writeString "hello"
  Serializer.endElement
  Serializer.startElement  "b"
  Serializer.writeString "india"
  Serializer.endElement
 
  Serializer.endElement
  Serializer.endBody
  Serializer.endEnvelope
 

  Connector.EndMessage
 
  Set Reader = CreateObject("MSSOAP.SoapReader")
 
  Reader.Load Connector.OutputStream
 
  If (Reader.Fault Is Nothing) Then
 Answer=   Reader.Body.Text
  End If
 
%>
 

Result is:<%=Answer%>
 

</BODY>
</HTML>
 

 
 
 
 
Thanks
Janesh Kumar Vasudeva
ASAP Sols Pvt Ltd
B-3 Sector -4 Noida
Ph. No. 91-4443211/3212/3213

Reply via email to