Объект Device/Свойства/SoundList

Свойство SoundList возвращает список доступных звуковых файлов.

Синтаксис

VARIANT SoundList

Описание

Свойство SoundList позволяет получить список звуковых файлов доступных для воспроизведения. Путь поиска определяется свойством SoundPath. Если свойство вызывается без параметров - возвращается одномерный массив содержащий список только звуковых файлов. Если указан любой параметр - список файлов возвращается в виде двумерного массива. Каждая строка - отдельный звук или каталог. Значение столбцов:

• 0 - название звука/папки;
• 1 - тип элемента (1-звук, 2-папка, 3-библиотека);
• 2 - внутренний идентификатор звука/папки (нумерация с 1);
• 3 - ссылка на идентификатор родителя;
• 4 - уровень вложенности звука/папки (0 - корневой уровень)

Массив звуков иерархический. Иерархия определяется ссылками на родительский элемент.

Примеры

Пример на JavaScript

var Device = new ActiveXObject ("CallOffice.Device");

var List = Device.SoundList.toArray ();      // Получаем список доступных звуковых файлов 

var SoundList = "Cписок доступных звуковых файлов\n\n";

for (i = 0; i < List.length; i++) {
   SoundList += List[i] + "\n";                 // Получаем атрибуты звука/папки
}
alert (SoundList);                              // Выводим имя звука на экран


var List = Device.SoundList(1).toArray ();      // Получаем список доступных звуковых файлов и каталогов с атрибутами     

var SoundList = "Cписок доступных звуковых файлов и каталогов\n\n";

for (i = 0; i < List.length; i++) {
   var Sound = List[i].toArray ();              // Получаем атрибуты звука/папки
   SoundList += Sound[0] + "\n";
}

alert (SoundList);                              // Выводим имя звука и папки на экран

Пример на VBScript

Dim Device
Set Device = CreateObject ("CallOffice.Device")

List = Device.SoundList                                          ' Получаем список доступных звуковых файлов      
SoundFileList = "Cписок доступных звуковых файлов" + Chr(13) + Chr(13)

for i = 0 to UBound (List)
   SoundFileList = SoundFileList + List(i) + Chr(13)
next
MsgBox SoundFileList ,  vbOkOnly + VbInformation, "Звуки"         ' Выводим имена звуков


List = Device.SoundList (1)                                       ' Получаем список доступных звуковых файлов и каталогов с атрибутами
SoundFileList = "Cписок доступных звуковых файлов и папок" + Chr(13) + Chr(13)

for i = 0 to UBound (List)
   SoundFileList = SoundFileList + List(i)(0) + Chr(13)
next
MsgBox SoundFileList ,  vbOkOnly + VbInformation, "Звуки/папки"    ' Выводим имена звуков и папок

Назад к свойствам объекта Device.