Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcio pereira batista

conectar restdebugger com delphi e api skyhub

Recommended Posts

 

boa tarde amigos, meu problema e o seguinte :
estou tentando implementar uma comunicação do meu sistema com api da skyhub para integração dos sistemas, mas não estou conseguindo configurar corretamente a conexão no delphi ou pelo restdebugger (da o mesmo erro nos 2), fiz as configurações de acordo com o manual da skyhub e quando uso uma requisição get / questions vai normalmente no rest debugger (consequentemente no delphi tb) + caso eu tente outros comandos tipo : /products ou /categories , me retorna o json : 
{ 
"error":"Usuário bloqueado ou inexistente" 
} 

fiz utilizando a recomendação do amigo com o programa ReadyAPI 2.5.0 conforme sugerido e conecta perfeitamente e executado todos os comandos sem problema, sendo assim o problema esta em conseguir configurar no delphi, segue rotina q tentei no delphi via linha de comando e da o mesmo erro que no rest debugger, no manual do provedor do serviço esta para configurar no header conforme fiz e funcionou no readapi e no site da skyhub tb funciona normalmente no api explorer + no delphi nada me retorna o erro acima.

restClient1.baseurl :='https://api.skyhub.com.br'; 
restClient1.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,'; 
restResponse1.ContentType := 'text/xml'; 
restRequest1.AcceptCharset := 'UTF-8, *;q=0.8'; 
restRequest1.Params[0].Kind := pkHTTPHEADER; 
restRequest1.Params[0].name := 'Accept'; 
restRequest1.Params[0].Value := 'application/json;charset=UTF-8'; 
restRequest1.Params[1].Kind := pkHTTPHEADER; 
restRequest1.Params[1].name := 'Content-Type'; 
restRequest1.Params[1].Value := 'application/json'; 
restRequest1.Params[2].Kind := pkHTTPHEADER; 
restRequest1.Params[2].name := 'X-User-Email'; 
restRequest1.Params[2].Value := 'multisoftwarepdosul@gmail.com'; 
restRequest1.Params[3].Kind := pkHTTPHEADER; 
restRequest1.Params[3].name := 'x-accountmanager-key'; 
restRequest1.Params[3].Value := 'minhakey'; 
restRequest1.Params[4].Kind := pkHTTPHEADER; 
restRequest1.Params[4].name := 'x-Api-Key'; 
restRequest1.Params[4].Value := 'minhasenhaapi'; 
restRequest1.resource:='/categories'; 
restRequest1.execute; 

caso eu troque o /categories para /questions por exemplo retorna 200, + qualquer outro comando retorna usuario bloqueado ou inexistente, sendo q pelo ready api e site da skyhub vai tudo normalmente
desde ja agradeço a quem possa me ajudar
desde ja agradeço

Compartilhar este post


Link para o post
Compartilhar em outros sites

  • Conteúdo Similar

    • Por Daniel Jose Sobrinho
      Olá, eu tenho um memo em Delphi com as seguintes linhas
       
      CALDO DE GALINHA
      LEMON PEPPER
       
      Preciso que fique com 10 ponto e virgula, já contando os que vão estar no espaço em branco assim:
       
      CALDO;DE;GALINHA;;;;;;;;
      LEMON;PEPPER;;;;;;;;;
       
      Pra substituir os espaços em branco já usei o stringreplace e funcionou corretamente:
       
      memo1.text := StringReplace(memo1.text,',',';',[rfReplaceAll]);
    • Por Giovanird
      Olá a todos!
      Tenho uma api  Sala de Aula e dentro dela o id de cada aluno. Em outra api, API ALUNO,  tenho os dados de cada aluno:  nome, foto, endereço.
      Estou fazendo o foreach da api Sala de Aula e preciso também retornar os dados de cada aluno.
      Segue o código que não estou conseguindo desenvolver
      $sala = file_get_contents("https://api/sala?id=987"); $sala = json_decode($sala, true); $sala = $sala['data']; foreach ($sala as $resulsala){ $codigoaluno = $resulsala['idaluno']; $alunos = file_get_contents("https://api/alunos?id=$codigoaluno"); $alunos = json_decode($alunos, true); $alunos = $alunos['data']; foreach ($alunos as $resulalunos){ echo $resulalunos['nome']; echo $resulalunos['foto']; echo $resulalunos['rua']; } }  
    • Por Orico Chain
      Oi pessoal,
       
      Preciso de ajuda, estou tentando gerar um TXT com dados de uma API mas não estou conseguindo:
       
      <?php $curl = curl_init(); curl_setopt_array($curl, array( CURLOPT_URL => "https://api.bololex.com/api/prices/TRX-USDT", CURLOPT_RETURNTRANSFER => true, CURLOPT_TIMEOUT => 30, CURLOPT_HTTP_VERSION => CURL_HTTP_VERSION_1_1, CURLOPT_CUSTOMREQUEST => "GET", CURLOPT_HTTPHEADER => array( "cache-control: no-cache" ), )); $response = curl_exec($curl); $err = curl_error($curl); curl_close($curl); $response = json_decode($response, true); $value1 = $response['result'] [0] ['ask'] ['priceChange']; if (empty($value1)) { $value1 = is_file('/var/www/html/24tstar.txt') ? file_get_c> } else { $value1 = round($value1, 6); file_put_contents('/var/www/html/24tstar.txt', $value1); Preciso que o TXT grave duas informações: ASK e PRICECHANGE uma em baixo da outra
       
      estou errando alguem lugar, alguém poderia me ajudar?
    • Por Kelven
      Bom dia pessoal tudo bem?
      Então, estou trabalhando em um site em php e preciso usar a api do facebook para obter o feed do instagram, porém a chave token é um conteúdo muito sensível, então decidi fazer em php para ela não ficar disponível do lado do cliente. Alguém sabe me dizer se é possível fazer isso? Porque eu pesquisando no google só achei maneiras de fazer em javascript.
    • Por jjunior100
      Preciso armazenar o total das páginas de um determinado documento em uma variável no delphi. Sei como inserir a informação no modelo MSWord.Selection.Fields.Add( Range:=MSWord.Selection.Range, Type:=wdFieldEmpty, Text:= 'NUMPAGES * Arabic ', PreserveFormatting:=True);
      mas como armazenar essa informação em uma variável tipo integer? Obrigado
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.