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
