![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужен компонент как TMediaPlayer.
VEG © (2001-12-27 19:37:00)Пишу для события 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;
Музыка играет, обрывается и начинается сначала как-бы с пробелом, хотя мне нужно без пробела. Чего посоветуете??? Может какой-нить компонент есть такого плана???
Wizard_Ex (2001-12-29 18:59:00) [1]Есть предложение п поводу.
в Фак чего есть
посмотри...
Не найдешь, - пиши, но там точно есть
Григорий Ситнин (2001-12-28 14:22:00) [2]Если не найдешь компонента - попробуй создать несколько медиалпееров и по OnNotify говорить нужному из них .Play... Разумеется, .Open надо вызывать до, так как именно он и тормозит по большей части. А вообще - попробуй использовать API, куда лучше для твоих целей...