Exemplo de uso do Pocket Soap no Harbour

[toninhofwi]

Olá pessoal,

Agora que a Microsoft abandonou o MSSOAP, o melhor é usar PocketSoap, este é um exemplo que roda perfeitamente, mas foi testado somente no Harbour:

---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---

baixe o pocket soap de: http://www.pocketsoap.com/

Toninho.

PS: Obrigado ao Luiz Culick por indicar o pocketsoap e ensinar a usá-lo.

[sygecom]

Esse Pocket SOAP, funciona com Windows Vista ?
O que tenho que instalar nas maquinas dos clientes com windows 98,XP e Vista ?

[rochinha]

Amiguinhos,

Para usar este recurso com seus aplicativos bastará registrar as DLLs que vem com o pacote:

pocketHTTP.dll e pSOAP32.dll

Eis meu exemplo funcional o qual faço envio de mensagem SMS usando um serviço na internet, a partir de meu sistema:

Código: Selecionar todos

// FiveWin 32 Bits - Usando Plataforma FastSMS

#include "FiveWin.ch"

function Main( cSMSID, cSMSSenha, cSMSPara, cSMSTexto )
   local oWnd, oSMS
   
   default cSMSID := "ABC123456", cSMSSenha := "001122", cSMSPara := "1199791772", cSMSTexto := "somente+um+teste"
   DEFINE WINDOW oWnd TITLE "Fast SMS - Envio"

          oFastSMS := TOLEAuto():New( "PocketSOAP.Envelope.2" )

          oParameters := oFastSMS:Parameters

          oParameters:Create( "id"   , cSMSID )
          oParameters:Create( "senha", cSMSSenha )
          oParameters:Create( "para" , cSMSPara )
          oParameters:Create( "texto", cSMSTexto )

          oFastHTTP := TOLEAuto():New( "pocketSOAP.HTTPTransport.2" )

          oFastHTTP:Send( "http://www.fastsms.com.br/sms.cfm?" + ;
            "id="    + oParameters:Item(0):Value + "&" + ;
            "senha=" + oParameters:Item(1):Value + "&" + ;
            "para="  + oParameters:Item(2):Value + "&" + ;
            "texto=" + oParameters:Item(3):Value, "" )

          ? "http://www.fastsms.com.br/sms.cfm?"+;
            "id="    + oParameters:Item(0):Value + "&" + ;
            "senha=" + oParameters:Item(1):Value + "&" + ;
            "para="  + oParameters:Item(2):Value + "&" + ;
            "texto=" + oParameters:Item(3):Value
            
   ACTIVATE WINDOW oWnd
   return nil

[toninhofwi]

Valeu Rochinha.

Mais um precioso exemplo.

Abraços,

Toninho.

[sygecom]

Muito Bom mesmo, vlw Rochinha.

[filizola]

rochinha, ta enviando sms com esta rotina ainda ?

[rochinha]

Amiguinho,

Só fiz os testes na época deste post, tanto que nem tenho mais o numero que usei.

A solução ainda existe e não foi a única que implementei, mas no momento não uso nenhuma.

[lwinter]

Oi Rochinha!
Como voce configura a sua conta de SMS? No exemplo nao fica claro como configurar isso? Teria como me explicar?

Muito Obrigado!

[rochinha]

Amiguinhos,

...
default cSMSID := "ABC123456", cSMSSenha := "001122"
...

Você receberá o ID e Senha do fornecedor do serviço.

[sygecom]

Para envio de SMS tem um serviço abaixo, inclusive com exemplo em xHarbour

http://fivewin.com.br/index.php?/topic/ ... ent-286470

[JoséQuintas]

Talvez tenha a ver com o post, talvez não.
Mas me chamou a atenção o fonte, pelo fato de usar json
Pode ser útil pra outras coisas
Nota: é o componente Microsoft, o mesmo pra download, comunicação NFE, e agora um exemplo em json

Código: Selecionar todos

Function Main()
  Local oOle, aRet, aHash:=hash(), cJson

    ahash["numero"]      := "55DDDTELEFONE"
    ahash["servico"]     := "short"
    ahash["mensagem"]    := "test msg"
    ahash["parceiro_id"] := "xxxxxxx"  // esse codigo tem na documentacao
    ahash["codificacao"] := "0" // vc pode comentar isto, eh o que diz a documentacao 

    cJson := hb_jsonEncode(ahash, .t.)
    cJson :="["+cJson+"]"

    Try
        oOle := CreateObject("MSXML2.XMLHTTP")
    Catch
        oOle := CreateObject("Microsoft.XMLHTTP")
    End

    oOle:Open( "POST", "https://api.disparopro.com.br/mt", .f. )
    oOle:SetRequestHeader( "Content-Type", "application/json")
    oOle:SetRequestHeader( "Authorization", "Bearer 99999999999")  // substituir o 99999999999 por seu token recibido no cadastrar
    oOle:Send(cJson)
    Do While oOle:readyState <> 4
       SysRefresh()
    Enddo

    MsgInfo(oOle:ResponseBody)
    hb_jsonDecode(oOle:ResponseBody, @aRet)
    xbrowser(aRet)

Return nil