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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как сделать. как сделать в TMediaPlayer 
:(
    Опции темы
N3R0
Дата 10.5.2007, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Доброго времени суток !
У меня такие вопросы :
1) У меня есть ListBox с ссылками на mp3 например D:\==Music\4 = CS music\Crazy.mp3 как мне  сделать  чтобы по окончанию песни начала проигрыватся следующая.
2) Помогите мне разобратся , со свёртыванием программы в системынй трэй рядом с часами.
                                                                 Зарание спасибо. smile 

Это сообщение отредактировал(а) N3R0 - 10.5.2007, 13:19
PM MAIL   Вверх
mr.Anderson
Дата 10.5.2007, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

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



Вариант 1. При проигрывании загнать все песни из ListBox'а в массив, потом проигрывать оттуда по порядку.
Вариант 2 (лучше). При окончании проигрывания одной песни использовать ListBox->ItemIndex + 1 и проигрывать таким образом следующую.

Насчет того, как отловить окончание песни - у MediaPlayer есть событие OnNotify, а также свойство Position.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Alexeis
Дата 10.5.2007, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459



Цитата(N3R0 @  10.5.2007,  13:18 Найти цитируемый пост)
2) Помогите мне разобратся , со свёртыванием программы в системынй трэй рядом с часами.


  Это в FAQ, DRKB, поиск по форуму, куда угодно  smile. Более избитый вопрос трудно найти.





--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
N3R0
Дата 11.5.2007, 08:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата

 ListBox->ItemIndex + 1

Этот код не проходит , Пишет  Statement expected, but expression of type 'Integer' found
как сделать чтобы от выделеной строки поднялась на 1 строчку выше  smile 
PM MAIL   Вверх
N3R0
Дата 11.5.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата

а также свойство Position.

Помогите мне с Position , пожалуста.

PM MAIL   Вверх
lukas
Дата 12.5.2007, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



N3R0, ты вообще на Делфи программируешь....  smile 


 smile 

Цитата

 ListBox->ItemIndex + 1


вот... почитай учебник для начинающих... 

Делфи...
Код

ListBox.ItemIndex:=ListBox.ItemIndex+1;


Си
Код

ListBox->ItemIndex = ListBox->ItemIndex+1;






--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
mr.Anderson
Дата 12.5.2007, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

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



N3R0, я же не код дал, а только наводку. smile Мысль, так сказать, подбросил.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
kaka4
Дата 15.5.2007, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



попробуй так

Код

if MediaPlayer1.Position=MediaPlayer1.Length then begin
ListBox.ItemIndex:=ListBox.ItemIndex+1;
MediaPlayer1.FileName:=listbox1.Items.Strings[listbox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

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

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

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

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


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

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


 




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


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

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