Other [B4X] [B4XPages] Barcode Reader - Formats

[LucaMs]

I could be wrong but I think you could change part of Sub CreateDetector like this:

    #IF B4A
        builder.RunMethod("setBarcodeFormats", Array(0)) ' ALL_FORMATS constant, value 0
    #ELSE
        builder.RunMethod("setBarcodeFormats", Array(format))
    #End If

I think probably that way all formats for Android would be automatically supported, without having to add all the constants, even any new ones.

 

[Erel]

In real apps you usually don't want to detect all formats. The detector will work better if you set it to the specific formats that you are looking for.

 

[LucaMs]

In real apps you usually don't want to detect all formats. The detector will work better if you set it to the specific formats that you are looking for.

Maybe so, but you're currently passing it a list of formats, it seems to me, so you might as well pass zero.

 

[Erel]

The code looks correct to me. It allows the developer to select one or more formats.

 

[LucaMs]

Maybe so, but you're currently passing it a list of formats, it seems to me, so you might as well pass zero.

Thinking about it, even though I haven't had a coffee yet ? , that's an example. At the very least there might be a spinner filled with formats.
This makes me think of a question... which as a good member of B4X.com I don't post here.

P.S. Indeed, I have to look first, perhaps the example project already does what I was thinking.

 

[LucaMs]

which as a good member of B4X.com I don't post here.

Well, I won't open a new thread because I don't need the answer, it was just a curiosity.

I would have liked to see if I could get the format, as well as the value.

Oddly that Maches variable which indicates the size of that sparse array returns 1 but if you log the "toString" method the values are more (but they don't contain the name of the format).

I thought about asking for the list of keys but... ok, it doesn't matter, it was just curiosity.

 

[LucaMs]

I would have liked to see if I could get the format, as well as the value.

Solved :

    mapFormats.Initialize
    mapFormats.Put(4096, "AZTEC")
    mapFormats.Put(1, "CODE_128")
    mapFormats.Put(2, "CODE_39")
    mapFormats.Put(4, "CODE_93")
    mapFormats.Put(8, "CODABAR")
    mapFormats.Put(16, "DATA_MATRIX")
    mapFormats.Put(32, "EAN_13")
    mapFormats.Put(64, "EAN_8")
    mapFormats.Put(128, "ITF")
    mapFormats.Put(2048, "PDF417")
    mapFormats.Put(256, "QR_CODE")
    mapFormats.Put(512, "UPC_A")
    mapFormats.Put(1024, "UPC_E")

Dim FormatField As Object = barcode.GetField("format")
If FormatField <> Null Then
    Log(FormatField & "  " & mapFormats.Get(FormatField))
Else
    Log("format field is null")
End If