系统中生成二维码

平台使用方式：
先将把2个DLL文件（FWFramework.Client.QRCode.dll，ThoughtWorks.QRCode.dll）拷贝到客户端目录。
文件下载：http://bbs.delit.cn/forum.php?mod=attachment&aid=NjM5fDM0YmRhZGU1fDE0NDg4Njk3NjR8MHwzNzk%3D

1、生成二维码
'实例化(类似NEW)
dim qrcode=LoadAssembly("FWFramework.Client.QRCode.dll","FWFramework.Client.QRCode.QRCode")
dim image
'获取二维码图片
image=qrcode.getImage(文本输入框1.Value)
'获取二维码图片，并设置图片大小
image=qrcode.getImage(文本输入框1.Value,8)
图片控件1.Value=image
end
'获取二维码图片的二进制
qrcode.getBytes(文本输入框1.Value)
'获取二维码图片的二进制，并设置图片大小
qrcode.getBytes(文本输入框1.Value,8)
2、解析二维码
dim qrcode=LoadAssembly("FWFramework.Client.QRCode.dll","FWFramework.Client.QRCode.QRCode")
dim str
'根据图片解析二维码中的类容
str=qrcode.getString(图片控件1.Value)
'根据二进制解析二维码中的内容
'str=qrcode.getString(传入图片的二进制)
msgbox(str)

示例图：

原文地址:http://bbs.delit.cn/thread-379-1-1.html

转载请注明出处;

撰写人:度量科技http://www.delit.cn