Using ActiveX to record a video in VB

[markshanks101]

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?

[Quovodis]

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

[soccer]

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