H
heller.f
Background
Programming language: VBA
API-Interface: MCI-Player
Software: PowerPoint 2003
Funktion: video-cut
Problem description
On a userform, I have created buttons for all functions required for a
video-control via the MCI:
Play, Stop, Pause, Play + 1 Frame, Play - 1 Frame, etc.
All these commands work properly.
An additional button shall have the function "video cut".
This button is linked to the command: vid.schnittvideo:
Vid ist he publical var fort he class module Videoplayer.
It triggers the following code in the class module:
Public Sub schnittvideo()
Dim mdcp As MCI_DGV_CAPTURE_PARMS
Dim lngret As Long
Dim lngFlags As Long
lngFlags = MCI_DGV_CAPTURE_AS
mdcp.strFileName = "e:\testneu.avi"
lngret = mciSendCommand(mlngDevID, MCI_CAPTURE, lngFlags, mdcp)
Debug.Print lngret
End Sub
mlngDevID is the saved player number.
Here are the parameters:
Type MCI_DGV_CAPTURE_PARMS
lngCallback As Long
strFileName As String
rc As RECT
End Type
1.Question
According to my understanding, the commaned MCI_CAPTURE saves the pictures
(that are currently in the picture mem) in a file.
I am not clear how to address the picture mem - or is a reference to
mlngDevID enough?
2. Question
I am also not clear whether the destination file for the pictures must
already exist or whether it will be created upon saving.
I could not find any useful docu here.
3. Question
The creation of a rectangle for the video via rc was not working.
Checking lngret I get error code 274 . Seems like a command VBA cannot
interpret.
No documentation either here.
Any ideas what this error means and how I can fix it?
Many thanks in advance for your help!
Rgds
Felix
Programming language: VBA
API-Interface: MCI-Player
Software: PowerPoint 2003
Funktion: video-cut
Problem description
On a userform, I have created buttons for all functions required for a
video-control via the MCI:
Play, Stop, Pause, Play + 1 Frame, Play - 1 Frame, etc.
All these commands work properly.
An additional button shall have the function "video cut".
This button is linked to the command: vid.schnittvideo:
Vid ist he publical var fort he class module Videoplayer.
It triggers the following code in the class module:
Public Sub schnittvideo()
Dim mdcp As MCI_DGV_CAPTURE_PARMS
Dim lngret As Long
Dim lngFlags As Long
lngFlags = MCI_DGV_CAPTURE_AS
mdcp.strFileName = "e:\testneu.avi"
lngret = mciSendCommand(mlngDevID, MCI_CAPTURE, lngFlags, mdcp)
Debug.Print lngret
End Sub
mlngDevID is the saved player number.
Here are the parameters:
Type MCI_DGV_CAPTURE_PARMS
lngCallback As Long
strFileName As String
rc As RECT
End Type
1.Question
According to my understanding, the commaned MCI_CAPTURE saves the pictures
(that are currently in the picture mem) in a file.
I am not clear how to address the picture mem - or is a reference to
mlngDevID enough?
2. Question
I am also not clear whether the destination file for the pictures must
already exist or whether it will be created upon saving.
I could not find any useful docu here.
3. Question
The creation of a rectangle for the video via rc was not working.
Checking lngret I get error code 274 . Seems like a command VBA cannot
interpret.
No documentation either here.
Any ideas what this error means and how I can fix it?
Many thanks in advance for your help!
Rgds
Felix