Для работы со звуковыми файлами на форму нужно поместить объект "MediaPlayer".
Чтобы открыть звуковой файл, можно воспользоваться следующим кодом:
Procedure Open_Wav(f:string);
begin
form1.MediaPlayer1.close;
form1.MediaPlayer1.FileName:=f;
try
form1.MediaPlayer1.Open;
except
end;
end;
Здесь "f" - это имя звукового файла.
Если указан не полный путь, то файл ищется в текущем каталоге.
Пример открытия и проигрывания звукового файла:
Open_Wav('zv4.wav');
try
form1.MediaPlayer1.Play;
except
end;
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
