Integracao API BlueSoft Cosmos

[Daniel Paixão-Cascavel]

Galera, bom dia! Alguem ai já fez integração para consulta no site Cosmos da Bluesoft:

http://cosmos.bluesoft.com.br/api

Se alguém já o fez através do Delphi, preciso de um help.

 

Abraço.

[renato_oda]

Boa tarde, fiz um teste simples aqui pelo www.hurl.it com o seguinte GET ( https://cosmos.bluesoft.com.br/api/gtins/7891331010508 ) com o Token que eles me informaram e não funcionou (tentei ontem e hoje), mas não parece complicado a integração, o problema é a documentação que achei bem fraca. Como retorno é um JSON fica bem simples, só dar um parse nele (versões acima do Delphi 2010 tem bibliotecas prontas), ou utiliza um framework para isso (aconselho o xSuperObject achei bem simples e funciona com FMX).

Abraço

[dimom]

Conseguiu fazer a integração ?

[Giquieu]

Se vc estiver usando Delphi XE7+ usa os componentes da REST.*

Vc vai precisar 3 componentes:

REST: TRESTClient;

Request: TRESTRequest;

Response: TRESTResponse;

E vai montar o código parecido com esse:

REST.BaseURL := ' http://cosmos.bluesoft.com.br/api';

Request.Client := REST;

Request.Response := Response;

Request.Method := rmGet;

Request.Resource := '/gtins/{codigo}';

Request.Params.AddHeader('X-Cosmos-Token', 'SEU_TOKEN');

Request.Set Params.ParameterByName('codigo').Value := 'GTIN_DO_PRODUTO';

Request.Execute;

if (Response.StatusCode = 200) then
begin
  Meu_Objeto_Que_Representa_o_JSON_do_Cosmos :=   Meu_Parser_De_Json_Para_Algo_Que_Meu_Sistema_Entende(Response.JSONValue);
end;

Meu_Parser_De_Json_Para_Algo_Que_Meu_Sistema_Entende Aqui vc pode usar xSuperObject como o Renato falou ou outra biblioteca que lê JSON. 

Recomendo usar as do próprio Delphi System.JSON.

Meu_Objeto_Que_Representa_o_JSON_do_Cosmos Aqui pode ser algo que o seu sistema conheça, um Objeto, um DataSet. Algo que represente o retorno do Cosmos.

 

Um pequeno exemplo pra vc pegar valores do retorno do Cosmos usando a System.JSON:

ResponseCosmos: TJSONValue;
// Para pegar a description que está de exemplo no site:
ResponseCosmos.GetValue<TJSONString>('description').Value;
// Para pegar a o code do NCM que está de exemplo no site:
ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('code').Value;  
ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('description').Value;    
ResponseCosmos.GetValue<TJSONObject>('ncm').GetValue<TJSONString>('full_description').Value;      
  
// Note que os Parametros estao em minusculos, é CASESENSITIVE...  

 

[Olides Pedro]

Boa tarde, Fiz alguns teste com o exemplo acima de Giquieu e deu tudo certo. mais no site da cosmos eles mostra o retorno da consulta apenas com os parâmetros de informações básica do produto como descrição, preço,preço médio, ncm, codbarra etc. até ai tudo bem, mais alguém sabe como pega as informações de tributação federal e estadual, quais são os parâmetros a ser passado?  

 

[Giquieu]

Pedro, na documentação da API não existe nada sobre trazer as informações de tributações. Logo, nessa versão da API não é possível acessar as tributações ou eles não documentaram. Mas creio que a BlueSoft deve estar fazendo alguma coisa pra disponibilizar esses dados...

Acompanho a API do Cosmos faz um tempo, lembro que no inicio era disponibilizado apenas a descrição e alguma coisa de NCM. Hoje já dá até pra pegar a imagem do produto (quando existe rsrss).

Editado 28 Março, 2016 por Giquieu

[Vitória Souza]

Olá Pessoal,  

Quem precisar de ajuda para integração do COSMOS com a API, podemos ajudar vocês. 

O Cosmos é o maior catalogo online com 5.200.000.00 produtos. 

E temos planos gratuitos para integração. 

http://cosmos.bluesoft.com.br/api-pricings

 

Qualquer dúvida estou à disposição. 

= D

 

[melissanascimento]

boa noite, 

 Estou tentando usar o exemplo do  Giquieu  com o Delphi Tokyo mais estou me deparando em uma linha. 
 Request.Method := rmGET; já tentei usar Request.Method := TRequestMethod.rmGET;
 da erro "[dcc32 Error] Unit2.pas(40): E2003 Undeclared identifier: 'rmGET'" 

 obrigada. 

 

 

 

[Giquieu]

Em 2017-5-23 at 21:54, melissanascimento disse:

boa noite, 

 Estou tentando usar o exemplo do  Giquieu  com o Delphi Tokyo mais estou me deparando em uma linha. 
 Request.Method := rmGET; já tentei usar Request.Method := TRequestMethod.rmGET;
 da erro "[dcc32 Error] Unit2.pas(40): E2003 Undeclared identifier: 'rmGET'" 

 obrigada. 

 

 

 

Não tenho o Tokyo para verificar, mas provavelmente é o uses que não está correto... 

Adicione a REST.Types no uses do seu fonte e tente novamente...

 

Pode dar uma olhada aqui:

http://docwiki.embarcadero.com/Libraries/Tokyo/en/REST.Types.TRESTRequestMethod

[melissanascimento]

Obrigada vou testar está parado esse projeto.

[melissanascimento]

 Boa tarde, Giquieu 
 Desculpe amolar mais estou aprendendo sobre API. Estava mesmo sem declarar "USES REST.types, System.JSON;"

 Porém estou com outras duvidas segue o código que estou tentando obter a Descrição do produto.

procedure TForm2.Button2Click(Sender: TObject);
var ResponseCosmos : TJSONValue;
begin
RESTClient2.BaseURL := ' http://cosmos.bluesoft.com.br/api';
RESTRequest2.Method := TRESTRequestMethod.rmGET;
RESTRequest2.Resource := '/gtins/{codigo}';
RESTRequest2.Params.AddHeader('X-Cosmos-Token', 'TGPSKTTfDy7ut9e6NfFMHA');
RESTRequest2.Params.AddUrlSegment('codigo',Edit3.Text);
RESTRequest2.Execute;

if (RESTResponse2.StatusCode = 200) then begin
  ResponseCosmos.GetValue<TJSONString>('description').Value;
  ShowMessage(ResponseCosmos.ToJSON); // Retorna a Descrição do Produto
end;

Mais da erro do projeto depois da linha if (RESTResponse2.StatusCode = 200) then begin

 

Obrigada. 

 

[Giquieu]

Em 05/07/2017 at 13:00, melissanascimento disse:

 Boa tarde, Giquieu 
 Desculpe amolar mais estou aprendendo sobre API. Estava mesmo sem declarar "USES REST.types, System.JSON;"

 Porém estou com outras duvidas segue o código que estou tentando obter a Descrição do produto.

procedure TForm2.Button2Click(Sender: TObject);
var ResponseCosmos : TJSONValue;
begin
RESTClient2.BaseURL := ' http://cosmos.bluesoft.com.br/api';
RESTRequest2.Method := TRESTRequestMethod.rmGET;
RESTRequest2.Resource := '/gtins/{codigo}';
RESTRequest2.Params.AddHeader('X-Cosmos-Token', 'TGPSKTTfDy7ut9e6NfFMHA');
RESTRequest2.Params.AddUrlSegment('codigo',Edit3.Text);
RESTRequest2.Execute;

if (RESTResponse2.StatusCode = 200) then begin
  ResponseCosmos.GetValue<TJSONString>('description').Value;
  ShowMessage(ResponseCosmos.ToJSON); // Retorna a Descrição do Produto
end;

Mais da erro do projeto depois da linha if (RESTResponse2.StatusCode = 200) then begin

 

Obrigada. 

 

Olá,

Provavelmente seu ResponseCosmos está NIL. Faça o seguinte:

ResponseCosmos := RESTResponse2.JSONValue;

ou

RESTResponse2.JSONValue.GetValue<TJSONString>('description').Value;

Tome cuidado ao acessar variáveis não instanciadas...