Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

Проиграть мелодию 10 раз   Найти похожие ветки 

 
Grinder ©   (2004-02-16 18:56) [0]

как проиграть 10 раз мелодию чтобы программа не висла?
      for k := 0 to 10 do
      begin
        MediaPlayer.Wait:=true;
        MediaPlayer.Play;
        Application.ProcessMessages;
      end;

Но при проигрывании прога виснит нагло. Как сделать чтобы не было зависона?


 
jel ©   (2004-02-16 19:31) [1]


> MediaPlayer.Wait:=false


 
Grinder ©   (2004-02-17 17:29) [2]

тогда он залпом пройдется по циклу и проиграет только 1 раз!


 
Digitman ©   (2004-02-18 15:23) [3]

делай это в доп.код.потоке


 
Mihey ©   (2004-02-18 19:34) [4]

Не, ну есть же OnNotify.


 
Александр1   (2004-02-19 19:03) [5]

Заводишь процедуру Timer1. Измеряешь величину мелодии и ставишь задержку на Timer равную длинне мелодии. Поставь счётчик k:=k+1
if k=10 then MediaPlayer.Wait:=falsе Вот и все!!!!


 
Александр1   (2004-02-19 19:04) [6]

Кстати измерить длинну мелодии можно с помощь обыкновенного любого проигрывателя.


 
Mihey ©   (2004-02-19 19:38) [7]

>Измеряешь величину мелодии и ставишь задержку на Timer равную длинне мелодии.

Я вас вообще не понимаю. Вы справку читали? Книги читали? Зачем пользоваться таймером, который неточный, который может сработать раньше, может позже, когда есть замечательное событие OnNotify, которое срабатывает, когда мелодия заканчивает играть?



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

Форум: "Media";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.035 c
1-1083433797
Leos
2004-05-01 21:49
2004.05.16
Прокрутка


1-1083583187
SashaNevid
2004-05-03 15:19
2004.05.16
Обращение к Edit ам по индексам?


3-1082540349
V l a d i m i r
2004-04-21 13:39
2004.05.16
Целостность на уровне ссылок в Paradox


3-1082402955
mur
2004-04-19 23:29
2004.05.16
# вместо русских букв в таблице в Database Desktop


3-1082370014
Filat
2004-04-19 14:20
2004.05.16
Как sql-ем Дельфийским выбрать записи, скажем с 20-й по 52?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский