Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MediaPlayer, Пожалуйста помогите! 
:(
    Опции темы
SoftLines
  Дата 11.7.2004, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Здравствуйте, помогите мне пожалуйста сделать программу! Короче всё я сделал добавление в PlayList музыку, пути к ней, так вот вопрос:

Как сделать, чтобы MediaPlayer проигрывал музыку по очереди из ListBox1, прошу помогите если поможете, то ещё пожалуйста помогите сделать так, чтобы при добовление он добовлял только название файла без адреса, например
"D:\Music\eminem - lose your self.mp3" а надо только
"Eminem - Lose Your Selft"
Зарание говорю всем спасибо! biggrin.gif
PM MAIL   Вверх
Albinos_x
Дата 11.7.2004, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Делай массив или типа записи, а в листбокс загружай только имена файлов, для этого есть АПИ функция


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
p0s0l
Дата 11.7.2004, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112
Тогда нужно где-то еще хранить полные пути к файлам (можно сделать через Items.Objects), а можно переписать OnDrawItem, чтобы тот обрезал путь.
Для поочередного проигрывания используй OnNotify (не проверял, но взято из DRKB):
Код
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin with MediaPlayer1 do
   if NotifyValue = nvSuccessful then
     begin
       Notify := True;
// открываешь следующий файл из ListBox'а
       Play;
     end;
end;




--------------------
С уважением, г-н Посол.
PM   Вверх
SoftLines
Дата 11.7.2004, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Так вот если у меня пути в base.ini он ладно загружает при нажатие в ListBox в невидемое поле и проигравает из него, а мне надо, чтоб он автоматом после проигрывания файла следующий начал проигрывать
PM MAIL   Вверх
Alkash
Дата 12.7.2004, 01:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


коллекционер жизни
**


Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет
Беги на игроманию и в разделе журнальных публикаци ищи стаью - Медиа-Комбайн.Там всё доходчиво.


--------------------
Подпись >> /dev/null
PM MAIL ICQ MSN   Вверх
SoftLines
Дата 12.7.2004, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Там я не нашёл, а ответа на свой вопрос в этом форуме не получил!
PM MAIL   Вверх
Pakshin A. S.
Дата 12.7.2004, 09:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Цитата

он автоматом после проигрывания файла следующий начал проигрывать

Где-то я уже это слышал...пользуйся поиском!!!
Добавлено @ 09:56
А вот и подходящая статья:
TMediaPlayer
PM   Вверх
SoftLines
Дата 12.7.2004, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Спасибо, но я всё обыскал мне блин не найти! sad.gif
PM MAIL   Вверх
Pakshin A. S.
Дата 12.7.2004, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Что? В предложенной статье разве не то обсуждается?!
Цитата

Есть динамический массив a, который содержит имена файлов (1.avi, 2.avi, ..... n.avi).
Как заставить TMediaPlayer проиграть все файлы по очереди?
Заранее спасибо!

На твой случай не похоже?
Цитата

Так вот если у меня пути в base.ini он ладно загружает при нажатие в ListBox в невидемое поле и проигравает из него, а мне надо, чтоб он автоматом после проигрывания файла следующий начал проигрывать


Главно - понять смысл, а потом уже подогнать к своему приложению.
PM   Вверх
SoftLines
  Дата 12.7.2004, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Короче ещё раз, он загружает в поле невидемое, и какбы после проигрывания 1 файла он должен переключить следующую запись в ListBox1 тем самым загрузить адрес в поле, а плеер должен проиграть следующий файл! sad.gif

Это сообщение отредактировал(а) SoftLines - 12.7.2004, 10:27
PM MAIL   Вверх
Pakshin A. S.
Дата 12.7.2004, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Вот кое что набросал:
Код

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 MPlayer, ExtCtrls, StdCtrls;

type
 TForm1 = class(TForm)
   MediaPlayer1: TMediaPlayer;
   Timer1: TTimer;  // Interval = 1; Enabled = False
   ListBox1: TListBox;
   ListBox2: TListBox;
   procedure Timer1Timer(Sender: TObject);
   procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

var
id:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
if (MediaPlayer1.NotifyValue = nvSuccessful) and (MediaPlayer1.Mode=mpStopped) and (id < ListBox1.Items.Count)
 then
  begin
   {Осуществляем переход на другую песню}
   MediaPlayer1.Close;
   MediaPlayer1.FileName:=ListBox1.Items[id];//спрятанный список с именами файлов
   inc(id);
   MediaPlayer1.Open;
   MediaPlayer1.Play;
   {Осуществляем визуальный переход}
   i:=ListBox2.ItemIndex;
   ListBox2.ItemIndex:=i+1;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
id:=1;
MediaPlayer1.FileName:=ListBox1.Items[0];
MediaPlayer1.Open;
MediaPlayer1.Play;
Timer1.Enabled:=True;
ListBox2.SetFocus;
ListBox2.ItemIndex:=0;
end;

end.

Добавлено @ 10:29
За точность if'а не ручаюсь. К вечеру будет точнее.
PM   Вверх
SoftLines
Дата 12.7.2004, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
А спрятанный тот который ListBox1.Items[id]?
PM MAIL   Вверх
Pakshin A. S.
Дата 12.7.2004, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
А что с ним?

P. S.
С if'ом всё в полном порядке.
PM   Вверх
SoftLines
Дата 12.7.2004, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Нет чтоб разобраться! И там в нём похоже хранятся пути к файлам да? sad.gif
PM MAIL   Вверх
Albinos_x
Дата 12.7.2004, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
У мелиаплеера есть событие

procedure TForm8.MediaPlayer1Notify(Sender: TObject);

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


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
SoftLines
Дата 12.7.2004, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Я уже отследил, теперь прошу помочь мне правильно сделать! Тоесть!
При нажатеи кнопки добавить файл, мне надо записать в базу
А потом считать от туда, как мне это сделать! smile.gif
PM MAIL   Вверх
Albinos_x
Дата 12.7.2004, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Пользуйся ЛистБоксом для отображения. А так создай переменную типа запись и добавляй туда пути и имена файлов и оттуда же читай.


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
SoftLines
Дата 12.7.2004, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
А можешь пример написать? Плиз! sad.gif
PM MAIL   Вверх
Albinos_x
Дата 12.7.2004, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108
Цитата

// создадим свой тип
type
// тип запись
TSpisok = record
    // суда будем записывать путь и имя файла 
    FileName: string;
  // допустип сюда номер файда в списке, допустип будет необходим для сортировки или ещё чего
    NumerFile:Integer;
    // сюда можно дописать какие-то необходимые свойства файла(лов)
    // например длина, имя, артистов и т.д.
......
  end;
// опишем массив (он будет без ограничений типа и размера)
var Spisok: array of TSpisok;
......
// кнопка добавить файл
procedure TForm1.ButtonClick(Sender: Object);
var
    i:integer;
begin
// увеличиваем длину массива
// нумерация идёт с "0"
i:= Length(Spisok) + 1;
SetLength(Spisok, i );
// записываем путь и имя файла
Spisok[i].FileName:=S;
// записываем номер файла
//Делаем на 1 больше, чтобы нумерация была от "1"
Spisok[i].NumerFile:=i+1;
end;
....
// освобождаем память
SetLength(Spisok, 0);
...
end;





--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
SoftLines
Дата 12.7.2004, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
А как записать в файл всё инфу?
PM MAIL   Вверх
Pakshin A. S.
Дата 12.7.2004, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Как я понял, у тебя ini:
Код

// переменные верхнего кода

var
f:TIniFile;
i:integer;

begin
f:=TIniFile.Create('base.ini' );
for i:=1{или 0} To Length(Spisok) do
 f.WriteString('Sounds', 'FileNo'+IntToStr(i), Spisok[i].FileName);
f.Free;
end;
// Структура файла описана в товоём же топике про чтение из файла

И вообще а бы завёл:
Spisok:array of string;
Зачем засорять память?
PM   Вверх
SoftLines
Дата 13.7.2004, 07:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


ЗАБАНЕН
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: нет
Всего: 1
Как как правильно прочитать файл!
PM MAIL   Вверх
Даниил
Дата 13.7.2004, 08:19 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Понимаете короче, дело в том, что те невидемое поле это не ListBox1 а edit1, так вот при окончание проигравания первого файла, должен ListBox переключиться на планку ниже при этом загрузить в Edit1.text путь который появляется при нажатие на item ListBox'a! sad.gif
  Вверх
Pakshin A. S.
Дата 13.7.2004, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61
Вечером всё будет!
PM   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0648 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.