delphi fmx zxing原生不使用外部库二维码，条码扫描速度很快

开源地址：GitHub - Spelt/ZXing.Delphi at QRCode

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

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

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

delphi dx 10.2.3 android测试自带demo二维码扫描， 非常快

//  FScanManager := TScanManager.Create(TBarcodeFormat.CODE_128, nil);
  FScanManager := TScanManager.Create(TBarcodeFormat.QR_CODE, nil);

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

返回TReadResult 结果

2，如果扫描出结果，同步线程输出到memo1

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

procedure TMainForm.CameraComponent1SampleBufferReady(Sender: TObject;
  const ATime: TMediaTime);
begin
  TThread.Synchronize(TThread.CurrentThread, GetImage);
end;
 
procedure TMainForm.GetImage;
var
  scanBitmap: TBitmap;
  ReadResult: TReadResult;
 
begin
 
  CameraComponent1.SampleBufferToBitmap(imgCamera.Bitmap, True);
 
  if (FScanInProgress) then
  begin
    Exit;
  end;
 
  {
    inc(frameTake);
    if (frameTake mod 4 <> 0) then
    begin
    Exit;
    end;
  }
 
  scanBitmap := TBitmap.Create();
  scanBitmap.Assign(imgCamera.Bitmap);
 
  TTask.Run(
    procedure
    begin
 
      try
        FScanInProgress := True;
 
        scanBitmap.Assign(imgCamera.Bitmap);
 
        ReadResult := FScanManager.Scan(scanBitmap);
        FScanInProgress := False;
      except
        on E: Exception do
        begin
          FScanInProgress := False;
          TThread.Synchronize(nil,
            procedure
            begin
              // lblScanStatus.Text := E.Message;
              // lblScanResults.Text := '';
            end);
 
          if (scanBitmap <> nil) then
          begin
            scanBitmap.Free;
          end;
 
          Exit;
 
        end;
 
      end;
 
      TThread.Synchronize(nil,
        procedure
        begin
 
          if (length(lblScanStatus.Text) > 10) then
          begin
            lblScanStatus.Text := '*';
          end;
 
          lblScanStatus.Text := lblScanStatus.Text + '*';
 
          if (ReadResult <> nil) then
          begin
            memo1.Lines.Insert(0,ReadResult.Text);
          end;
 
          if (scanBitmap <> nil) then
          begin
            scanBitmap.Free;
          end;
 
        end);
    end);
 
end;