Exibindo Imagens e Menus em PinPads com TEF PayGo - PGWebLib

[Daniel Simoes]

O PayGo, disponibilizou uma nova versão de sua biblioteca PGWebLib 4.1.44.0, que permite as automações Enviar e manipular Imagens no PinPad, além de Menus para pesquisas ou outras funcionalidades

Você pode encontrar essa nova biblioteca, no site oficial da PayGo

Com essa nova biblioteca, implementamos os seguintes métodos, na classe TACBrTEFAPIClassPayGoWeb

    procedure CarregarImagemPinPad(const NomeImagem: String; AStream: TStream; TipoImagem: TACBrTEFAPIImagemPinPad ); override;
    procedure ExibirImagemPinPad(const NomeImagem: String); override;
    procedure ObterListaImagensPinPad(ALista: TStrings); override;
    procedure ApagarImagemPinPad(const NomeImagem: String); override;
    function MenuPinPad(const Titulo: String; Opcoes: TStrings; TimeOut: Integer = 30000): Integer; override;

 

Isso permitirá que aplicações que usam o TEF PayGo, através da biblioteca PGWebLib, possam enviar Logotipos ao PinPad, ou QRCode do PIX, quando integrado por fora do TEF... 

A funcionalidade de exibição de Menus no PinPad, também é muito útil para pesquisas de satisfação, por exemplo...

 

Exemplo de como enviar um QRCode ao PinPad, usando o componente ACBrTEFAPI

  ACBrTEFAPI1.ExibirQRCodePinPad(
  '00020101021226900014BR.GOV.BCB.PIX2568pix-qr.mercadopago.com/instore/p/v2/7edcf890b0de4f0689fe7aea52e447b843540016com.mercadolibre0130'+
  'https://mpago.la/pos/1078225765204000053039865802BR5907GETCARD6009SAO PAULO62070503***6304424C', 'QRCODE');

Usando o método acima, o ACBrTEFAPI, cuidará de renderizar uma imagem PNG em QRCode, com a String de um PIX, respeitando as dimensões de tela do PinPad,  e por fim, transmiti-lo ao PinPad, e exibi-lo...

 

Se você deseja enviar a sua própria imagem, use o comando abaixo:

procedure TFormPrincipal.Button2Click(Sender: TObject);
var
  FileLogo, MediaName: String;
begin
  FileLogo := ApplicationPath+'LogoACBr.png';  // Path completo, para a Imagem a ser transmitida
  MediaName := 'LOGOACBR';    // Nome da Imagem no PinPad
  ACBrTEFAPI1.CarregarImagemPinPad(MediaName, FileLogo);
  ACBrTEFAPI1.ExibirImagemPinPad(MediaName);
end;

Observe que o primeiro comando, apenas transmite a Imagem ao PinPad... e isso pode demorar alguns segundos...

O Segundo comando, comanda a exibição da uma Imagem já existente (carregada) no PinPad...

 

Você pode ainda, usar o comando abaixo, para conhecer as imagens existentes no PinPad...

ACBrTEFAPI1.ObterListaImagensPinPad(AStringList);

O comando espera receber um TStrings, e irá preenche-lo com o nome das imagens existentes no PinPad

...se necessário, você pode aparar as Imagens da memória do equipamento

  MediaName := 'LOGOACBR';
  ACBrTEFAPI1.ApagarImagemPinPad(MediaName);  

 

Já a funcionalidade de Exibição de Menus no PinPad, pode ser obtida, conforme exemplo abaixo:

procedure TFormPrincipal.btMenuPinPadClick(Sender: TObject);
var
  sl: TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    sl.Add('Item1');
    sl.Add('Item2');
    sl.Add('Item3');
    i := ACBrTEFAPI1.MenuPinPad('Titulo do Menu', sl);  // Chama o Menu no PinPad

    ShowMessage('Selecionada opção: '+IntToStr(i));
  finally
    sl.Free;
  end;
end;