Подписаться на RSS рассылку
Главная » Статьи по 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;

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

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

0   Спам
(14.11.2012)
1. Света
А готовая программа есть?)


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта