Изменить уровень громкости звука - PascalABC.NET
Формулировка задачи:
Есть звуковой файл wav, который я вызвал с помощью SoundPlayer, библиотеки system.media, но в справке по нему не нашёл инфы по поводу уровня звука. Есть ли вообще что-либо подобное в этой библиотеке или вообще звуковая библиотека PascalABC.NET
Решение задачи: «Изменить уровень громкости звука»
textual
Листинг программы
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms,system.media;
type
Form1 = class(Form)
procedure Form1_Load(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
{$reference 'PresentationCore.dll'}
var PlaYER: system.windows.Media.MediaPlayer;
implementation
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
var PlaYER: system.windows.Media.MediaPlayer;
begin
Player := new System.Windows.Media.MediaPlayer;
Player.Open( new System.Uri('C:\file.mp3', System.UriKind.Relative));
Player.Play();
end;
end.
Объяснение кода листинга программы
- Объявление переменной PlaYER типа MediaPlayer
- Инициализация объекта Player с помощью оператора new
- Открытие файла с помощью метода Open и указание пути к файлу с помощью параметра new System.Uri
- Вызов метода Play для начала воспроизведения звука