Google QRCode

[Carlos Lima]

Buenas tardes,
Utilizo la siguiente función de Luis María, para generar código QR. Funcionó bien durante un tiempo, pero desde ayer a veces genera errores. A continuación se muestra el código. Gracias por cualquier ayuda.

o_uid = 'CV3240403102053812000030200001482675464385227' -- Gera Correctamente
o_uid = 'CV3240403102053812000030500000005071457935417' -- Gera Error (MESSAGEBOX('Ocorreu um Erro ao Gerar o Codigo QR',0+16,'GoogleQR'))
lcDato = o_uid
lcDimensiones = '300x300'
lcImagen = 'c:\syspensoes\qrcode.png'
IF FILE(lcImagen)
   DELETE FILE (lcImagen)
ENDIF
IF GoogleQR(lcDato,lcDimensiones,lcImagen) <> 0
   MESSAGEBOX('Ocorreu um Erro ao Gerar o Codigo QR',0+16,'GoogleQR')
   RETURN ''
ELSE
   DO WHILE !FILE(lcImagen)
   ENDDO
ENDIF
RETURN o_uid
******************************************************
FUNCTION GoogleQR(pDato,pDimensiones,pImagen)
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)
RETURN nRetVal
ENDFUNC

[Zarlu]

Buenas tardes Carlos!

Recién la probé y sin problemas.

Agrega la línea que señalo para obtener el link y lo pruebas pegándolo directamente en el navegador

Suerte

zarlu

Chetumal, Quintana Roo, México

[Carlos Lima]

Directamente en el navegador me sale error:

Error 502 (server Error)!!1

Gracias

[charly carlos]

Hola, tuve el mismo problemas en algunos clientes y concluí que el problema venia de google (a veces demoraba y a veces se cancelaba creo por time out); con lo cual decidí cambiar la rutina de obtención del código QR.

Saludos.

Carlos - Tucumán - Argentina

[oden...@gmail.com]

Hola amigo, podrias compartir la rutina.

[Arturo Ramos]

Si, me pasó lo mismo, no sé qué pasa con Google, no investigue más pues igual terminé cambiando mi código.

https://sites.google.com/site/foxbarcode/foxbarcodeqr

Usando la librería QRCodeLib.dll junto con FoxBarcode.

Saludos.

[oden...@gmail.com]

Gracias amigo excelente codigo.