Проблема с KOLMediaPlayer [Delphi, Windows]
fandm2001 © (2003-10-09 18:26:00)
Подскажите, пожалуйста, порядок настройки использования
объекта TMediaPlayer, нигде не нашёл простейшего примера
проигрывания мелодии. Я так понимаю он может проигрывать wav и
midi, но мне ещё необходимо проигрывать mp3-файлы, есть ли для них
какой либо модуль?
Gandalf (2003-10-09 22:10:00) [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.
Наверх 
ЧАТ |
Орешник |
|
