全Delphi代码实现安卓扫码程序

最新推荐文章于 2023-08-02 21:12:29 发布

tanqth

最新推荐文章于 2023-08-02 21:12:29 发布

阅读量1.5w

点赞数 1

分类专栏：安卓文章标签： Delphi 安卓扫码快速扫码静态库二维码

本文链接：https://blog.csdn.net/tanqth/article/details/107643199

版权

安卓专栏收录该内容

28 篇文章 2 订阅

订阅专栏

前言

手机扫码在APP里的需求较高的，通常Delphi实现扫码主要有两种方式：

方式一、

通过调用JAR包功能实现，该方法目前使用率颇高，在结合Delphi实现扫码功能的时候配置过程繁多，需要发布较多的资源文件，扫码界面不能定制。
（在查看JAR包里内容时，发现很多与扫码无关的内容，包括通讯录的访问、电子邮件、短信、WIFI、网络等，如下图）
在这里插入图片描述
这些jar包里的我理解与扫码无关的类文件究竟做什么的 我没有深入去研究 ，也可能是开发者有其他需求方面的考虑，对我来说这些文件（或功能）冗余。

方式二、全部使用Delphi实现扫码

这种方式下不需要调用Jar包，开发简单方便，适合于熟悉Dephi的朋友，不用去了解Jar包。这种方法使用不多的原因是系统自带相机组件在显示扫码画面时的卡顿问题。好在，卡顿的问题可以得到解决。所以，也有很多的朋友在使用。

通过一些尝试，我将主要用于扫码的功能做了封装，使用起来就更为方便。（ 演示代码请至：https://download.csdn.net/download/tanqth/12668686下载 ）

Delphi实现扫码说明

下载后的压缩包里 Source\Delphi\Lib 目录中包括了两种不同的静态库文件，均可使用。静态库文件使用 D10.3.2编译生成，暂未在其他开发版本中测试过，理论上其他版本也应该可以使用。

代码说明

代码简单到整个单元不足100行（包括文件引用与窗体控件的定义），实际使用仅需要三个函数一个回调用过程：
在这里插入图片描述
在代码中，我们主要使用到三个函数(初始化、扫码功能、结束清理)，一个回调处理过程（处理扫码取得的信息）：

//调用扫码功能的函数，参数为回调过程地址
function ScanOpen(vCallback: Pointer): Integer; cdecl;
  external LIB_FAST_UTILS name 'ScanOpen';
//调用静态库内的初始化过程 其中第二个参数是扫码完成后提示音文件（你可以使用自己喜欢的提示音）
procedure Init(vApp: TApplication; vBeep: string); cdecl;
  external LIB_FAST_UTILS name 'Init';

procedure Finit; cdecl; external LIB_FAST_UTILS name 'Finit';

Procedure OutText(Const AText: String); //扫码后的回调过程

演示程序里回调过程仅将取得的扫码结果用于显示出来。