>-----Original Message----- >From: ToninhoFWi [mailto:[email protected]] >Sent: Wednesday, October 14, 2009 9:19 PM >To: Harbour Project Main Developer List. >Subject: Re: Re: [Harbour] Web Services in Harbour > ...
>This is a working sample: > >---cut--- >local oEnvelope := Win_OleCreateObject( >"PocketSOAP.Envelope.2" ) local oHttp := Win_OleCreateObject( >"PocketSOAP.HTTPTransport.2" ) > >oEnvelope:EncodingStyle = "" >oEnvelope:SetMethod( "InvertStringCase", >"http://www.dataaccess.com/webservicesserver/"; ) >oEnvelope:Parameters:Create( "sAString", "THIS IS LOWER - this >is upper" ) > >oHttp:Send( >"http://www.dataaccess.com/webservicesserver/textcasing.wso?WSDL";, >oEnvelope:Serialize() ) > >oEnvelope:Parse( oHttp ) > >MsgInfo( oEnvelope:Parameters:Item( 0 ):Value ) >---cut--- This sample is too working for me (after install PocketSOAP). But here I see 2 pcs of objects. These new elements, like serialize, create parameters etc. How in this example to look something like this? *---- LOCAL oSoapClient := CreateObject( "MSSOAP.SoapClient" ) ? ValType( oSoapClient) oSoapClient:msSoapInit( 'http://10.16.24.97:7001/SampleServices/pl/pzu/ws/sampleservice/VerySimp leService?WSDL') ? oSoapClient:addNumbers( 5.00, 7.00) *---- Can I receive as a result of the complex result (array, object ) ? Regards, Marek Horodyski _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
