My question is why you are not using the high level API of STK and just
consuming the auto-generated .NET WSDL ?
Of course this does not answer your initial question ...
Christian
Catalin Tomescu wrote:
> Christian,
> I'm not using a WSDL file for the .NET service.
> The VB6.0 client is using the low level API and the functions are listed
> bellow.
>
> The .NET client is working fine, so I know for sure the .NET service is also
> working file.
> But when I call the same .NET service from the VB6.0 the result is 1, which
> means that the value for both parameters is 0. Why?
>
> VB functions:
> ------------
> Private Function Execute(ByVal Method As String, ByVal A As Double, _
> ByVal B As Double) As Double
>
> Dim Serializer As SoapSerializer
> Dim Reader As SoapReader
> Dim ResultElm As IXMLDOMElement
> Dim FaultElm As IXMLDOMElement
> Dim Connector As SoapConnector
>
> On Error GoTo catch_err
> Set Connector = New HttpConnector
> Connector.Property("EndPointURL") = END_POINT_URL
> ' Connector.Property("SoapAction") = "uri:" & Method
> Connector.Property("SoapAction") = CALC_NS + Method
> Connector.Connect
> Connector.BeginMessage
>
> Set Serializer = New SoapSerializer
> Serializer.Init Connector.InputStream
>
> Call Serializer.startEnvelope("soap")
> Call Serializer.startBody
> Call Serializer.startElement(Method, CALC_NS, , "")
> Call Serializer.startElement("numberOne")
> Serializer.writeString CStr(A)
> Serializer.endElement
> Call Serializer.startElement("numberTwo")
> Serializer.writeString CStr(B)
> Serializer.endElement
> Serializer.endElement
> Serializer.endBody
> Serializer.endEnvelope
>
> Connector.EndMessage
>
> Set Reader = New SoapReader
> Reader.Load Connector.OutputStream
>
> If Not Reader.Fault Is Nothing Then
> MsgBox Reader.faultstring.Text, vbExclamation
> Else
> Execute = CDbl(Reader.RPCResult.Text)
> End If
> Exit Function
>
> catch_err:
> Debug.Print Err.Description
> End Function
>
> Private Sub Command1_Click()
> Debug.Print Execute("addNumbers", 10, 25)
> End Sub
>
> .NET service code is here
> <%@ WebService Language="C#" Class="MyService" %>
>
> using System;
> using System.Web.Services;
>
> [WebService(Namespace="http://www.catalin.com/webservices/";)]
> public class MyService: WebService {
> [ WebMethod(Description="return the sum of two numbers")]
> public double addNumbers(double numberOne, double numberTwo) {
> Console.WriteLine("Performing {0}+{1}", numberOne, numberTwo);
> return numberOne + numberTwo + 1;
> }
> }
>
> Regards,
> Catalin
>
> >From: Christian Weyer <[EMAIL PROTECTED]>
> >Reply-To: [EMAIL PROTECTED]
> >To: [EMAIL PROTECTED]
> >Subject: Re: C# Web Service and VB6.0 client
> >Date: Fri, 06 Jul 2001 23:07:24 +0200
> >
> >Can you please elaborate a bit more on this?
> >What does your WSDL look like, what does your Web Service code look like
> >... ?
> >
> >Regards,
> >Christian
>
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
--
___________________________________________________
eYesoft We see your visions.
���������������������������������������������������
Christian Weyer http://www.eyesoft.de
[EMAIL PROTECTED] Bernhard-Krieg-Str. 4
Tel.: +49-9393-993161 97845 Neustadt/Main
___________________________________________________
bUilding sMart iNternet aRchitectures
���������������������������������������������������
