轻松开发二维码程序

点赞:3410 浏览:10926 近期更新时间:2024-03-10 作者:网友分享原创网站原创

摘 要 :随着条形码的普及,一维条形码的弊端越来越明显,二维码容量大的特点也逐步显现出来,在各个行业使用也越来越广泛.由于最近开发一套关于医院的资产管理系统,需要引入二维码技术来识别和标记每台设备,直接引入二维码算法使开发成本大大增加,需要一个更为简单的办法来解决这个问题,为此作者收集了大量资料,让开发更为简单,现将开发方法介绍给大家.

关 键 词 : 二维码; QRCODE; 软件开发;Delphi;条形码

中图分类号:TP311.52 文献标识码:A 文章编号:1009-3044(2014)09-2059-02

随着条形码的普及,一维条形码的弊端越来越明细,二维容量大的特点也逐步显现出来,在各个行业使用也越来越广泛.由于最近开发一套关于医院的资产管理系统,需要引入二维码技术来识别和标记每台设备,怎样开发呢,为此作者收集了大量资料,终于成功解决,现将开发方法介绍给大家.

1.开发过程

本文我们以DELPHI开发为例,其他语言工具的开发方法大同小异就不再叙述.首先注册二维码组件,把下载的QRmaker.ocx放到C:\WINDOWS\system32文件夹下面,然后运行注册 regsvr32 QRmaker.ocx ,打开delphi工具Compo―>import ActiveX Control等找到QRmaker OLE control Module选中并点击install(如图1所示)便将该控件成功添加到delphi中.

双击按钮btn1进入按钮点击事件填入以下代码

procedure TForm1.btn1Click(Sender: TObject);

begin

qrmkr1:等于TQRmaker.Create(nil);

qrmkr1.CellPitch:等于20;

// 以块中心为原点,设置块与块之间的距离.随着CellPitch的变化,CellAdjust也会发生相应的变化.

qrmkr1.InputData :等于Memo1.Text;

//设置要转码的字符串.

qrmkr1.Refresh;

//设置要转码的字符串.

Image1.Canvas.Draw(0,0,qrmkr1.Picture.Graphic);

//将生成的二维码转放到Image1对象中用于存储打印等.

qrmkr1.Free;

end;

运行该工程,便可看到如图4效果.

一个简单的二维码图片便生成了.

2.结论

本文由于是利用了QRmaker的控件来生成二维码,本身是没有太多技术含量,针对一般的二维码生成和解码都比较简单,但是就二维码本身还是包含了大量的知识,在日本网站可以找到开源的二维码算法,有兴趣的朋友可以和我一起研究分析其算法,这样可以实现更多的更深层次的功能.