Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Почему не работает PlaySound(); ?

Автор: Aleksey 10.4.2002, 13:01

Почему -то не работает PlaySound(); Подозреваю, что не проинсталлир Directx
, но мне он не нужен ,
тогда какую функцию можно использовать для вызова Wav -файла из
своей проги ?

Автор: inko 10.4.2002, 13:09

У меня тоже неработает.
Посмотри ответ здесь...

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi

Я еще не пробовал.

Автор: neutrino 11.4.2002, 09:31

Попробуй так:

Код


var
       h1, h2: THandle;
       p: pointer;
     begin
        h1:=FindResource(HInstance, 'DATA', 'WAVE');
        h2:=LoadResource(HInstance,h1);
        p:=LockResource(h2);
        sndPlaySound(p, SND_ASYNC or SND_MEMORY);
        if (h2 <> 0) then begin
          UnlockResource(h2);
          FreeResource(h2);
        end;
     end;

Автор: Kaban4eG 16.2.2009, 22:50

Код


MediaPlayer1.FileName:='clap.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;

У меня такой вариант работает))) smile

Автор: Alexeis 16.2.2009, 22:59

Kaban4eG, не прошло и 7ми лет...

Автор: Данкинг 16.2.2009, 23:12

Цитата(Kaban4eG @ 16.2.2009, 22:50

)

У меня такой вариант работает)))

Актуальную тему поднял. smile

Только всё же у тебя MediaPlayer, а там нужен был именно PlaySound...

Добавлено через 31 секунду

Цитата(Alexeis @ 16.2.2009, 22:59

)

не прошло и 7ми лет...

А ведь не прошло семи лет... smile

Автор: neutrino 17.2.2009, 08:53

Кстати, что там со сруками? smile

Автор: Alexeis 17.2.2009, 10:15

Чтобы закрыть полезный вопрос, приведу ссылку на рабочий пример из форума http://forum.vingrad.ru/forum/topic-180237/kw-%D0%BF%D1%80%D0%B8%D1%82%D0%BE%D1%80%D0%BC%D0%B0%D0%B6%D0%B8%D0%B2%D0%B0%D0%B5%D1%82-%D1%80%D0%B0%D0%BC%D0%BC%D1%83.html