Вот я собрался написать видео/аудио плеер .Впринцепи фейс хочу сделать, как в лайт аллоу.И с эти у меня возникаюь трудности :

1.Как во время работы приложение изменять иконки на SpeedButton или BtnButton ?(при наведение на кнопку при нажатии ect.)
2.Каким компонентном лучше пользоваться - MediaPlayer или BASS.(Впринципе использовал бы BASS , но мне же еще нажо видео показывать.Зато в BASS можно и графический еквалайзер и обычный.)
3.Как поменять вид TrackBar или подскажите какие то компоненты для изменения стиля...(Как реализовать использование шкурок , как в лайт еллоу.)
4.Как реальзовать полоску в, которая есть в любых проигрывателях (ну та ,которую двигаеш и позиция песни изменяеться)


Буду очень признателен , если хоть чем нить поможете.

Ну если брать сабж, то у меня такие соображения (я бы старался так сделать):

1) Не использовать ни SpeedButton ни BtnButton, а писать свой компонент или юзать уже готовый, который поддерживает 3 состояния (как минимум ).
2) Свой проигрыватель ;) Чтобы он был сабжем, а не вариацией медиаплеера, то желательно делать так. Но если тебе уже или то или то, то тогда обоими: MediaPlayer при показе видео и BASS только для звука
3) Ой, это вроде или ручками (зато как это интересно: переписать все компоненты!!!) или torry.net
4) Полоску где? TTrackBar в самом простом случае или тебе на самом видео полоску надо делать? Если на видео, то тогда забудь про MediaPlayer и пиши свой проигрыватель полностью. Это не так уж и просто, но если есть зннания и терпение, то тогда может что и выйдет

Тут нужны компоненты DynamicSkinForm

Полоску - ну не знаю как обьяснить ..Которая показывает позицию песни и если ее поменять то на другой позиции играть будет .. тупо на форме трек бар - но MediaPLayer1.POsition:=TrackBar.Position - не пашет , ана оборот если - то менять положение трек бара нельзя....

DynamicSkinForm- он у меня есть ...не знаю как пользоваться...

+ Один вопросик - при изменении размеров панели(на которой видео показываться) тормозят *.avi при это другие форматы не тормозят

Цитата

Полоску - ну не знаю как обьяснить ..Которая показывает позицию песни и если ее поменять то на другой позиции играть будет .. тупо на форме трек бар - но MediaPLayer1.POsition:=TrackBar.Position - не пашет , ана оборот если - то менять положение трек бара нельзя....

Код

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;  var DoDefault: Boolean); begin TrackBar1.Max:=MediaPlayer1.TrackLength[0]; end; procedure TForm1.Timer1Timer(Sender: TObject); var e : tnotifyevent; begin e:=TrackBar1.OnChange; trackBar1.OnChange:=nil; TrackBar1.position:=MediaPlayer1.position; trackBar1.OnChange:=e; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin MediaPlayer1.position:=TrackBar1.position;   MediaPlayer1.Play; end;

Цитата

+ Один вопросик - при изменении размеров панели(на которой видео показываться) тормозят *.avi при это другие форматы не тормозят

Как известно, avi это контейнер, в котором могут быть очень разные форматы, поэтому не очень ясно, из-за чего это. Возможно твой компонент, который играет видео ищет кодек по расширению... МедиаПлеер, так он точно так делает, что не есть хорошо. Если лайтэлоу можт воспроизвести авишку, если у неё расширение .myavi то твой сабж не сделает этого :/... Как исправить? Или искать другой компонент, или опять же лезть в дебри и самому работать с кодеками.

Спасибо что подсказал - прада твой код не работает ...НУ трек бар то двигаеться я изминить я его не могу (положение)....
Добавлено @ 12:08
Ой извиви - все работает!!!!

А тогда возникает другой вопрос - как сделать что бы при появлении формы трек бар не был в самом конце(ну вот эта полосочка) Если добавлять в Form create не помагает , если ставить if TrackBAr.Position <> 0 then ... тогда позицию полосочки менять нельзя ??И приперетаскивание трекбара позиция песни не менялась , а менялась только тогда когда эту полосочку отпускаеш ...надеюсь меня понили

Код

А тогда возникает другой вопрос - как сделать что бы при появлении формы трек бар не был в самом конце(ну вот эта полосочка) Если добавлять в Form create не помагает , если ставить if TrackBAr.Position <> 0 then ... тогда позицию полосочки менять нельзя ??

Решение - устанавливать TrackBar.Position=0, a TrackBar.MAX=1!

Цитата

И приперетаскивание трекбара позиция песни не менялась , а менялась только тогда когда эту полосочку отпускаеш ...надеюсь меня понили

Я хотел сразу так сделать, но у TrackBar нет событий с мышкой. Тут надо или переписать TrackBar или torry.net или писать свой.

А вы случайно не знаете , как в лайт алоу при перемещении ползунка звука появляеться голубая надпись и даже после отпускания его(ползунка) держиться еще около секунды - как ето моно сделать?

Тогда по сути нужно забыть про TMediaPLayer и писать свой проигрыватель. При выводе видео там используются средства DirectX, насколько я понимаю, и тебе придётся переписывать вывод видео как минимум. Так что если хочешь по-простому, то тогда не делай эту полоску, если хочешь сделать эту полоску и весь сабж, то тогда тебе нужно искать инфу по кодекам\потоковому выводу видео и т.д.
Можешь посмотреть тут - это что-то вроде плеера с TMediaPLayer, но там скин пытались свой сделать. (хотя там трекбара нет).

P.S. А по твоим вопросам тебе нужно написать видеодвижок свой...
Добавлено @ 15:18

Цитата

DSPack  progdigy.com Можно играть divX, DVD несколькими строками: FilterGraph1.RenderFile('film.avi'); FilterGraph1.Play; FilterGraph1.stop; +яркость контраст насыщенность цвет захват кадров

Цитата

Можно использовать пакет компонентов "Multimedia Tools" (http://www.alcatech.de/download/mmtools/mmtool6.exe

Попробуй эти линки...

За линки спасибо ... Ща посмотрю .. -Аты не знаеш как из openDialog.FileName (ну типа c:\muzik\SomeSong.*) вывести имя песни (SomeSong) и имя песни с расширением (SomeSong.*) ???

http://www.alcatech.de/download/mmtools/mmtool7.exe
Вот эта ссылка на компоненты для 7-й делфы. Очень разнообразный инструментарий, на нём можно написать сабж. Плеер за 2 минуты отлично справился с тем файлом, который не смог проиграть медиаплеер+ он не критичен к расширениям. Вывод надписи поверх видео можно сострпать очень просто. Качай эту библиотеку, инсталь и попробуй разобраться.

Цитата

Аты не знаеш как из openDialog.FileName (ну типа c:\muzik\SomeSong.*) вывести имя песни (SomeSong) и имя песни с расширением (SomeSong.*) ???

Код

ExtractFileName()

Сенкс за все - но я думаю вопросов масса еще будет .. я програмить начал токо пол года назад(Turbo Paskal) ... а на дельфи и того месяца 2 .. А это на счет компонента - я его обязательно скачаю но просто думаю что не совсем правильно использовать компоненты чужие .Хотя рыться в кодеках я врядли сумею - и вам вопросик Вы со скольки програмить начали ?

Цитата

А это на счет компонента - я его обязательно скачаю но просто думаю что не совсем правильно использовать компоненты чужие

Всё равно всего не напишешь... Приходится иногда юзать, ведь цель написать плеер, а не научиться юзать DirectShow+кодеки+много разных вещей ;).
[offtop]
в 8-м класе с паскаля... сколько мне тогда было - я не помню, а считать влом
[/offtop]

Хе - я ведь тоже в конце 8 начал - а ща уже в 9.А ты не знаеш чем в винампе делали скины ? и хоть чем надо (DinamickScinForm) ??

а еще вопросик - что же лучше DSPACK или MMTools (отмечу что у меня есть клип , который не тянет ни MediaPlayer ни MMTools а зато DSpACK тянет на ура . ЗАто у MMtools дофига возможностей - 2 компонента использовать не хочу . Подскажи что круче ?(Я че то у Dspzck демок на проигрование звука не видел...)

Цитата

чем в винампе делали скины

Что-то мне подсказывает, что они сами всё писали и ничто левого не юзали .

Цитата

что же лучше DSPACK или MMTools

Так сразу не скажу, т.к. первый я в глаза не видел, но учитывая твоё описание я бы взял:
1) если мне нужно делать плеер с множеством настроек, то тогда я бы юзал второй (там этих компонентов несколько сотен, наверное)
2) если проще делать (как я понял, DSPACK более простой), то тогда можно и первый... Лушче дай линк на DSPACK и я завтра могу посмотреть.

Видно ты хорошо праздники отметил .... progdigy.com (сам мне линку давал).А ты не знаеш где можно лекарство для mmtools надыбать ...а то у меня уже дельфя из за нее глючит - сам уже пол инета обыскал - нету не фига.

лично я писал плеер под музыку и видео
в частности форматы VOB и MOV, и во чё я скажу
dx опции - это круто (2000 строк кода и аквалайзер был готов) но
MM значительно легче, именно по этому я использовал
некую смесь интерфейсов. Потом примешал Hmixer и в плеере
появилась громкость. Кому интересно пишите на [email protected],
могу даже с чем-то помочь( есе будет желание), НУ ВСЁ ТЕПЕРЬ ИДУ
ПИТЬ КОФИЙ.

Чел ты зарегься лучше или асю напиши своююю

асю писать лень, так чо пиши на мыльник.

ShuVaS
ИМХО, что-то приличное у тебя с таким опытом кодинга написать не получится: я программирую немного дольше и тоже пытался сделать плеер. Все, о чем ты писал сделать удалось, в итоге стопорнулся на плей-листах Да и памяти он жрал много, так что я забил на него (хотя начало было вроде неплохое )

плейлист хавающий память - это круто, но он я те скажу не самое дно пропости
плеера (т.к. эта пропасть бездонна). как ты пытался организовать лист :
через свободный масив или листбокс???
Добавлено @ 20:44
кстати чухи могу прислать пример своих извращений

Ты че травиш -- ??? Че там с эти млейлистом ратоботать-то.Вот памяти 3 метра жрет при музе(mp3).Организовавал все через листбокс ...

ShuVaS: Одно дело если плейлист в виде листбокса и ничего больше не нужно, другое если ты хочешь внедрить Drag&Drop+дополнительные фишки, да и про скины не забыть . Ещё бы хорошо, чтобы он подгружался фоново как в винампе и быстро редактировался при этом. Вот когда ты в своём листбоксе засунешь 10.000 песенок (и не говорите, что это много) и будешь пытаться редактировать этот список, то дай бог чтобы у тебя ничего не тормозило и не кушало память .
Так какие ещё вопросы у тебя есть актуальные по сабжу?

ща подумаю

Illusion Dolphin
Вот-вот. Через ListBox можно, но при этом мне удалось выводить только ИМЯ до файла, а не название песни...

Ребята вот так наверно :

Код

... Listbox1.Items.Add((ExtractFileName(OpenDialog1.FileName))); ...

ShuVaS: нет, я думаю, что не так ... дело не в имени файла, а в ID3v1\2 (как минимум) тэгах, которые имеются в медиа-файлах. Как доставать тэги первой версии - это есть в faq, это просто, со второй версией сложнее, но можно в нете поискать... В своё время я к сожалению ничего толкового не нашёл, но это было давно.

У меня пример есть. Но я тогда не теги читать пытался, а хотел, чтобы пользователь сам название вводил.

А я писал id3 читалку любых верий(1.0 , 1.1)и даже битрейт считывал да
и инфу о кодеках полкчал и т.д . и у меня есть примеры.

Цитата

читалку любых верий

Можно увидеть код для ID3v1.1 и ID3v2?

 ЮНИТ с интерфейсами id3 , текст примера далее(после конца юнита)




//////////////////////////////////////////////////////////////////////////////////
  

 вот пример под id3 v2






  

Это сообщение отредактировал(а) Girder - 20.6.2006, 09:05

кому надо помощи в мультимедии могу подсказать

Мн надо помошь в мультимедиа помогите розобрать с MMtool. Дайти плиз линки на мануал для него. а то я ишо ламер, даже не могу поянть как открывать видео
 файл и проиграть его не говря промперемотку и прочиее. Пожалуйста помогите!!!!!!

Если есть время, я бы воспользовался возможностями DirectX. Иначе: для воспроизведения видео можно использовать DSPack, для аудио - BASS. 

Я вобще не представляю как через DirectX видео и звук. Через DSPack не пробывал видео , а с MMTool не могу розобраться, мне хотяб мануал какойто для него или для ДСПака, или на крайний пример исходник с примерами процедур воспроизведения. А то я воше полный ламер в програмировании   

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

Чот я не нашол,в MMTool, не подумайте чтоятупой простоя это первый компонент который я устанавливаю, мож  яне там ишю?

выложите исходник мега плеера пожалуйсто

BEST13, Вообще следовало новую тему создать, а не поднимать из преисподни тему за начало 2005 года   

А кто вам сказал, что через bass.dll нельзя играть видео? У них специальная библа для этого: bassvideo.dll. Я тоже пишу плеер, но до видео не дошел еще, но обязательно буду юзать эту библу.