Плеер на компоненте MP Delphi7

[smOleg]

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

Вобщем кто для себя делал хоть с какимто функционалом.. там перемотка, шоб можна было назначить его дефолтным плеером плейлисты може :)

[Joker-jar]

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

[smOleg]

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

[AlfoGnom]

Только пару нюансов..
там не будет прокрутки.. прочих, порой просто необходимых вещей..
Для того чтобы сделать прокрутку надо добавить компонент 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)..скажите.. выложу..