Lectura de códigos de barras con una aplicación WINDEV y utilizando un dispositivo especializado

1. Conecte un dispositivo específico al puerto serie de su ordenador (dependiendo del dispositivo utilizado, compruebe si el teclado no está configurado para caracteres en mayúsculas y/o si el dispositivo está configurado para un teclado en inglés).
2. Lea el valor del código de barras con las siguientes funciones de gestión de puertos serie:
   • sOpenque abre e inicializa el puerto serie (o paralelo) especificado.
   • sReadque lee una cadena en el búfer de entrada del puerto serie especificado.

// Déclaration des variables 
// Définition du nombre de caractères à lire
nNbCarALire is int = 13 
// Nombre d'octets en attente dans le buffer 
nNbOctetAttente is int 
sBuffer is string // Contenu du buffer 
nPortSérie is int = 1 // Port série COM1 

// Ouverture et initialisation du port série COM1 
IF sOpen(nPortSérie, 5000, 5000) THEN 
	// Lecture du code-barres 
	// Récupération du nombre d'octets en attente 
	nNbOctetAttente = sInEntryQueue(nPortSérie) 
	// Récupération de la valeur du code-barres uniquement 
	// si au moins 13 caractères ont été lus 
	IF nNbOctetAttente >= nNbCarALire THEN 
		sBuffer = sRead(nPortSérie, nNbOctetAttente) 
		// Récupération des 13 premiers caractères lus 
	 	sBuffer = Left(sBuffer, 13) 
		// Affichage de la valeur du code-barres 
		// dans le champ de saisie "SAI_CodeBarre" 
		SAI_CodeBarre = sBuffer 
	END 
END

Lectura de un código de barras en una imagen

1. Seleccione la imagen que contiene el código de barras a descodificar. Esta imagen puede ser:
   • una imagen en un control Imagen.
   • un archivo de imagen.
   • una imagen en la memoria.
2. Declare una variable BarCode si es necesario. Las características del código de barras se guardarán en esta variable.
3. Utilice BCDecode para descodificar el código de barras.

// Décodage d'un QR Code présent dans un champ Image
cb is BarCode
cb = BCDecode(IMG_CodeBarres)
IF ErrorOccurred = False _AND_ cb.TypeBarCode = BC_QRCODE ...
		_AND_ cb.ContentType = bcTypeEmail THEN
	Info("Adresse email : " + cb.Content)
END

Lectura directa de códigos de barras con una aplicación Android

• Lectura del código de barras con la función BCCapture. Esta función descodifica la información almacenada en un código de barras utilizando la cámara del dispositivo.
  Observaciones:
  • Esta función abre una nueva ventana que muestra la vista previa desde la cámara del dispositivo. A continuación:
    • centre el código de barras a decodificar en el área correspondiente.
    • pulse para leer el código de barras.
  • En Android, la biblioteca Zxing se utiliza para descodificar códigos de barras (http://code.google.com/p/zxing). Si esta biblioteca no está en el dispositivo, estará disponible automáticamente para su descarga.
• Lectura del código de barras con el control Cámara.
  Sólo tiene que activar la lectura de códigos de barras en el control Cámara. Cada vez que se lee el código de barras se ejecuta un proceso específico. Este proceso se utiliza para obtener las características del código de barras leído en una Variable de tipo BarCode. Para obtener más información, consulte Descodificación de códigos de barras mediante control Cámara.

Lectura directa de códigos de barras QR (función BCCapture)

• centre el código de barras a decodificar en el área correspondiente.
• pulse para leer el código de barras.

// Capture du code-barres
MonCB is BarCode
MonCB = BCCapture()

// Récupération du contenu du code-barres et affichage
sRésultat is string = MonCB.RawValue
CBA_MonChampCodeBarres = sRésultat

Lectura de un código de barras en una imagen

1. Seleccione la imagen que contiene el código de barras a descodificar. Esta imagen puede ser:
   • una imagen en un control Imagen.
   • un archivo de imagen.
   • una imagen en la memoria.
2. Declare una variable BarCode si es necesario. Las características del código de barras se guardarán en esta variable.
3. Utilice BCDecode para descodificar el código de barras.

// Décodage d'un QR Code présent dans un champ Image
cb is BarCode
cb = BCDecode(IMG_CodeBarres)
IF ErrorOccurred = False _AND_ cb.TypeBarCode = BC_QRCODE ...
		_AND_ cb.ContentType = bcTypeEmail THEN
	Info("Adresse email : " + cb.Content)
END