Search the Community

Showing results for tags 'delphi 7'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Português
    • Autenticação e Autorização
    • Gerenciamento de perguntas e respostas
    • Gerenciamento de produtos
    • Gerenciamento de vendas
    • Gerenciamento de envios
    • Gerenciamento de usuário
    • Controle de notificações
    • Gerenciamento de mensagens pós-venda
  • Español
    • Autenticación y Autorización
    • Gestión de preguntas y respuestas
    • Gestión de productos
    • Gestión de ventas
    • Gestión de envíos
    • Gestión de usuario
    • Control de notificaciones
    • Gestión de mensajes post-venta
  • English
    • Authentication and Authorization
    • Question & Answer Management
    • Product Management
    • Sales Management
    • Shipment Management
    • User Management
    • Notification control
    • Post Sale Message Management
  • Off Topic
    • Events
    • Off Topic
    • Documentation improvements
    • Jobs

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. 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.