Código de Barras no Delphi para iOS!

Olá pessoal!

Recebemos muitas solicitações de clientes pedindo por um exemplo de captura de código de barras a partir de uma aplicação iOS criada com Delphi XE4. Neste artigo vou mostrar como ler e decodificar código de barras através de uma aplicação Delphi para iOS, executando em iPhone, iPad ou iPod!

A dinâmica do processo consiste em capturar uma imagem utilizando a câmera do dispositivo, e decodificar o código de barras contido nesta imagem utilizando uma biblioteca especializada.

Bibliotecas de Leitura de Código de Barras para iOS

Existe um sem número de bibliotecas para decodificação de código de barras com suporte a diversas plataformas, pagas e não pagas, com mais ou menos features, basta um search no Google para receber uma lista considerável a ser explorada. Neste caso estamos interessados em bibliotecas específicas para iOS, e geralmente elas são criadas em (e para uso com) Objective-C.

Assim sendo, qualquer que seja sua escolha, será necessário transcrever o cabeçalho da biblioteca para Pascal, utilizando um dos diversos métodos disponíveis. Nestes endereços você pode aprender mais sobre este processo:

http://alturl.com/v2wtx

http://alturl.com/y87xb

Para esta implementação estou fazendo uso da ZBar (http://zbar.sourceforge.net/). Trata-se de uma biblioteca open, bastante competente, e que possui seu header traduzido para Pascal por um desenvolvedor coreano chamado Simon Choi, e publicado em seu blog neste link: http://blog.naver.com/simonsayz/120175561755. *** Todos os créditos aqui para o Simon pelo excelente trabalho! ***

Implementando a Leitura do Código de Barras

Uma vez de posse da biblioteca (neste caso representada por um único assembly “libzbar.a”), e também com o código que expõe a interface da biblioteca ZBar em mãos, o que temos que fazer é implementar uma classe  Delphi que faz uso destes métodos, traduzindo-os em uma interface amigável, a qual será utilizada pela nossa aplicação iOS. Veja abaixo como ficou a declaração da classe:

  TZBarCode = class(TObject)
  private
    ZBarView: ZBarReaderView;
    ZBarEvent: TZBarReaderViewDelegate;
    FActive: Boolean;
    function GetActive: Boolean;
    procedure SetActive(value: Boolean);
    function GetOnBarCode: TOnBarCode;
    procedure SetOnBarCode(value: TOnBarCode);
  protected
    destructor Destroy; override;
  public
    constructor Create; virtual;
    procedure Free;
    procedure SetFrame(View: UIView; Frame: CGRect);
    property Active: Boolean Read GetActive Write SetActive;
    property OnBarCode: TOnBarCode Read GetOnBarCode Write SetOnBarCode;
  end;

Construindo a Interface da Aplicação

Do ponto de vista de interface visual temos o seguinte:

– Um TEdit (edtResult), o qual receberá o resultado da leitura do código de barras;

– Um TMemo (memImage), utilizado somente para definir a área onde a imagem do processo de captura será exibida (você poderia definir as coordenadas manualmente, mas o uso de um componente alinhado aos demais controles torna a interface mais dinâmica);

– Um TListBox (lstHistory), utilizado para armazenar o resultado das últimas leituras;

– Um TSwitch (swtONOFF), responsável por ativar o processo de captura;

– Um TButton (btnCopy), demonstrando como copiar o resultado para a memória;

– Um TButton (btnClear), responsável por eliminar os resultados das capturas efetuadas;

O resultado esperado você pode conferir nesta imagem:

Codificando o Formulário da App

Inicialmente, no escopo private da classe principal do form, declare uma variável que será utilizada para criar a instância da classe de captura, e um método que será atribuído ao evento de captura, quando ela ocorrer:

  private
    { Private declarations }
    ZBarCode: TZBarCode;
    procedure OnFindBarCode(Sender: TObject; BarCode: String);
  public

No método OnFindBarCode, basta atribuir o resultado que será recebido através do parâmetro BarCode ao nosso edtResult, além de armazená-lo no histórico:

procedure TMainForm.OnFindBarCode(Sender: TObject; BarCode: String);
begin
  edtResult.Text := BarCode;
  lstHistory.Items.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss', Now) + ' - ' + BarCode);
end;

No evento OnSwitch do nosso TSwitch, vamos instanciar a classe, atribuir o método ao evento correspondente, definir a área de plotagem da imagem e ativar a captura:

procedure TMainForm.swtONOFFSwitch(Sender: TObject);
begin
  if not Assigned(ZBarCode) then
  begin
    ZBarCode := TZBarCode.Create;
    ZBarCode.OnBarCode := OnFindBarCode;
    ZBarCode.setFrame(WindowHandleToPlatform(Self.Handle).View,
      CGRectMake(memImage.Position.X, memImage.Position.Y, memImage.Width,
      memImage.Height));
  end;
  ZBarCode.Active := swtONOFF.IsChecked;
end;

E para completar, aqui está o código a ser adicionado nos dois botões restantes:

procedure TMainForm.butClearClick(Sender: TObject);
begin
  edtResult.Text := '';
  lstHistory.Items.Clear;
end;
procedure TMainForm.btnCopyClick(Sender: TObject);
begin
  edtResult.SelectAll;
  edtResult.CopyToClipboard;
end;

Um detalhe importante: devido a natureza da biblioteca utilizada (trata-se de um assembly para iOS/ARM) esta aplicação não funcionará no simulador, apenas em um dispositivo físico.

Aqui você tem uma imagem da aplicação sendo executada em um iPad:

Neste link você pode fazer o download do exemplo que está sendo executado acima: http://cc.embarcadero.com/item/29485

Espero que gostem e que seja útil em seus projetos, até a próxima!

Advertisements