Форум АНТИЧАТ

Форум АНТИЧАТ (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)

smOleg 02.02.2008 06:28

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

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

Joker-jar 02.02.2008 12:45

Цитата:

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

smOleg 02.02.2008 13:52

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

AlfoGnom 02.02.2008 21:08

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


Время: 11:48