|
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 |
- Anyone implemented vb client with java server Janesh Vasudeva
- Re: Anyone implemented vb client with jav... Janesh Vasudeva
- Re: Anyone implemented vb client with jav... Brajendra . Singh
- Re: Anyone implemented vb client with... Janesh Vasudeva
- Re: Anyone implemented vb client with... Janesh Vasudeva
- Re: Anyone implemented vb client with jav... Brajendra . Singh
- Re: Anyone implemented vb client with jav... Brajendra . Singh
- Re: Anyone implemented vb client with... Janesh Vasudeva
- RE: Anyone implemented vb client with jav... Abbott, James STASCO-OTO/72
