扫二维码

扫二维码

使用TTKRBarCodeScanner控件。在手机端需要安装GOOGLE BARCODE SCANNER插件程序。

该控件可以不安装，引用单元，就可以直接使用。

该控件支持iOS 和 Android扫二维码，它支持跨平台。

uses FMX.TKRBarCodeScanner

声明变量

scanner: TTKRBarCodeScanner;

创建对象，关联事件

scanner := TTKRBarCodeScanner.Create(Self);
scanner.OnScanResult := ScanResult;

procedure Tfbarcode.ScanResult(Sender: TObject; AResult: string);
begin
// AResult: 二维码的文字内容
Edit1.Text := AResult;
end;

扫二维码

scanner.Scan;