Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Мультимедиа » Воспроизвести аудиофайл без использования TMediaPlayer

Воспроизвести аудиофайл без использования TMediaPlayer

Автор: Артем Алмазов

Иногда нужно воспроизвести аудиофайл без стороннего компонента. Для wav можно использовать функцию PlaySound('sound.wav', 0, 0), объявленную в модуле MMSystem.pas. А если файл другого формата? Для этого в MMSystem есть более сложная функция.

Выложите на форму две кнопки (TButton) и TEdit. На одной кнопке напишите "Воспроизведение", на другой "Стоп". В Edit будет вводиться путь в аудиофайлу.

uses MMSystem;
...
procedure TForm1.Button1Click; 
begin
  MCISendString(pchar('play ' + Edit1.Text), nil, 0, handle);
end;

В поле Edit1 указываем путь для аудиофайла, причем он может быть многих форматов (wav, midi sequence, mp3 и т.д).

Для остановки воспроизведения в обработчике onClick второй кнопки напишите:

procedure TForm1.Button2Click; 
begin
  MCISendString(pchar('stop ' + Edit1.Text), nil, 0, handle);
end;

Как похудеть за неделю

Сообщество медицинской тематики. Диетологический центр.

lipotomy.ru
Новые mmorpg игры

Архив файлов, скриншотов, патчей и кодов. Новости, форум игроков.

zzima.com

Просмотров: 2247

Обсудить на форуме