Hello to everyone. I'm writing an application in gambas2 for play various movies files.
I don't have any problems with mplayer that works very well but I can't play flash movies. I use gnash for this. My code: PUBLIC SUB Play() DIM aHandle AS NEW Pointer[] SELECT CASE LCase(Right(NumImmagini[Cont], 3)) CASE "avi", "mov", "vob", "swf" Timer1.Enabled = FALSE dwgMovie = NEW DrawingArea(FInput) dwgMovie.Height = dwgImage.Height '455 dwgMovie.Width = dwgImage.Width '651 dwgMovie.X = dwgImage.X '182 dwgMovie.Y = dwgImage.Y '203 Filmato = (sWorkDir &/ "Immagini" &/ NumImmagini[Cont]) IF LCase(Right(NumImmagini[Cont], 3)) = "swf" THEN $hProcess = EXEC ["gnash", "-1", "-x", dwgMovie.Handle, Filmato] FOR INPUT OUTPUT AS "$hProcess" ELSE $hProcess = EXEC ["mplayer", "-vo", "xv", "-nortc", "-framedrop", "-fs", "-quiet", "-wid", dwgMovie.Handle, Filmato, "-ss", "1.19", "-vf", "blackframe=100:32,scale=480:640"] FOR INPUT OUTPUT AS "$hProcess" ENDIF END SELECT END Can anyone help me? Regards. Massimo ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user