| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать? [D5, Win95/98, Win2k]
harismatik © (2002-07-25 15:36:00)Господа. Есть такой стандартный компонент, как TMediaPlayer. Через него в программе проигрывается некоторый звуковой файл. Есть необходимость сделать так, чтобы этот файл игрался до тех пор, пока не будет в программе нажата кнопка, которая бы остановила проигрывание (MediaPlayer.Stop). Ну, по типу как в WinAmp опция Replay.Кто знает?
harismatik (2002-07-25 17:13:00) [1]2 RV
Я знаю, что это дубликат. Просто при отправке произошел сбой и пришлось слать еще раз. А на сайте зафиксировались обе.
А вариант с Notify пожалуй подойдет :)
Щас попробуем.
RV (2002-07-25 16:44:00) [2]баден-баден, однако http://delphi.mastak.com/cgi-bin/forum.pl?look=1&id=1027597055&n=2
или так теперь модно?
onNotify - посмотри
я когдато порнуху так смотрел (чтоб подряд шло)
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
i:=i+1;
if i=7 then close;
MediaPlayer1.Close;
MediaPlayer1.FileName:=s[i];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
ToMe (2002-07-25 16:06:00) [3]Я бы посоветовал использовать функцию Playsound, там есть возможность пукать звук по кругу, но если тебе нужен именно MediaPlayer, то:
1. Компонент TTimer
2. Создаешь событие onTimer
3. в нем: если MP.position=MP.Lenght то MP.position:=0
4. Дальше надеюсь понятно
| |
