Такая вот проблема! - Общие вопросы Delphi

Cassius · 18.05.2011, 10:22

Привет всем! Возникла такая проблема!

Код:

procedure TForm1.sButton1Click(Sender: TObject);
begin
mediaplayer1.FileName:='sound/key.wav';
with MediaPlayer1 do
begin
open;
Play;
end;
Form2.Show;
form1.visible:=false;
end;

первую нормально проигрывает, а далее на другой форме.

Код:

procedure TForm5.sPanel8Click(Sender: TObject);
begin
mediaplayer1.FileName:='sound/klick.wav';
with MediaPlayer1 do
begin
open;
Play;
end;
end;

выходит ошибка...

дайте совет в чем проблема?

SERG1980 · 18.05.2011, 10:41

Может для проигрывания ваших вэйвов достаточно будет ф-ии SndPlaySound

Код:

uses MMSystem
SndPlaySound('sound/key.wav', SDN_ASYNC)

18.05.2011, 10:22	#1
Cassius Пользователь Регистрация: 04.12.2009 Сообщений: 28	Такая вот проблема! Привет всем! Возникла такая проблема! Код: `procedure TForm1.sButton1Click(Sender: TObject); begin mediaplayer1.FileName:='sound/key.wav'; with MediaPlayer1 do begin open; Play; end; Form2.Show; form1.visible:=false; end;` первую нормально проигрывает, а далее на другой форме. Код: `procedure TForm5.sPanel8Click(Sender: TObject); begin mediaplayer1.FileName:='sound/klick.wav'; with MediaPlayer1 do begin open; Play; end; end;` выходит ошибка... дайте совет в чем проблема?

18.05.2011, 10:41	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Может для проигрывания ваших вэйвов достаточно будет ф-ии SndPlaySound Код: `uses MMSystem SndPlaySound('sound/key.wav', SDN_ASYNC)`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ребят такая вот проблема ...	LeKaN	Фриланс	11	22.05.2010 01:25
Вот такая вот задача, C++	aztec	Помощь студентам	2	10.06.2009 17:27
Вот такая задачка...	nark25	Паскаль, Turbo Pascal, PascalABC.NET	1	31.05.2009 23:40