Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как проиграть [D7, Win95/98, WinXP]

mss © (2006-01-26 07:41:00)
День добрый всем! Как мне последовательно проиграть три файла в TMediaPlayer .

TUser (2006-01-27 09:09:00) [1]
Имя файла хранится где-то в памяти. Ты присваиваешь первое значение. Потом присваиваешь второе, которое записывается в то же самое место в памяти. Оно затирает первое. Потом третье затирает второе. Потом ты говоришь играй - и плеер играет тот файл, который сейчас он знает. А это - 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]

mss (2006-01-27 08:12:00) [2]

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

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

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

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

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

mss (2006-01-27 06:18:00) [4]

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

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

ЮЮ (2006-01-27 03:32:00) [5]
В обработчике TMediaPlayer.OnNotify, когда оный вызовется по причине окончания проигрывания текущего файла, измени имя файла и запусим проигрыватель снова.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »