Сообщество Чайников

Вопрос

Объясните, как пользоваться функцией mciSendString. Хотя все команды лежат здесь, я там все равно ничего не понял, и пример из MSDN для C++ ничего не дает. Может есть у кого пример проигрывания MIDI без внешних контролов?

Ответ

Функция mciSendString
Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRlpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Платформа
Windows 95/98: Поддерживается
Windows NT: Требуется Windows NT 3.1 или выше
Windows 2000:Поддерживается
mciSendString посылает строку команды устройству интерфейса управления средой передачи данных(MCI). Устройство, которому команда послана, определено в строке команды. Строки команды, используемые с этой функцией могут исполнять почти любую задачу, необходимую для использования устройства мультимедиа, установленного на компьютере. MciSendString обеспечивает относительно простой способ исполнять операции с мультимедиа.

Смотри Команды MCI для списка некоторых строк команды, используемых функцией mciSendString

Возвращаемое значение
В успешном случае функция возвращает 0. В случае ошибки, функция возвращает код ошибки MCI отличный от нуля. Чтобы получить текстовое описание ошибки, используйте функцию mciGetErrorString.

lpstrCommand
Указатель на строку, которая определяет строку команды MCI.
lpstrReturnString
Для строк команды,возвращаюх информацию, эта строка получает вывод данных командой. Эта строка должна первоначально быть по крайней мере в длиной 128 символов, долго чтобы получить строку. Любая информация, помещенная в эту строку будет с нулевым символом в конце. Если строка команды не возвращает информацию, этот параметр игнорируется. Если никакой информации возвращения не требуется, этот параметр может быть NULL

uReturnLength

Размер в символах, буфера возвращений, указанного lpstrReturnString

hwndCallback

Если «уведомляющийся» флажок строки команды определен, это — дескриптор окна, чтобы получить сообщение MM_MCINOTIFY , когда команда завершается, ннезависимо от того, выполнена ли она или потерпело неудачу

Пример:

' Открываем или закрываем CD-ROM .
Dim retval As Long ' возвращаемое значение
Dim returnstring As Long

retval = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
'если закрыть,то используем
retval = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)

Krab

'Тоже самое, только чуть удобнее :)

Private Declare Function mciSendString Lib "winmm.dll" _ Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal _ hwndCallback As Long) As Long
Dim retval As Long Dim returnstring As Long


Private Sub Command1_Click()
retval = mciSendString("set CDAudio door open", returnstring, _ 127, 0)
End Sub

Private Sub Command2_Click()
retval = mciSendString("set CDAudio door closed", returnstring, _ 127,
0)
End Sub

unguided