Webcam mediaview Überlauf

[yoda]

Moin,

System Arch Linux Gambas 3.20.2

unter /linux Mint funktioniert alles gut aber unter Arch Linux bekomme ich eine Fehlermeldung.

gambasFehleruberlauf.png (193.49 KiB) 264 mal betrachtet

gambas code

Public Sub ButtonScan_Click()
      Dim dw As DesktopWindow
      Dim yodaScreenshot As Picture
      Dim qrtext As String
      Dim tmpstr As String[]
      Dim volknummer As String
      Dim i As Integer
      
 ' Wait 0.1     ' dieses Wait nur bei meinen Test, da ich hier mit Rechtsklick das Menü im MediaView1 aufrufe!
  With dw = New DesktopWindow(MediaView1.Handle)
    yodaScreenshot = .GetScreenshot(True)
  End With
  ' falls gewünscht dieses zu speichern
   yodaScreenshot.Save("/home/" & user.Name & "/mienimmen/QRCodes/tmp_qrcode.png", 100)
  'yodaScreenshot.Save(User.Home &/ "tmp_qrcode" & ".png", 100)
  
   Shell "zbarimg /home/" & user.Name & "/mienimmen/QRCodes/16.png" Wait To qrtext
    
   tmpstr = Split(qrtext, "=")
   volknummer = Replace(tmpstr[1], "\n", "")
   
    
   FMain.Button2_Click()
   stockkarte.volknr = volknummer
   stockkarte.holmadaten()
   
  For i = 0 To stockkarte.ComboBoxVolker.Count - 1
     
    If InStr(stockkarte.ComboBoxVolker.List, "Nr." & volknummer) Then 
      stockkarte.ComboBoxVolker.Index = i
      Break
    Endif
  Next
   
End

Public Sub ComboBox1_Click()

   Dim camUrl As String

   camUrl = "v4l2:///dev/v4l/by-id/usb-HCVsight_FHD_webcam-video-index1"
   MediaView1.Stop
   MediaView1.URL = "v4l2:///dev/v4l/by-id/" & ComboBox1.Text
   Print "v4l2:///dev/v4l/by-id/" & ComboBox1.Text
   MediaView1.Play
   

End

Lg Dirk

[vuott]

-

[Bonus]

DesktopWindow ist Teil von gb.desktop.x11 und funktioniert nur auf x11-Desktops, nicht auf Wayland.