我如何在 WebAudio 中使用 AudioContext

Question

我正在尝试创建一种在短信中生成声音的方法。这给了我一个“不能调用 null 的方法‘createScriptProcessor’”？

应该创建 JAudioContext 吗？

...

AudioContext  : JAudioContext;
node          : JScriptProcessorNode;

...

procedure TForm1.W3Button1Click(Sender: TObject);
var bufferSize : integer;
    lastOut : float;
    input,output : JFloat32Array;
begin
  bufferSize := 4096;
  lastOut := 0;
  node := AudioContext.createScriptProcessor(bufferSize, 1, 1);
  node.onaudioprocess := procedure (e: JAudioProcessingEvent)
  var i : integer;
  begin
    input := e.inputBuffer.getChannelData(0);
    output := e.outputBuffer.getChannelData(0);
    for i := 0 to bufferSize-1 do
    begin
      output[i] := (input[i] + lastOut) / 2.0;
      lastOut := output[i];
    end;
  end;
end;

Answer 1

目前您仍需要一些 JavaScript 解决方法来创建音频上下文。

类似

var AudioContext: JAudioContext;

procedure InitializeAudioContext;
begin 
  asm
    // Fix up for prefixing
    window.AudioContext = window.AudioContext||window.webkitAudioContext;

    if('webkitAudioContext' in window) {
      @AudioContext = new webkitAudioContext();
     }
  end;
end;

注意：单元 w3c.WebAudio 基本上只是 W3C API 的包装器，不包含初始化音频上下文的代码。到目前为止，这必须在您的代码中完成（如上所示）。

对于未来，我们计划有一些更高层次的抽象。

即将发布的 2.1 版将包含另一个关于 Web Audio API 的特色示例和一个改进的“正弦发生器”示例。计划在四月/五月发布。

更新 1：

您也可以使用以下代码实例化您的上下文：

AudioContext := new JAudioContext;

但是，它不适用于较旧的基于 webkit 的浏览器。这些需要额外的 webkit 前缀。

在这种情况下是这样的：

type
       JWebkitAudioContext = class external 'webkitAudioContext' (JAudioContext);

AudioContext := new JWebkitAudioContext;

会起作用的。

出于兼容性原因，您可能需要检查前缀是否必要。或者只使用上面发布的“asm”sn-p。

更新 2：

Eric 刚刚给我写了一封关于如何在 Pascal 代码中进行检查的电子邮件。虽然还是有点难看，但还是避开了 asm 部分。

先声明webkitAudioContext，然后检查是否赋值：

var webkitAudioContext external 'webkitAudioContext' : JwebkitAudioContext;
var hasWebkitAudio := Boolean(Variant(webkitAudioContext));