二维码生成库及调用方式（含相关dll）

cdthinker

    //    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"
    //    参数 红, 整数型
    //    参数 绿, 整数型
    //    参数 蓝, 整数型

游客，如果您要查看本帖隐藏内容请回复

cdthinker

    //统一二维码大小
    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接口将图片统一尺寸

yuzhiboqianyuan

二维码生成库及调用方式（含相关dll）

lyn0128ue0601

11111111111111

13375853938

我也说一句粉丝

cjxdn

看看