Delphi二维码中文支持、分组、批量打印经验小结

一直也没接触到什么复杂的报表，都是一些简单的报表，在DelphI下使用QuickReport一般也就能满足需要了，由于公司现在需求的变化，对条码扫描提出了新的要求，主要是扫码要包含更多地内容，以前的一维码显然不能完全满足，再说二维码也是一种趋势，故而需要解决二维码的问题，网上搜了一下，方式有多种多样，我花了3天时间找了很多，也尝试了很多。也经历了很多失败！总结一下在Delphi下实现二维码主要有三种方法：

1、使用PtImageRW.dll和PtQREncode.dll动态连接库，使用uQRCode生成二维码图像，如此就可以在报表中予以打印了，具体如何用uQRCode实现绘制二维码，本人水平太低，无法参透；结合QuikReport就可以实现打印二维码了，但此种有一个问题就是不支持中文，如source1（整合到FastReport中也无法实现对中文的支持）；

2、还有一种就是生成控件,利用ZINT制作的控件，如source2；此种有个问题就是无法在报表中使用（也许是我不会用），只可在窗体上显示，当然理论上说能在窗体上使用就完全可以用于打印报表了，可问题时我不会，哎，还是技术水平太低。还有一种叫Han-sof 2D Barcodes的控件，我可以安装，但却无法使用，无法生成二维码到图片。可上网搜索一下下载这个控件安装一下，有搞定的与我共享一下。

3、用ZINT整合到FastReport中，也是下面我要叙述的形式:source3。完全可以满足我的需求。

 

例子实现了对采购入库数据的分组批量打印，加入了二维码的使用，当然实际工作当中制作入库单基本上用不到批量打印的，一般都是一单一打，但在我这里没办法，必须设计这样的功能，历史遗留问题吧，这里也牢骚一下吧！

如做一些延伸，很多的打印都和这个有很多的类似之处，我说的是并不太复杂的应用，至于什么更复杂得我想FS也能搞的定，这里做一个总结是希望对和我一样水平的人提供一些帮助吧，也许现在很多人根本不用Delphi了，权且当作自己的一个笔记吧！

入库单样式如下：