Hello,

My Problem is, how to translate this working line in Gambas-Syntax:
gst-launch rtspsrc location=rtsp://uid:pwd@192.168.178.21:554 !
decodebin ! autovideosink -vvv

My code is in great parts copied from the MTest.module in
Mediaplayer-example.

My code fails at hInput.Linkto(hConv).

Here the Code:

Public Sub Button7_Click()
  Dim hInput As MediaControl
  Dim hConv As Mediacontrol
  Dim hOutput As MediaControl
  $hPlayer = New MediaPipeline As "MediaPipeline"
  hInput = New MediaControl($hPlayer, "rtspsrc")
  hConv = New MediaControl($hPlayer, "decodebin")
  hOutput = New MediaControl($hPlayer, "xvimagesink")


  Try $hPlayer.Stop

  hInput["location"] = "rtsp://uid:pwd@192.168.178.21:554"

  hInput.LinkTo(hConv)
  hConv.LinkTo(hOutput)

  hOutput.SetWindow(dwgvideo, dwgVideo.Left, dwgVideo.Top,
dwgVideo.Width, dwgVideo.Height)

  $hPlayer.Play

End

I hope someone can push me on the right path.

Greetings
Daniel

------------------------------------------------------------------------------
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

Reply via email to