本文还有配套的精品资源点击获取简介一套专为Delphi 11.3 Alexandria优化的ZXing条码/二维码识别源码包完全基于Object Pascal重写不调用外部DLL、JNI或系统API所有逻辑编译进项目本地执行。兼容Delphi XE7至11.3全版本覆盖Windows VCL32/64位、Android32/64位、iOS8.x–15.x和macOS平台。内置多个可直接运行的示例工程vclTestApp用于桌面扫码aTestApp展示FMX跨平台能力webcam实现摄像头实时识别MemLeakTest检测内存稳定性dUnitXTest提供完整单元测试覆盖另含图片离线识别Demo及配套测试图集。源文件结构清晰只需将.pas单元加入项目即可使用无需安装组件、配置环境或修改IDE设置。附带详细README.md说明接入流程LICENSE明确采用Apache 2.0开源协议.gitignore适配主流版本控制skincfg与res资源已预置支持快速集成到新旧项目中。1. 项目概述为什么这套ZXing Delphi源码值得你花十分钟认真读完Delphi开发者最常遇到的扫码需求往往卡在三个地方一是调用外部DLL导致部署复杂、签名失败、iOS上直接被拒二是依赖JNI桥接Android结果一升级Delphi版本或Android SDK就编译报错三是用Webview嵌套JS库延迟高、识别率低、无法离线、UI割裂。我做过不下二十个带扫码功能的企业级项目——从医疗PDA设备上的药品追溯系统到工厂产线的工单条码录入终端再到连锁药店POS系统的会员二维码核销模块——每一次集成扫码能力都像重新走一遍兼容性雷区。直到我把ZXing官方Java实现逐行吃透用纯Object Pascal重写核心解码引擎并把图像预处理、区域定位、纠错码解析、字符映射整套逻辑全部下沉到RTL层才真正实现了“一次编写、全平台原生运行”。这套代码不是封装层、不是胶水代码而是把ZXing的BinaryBitmap、HybridBinarizer、MultiFormatReader这些关键类用Delphi的泛型集合、动态数组、位运算和内存管理机制原样复刻出来。它不碰Windows Media Foundation、不调Android Camera2 API、不走iOS AVFoundation桥接——所有图像帧进来直接进TBitmap或TBitmapSurface解码逻辑全程在CPU上跑连浮点运算都用Single精度查表法优化过。你拿到的不是一个“能用”的库而是一个可调试、可断点、可修改、可审计的完整解码内核。关键词里写的“delphi扫码”“zxing源码”“vcl fmx”“条码识别”“二维码扫描”每一个都不是虚词VCL下你能在TImage上拖一个TTimer每40ms抓一帧做识别FMX里你可以把TVideoCaptureComponent的OnSampleBufferReady回调直接喂给解码器Android上它自动适配TBitmap的ARGB_8888内存布局iOS上它绕过UIKit的UIImage转换开销直接操作CVPixelBufferRef裸指针通过TCustomBitmapSurface抽象层。这不是“支持多平台”这是把每个平台的图像数据管道都拧到了同一个解码引擎的输入口上。如果你正在为XE10.4的iOS 15兼容性发愁或者被11.3新引入的64位Android NDK链接问题卡住又或者只是想在VCL桌面程序里加个扫码按钮却不想装十个第三方组件——那么接下来的内容就是你过去三年想找但没找到的那套东西。2. 整体设计与思路拆解为什么不用DLL、不走JNI、不调系统API2.1 核心哲学把ZXing“翻译”成Object Pascal而不是“调用”ZXingZXing官方Java版有近20万行代码核心价值不在语法而在算法逻辑比如QR Code的Finder Pattern定位用的是“黑白黑白黑”五像素比例检测1:1:3:1:1Data Matrix的L形边框校正依赖Hough变换的极坐标累加Code 128的校验和计算必须按A/B/C三套字符集切换编码规则。如果只是用JNI把Java打包成aar再桥接等于把整个JVM堆栈塞进Delphi进程——Android上会触发java.lang.OutOfMemoryErroriOS上根本过不了App Store审核禁止动态加载Java字节码。而本方案的做法是把ZXing Java源码中所有.java文件打开逐函数重写。例如com.google.zxing.qrcode.detector.FinderPatternFinder类在Delphi中对应ZXing.QRCode.Detector.TFinderPatternFinder其find方法内部不再调用java.awt.image.BufferedImage而是接收TBitmap参数用ScanLine直接遍历像素行calculateModuleSize不再依赖Java的Math.sqrt()而是用Sqrt()定点数缩放避免浮点误差累积。这种重写不是简单替换语法而是对底层数据流的彻底重构Java里int[]数组在Delphi里用TArrayInteger但内存布局必须保证与TBitmap.ScanLine[y]返回的PByteArray完全对齐Java的ArrayListT在Delphi里用TListT但所有Add操作前都插入Assert(Length(FItems) MaxInt div SizeOf(T))防止溢出——因为移动端内存碎片严重TList扩容时ReallocMem可能失败。这种级别的控制只有纯Pascal实现才能做到。2.2 平台抽象层设计VCL与FMX如何共用同一套解码逻辑很多人以为VCL和FMX的图像处理必须两套代码其实不然。关键在于定义统一的图像数据契约。本方案定义了IZXingBitmapSource接口type IZXingBitmapSource interface(IInterface) [{D7E9F2A1-8B3C-4E5F-A123-456789ABCDEF}] function GetWidth: Integer; function GetHeight: Integer; function GetPixel(x, y: Integer): TAlphaColor; // 统一返回ARGB function GetRawData: Pointer; // 返回首地址供底层算法直接读取 function GetStride: Integer; // 每行字节数解决32位/64位对齐差异 end;VCL实现TZXingVCLBitmapSource构造时传入TBitmapGetRawData直接返回TBitmap.ScanLine[0]FMX实现TZXingFMXBitmapSource传入TBitmapSurfaceGetRawData调用TBitmapSurface.Map(TMapAccess.Read)获取内存指针。这样解码器核心TZXingMultiFormatReader.Decode只认IZXingBitmapSource完全不知道上层是VCL还是FMX。实测发现同一段解码逻辑在VCL下处理1920×1080摄像头帧耗时42ms在FMX Android上耗时58ms因ARM NEON指令未启用但代码零修改——这正是抽象的价值。更进一步针对移动平台摄像头预览帧格式Android是NV21iOS是BGRA我们提供了TZXingCameraFrameAdapter类它接收原始YUV数据内部用SIMD汇编x86用MMXARM用NEON做YUV420sp转灰度图比Delphi RTL自带的TBitmap.Assign快3.7倍。这个适配器不暴露给用户而是封装在aTestApp的TMainForm.OnCameraSample事件里自动调用——你只需关心“我拿到了一帧”不用管“这帧是什么格式”。2.3 全平台兼容性保障从XE7到11.3的版本演进策略Delphi版本跨度大RTL变化剧烈。比如XE7的TBitmap没有CreateFromStream11.3的TBitmapSurface新增了MapAsync。我们的应对策略是条件编译运行时特征探测{$IFDEF DELPHI_XE7_UP} {$DEFINE HAS_BITMAP_CREATEFROMSTREAM} {$ENDIF} {$IFDEF DELPHI_11_3_UP} {$DEFINE HAS_BITMAPSURFACE_MAPASYNC} {$ENDIF} function TZXingBitmapHelper.LoadFromStream(Stream: TStream): IZXingBitmapSource; begin {$IFDEF HAS_BITMAP_CREATEFROMSTREAM} Result : TZXingVCLBitmapSource.Create(TBitmap.CreateFromStream(Stream)); {$ELSE} // XE7兼容路径手动读取BMP头解析像素数据 Stream.Position : 0; if Stream.ReadBuffer(Header, SizeOf(TBitmapFileHeader)) SizeOf(TBitmapFileHeader) then ... {$ENDIF} end;同时所有跨平台单元如ZXing.Common.pas都标注{$IFDEF MSWINDOWS}...{$ENDIF}等宏确保iOS编译时跳过Windows专用API调用。更关键的是我们用dUnitXTest工程覆盖所有版本在CI流水线中用Inno Setup自动安装XE7、10.2、11.3三个IDE分别编译测试工程生成XML报告。任何版本的TBarcodeFormat枚举值变更、TResult结构体字段增减都会触发测试失败——这比文档说明可靠一万倍。实际踩过的坑包括10.4.2的TBitmapSurface在macOS上Map返回nil需先调用SetSize11.3的Android 64位编译器对PByte指针算术的优化bug需加{$OPTIMIZATION OFF}。这些修复都沉淀在ZXing.Platform.Android.pas的FixAndroid64BitBug过程里调用方完全无感。3. 核心细节解析与实操要点五个示例工程背后的硬核设计3.1 vclTestAppVCL桌面扫码的极致简化实践vclTestApp不是简单的“放个TImageTButton”而是展示了如何在无摄像头硬件时完成全流程验证。它的主窗体TMainForm包含三个核心控件TImage显示实时画面、TTimer控制采帧频率、TButton触发手动截图识别。关键设计点在于TTimer.OnTimer事件procedure TMainForm.TimerTimer(Sender: TObject); var Bitmap: TBitmap; Source: IZXingBitmapSource; Result: TZXingResult; begin Bitmap : TBitmap.Create; try // 从TImage截取当前显示内容支持缩放、旋转 Bitmap.SetSize(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height); Bitmap.Canvas.Draw(0, 0, Image1.Picture.Bitmap); // 构造图像源自动适配VCL Source : TZXingVCLBitmapSource.Create(Bitmap); // 调用解码器指定只识别QR Code和Code 128 Result : FReader.Decode(Source, [TBarcodeFormat.QR_CODE, TBarcodeFormat.CODE_128]); if Result nil then Memo1.Lines.Add(Format(识别成功%s [%s], [Result.Text, Result.BarcodeFormat.ToString])); finally Bitmap.Free; end; end;这里隐藏了两个重要细节第一TImage的Stretch属性设为True时Canvas.Draw会自动缩放但TZXingVCLBitmapSource内部做了GetRawData偏移修正确保像素坐标映射准确第二FReader.Decode第二个参数是TBarcodeFormat枚举数组而非传统TBarcodeFormat单值——因为真实场景中你永远不知道用户扫的是二维码还是快递单上的Code 128必须并行尝试。实测表明并行解码比顺序尝试快2.3倍QR Code定位算法耗时占总时间70%复用同一张二值图可省去重复计算。注意事项VCL下若使用高分辨率摄像头如4KTImage默认AutoSizeTrue会导致窗体撑爆屏幕必须手动设置Image1.Width/Height并启用StretchTrue另外TTimer.Interval建议设为40ms25FPS低于33ms人眼已难察觉卡顿高于66ms则扫码体验明显迟滞。3.2 aTestAppFMX跨平台应用的资源调度艺术aTestApp的TMainForm在FMX中是个典型陷阱区TVideoCaptureComponent的OnSampleBufferReady回调在Android上每秒触发30次但每次传递的TBitmapSurface对象生命周期极短——若你在回调里直接调用FReader.Decode可能触发EAccessViolation因TBitmapSurface已被GC回收。解决方案是双缓冲队列type TFrameQueue class private FQueue: TThreadedQueueTBitmapSurface; FConsumerThread: TThread; public constructor Create; destructor Destroy; override; procedure Enqueue(Surface: TBitmapSurface); function Dequeue: TBitmapSurface; end; // 在OnSampleBufferReady中 procedure TMainForm.VideoCaptureSampleBufferReady(Sender: TObject; const Buffer: TBitmapSurface); begin // 复制一份新Surface避免原对象被回收 FFrameQueue.Enqueue(Buffer.Clone); end; // 在独立线程中消费 procedure TFrameQueue.Execute; var Surface: TBitmapSurface; Result: TZXingResult; begin while not Terminated do begin Surface : Dequeue; if Surface nil then try Result : FReader.Decode(TZXingFMXBitmapSource.Create(Surface), [...]); if Result nil then TThread.Synchronize(nil, procedure begin Memo1.Lines.Add(Result.Text); end); finally Surface.Free; end; end; end;这个设计解决了三个问题一是线程安全TThreadedQueue内置锁二是内存泄漏Clone后原Buffer由FMX框架管理新Surface由队列线程释放三是响应及时解码耗时不影响摄像头帧采集。实测在Android 12上即使解码单帧需80ms也能稳定维持28FPS采集。特别提醒iOS上TVideoCaptureComponent默认使用AVCaptureSessionPresetPhoto高分辨率但慢必须在FormCreate中调用VideoCapture1.SessionPreset : AVCaptureSessionPreset1280x720否则预览卡顿到无法识别。3.3 webcam摄像头实时识别的性能压榨技巧webcam工程专攻性能极限。它不依赖TVideoCaptureComponent而是直连Windows DirectShowVCL和Android Camera APIFMX。核心是TDirectShowGrabber类它绕过TImage渲染直接从ISampleGrabber回调获取IMediaSample再用CopyMemory将YUY2数据拷贝到预分配的TArrayByte缓冲区。关键优化点有三内存池复用预先分配10个TArrayByte每个大小摄像头分辨率×2解码完成后不SetLength清空而是放入TObjectPoolTArrayByte等待下次复用避免频繁GetMem/FreeMemROI裁剪默认只解码画面中心320×240区域TZXingMultiFormatReader.SetRegion(Left, Top, Width, Height)因条码通常出现在画面中央此举提速4.1倍异步解码用TTask.Run启动后台线程主线程继续采集下一帧解码结果通过TThread.Queue回传UI线程。实测数据在i5-8250U笔记本上1920×108030FPS摄像头开启ROI后平均解码延迟12msCPU占用率从38%降至9%。注意事项DirectShow在Windows 11上需启用EnableLegacyVideoCapture注册表项代码中已自动处理Android端需在AndroidManifest.template.xml中添加uses-permission android:nameandroid.permission.CAMERA/且TargetSdkVersion必须≤33因Android 14限制后台摄像头访问。3.4 MemLeakTest内存泄漏检测的工业级实践MemLeakTest不是简单跑ReportMemoryLeaksOnShutdown : True而是模拟真实业务场景的压力测试。它创建1000个TZXingMultiFormatReader实例每个实例连续解码100张测试图含QR、DataMatrix、PDF417全程监控GetHeapStatus.TotalAllocatedBlocks。关键发现是ZXing Java版的ResultPointCallback在Delphi中若用匿名方法捕获Self会导致循环引用TZXingMultiFormatReader持有TMethodTMethod又持有Self。修复方案是改用接口回调type IResultPointCallback interface(IInterface) [{A1B2C3D4-E5F6-7890-G1H2-I3J4K5L6M7N8}] procedure FoundPoint(X, Y: Single); end; TZXingMultiFormatReader class private FCallback: IResultPointCallback; public property ResultPointCallback: IResultPointCallback read FCallback write FCallback; end;接口引用计数自动管理生命周期彻底杜绝泄漏。测试工程还集成了FastMM4的FullDebugMode在Finalization段输出泄漏摘要“Detected 0 memory leaks”。实操心得在移动平台TBitmapSurface的Unmap必须与Map严格配对否则iOS上会触发EXC_BAD_ACCESS我们已在TZXingFMXBitmapSource.Destroy中强制调用Unmap并在dUnitXTest中添加TestBitmapSurfaceUnmap用例验证。3.5 dUnitXTest单元测试覆盖的边界案例设计dUnitXTest工程覆盖了ZXing所有边界场景远超官方Java测试用例。例如TestQRCodeCornerCase包含超小二维码21×21像素QR Code Version 1最小尺寸验证FinderPatternFinder的亚像素定位精度强噪声图像用TGaussianNoiseFilter给测试图添加σ15的高斯噪声测试HybridBinarizer的鲁棒性倾斜条码将Code 128图像旋转15度验证PerspectiveTransform的仿射校正能力中文混合编码QR Code中嵌入UTF-8中文ASCII数字测试StringEncoding的自动检测逻辑。每个测试用例都附带原始图像存于Images/目录和预期结果ExpectedText属性。运行时测试框架自动调用TZXingMultiFormatReader.Decode比对实际输出与预期。特别设计TestAndroidCameraDistortion用手机拍摄标准测试卡导入到PC验证CameraCalibration模块对镜头畸变的补偿效果——这是工业扫码必备能力。注意事项dUnitXTest.dpr必须以Release配置运行因Debug模式下FastMM的调试开销会使测试超时iOS测试需在真机上运行模拟器不支持摄像头。4. 实操过程与核心环节实现从零集成到生产环境的七步法4.1 第一步环境准备与依赖确认在开始编码前请确认以下环境状态以11.3 Alexandria为例环境项检查命令合格标准不合格处理IDE版本Help → About显示”11.3.0.0”或更高升级至最新UpdateWindows SDKTools → Options → Environment Options → SDKs存在”Windows 10 SDK (10.0.22621.0)”下载Windows SDK 22621Android SDKTools → Options → Deployment → SDK Managerplatforms;android-33已安装安装Android SDK Platform 33iOS ProvisioningTools → Options → Deployment → Provisioning显示有效证书及设备UDID重新申请Apple Developer证书提示若使用XE7-XE10.2需额外安装DUnitX从GitHub下载v3.5.0因旧版Delphi未内置。安装后在Project → Options → Packages中勾选dunitx_dcp.bpl。4.2 第二步源码集成——不是“添加到项目”而是“注入到编译流程”不要右键项目→“Add → Add Files”这是新手最大误区。正确做法是将下载包解压到C:\DelphiLibs\ZXingDelphi\路径不含中文、空格在IDE中打开ZXingDelphi.groupproj编译所有.dpk包zxing.dpk、zxing.vcl.dpk、zxing.fmx.dpk右键zxing.dpk→Install此时IDE会自动注册ZXing组件到Tool Palette仅VCL版在你的目标项目中打开Project → Options → Delphi Compiler → Search Path在末尾添加$(DELPHI)\Source\Win32\XML;$(DELPHI)\Source\Win32\XML\SAX;C:\DelphiLibs\ZXingDelphi\Source\Common;C:\DelphiLibs\ZXingDelphi\Source\VCL;C:\DelphiLibs\ZXingDelphi\Source\FMX关键步骤在Project → Options → Linking中将Link with runtime packages设为False静态链接避免运行时缺少zxing.bpl。注意FMX项目无需安装.dpk只需确保Search Path包含Source\FMX即可。VCL项目若不想安装组件可跳过第3步直接在代码中uses ZXing.VCL;。4.3 第三步基础识别——三行代码搞定图片扫码以VCL桌面程序为例在窗体单元中添加uses ZXing.Common, ZXing.QRCode, ZXing.OneD, ZXing.MultiFormatReader, ZXing.VCL, Vcl.Graphics; procedure TForm1.Button1Click(Sender: TObject); var Bitmap: TBitmap; Reader: TZXingMultiFormatReader; Result: TZXingResult; begin Bitmap : TBitmap.Create; try Bitmap.LoadFromFile(test_qr.png); // 支持PNG/JPEG/BMP Reader : TZXingMultiFormatReader.Create; try Result : Reader.Decode(TZXingVCLBitmapSource.Create(Bitmap), [TBarcodeFormat.QR_CODE, TBarcodeFormat.CODE_128]); if Result nil then ShowMessage(识别结果 Result.Text) else ShowMessage(未识别到条码); finally Reader.Free; end; finally Bitmap.Free; end; end;这段代码看似简单背后有三层保障TZXingVCLBitmapSource.Create自动处理TBitmap.PixelFormatpf32bit/pf24bit/pf16bitTZXingMultiFormatReader内部按BarcodeFormat优先级排序QR Code优先于Code 128Decode方法返回nil而非抛异常符合Delphi异常处理最佳实践异常用于错误nil用于正常业务逻辑。4.4 第四步摄像头实时识别——VCL与FMX的差异化实现VCL摄像头接入DirectShow// uses ZXing.DirectShow; var Grabber: TDirectShowGrabber; begin Grabber : TDirectShowGrabber.Create(Self); Grabber.OnFrameReady : procedure(Sender: TObject; const Frame: TBitmap) var Result: TZXingResult; begin Result : FReader.Decode(TZXingVCLBitmapSource.Create(Frame), [...]); if Result nil then TThread.Synchronize(nil, procedure begin Label1.Caption : Result.Text; end); end; Grabber.StartPreview(Handle); // Handle为窗体句柄 end;FMX摄像头接入跨平台// uses ZXing.FMX; procedure TForm1.FormCreate(Sender: TObject); begin VideoCapture1 : TVideoCaptureComponent.Create(Self); VideoCapture1.Parent : Self; VideoCapture1.OnSampleBufferReady : VideoCaptureSampleBufferReady; VideoCapture1.Start; end; procedure TForm1.VideoCaptureSampleBufferReady(Sender: TObject; const Buffer: TBitmapSurface); var Result: TZXingResult; begin Result : FReader.Decode(TZXingFMXBitmapSource.Create(Buffer.Clone), [...]); if Result nil then TThread.Synchronize(nil, procedure begin Label1.Text : Result.Text; end); end;注意VCL版需在Project → Options → Uses中添加ZXing.DirectShowFMX版需添加ZXing.FMXAndroid真机测试前务必在AndroidManifest.template.xml中添加相机权限。4.5 第五步高级定制——自定义解码参数与图像预处理默认解码参数适用于80%场景但工业环境需精细调整。TZXingMultiFormatReader提供Options属性Reader.Options : [ TZXingOption.TryHarder, // 强制启用所有检测算法耗时300%识别率15% TZXingOption.CharacterSet(UTF-8), // 指定字符集避免中文乱码 TZXingOption.PureBarcode // 假设图像是纯条码无背景跳过边缘检测 ]; // 自定义二值化阈值默认为128 Reader.Binarizer : TZXingGlobalHistogramBinarizer.Create; TZXingGlobalHistogramBinarizer(Reader.Binarizer).Threshold : 150; // 添加自定义图像滤镜锐化增强边缘 Reader.PreProcessor : TZXingSharpenFilter.Create; TZXingSharpenFilter(Reader.PreProcessor).Strength : 1.2;实测案例某汽车零部件厂的VIN码Code 39印刷在反光金属表面原始图像对比度低。启用TryHarderThreshold:100TZXingSharpenFilter后识别成功率从42%提升至99.8%。4.6 第六步多平台构建与签名——避坑指南Windows 64位构建Project → Options → Delphi Compiler → Target Platform→ 勾选Win64Linking → Generate detailed map file→ 勾选便于分析DLL依赖编译后用Dependency Walker检查确认无MSVCP140.dll等VC依赖因本库纯Pascal应无任何DLL依赖Android 64位构建Project → Options → Deployment→ 删除所有arm64-v8a架构外的文件只留libzxing.soEntitlements→ 取消勾选Use Large Heap避免OutOfMemoryError签名Project → Options → Signing→ 选择JKS密钥库Key Alias填key0密码正确即可iOS构建Project → Options → Version Info→Bundle Identifier必须与Provisioning Profile一致如com.yourcompany.scanappCapabilities → Background Modes→ 勾选Audio, AirPlay, and Picture in PictureiOS 15要求真机测试Xcode Organizer中选择设备点击Trust重启设备提示iOS上若出现EXC_BAD_ACCESS90%概率是TBitmapSurface.Map后未调用Unmap请检查所有TZXingFMXBitmapSource使用处。4.7 第七步生产环境部署——体积优化与崩溃防护最终APK/IPA体积是客户关注重点。本库经优化后平台未优化体积优化后体积优化手段Win64 EXE12.4 MB4.7 MBProject → Options → Linking → Debug information→NoneStack frames→FalseAndroid APK28.6 MB9.3 MBProject → Options → Deployment→ 删除res/drawable-*等冗余资源Build → Clean后BuildiOS IPA42.1 MB15.8 MBProject → Options → Swift/Objective-C→Strip debug symbols→TrueDeployment → Exclude files→ 添加*.dSYM崩溃防护方面我们在ZXing.Common.pas中植入全局异常钩子initialization SetUnhandledExceptionFilter( function(ExceptInfo: PExceptionPointers): LongBool begin // 记录崩溃堆栈到本地文件 WriteCrashLog(ExceptInfo); // 弹出友好提示不显示技术细节 MessageBox(0, 扫码功能异常请重启应用, 系统提示, MB_OK or MB_ICONERROR); Result : False; // 让系统继续处理 end );实测表明此方案使线上崩溃率降低76%因多数崩溃源于图像数据异常如nil指针钩子可捕获并优雅降级。5. 常见问题与排查技巧实录来自真实项目的21个高频问题5.1 图像识别失败类问题问题现象排查步骤解决方案根本原因识别率低30%1. 用Images/test_qr.png测试是否正常2. 检查摄像头分辨率是否≥640×4803. 查看TZXingMultiFormatReader.Options是否含TryHarder启用TryHarderThreshold:110PreProcessor:TZXingSharpenFilter默认参数针对理想光照工业环境需增强中文显示为乱码1.Result.Text长度是否与预期一致2.Result.RawBytes是否为UTF-8编码3. 检查TZXingMultiFormatReader.Options中CharacterSet显式设置Options : [TZXingOption.CharacterSet(UTF-8)]ZXing自动检测失败需人工指定同一张图多次识别结果不同1. 检查是否在多线程中共享TZXingMultiFormatReader实例2. 查看TZXingMultiFormatReader是否被重复Create/Free每个线程独占一个Reader实例或加临界区保护TZXingMultiFormatReader非线程安全5.2 平台兼容性问题问题现象排查步骤解决方案根本原因Android 64位闪退1.adb logcat查看FATAL EXCEPTION2. 检查libzxing.so是否为arm64-v8a架构3. 确认minSdkVersion≥21重新编译libzxing.soNDK r21eApplication.mk中APP_ABI : arm64-v8aDelphi 11.3默认NDK版本不匹配iOS 15白屏1. Xcode Console查看[CAMetalLayer nextDrawable]错误2. 检查TVideoCaptureComponent.SessionPreset3. 确认Info.plist中NSCameraUsageDescription已填写设置SessionPreset : AVCaptureSessionPreset1280x720Info.plist添加keyNSCameraUsageDescription/keystring用于扫码/stringiOS 15加强隐私限制需显式声明macOS M1芯片崩溃1.Console.app查看EXC_BAD_INSTRUCTION2. 检查TBitmapSurface.Map返回值3. 确认Target Platform为macOS 64-bit在TZXingFMXBitmapSource.Create中添加if TOSVersion.Check(12, 0) then FSurface.Map(TMapAccess.Read)macOS 12的Map行为变更5.3 性能与内存问题问题现象排查步骤解决方案根本原因Android内存溢出OOM1.adb shell dumpsys meminfo your.package.name2. 查看Graphics内存是否100MB3. 检查TBitmapSurface是否未Free使用TObjectPoolTBitmapSurface复用对象OnSampleBufferReady中Surface.Clone后立即FreeTBitmapSurface未释放导致GPU内存泄漏VCL识别延迟高200ms1.TStopwatch测量Decode耗时2. 检查TImage.AutoSize是否为True3. 确认TTimer.Interval是否≤40ms关闭TImage.AutoSize手动设置Width/Height启用ROI裁剪AutoSizeTrue触发重绘消耗CPUFMX多窗口识别卡顿1. 查看TThreadedQueue.Count是否持续增长2. 检查Dequeue线程是否阻塞3. 确认TBitmapSurface.Clone是否在主线程调用将Clone移到OnSampleBufferReady中Dequeue线程只做解码主线程Clone阻塞摄像头采集5.4 集成与构建问题问题现象排查步骤解决方案根本原因编译报错“Undeclared identifier ‘TZXingMultiFormatReader’”1. 检查uses中是否含ZXing.MultiFormatReader2. 确认Search Path是否包含Source\Common3. 查看ZXing.MultiFormatReader.pas是否存在在Project → Options → Search Path中添加C:\DelphiLibs\ZXingDelphi\Source\CommonIDE未索引到单元文件iOS构建失败“No signing certificate matching team ID”1. Xcode Organizer中查看Team ID2.Project → Options → Provisioning中Team ID是否一致3. 检查Entitlements.plist中application-identifier在Entitlements.plist中设置stringTEAMID.com.yourcompany.app/stringTeam ID不匹配导致签名失败Windows 64位EXE无法运行1.Dependency Walker检查缺失DLL2.Project → Options → Linking中Use runtime packages是否为False3. 确认Target Platform为Win64设置Use runtime packages : FalseLink with runtime packages : False动态链接导致运行时找不到BPL实操心得我在某物流公司的手持终端项目中遇到Android 11上TVideoCaptureComponent黑屏问题。排查发现是SurfaceTexture初始化失败最终方案是放弃FMX组件改用ZXing.Android.CameraAPI直连手动创建SurfaceTexture并绑定到GLSurfaceView——虽然代码量增加但稳定性提升至99.99%。这印证了一个原则当封装层失效时深入到底层才是终极解法。6. 扩展可能性与后续演进方向这套代码的架构设计预留了足够扩展空间。比如ZXing.Common.pas中定义的IZXingDecoder接口目前只有TZXingMultiFormatReader实现但你可以轻松添加TZXingAIReader——它不走传统图像处理流水线而是调用TensorFlow Lite模型.tflite文件做端侧推理。我们已在experimental/ai分支中提供了原型用Python训练QR Code检测模型YOLOv5s导出为tflite再用ZXing.TFLite单元加载Decode方法内部调用TFLiteInterpreter.Invoke。实测在骁龙865手机上AI识别速度比传统算法快8.2倍且对模糊、旋转、遮挡的鲁棒性更强。另一个方向是WebAssembly集成ZXing.WASM.pas单元已实现可将核心解码逻辑编译为WASM模块嵌入到Delphi WebBroker应用中让浏览器前端直接调用扫码能力——这意味着你可以在VCL/FMX应用中调用Web API也可以在Web应用中复用同一套解码逻辑。最后关于许可证Apache 2.0允许商用、修改、分发甚至可闭源只要保留版权声明这比GPL更友好。我个人在实际使用中发现把ZXing.Common.pas中的TZXingResult记录改为类TZXingResult class并添加ToJSON方法能极大简化与REST API的对接——这个小改动已提交到GitHub仓库的feature/json-support分支。本文还有配套的精品资源点击获取简介一套专为Delphi 11.3 Alexandria优化的ZXing条码/二维码识别源码包完全基于Object Pascal重写不调用外部DLL、JNI或系统API所有逻辑编译进项目本地执行。兼容Delphi XE7至11.3全版本覆盖Windows VCL32/64位、Android32/64位、iOS8.x–15.x和macOS平台。内置多个可直接运行的示例工程vclTestApp用于桌面扫码aTestApp展示FMX跨平台能力webcam实现摄像头实时识别MemLeakTest检测内存稳定性dUnitXTest提供完整单元测试覆盖另含图片离线识别Demo及配套测试图集。源文件结构清晰只需将.pas单元加入项目即可使用无需安装组件、配置环境或修改IDE设置。附带详细README.md说明接入流程LICENSE明确采用Apache 2.0开源协议.gitignore适配主流版本控制skincfg与res资源已预置支持快速集成到新旧项目中。本文还有配套的精品资源点击获取
Delphi 11.3下开箱即用的ZXing条码二维码识别源码，VCL与FMX双平台原生支持
发布时间：2026/6/11 4:47:06
本文还有配套的精品资源点击获取简介一套专为Delphi 11.3 Alexandria优化的ZXing条码/二维码识别源码包完全基于Object Pascal重写不调用外部DLL、JNI或系统API所有逻辑编译进项目本地执行。兼容Delphi XE7至11.3全版本覆盖Windows VCL32/64位、Android32/64位、iOS8.x–15.x和macOS平台。内置多个可直接运行的示例工程vclTestApp用于桌面扫码aTestApp展示FMX跨平台能力webcam实现摄像头实时识别MemLeakTest检测内存稳定性dUnitXTest提供完整单元测试覆盖另含图片离线识别Demo及配套测试图集。源文件结构清晰只需将.pas单元加入项目即可使用无需安装组件、配置环境或修改IDE设置。附带详细README.md说明接入流程LICENSE明确采用Apache 2.0开源协议.gitignore适配主流版本控制skincfg与res资源已预置支持快速集成到新旧项目中。1. 项目概述为什么这套ZXing Delphi源码值得你花十分钟认真读完Delphi开发者最常遇到的扫码需求往往卡在三个地方一是调用外部DLL导致部署复杂、签名失败、iOS上直接被拒二是依赖JNI桥接Android结果一升级Delphi版本或Android SDK就编译报错三是用Webview嵌套JS库延迟高、识别率低、无法离线、UI割裂。我做过不下二十个带扫码功能的企业级项目——从医疗PDA设备上的药品追溯系统到工厂产线的工单条码录入终端再到连锁药店POS系统的会员二维码核销模块——每一次集成扫码能力都像重新走一遍兼容性雷区。直到我把ZXing官方Java实现逐行吃透用纯Object Pascal重写核心解码引擎并把图像预处理、区域定位、纠错码解析、字符映射整套逻辑全部下沉到RTL层才真正实现了“一次编写、全平台原生运行”。这套代码不是封装层、不是胶水代码而是把ZXing的BinaryBitmap、HybridBinarizer、MultiFormatReader这些关键类用Delphi的泛型集合、动态数组、位运算和内存管理机制原样复刻出来。它不碰Windows Media Foundation、不调Android Camera2 API、不走iOS AVFoundation桥接——所有图像帧进来直接进TBitmap或TBitmapSurface解码逻辑全程在CPU上跑连浮点运算都用Single精度查表法优化过。你拿到的不是一个“能用”的库而是一个可调试、可断点、可修改、可审计的完整解码内核。关键词里写的“delphi扫码”“zxing源码”“vcl fmx”“条码识别”“二维码扫描”每一个都不是虚词VCL下你能在TImage上拖一个TTimer每40ms抓一帧做识别FMX里你可以把TVideoCaptureComponent的OnSampleBufferReady回调直接喂给解码器Android上它自动适配TBitmap的ARGB_8888内存布局iOS上它绕过UIKit的UIImage转换开销直接操作CVPixelBufferRef裸指针通过TCustomBitmapSurface抽象层。这不是“支持多平台”这是把每个平台的图像数据管道都拧到了同一个解码引擎的输入口上。如果你正在为XE10.4的iOS 15兼容性发愁或者被11.3新引入的64位Android NDK链接问题卡住又或者只是想在VCL桌面程序里加个扫码按钮却不想装十个第三方组件——那么接下来的内容就是你过去三年想找但没找到的那套东西。2. 整体设计与思路拆解为什么不用DLL、不走JNI、不调系统API2.1 核心哲学把ZXing“翻译”成Object Pascal而不是“调用”ZXingZXing官方Java版有近20万行代码核心价值不在语法而在算法逻辑比如QR Code的Finder Pattern定位用的是“黑白黑白黑”五像素比例检测1:1:3:1:1Data Matrix的L形边框校正依赖Hough变换的极坐标累加Code 128的校验和计算必须按A/B/C三套字符集切换编码规则。如果只是用JNI把Java打包成aar再桥接等于把整个JVM堆栈塞进Delphi进程——Android上会触发java.lang.OutOfMemoryErroriOS上根本过不了App Store审核禁止动态加载Java字节码。而本方案的做法是把ZXing Java源码中所有.java文件打开逐函数重写。例如com.google.zxing.qrcode.detector.FinderPatternFinder类在Delphi中对应ZXing.QRCode.Detector.TFinderPatternFinder其find方法内部不再调用java.awt.image.BufferedImage而是接收TBitmap参数用ScanLine直接遍历像素行calculateModuleSize不再依赖Java的Math.sqrt()而是用Sqrt()定点数缩放避免浮点误差累积。这种重写不是简单替换语法而是对底层数据流的彻底重构Java里int[]数组在Delphi里用TArrayInteger但内存布局必须保证与TBitmap.ScanLine[y]返回的PByteArray完全对齐Java的ArrayListT在Delphi里用TListT但所有Add操作前都插入Assert(Length(FItems) MaxInt div SizeOf(T))防止溢出——因为移动端内存碎片严重TList扩容时ReallocMem可能失败。这种级别的控制只有纯Pascal实现才能做到。2.2 平台抽象层设计VCL与FMX如何共用同一套解码逻辑很多人以为VCL和FMX的图像处理必须两套代码其实不然。关键在于定义统一的图像数据契约。本方案定义了IZXingBitmapSource接口type IZXingBitmapSource interface(IInterface) [{D7E9F2A1-8B3C-4E5F-A123-456789ABCDEF}] function GetWidth: Integer; function GetHeight: Integer; function GetPixel(x, y: Integer): TAlphaColor; // 统一返回ARGB function GetRawData: Pointer; // 返回首地址供底层算法直接读取 function GetStride: Integer; // 每行字节数解决32位/64位对齐差异 end;VCL实现TZXingVCLBitmapSource构造时传入TBitmapGetRawData直接返回TBitmap.ScanLine[0]FMX实现TZXingFMXBitmapSource传入TBitmapSurfaceGetRawData调用TBitmapSurface.Map(TMapAccess.Read)获取内存指针。这样解码器核心TZXingMultiFormatReader.Decode只认IZXingBitmapSource完全不知道上层是VCL还是FMX。实测发现同一段解码逻辑在VCL下处理1920×1080摄像头帧耗时42ms在FMX Android上耗时58ms因ARM NEON指令未启用但代码零修改——这正是抽象的价值。更进一步针对移动平台摄像头预览帧格式Android是NV21iOS是BGRA我们提供了TZXingCameraFrameAdapter类它接收原始YUV数据内部用SIMD汇编x86用MMXARM用NEON做YUV420sp转灰度图比Delphi RTL自带的TBitmap.Assign快3.7倍。这个适配器不暴露给用户而是封装在aTestApp的TMainForm.OnCameraSample事件里自动调用——你只需关心“我拿到了一帧”不用管“这帧是什么格式”。2.3 全平台兼容性保障从XE7到11.3的版本演进策略Delphi版本跨度大RTL变化剧烈。比如XE7的TBitmap没有CreateFromStream11.3的TBitmapSurface新增了MapAsync。我们的应对策略是条件编译运行时特征探测{$IFDEF DELPHI_XE7_UP} {$DEFINE HAS_BITMAP_CREATEFROMSTREAM} {$ENDIF} {$IFDEF DELPHI_11_3_UP} {$DEFINE HAS_BITMAPSURFACE_MAPASYNC} {$ENDIF} function TZXingBitmapHelper.LoadFromStream(Stream: TStream): IZXingBitmapSource; begin {$IFDEF HAS_BITMAP_CREATEFROMSTREAM} Result : TZXingVCLBitmapSource.Create(TBitmap.CreateFromStream(Stream)); {$ELSE} // XE7兼容路径手动读取BMP头解析像素数据 Stream.Position : 0; if Stream.ReadBuffer(Header, SizeOf(TBitmapFileHeader)) SizeOf(TBitmapFileHeader) then ... {$ENDIF} end;同时所有跨平台单元如ZXing.Common.pas都标注{$IFDEF MSWINDOWS}...{$ENDIF}等宏确保iOS编译时跳过Windows专用API调用。更关键的是我们用dUnitXTest工程覆盖所有版本在CI流水线中用Inno Setup自动安装XE7、10.2、11.3三个IDE分别编译测试工程生成XML报告。任何版本的TBarcodeFormat枚举值变更、TResult结构体字段增减都会触发测试失败——这比文档说明可靠一万倍。实际踩过的坑包括10.4.2的TBitmapSurface在macOS上Map返回nil需先调用SetSize11.3的Android 64位编译器对PByte指针算术的优化bug需加{$OPTIMIZATION OFF}。这些修复都沉淀在ZXing.Platform.Android.pas的FixAndroid64BitBug过程里调用方完全无感。3. 核心细节解析与实操要点五个示例工程背后的硬核设计3.1 vclTestAppVCL桌面扫码的极致简化实践vclTestApp不是简单的“放个TImageTButton”而是展示了如何在无摄像头硬件时完成全流程验证。它的主窗体TMainForm包含三个核心控件TImage显示实时画面、TTimer控制采帧频率、TButton触发手动截图识别。关键设计点在于TTimer.OnTimer事件procedure TMainForm.TimerTimer(Sender: TObject); var Bitmap: TBitmap; Source: IZXingBitmapSource; Result: TZXingResult; begin Bitmap : TBitmap.Create; try // 从TImage截取当前显示内容支持缩放、旋转 Bitmap.SetSize(Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height); Bitmap.Canvas.Draw(0, 0, Image1.Picture.Bitmap); // 构造图像源自动适配VCL Source : TZXingVCLBitmapSource.Create(Bitmap); // 调用解码器指定只识别QR Code和Code 128 Result : FReader.Decode(Source, [TBarcodeFormat.QR_CODE, TBarcodeFormat.CODE_128]); if Result nil then Memo1.Lines.Add(Format(识别成功%s [%s], [Result.Text, Result.BarcodeFormat.ToString])); finally Bitmap.Free; end; end;这里隐藏了两个重要细节第一TImage的Stretch属性设为True时Canvas.Draw会自动缩放但TZXingVCLBitmapSource内部做了GetRawData偏移修正确保像素坐标映射准确第二FReader.Decode第二个参数是TBarcodeFormat枚举数组而非传统TBarcodeFormat单值——因为真实场景中你永远不知道用户扫的是二维码还是快递单上的Code 128必须并行尝试。实测表明并行解码比顺序尝试快2.3倍QR Code定位算法耗时占总时间70%复用同一张二值图可省去重复计算。注意事项VCL下若使用高分辨率摄像头如4KTImage默认AutoSizeTrue会导致窗体撑爆屏幕必须手动设置Image1.Width/Height并启用StretchTrue另外TTimer.Interval建议设为40ms25FPS低于33ms人眼已难察觉卡顿高于66ms则扫码体验明显迟滞。3.2 aTestAppFMX跨平台应用的资源调度艺术aTestApp的TMainForm在FMX中是个典型陷阱区TVideoCaptureComponent的OnSampleBufferReady回调在Android上每秒触发30次但每次传递的TBitmapSurface对象生命周期极短——若你在回调里直接调用FReader.Decode可能触发EAccessViolation因TBitmapSurface已被GC回收。解决方案是双缓冲队列type TFrameQueue class private FQueue: TThreadedQueueTBitmapSurface; FConsumerThread: TThread; public constructor Create; destructor Destroy; override; procedure Enqueue(Surface: TBitmapSurface); function Dequeue: TBitmapSurface; end; // 在OnSampleBufferReady中 procedure TMainForm.VideoCaptureSampleBufferReady(Sender: TObject; const Buffer: TBitmapSurface); begin // 复制一份新Surface避免原对象被回收 FFrameQueue.Enqueue(Buffer.Clone); end; // 在独立线程中消费 procedure TFrameQueue.Execute; var Surface: TBitmapSurface; Result: TZXingResult; begin while not Terminated do begin Surface : Dequeue; if Surface nil then try Result : FReader.Decode(TZXingFMXBitmapSource.Create(Surface), [...]); if Result nil then TThread.Synchronize(nil, procedure begin Memo1.Lines.Add(Result.Text); end); finally Surface.Free; end; end; end;这个设计解决了三个问题一是线程安全TThreadedQueue内置锁二是内存泄漏Clone后原Buffer由FMX框架管理新Surface由队列线程释放三是响应及时解码耗时不影响摄像头帧采集。实测在Android 12上即使解码单帧需80ms也能稳定维持28FPS采集。特别提醒iOS上TVideoCaptureComponent默认使用AVCaptureSessionPresetPhoto高分辨率但慢必须在FormCreate中调用VideoCapture1.SessionPreset : AVCaptureSessionPreset1280x720否则预览卡顿到无法识别。3.3 webcam摄像头实时识别的性能压榨技巧webcam工程专攻性能极限。它不依赖TVideoCaptureComponent而是直连Windows DirectShowVCL和Android Camera APIFMX。核心是TDirectShowGrabber类它绕过TImage渲染直接从ISampleGrabber回调获取IMediaSample再用CopyMemory将YUY2数据拷贝到预分配的TArrayByte缓冲区。关键优化点有三内存池复用预先分配10个TArrayByte每个大小摄像头分辨率×2解码完成后不SetLength清空而是放入TObjectPoolTArrayByte等待下次复用避免频繁GetMem/FreeMemROI裁剪默认只解码画面中心320×240区域TZXingMultiFormatReader.SetRegion(Left, Top, Width, Height)因条码通常出现在画面中央此举提速4.1倍异步解码用TTask.Run启动后台线程主线程继续采集下一帧解码结果通过TThread.Queue回传UI线程。实测数据在i5-8250U笔记本上1920×108030FPS摄像头开启ROI后平均解码延迟12msCPU占用率从38%降至9%。注意事项DirectShow在Windows 11上需启用EnableLegacyVideoCapture注册表项代码中已自动处理Android端需在AndroidManifest.template.xml中添加uses-permission android:nameandroid.permission.CAMERA/且TargetSdkVersion必须≤33因Android 14限制后台摄像头访问。3.4 MemLeakTest内存泄漏检测的工业级实践MemLeakTest不是简单跑ReportMemoryLeaksOnShutdown : True而是模拟真实业务场景的压力测试。它创建1000个TZXingMultiFormatReader实例每个实例连续解码100张测试图含QR、DataMatrix、PDF417全程监控GetHeapStatus.TotalAllocatedBlocks。关键发现是ZXing Java版的ResultPointCallback在Delphi中若用匿名方法捕获Self会导致循环引用TZXingMultiFormatReader持有TMethodTMethod又持有Self。修复方案是改用接口回调type IResultPointCallback interface(IInterface) [{A1B2C3D4-E5F6-7890-G1H2-I3J4K5L6M7N8}] procedure FoundPoint(X, Y: Single); end; TZXingMultiFormatReader class private FCallback: IResultPointCallback; public property ResultPointCallback: IResultPointCallback read FCallback write FCallback; end;接口引用计数自动管理生命周期彻底杜绝泄漏。测试工程还集成了FastMM4的FullDebugMode在Finalization段输出泄漏摘要“Detected 0 memory leaks”。实操心得在移动平台TBitmapSurface的Unmap必须与Map严格配对否则iOS上会触发EXC_BAD_ACCESS我们已在TZXingFMXBitmapSource.Destroy中强制调用Unmap并在dUnitXTest中添加TestBitmapSurfaceUnmap用例验证。3.5 dUnitXTest单元测试覆盖的边界案例设计dUnitXTest工程覆盖了ZXing所有边界场景远超官方Java测试用例。例如TestQRCodeCornerCase包含超小二维码21×21像素QR Code Version 1最小尺寸验证FinderPatternFinder的亚像素定位精度强噪声图像用TGaussianNoiseFilter给测试图添加σ15的高斯噪声测试HybridBinarizer的鲁棒性倾斜条码将Code 128图像旋转15度验证PerspectiveTransform的仿射校正能力中文混合编码QR Code中嵌入UTF-8中文ASCII数字测试StringEncoding的自动检测逻辑。每个测试用例都附带原始图像存于Images/目录和预期结果ExpectedText属性。运行时测试框架自动调用TZXingMultiFormatReader.Decode比对实际输出与预期。特别设计TestAndroidCameraDistortion用手机拍摄标准测试卡导入到PC验证CameraCalibration模块对镜头畸变的补偿效果——这是工业扫码必备能力。注意事项dUnitXTest.dpr必须以Release配置运行因Debug模式下FastMM的调试开销会使测试超时iOS测试需在真机上运行模拟器不支持摄像头。4. 实操过程与核心环节实现从零集成到生产环境的七步法4.1 第一步环境准备与依赖确认在开始编码前请确认以下环境状态以11.3 Alexandria为例环境项检查命令合格标准不合格处理IDE版本Help → About显示”11.3.0.0”或更高升级至最新UpdateWindows SDKTools → Options → Environment Options → SDKs存在”Windows 10 SDK (10.0.22621.0)”下载Windows SDK 22621Android SDKTools → Options → Deployment → SDK Managerplatforms;android-33已安装安装Android SDK Platform 33iOS ProvisioningTools → Options → Deployment → Provisioning显示有效证书及设备UDID重新申请Apple Developer证书提示若使用XE7-XE10.2需额外安装DUnitX从GitHub下载v3.5.0因旧版Delphi未内置。安装后在Project → Options → Packages中勾选dunitx_dcp.bpl。4.2 第二步源码集成——不是“添加到项目”而是“注入到编译流程”不要右键项目→“Add → Add Files”这是新手最大误区。正确做法是将下载包解压到C:\DelphiLibs\ZXingDelphi\路径不含中文、空格在IDE中打开ZXingDelphi.groupproj编译所有.dpk包zxing.dpk、zxing.vcl.dpk、zxing.fmx.dpk右键zxing.dpk→Install此时IDE会自动注册ZXing组件到Tool Palette仅VCL版在你的目标项目中打开Project → Options → Delphi Compiler → Search Path在末尾添加$(DELPHI)\Source\Win32\XML;$(DELPHI)\Source\Win32\XML\SAX;C:\DelphiLibs\ZXingDelphi\Source\Common;C:\DelphiLibs\ZXingDelphi\Source\VCL;C:\DelphiLibs\ZXingDelphi\Source\FMX关键步骤在Project → Options → Linking中将Link with runtime packages设为False静态链接避免运行时缺少zxing.bpl。注意FMX项目无需安装.dpk只需确保Search Path包含Source\FMX即可。VCL项目若不想安装组件可跳过第3步直接在代码中uses ZXing.VCL;。4.3 第三步基础识别——三行代码搞定图片扫码以VCL桌面程序为例在窗体单元中添加uses ZXing.Common, ZXing.QRCode, ZXing.OneD, ZXing.MultiFormatReader, ZXing.VCL, Vcl.Graphics; procedure TForm1.Button1Click(Sender: TObject); var Bitmap: TBitmap; Reader: TZXingMultiFormatReader; Result: TZXingResult; begin Bitmap : TBitmap.Create; try Bitmap.LoadFromFile(test_qr.png); // 支持PNG/JPEG/BMP Reader : TZXingMultiFormatReader.Create; try Result : Reader.Decode(TZXingVCLBitmapSource.Create(Bitmap), [TBarcodeFormat.QR_CODE, TBarcodeFormat.CODE_128]); if Result nil then ShowMessage(识别结果 Result.Text) else ShowMessage(未识别到条码); finally Reader.Free; end; finally Bitmap.Free; end; end;这段代码看似简单背后有三层保障TZXingVCLBitmapSource.Create自动处理TBitmap.PixelFormatpf32bit/pf24bit/pf16bitTZXingMultiFormatReader内部按BarcodeFormat优先级排序QR Code优先于Code 128Decode方法返回nil而非抛异常符合Delphi异常处理最佳实践异常用于错误nil用于正常业务逻辑。4.4 第四步摄像头实时识别——VCL与FMX的差异化实现VCL摄像头接入DirectShow// uses ZXing.DirectShow; var Grabber: TDirectShowGrabber; begin Grabber : TDirectShowGrabber.Create(Self); Grabber.OnFrameReady : procedure(Sender: TObject; const Frame: TBitmap) var Result: TZXingResult; begin Result : FReader.Decode(TZXingVCLBitmapSource.Create(Frame), [...]); if Result nil then TThread.Synchronize(nil, procedure begin Label1.Caption : Result.Text; end); end; Grabber.StartPreview(Handle); // Handle为窗体句柄 end;FMX摄像头接入跨平台// uses ZXing.FMX; procedure TForm1.FormCreate(Sender: TObject); begin VideoCapture1 : TVideoCaptureComponent.Create(Self); VideoCapture1.Parent : Self; VideoCapture1.OnSampleBufferReady : VideoCaptureSampleBufferReady; VideoCapture1.Start; end; procedure TForm1.VideoCaptureSampleBufferReady(Sender: TObject; const Buffer: TBitmapSurface); var Result: TZXingResult; begin Result : FReader.Decode(TZXingFMXBitmapSource.Create(Buffer.Clone), [...]); if Result nil then TThread.Synchronize(nil, procedure begin Label1.Text : Result.Text; end); end;注意VCL版需在Project → Options → Uses中添加ZXing.DirectShowFMX版需添加ZXing.FMXAndroid真机测试前务必在AndroidManifest.template.xml中添加相机权限。4.5 第五步高级定制——自定义解码参数与图像预处理默认解码参数适用于80%场景但工业环境需精细调整。TZXingMultiFormatReader提供Options属性Reader.Options : [ TZXingOption.TryHarder, // 强制启用所有检测算法耗时300%识别率15% TZXingOption.CharacterSet(UTF-8), // 指定字符集避免中文乱码 TZXingOption.PureBarcode // 假设图像是纯条码无背景跳过边缘检测 ]; // 自定义二值化阈值默认为128 Reader.Binarizer : TZXingGlobalHistogramBinarizer.Create; TZXingGlobalHistogramBinarizer(Reader.Binarizer).Threshold : 150; // 添加自定义图像滤镜锐化增强边缘 Reader.PreProcessor : TZXingSharpenFilter.Create; TZXingSharpenFilter(Reader.PreProcessor).Strength : 1.2;实测案例某汽车零部件厂的VIN码Code 39印刷在反光金属表面原始图像对比度低。启用TryHarderThreshold:100TZXingSharpenFilter后识别成功率从42%提升至99.8%。4.6 第六步多平台构建与签名——避坑指南Windows 64位构建Project → Options → Delphi Compiler → Target Platform→ 勾选Win64Linking → Generate detailed map file→ 勾选便于分析DLL依赖编译后用Dependency Walker检查确认无MSVCP140.dll等VC依赖因本库纯Pascal应无任何DLL依赖Android 64位构建Project → Options → Deployment→ 删除所有arm64-v8a架构外的文件只留libzxing.soEntitlements→ 取消勾选Use Large Heap避免OutOfMemoryError签名Project → Options → Signing→ 选择JKS密钥库Key Alias填key0密码正确即可iOS构建Project → Options → Version Info→Bundle Identifier必须与Provisioning Profile一致如com.yourcompany.scanappCapabilities → Background Modes→ 勾选Audio, AirPlay, and Picture in PictureiOS 15要求真机测试Xcode Organizer中选择设备点击Trust重启设备提示iOS上若出现EXC_BAD_ACCESS90%概率是TBitmapSurface.Map后未调用Unmap请检查所有TZXingFMXBitmapSource使用处。4.7 第七步生产环境部署——体积优化与崩溃防护最终APK/IPA体积是客户关注重点。本库经优化后平台未优化体积优化后体积优化手段Win64 EXE12.4 MB4.7 MBProject → Options → Linking → Debug information→NoneStack frames→FalseAndroid APK28.6 MB9.3 MBProject → Options → Deployment→ 删除res/drawable-*等冗余资源Build → Clean后BuildiOS IPA42.1 MB15.8 MBProject → Options → Swift/Objective-C→Strip debug symbols→TrueDeployment → Exclude files→ 添加*.dSYM崩溃防护方面我们在ZXing.Common.pas中植入全局异常钩子initialization SetUnhandledExceptionFilter( function(ExceptInfo: PExceptionPointers): LongBool begin // 记录崩溃堆栈到本地文件 WriteCrashLog(ExceptInfo); // 弹出友好提示不显示技术细节 MessageBox(0, 扫码功能异常请重启应用, 系统提示, MB_OK or MB_ICONERROR); Result : False; // 让系统继续处理 end );实测表明此方案使线上崩溃率降低76%因多数崩溃源于图像数据异常如nil指针钩子可捕获并优雅降级。5. 常见问题与排查技巧实录来自真实项目的21个高频问题5.1 图像识别失败类问题问题现象排查步骤解决方案根本原因识别率低30%1. 用Images/test_qr.png测试是否正常2. 检查摄像头分辨率是否≥640×4803. 查看TZXingMultiFormatReader.Options是否含TryHarder启用TryHarderThreshold:110PreProcessor:TZXingSharpenFilter默认参数针对理想光照工业环境需增强中文显示为乱码1.Result.Text长度是否与预期一致2.Result.RawBytes是否为UTF-8编码3. 检查TZXingMultiFormatReader.Options中CharacterSet显式设置Options : [TZXingOption.CharacterSet(UTF-8)]ZXing自动检测失败需人工指定同一张图多次识别结果不同1. 检查是否在多线程中共享TZXingMultiFormatReader实例2. 查看TZXingMultiFormatReader是否被重复Create/Free每个线程独占一个Reader实例或加临界区保护TZXingMultiFormatReader非线程安全5.2 平台兼容性问题问题现象排查步骤解决方案根本原因Android 64位闪退1.adb logcat查看FATAL EXCEPTION2. 检查libzxing.so是否为arm64-v8a架构3. 确认minSdkVersion≥21重新编译libzxing.soNDK r21eApplication.mk中APP_ABI : arm64-v8aDelphi 11.3默认NDK版本不匹配iOS 15白屏1. Xcode Console查看[CAMetalLayer nextDrawable]错误2. 检查TVideoCaptureComponent.SessionPreset3. 确认Info.plist中NSCameraUsageDescription已填写设置SessionPreset : AVCaptureSessionPreset1280x720Info.plist添加keyNSCameraUsageDescription/keystring用于扫码/stringiOS 15加强隐私限制需显式声明macOS M1芯片崩溃1.Console.app查看EXC_BAD_INSTRUCTION2. 检查TBitmapSurface.Map返回值3. 确认Target Platform为macOS 64-bit在TZXingFMXBitmapSource.Create中添加if TOSVersion.Check(12, 0) then FSurface.Map(TMapAccess.Read)macOS 12的Map行为变更5.3 性能与内存问题问题现象排查步骤解决方案根本原因Android内存溢出OOM1.adb shell dumpsys meminfo your.package.name2. 查看Graphics内存是否100MB3. 检查TBitmapSurface是否未Free使用TObjectPoolTBitmapSurface复用对象OnSampleBufferReady中Surface.Clone后立即FreeTBitmapSurface未释放导致GPU内存泄漏VCL识别延迟高200ms1.TStopwatch测量Decode耗时2. 检查TImage.AutoSize是否为True3. 确认TTimer.Interval是否≤40ms关闭TImage.AutoSize手动设置Width/Height启用ROI裁剪AutoSizeTrue触发重绘消耗CPUFMX多窗口识别卡顿1. 查看TThreadedQueue.Count是否持续增长2. 检查Dequeue线程是否阻塞3. 确认TBitmapSurface.Clone是否在主线程调用将Clone移到OnSampleBufferReady中Dequeue线程只做解码主线程Clone阻塞摄像头采集5.4 集成与构建问题问题现象排查步骤解决方案根本原因编译报错“Undeclared identifier ‘TZXingMultiFormatReader’”1. 检查uses中是否含ZXing.MultiFormatReader2. 确认Search Path是否包含Source\Common3. 查看ZXing.MultiFormatReader.pas是否存在在Project → Options → Search Path中添加C:\DelphiLibs\ZXingDelphi\Source\CommonIDE未索引到单元文件iOS构建失败“No signing certificate matching team ID”1. Xcode Organizer中查看Team ID2.Project → Options → Provisioning中Team ID是否一致3. 检查Entitlements.plist中application-identifier在Entitlements.plist中设置stringTEAMID.com.yourcompany.app/stringTeam ID不匹配导致签名失败Windows 64位EXE无法运行1.Dependency Walker检查缺失DLL2.Project → Options → Linking中Use runtime packages是否为False3. 确认Target Platform为Win64设置Use runtime packages : FalseLink with runtime packages : False动态链接导致运行时找不到BPL实操心得我在某物流公司的手持终端项目中遇到Android 11上TVideoCaptureComponent黑屏问题。排查发现是SurfaceTexture初始化失败最终方案是放弃FMX组件改用ZXing.Android.CameraAPI直连手动创建SurfaceTexture并绑定到GLSurfaceView——虽然代码量增加但稳定性提升至99.99%。这印证了一个原则当封装层失效时深入到底层才是终极解法。6. 扩展可能性与后续演进方向这套代码的架构设计预留了足够扩展空间。比如ZXing.Common.pas中定义的IZXingDecoder接口目前只有TZXingMultiFormatReader实现但你可以轻松添加TZXingAIReader——它不走传统图像处理流水线而是调用TensorFlow Lite模型.tflite文件做端侧推理。我们已在experimental/ai分支中提供了原型用Python训练QR Code检测模型YOLOv5s导出为tflite再用ZXing.TFLite单元加载Decode方法内部调用TFLiteInterpreter.Invoke。实测在骁龙865手机上AI识别速度比传统算法快8.2倍且对模糊、旋转、遮挡的鲁棒性更强。另一个方向是WebAssembly集成ZXing.WASM.pas单元已实现可将核心解码逻辑编译为WASM模块嵌入到Delphi WebBroker应用中让浏览器前端直接调用扫码能力——这意味着你可以在VCL/FMX应用中调用Web API也可以在Web应用中复用同一套解码逻辑。最后关于许可证Apache 2.0允许商用、修改、分发甚至可闭源只要保留版权声明这比GPL更友好。我个人在实际使用中发现把ZXing.Common.pas中的TZXingResult记录改为类TZXingResult class并添加ToJSON方法能极大简化与REST API的对接——这个小改动已提交到GitHub仓库的feature/json-support分支。本文还有配套的精品资源点击获取简介一套专为Delphi 11.3 Alexandria优化的ZXing条码/二维码识别源码包完全基于Object Pascal重写不调用外部DLL、JNI或系统API所有逻辑编译进项目本地执行。兼容Delphi XE7至11.3全版本覆盖Windows VCL32/64位、Android32/64位、iOS8.x–15.x和macOS平台。内置多个可直接运行的示例工程vclTestApp用于桌面扫码aTestApp展示FMX跨平台能力webcam实现摄像头实时识别MemLeakTest检测内存稳定性dUnitXTest提供完整单元测试覆盖另含图片离线识别Demo及配套测试图集。源文件结构清晰只需将.pas单元加入项目即可使用无需安装组件、配置环境或修改IDE设置。附带详细README.md说明接入流程LICENSE明确采用Apache 2.0开源协议.gitignore适配主流版本控制skincfg与res资源已预置支持快速集成到新旧项目中。本文还有配套的精品资源点击获取
相关文章
Python内存管理的艺术：从引用计数到垃圾回收的完整指南
Python内存管理的艺术：从引用计数到垃圾回收的完整指南 【免费下载链接】cpython The Python programming language 项目地址: https://gitcode.com/GitHub_Trending/cp/cpython 你是否曾经好奇，为什么Python程序很少出现内存泄漏，却又…
VC++ MFC双机文件收发实战：带可编译客户端与服务端工程
本文还有配套的精品资源，点击获取 简介：直接可用的VC MFC双端文件传输实验工程，含完整客户端和服务端两个独立VS解决方案（MFCFileUpload1C.sln 和 MFCFileUpload1S.sln），均基于原生Winsock API实现TCP二…
杀戮尖塔2Mod下载(皮肤+美化+功能)2026最新版
通过Mod扩展游戏内容或优化视觉体验，是许多玩家延长《杀戮尖塔2》生命周期的首选方式。本篇将围绕手动安装美化类Mod的具体流程展开，同时说明Mod模式与原版存档的关系，并提供存档迁移方案，帮助你顺利完成过渡。 下载链接…
5分钟掌握LiveAutoRecord：跨平台直播自动录制神器
5分钟掌握LiveAutoRecord：跨平台直播自动录制神器 【免费下载链接】LiveAutoRecord 基于 Electron 的多平台直播自动录制软件 项目地址: https://gitcode.com/GitHub_Trending/li/LiveAutoRecord 你是否曾经因为错过心仪主播的精彩直播而懊恼？或者…
别再只会调sklearn了！用gplearn的SymbolicTransformer给你的特征工程加点‘魔法’
突破特征工程天花板：用gplearn的SymbolicTransformer解锁高阶特征组合在Kaggle竞赛或实际业务建模中，数据科学家们常常陷入特征工程的苦战。传统方法如多项式特征、交互项生成虽然有效，但往往需要大量人工试错。当面对数百个原始特征时&#…
智能家居第一步：用ESP8266做个Wi-Fi中继器/信号放大器（STA+AP模式详解）
智能家居DIY实战：用ESP8266打造低成本Wi-Fi信号扩展器家里总有那么几个角落，Wi-Fi信号时断时续——卧室飘窗想刷剧总卡顿，卫生间智能设备频繁掉线，阳台上的监控摄像头经常离线。市面上的Wi-Fi信号放大器动辄几百元，而今…
Stata实战：用2012-2018年40城房价数据，一步步教你搞定双向固定效应模型（附完整代码）
Stata面板数据分析实战：从房价数据清洗到双向固定效应模型构建引言面板数据分析在经济学和金融学研究中扮演着重要角色，它能够同时捕捉时间和个体两个维度的信息。对于正在撰写毕业论文或开展实证研究的本科生、研究生而言，掌握Stata中的面板…
2026年短途出差周末游登机箱推荐：高颜值轻便能装下2-3天衣物的爱可乐20寸登机箱
一、短途出行选登机箱，这些痛点你一定遇到过不知道你有没有过这样的经历：2026年计划了一次周末周边游，拎着旧登机箱赶地铁，没走两步胳膊就酸得抬不起来；深夜出差回酒店，箱子轮子哐当作响，整个走…
给STC8H无刷电机驱动项目加个‘方向盘’：EC11编码器调速与OLED显示功能实战
给STC8H无刷电机驱动项目加个‘方向盘’：EC11编码器调速与OLED显示功能实战在嵌入式开发领域，无刷电机控制一直是兼具挑战性和实用性的热门方向。传统的电位器调速方案虽然简单直接，但在精确控制和状态反馈上存在明显短板。想象一下ÿ…
LLM 多轮对话状态管理：从无状态 API 到有状态会话
LLM 多轮对话状态管理：从无状态 API 到有状态会话一、大模型 API 的无状态困境：上下文窗口的有限性与会话连续性 大模型的 Chat API 本质上是无状态的——每次请求都需要发送完整的对话历史。这种设计简化了服务端实现，但给后端架构带来了两个…
Spring Boot 3 与 GraalVM 原生镜像：从 JIT 到 AOT 的启动革命
Spring Boot 3 与 GraalVM 原生镜像：从 JIT 到 AOT 的启动革命 一、JVM 冷启动的性能困境：云原生环境下的启动延迟 Java 应用在云原生环境中面临的核心挑战是冷启动延迟。一个典型的 Spring Boot 2 应用，启动时间约 3-8 秒，内存占…
Go 错误处理与错误链：从哨兵错误到自定义错误类型的工程实践
Go 错误处理与错误链：从哨兵错误到自定义错误类型的工程实践一、Go 错误处理的工程困境：哨兵值与信息丢失 Go 的错误处理采用显式返回值模式，if err ! nil 是每个 Go 开发者最熟悉的代码片段。然而，当项目规模增长后，简…
LED驱动技术全解析：从核心架构到实战选型与避坑指南
1. 从一颗灯珠到千亿市场：LED驱动的技术演进与商业逻辑十几年前，当我第一次从料盘上拿起一颗0603封装的白色LED时，它微弱的光晕和高达几块钱的单颗成本，让我很难想象今天它几乎照亮了我们生活的每一个角落。从手机屏幕的一抹背光&…
索引堆及其优化
索引堆及其优化 引言 索引堆是一种数据结构，广泛应用于计算机科学和软件工程领域。它主要用于解决优先队列问题，如最小堆和最大堆。本文将详细介绍索引堆的概念、实现方法以及优化策略。 索引堆的定义 索引堆是一种基于堆数据结构的索引机制。它通过维护一个堆来存储数据…
从零到日增237精准粉丝，我靠CSDN这张AI卡片爆了！手把手复刻全流程，含配置避坑清单
更多请点击： https://intelliparadigm.com 第一章：CSDN AI 数字营销的官方引流卡片是什么功能？ CSDN AI 数字营销平台推出的「官方引流卡片」，是一种面向技术创作者的轻量级、可嵌入式内容分发组件，专为提升博文、教程…
Zotero Duplicates Merger：5步彻底清理文献库重复条目
Zotero Duplicates Merger：5步彻底清理文献库重复条目 【免费下载链接】ZoteroDuplicatesMerger A zotero plugin to automatically merge duplicate items 项目地址: https://gitcode.com/gh_mirrors/zo/ZoteroDuplicatesMerger 还在为文献库中堆积如山的重…
利用随机有限集理论对蜂群的ILQR和MPC控制研究附Matlab代码
✅作者简介：热爱科研的Matlab仿真开发者，擅长数据处理、建模仿真、程序设计、完整代码获取、论文复现及科研仿真。🍎 往期回顾关注个人主页：Matlab科研工作室🍊个人信条：格物致知,完整Matlab代码及仿真咨询…
为什么你的Gemini邮件CTE低于行业均值2.8倍？：从Prompt架构到发送时序的深度归因
更多请点击： https://intelliparadigm.com 第一章：为什么你的Gemini邮件CTE低于行业均值2.8倍？：从Prompt架构到发送时序的深度归因 Gemini邮件的客户转化效率（CTE）显著偏低，根本原因常被误判为…