Delphi中如何跨过程传递OpenDialog选中的音频文件变量？

要实现两个按钮之间共享文件路径，核心是将需要传递的变量从过程局部变量改为窗体类的成员字段，这样不同的事件过程都能访问该变量。具体步骤如下：

1. 添加窗体成员字段 #

打开窗体的类声明文件（通常是Unit1.pas的接口部分），在TForm1类的private区域添加用于保存文件路径的字段：

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Upperthreshold: TEdit;
    Lowerthreshold: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FProcessedWavPath: string; // 保存处理后的WAV文件路径
    FSelectedWavPath: string;  // 保存原选中的WAV文件路径
  public
    { Public declarations }
  end;

2. 修改Button1Click过程 #

在第一个按钮的点击事件中，将选中的原文件路径和生成的输出文件路径赋值给对应的窗体字段，同时修复原代码中的内存泄漏问题：

procedure TForm1.Button1Click(Sender: TObject);
type
    TWavheader = record
      idRIFF: array[0..3] of Ansichar;
      Chunksize: longint;
      idWave: array[0..3] of Ansichar;
      idFormat: array[0..3] of Ansichar;
      Subchunksieze: longint;
      Audiofmt: smallint;
      Numchan: smallint;
      Samplerate: longint;
      Byterate: longint;
      Align: smallint;
      Bps: smallint;
    end;
TDataheader = record
  idData: array[0..3] of Ansichar;
  datasize: longint;
end;

var
  myFile: TFilestream;
  Waveheader: TWavheader;
  Dataheader: TDataheader;
  datain, dataout: array of SmallInt;
  datafactorin: single;
  datafactorout: smallint;
  Sample: single;
  i: integer;
  numofsamp, frequency: integer;
  channel, bitpersamp: SmallInt;
  Inputfile: string;
  Outputfile: string;
  threshold1: single;
  threshold2: single;

begin
  if not Opendialog1.Execute then Exit; // 用户取消选择时直接退出
  Inputfile := Opendialog1.filename;
  FSelectedWavPath := Inputfile; // 保存原选中文件路径到窗体字段

  threshold1 := StrToFloat(Upperthreshold.Text);
  threshold2 := StrToFloat(Lowerthreshold.Text);

  myFile := TFileStream.Create(inputfile, fmOpenRead);
  try
    myFile.ReadBuffer(Waveheader, sizeof(TWavheader));
    if (Waveheader.idRIFF <> 'RIFF') or (Waveheader.idWave <> 'WAVE') then
     raise Exception.Create('Selected file is not a valid WAV file.');
    bitpersamp := Waveheader.Bps;
    channel := Waveheader.Numchan;
    frequency := Waveheader.Samplerate;
    if (bitpersamp = 0) or (channel = 0) then
    raise Exception.Create('Invalid WAV header: bitspersamp or channel is zero.');
    myFile.ReadBuffer(Dataheader, sizeof(TDataheader));
    numofsamp := Dataheader.datasize div (channel * (bitpersamp div 8));
    SetLength(datain, numofsamp);
    SetLength(dataout, numofsamp);
    myFile.ReadBuffer(datain[0], Dataheader.datasize);
  finally
    myFile.Free; // 释放输入文件流
  end;

  if numofsamp > 0 then
  begin
    for i := 0 to numofsamp -1 do
    begin
      Sample := datain[i];
      datafactorin := Sample/32767;
      if datafactorin > threshold1 then datafactorin := threshold1;
      if datafactorin < threshold2 then datafactorin := threshold2;
      datafactorout := round(datafactorin * 32767);
      dataout[i] := datafactorout;
    end;
  end;

  Dataheader.datasize := Length(dataout) * SizeOf(SmallInt);
  Outputfile := 'D:\output.wav';
  FProcessedWavPath := Outputfile; // 保存处理后的文件路径到窗体字段

  if numofsamp > 0 then
  begin
    myFile := TFileStream.Create(Outputfile, fmCreate);
    try
      myFile.WriteBuffer(Waveheader, sizeof(TWavheader));
      myFile.WriteBuffer(Dataheader, sizeof(TDataheader));
      myFile.WriteBuffer(dataout[0], Dataheader.datasize);
    finally
      myFile.Free; // 释放输出文件流
    end;
  end;
end;

3. 修改Button2Click过程 #

直接使用窗体字段保存的文件路径进行播放，无需再次调用OpenDialog：

选项1：播放原选中的WAV文件 #

procedure TForm1.Button2Click(Sender: TObject);
begin
  if FSelectedWavPath <> '' then // 判断路径是否有效
    sndPlaySound(PChar(FSelectedWavPath), SND_NODEFAULT);
end;

选项2：播放处理后的WAV文件（更符合第一个按钮的处理逻辑） #

procedure TForm1.Button2Click(Sender: TObject);
begin
  if FProcessedWavPath <> '' then // 判断路径是否有效
    sndPlaySound(PChar(FProcessedWavPath), SND_NODEFAULT);
end;

关键说明 #

• 窗体类的成员字段属于整个窗体实例，所有窗体的事件过程都可以访问和修改它，解决了局部变量无法跨过程传递的问题。
• 原代码存在内存泄漏问题，改用try...finally结构确保流对象被正确释放。
• 增加OpenDialog1.Execute的判断，避免用户取消选择时后续代码报错。

内容的提问来源于stack exchange，提问作者Chen Yuxuan