Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Вниз

Прокрутка песен   Найти похожие ветки 

 
Steep ©   (2006-09-14 09:02) [0]

Есть самый простенький проигрыватель.
Есть код на перемещение трекбара
//TB_Track трекбар
if TB_Track.Focused=true then //если не ставить фокус то проигрывание подглючивает
begin
MP.Stop//MP компонента плеера (стандартная)
MP.Position:=TB_Track.Position;
MP.Play;
end;
// на таймер поставлен код
TB_Track.Position:=MP.Position;
//
Но так при перемещении  трекбара песню "глючит", а хотелось бы как в винампе перемещение песни только при опускании трекбара.
Не подскажате как сделать?


 
Elen ©   (2006-09-14 09:26) [1]


> Steep ©

Раз ты заинтересовался музыкой расскажу как я обхожу эти проблемы:
У меня есть проигрыватель Light Alloy и на него есть дока в которой описаны какие мессаги можно ему кидать для управления проигрывателем
Вот скажем LAC_PLAYBACK_STOP           = 100;
Хочу остановить проигрыш SendMessage(HandleLA,100,0,0)ю Все просто. У Винампа тоже есть подобное - так не проще тебе работать с ними а не с MP.
MP жутко грузит систему.

Но если хочеш избавиться от тормоза то КАК ВАРИАНТ выясняй над каким компонентом находится курсор. Если над TrackBar, то паузу на проигрыш.


 
Steep ©   (2006-09-14 09:41) [2]

Ето конечно все хорошо... А если у пользователя нет ни Winampa ни Light Allow?
Elen ты прям я смотрю любитель всего хорошего!!
Я конечно тоже, но свое люблю больше! :) поетому и пишу свое.., а как научусь можно и чужие ломать!!! :)


 
Elen ©   (2006-09-14 09:52) [3]


> Steep ©


П А Т Ч Е М М У   Л А М А Т??? Создатели это сами задокументировали для пользователей и даже с примерам!!! А Light Alloy вообще инсталить не надо. включи его в свой пакет и будет тее счестье. Ну учти с MP будет гемморойно...

P.S. Все любят хорошее... :-) Зачем изобретат велоSипед


 
Steep ©   (2006-09-14 09:58) [4]

так хоть поймеш как создавать эти самые велосипеды, следственно начинаешь понимать как их ремонтировать :)


 
Elen ©   (2006-09-14 10:00) [5]


> Steep ©

Так можно докатится до написания собственных прог на самом Его Величестве Асме Великом... Лучше возими готовы велосипед и приаттач к нему моторчик (от феррари :-) ) И покатаемся...


 
Steep ©   (2006-09-14 10:03) [6]

:-) ну тык я его в этом году начну изучать! (ну в крайнем случае в следующем!) :)
Для меня важна скорость и размер!


 
Elen ©   (2006-09-14 10:06) [7]


> Steep ©

Мечты... Мечты... Улетают-тают-тают... Ты хотя бы разберись с Делфой и API


 
ЮЮ ©   (2006-09-14 10:10) [8]

Код в таймере приводит в вызову кода в TrackBare.

Следует различать изменения в TrackBare, сделанные пользователем и таймером. Хотя бы так:


// на таймер поставлен код
TB_Track.OnChange := nil;
try
 TB_Track.Position:=MP.Position;
finally
 TB_Track.OnChange := TB_TrackChange;  
end;

только при опускании трекбара
использовать компонент, который обладает нужным событием.
Я использовал TRxSlider


 
Steep ©   (2006-09-14 10:45) [9]

Пасип!
Ассамблер я в универе изучать буду :)
А в делфи разбираюсь потихоньку



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.043 c
2-1159457061
maverick_man
2006-09-28 19:24
2006.10.22
Подкиньте идею


15-1159626752
Zhekacoder-Delphi
2006-09-30 18:32
2006.10.22
ЛЭТИ


15-1159766471
Бугага
2006-10-02 09:21
2006.10.22
FoxPro


1-1158052079
Моновар
2006-09-12 13:07
2006.10.22
Вопрос по TreeView


2-1159870232
XTD
2006-10-03 14:10
2006.10.22
Почему при выполнении цикла, форма виснет?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский