Web Service PocketSoap Sample Working !!!
Posted: Mon Oct 05, 2009 6:11 pm
Hi friends,
Now that Microsoft abandoned MSSOAP, the best is use PocketSoap instead, this is a working sample (tested on Harbour only)
---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/webservicesse ... g.wso?WSDL", oEnvelope:Serialize() )
oEnvelope:Parse( oHttp )
MsgInfo( oEnvelope:Parameters:Item( 0 ):Value )
---cut---
get pocket soap from: http://www.pocketsoap.com/
Regards,
Toninho.
PS: Thanks Luiz Culick for indicate pocketsoap and for teach me.
Now that Microsoft abandoned MSSOAP, the best is use PocketSoap instead, this is a working sample (tested on Harbour only)
---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/webservicesse ... g.wso?WSDL", oEnvelope:Serialize() )
oEnvelope:Parse( oHttp )
MsgInfo( oEnvelope:Parameters:Item( 0 ):Value )
---cut---
get pocket soap from: http://www.pocketsoap.com/
Regards,
Toninho.
PS: Thanks Luiz Culick for indicate pocketsoap and for teach me.