Rest Request

[Douglas Conceição]

Bom dia, estou tentando fazer uma integração de boleto com o Banco do Brasil, usando o RestRequest, quando eu faço o POST pelo POSTMAN, vai tudo 100%, porem quando eu tento colocar em meu projeto delphi, da Bad Request.

Os parâmetros que eu tenho que passar sao:
- URL
Header
  - Authorization
  - Content_type
  - Content_lenght
  - Host
Body
  - Grand_Type
  - Scope

Passando somente estes, no POSTMAN funciona. porem em meu código não vai, irei deixar uma imagem do POSTMAN e meu código como exemplo, se puderem me ajudar, muito agradecido.
 

procedure TFRMFI056A.GeraToken;
var
  AuthHeaderValue: String;
  ClientId, ClientSecret: String;
  Content: TStringStream;
  ContentLength: string;
  RequestBody: TStringStream;
begin
  ClientId     := BaGeralModel.Clientidpixbb;
  ClientSecret := BaGeralModel.Clientsecretpixbb;
  try
    RESTClient4.BaseURL := 'https://oauth.hm.bb.com.br/oauth/token';

    AuthHeaderValue := 'Basic xxxxCodigoBasicAquixxxx;

    RESTRequest4.Params.AddHeader('Authorization', AuthHeaderValue);
    RESTRequest4.Params.ParameterByName('Authorization').Options := [poDoNotEncode];

    RequestBody := TStringStream.Create('grant_type=client_credentials&scope=cobrancas.boletos-requisicao+cobrancas.boletos-info');
    RESTRequest4.ClearBody;
    RESTRequest4.AddBody(RequestBody, TRESTContentType.ctAPPLICATION_X_WWW_FORM_URLENCODED);

    RESTRequest4.Params.AddHeader('Content-Type', 'application/x-www-form-urlencoded');
    ContentLength := IntToStr(RequestBody.Size);
    RESTRequest4.Params.AddHeader('Content-Length', ContentLength);

    // Adicionar Host ao cabeçalho
    RESTRequest4.Params.AddHeader('Host', 'oauth.hm.bb.com.br');

    try
      RESTRequest4.Execute;
      if RESTResponse4.StatusCode = 404 then
      begin
        // Exibir o conteúdo da resposta em um Memo ou mostrar uma mensagem de erro
        Memo1.Lines.Text := RESTResponse4.Content;
        ShowMessage('Erro 404: O recurso solicitado não foi encontrado.');
      end;
    except
      on E: Exception do
      begin
        // Exibir mensagem de erro genérica
        Memo1.Lines.Text := RESTResponse4.Content;
        ShowMessage('Erro ao tentar realizar a solicitação: ' + E.Message);
      end;
    end;

  finally

  end;
end;

 

[Juliomar Marchetti]

Mas porque se tem o ACBrBoleto e o mesmo já faz isso pra ti!

[Douglas Conceição]

1 minuto atrás, Juliomar Marchetti disse:

Mas porque se tem o ACBrBoleto e o mesmo já faz isso pra ti!

Acbr boleto nao faz o que eu quero, que é enviar imediatamente o boleto, fazer as consultas da situação de como esta, identificar que ja esta pago, tipo como o NFE funciona, ou faz e eu nao to sabendo ?

[Juliomar Marchetti]

10 minutos atrás, Douglas Conceição disse:

Acbr boleto nao faz o que eu quero, que é enviar imediatamente o boleto, fazer as consultas da situação de como esta, identificar que ja esta pago, tipo como o NFE funciona, ou faz e eu nao to sabendo ?

Já faz. para BB e mais bancos, oolha a lista abaixo

 

[Douglas Conceição]

Cara, me ajudou muito. Já tinha feito a integração quase toda na mão, mas o que vale é a experiência, obrigado!

[Alexandre de Paula]

8 minutos atrás, Douglas Conceição disse:

Cara, me ajudou muito. Já tinha feito a integração quase toda na mão, mas o que vale é a experiência, obrigado!

@Douglas Conceição Após usar o componente, caso tenha algum outro banco que precise e não tenhamos implementado você pode nos ajudar muito!

Toda contribuição é bem vinda!

Sucesso aí nas implementações!

[Juliomar Marchetti]

segue o tópico sobre os bancos