MPLATFORMLib Namespace > IMSenders Interface : SendersGetByIndex Method |
Sub SendersGetByIndex( _ ByVal _nIndex As Integer, _ ByRef _pbsName As String, _ ByRef _pVidProps As M_VID_PROPS, _ ByRef _pAudProps As M_AUD_PROPS _ )
void SendersGetByIndex( int _nIndex, out string _pbsName, out M_VID_PROPS _pVidProps, out M_AUD_PROPS _pAudProps )
procedure SendersGetByIndex( _nIndex: Integer; Out _pbsName: String; Out _pVidProps: M_VID_PROPS; Out _pAudProps: M_AUD_PROPS );
void SendersGetByIndex( int _nIndex, [PARAMFLAG::Out] BSTR* _pbsName, [PARAMFLAG::Out] M_VID_PROPS _pVidProps, [PARAMFLAG::Out] M_AUD_PROPS _pAudProps )
Here is example of how to obtain names of all senders' objects:
Dim senders As New MSendersClass() Dim nCount As Integer senders.SendersGetCount(nCount) Dim vidProps As M_VID_PROPS Dim AudProps As M_AUD_PROPS Dim strName As String For i As Integer = 0 To nCount - 1 senders.SendersGetByIndex(i, strName, vidProps, AudProps) Next
MSendersClass senders = new MSendersClass(); int nCount; senders.SendersGetCount(out nCount); M_VID_PROPS vidProps; M_AUD_PROPS AudProps; string strName; for (int i = 0; i < nCount; i++) { senders.SendersGetByIndex(i, out strName, out vidProps, out AudProps); }
var myName: string; mySenders: MSenders; myVid: M_VID_PROPS; myAud: M_AUD_PROPS; i, nCount: integer; begin mySenders:= CreateComObject(CLASS_MSenders) as MSenders; mySenders.SendersGetCount(nCount); for i:=0 to nCount-1 do mySenders.SendersGetByIndex(i, myName, myVid, myAud); end;