Nice to see you smiling, guy ;-)
Christian
Catalin Tomescu wrote:
> Christian,
> You rule man! It's working. Thanks a lot.
>
> I'm still using the low level API for STK.
> I'll try to use the high level as well.
>
> 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:55:48 +0200
> >
> >OK, this is the point where I wanted you to go ;-)
> >Did you aply the SoapRpcService attribute to your Web Service? This enables
> >an
> >RPC like WSDL whereas .NET Web Services default to a document oriented
> >communication style.
> >For more info please see:
>
>>ms-help://MS.NETFrameworkSDK/cpguidenf/html/cpconcustomizingsoapinaspnetwebserviceswebserviceclients.htm
> >
> >This helps out it (nearly) all ways ...
> >
> >Regards,
> >Christian
> >
> >
> >Catalin Tomescu wrote:
> >
> > > 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
> >
> >--
> >___________________________________________________
> >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
--
___________________________________________________
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
���������������������������������������������������
