Rutina Generador de codigos QR

[Busmatic_wpb]

Estimados Amigos Listeros.
Una abrazo a la distancia y mucha felicidad , paz y armonia en este año nuevo que se acerca. que dios bendiga sus hogares y sea prospero.

Alguno de ustedes ha utiulzado esta libreria trabaja de maravillas , lo unico que no he podido es hacer la imprecion del codigo mas pequeño y no tengo mas informacion que lo que baje.

LA otra libreria del Zebra trabaja muy bien pero no logro leer los codigo PDF417 Y EL MATRIX QUE GENERA. Por alguna razon gracias desde ya por al ayuda .. feliz año nuevo.


Function QRGenerator(cTexto, cPath, cBmp) // genera codigo qr
local cStr, cFile
LOCAL nResp


#Define DC_CALL_STD 0x0020

STATIC qrDLL

DEFAULT cPath := ""
DEFAULT cBmp := "QRC.BMP"
DEFAULT cTexto := oP:Codigobarras

IF !FILE("QRCodelib.Dll")
MsgStop("Sin Librería de Soporte","Improcedente")
Return(NIl)
EndIF

cStr := cTexto //"Texto a QR Code"
cFile := cPath + cBmp

qrDLL:=LoadLibrary("QRCodelib.Dll" )
nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",oP:Codigobarras,cFile)
FreeLibrary(qrDLL)
RETURN (cFile)

[armando.lagunas]

Mira este Link como ejemplo, yo lo adapte y lo utilizo en mis sistemas y funciona muy bien

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34399&hilit=qrcode

si necesitas algo mas especifico, coloco parte de mi codigo para ayudarte, un poco mas

Saludos