请教如何利用myflll 在vf系统里添加二维码

函数名：QREncode(cStr[,nWidth])
缩写：qren
将字符串生成二维码，返回一个BMP文件流，可以用strtofile()保存成图片
返回值：
字符型，BMP图片的字符串
参数：
cStr: 字符型，要处理的字符串
[,nWidth]：整型，可选，默认200，生成二维码图片的像素宽度，
示例代码
Set Library To myFll
StrToFile(QREncode("http://www.baidu.com",400),"bd.bmp") &&生成 一个400*400像素的百度连接二维码图片
Set Library To

上面是MYFLL.FLL帮助里的相关内容

下面是我的用法
xfilename = sys(5)+sys(2003)+'\'+你的文件名        && 带全路径，可以不带扩展名
xchr = QREncode(qrcode,200)    && qrcode 是要生成二维码的字符串
strtofile(xchr,xfilename)

* 在FORM中需要有个image控件
thisform.image1.picture = xfilename

[此贴子已经被作者于2021-8-28 15:15编辑过]