Web Service PocketSoap Sample Working !!!

[toninhofwi]

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/webservicesserver/textcasing.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.

[Antonio Linares]

Toninho,

Thanks!

[leonardoinacio]

Toninho,

Obrigado pela ótima alternativa !
Funcionou perfeitamente.

O detalhe é que sempre temos que instalar o pacote PocketSopa para que as DLL fiquem registradas correto ?
Você conhece alguma forma de utilizar apenas portando as DLL no diretório da aplicação ?

Obrigado

[jorjio]

Hi,
I have set up pocketSOAP on windows 8.1 but it gives

xLINK: error: Unresolved external symbol '_HB_FUN_WIN_OLECREATEOBJECT referenced from

at compile.

[Antonio Linares]

Jorjio,

What xharbour version is it ? It seems as an old one.