Воспроизвести аудиофайл без использования 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 принадлежит их авторам.
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.