盒子论坛 v2.1

参考了：
http://www.cnblogs.com/qiufeng2014/p/4281761.html

在项目中使用到了二维码，如果要显示：abcd0123;
发现最终生成的二维码，扫描测试的时候，只出现：abcd123;
0被忽略了；

不知道有没有兄弟遇到过这个问题；
----------------------------------------------
青云论坛

作者：

jiuk (愛像一陣風)	★☆☆☆☆	-
	普通会员

2016/7/24 8:43:37

1楼：

楼上的我也是用的这个，没有出现你说的情况，不过我用的下面更新的
----------------------------------------------
Delphi业余爱好者

作者：

axfx (axfx)	▲▲▲▲▲	-
	普通会员

2016/7/24 12:11:09

2楼：

我的也没有问题。
----------------------------------------------
超低价出售pos/进销存/收银软件源码
https://item.taobao.com/item.htm?spm=a21dvs.23580594.0.0.4fee645eC26dvB&ft=t&id=671027238807

作者：

wangyunyong (新秀)	★☆☆☆☆	-
	盒子活跃会员

2016/7/25 9:31:21

3楼：

用这个看看看
https://github.com/Spelt/ZXing.Delphi
----------------------------------------------
-

作者：

jopher3 (樵夫的马六甲)	▲▲▲▲▲	-
	普通会员

2016/7/25 9:54:15

4楼：

TDelphiZXingQRCode 是一个来自著名的 ZXing 二维码生成/扫描类，开源，已经经过了多人的改写。同样，在 QuickBurro V4.49 里，咱也对其进行了改写，并加入到了vclsdk 和 fmxsdk 里。改写后的此对象被封装在 ZXingQRCode.pas 单元中，VCL 版本支持 D6--D10.1 berlin 所有版本，并且，增加了易于使用的“EncodeToImage”方法：
procedure TDelphiZXingQRCode.EncodeToImage(const text: string; const Img: TImage);
    其中，text 为需要生成二维码图片的内容字符串；Img 为一个 TImage 对象，用于显示二维码图片。     另外，使用此对象生成二维码时请注意 Encoding 属性，当内容是包含汉字的字符串时，使用默认的 qrAuto 值即可；而当内容是纯英文字符时，宜使用 qrUTF8NoBOM 值，否则生成的二维码图片不正确（扫描出来的内容不等于原字符串）。
----------------------------------------------
樵夫的大马甲

作者：

jopher3 (樵夫的马六甲)	▲▲▲▲▲	-
	普通会员

2016/7/25 10:06:57

5楼：

比如，微信支付的扫一扫，就可以用此单元：

//
// 调用 Prepay 方法实现预下单...
   if WX.Prepay(Request,Response) then
      begin
         edit6.Text:=Response.prepay_id;
         QRCode:=TDelphiZXingQRCode.Create;
         QRCode.EncodeToImage(Response.code_url,image1);
         QRCode.Free;
      end
   else
      qbmisc.ShowError('下单失败，Error='+WX.LastError,'错误');

此帖子包含附件:

大小:23.9K

----------------------------------------------
樵夫的大马甲

作者：

mprjcf (mprjcf)	★☆☆☆☆	-
	普通会员

2016/7/25 11:49:31

6楼：

jopher3 (樵夫的马六甲)，你的二维码没有头像，还要改进。
----------------------------------------------
他们总是取笑失败者，以酷似智者；他们也总是为成功者喝采，以取得赏金。

作者：

glwang (glwang)	★☆☆☆☆	-
	盒子活跃会员

2018/9/18 12:23:59

7楼：

估计楼主已经解决了，我也遇到这个问题，解决方法是编码格式没有选对：  TQRCodeEncoding = (qrAuto, qrNumeric, qrAlphanumeric, qrISO88591, qrUTF8NoBOM,
    qrUTF8BOM);
示例：
  QRCode := TDelphiZXingQRCode.Create;
  try
    QRCode.Data :=‘二维码字符串数据’;
    QRCode.Encoding := TQRCodeEncoding(5);  //编码格式根据需要选择正确，否则出错
    QRCode.QuietZone := 4;
    QRCode.DrawQrcode(image1,QRCode);
  finally
    QRCode.Free;
  end;
----------------------------------------------

作者：

ptdelphi (Delphi)	▲▲▲▲△	-
	普通会员

2018/9/18 22:14:22

8楼：

用着挺好的，没有那种情况
----------------------------------------------
还可以更好

信息

登陆以后才能回复