19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Private $hPlayer As MediaPlayerPrivate $hImage As MediaControlPublic Sub _new() $hPlayer = New MediaPlayer As "MediaPlayer" $hImage = New MediaControl($hPlayer, "ximagesink") $hPlayer.Video.Output = $hImage $hPlayer.URL = "v4l2:///dev/video0" $hImage.SetWindow(DrawingArea1) Sleep 0.1 Try $hPlayer.Play If Not Error Then Print "Ok" Else Print "Error" Try $hPlayer.Stop EndifEndPublic Sub Form_Open() End
ho visto le tue indicazioni ed un paio di esempi nel wiki (che pero' come solito non mi funzionano)
....tutti citano questo fantomatico esempio di gambas .. che io non trovo.