DelphiFMXZXing原生实现高效二维码与条码扫描，无需依赖外部库

开源地址&＃xff1a;GitHub - Spelt/ZXing.Delphi at QRCode

ZXing.Delphi 是一个原生 Object Pascal 库&＃xff0c;它基于众所周知的开源条形码库&＃xff1a;ZXing&＃xff08;斑马线&＃xff09;。 该端口基于 ZXing 的 .Net Redth 端口和 Java 端口。 这是我认为的第一个原生 FireMonkey 条形码库。 它针对所有 FireMonkey 移动平台。

使用这个库&＃xff0c;您可以在不使用外部库链接的情况下以本机速度进行扫描&＃xff0c;并避免兼容性问题和依赖性。 它很快。

它与 Delphi XE7、XE8、10 Seattle 和 AppMethod 兼容&＃xff0c;并通过 IOS 8.x、9.x 32/64bit、Windows 32/64 和 OSX 测试。 尚未在 Android 上对其进行测试&＃xff0c;但这也应该可以。
ZXing.Delphi 的目标是在您的 FireMonkey 或本机 Windows 应用程序中构建轻松、轻松、快速的条码扫描。 只需包含源文件或创建一个 .bpl 并将其添加到您现有的项目中&＃xff0c;然后在您的项目中构建 ZXing.Delphi 源。

delphi dx 10.2.3 android测试自带demo二维码扫描&＃xff0c; 非常快

//  FScanManager :&＃61; TScanManager.Create(TBarcodeFormat.CODE_128, nil);
  FScanManager :&＃61; TScanManager.Create(TBarcodeFormat.QR_CODE, nil);

1&＃xff0c;摄像头打开后&＃xff0c;同步线程获取实时图像bitmap&＃xff0c;然后zingx扫描图像中的二维码&＃xff0c;

返回TReadResult 结果

2&＃xff0c;如果扫描出结果&＃xff0c;同步线程输出到memo1

3&＃xff0c;这里监听了app的一些消息&＃xff0c;当到后台运行时摄像头关闭

procedure TMainForm.CameraComponent1SampleBufferReady(Sender: TObject;const ATime: TMediaTime);
beginTThread.Synchronize(TThread.CurrentThread, GetImage);
end;procedure TMainForm.GetImage;
varscanBitmap: TBitmap;ReadResult: TReadResult;beginCameraComponent1.SampleBufferToBitmap(imgCamera.Bitmap, True);if (FScanInProgress) thenbeginExit;end;{inc(frameTake);if (frameTake mod 4 <> 0) thenbeginExit;end;}scanBitmap :&＃61; TBitmap.Create();scanBitmap.Assign(imgCamera.Bitmap);TTask.Run(procedurebegintryFScanInProgress :&＃61; True;scanBitmap.Assign(imgCamera.Bitmap);ReadResult :&＃61; FScanManager.Scan(scanBitmap);FScanInProgress :&＃61; False;excepton E: Exception dobeginFScanInProgress :&＃61; False;TThread.Synchronize(nil,procedurebegin// lblScanStatus.Text :&＃61; E.Message;// lblScanResults.Text :&＃61; &＃39;&＃39;;end);if (scanBitmap <> nil) thenbeginscanBitmap.Free;end;Exit;end;end;TThread.Synchronize(nil,procedurebeginif (length(lblScanStatus.Text) > 10) thenbeginlblScanStatus.Text :&＃61; &＃39;*&＃39;;end;lblScanStatus.Text :&＃61; lblScanStatus.Text &＃43; &＃39;*&＃39;;if (ReadResult <> nil) thenbeginmemo1.Lines.Insert(0,ReadResult.Text);end;if (scanBitmap <> nil) thenbeginscanBitmap.Free;end;end);end);end;