Conectar a uma API da Lucree

[johnbh3]

Pessoal para conexão via postman e bem simples esta conexão

GET no endereço: https://api.lucree.com.br/autenticacao/v1

Vou na aba body e adiciono o json

{"username": "[email protected]","password": "123456"}

Retorna pra mim o token

Agora que preciso fazer isto com delphi usando o TidHTTP

 

var
    LRequisicao: TidHTTP;
    LResposta: String;
    FLinkAutenticacao: string;
    body:string;
    LParametros: TStringList;
    FProtocoloSSL:TIdSSLIOHandlerSocketOpenSSL;
begin
      LParametros := TStringList.Create;
      LParametros.Add('"username": "[email protected]"');
      LParametros.Add('"password": "123456"');

      FProtocoloSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Application);
      FProtocoloSSL.SSLOptions.Mode := sslmUnassigned;
      FProtocoloSSL.SSLOptions.Method := sslvTLSv1_2;
      FProtocoloSSL.SSLOptions.SSLVersions := [sslvTLSv1_2];

      LRequisicao := TIdHTTP.Create(Nil);
      //LRequisicao.OnWork := OnWork;
      LRequisicao.IOHandler := FProtocoloSSL;
      LRequisicao.Request.ContentType := 'application/raw';

      LResposta := LRequisicao.Post(FLinkAutenticacao, LParametros);

Pessoal eu sei não e assim, mas e pra vocês terem uma ideia. Eu fiz uma conexão com outra maquinha onde os dados da conexão se data por parametros, dai eu criava um tStringList e passava exemplo assim

      LParametros := TStringList.Create;
      LParametros.Add('grant_type=client_credentials');
      LParametros.Add('client_id='+AChaveAtual.ClientID);
      LParametros.Add('client_secret='+AChaveAtual.SecretCode);

LRequisicao.Request.ContentType := 'application/x-www-form-urlencoded';

LResposta := LRequisicao.Post(FLinkAutenticacao, LParametros);

 

Porém como podem ver esta Lucree, os dados para login e passado via JSON no body no postaman e não sei como fazer isto com TidHTTP

Nesta lucre diferentemente o body eu passo como raw no postaman

 

 

Editado 10 Abril, 2022 por johnbh3
novo ajuste2

[johnbh3]

Detalhe:      

Variavel: 

FLinkAutenticacao:='https://api.lucree.com.br/autenticacao/v1';

Eu tenho retorno http/ 1.1 400 - bad request

[johnbh3]

var
    LRequisicao: TidHTTP;
    LResposta: String;
    FLinkAutenticacao: string;
    LParametros: TStringList;
    FProtocoloSSL:TIdSSLIOHandlerSocketOpenSSL;
begin
      FLinkAutenticacao:='https://api.lucree.com.br/autenticacao/v1';
      LParametros := TStringList.Create;
      LParametros.Add('"username": "[email protected]"');
      LParametros.Add('"password": "123456"');

      FProtocoloSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Application);
      FProtocoloSSL.SSLOptions.Mode := sslmUnassigned;
      FProtocoloSSL.SSLOptions.Method := sslvTLSv1_2;
      FProtocoloSSL.SSLOptions.SSLVersions := [sslvTLSv1_2];

      LRequisicao := TIdHTTP.Create(Nil);
      //LRequisicao.OnWork := OnWork;
      LRequisicao.IOHandler := FProtocoloSSL;
      LRequisicao.Request.ContentType := 'application/json';

      LResposta := LRequisicao.Post(FLinkAutenticacao, LParametros);

 

 

Eu tenho retorno http/ 1.1 400 - bad request

 

O json que envio no raw do postman e:

{
    "username": "[email protected]",
    "password": "123456"
}
 

 

Editado 10 Abril, 2022 por johnbh3
novo

[johnbh3]

\resolvi pessoal obrigado

E desculpe o post

[Juliomar Marchetti]

20 horas atrás, johnbh3 disse:

\resolvi pessoal obrigado

E desculpe o post

Como resolveu?