Страница 1 из 1

Проблема с TMediaPlayer

Добавлено: 31 янв 2007, 10:49
Yura_ua
Когда я пытаюсь воспроизвести wav с помощью TMediaPlayer, то получаю ошибку: "Устройство MCI не поддерживает даную команду". Как быть и что делать?
Вот код программы:

procedure Form1.button1click(sender:TObject);
begin
with Form1.MediaPlayer1 do
begin
devicetype:=dtWaveAudio;
fileName:='d:\1\1.wav');
open;
play;
end;
end;

Re: Проблема с TMediaPlayer

Добавлено: 31 янв 2007, 17:55
BBB
Если нужно просто воспроизвести WAV-файл, то не проще ли воспользоваться API-функцией PlaySound?

Re: Проблема с TMediaPlayer

Добавлено: 07 фев 2007, 23:00
Yura_ua
Вообще-то проще, но интересно, почему он не работает?
А PlaySound-ом и так пользуюсь. Кстати, а можно ли "спрятать" WAV или MIDI в RES-файл?

Wav в ресурсах

Добавлено: 08 фев 2007, 09:27
BBB
Про MIDI точно не скажу... не знаю ((c) "Тихие троечники")
А вот WAV как аз недавно запихивал в ресурс.

Запихивал через Wizard (СИшный, MS вижуал студийный), а полулось вот что:

В файле resourse.h обявление константы-ID Ресурса:

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

#define IDR_MYSOUND_WAV                   134
В ресурс-файле:

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

IDR_MYSOUND_WAV           WAVE    DISCARDABLE     "res\\signal.wav"
А воспроизведние (извиняйте, что СИшная нотация :) ):

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

       if (PlaySound (
            MAKEINTRESOURCE (IDR_MYSOUND_WAV),
            AfxGetResourceHandle ( ),
             SND_RESOURCE | SND_ASYNC)) {
        };

Re: Wav в ресурсах

Добавлено: 08 фев 2007, 18:21
Yura_ua
Спасибо, работает!

Re: Wav в ресурсах

Добавлено: 16 фев 2007, 13:40
Yura_ua
Немного попользовался PlaySound и теперь у меня не читают WAV WinAmp, MediaPlayer и BSPlayer. Что случилось?