PC Toledo

Código: Selecionar todos

FUNCTION CallWebService()

   LOCAL uResult

   cCnpj          := "09072237000152"
   cTerminal      := "000001"
   cAutentica     := "0070244923"

  cXMlBody = '<?xml version="1.0" encoding="utf-8"?>'          +;
              '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">' +;
              ' <soap:Body>'                                    +;
              ' <WS_Busc_Projetos xmlns="http://tempuri.org/">' +;
              ' <identifica><cnpj>' + cCnpj + '</cnpj><terminal>' + cTerminal + '</terminal><autentica>' + cAutentica + '</autentica></identifica>'+;
              ' </WS_Busc_Projetos>'                            +;
              ' </soap:Body>'                                   +;
              '</soap:Envelope>'

  //-- instancia objeto - transport (comunicacao web service)

  try
     oHttp    := CreateObject( "PocketSOAP.HTTPTransport" )
  catch
     try
      oHttp    := CreateObject( "PocketSOAP.HTTPTransport" )
     catch
        Msginfo("Erro na criação do objeto PocketSOAP.HTTPTransport : " + Ole2TxtError())
        return NIL
     end
  end

  //-- instancia objeto - soap (envelope)

  try
     Envelope := CreateObject( "PocketSOAP.Envelope.11" )
  catch
     try
      Envelope := CreateObject( "PocketSOAP.Envelope.11" )
     catch
        Msginfo("Erro na criação do objeto PocketSOAP.Envelope.11 : " + Ole2TxtError())
        return NIL
     end
  end

   Envelope:SetMethod( "WS_Busc_Projetos" , "http://tempuri.org/" )

   Envelope:Parameters:Create( "cIdentifica" , cXMlBody )

   //-- name space
   
   oHttp:SOAPAction( "http://tempuri.org/WS_Busc_Projetos" )

   //-- ws calling

   oHttp:Send( "http://www.conectapdv.com.br/concentrador/concentrador.asmx?wsdl" , Envelope:Serialize() )

//-- erro aqui

   Envelope:Parse( oHttp )

   uResult := Envelope:Parameters:Item( 0 ):Value

   ? uresult

RETURN NIL

Código: Selecionar todos

#include "common.ch"
#include "hbclass.ch"
#include "hbwin.ch"
#include "hbcompat.ch"

FUNCTION main()

xmldom = CREATEOBJECT("MSXML2.DOMDocument")
xmldom:async = .T.
xmldom:validateOnParse = .T.
xmldom:resolveExternals := .T.
xmldom:preserveWhiteSpace = .T.

url := "http://www.conectapdv.com.br/concentrador/concentrador.asmx"
xmldoc = CREATEOBJECT("MSXML2.XMLHTTP")
xmldoc:open("POST", url, .F.)
xmldoc:SetRequestHeader( "Host" , "www.conectapdv.com.br" )
xmldoc:SetRequestHeader( "Content-Type" , "text/xml; charset=utf-8" )
xmldoc:SetRequestHeader( "SOAPAction" , "http://tempuri.org/WS_Busc_Projetos" )

cCnpj := "09072237000152"
cTerminal := "000001"
cAutentica := "0070244923"

Texto := '<?xml version="1.0" encoding="utf-8"?>'
Texto += '<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="http://tempuri.org/">'
Texto += '<SOAP-ENV:Body>'
Texto += '<ns1:WS_Busc_Projetos xmlns:ns1="http://tempuri.org/">'

Texto += '<ns1:cIdentifica>'

Texto += '<identifica>' // para quem não sabe usa-se < para < e > para >, pois é um xml dentro de outro
Texto += '<cnpj>'+cCnpj+'</cnpj>'
Texto += '<terminal>'+cTerminal+'</terminal>'
Texto += '<autentica>'+cAutentica+'</autentica>'
Texto += '</identifica>'
Texto += '</ns1:cIdentifica>'

Texto += '</ns1:WS_Busc_Projetos>'
Texto += '</SOAP-ENV:Body>'
Texto += '</SOAP-ENV:Envelope>'

xmldom:LoadXML(Texto)

IF xmldom:parseError:errorCode = 0
? "XML Carregado"
ELSE
lcErrorMsg = "Não foi possível carregar o documento pois ele não corresponde ao seu Schema"
lcErrorMsg = lcErrorMsg + " Linha: " + STR(xmldom:parseError:line)
lcErrorMsg = lcErrorMsg + " Caractere na linha: " + STR(xmldom:parseError:linepos)
lcErrorMsg = lcErrorMsg + " Causa do erro: " + xmldom:parseError:reason;
+"code: "+STR(xmldom:parseError:errorCode)
? lcErrorMsg
ENDIF

? "text "+xmldom:text
? "XML1 "+xmldom:xml

xmldoc:send(xmldom:xml)

?
do while xmldoc:readyState <> 4
?? ALLTRIM(STR(xmldoc:readyState))
millisec(50)
enddo

? "Resposta"
? "TEXT "+xmldoc:responseText
? "XML "+ xmldoc:responseXML:xml