Скачать: CL | DM;

Нужен компонент как TMediaPlayer.   Найти похожие ветки 

← →
VEG ©   (2001-12-27 19:37) [0]

Пишу для события OnNotifly:
procedure TFormMain.MPlMusicNotify(Sender: TObject);
begin
If MPlMusic.Position=MPlMusic.Length Then
begin
Case TupeGame of
1:MPlMusic.FileName:="Music\Fon1.wav";
2:MPlMusic.FileName:="Music\Fon2.wav";
3:MPlMusic.FileName:="Music\Fon2.wav";
MPlMusic.Open;
MPlMusic.Play;
end;
end;
Музыка играет, обрывается и начинается сначала как-бы с пробелом, хотя мне нужно без пробела. Чего посоветуете??? Может какой-нить компонент есть такого плана???

---

← →
Григорий Ситнин ©   (2001-12-28 14:22) [1]

Если не найдешь компонента - попробуй создать несколько медиалпееров и по OnNotify говорить нужному из них .Play... Разумеется, .Open надо вызывать до, так как именно он и тормозит по большей части. А вообще - попробуй использовать API, куда лучше для твоих целей...

---

← →
Wizard_Ex ©   (2001-12-29 18:59) [2]

Есть предложение п поводу.
в Фак чего есть
посмотри...
Не найдешь, - пиши, но там точно есть

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c