字串转二维码，简单易用，无乱码

foxbarcode也有一个二维码，使用很简单。

借楼主的贴分享一下，里面有例子：

[此贴子已经被作者于2023-6-18 14:22编辑过]

上面的代码没有经过充分测试，还是有BUG，在最后添加一句为好
m.tcText=iif(left(m.tcText,3)==0hEFBBBF,m.tcText,0hEFBBBF+STRCONV(m.tcText,9))
完整代码如下：
DECLARE FullQRCode IN "QRCodeLib.dll" ;
    INTEGER lAutoConfigurate, ;
    INTEGER lAutoFit, ;
    LONG nBackColor, ;
    LONG nBarColor, ;
    STRING cText, ;
    INTEGER nCorrectionLevel, ;
    INTEGER nEncoding, ;
    INTEGER nMarginPixels, ;
    INTEGER nModuleWidth, ;
    INTEGER nHeight, ;
    INTEGER nWidth, ;
    STRING cFileName

m.lAutoConfigurate = .t.
m.lAutoFit = .t.
m.nBackColor = RGB(255,255,255) && White
m.nBarColor = RGB(0, 0, 0) && Black
m.nCorrectionLevel = 1 && 0-[L]ow 7%, 1-[M]edium 15%, 2-[Q]uartile 25%, 3-[H]igh 30%]
m.nEncoding = 4 && Automatic encoding algorithm
m.nMarginPixels = 0 && pixels
m.nModuleWidth = 2 && pixels
m.nWidth = 500 && pixels
m.nHeight = m.nWidth && pixels
m.tcText=repl("中",5)
m.tcFile="1.bmp"
m.tcText=iif(left(m.tcText,3)==0hEFBBBF,m.tcText,0hEFBBBF+STRCONV(m.tcText,9))

FullQRCode(m.lAutoConfigurate, m.lAutoFit, m.nBackColor, m.nBarColor, ;
    m.tcText, m.nCorrectionLevel, m.nEncoding, m.nMarginPixels, ;
    m.nModuleWidth, m.nHeight, m.nWidth, m.tcFile)

还有这三个参数不知道什么意思，有知道的朋友请不吝赐教
m.lAutoConfigurate = .t.
m.lAutoFit = .t.
m.nEncoding = 4 && Automatic encoding algorithm

感谢分享！