iOS Question B4i MLKit BarcodeScanner – Random app termination during QR code recognition

Application_Start
Start at: 13:02:43
Application_Active
Process preview frame no. 1 at: 13:02:44
...
Process preview frame no. 22 at: 13:02:46
[MEM] App footprint: 127.94 MB | System free: 1013.44 MB
...
Process preview frame no. 275 at: 13:02:55
[MEM] App footprint: 154.67 MB | System free: 969.59 MB
...
Process preview frame no. 441 at: 13:03:01
[MEM] App footprint: 170.56 MB | System free: 958.22 MB
...
Process preview frame no. 926 at: 13:03:20
[MEM] App footprint: 215.11 MB | System free: 970.81 MB
...
Process preview frame no. 5461 at: 13:05:54
[MEM] App footprint: 936.56 MB | System free: 867.36 MB
...

'QRCodeScanner.bas
Sub Class_Globals
    ' CornerPoints clockwise starting from top left to bottom left
    Type QRCodeScannerResult (Success As Boolean, Codes As List, ErrorMessage As String)
    Type QRCode(Text As String, CornerPoints(4) As QRCodePoint)
    Type QRCodePoint (x As Float, y As Float)
   
    Private mnoNativMe As NativeObject
    Private scanner As NativeObject
   
    Private Const MLKBarcodeFormatQRCode As Int = 256   ' 0x0100
   
End Sub

Public Sub Initialize
    mnoNativMe = Me

    Dim options As NativeObject
    'options = options.Initialize("MLKBarcodeScannerOptions").RunMethod("new", Null)
    options = options.Initialize("MLKBarcodeScannerOptions").RunMethod("alloc", Null).RunMethod("initWithFormats:", Array(MLKBarcodeFormatQRCode))

    Dim cls As NativeObject
    cls.Initialize("MLKBarcodeScanner")

    Try
        scanner = cls.RunMethod("barcodeScannerWithOptions:", Array(options))
    Catch
        ' Fallback
        scanner = cls.RunMethod("barcodeScanner", Null)
    End Try
End Sub


Public Sub Finalize
    Log("QRCodeScanner Finalize called")
    Try
        If scanner.IsInitialized Then
            Dim no As NativeObject = Me
            no.RunMethod("closeScanner", Null)
            'scanner = Null
        End If
        mnoNativMe = Null
    Catch
        Log($"Finalize error: ${LastException.Message}"$)
    End Try
End Sub


#If OBJC
- (void)closeScanner {
    @autoreleasepool {
        // 1. Laufende Dispatch-Tasks abbrechen
        if (mlkitQueue != nil) {
            dispatch_sync(mlkitQueue, ^{ });
        }

        // 2. Alle noch gehaltenen Bilder entfernen
        if (inflightImages != nil) {
            [inflightImages removeAllObjects];
            inflightImages = nil;
        }

        // 3. Barcode-Scanner-Objekt freigeben (wenn du eines hältst)
        self->__scanner = nil;

        // 4. Optional: URL-Cache & CoreAnimation flushen
        [[NSURLCache sharedURLCache] removeAllCachedResponses];
        [CATransaction flush];

        NSLog(@"[QRCodeScanner] closeScanner: resources released");
    }
}
#End If

Public Sub Recognize(bmp As Bitmap) As ResumableSub
    Dim res As QRCodeScannerResult
   
    Dim code As NativeObject
    Dim v As NativeObject
    Dim cg As NativeObject
    Dim points As NativeObject
   
    Dim fmt As Int
    Dim n As Int
   
    Dim xy() As Float
    Dim px As Float
    Dim py As Float
   
    res.Initialize
    res.Codes.Initialize
   
    'Log("Start Recognize")
   
    Dim no As NativeObject = Me
    no.RunMethod("processImage:withScanner:", Array(ImageToMLImage(bmp), scanner))

    Wait For Process_Result(Success As Boolean, Barcodes As Object)
   
    bmp = Null
   
    res.Success = Success

    If Success Then
       
        For Each code As NativeObject In Barcodes
            fmt = code.GetField("format").AsNumber
            If fmt = MLKBarcodeFormatQRCode Then
                Dim resCode As QRCode
                resCode.Initialize
               
                resCode.Text = code.GetField("displayValue").AsString   ' alternativ: rawValue
                points = code.GetField("cornerPoints")
                If points <> Null And points.IsInitialized Then
                    n = points.RunMethod("count", Null).AsNumber

                    For j = 0 To n - 1
                        v = points.RunMethod("objectAtIndex:", Array(j)) ' NSValue<CGPoint>
                        cg = v.RunMethod("CGPointValue", Null)            ' -> NSData (struct)
                        xy = mnoNativMe.ArrayFromPoint(cg)                             ' -> [x,y]
                        px = xy(0)
                        py = xy(1)
                        resCode.CornerPoints(j).x = px
                        resCode.CornerPoints(j).y = py
                    Next
                End If
                res.Codes.Add(resCode)
            End If
        Next
       
        code = Null
        v = Null
        cg = Null
        points = Null
    End If

    'Log("End Recognize")
    Return res
End Sub

' Converts B4i bitmap to MLKit VisionImage
Private Sub ImageToMLImage(bmp As Bitmap) As NativeObject
    Dim image As NativeObject
    Return image.Initialize("MLKVisionImage").RunMethod("alloc", Null).RunMethod("initWithImage:", Array(bmp))
End Sub

#If OBJC
#import <MLKitVision/MLKitVision.h>
#import <MLKitBarcodeScanning/MLKitBarcodeScanning.h>

static dispatch_queue_t mlkitQueue;
static NSMutableArray<MLKVisionImage*> *inflightImages;

- (dispatch_queue_t)mlkitQueue {
    if (mlkitQueue == nil) {
        mlkitQueue = dispatch_queue_create("com.example.qr.mlkit.serial", DISPATCH_QUEUE_SERIAL);
    }
    return mlkitQueue;
}

- (NSMutableArray *)inflightImages {
    if (inflightImages == nil) {
        inflightImages = [NSMutableArray new];
    }
    return inflightImages;
}

- (void)processImage:(MLKVisionImage*)image withScanner:(MLKBarcodeScanner*)scanner {
    __weak typeof(self) weakSelf = self;
    NSMutableArray *strongInflight = [weakSelf inflightImages];
    dispatch_queue_t queue = [weakSelf mlkitQueue];

    [strongInflight addObject:image];

    dispatch_async(queue, ^{
        @autoreleasepool {
            [scanner processImage:image
                       completion:^(NSArray<MLKBarcode *> * _Nullable barcodes,
                                    NSError * _Nullable error) {
                @autoreleasepool {
                    __strong typeof(self) strongSelf = weakSelf;
                    if (!strongSelf) return;

                    [[strongSelf inflightImages] removeObject:image];

                    BOOL ok = (error == nil && barcodes != nil);
                    id payload = ok ? ({ B4IList *lst = [B4IList new]; lst.object = barcodes; lst; }) : [NSNull null];

                    if (!ok && error) {
                        NSLog(@"MLKit barcode error: %@", error.localizedDescription);
                    }

                    dispatch_async(dispatch_get_main_queue(), ^{
                        __strong typeof(self) strongSelf2 = weakSelf;
                        if (!strongSelf2) return;

                        [strongSelf2.bi raiseUIEvent:nil
                                              event:@"process_result::"
                                             params:@[@(ok), payload]];
                    });
                }
            }];
        }
    });
}
#End If

'CameraTest.bas
Sub Class_Globals
    Private llc As LLCamera


    Private PreviewPanel As Panel

    Private frontCamera As Boolean = False

    Private scanner As QrCodeScanner
    Private busy As Boolean
    Private overdue As Boolean
    Private previewNum As Int
    Private previewLast As Long
    
    Private CallBack As Object
    Private Eventname As String
    
    Private memMon As MemoryMonitor

End Sub

Public Sub Initialize(pCallBack As Object, pstrEventname As String, pnl As Panel)
    CallBack = pCallBack
    Eventname = pstrEventname
    PreviewPanel = pnl
    
    InitializeCamera(frontCamera)

    scanner.Initialize
    
    busy = False
    overdue = False
    previewNum = 0
    previewLast = DateTime.Now
    
    memMon.Initialize(True)   ' True = AutoStart alle 2 Sekunden
    Log("Start at: " & DateTime.Time(DateTime.Now))
End Sub

Sub InitializeCamera(front As Boolean)
    If llc.IsInitialized Then
        llc.StopPreview
    End If
    
    llc.Initialize(PreviewPanel, "llc", front)
    llc.StartPreview

    ConfigureCamera
End Sub

Private Sub ConfigureCamera
    Try
        llc.BeginConfiguration
        llc.FlashMode = llc.FLASH_AUTO
        llc.PreserveRatio = True
        llc.CommitConfiguration
    Catch
        Log("Error configuring camera: " & LastException.Description)
    End Try
End Sub

Private Sub Page1_Resize(Width As Int, Height As Int)
    llc.Resize
End Sub

Sub llc_Preview(Image As Bitmap)
    
    'Log($"Preview no. ${previewNum} at: ${DateTime.Time(DateTime.Now)}"$)
    previewNum = previewNum + 1

    If previewNum Mod 500 = 0 Then
        overdue = True
    End If
    
    Dim lngNow As Long = DateTime.Now
    If lngNow - previewLast < 250 Then
        'Log("Too early")
        llc.ReleaseFrame(Image)
        Return
    End If
    
    previewLast = lngNow
    Log($"Process preview frame no. ${previewNum} at: ${DateTime.Time(DateTime.Now)}"$)
    
    If Not(busy) Then
        busy = True
        If overdue Then
            resetScanner(False)
        End If
        Dim bmp As Bitmap = Image.Resize(Image.Width / 2, Image.Height / 2, True)
        llc.ReleaseFrame(Image)
        Image = Null
        processBitmap(bmp)
    Else
        Log("Still busy")
        llc.ReleaseFrame(Image)
    End If
    
End Sub

Sub resetScanner(hard As Boolean)
    Log("Before Reset scanner")
    memMon.LogCurrentUsage
    scanner.Finalize
    If hard Then
        scanner = Null
        Dim s As QrCodeScanner
        s.Initialize
        scanner = s
    Else
        scanner.Initialize
    End If
    Log("After Reset scanner")
    memMon.LogCurrentUsage
    overdue = False
End Sub

Sub processBitmap(pBmp As Bitmap)
    Wait For (scanner.Recognize(pBmp)) Complete (Result As QRCodeScannerResult)
    pBmp = Null
    If Result.Success And Result.Codes.Size > 0 Then
        CallSub2(CallBack, Eventname & "_Found", Result)
    End If
    busy = False
End Sub