| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с KOLMediaPlayer

Сидор ©   (2007-11-10 10:06:00) 

Пытался проиграть файл с помощью стандартной функции
NewMediaPlayer.Play(0, -1);
Компилятор нагло заявляет, что функции не хватает параметров...
Вариант с PlaySoundFile тоже не помог - она категорически отказывается признавать файлы *.mid музыкой :)
Что делать?

---

mdw   (2007-11-11 14:46:00) [1]

Еще я где то выкладывал отдельно миди плеер, он умеет из памяти играть миди.

---

D[u]fa   (2007-11-11 10:04:00) [2]

ого, Jon отжог)

---

MTsv DN   (2007-11-10 22:47:00) [3]

Ха-а-а... 1:0 в пользу Jona ;-)

---

MTsv DN   (2007-11-10 22:46:00) [4]

Ха-а-а... 1:0 в пользу Jona ;-)

---

Jon   (2007-11-10 19:44:00) [5]

Пожалуйста.

---

Сидор   (2007-11-10 19:31:00) [6]

Jon, thank you for help sincerely :)

---

Jon   (2007-11-10 18:15:00) [7]

Assign a variable to PMediaPlayer and manipluate it:

program koltest;

uses
 KOL, KOLMediaPlayer;

var
 MediaPlayer: PMediaPlayer;
 btnStopStart: PControl;

procedure btnStopStartClick(Dummy: Pointer; Sender: PObj);
begin
 if MediaPlayer.State = mpPlaying then
   MediaPlayer.Stop
 else
   MediaPlayer.Play(0,-1);
end;

begin
 Applet := NewForm(nil,'koltest');
 MediaPlayer := NewMediaPlayer('onestop.mid',Applet.GetWindowHandle);
 MediaPlayer.Play(0,-1);
 btnStopStart := NewButton(Applet,'Stop/Start').AutoSize(True).CenterOnParent;
 btnStopStart.OnClick := TOnEvent(MakeMethod(nil,@btnStopStartClick));
 Run(Applet);
end.

---

Сидор   (2007-11-10 17:42:00) [8]

Спасибо огромное за помощь, теперь работает.
Только вот музыка не хочет останавливаться по команде Stop...

---

Jon   (2007-11-10 14:31:00) [9]

Example:

program koltest;

uses
 KOL, KOLMediaPlayer;

begin
 Applet := NewForm(nil,'koltest');
 NewMediaPlayer('onestop.mid',Applet.GetWindowHandle).Play(0,-1);
 Run(Applet);
end.

Use updated version: http://kolmck.net/Components/multimedia/KOLMediaPlayer.zip

---

Наверх