[Gambas-user] Problem to play flash (svf) movie

Almanova Sistemi almanova at ...1228...
Thu Sep 3 08:41:28 CEST 2009


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



More information about the User mailing list