Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.02;
Скачать: CL | DM;

Вниз

Проблема с 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 вся ветка

Текущий архив: 2008.11.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
15-1220905107
Riply
2008-09-09 00:18
2008.11.02
Просмоторщик lib файлов.


15-1220722274
Dmitry S
2008-09-06 21:31
2008.11.02
Недокументированая возможность TStringList.Find


2-1222422249
СуперЧайник
2008-09-26 13:44
2008.11.02
Помогите


2-1221762635
Muh
2008-09-18 22:30
2008.11.02
Подскажите, пожалуйста как программно в image1 загнать картинку с


4-1198918810
Winni
2007-12-29 12:00
2008.11.02
FindNextFile