ZXing.Delphi：Delphi/Pascal平台上的全能条码处理库

icy 昨天 19 抢沙发

默认

摘要： ZXing.Delphi：Delphi/Pascal平台上的全能条码处理库项目概述 ZXing.Delphi 是著名开源条码处理库 ZXing（”Zebra Crossing”）...

ZXing.Delphi：Delphi/Pascal平台上的全能条码处理库

项目概述

ZXing.Delphi 是著名开源条码处理库 ZXing（”Zebra Crossing”）的 Delphi/Pascal 移植版本。该项目将 Java 原版的强大条码生成与识别功能完整地带到了 Delphi 和 Free Pascal 开发环境中，让 Pascal 开发者能够轻松地在应用程序中集成一维码和二维码处理能力。

核心特性

1. 广泛的条码格式支持

一维码：UPC-A、UPC-E、EAN-8、EAN-13、Code 39、Code 93、Code 128、ITF、Codabar
二维码：QR Code、Data Matrix、Aztec、PDF417、MaxiCode
其他格式：RSS-14、RSS-Expanded

2. 跨平台兼容性

支持 Delphi 7 及以上版本
兼容 Free Pascal/Lazarus
可在 Windows、macOS、Linux 等多平台运行
支持 VCL、FMX 和 LCL 等多种 UI 框架

3. 双向功能

条码识别：从图像文件、位图、摄像头流中读取和解码条码
条码生成：将文本数据编码为各种格式的条码图像

安装与配置

通过 GetIt 安装（Delphi 10.3+）

打开 Delphi IDE
选择 Tools → GetIt Package Manager
搜索 “ZXing.Delphi”
点击安装

手动安装

克隆项目到本地：

text

git clone https://github.com/Spelt/ZXing.Delphi.git

将源码目录添加到 Delphi 的库路径
在项目中添加必要的单元引用

实用示例

示例 1：生成二维码

text

uses
  ZXing.BarcodeFormat, ZXing.EncodeHintType, ZXing.QrCode.Internal,
  ZXing.Renderer, Vcl.Graphics;

procedure GenerateQRCode(const Text: string; Bitmap: TBitmap);
var
  QRCodeWriter: TQRCodeWriter;
  EncodeHints: TDictionary<TEncodeHintType, TObject>;
  BitMatrix: IBitMatrix;
  Width, Height: Integer;
begin
  // 创建二维码编码器
  QRCodeWriter := TQRCodeWriter.Create;
  try
    // 设置编码参数
    EncodeHints := TDictionary<TEncodeHintType, TObject>.Create;
    try
      EncodeHints.Add(TEncodeHintType.CHARACTER_SET, 'UTF-8');
      EncodeHints.Add(TEncodeHintType.ERROR_CORRECTION, 
        TErrorCorrectionLevel.Create(TErrorCorrectionLevel.M));
      
      // 生成位矩阵
      BitMatrix := QRCodeWriter.encode(Text, 
        TBarcodeFormat.QR_CODE, 300, 300, EncodeHints);
      
      // 渲染到位图
      Width := BitMatrix.Width;
      Height := BitMatrix.Height;
      Bitmap.SetSize(Width, Height);
      
      // 绘制二维码
      for var y := 0 to Height - 1 do
        for var x := 0 to Width - 1 do
        begin
          if BitMatrix[x, y] then
            Bitmap.Canvas.Pixels[x, y] := clBlack
          else
            Bitmap.Canvas.Pixels[x, y] := clWhite;
        end;
    finally
      EncodeHints.Free;
    end;
  finally
    QRCodeWriter.Free;
  end;
end;

示例 2：识别图像中的条码

text

uses
  ZXing.ScanManager, ZXing.BarcodeFormat, ZXing.ResultPoint,
  Vcl.Graphics, System.SysUtils;

function DecodeBarcodeFromFile(const FileName: string): string;
var
  Bitmap: TBitmap;
  ScanManager: TScanManager;
  Result: TReadResult;
  Formats: TBarcodeFormatSet;
begin
  Result := '';
  
  if not FileExists(FileName) then
    Exit;
    
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile(FileName);
    
    // 设置要识别的条码格式
    Formats := [TBarcodeFormat.QR_CODE, 
                TBarcodeFormat.CODE_128,
                TBarcodeFormat.EAN_13];
    
    // 创建扫描管理器
    ScanManager := TScanManager.Create(Formats, nil);
    try
      // 尝试解码
      Result := ScanManager.Scan(Bitmap);
      
      if Assigned(Result) then
      begin
        // 获取解码结果
        Result := Result.Text;
        
        // 可选：获取条码位置点
        if Result.ResultPoints <> nil then
        begin
          for var Point in Result.ResultPoints do
          begin
            // 处理每个识别点
            WriteLn(Format('Point: (%.2f, %.2f)', 
              [Point.x, Point.y]));
          end;
        end;
      end;
    finally
      ScanManager.Free;
      if Assigned(Result) then
        Result.Free;
    end;
  finally
    Bitmap.Free;
  end;
end;

示例 3：生成带Logo的二维码

text

procedure GenerateQRCodeWithLogo(const Text: string; 
  LogoFile: string; OutputBitmap: TBitmap);
var
  QRCodeBitmap: TBitmap;
  LogoBitmap: TBitmap;
  X, Y: Integer;
begin
  // 先生成基础二维码
  QRCodeBitmap := TBitmap.Create;
  try
    GenerateQRCode(Text, QRCodeBitmap);
    
    // 加载Logo
    LogoBitmap := TBitmap.Create;
    try
      if FileExists(LogoFile) then
      begin
        LogoBitmap.LoadFromFile(LogoFile);
        
        // 调整Logo大小（约为二维码的1/5）
        LogoBitmap.Width := QRCodeBitmap.Width div 5;
        LogoBitmap.Height := QRCodeBitmap.Height div 5;
        
        // 计算Logo位置（居中）
        X := (QRCodeBitmap.Width - LogoBitmap.Width) div 2;
        Y := (QRCodeBitmap.Height - LogoBitmap.Height) div 2;
        
        // 合并图像
        OutputBitmap.Assign(QRCodeBitmap);
        OutputBitmap.Canvas.Draw(X, Y, LogoBitmap);
      end
      else
      begin
        OutputBitmap.Assign(QRCodeBitmap);
      end;
    finally
      LogoBitmap.Free;
    end;
  finally
    QRCodeBitmap.Free;
  end;
end;

高级功能

1. 摄像头实时扫描

ZXing.Delphi 支持通过摄像头进行实时条码扫描，特别适合开发零售、库存管理等应用：

text

uses
  ZXing.ScanManager, ZXing.DecodeHintType;

procedure SetupCameraScanner;
var
  Camera: TCameraComponent;
  ScanManager: TScanManager;
  Hints: TDecodeHintType;
begin
  Camera := TCameraComponent.Create(nil);
  ScanManager := TScanManager.Create(TBarcodeFormat.QR_CODE, Hints);
  
  Camera.OnSampleBufferReady := 
    procedure(Sender: TObject; const ATime: TMediaTime)
    begin
      // 处理摄像头帧并尝试解码
      var Frame := Camera.SampleBufferToBitmap(nil);
      var Result := ScanManager.Scan(Frame);
      if Assigned(Result) then
      begin
        // 处理解码结果
        ProcessBarcodeResult(Result.Text);
      end;
    end;
end;

2. 批量条码生成

text

procedure GenerateBarcodeBatch(const DataList: TStringList; 
  Format: TBarcodeFormat; OutputDir: string);
var
  Writer: IBarcodeWriter;
  Bitmap: TBitmap;
begin
  Writer := TBarcodeWriter.Create;
  Writer.Format := Format;
  
  for var i := 0 to DataList.Count - 1 do
  begin
    Bitmap := Writer.Write(DataList[i]);
    try
      Bitmap.SaveToFile(
        IncludeTrailingPathDelimiter(OutputDir) + 
        'barcode_' + IntToStr(i) + '.bmp');
    finally
      Bitmap.Free;
    end;
  end;
end;