iOS Question Get Barcode Coordinates/Bounds

Angel Garcia said:

nd this post helped to get the coordinates of a QR Code:
https://www.b4x.com/android/forum/threads/detect-qr-code-from-an-image.133587/#content

Click to expand...

Sub scanner_Detected (Codes As List)
    Dim sb As StringBuilder
    sb.Initialize
    sb.Append("Detected code:").Append(CRLF)
    Dim corners As List = Codes.Get(0).As(NativeObject).GetField("corners")
    Panel2.Visible = True
    Dim minx = 100000, maxx = 0, miny = 100000, maxy = 0 As Int
    For Each o As Object In corners
        Dim m As Map = NSDictionaryToMap(o)
        minx = Min(minx, m.Get("X"))
        maxx = Max(maxx, m.Get("X"))
        miny = Min(miny, m.Get("Y"))
        maxy = Max(maxy, m.Get("Y"))
    Next
    Panel2.SetLayoutAnimated(0, minx, miny, maxx - minx, maxy - miny)
    sb.Append(Codes.Get(0).As(BarcodeCode).Value)
    Label1.Text = sb.ToString
    Log(sb)
End Sub


Sub NSDictionaryToMap(Dictionary As Object) As Map
    Dim NewMap As NativeObject
    NewMap = NewMap.Initialize("B4IMap").RunMethod("convertToMap:",Array(Dictionary))
    Return NewMap
End Sub

Erel said:

This method doesn't work with barcodes.

You can use the following code to find the detected rectangle:
View attachment 130081

B4X:

Sub scanner_Detected (Codes As List)
    Dim sb As StringBuilder
    sb.Initialize
    sb.Append("Detected code:").Append(CRLF)
    Dim corners As List = Codes.Get(0).As(NativeObject).GetField("corners")
    Panel2.Visible = True
    Dim minx = 100000, maxx = 0, miny = 100000, maxy = 0 As Int
    For Each o As Object In corners
        Dim m As Map = NSDictionaryToMap(o)
        minx = Min(minx, m.Get("X"))
        maxx = Max(maxx, m.Get("X"))
        miny = Min(miny, m.Get("Y"))
        maxy = Max(maxy, m.Get("Y"))
    Next
    Panel2.SetLayoutAnimated(0, minx, miny, maxx - minx, maxy - miny)
    sb.Append(Codes.Get(0).As(BarcodeCode).Value)
    Label1.Text = sb.ToString
    Log(sb)
End Sub


Sub NSDictionaryToMap(Dictionary As Object) As Map
    Dim NewMap As NativeObject
    NewMap = NewMap.Initialize("B4IMap").RunMethod("convertToMap:",Array(Dictionary))
    Return NewMap
End Sub

Panel2 is a B4XView panel.

Click to expand...