Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: 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 WondeR©   (2005-03-26 23:33) [3]

LMD



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

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
14-1120115366
AlexG
2005-06-30 11:09
2005.07.25
Ваши отзывы о сайте...


14-1117805628
12DFBDDh
2005-06-03 17:33
2005.07.25
Соревнование!!!!


1-1120547417
Антон Г.
2005-07-05 11:10
2005.07.25
Компоненты на форме.


14-1120463236
Layner
2005-07-04 11:47
2005.07.25
Немного об автоматизации работы.


14-1120200693
boriskb
2005-07-01 10:51
2005.07.25
Госдума навесит на телепередачи возрастные ярлыки