Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.12;
Скачать: CL | DM;

Вниз

Как проиграть   Найти похожие ветки 

 
mss ©   (2006-01-26 07:41) [0]

День добрый всем! Как мне последовательно проиграть три файла в TMediaPlayer .


 
ЮЮ ©   (2006-01-27 03:32) [1]

В обработчике TMediaPlayer.OnNotify, когда оный вызовется по причине окончания проигрывания текущего файла, измени имя файла и запусим проигрыватель снова.


 
mss ©   (2006-01-27 06:18) [2]


>  когда оный вызовется по причине окончания проигрывания
> текущего файла, измени имя файла и запусим проигрыватель
> снова.

ЮЮ Спасибо. Можно ли немного кодик


 
ЮЮ ©   (2006-01-27 07:32) [3]


> Можно ли немного кодик


Ну ты даешь :)
Тогда ты покажи кодик, где определены твои три файла и каким образом ты проигрываешь первый из них :)


 
mss ©   (2006-01-27 08:12) [4]


> каким образом ты проигрываешь первый из них :)

Вот код:
  button_click
Md.filename := "c:\1.mp3";
md.filename := "c:\2.mp3";
md.filename := "c:\3.mp3";
md.open;md.play

Ну здесь играется толко 3.mp3. Мне нужен первом 1.mp3,после 2.mp3,после 3.mp3 . Это толко кусок кода.


 
TUser ©   (2006-01-27 09:09) [5]

Имя файла хранится где-то в памяти. Ты присваиваешь первое значение. Потом присваиваешь второе, которое записывается в то же самое место в памяти. Оно затирает первое. Потом третье затирает второе. Потом ты говоришь играй - и плеер играет тот файл, который сейчас он знает. А это - 3.

Сделай так. Заведи массив с именами файлов
const PlayList: array [0..2] of shortstring =
 ("...,", "...", "...");

Создай указатель на текущюю композицию
var Cursor: integer = -1; // пока ничего не играем

Создай процедуру перехода к селдующей композиции
procedure Next;
begin
 inc (Cursor); // инкременируем указатель

 // Усли все проиграли уже, то выход
 if Cursor >= length (PlayList) then
   exit;

 // Устанавливаем имя файла
 md.FileName:=PlayList[Cursor];

 // Играем
 md.Open;
 md.Play;
end;

Запускай певый файл
Cursor:=-1; // А вдруг мы уже все проиграи и Cursor = 3, тогда вернем его в начало
Next;

При окончании проигрывания также делаем
Next
, как определить окончание - см. [1]



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

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

Наверх




Память: 0.48 MB
Время: 0.027 c
15-1138016916
Pazitron_Brain
2006-01-23 14:48
2006.02.12
Оцените творчество моего брата.


2-1138192080
medvedenator
2006-01-25 15:28
2006.02.12
Инсталлятор


15-1138175479
Kerk
2006-01-25 10:51
2006.02.12
Татьянин день


15-1137339360
Piter
2006-01-15 18:36
2006.02.12
Я плакал :)) А это правда?


4-1133225072
Германн
2005-11-29 03:44
2006.02.12
Как перезапустить службу на удаленном компьютере