Передача файлов в WAV формате между процедурами в Delphi

Delphi , Мультимедиа , Аудио

При работе с графическими интерфейсами, такими как Delphi, часто возникает необходимость передачи данных между различными обработчиками событий, например, между кнопками. Рассмотрим проблему передачи данных о выбранном файле WAV между двумя процедурами, которые обрабатываются при нажатии на разные кнопки формы.

Контекст задачи

Разработчик столкнулся с проблемой, что переменная, содержащая путь к выбранному файлу WAV, определена в одной процедуре и не может быть использована в другой, так как она не видна для второй процедуры. В первой процедуре происходит выбор файла через диалог открытия файла и его обработка (применение дисторшн), а во второй — необходимо воспроизвести выбранный файл.

Решение проблемы

Чтобы решить данную проблему, можно использовать переменные-члены формы, которые будут доступны во всех процедурах формы. В данном случае, переменная, содержащая путь к файлу, должна быть объявлена в приватном разделе класса формы.

Шаги решения:

1. Переместите объявление переменной, содержащей путь к файлу, в приватный раздел класса формы.
2. Используйте эту переменную в первой процедуре для сохранения пути к файлу после его выбора.
3. Во второй процедуре, используйте ту же переменную для воспроизведения файла.

Пример кода:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.FileControl, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FWavFileName: string; // Переменная для хранения пути к файлу WAV
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Выбор файла через диалог
  if OpenDialog1.Execute then
    FWavFileName := OpenDialog1.FileName; // Сохранение пути к файлу
  // Обработка файла (применение дисторшн)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Проверка, что файл был выбран
  if not FWavFileName.IsEmpty then
    SndPlaySound(PChar(FWavFileName), SND_NODEFAULT); // Воспроизведение файла
end;

end.

Альтернативное решение

В качестве альтернативного решения можно использовать функцию, которая будет выполнять выбор файла и возвращать путь к нему. Эта функция может быть вызвана как из первой, так и из второй процедуры.

Пример кода с функцией:

function TForm1.ChooseFile(bForceDialog: Boolean = False): Boolean;
begin
  Result := FileExists(FWavFileName);
  if (bForceDialog or not Result) then begin
     Result := OpenDialog1.Execute() and FileExists(OpenDialog1.FileName);
     if (Result) then
       FWavFileName := OpenDialog1.FileName;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ChooseFile then
    // Обработка файла (применение дисторшн)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if ChooseFile then
    // Воспроизведение файла, путь к которому уже сохранен в FWavFileName
end;

Обе предложенные методики позволят решить проблему передачи данных о файле между процедурами в Delphi.

Создано по материалам из источника по ссылке.

Разработчик в Delphi столкнулся с необходимостью передачи данных о выбранном файле WAV между обработчиками событий разных кнопок, и для этого нужно использовать переменные-члены формы или функцию, возвращающую путь к файлу.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Аудио ::