Форум АНТИЧАТ - Плеер на компоненте MP Delphi7

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Плеер на компоненте MP Delphi7 (https://forum.antichat.xyz/showthread.php?t=60744)

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

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

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

Цитата:

оно звучит лучше чем любой проигрователь

компонент то юзает Media Player майкрософтский, им пробуй

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

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