Форум: "KOL";
Текущий архив: 2008.11.02;
Скачать: [xml.tar.bz2];
Вниз
Проблема с 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 ;-)
← →
D[u]fa © (2007-11-11 10:04) [8]ого, Jon отжог)
← →
mdw © (2007-11-11 14:46) [9]Еще я где то выкладывал отдельно миди плеер, он умеет из памяти играть миди.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2008.11.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c
