Главная страница
    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.037 c
2-1160235889
TitAn
2006-10-07 19:44
2006.10.22
Как прописать...


2-1159766533
inew
2006-10-02 09:22
2006.10.22
Перенос JPEG или BMP в MS Word


15-1159800150
vidiv
2006-10-02 18:42
2006.10.22
Шашки


15-1159535957
sergey888
2006-09-29 17:19
2006.10.22
Микрософт вплотную занялась играми


4-1149177664
DeStranger
2006-06-01 20:01
2006.10.22
Как заставить систему воспринимать USB порт как COM





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский