Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Проблема с KOLMediaPlayer   Найти похожие ветки 

← →
fandm2001   (2003-10-09 18:26) [0]

Подскажите, пожалуйста, порядок настройки использования объекта TMediaPlayer, нигде не нашёл простейшего примера проигрывания мелодии. Я так понимаю он может проигрывать wav и midi, но мне ещё необходимо проигрывать mp3-файлы, есть ли для них какой либо модуль?

---

← →
Gandalf ©   (2003-10-09 22:10) [1]

Он может все что может MediaPlayer...

Где-то так:



procedure TForm1.Open;
begin
 Form.CanResize:=True;
 Button2.Caption:="Play";
 if MPlayer.FileName<>"" then
   Button2.Enabled:=True;
 Button4.Enabled:=False;
 ProgressBar1.MaxProgress:=MPlayer.Length;
 if (MPlayer.Width<>0) and (MPlayer.Height<>0) then
   Form.SetSize(MPlayer.Width+Dx,MPlayer.Height+Dy)
 else
   Form.SetClientSize(Panel1.Width,Panel1.Height);
 Label1.Caption:=Time2Str(MPlayer.Position)+"/"+Time2Str(MPlayer.Length);
 MPlayer.Display:=Panel2.Handle;
 Form.CanResize:=False;
end;

 Button4.Enabled:=True;
 if Button2.Caption="Play" then
 begin
   MPlayer.Play(0,-1);
   Button2.Caption:="Pause";
 end
 else
   MPlayer.Pause:=not MPlayer.Pause;



А вообще пример был в examples для kol.

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.051 c