Barcode Capturing with Delphi XE4 iOS App!

Hello Everyone!

See in this article how to read and decode barcodes through an Delphi XE4 iOS App. The process consists in capturing an image using the device camera and decoding it through a specialized SDK.

CodeBar Libraries for iOS Apps

There are a lot of SDKs focused in barcode decoding, supporting numerous platforms, some paid, some free, with different levels of features, just go to Google and you’ll receive a huge list of suggestions to explore. Here, we are interested in SDKs for the iOS platform.

In general, these SDKs are created to be used with Objective-C, so we need to translate the SDK’s header to Pascal through one of the available ways. Here you can find more information about the translation process:

http://alturl.com/v2wtx

http://alturl.com/y87xb

To create this sample, I’m using the ZBar SDK (http://zbar.sourceforge.net/), an open source library, which has its header translated to Pascal by Simon Choi, originally published here: http://blog.naver.com/simonsayz/120175561755.

Developing the App

Once you have the SDK (in this case represented by a file called “libzbar.a”) and the header translation in  hands, you can create a Delphi class to expose the SDK methods in a easy and friendly way to your iOS app. See below how this class looks:

  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;

Building the Visual Interface

Considering the visual part of the application, we have:

– An TEdit (edtResult) to receive the barcode data;

– An TMemo (memImage) to define the image display area;

– An TListBox (lstHistory) to store the capture log;

– An TSwitch (swtONOFF) to activate/deactivate the capture process;

– An TButton (btnCopy) to copy the barcode data to the clipboard;

– An TButton (btnClear) to clear the capture log;

You can see the expected form appearance in this image:

Adding Some Code

Start by adding – in the private section of the main application form – one field to instantiate our capture class and a method to be assigned to the capture event:

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

Looking to the OnFindBarCode event, the BarCode variable brings the captured value, so you just need to assign it to the edtResult, as well to the lstHistory to create the log:

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

Using the OnSwitch event from TSwitch, we’ll instantiate the capture’s class, assign the capture event, as well as define the image plotting area, and finally start the capture:

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;

To complete the app, here is the code for the two added buttons:

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

Note: This app is intended to run only in a real device. Here you can see the app in action:

You can download the sample with the complete source code here: http://cc.embarcadero.com/item/29485

Hope this can be useful for your projects, have fun!

Advertisements

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!

Mais de 1500 desenvolvedores presentes no RAD Studio Multi-Device Brasil!

Finalizamos a edição brasileira do RAD Studio Multi-Device tour, vistando 14 cidades por todo o país.

Durante os eventos tivemos a oportunidade de encontrar desenvolvedores Delphi experientes, e também muitos que estão apenas iniciando com a ferramenta, e todos ficaram impressionados com nosso suporte para iOS.

Também recebemos ótimos comentários de desenvolvedores Xcode dizendo o quão fácil é desenvolver para mobile com Delphi!

Falamos para mais de 1500 pessoas durante este tour por 14 cidades, de norte a sul do país. Veja abaixo algumas fotos de cada parada:

E não vamos parar por aí! Amanhã teremos a versão online do Tour, se você não teve oportunidade de acompanhar ao vivo em sua cidade, não deixe de participar online!

Faça sua inscrição através deste link e prepara-se para surpreender-se novamente:

http://forms.embarcadero.com/AMBR1306RADXE4LaunchWebinar6-11

RAD Studio en Acción en VIVO: Bogotá/Colombia

Estábamos en Colombia con nuestro socio local IT Tools para el lanzamiento de RAD Studio XE4.

Había dos eventos principales y una serie de visitas a los clientes que demuestran nuestro apoyo para iOS y desarrollo de aplicaciones móviles en su conjunto.

El primer evento fue dedicado a los alumnos del SENA con el público completamente tomado y los estudiantes que asisten a distancia de varias unidades en todo el país.

A su vez, el evento recibió empresarios corporativos y desarrolladores entusiasmados con las posibilidades de desarrollo de iOS.

More than 1500 developers attend the RAD Studio Multi-Device tour in Brazil!

We just finished the brazilian edition of the RAD Studio Multi-Device tour, visiting 14 cities around the country.

During the events we had the opportunity to meet experienced Delphi developers as well people who were  just starting with Delphi, and everyone was impressed with our mobile support for iOS.

Also great comments from Xcode developers saying how easy is development for mobile with Delphi is when compared with another tools.

We received more than 1500 people while visiting the 14 cities from north to south. See below some pictures from each stop:

RAD Studio Multi-Device Webinar

Se você não pode participar de um de nosso eventos ao vivo chegou a sua vez!

No dia 11/06 estaremos apresentando o RAD Studio Muti-Device Webinar, com o seguinte conteúdo:

  • O novo compilador
  • Evoluções da Linguagem Delphi
  • Templates para aplicações móveis
  • Controles e estilos nativos, Actions e Gestures
  • Acesso nativo a sensores
  • Banco de dados embutido
  • Desenvolvimento multicamadas

O convite também vale para você que participou do evento presencial e gostaria de rever algo, ou está testando o XE4 e gostaria de ver aquela sua dúvida esclarecida ao vivo!

Então vamos lá, faça sua inscrição e nos vemos ao vivo no dia 11/06: http://forms.embarcadero.com/AMBR1306RADXE4LaunchWebinar6-11