Scan one or more barcodes using the camera on device.

Properties

ScanMultiple

A boolean value that indicates whether accept multiple barcode entries or just scan a single barcode.

AllowDuplicates

A boolean value that indicates if duplicate barcode entries are allowed. Only applicable if ScanMultiple is set to True.

ScannerEngine

A enum value that specifies the barcode processing engine. There are 3 valid options: Default, System (for iOS only), Google.

Methods

AddBarcodeType

Add a barcode scanner type.

• Input Arguments:

  Name	Type	Mandatory	Description
  Type	Enum	Yes	Supported barcode type of each scanner engine. Default: UPCA, CODE128, QRCODE, CODE39, ITF14, CODABAR, UPCE, CODE93 Google: UPCA, CODE128, QRCODE, CODE39, ITF14, CODABAR, UPCE, CODE93, DATAMATRIX, PDF417, AZTEK System: UPCA, CODE128, QRCODE, CODE39, ITF14, UPCE, CODE93, DATAMATRIX, PDF417, AZTEK

• Output Argument: None.
• Return Value: None.

RemoveBarcodeType

Remove a barcode scanner type.

• Input Arguments:

  Name	Type	Mandatory	Description
  Type	Enum	Yes	Valid values are: UPCA, CODE128, QRCODE, CODE39, ITF14, CODABAR, UPCE, CODE93, DATAMATRIX, PDF417, AZTEK

• Output Argument: None.
• Return Value: None.

ClearBarcodeTypes

Clear the current list of barcode scanner types.

• Input Arguments: None.
• Output Argument: None.
• Return Value: None.

ActivateScanner

Activate the scanner.

• Input Arguments: None.
• Output Argument: None.
• Return Value: Status Code

GetScannedValue

Get the scanned value. Call this method in Completed event to get scanned barcode value.

• Input Arguments:

  Name	Type	Mandatory	Description
  Index	Integer	Yes	Specify an index to locate a barcode value in scanned value list.

• Output Argument: None.
• Return Value: The scanned barcode value.

Events

Completed

Triggered when barcode scanning is finished.

• Parameters:

  
  

  Name	Type	Description
  Status	Enum	See Status Code
  BarcodeCount	Integer	The number of barcodes that were scanned
  Message	String

Code Examples

    Define_Com Class(#xDeviceBarcodeScanner) Name(#BarcodeScanner) 

    Evtroutine Handling(#COM_OWNER.Initialize)   
      Clr_List Named(#BarcodeTypes)   
      #STD_TEXTS := 'upca'   
      Add_Entry To_List(#BarcodeTypes)   
      #STD_TEXTS := 'code128'   
      Add_Entry To_List(#BarcodeTypes)   
      #STD_TEXTS := 'qrcode'   
      Add_Entry To_List(#BarcodeTypes)   
      #STD_TEXTS := 'code39'   
      Add_Entry To_List(#BarcodeTypes)   
      #STD_TEXTS := 'itf14'   
      Add_Entry To_List(#BarcodeTypes)   
      #Scanner.Enabled := false 
    Endroutine 

    Evtroutine Handling(#BarcodeScanner.Initialize)   
      #Scanner.Enabled := true 
    Endroutine 

    Evtroutine Handling(#Scanner.Click)   
      Define Field(#vrccItemCount) Type(*INT)   
      Define Field(#vrccIx) Type(*INT)   

      #BarcodeScanner.ScanMultiple := (#ScanMultiple.ButtonState = Checked)   
      #BarcodeScanner.AllowDuplicates := (#AllowDuplicates.ButtonState = Checked)   

      #BarcodeScanner.ClearBarcodeTypes()  
      For Each(#item) In(#BarcodeTypes.Items)    
        If (#item.Checked = Checked)       
          Get_Entry Number(#item.Entry) From_List(#BarcodeTypes)      
          #BarcodeScanner.AddBarcodeType( #STD_TEXTS )     
        Endif   
      Endfor   

      #BarcodeScanner.ActivateScanner() 
    Endroutine 

    Evtroutine Handling(#BarcodeScanner.Completed) Status(#lStatus) Barcodecount(#lCount) Message(#lMessage)   
      Define Field(#vrbcIx) Type(*INT)  

      If (#lStatus = OK)     
        Begin_Loop Using(#vrbcIx) From(0) To(#lCount - 1)       
          #STD_TEXTL := #BarcodeScanner.GetScannedValue( #vrbcIx )      
          Add_Entry To_List(#ScannedValues)     
        End_Loop   
      Endif 
    Endroutine