Hola amigos del foro.
Estoy probando la generacion de codigos QR y tengo este codigo:
FastQRCode() Funciona perfecto, me genera el archivo .BMP con el QR.
FullQRCode2() NO FUNCIONA, que parametro estoy pasando MAL
De antemano, gracias por la ayuda
Atentamente
Rolando
Cochabamba, Bolivia
Estoy probando la generacion de codigos QR y tengo este codigo:
//QR --------------------------------------------------------------------------------------------------//
#Define DC_CALL_STD 0x0020
#Define TQRCodenEncoding_ALPHA 0
#Define TQRCodenEncoding_BYTE 1
#Define TQRCodenEncoding_NUMERIC 2
#Define TQRCodenEncoding_KANJI 3
#Define TQRCodenEncoding_AUTO 4
#Define TQRCodeEC_LEVEL_L 0 //( 7 % )
#Define TQRCodeEC_LEVEL_M 1 //( 15 % )
#Define TQRCodeEC_LEVEL_Q 2 //( 25% )
#Define TQRCodeEC_LEVEL_H 3 //( 30% )
//------------------------------------//
//Ejm: FastQRCode("Rolando Salazar", "D:\QR.BMP")
Function FastQRCode(cTexto, cFile) // genera codigo qr
local nResp
STATIC qrDLL
DEFAULT cTexto := "SAURO SOFTWARE - Informatica y Sistemas"
DEFAULT cFile := Tmp("QR_",".bmp")//".\QR.bmp"
IF !FILE(".\QRCodelib.Dll")
MsgStop("Sin Librería de Soporte","Improcedente")
Return(NIL)
EndIF
qrDLL:=LoadLibrary(".\QRCodelib.Dll" )
nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cTexto,cFile)
FreeLibrary(qrDLL)
RETURN (cFile)
//------------------------------------//
//Ejm: FullQRCode2("Rolando Salazar", "D:\QR.BMP")
Function FullQRCode2(cTexto, cFile, nVersion, lAutoConfigurate, lAutoFit, backColor, barColor, nCorrectionLevel, nEncoding, nMarginpixels, nModuleWidth, nHeight, nWidth) // genera codigo qr
local nResp
STATIC qrDLL
DEFAULT cTexto := "SAURO SOFTWARE - Informatica y Sistemas"
DEFAULT cFile := Tmp("QR_",".bmp")//".\QR.bmp"
DEFAULT nVersion:=6,; //(1 al 39)
lAutoConfigurate:=.T.,;
lAutoFit:=.F.,;
backColor:=CLR_WHITE,;
barColor:=CLR_BLACK,;
nCorrectionLevel:=TQRCodeEC_LEVEL_M,;
nEncoding:=TQRCodenEncoding_BYTE,;
nMarginpixels:=0,;
nModuleWidth:=5,;
nHeight:=200,;
nWidth:=200
IF !FILE(".\QRCodelib.Dll")
MsgStop("Sin Librería de Soporte","Improcedente")
Return(NIL)
EndIF
qrDLL:=LoadLibrary(".\QRCodelib.Dll" )
nResp:=DllCall(qrDLL,DC_CALL_STD,"FullQRCode2",nVersion,lAutoConfigurate, lAutoFit, backColor, barColor, cTexto, nCorrectionLevel, nEncoding, nMarginpixels, nModuleWidth, nHeight, nWidth, cFile)
FreeLibrary(qrDLL)
msginfo(nResp)
RETURN (cFile)FastQRCode() Funciona perfecto, me genera el archivo .BMP con el QR.
FullQRCode2() NO FUNCIONA, que parametro estoy pasando MAL
De antemano, gracias por la ayuda
Atentamente
Rolando
Cochabamba, Bolivia