Ler um código DataMatrix em Delphi

Para ler um código DataMatrix em Delphi, você pode usar uma biblioteca de terceiros que ofereça suporte para decodificar esse tipo específico de código. Uma das bibliotecas populares é a ZXing (também conhecida como Zebra Crossing), que suporta a leitura de vários tipos de códigos de barras, incluindo DataMatrix.
Aqui está um exemplo básico de como você pode usar a biblioteca ZXing para ler um código DataMatrix em Delphi:
Faça o Download e Instalação da Biblioteca:
Vá para o repositório do projeto ZXing no GitHub: https://github.com/foxitsoftware/ZXing.Delphi Siga as instruções no repositório para baixar e instalar a biblioteca no seu ambiente Delphi.
Use a Biblioteca ZXing no Seu Código:
Depois de instalar a biblioteca ZXing, você pode usá-la no seu código Delphi. Abaixo está um exemplo simplificado:

 

   
uses
  // ... outras units que você precise
  ZXing.Barcode.Format,
  ZXing.ReadResult,
  ZXing.ScanManager,
  ZXing.Barcode.Reader,
  ZXing.ResultPoint,
  ZXing.LuminanceSource,
  ZXing.RGBLuminanceSource;

var
  ScanManager: TScanManager;
  ReadResult: TReadResult;
  Reader: TBarcodeReaderGeneric;

begin
  // Inicialize o ScanManager
  ScanManager := TScanManager.Create(TBarcodeFormat.DATAMATRIX);
  try
    // Crie um leitor de código de barras DataMatrix
    Reader := TBarcodeReaderGeneric.Create(ScanManager);
    try
      // Leia o código de barras a partir de uma imagem
      ReadResult := Reader.Scan(Bitmap); // 'Bitmap' é a imagem contendo o código DataMatrix

      if ReadResult <> nil then
      begin
        ShowMessage('Código lido: ' + ReadResult.Text);
      end
      else
      begin
        ShowMessage('Nenhum código lido');
      end;
    finally
      Reader.Free;
    end;
  finally
    ScanManager.Free;
  end;
end;

  
 
      

Certifique-se de substituir Bitmap com a imagem que contém o código DataMatrix.
Esse é um exemplo simplificado e pode ser necessário ajustar o código dependendo do seu ambiente e requisitos específicos. Além disso, verifique se está em conformidade com os termos de uso da biblioteca que você escolheu.

17/04/2026 03:44 Delphi 555
Topo