http://gambas.8142.n7.nabble.com/Video-from-Class-feeds-a-DrawingArea-problem-td59987.html
Hi Ingo, I think you can solve the problem with this code [0][1] from Vuott Gambas-it.org member. If you want, you can also join our Forum and ask questions in English. [0]----------------code in FMain: Public vc As VideoClass Public Sub Button1_Click() vc = New VideoClass vc.drwArea.Refresh() End [1]----------------code in VideoClass.class: Public hPipe As MediaPipeline Public hSource As MediaControl Public hSink As MediaControl Public hdrwVideo As DrawingArea Property {drwArea} As DrawingArea Public Sub _new() With hdrwVideo = New DrawingArea(fmain) .X = 0 .Y = 0 .W = FMain.W .H = 400 .Background = Color.Transparent End With hPipe = New MediaPipeline As "hPipe" hSource = New MediaControl(hPipe, "v4l2src") hSource["device"] = "/dev/video......" hSink = New MediaControl(hPipe, "xvimagesink") hSource.LinkTo(hSink) hSink.SetWindow(hdrwVideo) hPipe.Play() End Private Function drwArea_Read() As DrawingArea Return hdrwVideo End Private Sub drwArea_Write(Value As DrawingArea) hdrwVideo = Value hSink.SetWindow(hdrwVideo) End ----------------------------------end code. Regards Gianluigi ------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, Slashdot.org! http://sdm.link/slashdot _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user