Thomas

Members
  • Content count

    3
  • Joined

  • Last visited

  • Days Won

    1
  1. Senha Usuário Teste

    Problema é que fui testando e criando e cheguei ao limite. Estou fazendo com delphi e indy e não estava conseguindo pegar o json de resposta. Tenho id de 3 deles, mas não sei como acessar os outros dados. Grato por responder.
  2. Criei usuário teste, mas não consegui recuperar o json corretamente, apenas o link do usuário, com sua id. Quando consulto o usuário, não consegui recuperar a senha do mesmo. Como consigo recuperar a senha de um usuário teste criado?
  3. Não é uma pergunta, mas compartilhando como conseguir token de autorização com delphi 7 e indy. // Retorna Token de Acesso de Mercado Livre function RetornaTokenAcessoMeLi : String; var Resposta : String; Params : TStringList; // Retorna Token de Acesso de Mercado Livre, de JSON de resposta de requisição function RetornaToken(JSON : String) : String; var js : TlkJSONobject; Token : string; begin try js := TlkJSON.ParseText(JSON) as TlkJSONobject; Result := js.getString('access_token'); except Result := ''; end; end; begin Params := TStringList.create; Params.add('client_id=' + IDAplicacaoMeLi); Params.add('client_secret=' + SecretKeyMeli); Params.add('grant_type=client_credentials'); IdHTTPMercadoLivre.Request.ContentType := 'application/x-www-form-urlencoded'; try Resposta := IdHTTPMercadoLivre.Post('https://api.mercadolibre.com/oauth/token', Params); Result := RetornaToken(Resposta); finally Params.Free; end; end; Crédito da página como consegui elaborar o código: https://stackoverflow.com/questions/38833651/using-indy-to-retrieve-revcontent-oauth-token Tem que ter os componentes TidHTTP e TIdSSLIOHandlerSocketOpenSSL declarados na função ou então arrastados os componentes no formulário.