Пятница, 19.10.2018, 13:43 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delfcode » Delphi » Процедуры и функции Delphi » Работа со звуком
Работа со звуком
dolphinДата: Пятница, 05.06.2009, 08:14 | Сообщение # 1
Администратор
Сообщений: 903
Статус: Offline
Для работы со звуковыми файлами на форму нужно поместить объект "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

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
JawДата: Среда, 30.09.2009, 17:22 | Сообщение # 2
Участник
Зарегистрирован: 09.03.2009
Группа: Пользователи
Сообщений: 70
Статус: Offline
А без MP могеш?
 
dolphinДата: Среда, 30.09.2009, 21:57 | Сообщение # 3
Администратор
Сообщений: 903
Статус: Offline
зпросто, из ресурсов!

program Project1;

uses
MMSystem;

{$R sounds.RES}

var
i: integer;
begin
for i := 1 to 4 do
PlaySound('SND1', 0, SND_RESOURCE);
end.


Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delfcode » Delphi » Процедуры и функции Delphi » Работа со звуком
  • Страница 1 из 1
  • 1
Поиск:

delfcode.ru © 2008 - 2018 Хостинг от uCoz