PHP DM Gate v0.9 » Проблема с KOLMediaPlayer

Сидор (10.11.07 10:06) [0]

Пытался проиграть файл с помощью стандартной функции
NewMediaPlayer.Play(0, -1);

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

<Цитата>
Jon © (10.11.07 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

<Цитата>
Сидор (10.11.07 17:42) [2]

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

<Цитата>
Jon © (10.11.07 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.

<Цитата>
Сидор (10.11.07 19:31) [4]

Jon, thank you for help sincerely :)

<Цитата>
Jon © (10.11.07 19:44) [5]

Пожалуйста.

<Цитата>
MTsv DN (10.11.07 22:46) [6]

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

<Цитата>
MTsv DN (10.11.07 22:47) [7]

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

<Цитата>
D[u]fa © (11.11.07 10:04) [8]

ого, Jon отжог)

<Цитата>
mdw © (11.11.07 14:46) [9]

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

<Цитата>