{"id":3662,"date":"2019-03-25T17:45:22","date_gmt":"2019-03-25T20:45:22","guid":{"rendered":"http:\/\/xexeu.elipse.com.br\/pt\/consumindo-e-enviando-dados-de-um-webservice-que-utiliza-o-formato-json\/"},"modified":"2026-03-12T09:57:55","modified_gmt":"2026-03-12T12:57:55","slug":"consumindo-e-enviando-dados-de-um-webservice-que-utiliza-o-formato-json","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/consumindo-e-enviando-dados-de-um-webservice-que-utiliza-o-formato-json\/","title":{"rendered":"Consumindo e enviando dados de um webservice que utiliza o formato JSON."},"content":{"rendered":"
\n

1. Introdu\u00e7\u00e3o<\/b><\/u><\/p>\n

O JSON <\/b>(JavaScript Object Notation<\/i>) \u00e9 um modelo leve para armazenamento e transmiss\u00e3o de informa\u00e7\u00f5es no formato texto. Embora simples, este modelo tem sido bastante utilizado por aplica\u00e7\u00f5es web devido a sua capacidade de estruturar informa\u00e7\u00f5es de uma forma mais compacta em compara\u00e7\u00e3o com o modelo XML.<\/p>\n

Em JSON, os dados s\u00e3o apresentados da seguinte forma:<\/p>\n

\"\"<\/div>\n

Um objeto \u00e9 um conjunto desordenado de pares nome\/valor; ele come\u00e7a com {<\/b> (chave de abertura) e termina com }<\/b> (chave de fechamento). Cada nome \u00e9 seguido por :<\/b> (dois pontos), e os pares nome\/valor s\u00e3o seguidos por ,<\/b> (v\u00edrgula).<\/p>\n

\"\"<\/div>\n

Um array \u00e9 uma cole\u00e7\u00e3o de valores ordenados; ele come\u00e7a com [<\/b> (colchete de abertura) e termina com ] <\/b>(colchete de fechamento). Os valores s\u00e3o separados por ,<\/b> (v\u00edrgula).<\/p>\n

Exemplo de uma estrutura JSON:<\/p>\n

[<\/span>\r\n\u00a0\u00a0\u00a0 {<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"id\": 1,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"username\": \"ElipseRS\",<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"password\": \"Eli123\"<\/span>\r\n\u00a0\u00a0\u00a0 },<\/span>\r\n\u00a0\u00a0\u00a0 {<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"id\": 2,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"username\": \"ElipseSP\",<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"password\": \"EliSP123\"<\/span>\r\n\u00a0\u00a0\u00a0 },<\/span>\r\n\u00a0\u00a0\u00a0 {<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"id\": 3,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"username\": \"ElipseMG\",<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \"password\": \"ElipMG123\"<\/span>\r\n\u00a0\u00a0\u00a0 }<\/span>\r\n]<\/span><\/pre>\n
Al\u00e9m das op\u00e7\u00f5es que ser\u00e3o apresentadas neste artigo para consumir e enviar dados em formato JSON, tamb\u00e9m \u00e9 poss\u00edvel realizar essa comunica\u00e7\u00e3o por meio do Driver Elipse RESTAPIClient<\/a>. Esse driver implementa os protocolos HTTP e HTTPS, permitindo que aplica\u00e7\u00f5es desenvolvidas com produtos da Elipse Software se conectem diretamente a APIs RESTful. Ele oferece suporte completo aos m\u00e9todos HTTP padr\u00e3o (GET, POST, PUT, DELETE, entre outros) e ao formato de dados JSON, facilitando a integra\u00e7\u00e3o com servi\u00e7os Web de forma simples e nativa.
\nPara mais detalhes, consulte a documenta\u00e7\u00e3o do driver e a aplica\u00e7\u00e3o exemplo<\/a> dispon\u00edvel ao final deste artigo.<\/p>\n
2. Webservice JSON<\/b><\/u><\/p>\n
Um webservice no formato JSON foi desenvolvido para a simula\u00e7\u00e3o de valores. Quanto \u00e0 confirma\u00e7\u00e3o dos dados da solicita\u00e7\u00e3o HTTP: no POST, foram retornados os valores enviados e uma mensagem de sucesso no envio (no formato JSON); no GET, foram retornados valores conforme padr\u00e3o estabelecido pelo protocolo.<\/p>\n
Formato do webservice utilizado:<\/p>\n
[\r\n{\r\n\"id\":1,\r\n\"email\":\"scherer@elipse.com.br\",\r\n\"username\":\"scherer\",\r\n\"password\":\"password\"\r\n},\r\n{\r\n\"id\":2,\r\n\"email\":\"delio@elipse.com.br\",\r\n\"username\":\"delio\",\r\n\"password\":\"password123\"\r\n},\r\n{\r\n\"id\":3,\r\n\"email\":\"enrico@elipse.com.br\",\r\n\"username\":\"enrico\",\r\n\"password\":\"password321\"\r\n}\r\n]<\/span><\/pre>\n
3. Integrando o Elipse E3 com o Webservice JSON
\n<\/b><\/u>
\nAssim como o XML, o VBScript n\u00e3o suporta o tratamento do JSON de modo nativo. Uma alternativa \u00e9 utilizar uma classe em VBScript que fa\u00e7a a an\u00e1lise sint\u00e1tica (parsing) de uma string em JSON (iniciada com “{” ou com “[“), ou que opcionalmente fa\u00e7a uma chamada HTTP utilizando o componente “msxml2.ServerXMLHTTP<\/i>” e avalie a string JSON retornada por esta chamada.<\/p>\n
NOTA<\/b>: A string utilizada para a cria\u00e7\u00e3o do componente Microsoft\u00ae XML Core Services (MSXML) pode variar de acordo com a vers\u00e3o dispon\u00edvel no sistema. \u00c9 poss\u00edvel verificar quais DLLs “msxml” est\u00e3o presentes no computador na pasta C:\\Windows\\system32<\/i>.
\nEm determinadas situa\u00e7\u00f5es, o componente Microsoft\u00ae XML Core Services (MSXML) pode ser incompat\u00edvel<\/strong> com o WebService utilizado. Nestes casos, ao criar o objeto substitua o CreateObject<\/span>(“Msxml2.ServerXMLHTTP<\/strong>“<\/span>)<\/em> por CreateObject<\/span>(“Msxml2.XMLHTTP<\/strong>“<\/span>)<\/em>.<\/p>\n
4. Consumindo dados do webservice (GET)<\/b><\/u><\/p>\n
O script abaixo foi utilizado para realizar a leitura dos dados do webservice:<\/p>\n
Sub CommandButton1_Click()\r\nDim oJsonParser\r\nSet oJsonParser = new aspJSON\u00a0\u00a0 'Cria\u00e7\u00e3o do objeto tipo aspJSON\r\n\r\n'Inserir endere\u00e7o do Webservice\r\nURL = \"http:\/\/www.filltext.com\/?rows=3&id={index}&email={email}&username={username}&password={randomString|5}&pretty=true\"\r\noJsonParser.LoadJSON(URL) 'Carregando objeto JSON\r\nFor i = 0 to oJsonParser.data.count - 1\r\n\u00a0\u00a0 Screen.Item(\"ID\"&i&\"\").Value = oJsonParser.data(i).item(\"id\")\r\n\u00a0\u00a0 Screen.Item(\"Email\"&i&\"\").Value = oJsonParser.data(i).item(\"email\")\r\n\u00a0\u00a0 Screen.Item(\"User\"&i&\"\").Value = oJsonParser.data(i).item(\"username\")\u00a0 \r\n\u00a0\u00a0 Screen.Item(\"Password\"&i&\"\").Value = oJsonParser.data(i).item(\"password\")\r\nNext \r\nEnd Sub<\/pre>\n
\"\"<\/div>\n
NOTA<\/b>: A classe aspJSON referenciada acima n\u00e3o foi exibida, mas ela \u00e9 respons\u00e1vel por realizar o parsing em uma string JSON. Na aplica\u00e7\u00e3o exemplo em anexo, esta classe estar\u00e1 dispon\u00edvel.<\/p>\n
5. Escrevendo no Webservice (POST)<\/u><\/b><\/p>\n
Para realizar a escrita no webservice, foi utilizado o objeto ServerXMLHTTP<\/b>, que fornece m\u00e9todos e propriedades que permitem estabelecer uma conex\u00e3o HTTP entre arquivos ou objetos em diferentes servidores web. O script abaixo foi utilizado para realizar a escrita dos dados no webservice:<\/p>\n
Sub CommandButton2_Click()\r\nDim objXmlHttpMain , URL\r\nstrJSONToSend = \"{\"\"id\"\": \"\"0\"\", \"\"email\"\": \"\"elipse@elipse.com.br\"\", \"\"username\"\": \"\"Elipse\"\", \"\"password\"\": \"\"Elipse123\"\"}\"\r\nURL=\"http:\/\/scherer:5000\/users\/\" 'Endere\u00e7o do webservice\u00a0 \r\nSet objXmlHttpMain = CreateObject(\"Msxml2.ServerXMLHTTP\")\r\nOn Error Resume Next \r\nobjXmlHttpMain.open \"POST\",URL, False \r\nIf Err Then\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 'handle errors\r\n   Msgbox Err.Description & \" [0x\" & Hex(Err.Number) & \"]\"\r\nEnd If\r\nOn Error Goto 0 \r\nobjXmlHttpMain.setRequestHeader \"Content-Type\", \"application\/json\"\r\nobjXmlHttpMain.send strJSONToSend\r\nstrResponse = objXmlHttpMain.responseText\r\nmsgbox strResponse\r\nEnd Sub<\/pre>\n
\"\"<\/div>\n
6. Aplica\u00e7\u00e3o exemplo<\/u><\/b><\/p>\n
O exemplo em anexo foi desenvolvido na vers\u00e3o 4.7 build 252 do Elipse E3 e projetado para ser compat\u00edvel com a estrutura do webservice ilustrado no item 2. Para atender a outros formatos, ser\u00e1 preciso adapt\u00e1-lo, e consequentemente, o endere\u00e7o da URL do webservice deve ser alterado no script.
\nEm anexo, tamb\u00e9m h\u00e1 um exemplo que realiza a leitura de um Webservice JSON via Driver Elipse VBScript.<\/p>\n