как загрузить mp3 файл?

[goodwen]

Здраствуйте, подскажите как загрузить mp3 файл? Идея такая, что есть 7 кнопок, при наведение на каждую издаётся короткий звук (нота), вот как именно етот звук загрузить в программу?

[raxp]

если нота, можно и без mp3... просто windows.beep(freq,delay)... а ежели все-же хочется mp3, то mcisendstring()

[mutabor]

Сообщение от goodwen

Здраствуйте, подскажите как загрузить mp3 файл? Идея такая, что есть 7 кнопок, при наведение на каждую издаётся короткий звук (нота), вот как именно етот звук загрузить в программу?

TMediaplayer.LoadFromFile. Читай про TMediaplayer.

Если ноты, то можно их проигрывать с помощью MIDI. В винде есть программный MIDI синтезатор, Дельфи оболочка к нему находится в MMSystem.pas.

[goodwen]

Спасибо за помощь. Я тут начал разбираться с TMediaplayer, скачал небольшой пример с этого сайта и не совсем могу разобраться с этим, вот например:
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer := TMediaPlayer.Create(self); // создание компонент MediaPlayer
MediaPlayer.ParentWindow := Form1.Handle;
MediaPlayer.Visible := False;

Это создаёт сам компонент этого плеера? и как он его создаёт?

а далее:MediaPlayer.FileName :=
и вот ту мне непонятно как путь к файлу записать.
и путаюсь что делать дальше, я как понял потом просто в процедуре кнопки написать:
try
MediaPlayer.Play; // воспроизвести звуковой фрагмент
except
on EMCIDeviceError do ;
end;
подскажите пожалуста правильно ли я понял?

[SERG1980]

А может проще использовать wave файлы . и ф-ию SNDPlaySound

[Alex Cones]

А может проще использовать wave файлы . и ф-ию SNDPlaySound

Тем паче, что Плеер достаточно медленно соображает, и если нажать на кнопку и запустить его (а тем более с созданием), то пройдет около полусекунды, перед запуском.

[Vladya]

Сообщение от goodwen

а далее:MediaPlayer.FileName :=
и вот ту мне непонятно как путь к файлу записать.
и путаюсь что делать дальше, я как понял потом просто в процедуре кнопки написать:
try
MediaPlayer.Play; // воспроизвести звуковой фрагмент
except
on EMCIDeviceError do ;
end;
подскажите пожалуста правильно ли я понял?

MediaPlayer1.FileName:='Sound/default.mp3';


try
MediaPlayer1.Open;
MediaPlayer.Play;

как то так вродебы...