Нужен компонент как 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, куда лучше для твоих целей...

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

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