使用VB.NET在Crystal Report中生成QR代码

时间:2017-04-14 11:08:35

标签: vb.net crystal-reports

有没有办法从VB.NET生成QR码到Crystal Reports?

我试过这个教程: http://www.keepautomation.com/vbnet_barcode/qrcode.html

但总是得到错误:“客户端不持有所需的权限。”

是否有另一个插件或者从VB.NET生成QR码到Cystal报告中的什么?

1 个答案:

答案 0 :(得分:1)

我无法在水晶报表或VB中找到生成QR码的原生方式,但我确实找到了将图像链接到生成QR码的Google API的方法。

使用:

  1. 在报告中插入图形。
  2. 右键单击图像,然后单击"格式化图形"。
  3. 点击"图片标签"。
  4. 单击图形位置旁边的公式编辑按钮。
  5. 添加此代码或引用包含此代码的公式。
  6. 根据需要编辑变量。

    //--------------------------
    // QR Code Gererator
    //
    // Uses Google's Chart API.
    //
    // To Use:
    // Insert a graphic to the
    // report. Right click
    // on it and click "Format
    // graphic". Click on the
    // "Picture Tab". Click
    // on the formula edit 
    // button next to graphic
    // location. Add this code
    // or reference a formula
    // with this code in it.
    //
    // You can update the width
    // height and encoding below.
    // 
    // For more info see 
    // https://developers.google.com/chart/infographics/docs/qr_codes?csw=1
    //
    // Feel free to redistribute.
    // 
    // @Author Daniel Havens
    // @Created 2018-02-01
    stringVar QRFormat;
    stringVar QRwidth;
    stringVar QRheight;
    stringVar QRText;
    stringVar QRURI;
    
    // Encoding format see google's api
    QRFormat := 'UTF-8';
    
    // Width in Pixels
    QRwidth := '325';
    
    // Height in Pixels
    QRheight := '325';
    
    // Text for the QR Code.
    //
    // 
    QRText := 'http://stackoverflow.com/';
    
    // To Do:
    // StringReplace for URI
    
    // Combine the result 
    // 
    // Base URI must be http://
    // or Crystal cannot fetch
    // the image
    QRURI := 'http://chart.googleapis.com/chart?cht=qr&choe='+QRFormat+'&chs='+QRWidth+'x'+QRHeight+'&chl='+QRText;
    
    QRURI;