Как проиграть

← →
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]

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

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

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

Вот код:
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 . Это толко кусок кода.

Имя файла хранится где-то в памяти. Ты присваиваешь первое значение. Потом присваиваешь второе, которое записывается в то же самое место в памяти. Оно затирает первое. Потом третье затирает второе. Потом ты говоришь играй - и плеер играет тот файл, который сейчас он знает. А это - 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]

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