$url = 'https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json';
      $agent = 'SUBSTITUIR PELO USER AGENT INFORMADO LOGO ABAIXO DO TOKEN';
      $headers = array(
        "Content-Type: application/json",
        "X-Cosmos-Token: AUTH_TOKEN"
      );

      $curl = curl_init($url);
      curl_setopt($curl, CURLOPT_USERAGENT, $agent);
      curl_setopt($curl, CURLOPT_HTTPHEADER, $headers);
      curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, false);
      curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
      curl_setopt($curl, CURLOPT_FAILONERROR, true);

      $data = curl_exec($curl);
      if ($data === false || $data == NULL) {
        var_dump(curl_error($curl));
      } else {
        $object = json_decode($data);

        var_dump($object);
      }

      curl_close($curl);
    

      curl -i -X GET \
        -A 'SUBSTITUIR PELO USER AGENT INFORMADO LOGO ABAIXO DO TOKEN' \
        -H "Content-Type:application/json" \
        -H "X-Cosmos-Token:AUTH_TOKEN" \
        'https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json'
    

      import urllib2
      import json

      headers = {
          'X-Cosmos-Token': 'AUTH_TOKEN',
          'Content-Type': 'application/json',
          'User-Agent': 'SUBSTITUIR PELO USER AGENT INFORMADO LOGO ABAIXO DO TOKEN'
      }

      req      = urllib2.Request('https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json', None, headers)
      response = urllib2.urlopen(req)
      data     = json.loads(response.read())

      print json.dumps(data, indent=4)
    

      var str,url: string;
      begin
      try
          url := 'https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json';

          IdHTTP1.Request.ExtraHeaders.Values['X-Cosmos-Token']:='AUTH_TOKEN';
          IdHTTP1.Request.ContentType := 'application/json;charset=UTF-8';
          IdHTTP.Request.UserAgent := 'SUBSTITUIR PELO USER AGENT INFORMADO LOGO ABAIXO DO TOKEN'

          Memo1.Clear;

          Screen.Cursor := crHourGlass;
          str := IdHTTP1.Get(url);

          except on E: Exception do
        Begin
          Memo1.Lines.Add('Resposta da exceção:');
          Memo1.Lines.Add('--> '+E.Message);
        End;
      end;

      Memo1.Lines.Add('HTTP Status Code:');
      Memo1.Lines.Add('--> '+IdHTTP1.ResponseText);

      Memo1.Lines.Add('Resposta da consulta:');
      Memo1.Lines.Add('--> ' + UTF8Decode(str));

      Screen.Cursor := crDefault;