Скачать: CL | DM;

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

← →
^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

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

---

← →
AlterEgo of WondeRu ©   (2005-03-26 23:33) [3]

LMD

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c