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.nHeight = 132 && pixels
m.nWidth = 132 && pixels
m.tcText="123中国123中国123中国123中国123中国123中国123中国"
m.tcFile="1.bmp"

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)

QRCodeLib.dll文件是https://里面的文件

收到的鲜花

• 厨师王德榜 于 2023-06-19 13:35 送鲜花  1朵   附言：感谢分享

上面的代码没有经过充分测试，还是有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