Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c