| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что то он один файл проигрывает [D7, WinME]

^KROT^ ©   (2005-03-26 12:07:00) 

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 по условию

---

AlterEgo of WondeRu   (2005-03-26 23:33:00) [1]

LMD

---

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

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

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

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

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

---

^KROT^   (2005-03-26 13:55:00) [3]

Ладно попробую проще
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 и повиг на второе условие. Толи имя файла не изменяется, уже не знаю че делать.
Может есть другой способ файл воспроизвести?

---

Наверх