小更新以下，感谢6、7楼建议，
二维码创建支持返回字节集
二维码识别支持传入字节集，并返回坐标
进一步简化封装，详见置顶楼

Demo2.zip (632.67 KB, 下载次数: 833)

2021-11-6 22:31 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
IQrcode			ZXing

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
EncodeToFile	逻辑型		成功返回真 失败返回假
参数名	类 型	参考	可空	数组	备 注
text	文本型				二维码文本内容
filePath	文本型				二维码图片路径，支持jpg\png
width	整数型				二维码图片宽度
height	整数型				二维码图片高度
margin	整数型				二维码图片白边宽度
eccLevel	整数型				纠错级别0-8，-1默认

width ＝ 选择 (是否为空 (width), 500, width)
height ＝ 选择 (是否为空 (height), 500, height)
margin ＝ 选择 (是否为空 (margin), 20, margin)
eccLevel ＝ 选择 (是否为空 (eccLevel), -1, eccLevel)
返回 (QrEncodeToFile (text, filePath, width, height, margin, eccLevel) ＞ 0)

子程序名	返回值类型	公开	备 注
EncodeToMemory	字节集		成功返回PNG图片数据 失败返回{}
参数名	类 型	参考	可空	数组	备 注
text	文本型				二维码文本内容
width	整数型				二维码图片宽度
height	整数型				二维码图片高度
margin	整数型				二维码图片白边宽度
eccLevel	整数型				纠错级别0-8，-1默认

变量名	类 型	静态	数组	备 注
png	字节集
len	整数型

width ＝ 选择 (是否为空 (width), 500, width)
height ＝ 选择 (是否为空 (height), 500, height)
margin ＝ 选择 (是否为空 (margin), 20, margin)
eccLevel ＝ 选择 (是否为空 (eccLevel), -1, eccLevel)
png ＝ 取空白字节集 (20480)
len ＝ QrEncodeToMemory (text, png, width, height, margin, eccLevel)
如果 (len ＞ 0)
返回 (取字节集左边 (png, len))
返回 ({ })

子程序名	返回值类型	公开	备 注
DecodeFromFile	文本型		返回识别的二维码文本内容
参数名	类 型	参考	可空	数组	备 注
filePath	文本型				二维码图片路径
angleEscape	逻辑型				Escape解码
postion	Position				二维码区域坐标

返回 (QrDecodeFromFile (filePath, angleEscape, postion))

子程序名	返回值类型	公开	备 注
DecodeFromMemory	文本型		返回识别的二维码文本内容
参数名	类 型	参考	可空	数组	备 注
imageData	字节集				二维码图片路径
angleEscape	逻辑型				Escape解码
postion	Position				二维码区域坐标

返回 (QrDecodeFromMemory (imageData, 取字节集长度 (imageData), angleEscape, postion))

.版本 2<br /> <br /> .程序集 IQrcode, , , ZXing<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 EncodeToFile, 逻辑型, 公开, 成功返回真 失败返回假<br /> .参数 text, 文本型, , 二维码文本内容<br /> .参数 filePath, 文本型, , 二维码图片路径，支持jpg\png<br /> .参数 width, 整数型, 可空, 二维码图片宽度<br /> .参数 height, 整数型, 可空, 二维码图片高度<br /> .参数 margin, 整数型, 可空, 二维码图片白边宽度<br /> .参数 eccLevel, 整数型, 可空, 纠错级别0-8，-1默认<br /> <br /> width ＝ 选择 (是否为空 (width), 500, width)<br /> height ＝ 选择 (是否为空 (height), 500, height)<br /> margin ＝ 选择 (是否为空 (margin), 20, margin)<br /> eccLevel ＝ 选择 (是否为空 (eccLevel), -1, eccLevel)<br /> 返回 (QrEncodeToFile (text, filePath, width, height, margin, eccLevel) ＞ 0)<br /> <br /> <br /> .子程序 EncodeToMemory, 字节集, 公开, 成功返回PNG图片数据 失败返回{}<br /> .参数 text, 文本型, , 二维码文本内容<br /> .参数 width, 整数型, 可空, 二维码图片宽度<br /> .参数 height, 整数型, 可空, 二维码图片高度<br /> .参数 margin, 整数型, 可空, 二维码图片白边宽度<br /> .参数 eccLevel, 整数型, 可空, 纠错级别0-8，-1默认<br /> .局部变量 png, 字节集<br /> .局部变量 len, 整数型<br /> <br /> width ＝ 选择 (是否为空 (width), 500, width)<br /> height ＝ 选择 (是否为空 (height), 500, height)<br /> margin ＝ 选择 (是否为空 (margin), 20, margin)<br /> eccLevel ＝ 选择 (是否为空 (eccLevel), -1, eccLevel)<br /> png ＝ 取空白字节集 (20480)<br /> len ＝ QrEncodeToMemory (text, png, width, height, margin, eccLevel)<br /> .如果 (len ＞ 0)<br /> 返回 (取字节集左边 (png, len))<br /> .否则<br /> 返回 ({ })<br /> .如果结束<br /> <br /> <br /> .子程序 DecodeFromFile, 文本型, 公开, 返回识别的二维码文本内容<br /> .参数 filePath, 文本型, , 二维码图片路径<br /> .参数 angleEscape, 逻辑型, 可空, Escape解码<br /> .参数 postion, Position, 参考 可空, 二维码区域坐标<br /> <br /> 返回 (QrDecodeFromFile (filePath, angleEscape, postion))<br /> <br /> <br /> .子程序 DecodeFromMemory, 文本型, 公开, 返回识别的二维码文本内容<br /> .参数 imageData, 字节集, , 二维码图片路径<br /> .参数 angleEscape, 逻辑型, 可空, Escape解码<br /> .参数 postion, Position, 参考 可空, 二维码区域坐标<br /> <br /> 返回 (QrDecodeFromMemory (imageData, 取字节集长度 (imageData), angleEscape, postion))

11111111111111111111

太厉害了正好需要

6666666666666666666666

测试了一下 不错 简单实用

有需要，下下来看看

感谢分享

666666666666

DLL计次循环测试..有严重内存溢出...内存爆涨

奇奇奇奇奇 发表于 2025-1-23 14:15
在吗亲，太好用了，这个怎么给文字放进去， 可以付费

还需要吗亲