HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Плеер на компоненте MP Delphi7
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Плеер на компоненте MP Delphi7
  #1  
Старый 02.02.2008, 06:28
smOleg
Banned
Регистрация: 30.11.2007
Сообщений: 114
С нами: 9708371

Репутация: 54
По умолчанию Плеер на компоненте MP Delphi7
Может кто для себя делал поделитесь.. осьо наткунлся на ехе состряпал на 2м курсе.. оно звучит лучше чем любой проигрователь но тут только плей, стоп і громкость)

Вобщем кто для себя делал хоть с какимто функционалом.. там перемотка, шоб можна было назначить его дефолтным плеером плейлисты може
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 02.02.2008, 12:45
Joker-jar
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
С нами: 10088966

Репутация: 646


По умолчанию
Цитата:
оно звучит лучше чем любой проигрователь
компонент то юзает Media Player майкрософтский, им пробуй
 
Ответить с цитированием

  #3  
Старый 02.02.2008, 13:52
smOleg
Banned
Регистрация: 30.11.2007
Сообщений: 114
С нами: 9708371

Репутация: 54
По умолчанию
да он похоже) Ато помоему во всех проигрователях свои улучшайзеры неотключаемые.. надоели
 
Ответить с цитированием

  #4  
Старый 02.02.2008, 21:08
AlfoGnom
Новичок
Регистрация: 17.01.2008
Сообщений: 1
С нами: 9639055

Репутация: 0
По умолчанию
Только пару нюансов..
там не будет прокрутки.. прочих, порой просто необходимых вещей..
Для того чтобы сделать прокрутку надо добавить компонент Timer и ..вообщем вот код:
Цитата:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ScrollBar1.Position:=Round(MediaPlayer1.Position/MediaPlayer1.Length*ScrollBar1.Max);
end;
а чтобы она нормально работала, надо еще создать событие по ScrollBar.Change
и туда дописать:
Цитата:
procedure TMainForm.ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
MPlayer.Position:=Round(ScrollBar.Position*MPlayer .Length/ScrollBar.Max);
MPlayer.Play;
end;
Хотя всё тоже самое можно сделать и для TrackBar.. если нужны "риски"(насечки)..
если нужен будет регулятор громкости(stereo\mono)..скажите.. выложу..
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
QIP History Sender v. 0.2 (Delphi) Скорпион Skype, IRC, ICQ, Jabber и другие IM 87 10.08.2010 03:43
С какого Delphi начинать max_rebel С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 19 07.01.2008 01:19
Какой плеер купить? min7 Болталка 14 27.12.2007 22:12
Сервис на Delphi Api весом 1849 байт execom С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 6 14.12.2007 12:04



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.