Воспроизвести аудиофайл без использования 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;

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

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

лесбухи порно

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

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

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