Christian,
I've tried in the first place using the autogenerated WSDL and the hight
level API but there is an error when the WSDL file is parsed by the VB6.0
client! So, I tried this, but as you can see without much luck.
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:36:14 +0200
>
>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
>���������������������������������������������������
>
>
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
