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;
 

相关阅读 >>

Delphi 双击dbgrid然后得到字段里面的内容

Delphi写游戏外挂

Delphi 由类名获取父类

Delphi怎样读取excel表的所有字段名

Delphi not 与整数

Delphi 窗口全屏

Delphi tstringlist stringlist的特殊用法

Delphi 蓝牙连接打印机演示

Delphi unigui 获取当前ip

Delphi splitstring 字符串分割成字符串组

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 扫二维码并识别