Pegar token banco do Brasil pelo lazarus usando RESTRequest4D

[João Carlos Compnet]

Ao tentar pegar o token do banco do Brasil com o código abaixo feito no Lazarus recebo a  seguinte mensagem de erro:

SocketError: Connect to oauth.hm.bb.com.br:443 failed.

 

OBS: Porta 443 habilitada no firewall e o Anti_virus desligado.

        

Alguma dica

 

 

unit frm_api;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ZDataset,
  Math, DateUtils,  ssl_openssl,  RESTRequest4D;

type

  { Twfrm_api }

  Twfrm_api = class(TForm)

    Memo1: TMemo;
    Token: TToggleBox;
    Token1: TToggleBox;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Token1Change(Sender: TObject);
    procedure TokenChange(Sender: TObject);

    procedure Alimenta_titulo;
  private

  public

  end;

var
  wfrm_api: Twfrm_api;

implementation
  uses  mACBrUtil, jsons;

{$R *.lfm}

{ Twfrm_api }

  procedure Twfrm_api.TokenChange(Sender: TObject);
  var
    URL: string;
    LResponse :IResponse;
  begin

    URL := 'https://oauth.hm.bb.com.br/oauth/token';
    try
        Lresponse := TRequest.New.BaseURL(URL)
                     .AddHeader('gw-dev-app-key', 'xxxxxxxxxxxxxxxxxxxxxxxxxxx')
                     .AddHeader('Authorization', 'Basic yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy')
                     .AddHeader('Cookie', 'Jzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz')
                     .ContentType('application/x-www-form-urlencoded')
                     .AddParam('grant_type', 'client_credentials')
                     .AddParam('scope', 'cobrancas.boletos-requisicao cobrancas.boletos-info')
                     .Post;
          memo1.Append(inttostr(Lresponse.StatusCode));
          memo1.Append(Lresponse.Content);
    except
        on E:exception do
        begin
              memo1.Append(E.ToString);
        end;

    end;

  end;         

[andrefaria]

off topic, mas nao consigo instalar e usar o restrequest4d no lazarus. como fazer ? algum link com tuttorial ?

[João Carlos Compnet]

Bom dia Andre. 

Segue o link: https://github.com/viniciussanchez/RESTRequest4Delphi

Para instalar basta colocar no path da aplicação e colocar na unit como no exemple acima.

Para fazer funcionar ainda não cheguei lá.

 

[Juliomar Marchetti]

Em 22/09/2023 at 07:36, andrefaria disse:

off topic, mas nao consigo instalar e usar o restrequest4d no lazarus. como fazer ? algum link com tuttorial ?

olha lá no git tem os exemplos de como usar

não lembro se vai em lazarus mas é só testar. e olhar o exemplo