jueves, enero 27, 2011
miércoles, enero 19, 2011
Códigos de Barras QR usando la API de Google
Como ya lo había dicho, este articulo se publico en PortalFox, me latió ponerlo aquí, así que va:
Un pequeño ejemplo de como utilizar la API de Google para generar códigos de barras de dos dimensiones de tipo QR:
lcDato =[?re=XAXX010101000&rr=XAXX010101000&tt=1234567890.123456] + ;
[&id=ad662d33-6934-459c-a128-BDf0393f0f44]
** Ancho x Alto
lcDimensiones = '300x300'
** Donde quieren guardar la imagen, ojo, es PNG
lcImagen = PUTFILE('QRCode','QRCode','png')
IF EMPTY(lcImagen)
RETURN
ENDIF
IF GoogleQR(lcDato,lcDimensiones,lcImagen) == 0
MESSAGEBOX('Descarga Exitosa',0+64,'GoogleQR')
ELSE
MESSAGEBOX('Error en la generacion del Codigo QR',0+16,'GoogleQR')
ENDIF
FUNCTION GoogleQR(pDato,pDimensiones,pImagen)
WAIT WINDOW "Generando y descargando Código QR, espere por favor..." NOWAIT
DECLARE Long URLDownloadToFile IN "urlmon";
Long pCaller,;
String szURL,;
String szFileName,;
Long dwReserved,;
Long lpfnCB
sURL ="https://chart.googleapis.com/chart?cht=qr&chs=" + ;
pDimensiones + "&chld=Q&chl=" + STRTRAN(pDato,'&','%26')
nRetVal = URLDownloadToFile (0, sURL, pImagen, 0, 0)
WAIT CLEAR
RETURN nRetVal
ENDFUNC
El resultado de este código es:
Un pequeño ejemplo de como utilizar la API de Google para generar códigos de barras de dos dimensiones de tipo QR:
lcDato =[?re=XAXX010101000&rr=XAXX010101000&tt=1234567890.123456] + ;
[&id=ad662d33-6934-459c-a128-BDf0393f0f44]
** Ancho x Alto
lcDimensiones = '300x300'
** Donde quieren guardar la imagen, ojo, es PNG
lcImagen = PUTFILE('QRCode','QRCode','png')
IF EMPTY(lcImagen)
RETURN
ENDIF
IF GoogleQR(lcDato,lcDimensiones,lcImagen) == 0
MESSAGEBOX('Descarga Exitosa',0+64,'GoogleQR')
ELSE
MESSAGEBOX('Error en la generacion del Codigo QR',0+16,'GoogleQR')
ENDIF
FUNCTION GoogleQR(pDato,pDimensiones,pImagen)
WAIT WINDOW "Generando y descargando Código QR, espere por favor..." NOWAIT
DECLARE Long URLDownloadToFile IN "urlmon";
Long pCaller,;
String szURL,;
String szFileName,;
Long dwReserved,;
Long lpfnCB
sURL ="https://chart.googleapis.com/chart?cht=qr&chs=" + ;
pDimensiones + "&chld=Q&chl=" + STRTRAN(pDato,'&','%26')
nRetVal = URLDownloadToFile (0, sURL, pImagen, 0, 0)
WAIT CLEAR
RETURN nRetVal
ENDFUNC
Más información: Google API
Gracias a Luis María Guayán por el tip de esta API de Google
El resultado de este código es:
jueves, enero 13, 2011
Mi primer articulo en portalfox.com
Estoy emocionado, es la primera vez que envió un artículo a PortalFox, el Maestro Luis María Guayán me sugirió hacerlo, es un pequeño codigo de como usar la API de Google para generar los códigos de barras de dos dimensiones de tipo QR.
Aqui las fotos:
Suscribirse a:
Entradas (Atom)