TC官方合作论坛

 找回密码
 立即注册
查看: 134|回复: 4

[插件] 二维码生成库及调用方式(含相关dll)

[复制链接]
发表于 2024-7-10 19:19:35 | 显示全部楼层 |阅读模式
本帖最后由 cdthinker 于 2024-7-10 19:24 编辑
    //    DLL命令 二维码_外形设置,, "QRCodeWin32.dll", "QRAppearance"
    //    参数 模块尺寸, 双精度小数型
    //    参数 方向, 整数型
    //    参数 边框, 整数型
    //    DLL命令 二维码_编码参数,, "QRCodeWin32.dll", "QRConfigure"
    //    参数 版本, 整数型
    //    参数 纠错级别, 整数型
    //    参数 掩膜, 整数型
    //    DLL命令 二维码_默认设置,, "QRCodeWin32.dll", "QRSetDefault"
    //    DLL命令 二维码_设置文本信息,, "QRCodeWin32.dll", "QRSetMessage"
    //    参数 文本, 文本型
    //    DLL命令 二维码_获取模块数,, "QRCodeWin32.dll", "QRGetActualRC"
    //    参数 行, 整数型, 传址
    //    参数 列, 整数型, 传址
    //    DLL命令 二维码_设置图像分辨率,, "QRCodeWin32.dll", "QRSetSize"
    //    参数 宽度, 整数型
    //    参数 高度, 整数型
    //    DLL命令 二维码_保存到bmp文件, 整数型, "QRCodeWin32.dll", "QRSaveAsBMP"
    //    参数 文件名, 文本型
    //    DLL命令 二维码_复制wmf图片到剪辑板, 整数型, "QRCodeWin32.dll", "QRCopyToClipboard"
    //    DLL命令 二维码_设置前景色,, "QRCodeWin32.dll", "QRSetBackColor"
    //    参数 红, 整数型
    //    参数 绿, 整数型
    //    参数 蓝, 整数型
    //    DLL命令 二维码_设置背景色,, "QRCodeWin32.dll", "QRSetBarColor"
    //    参数 红, 整数型
    //    参数 绿, 整数型
    //    参数 蓝, 整数型
游客,如果您要查看本帖隐藏内容请回复


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

评分

参与人数 1威望 +1 金币 +1 收起 理由
yuzhiboqianyuan + 1 + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2024-7-12 00:35:26 | 显示全部楼层
    //统一二维码大小
    Img = "On Error Resume Next \r\n"
    Img = Img & "Dim OImg, OProc, ONewImg \r\n"
    Img = Img & "Set oImg = CreateObject(\"WIA.ImageFile\") \r\n"
    Img = Img & "Set oProc = CreateObject(\"WIA.ImageProcess\") \r\n"
    Img = Img & "oImg.LoadFile \"" & temp & "\" \r\n"
    Img = Img & "If Err.Number <> 0 Then \r\n"
    Img = Img & "WScript.Echo \"加载文件时出错: \" & Err.Description \r\n"
    Img = Img & "WScript.Quit 1 \r\n"
    Img = Img & "End If \r\n"
    Img = Img & "oProc.Filters.Add oProc.FilterInfos(\"Scale\").FilterID \r\n"//加载滤镜Scale
    Img = Img & "oProc.Filters(1).Properties(\"MaximumWidth\")=\""&size&"\" \r\n"
    Img = Img & "oProc.Filters(1).Properties(\"MaximumHeight\")=\""&size&"\" \r\n"
    Img = Img & "Set oNewImg = oProc.Apply(oImg) \r\n"
    Img = Img & "If Err.Number <> 0 Then \r\n"
    Img = Img & "WScript.Echo \"应用过滤器时出错: \" & Err.Description \r\n"
    Img = Img & "WScript.Quit 1 \r\n"
    Img = Img & "End If \r\n"
    Img = Img & "oNewImg.SaveFile \"" & pathAs & "\" \r\n"
    Img = Img & "If Err.Number <> 0 Then \r\n"
    Img = Img & "WScript.Echo \"保存文件时出错: \" & Err.Description \r\n"
    Img = Img & "WScript.Quit 1 \r\n"
    Img = Img & "End If \r\n"
    Img = Img & "On Error GoTo 0"
    Sc = 插件("ScriptControl")
    Sc.language = "VBScript"
    Sc.addcode(Img)



可以调用系统com接口将图片统一尺寸
回复 支持 1 反对 0

使用道具 举报

发表于 2024-7-13 20:55:32 | 显示全部楼层
二维码生成库及调用方式(含相关dll)
回复 支持 反对

使用道具 举报

发表于 2024-7-14 20:19:36 | 显示全部楼层
11111111111111
回复 支持 反对

使用道具 举报

发表于 前天 19:00 来自手机 | 显示全部楼层
我也说一句粉丝
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-7-23 13:19 , Processed in 0.037836 second(s), 25 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表