delphi 扫二维码并识别
扫二维码
使用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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.10994982719421 seconds