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朵   附言：感谢分享

谢谢分享！

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

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

*--------------------------------------------------------------------------------------
* Example1.prg
*--------------------------------------------------------------------------------------
* FoxBarcodeQR example form
*--------------------------------------------------------------------------------------

SET PROCEDURE TO LOCFILE("FoxBarcodeQR.prg") ADDITIVE

*--- Create FoxBarcodeQR object and QR Code barcode image
LOCAL loFbc, lcQRImage
m.loFbc = CREATEOBJECT("FoxBarcodeQR")
m.lcQRImage = m.loFbc.QRBarcodeImage("https:///VFPX/FoxBarcode", , 6, 2)

*-- Create form
LOCAL loForm AS FORM
m.loForm = CREATEOBJECT("Form")
WITH m.loForm
.CAPTION = "FoxBarcodeQR example form"
.WIDTH = 400
.HEIGHT = 400
.BACKCOLOR = RGB(255,255,255)
.AUTOCENTER = .T.
.ADDOBJECT("Image1", "Image")
WITH .Image1
  .PICTURE = m.lcQRImage
  .TOP = 20
  .LEFT = 20
  .VISIBLE = .T.
ENDWITH
.SHOW(1)
ENDWITH 

m.loForm = NULL
m.loFbc = NULL

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

收到的鲜花

• 厨师王德榜 于 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

谢谢分享

感谢分享！