二维码打印

1.      二维码简介

二维码（2-dimensional bar code），又称二维条码，它是用特定的几何图形按一定规律在平面（二维方向）上分布的黑白相间的图形，是所有信息数据的一把钥匙。在现代商业活动中，可实现的应用十分广泛，如：产品防伪/溯源、广告推送、网站链接、数据下载、商品交易、定位/导航、电子凭证、车辆管理等等。根据编码规则的不同，二维码主要有Data Matrix,MaxiCode, Aztec,QR Code, Vericode,PDF417,Ultracode, Code 49, Code 16K, Han Xin Code 等，现在使用最多的的是QR Code。

2.QR CODE码

QR Code码是由日本Denso公司于1994年9月研制的一种矩阵二维码符号，目的是用来追踪汽车零部件（从QRCode的诞生原因可以看出它跟ERP颇有渊源）。

2.1QRCode优点

快速：

在用CCD识读QR Code码时，整个QR Code码符号中信息的读取是通过QR Code码符号的位置探测图形，用硬件来实现，因此，信息识读过程所需时间很短，它具有超高速识读特点。

全方位：

QR Code码具有全方位（360°）识读特点,这是QR Code码优于行排式二维条码如四一七条码的另一主要特点,由于四一七条码是将一维条码符号在行排高度上的截短来实现的,因此,它很难实现全方位识读,其识读方位角仅为±10°。

信息容量大：

QRCode最大的数据容量是（冗余级别为L时）：

数字数据：7,089个字符

字母数据: 4,296个字符

8位字节数据: 2,953个字符

中国/日本汉字数据：1,817个字符

容错率高：

根据不同的冗余级别，QRCode具有一定的容错率，二维码被污损的面积在一定的范围内时还可以被读取出来，二维码有4种冗余级别，分别具有不同的纠错能力：

L级：约可纠错7%的数据码字

M级：约可纠错15%的数据码字

Q级：约可纠错25%的数据码字

        H级：约可纠错30%的数据码字

2.2QRCode原理

QRCode原理就是把信息以01编码打出来，深色模块表示二进制"1"，浅色模块表示二进制"0"，以下是QRCode的具体的编码信息分布图

     

      

    

位置探测图形、位置探测图形分隔符：

用于对二维码的定位，对每个QR码来说，位置都是固定存在的，只是大小规格会有所差异；这些黑白间隔的矩形块很容易进行图像处理的检测。

校正图形：

根据尺寸的不同，矫正图形的个数也不同。矫正图形主要用于QR码形状的矫正，尤其是当QR码印刷在不平坦的面上，或者拍照时候发生畸变等。

定位图形：

这些小的黑白相间的格子就好像坐标轴，在二维码上定义了网格。

格式信息：

表示该二维码的纠错级别，分为L、M、Q、H；

数据区域：

使用黑白的二进制网格编码内容。8个格子可以编码一个字节。

版本信息：

即二维码的规格，QR码符号共有40种规格的矩阵（一般为黑白色），从21x21（版本1），到177x177（版本40），每一版本符号比前一版本 每边增加4个模块。

纠错码字：

用于修正二维码损坏带来的错误。

 

2.3简要编码过程

1、   数据分析：确定编码的字符类型，按相应的字符集转换成符号字符； 选择纠错等级，在规格一定的条件下，纠错等级越高其真实数据的容量越小。

2、   数据编码：将数据字符转换为位流，每8位一个码字，整体构成一个数据的码字序列。其实知道这个数据码字序列就知道了二维码的数据内容。

3、   纠错编码：按需要将上面的码字序列分块，并根据纠错等级和分块的码字，产生纠错码字，并把纠错码字加入到数据码字序列后面，成为一个新的序列。

在二维码规格和纠错等级确定的情况下，其实它所能容纳的码字总数和纠错码字数也就确定了，比如：版本10，纠错等级时H时，总共能容纳346个码字，其中224个纠错码字。 就是说二维码区域中大约1/3的码字时冗余的。对于这224个纠错码字，它能够纠正112个替代错误（如黑白颠倒）或者224个拒读错误（无法读到或者无法译码）， 这样纠错容量为：112/346=32.4% 

4、   构造最终数据信息：在规格确定的条件下，将上面产生的序列按次序放入分块中 按规定把数据分块，然后对每一块进行计算，得出相应的纠错码字区块，把纠错码字区块 按顺序构成一个序列，添加到原先的数据码字序列后面。 如：D1, D12, D23, D35, D2, D13, D24, D36, ... D11, D22, D33, D45, D34, D46, E1, E23,E45, E67, E2, E24, E46, E68，...

5、   构造矩阵：将探测图形、分隔符、定位图形、校正图形和码字模块放入矩阵中。

把上面的完整序列填充到相应规格的二维码矩阵的区域中

6、   掩摸：将掩摸图形用于符号的编码区域，使得二维码图形中的深色和浅色（黑色和白色）区域能够比率最优的分布。

3.框架安装

1、上传qrcode1.5.jar至数据库服务器/home/oraprod/(路径随意)

2、telnet用oracle用户登录数据库服务器(oraprod)

3、进入qrcode1.5.jar所在目录：cd /home/oraprod

4、执行以下命令：loadjava -u apps/cpnds2014apps@PROD  -r -v –f qrcode1.5.jar

 

 

4.二维码开发

4.1JSP

         可直接编译一下代码，作用主要是调用encode2方法，通过jsp将要显示的二维码内容contents转换成矩阵二维码符号，即qrcode码。 

create or replace and compile java source named APPS.cux_qrcode as
import java.awt.image.BufferedImage;  
import java.io.File;  
import java.io.IOException;  
import java.util.Hashtable;  
import javax.imageio.ImageIO;  
import com.google.zxing.BarcodeFormat;  
import com.google.zxing.BinaryBitmap;  
import com.google.zxing.DecodeHintType;  
import com.google.zxing.LuminanceSource;  
import com.google.zxing.MultiFormatReader;  
import com.google.zxing.MultiFormatWriter;  
import com.google.zxing.CuxMultiFormatWriter;  
import com.google.zxing.Reader;  
import com.google.zxing.ReaderException;  
import com.google.zxing.Result;  
import com.google.zxing.client.j2se.BufferedImageLuminanceSource;  
import com.google.zxing.client.j2se.MatrixToImageWriter;
import com.google.zxing.common.ByteMatrix;  
import com.google.zxing.common.HybridBinarizer; 
import oracle.sql.* ;
import java.sql.*;
import java.io.OutputStream; 

public class QRCode
{

public static String encode(String content,String path,int width,int height)
  {
   try {  
            ByteMatrix byteMatrix; 
            byteMatrix= new MultiFormatWriter().encode(content, BarcodeFormat.QR_CODE, width, height); 
            File file = new File(path); 
            MatrixToImageWriter.writeToFile(byteMatrix, "png", file);  
            return "S";
        } catch (Exception e) {  
            e.printStackTrace();  
            return "-1@"+e.toString();
        }  
  }

  public static BLOB encode2(String contents,int width, int height,int padding, String imageFormat) {

        try {  
        
            ByteMatrix byteMatrix;  
            byteMatrix= new CuxMultiFormatWriter().encode(contents, BarcodeFormat.QR_CODE, width, height, padding);
           
            Connection conn = DriverManager.getConnection(
                    "jdbc:default:connection:") ;     
            BLOB outBlob = BLOB.createTemporary( conn, true , BLOB.DURATION_CALL) ;
            MatrixToImageWriter.writeToStream(byteMatrix, imageFormat, outBlob.getBinaryOutputStream());
            
            outBlob.getBinaryOutputStream().close();
            return outBlob ;
            
        } catch (Exception e) {  
            e.printStackTrace();  
            System.out.println(e.toString()); 
        }
    return null;  
    }     
    
  public static String decode(String imgPath){
   try {    
        Reader reader = new MultiFormatReader();    
        File file = new File(imgPath);  
        BufferedImage image;  
        try {  
            image = ImageIO.read(file);  
            if (image == null) {  
                System.out.println("Could not decode image");  
                return "-1@Could not decode image";
            }  
            LuminanceSource source = new BufferedImageLuminanceSource(image);  
            BinaryBitmap bitmap = new BinaryBitmap(new HybridBinarizer(  
                    source));  
            Result result;  
            Hashtable<DecodeHintType, String> hints = new Hashtable<DecodeHintType, String>();   
           
            result = new MultiFormatReader().decode(bitmap, hints);  
            String resultStr = result.getText();  
            return resultStr;
  
        } catch (IOException ioe) {  
            return "-1@" + ioe.toString();  
        } catch (ReaderException re) {  
            return "-1@" + re.toString();  
        }  
  
    } catch (Exception ex) {  
        ex.printStackTrace();  
        return "-1@" + ex.toString();
    }  
 }
}
/

 

4.2调用JSP方法，获取二维码

     可直接编译一下代码,无需更改。主要是获取到qrcode码到一个BLOB对象。并通过blob_to_clob方法，将BLOB转化成CLOB。

所用到的主要代码：

--包头
CREATE OR REPLACE PACKAGE cux_qrcode_util_pkg AS

  g_qrcode_file_path  VARCHAR2(400) := '/cfd/';
  g_return_error_code VARCHAR2(3) := '-1@';

  PROCEDURE decode(p_image_path IN VARCHAR2,
                   x_content    OUT VARCHAR2,
                   x_status     OUT VARCHAR2,
                   x_message    OUT VARCHAR2);

  PROCEDURE encode(p_contents       IN VARCHAR2,
                   p_file_name      IN VARCHAR2,
                   p_width          IN NUMBER,
                   p_height         IN NUMBER,
                   x_full_file_name OUT VARCHAR2,
                   x_status         OUT VARCHAR2,
                   x_message        OUT VARCHAR2);

  FUNCTION encode2(p_contents    IN VARCHAR2,
                   p_width       IN NUMBER,
                   p_height      IN NUMBER,
                   p_padding     IN NUMBER,
                   p_imageformat IN VARCHAR2) RETURN BLOB AS
  
    LANGUAGE JAVA NAME 'QRCode.encode2(java.lang.String,int,int,int,java.lang.String) return oracle.sql.BLOB';

  FUNCTION blob_to_clob(p_blob BLOB) RETURN CLOB;

END cux_qrcode_util_pkg;
--包体
CREATE OR REPLACE PACKAGE BODY cux_qrcode_util_pkg AS

  g_debug       VARCHAR2(1) := nvl(fnd_profile.value('AFLOG_ENABLED'), 'N');
  g_request_id  NUMBER := fnd_global.conc_request_id;
  g_success     VARCHAR(1) := 'S';
  g_warning     VARCHAR2(1) := 'W';
  g_error       VARCHAR2(1) := 'E';
  g_date_format VARCHAR2(30) := 'YYYYMMDDHH24MISS';

  FUNCTION encode(contents IN VARCHAR2,
                  filename IN VARCHAR2,
                  width    IN NUMBER,
                  height   IN NUMBER) RETURN VARCHAR2 AS
    LANGUAGE JAVA NAME 'QRCode.encode(java.lang.String,java.lang.String,int,int) return java.lang.String';

  FUNCTION decode(imgpath IN VARCHAR2) RETURN VARCHAR2 AS
    LANGUAGE JAVA NAME 'QRCode.decode(java.lang.String) return java.lang.String';

  
  PROCEDURE encode(p_contents       IN VARCHAR2,
                   p_file_name      IN VARCHAR2,
                   p_width          IN NUMBER,
                   p_height         IN NUMBER,
                   x_full_file_name OUT VARCHAR2,
                   x_status         OUT VARCHAR2,
                   x_message        OUT VARCHAR2) IS
    l_status         VARCHAR2(1);
    l_message        VARCHAR2(4000);
    l_full_file_name VARCHAR2(1000);
    l_sysdate        VARCHAR2(20) := to_char(SYSDATE, g_date_format);
  BEGIN
    x_status  := g_success;
    x_message := NULL;
  
    l_full_file_name := g_qrcode_file_path || p_file_name || l_sysdate ||
                        '.png';
    dbms_output.put_line('file_path: ' || l_full_file_name);
    l_message := substr(encode(p_contents,
                               l_full_file_name,
                               p_width,
                               p_height),
                        0,
                        4000);
  
    IF l_message = g_success THEN
      l_status  := g_success;
      l_message := NULL;
    ELSE
      l_status := g_error;
    END IF;
  
    x_status         := l_status;
    x_message        := l_message;
    x_full_file_name := l_full_file_name;
  EXCEPTION
    WHEN fnd_api.g_exc_unexpected_error THEN
      x_status  := g_error;
      x_message := 'encode Program Unexpected error.' || SQLERRM;
    WHEN fnd_api.g_exc_error THEN
      x_status  := g_warning;
      x_message := 'encode Program error.' || SQLERRM;
  END encode;

  PROCEDURE decode(p_image_path IN VARCHAR2,
                   x_content    OUT VARCHAR2,
                   x_status     OUT VARCHAR2,
                   x_message    OUT VARCHAR2) IS
    l_status  VARCHAR2(1);
    l_message VARCHAR2(4000);
    l_content VARCHAR2(32767);
  BEGIN
    x_status  := g_success;
    x_message := NULL;
  
    l_content := decode(p_image_path);
  
    IF instr(l_content, g_return_error_code) = 1 THEN
      l_status  := g_error;
      l_message := substr(l_content, length(g_return_error_code) + 1, 4000);
      l_content := NULL;
    ELSE
      l_status := g_success;
    END IF;
  
    x_content := l_content;
    x_status  := l_status;
    x_message := l_message;
  EXCEPTION
    WHEN fnd_api.g_exc_unexpected_error THEN
      x_status  := g_error;
      x_message := 'decode Program Unexpected error.' || SQLERRM;
    WHEN fnd_api.g_exc_error THEN
      x_status  := g_warning;
      x_message := 'decode Program error.' || SQLERRM;
    
  END decode;

  FUNCTION blob_to_clob(p_blob BLOB) RETURN CLOB IS
    l_result CLOB;
  BEGIN
    dbms_lob.createtemporary(lob_loc => l_result, cache => FALSE, dur => 0);
    wf_mail_util.encodeblob(p_blob, l_result);
    RETURN(l_result);
  END blob_to_clob;

END cux_qrcode_util_pkg;

 

4.3定义报表，RTF模板。XML

 

报表示例，代码如下：

CREATE OR REPLACE PACKAGE cux_fa_dual_pkg IS
  /*
    description:二维码打印测试
    TIME：2015/08/10     wang.chen
  */
  PROCEDURE main(errbuf OUT VARCHAR2, retcode OUT VARCHAR2);

END cux_fa_dual_pkg;

CREATE OR REPLACE PACKAGE BODY cux_fa_dual_pkg IS

  PROCEDURE output(p_text IN VARCHAR2) IS
  BEGIN
    fnd_file.put_line(fnd_file.output, p_text);
    dbms_output.put_line(p_text);
  END output;


  PROCEDURE process_request(x_return_status OUT VARCHAR2, x_return_msg OUT VARCHAR) IS
  
    CURSOR cur_dual IS
      SELECT 'www.hand-china.com' company,
             '启用时间: ' || substr(to_char(SYSDATE, 'YYYY-MM'), 1, 4) || '年' ||
             substr(to_char(SYSDATE, 'YYYY-MM'), 6, 2) || '月' start_date
        FROM dual
       WHERE 1 = 1;
  
    l_encoding_data VARCHAR2(32767);
    l_blob          BLOB;
    l_clob          CLOB;
    l_width         NUMBER := 0;
  
  BEGIN
  
    -- l_width := 100;
    output('<?xml version="1.0" encoding="UTF-8"?>');
    output('<DUALS>');
  
    FOR rec_dual IN cur_dual LOOP
      --l_encoding_data := NULL;
      l_encoding_data := l_encoding_data || rec_dual.company || chr(10) || chr(13);
    
      l_encoding_data := l_encoding_data || rec_dual.start_date;
      -- Dbms_Output.put_line(l_encoding_data);
      IF length(l_encoding_data) > 32 THEN
        l_width := 114;
      ELSIF length(l_encoding_data) < 25 THEN
        l_width := 100;
      ELSE
        l_width := 110;
      END IF;
    
      l_clob := NULL;
      l_blob := cux_qrcode_util_pkg.encode2(p_contents    => l_encoding_data,
                                            p_width       => l_width,
                                            p_height      => l_width,
                                            p_padding     => 0,
                                            p_imageformat => 'png');
      l_clob := cux_qrcode_util_pkg.blob_to_clob(l_blob);
    
      output('<DUAL>');
      output('<COMPANY>' || rec_dual.company || '</COMPANY>');
      output('<START_DATE>' || rec_dual.start_date || '</START_DATE>');
      output('<QRCODE>' || l_clob || '</QRCODE>');
      --INSERT INTO cux_test_clob (clob_txt) VALUES (l_clob);
      output('</DUAL>');
    
    END LOOP;
  
    output('</DUALS>');
  
  EXCEPTION
    WHEN OTHERS THEN
      x_return_status := fnd_api.g_ret_sts_error;
      x_return_msg    := substr(SQLERRM, 1, 1000);
  END process_request;

  PROCEDURE main(errbuf OUT VARCHAR2, retcode OUT VARCHAR2) IS
    l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
    l_return_msg    VARCHAR2(4000) := '';
  BEGIN
    errbuf  := '';
    retcode := 0;
  
    process_request(x_return_status => l_return_status, x_return_msg => l_return_msg);
  
  EXCEPTION
    WHEN fnd_api.g_exc_error THEN
      retcode := 1;
      errbuf  := REPLACE(l_return_msg, chr(0), ' ');
    WHEN fnd_api.g_exc_unexpected_error THEN
      retcode := 2;
      errbuf  := REPLACE(l_return_msg, chr(0), ' ');
    WHEN OTHERS THEN
      retcode := 2;
      errbuf  := SQLERRM;
  END main;

END cux_fa_dual_pkg;

 

获取定义RTF模板时需加载的XML：

<?xml version="1.0" encoding="GBK"?>
<DUALS>
<DUAL>
<COMPANY>www.hand-china.com</COMPANY>
<START_DATE>启用时间: 2015年08月</START_DATE>
<QRCODE>iVBORw0KGgoAAAANSUhEUgAAAHIAAAByCAYAAACP3YV9AAADA0lEQVR42u2dQW7k
MAwE/f9P794DBLHIalkUqoEcBshkbJXBkC1S8/xTV+hxCQSpBKkEqQQpSCVIJUgl
SEEqQSpBKkEqQQpSXQjyeZ7Sz8/3//b6t8/76zr+uj76/qj1EKQgGZDV368uyNsF
f/sA0NedWj9BCrJ3g29D6WqoeRuCq2Cr4LrrIUhBfguyGuJWk45T/nUIUpCzQFYB
VRcodX2CFORd5Qd9o29DNWVAWEcK8k6LbuprvVZBfgNyV7K0qwzoGgefraMgBYlY
Y1VznC4j0lZc15IUpCB76XsVTHdbi7bsuuVS2ggQpCBrBfOukEaHYMryG9vqIchh
IGnrqhrKUoU51WJyfGgV5CUg6XKj+wBU2ym7yU/XiBCkINnQWr3QapnQNQyoB4P+
XEEKco/pnU6GKAuMGilYLccEKchM+dFdoK55TpUNdBIVb1kRpCBbyUzVDKeTr9To
QfdBFaQgM+VHuvBOjQqkzXFBCnJvaKU3hruhMDVsdEqzliAFWQsp1dCYLrRpM3t8
85Ugh4OshhZqG6hbBtGbAKmySpCC7BXeVHKSLn9WP59uHhOkILOhlW796JrkdHJW
NSzGmOaCHApytWBPGw1UWbB6P1+P5QlSkGsLnjabq0CpVpRukiVIQe6x6Og0nLa4
0gcgbdtWE6QgkRvtlgWroZIeQaCsO0EKMmvRUaY73QCcGljt/j1BCvKM8qO7wFTI
pg6hSCdnghQka03Rlhy90ZwyCsYmO4IcCpK24KhkIfUFLV+NQghSkNk0PZ1M7Bqo
pd8vSEHuDa3V8oE28amDlnaHUkEKMrT9Apna6Y1dqt3z2NAqyEtA7v56BCpE0yPz
q8nVmEMFBTkUZMpk71pqVaBU8jK201yQl4CkmrDopq7UEdVUWSJIQZ4Nkgq53W0l
usy5totOkJfOR1LJUup4T2q0/trQKshLyo+qFZcajKWP/RyX7AhyOEj6i1JoEHSD
MQVckIJkQaozJEhBKkEqQSpBClIJUglSCVKQSpBKkEqQSpCCVAfqPyGDaYroYl8y
AAAAAElFTkSuQmCC</QRCODE>
</DUAL>
</DUALS>

 

通过TEST  main，得到输出的xml

---解析出来的encoding为UTF-8，在定义rtf模板加载xml时，需改为GBK，否则会报错

--通过output(p_text IN VARCHAR2)输出得到的XML，可能存在的一种情况：当需要输出的二维码数据太长，超过VARCHAR2的最大长度时，QRCODE将获取不到全部内容，内容被截断，导致最后会得不到二维码png，可使用lob对象来获取输出。

 

RTF模板：

 

QRCODE：<fo:instream-foreign-object content-type="image/png"><xsl:value-of  select="QRCODE"/></fo:instream-foreign-object>

作用：固定形式，无需更改，大概是将QRCODE输出类型设置成图片png

 

在EBS系统中上传RTF模板

Xml Publish Administrator 责任à主页à 数据定义

创建数据定义

 

创建模板

 

 

 

4.4跑请求，打印二维码

                （定义请求略）

                 结果：