FUNCTION CodigoQR
PARAMETERS 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
Suerte
Armando Rodríguez
Ese límite de caracteres es de la librería BarCodeLibrary.DLL. Como dicha librería la utiliza también la clase FoxBarcodeQR, ese límite también está en la clase.
Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com