Rutina Generador de codigos QR

Rutina Generador de codigos QR

Postby Busmatic_wpb » Sun Dec 31, 2017 1:24 am

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)
Busmatic_wpb
 
Posts: 53
Joined: Wed Feb 22, 2017 2:19 am

Re: Rutina Generador de codigos QR

Postby armando.lagunas » Wed Jan 03, 2018 10:55 am

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
User avatar
armando.lagunas
 
Posts: 232
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Willi Quintana and 7 guests