Private Sub AddCustomFormat(Convert As ltmmConvert)
Dim Format As IltmmTargetFormat
' add a new format at the end of the formats list
Convert.TargetFormats.Add "My Own Format", -1
Set Format = Convert.TargetFormats.Item(Convert.TargetFormats.Count
- 1)
' set the format's sink filter: this example uses "LEAD
Network Sink (2.0)"
Format.Sink = "@device:sw:{083863F1-70DE-11D0-BD40-00A0C911CE86}\{E2B7DE05-38C5-11D5-91F6-00104BDB8FF9}"
' set the format's mux filter: : this example uses "LEAD
Network Multiplexer A module that combines audio and video into one file. (2.0)"
Format.Mux = "@device:sw:{083863F1-70DE-11D0-BD40-00A0C911CE86}\{E2B7DE01-38C5-11D5-91F6-00104BDB8FF9}"
' specifiy what streams your new format can have
Format.Streams
= ltmmTargetFormat_Stream_Audio Or ltmmTargetFormat_Stream_Video
' verify streams if needed ...
' and that's it
Set Format = Nothing
'later, update TargetFormat wirh the new format' index to
use your new format.
End Sub