The VideoLAN Forums

Posted: **09 Jun 2006 06:34**

Hi,

I'm in a university department, and we use VB to control an experimental setup. We have a video camera that records the person, and I currently use the VLCPlugin to show the video feed. It works well for this.

However, we would also like to be able to record the video that is also being displayed, and ideally have the VB program control when to start and stop the recording of the video. Getting this to work has been difficult.

I have worked out that if a shortcut has the following parameters it will record:

"C:\Program Files\VideoLAN\VLC\vlc.exe" --intf wx
dshow:// :dshow-vdev="Videum Video Capture"
:dshow-adev="" :dshow-size="" :sout=#transcode{vcodec=mp2v,vb=1024,scale=1}:duplicate{dst=std{access=file,mux=ts,url="c:\test.avi"}}

However, I don't know how to do this command in VB. I currently just set the MRL property to point to the video source before running the VB program. However, if I try and add the code to record as well, eg:

dshow:// :dshow-vdev="Videum Video Capture"
:dshow-adev="" :dshow-size=""
:sout=#transcode{vcodec=mp2v,vb=1024,scale=1}:duplicate{dst=std{access=file,mux=ts,url="c:\test.avi"}}

Then the control will display as usual, but a file isn't even made.

What am I doing wrong? How can I send commands to start and stop recording from the ActiveX control from within VB?

Posted: **10 Jun 2006 20:11**

you need to pass the command line arguments as an array of strings to the activex control as per following example

Code: Select all

 Dim Vopt(12) As String
Vopt(0) = ":dshow-vdev="""""
Vopt(1) = ":dshow-adev="""""
Vopt(2) = ":dshow-size="""""
Vopt(3) = ":dshow-caching=400"
Vopt(4) = ":dshow-chroma="""""
Vopt(5) = ":dshow-fps=25.000000"
Vopt(6) = ":no-dshow-config"
Vopt(7) = ":no-dshow-tuner"
Vopt(Cool = ":dshow-tuner-channel=0"
Vopt(9) = ":dshow-tuner-country=0"
Vopt(10) = ":dshow-tuner-input=1"
Vopt(11) = ":sout=#transcode{vcodec=mp4v,vb=1024,scale=1,acodec=mpga,ab=192,channels=2}:duplicate{dst=std{access=file,mux=ogg,url=""D:\toto.ogg""}}"

Call Me.VLCPlugin.addTarget("dshow://", Vopt, VLCPlaylistMode.VLCPlayListInsertAndGo, -666)
Me.VLCPlugin.Play

Posted: **06 Nov 2006 14:52**

The following sample does not work under VB6.
There is no display window opened and the destination file stays empty.
The used ActiveX is from vlc 0.8.4a.
Does anybody see the problem?

Code: Select all

  Dim vlc As VLCPlugin
  Dim opt(5) As String

  Set vlc = New VLCPlugin

  opt(0) = ":sout=#transcode{vcodec=mp4v,vb=1024,scale=1}"
                opt(1) = ":duplicate{dst=display,dst=std{access=file,mux=ts,dst=""C:\Temp\dest01.mpeg""}}"
  opt(2) = ":dshow-vdev=""Cameo Grabster 200"""
  opt(3) = ":dshow-adev="""""
  opt(4) = ":dshow-size="""""
  Call vlc.playlistClear
  Call vlc.addTarget("dshow://", opt, VLCPlayListInsert, 0)
  vlc.play

The VideoLAN Forums

Using ActiveX to record a video in VB

Using ActiveX to record a video in VB

Capture does not work under VB6