Códigos de Barra QR sin usar la API de Google
Que tal Compañeros.
Navegando por la web, encontré una dll para la generación de códigos de barra de dos dimensiones QR.
Esta dll tiene una funcion llamada GenerateFile con la que de una manera simple, podemos generar el QR sin tantas complicaciones.
Código para generar un archivo
SET DEFAULT TO C:\DllQR\
DECLARE INTEGER GenerateFile ;
IN BarCodeLibrary.dll;
STRING cData, ;
STRING cFileName
GenerateFile("http://www.portalfox.com",'C:\DllQR\potalfoxQR.png')
El archivo dll lo pueden descargar desde el sitio del creador.
O bien, la dll y ejemplo de código desde acá.
Solo basta recordarles que existen otros dos artículos del tema de QR:
Hasta la próxima!!
Baltazar Moreno
http://disxii.com
VFP9SP2 - Win7
Guadalajara, Jalisco, México
Comentarios
Tengo un sistema que genera varias etiquetas en una sola orden de impresion y con informacion variable,se puede?
Saludos!
Saludos!
cuando proceso no me sale error pero cuando quiero leer me sale Nit:NIT,Empresa:empresa,fac:Factura y no NIT:3102229014,Nom empresa:Carlos Tantachuco,Fac:1 por favor si me pudieras aclarar como hacerlo te agradeceria mucho
Saludos!
Coloco a unas variables
NitEmpresa=INT(VAL(Nit))RazonSocial=ALLTRIM(Empresa)
Nrofactura=NroFac
luego viene codigo para generar QR
DECLARE INTEGER GenerateFile;
IN \sigea\QR\BarCodeLibrary.dll;
STRING cData, ;
STRING cFileName
GenerateFil ("Nit:&NitEmpresa,Nom_Empresa:&RazonSocial,NroFac:NroFactura",'\SIGEA\QR\MyQR.png')
hay mas datos que debe tener este codigo pero te envio algunos nada mas
lcCadena = "Nit:"+allt(transform(NitEmpresa))+",Nom_Empresa:"+allt(RazonSocial)+",NroFac:"+allt(transform(NroFactura))
GenerateFile (lcCadena,'\SIGEA\QR\MyQR.png')
Saludos!