Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


Pagetitle
TWsdlManager:SendSoapMsg
TWsdlManager:SendSoapMsg

Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

...

Envio o documento SOAP gerado ao endereço definido.

Sintaxe

Bloco de código
lógico
SendSoapMsg( [ cMsg ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cMsg

caractere

Indica a mensagem SOAP que será enviada, ao invés da mensagem gerada pela lib usando os valores que forma definidos.

...

 

...



Retorno

Nome

Tipo

Descrição

lRet

lógico

Verdadeiro (.T.) caso consiga enviar o documento e receber a reposta do servidor. Falso (.F.) caso contrário.

Observações

  • Em caso de erro, olhar as os atributos

...

Exemplos

languagecpptrue
Bloco de código
languagecpp
themeEclipse
title
Exemplo 1
linenumberstrue
collapse
false
User Function Teste()
  Local oWsdl
  Local xRet
  Local cMsg := ""
  
  // Cria o objeto da classe 
tWsdlManager
TWsdlManager
  oWsdl := 
tWsdlManager
TWsdlManager():New()
  
  // Faz o parse de uma URL
  xRet := oWsdl:ParseURL( "http://wsf.cdyne.com/WeatherWS/Weather.asmx?WSDL" )
  if xRet == .F.
    conout( "Erro: " + oWsdl:cError )
    Return
  endif
  
  // Define a operação
  xRet := oWsdl:SetOperation( "GetCityForecastByZIP" )
  if xRet == .F.
    conout( "Erro: " + oWsdl:cError )
    Return
  endif
  
  // Define o valor de cada parâmeto necessário
  xRet := oWsdl:SetValue( 0, "90210" )
  if xRet == .F.
    conout( "Erro: " + oWsdl:cError )
    Return
  endif
  
  // Envia a mensagem SOAP ao servidor
  xRet := oWsdl:SendSoapMsg()
  if xRet == .F.
    conout( "Erro: " + oWsdl:cError )
    Return
  endif
  
  cMsg := "<?xml version='1.0' encoding='UTF-8' standalone='no' ?>"
  cMsg += '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://www.w3.org/2003/05/soap-envelope" '
  cMsg += 'xmlns:SOAP-ENC="http://www.w3.org/2003/05/soap-encoding" '
  cMsg += 'xmlns:xsd="http://www.w3.org/2001/XMLSchema" '
  cMsg += 'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" '
  cMsg += 'xmlns:ns1="http://ws.cdyne.com/WeatherWS/">'
  cMsg += '<SOAP-ENV:Body>'
  cMsg += '<GetCityForecastByZIP xmlns="http://ws.cdyne.com/WeatherWS/">'
  cMsg += '<ZIP>22313</ZIP>'
  cMsg += '</GetCityForecastByZIP>'
  cMsg += '</SOAP-ENV:Body>'
  cMsg += '</SOAP-ENV:Envelope>'
  
  // Envia uma mensagem SOAP personalizada ao servidor
  xRet := oWsdl:SendSoapMsg( cMsg )
  if xRet == .F.
    conout( "Erro: " + oWsdl:cError )
    Return
  endif
Return

Veja também