MPLATFORMLib Namespace > MComposerClass Class : StreamsGetByIndex Method |
Public Overridable Sub StreamsGetByIndex( _ ByVal _nIndex As Integer, _ ByRef _pbsStreamID As String, _ ByRef _ppStream As MItem _ )
public virtual void StreamsGetByIndex( int _nIndex, out string _pbsStreamID, out MItem _ppStream )
public procedure StreamsGetByIndex( _nIndex: Integer; Out _pbsStreamID: String; Out _ppStream: MItem ); virtual;
public: virtual void StreamsGetByIndex( int _nIndex, [PARAMFLAG::Out] BSTR* _pbsStreamID, [PARAMFLAG::Out] MItem* _ppStream )
Here is example of how to set some properties to all streams in mixer:
'initialize a mixer Dim m_objMixer As New MMixerClass() m_objMixer.ObjectStart(Nothing) m_objMixer.FilePlayStart() 'add streams to the mixer Dim pItem As MItem m_objMixer.StreamsAdd("", Nothing, "C:\myFile.wmv", "", pItem, 1.0) m_objMixer.StreamsAdd("", Nothing, "C:\myFile1.wmv", "", pItem, 1.0) m_objMixer.StreamsAdd("", Nothing, "C:\myFile2.wmv", "", pItem, 1.0) et "loop" to "false" for all streams Dim nFiles As Integer = 0 m_objMixer.StreamsGetCount(nFiles) For i As Integer = 0 To nFiles - 1 Dim myItem As MItem Dim strStreamID As String m_objMixer.StreamsGetByIndex(i, strStreamID, myItem) DirectCast(myItem, IMProps).PropsSet("loop", "false") Next
//initialize a mixer MMixerClass m_objMixer = new MMixerClass(); m_objMixer.ObjectStart(null); m_objMixer.FilePlayStart(); //add streams to the mixer MItem pItem; m_objMixer.StreamsAdd("", null, @"C:\myFile.wmv", "", out pItem, 1.00); m_objMixer.StreamsAdd("", null, @"C:\myFile1.wmv", "", out pItem, 1.00); m_objMixer.StreamsAdd("", null, @"C:\myFile2.wmv", "", out pItem, 1.00); //set "loop" to "false" for all streams int nFiles = 0; m_objMixer.StreamsGetCount(out nFiles); for (int i = 0; i < nFiles; i++) { MItem myItem; string strStreamID; m_objMixer.StreamsGetByIndex(i, out strStreamID, out myItem); ((IMProps)myItem).PropsSet("loop", "false"); }
var myItem: MItem; myProps: IMProps; myMixer: MMixer; myFile: IMfile; myObject: IMObject; myStreams: IMstreams; myIndex, i, nCount: integer; myStreamID: widestring; begin //initialize a mixer myMixer:= CreateComObject(CLASS_MMixer) as MMixer; myStreams:= myMixer as IMStreams; myFile:= myMixer as IMFile; myObject:= myMixer as IMobject; myObject.ObjectStart(nil); myFile.FilePlayStart(); //add stream to the mixer myStreams.StreamsAdd('', nil, 'C:\myFile.wmv', '', myItem, 2.0); myStreams.StreamsAdd('', nil, 'C:\myFile1.wmv', '', myItem, 2.0); myStreams.StreamsAdd('', nil, 'C:\myFile2.wmv', '', myItem, 2.0); myStreams.StreamsGetCount(nCount); for i:=0 to nCount-1 do begin myStreams.StreamsGetByIndex(1, myStreamID, myItem); myProps:= myItem as IMProps; myProps.PropsSet('loop', 'false'); end; end;