14.6.6 xDeviceBarcodeScanner ウィジェット

デバイス上のカメラを利用して 1 つまたは複数のバーコードをスキャンします。

プロパティ

ScanMultiple

複数のバーコードのエントリーを受け付けるか、1 つのバーコードをスキャンするかを示すブール値です。

AllowDuplicates

複数のバーコードのエントリーが許可されることを示すブール値です。ScanMultiple に True が設定されている時のみ有効です。

ScannerEngine

バーコード処理エンジンを示す列挙値です。有効なオプションは次の 3 つです: Default、System (iOS のみ)、Google

メソッド

AddBarcodeType

バーコード・スキャナーのタイプを追加します。

• 入力引数:

名前 タイプ 必須 説明 Type 列挙値 はい サポートされる各スキャナー・エンジンのバーコード・タイプです。 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

• 出力引数: なし

• 戻り値: なし

RemoveBarcodeType

バーコード・スキャナーのタイプを削除します。

• 入力引数:

名前 タイプ 必須 説明 Type 列挙値 はい 有効な値: UPCA、CODE128、QRCODE、CODE39、ITF14、CODABAR、UPCE、CODE93、DATAMATRIX、PDF417、AZTEK

• 出力引数: なし

• 戻り値: なし

ClearBarcodeTypes

現在のバーコード・スキャナー・タイプのリストをクリアします。

• 入力引数: なし

• 出力引数: なし

• 戻り値: なし

ActivateScanner

スキャナーを有効にします。

• 入力引数: なし

• 出力引数: なし

• 戻り値: 状態コード

GetScannedValue

スキャン値を取得します。Completed イベント内でこのメソッドを呼び出し、スキャンされたバーコードの値を取得します。

• 入力引数:

名前 タイプ 必須 説明 Index 整数 はい スキャン値リスト内のバーコード値を検知するためのインデックスを指定します。

• 出力引数: なし

• 戻り値: スキャンされたバーコード値

イベント

Completed

バーコード・スキャンが終了すると起動されます。

• パラメータ：

名前 タイプ 説明 Status 列挙値 状態コードを参照してください。 BarcodeCount 整数 スキャンされたバーコード数 Message 文字列

サンプル・コード

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