|
Hi
i am attaching new file 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
Thanks Janesh Kumar Vasudeva
ASAP Sols Pvt Ltd B-3 Sector -4 Noida Ph. No. 91-4443211/3212/3213 |
<% 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>
