求QRcode for delphi7 的源码 中文的

急需QRcode for delphi7 的源码，要求支持中文的，编码控件
如果可以发邮件给我最好，确认可以使用的，立马给分！

解决方案 »

  1.   

    ，怎么只有生成，没有解码，急需delphi QRcode解码
      

  2.   

    1.引用google.zxing,下载ZintInterface.pas
      

  3.   


    请问ZintInterface.pas在哪里下载，没看到zxing里有delphi的接口
      

  4.   

    可以用c++封装一个DLL。
      

  5.   


    zxing就有c++代码，可是不懂c++,能帮忙封装一个么？
      

  6.   

    BarCodeStudio
      

  7.   

    貌似，DEV 里面有也 QRcode ？ 
      

  8.   

    http://download.csdn.net/detail/a864000/5951221
    这个测试了一下，好用。
      

  9.   

    to:babydog01 
    这个有局限性的只能在FastReport中使用；
      

  10.   

    引用google的
    unit getbarcode;interfaceuses
    Windows, Messages, SysUtils, Variants,  Graphics, Controls,
      Dialogs, ExtCtrls, StdCtrls, Mask, ExtDlgs,
     Classes;type
    TQrImage_ErrCorrLevel=(L,M,Q,H);const
    UrlGoogleQrCode='http://chart.apis.google.com/chart?chs=%dx%d&cht=qr&chld=%s&chl=%s';
    QrImgCorrStr   : array [TQrImage_ErrCorrLevel] of string=('L','M','Q','H');procedure GetQrCode(Width,Height:Word;Correction_Level:TQrImage_ErrCorrLevel;const Data:string;StreamImage : TMemoryStream);implementation
    uses
     PngImage,
     HTTPApp,
     WinInet;
    procedure WinInet_HttpGet(const Url: string;Stream:TStream);
    const
    BuffSize = 1024*1024;
    var
      hInter   : HINTERNET;
      UrlHandle: HINTERNET;
      BytesRead: DWORD;
      Buffer   : Pointer;
    begin
      hInter := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
      if Assigned(hInter) then
      begin
        Stream.Seek(0,0);
        GetMem(Buffer,BuffSize);
        try
            UrlHandle := InternetOpenUrl(hInter, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
            if Assigned(UrlHandle) then
            begin
              repeat
                InternetReadFile(UrlHandle, Buffer, BuffSize, BytesRead);
                if BytesRead>0 then
                 Stream.WriteBuffer(Buffer^,BytesRead);
              until BytesRead = 0;
              InternetCloseHandle(UrlHandle);
            end;
        finally
          FreeMem(Buffer);
        end;
        InternetCloseHandle(hInter);
      end
    end;procedure GetQrCode(Width,Height:Word;Correction_Level:TQrImage_ErrCorrLevel;const Data:string;StreamImage : TMemoryStream);
    Var
     EncodedURL  : string;
    begin
      EncodedURL:=Format(UrlGoogleQrCode,[Width,Height,QrImgCorrStr[Correction_Level],HTTPEncode(Data)]);
      WinInet_HttpGet(EncodedURL,StreamImage);
    end;end.
      

  11.   

    代码还是这个，自己建了安装包，到我的资源里下吧。1.拷贝zint.dll到system32目录下
    2.分别执行D7目录下*.dpk文件,顺序为
       zintbarcode//支持控件包
       dclzintbarcode//页面控件
       frxzintbarcode//报表控件
       
    3.程序需手工引用ufrxZintBarcode
      

  12.   

    代码还是这个，自己建了安装包，到我的资源里下吧。1.拷贝zint.dll到system32目录下
    2.分别执行D7目录下*.dpk文件,顺序为
       zintbarcode//支持控件包
       dclzintbarcode//页面控件
       frxzintbarcode//报表控件
       
    3.程序需手工引用ufrxZintBarcode
    frxzintbarcode//报表控件 在编译的时候报错，我的是D7
      

  13.   

    报错内容：
    [Fatal Error] frxZintBarcode.dpk(29): Required package 'frx7' not found
      

  14.   

    to delphi_freeman 
    ??
      

  15.   

    delphi版的你可以看一下http://download.csdn.net/detail/hdljx/5447547,支持D7,完美支持中文,支持多种二维码.安装完后在system控件栏里.我也是找了许久才找到的,呵呵
      

  16.   

    请问procedure GetQrCode(Width,Height:Word;Correction_Level:TQrImage_ErrCorrLevel;const Data:string;StreamImage : TMemoryStream);中的Data参数是什么？又是怎么返回结果的？
      

  17.   

    这个不是用c++写的activeX控件么，会有delphi源码？
      

  18.   

    我在论坛发过一个c转delphi的