Integração API Boleto Inter com certificado digital

[João Paulo Alcântara]

Saudações, prezados!

Estou fazendo um Client em Delphi para integração com a API de emissão de boleto do Banco Inter, e me deparei com uma situação nova para mim, que é a utilização de certificado digital nas requisições (par de arquivos .cert e .key).

Na documentação da API até tem as orientações de como configurar o Postman para usar o certificado da conta corrente que emitirá boletos ao fazer as requests, porém eu não sei de uma maneira de enviar esses arquivos via Delphi (usando TRESTRequest), e também não encontrei opções possíveis no RestDebugger que pudessem me dar uma luz.

Para solucionar meu problema paliativamente criei uma pequena API em NodeJS que atuará como microserviço de gateway, recebendo uma requisição simples do meu app Delphi (enviando o arquivo de certificado em base64) e transformando-a em uma requisição nos padrões da API do banco Inter (recebendo o certificado e utilizando ele no header da requsição).

Esse intermediador que fiz está funcionado, mas o ideal pra mim seria deixar isso 100% Delphi->Inter.

Alguém já implementou algo do tipo? Poderiam me contar como fizeram?

Desde já, obrigado!

[José M. S. Junior]

Boa tarde, você tem a documentação desse banco? Poderia compartilhar para que possamos analisar?

[João Paulo Alcântara]

Link para documentação das rotas: https://documenter.getpostman.com/view/316127/T1LFoWF1?version=latest#intro

Em anexo PDF de como configurar o certificado no Postman.

API Inter - Configuring Postman.pdf

[wilson_jr]

@João Paulo Alcântara Não sei se vc já progrediu com isso mas fiz assim:

 HttpClient := TIdHTTP.Create( nil );
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

HttpClient.IOHandler := SSL;

  with ssl.SSLOptions do
  begin
    CertFile := Certificado;   //mudar caminho certificado aqui
    KeyFile  := Chave;   //mudar caminho certificado aqui
    Mode := sslmUnassigned;
    SSLVersions := [sslvTLSv1_2];
  end;

  with HttpClient do
  begin
    Request.CustomHeaders.Values['x-inter-conta-corrente'] :=  Conta; //sua conta corrente
    Request.ContentType := 'application/json';
    Request.CharSet     := 'utf-8';
    Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)';
    HandleRedirects := True;
    HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth];
  end;

 

[João Paulo Alcântara]

Em 03/09/2021 at 11:38, wilson_jr disse:

 

Ainda não havia resolvido, amigo.
Obrigado pelo exemplo enviado; vou testar hoje ainda.

[Nelson Santos]

Para quem não progrediu ou está tendo dificuldades, vejam que o Giovani Mattos criou um componente para integração com o Banco Inter....estou testando e funciona muito bem.  Inclusive já fiz várias alterações e acrescimos. O link no GitHub é https://github.com/giovanimattos/Delphi-API-Banco-Inter

Como disse, já implementei coisas novas dentro disto que ele criou....

 

Editado 17 Setembro, 2021 por Nelson Santos

[Juliomar Marchetti]

4 horas atrás, Nelson Santos disse:

Para quem não progrediu ou está tendo dificuldades, vejam que o Giovani Mattos criou um componente para integração com o Banco Inter....estou testando e funciona muito bem.  Inclusive já fiz várias alterações e acrescimos. O link no GitHub é https://github.com/giovanimattos/Delphi-API-Banco-Inter

Como disse, já implementei coisas novas dentro disto que ele criou....

 

Lembrando que é limitado a algumas versões mais recentes do delphi

[Nelson Santos]

@Juliomar Marchetti Como mencionei, andei fazendo alguns ajustes nas classes dele.....hoje eu consigo rodar desde o Delphi 2010...

[Juliomar Marchetti]

10 horas atrás, Nelson Santos disse:

@Juliomar Marchetti Como mencionei, andei fazendo alguns ajustes nas classes dele.....hoje eu consigo rodar desde o Delphi 2010...

Pessoal já está analisando mas mas não sei se será útil,  se fizer uma pesquisa rápida boa parte dos usuários ainda estão com Delphi 7. mas logo o pessoal vai começar a questionar aqui

[Nelson Santos]

@Juliomar Marchetti Boa noite, o ACBr já usa o Json4Delphi, que funciona desde a versão 6 do Delphi, além de ter para Lazarus também...acredito que dê para usar esta biblioteca para isto....

[Juliomar Marchetti]

Sim modificada

[rhemasoft]

Ola Pessoal fiz  um component para integrar ao banco inter baseado nas informações deste forum e esta 100% funcional  segue os fontes  e obrigado a todos por compartilha as informações.

 

Component BancoInter.rar

[Jean Peixoto]

23 horas atrás, rhemasoft disse:

Ola Pessoal fiz  um component para integrar ao banco inter baseado nas informações deste forum e esta 100% funcional  segue os fontes  e obrigado a todos por compartilha as informações.

 

Component BancoInter.rar 82 kB · 0 downloads

Ótimo @rhemasoft,

Parabéns... estava pesquisando pra fazer a integração essa semana!.. Vc fez em que versão do Delphi? Roda no 2010?

Vou estudá-lo. Obrigado por compartilhar!

[Jean Peixoto]

Em 09/10/2021 at 19:44, rhemasoft disse:

Ola Pessoal fiz  um component para integrar ao banco inter baseado nas informações deste forum e esta 100% funcional  segue os fontes  e obrigado a todos por compartilha as informações.

 

Component BancoInter.rar 82 kB · 3 downloads

Está faltando a unit uBancoInter

[Jean Peixoto]

Em 20/09/2021 at 13:57, Nelson Santos disse:

@Juliomar Marchetti Como mencionei, andei fazendo alguns ajustes nas classes dele.....hoje eu consigo rodar desde o Delphi 2010...

Nelson,

Consegue me passar essas alterações que vc fez para delphi2010?

[rhemasoft]

Ola! novamente não tinha visto que faltava um arquivo gerei novamente o arquivo, peço desculpa mas fiz esta vesão no xe4 e também compilei o Seattle.

Component BancoInter.rar

[Jean Peixoto]

2 horas atrás, rhemasoft disse:

Ola! novamente não tinha visto que faltava um arquivo gerei novamente o arquivo, peço desculpa mas fiz esta vesão no xe4 e também compilei o Seattle.

Component BancoInter.rar 88 kB · 1 download

Jóia rhemasoft, obrigado!

Baixei e instalei, deu certo!. 

Não estou achando é onde vc envia os boletos para o banco inter! 

Como vc faz e envio?

[rhemasoft]

Segue o component mais um Exemplo de usoComponent BancoInter.rar

[Nelson Santos]

@rhemasoftboa noite, fiz algumas alterações nos fotes para poder compilar no Delphi 2010...compilou normal ....não testei em versões menores que o Delphi 2010...

BancoInter.zip

Editado 6 Fevereiro, 2022 por Nelson Santos

[Jhonlenon Ribeiro]

rhemasoft Estou testando seu componente é top demais..obrigado por compartilhar...vi que tem uma função pra ConsultarBoletos teria como vc mostrar como usar ela? to querendo montar um tipo de retorno online.

[Jhonlenon Ribeiro]

rhemasoft Boa tarde...o componente está funcionando 100% amigo....mais agora o inter lançou a API de Cobrança V2 ai mudou e o componente não funciona mais com nova API....vc já chegou a dá uma olhada?

[João Paulo Alcântara]

Em 03/09/2021 at 11:38, wilson_jr disse:

@João Paulo Alcântara Não sei se vc já progrediu com isso mas fiz assim:

 HttpClient := TIdHTTP.Create( nil );
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

HttpClient.IOHandler := SSL;

  with ssl.SSLOptions do
  begin
    CertFile := Certificado;   //mudar caminho certificado aqui
    KeyFile  := Chave;   //mudar caminho certificado aqui
    Mode := sslmUnassigned;
    SSLVersions := [sslvTLSv1_2];
  end;

  with HttpClient do
  begin
    Request.CustomHeaders.Values['x-inter-conta-corrente'] :=  Conta; //sua conta corrente
    Request.ContentType := 'application/json';
    Request.CharSet     := 'utf-8';
    Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)';
    HandleRedirects := True;
    HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth];
  end;

 

DEPOIS DE MESES voltei...

E sim, deu certo! Já tinha tentado de tudo até que hoje resolver mudar o IdHTTP1.Request.UserAgent e finalmente funcionou.

Agora a guerra acaba, o gasolina abaixa e a picanha volta pra R$30 e poucos kkkkkk Estamos de volta no game!

Agradeço!

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.