MCIObject("ИмяОбъекта","Команда")

Пояснение Передает команду MCI-объекту. Доступны следующие команды: Play Pause Stop Close

Примеры ** Воспроизведение в MCI-объекте MCIObject("MCI_Object","Play") ** Остановка воспроизведения в MCI-объекте MCIObject("MCI_Object","Stop")

MCICommand("КомандаMCI")

Пояснение Эта команда передает строку устройству. Строка содержит команду MCI, которая определяет поведение устройства. С помощью этой команды вы можете получить доступ к устройствам для воспроизведения MPEG, видеодисков, записи звука, просмотра анимации и так далее. В строке вы можете использовать относительные пути <SrcDir>, <SrcDrive> или <CD>. Чтобы указать устройству, что окно проекта MMB является родительским, используйте макрос <This>. Для более подробной информации о строках MCI смотрите файл Mcistr.hlp, находящийся в каталоге MMB.

Примеры Вот небольшой пример, показывающий, как запустить видеофайл в окне проекта: MCICommand("open <SrcDir>\sample.mpg alias MPEG style child parent <This>") MCICommand("put MPEG window at 100 50 200 200") MCICommand("window MPEG state hide") MCICommand("play MPEG") ** Управление треем CD-привода MCICommand("set cdaudio door open") MCICommand("set cdaudio door closed") Некоторые команды MCI могут возвращать значение (например, число треков на компакт-диске). Переменная MCIResult будет хранить целочисленное значение. ** Возвращает количество треков на CD MCICommand("status cdaudio number of tracks") DisplayValue("Text","MCIResult") ** Возвращает длину первого трека (в секундах) MCICommand("status cdaudio length track 1") DisplayValue("TextTotalSec","MCIResult") ** Возвращает состояние аудио CD MCICommand("status cdaudio mode") If (MCIResult=-2) Then   Message("Диск проигрывается","") End If (MCIResult=-1) Then   Message("Диск остановлен","") End

Дополнительная информация Для более полного понимания и изучения синтаксиса, ознакомьтесь с документацией Microsoft или файлом Mcistr.hlp, установленным в каталог MMB. Внимание! Команды MCI обращаются к устройству напрямую - будьте готовы к сбоям, если вы собираетесь экспериментировать! Примечание: Устройства MCI имеют ограничение по длине пути к файлу в 128 символов! Если ваши файлы находятся во вложенных каталогах, и длина пути более 128 символов, то файлы воспроизводиться не будут. Также, если путь содержит пробелы, не забудьте заключить его в кавычки, как показано в этом примере: file$='<SrcDir>\sample.mpg' open$='open "'+file$+'" alias MPEG style child parent <This>' MCICommand("open$")