Boa tarde,
Preciso desenvolver um webservice que irá trabalhar com recebimento e retorno de XML, sou um pouco leigo quando se trata de WS, alguma dica do TDN por onde eu devo começar?
Estou olhando esta documentação sobre restful https://tdn.totvs.com/display/framework/WSRESTFUL, mas acredito que seja para JSON.
Matheus,
É possível trabalhar com REST recebendo e enviando XML.
Abaixo um exemplo bem simples desse processo, onde recebo um XML no POST e retorno um XML no GET:
#include "protheus.ch"
#include "restful.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} DnlRestXML
Exemplo de REST trabalhando com XML
@author Daniel Mendes
@since 03/06/2020
@version 1.0
/*/
//-------------------------------------------------------------------
wsrestful DnlRestXML description "Exemplo de REST com XML"
wsmethod post description "Recebe um XML" wssyntax "/v1" path "/v1"
wsmethod get description "Retorna um XML" wssyntax "/v1" path "/v1" produces APPLICATION_XML
wsmethod get error description "Gera uma exceção" wssyntax "/v1/error" path "/v1/error"
end wsrestful
//-------------------------------------------------------------------
/*/{Protheus.doc} get
Retorna um XML
@author Daniel Mendes
@since 03/06/2020
@version 1.0
/*/
//-------------------------------------------------------------------
wsmethod get wsservice DnlRestXML
local cXml as char
begincontent var cXml
<?xml version="1.0"?>
<teste>
<xisto>Daniel</xisto>
</teste>
endcontent
self:setResponse(cXml)
self:setStatus(200)
return .T.
//-------------------------------------------------------------------
/*/{Protheus.doc} post
Recebe um XML
@author Daniel Mendes
@since 03/06/2020
@version 1.0
/*/
//-------------------------------------------------------------------
wsmethod post wsservice DnlRestXML
local lRet as logical
local oXml as object
local cError as char
local cWarning as char
local cContentType as char
lRet := .F.
cContentType := self:getHeader("Content-Type")
self:setHeader("Accept", APPLICATION_XML)
if cContentType != nil .and. APPLICATION_XML $ Lower(cContentType)
cError := ""
cWarning := ""
oXml := XmlParser( self:getContent(), "_", @cError, @cWarning )
if ValType(oXml) == "O"
lRet := .T.
self:setStatus(201)
else
self:setStatus(400)
endif
else
self:setStatus(400)
endif
return lRet
//-------------------------------------------------------------------
/*/{Protheus.doc} error
Retorna um exceção
@author Daniel Mendes
@since 03/06/2020
@version 1.0
/*/
//-------------------------------------------------------------------
wsmethod get error wsservice DnlRestXML
self:setStatus(500)
return .F.Opa, muito obrigado Daniel!!! =)
— Matheus José 03 de Jun de 2020