Exemplo de implementação de Web Service REST

Criamos as classes SysLibWsRestRequest e SysLibWsRestResponse para facilitar a manipulação de requisições em web services REST.

wsMethod POST wsService MyRestApi

  local lOk       := .F.
  local oRequest  := SysLibWsRestRequest():new(self)
  local oResponse := SysLibWsRestResponse():new(self)
  local oBody     := oRequest:getBody()
  local oService  := MyService():newMyService()

  if oService:save(oBody)
    lOk := .T.
    oResponse:success()
  else
    oResponse:badRequest(oService:getError())
  endIf

return lOk

Voltar