Что то он один файл проигрывает

← →
^KROT^ (2005-03-26 12:07) [0]

if SaveImage = "on" then
begin
Image1.Picture.LoadFromFile("c:\Chas\BITMAP\33x33green.bmp");
SaveImage :="off";
OpenFileChasForWrite;
MediaPlayer1.FileName :="c:\chas\media\1.wav";
MediaPlayer1.DeviceType :=dtAutoSelect;
MediaPlayer1.Play;
end
else
begin
Image1.Picture.LoadFromFile("c:\Chas\BITMAP\33x33red.bmp");
SaveImage :="on";
OpenFileChasForWrite;
MediaPlayer1.FileName :="c:\chas\media\2.wav";
MediaPlayer1.DeviceType :=dtAutoSelect;
MediaPlayer1.Play;
end;

Ребят, что то этот фрагмент только 1.wav проигрывает только.
А должно сначало 1.wav потом 2.wav по условию

← →
^KROT^ (2005-03-26 13:55) [1]

Ладно попробую проще
if x=1 then
begin
MediaPlayer1.FileName :="c:\chas\media\1.wav";
MediaPlayer1.DeviceType :=dtAutoSelect;
MediaPlayer1.Play;
end
else
begin
MediaPlayer1.FileName :="c:\chas\media\2.wav";
MediaPlayer1.DeviceType :=dtAutoSelect;
MediaPlayer1.Play;
end
Странно, вот просто загружает один файл 1.wav и повиг на второе условие. Толи имя файла не изменяется, уже не знаю че делать.
Может есть другой способ файл воспроизвести?

← →
Магнитон Борыч (2005-03-26 19:56) [2]

> ^KROT^ (26.03.05 13:55) [1]
> if x=1 then
> Странно, вот просто загружает один файл 1.wav и повиг на второе условие.

Ничего странного.
Вторй файл будет воспроизводиться, когда x <> 1.
Ты ведь сам задаешь:

Если х = 1 то
играть 1.wav
иначе
играть 2.wav

В любов случае будет играть только один файл.

LMD

Что то он один файл проигрывает Найти похожие ветки