... INVALIDO ? oImage:SaveImage( "qrcode.bmp", 0, nQuality ) endif oGbmp:End() endif Return nil Static Function GetSafeURL( cUrl ) local cAsc local nChr local sHex local i local cGetSafeURL := "" For i = 1 To Len( cUrl ) cASC := substr( cUrl, i, 1) nChr := Asc( cASC ) If ( nChr ...