5

我正在尝试创建一种在短信中生成声音的方法。这给了我一个“不能调用 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;
4

1 回答 1

7

目前，您仍然需要一些 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 音频 API 的特色示例和一个改进的“正弦发生器”示例。计划在四月/五月发布。

更新1：

或者，您可以使用以下代码实例化您的上下文：

AudioContext := new JAudioContext;

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

在这种情况下，类似于：

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

AudioContext := new JWebkitAudioContext;

会工作。

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

更新 2：

Eric 刚刚给我写了一封关于如何检查 Pascal 代码的电子邮件。虽然它仍然有点难看，但它避免了 asm 部分。

首先声明 webkitAudioContext 然后检查它是否被分配：

var webkitAudioContext external 'webkitAudioContext' : JwebkitAudioContext;
var hasWebkitAudio := Boolean(Variant(webkitAudioContext));
于 2014-03-31T19:24:35.040 回答