Проблема с KOLMediaPlayer

← →
Сидор (2007-11-10 10:06) [0]

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

← →
Jon © (2007-11-10 14:31) [1]

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

← →
Сидор (2007-11-10 17:42) [2]

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

← →
Jon © (2007-11-10 18:15) [3]

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 19:31) [4]

Jon, thank you for help sincerely :)

← →
Jon © (2007-11-10 19:44) [5]

Пожалуйста.

← →
MTsv DN (2007-11-10 22:46) [6]

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

← →
MTsv DN (2007-11-10 22:47) [7]

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

ого, Jon отжог)

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

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