mciSendString не воспроизводит MP3, только WAV

[Pantalone]

Никто не знает в чем может быть проблема?
Переустанавливал кодеки k-lite, они перед установкой попросили снести что-то старое, потом поставились. Видео есть и со звуком. Тестовая прога, которая воспроизводит звуки через mciSendString играет только WAV, а на MP3 или виснет или вылетает или подвисает ненадолго и молчит. WinAmp играет MP3 без проблем.

[jangle]

Код: Выделить всё

mciSendString ("Play MPEG", "", 0, 0)

?

[Pantalone]

Это к чему можно пояснить?

[jangle]

Это к чему можно пояснить?

Как запускаешь MP3 файл, mciSendString ("Play".. или mciSendString ("Play MPEG" ?

[Pantalone]

У меня работала такая конструкция:

Код: Выделить всё

Public Function PlayFile(ByVal FileName As String, Optional ByVal Alias As String = "tune") As Boolean

   Dim nRet As Long
   
   If mciSendString("open """ & FileName & """ alias " & Alias, vbNullString, 0, 0) = 0 Then
   
      nRet = mciSendString("play " & Alias & " from 0", vbNullString, 0, 0)
     
      PlayFile = (nRet = 0)
     
   End If
   
End Function

Выходит mciSendString ("play tune"..
Не помню где это взял, но всегда работало.

[Pantalone]

Никто не подскажет еще?

[pronto]

Код: Выделить всё

'Функция для проигрывания файлов в формате *.mp3
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

'чтобы воспроизвести файл
Call mciExecute("play [i]имя_файла[/i]")

'чтобы закрыть файл
Call mciExecute("close [i]имя_файла[/i]")


[BV]

Блин. И никто не скажет, что в кирпичах лежит удобный класс с пояснениями Или сие никому не известно?
viewtopic.php?f=28&t=19356