这里的基本问题是二进制互操作不匹配之一。 简单地说，指向数组的指针在二进制级别与Delphi开放数组参数不同。 虽然它们在语义上都表示数组，但二进制表示不同。

C函数声明如下：

__declspec(dllexport) int ss_scaling_subtraction(

double* time,

double** signals,

double* amplitudes,

int nSamples,

int nChannels,

double* intensities

);

在Delphi中声明你的函数：

function ss_scaling_subtraction(

time: PDouble;

signals: PPDouble;

amplitudes: PDouble;

nSamples: Integer;

nChannels: Integer;

intensities: PDouble

): Integer; cdecl; external 'StirScanDLL.dll';

如果您发现未声明PPDouble ，请按以下方式对其进行定义：

type

PPDouble = ^PDouble;

也就是指针指向double的指针。

现在剩下的就是调用这些函数。 在Delphi中将您的数组声明为动态数组。 像这样：

var

time, amplitudes, intensities: TArray;

signals: TArray>;

如果你有一个较旧的pre-generics Delphi，那么声明一些类型：

type

TDoubleArray = array of Double;

T2DDoubleArray = array of TDoubleArray;

然后使用适当的类型声明变量。

接下来，您需要分配数组，并填充从调用者传递给被调用者的任何数据。

SetLength(time, nSamples); // I'm guessing here as to the length

SetLength(signals, nSamples, nChannels); // again, guessing

最后是时候调用这个函数了。 现在事实证明，Delphi的优秀设计师安排将动态数组存储为第一个元素的指针。 这意味着它们不会被用作参数。

retval := ss_scaling_subtraction(

PDouble(time),

PPDouble(signals),

PDouble(amplitudes),

nSamples,

nChannels,

PDouble(intensities)

);

请注意，此处显示的动态数组的强制转换依赖于实现细节。 因此，有些人可能认为最好使用，例如@time[0] ，等等一维数组。 并为幅度创建一个PDouble数组并复制内部数组的第一个元素的地址。 就个人而言，我很依赖这个实现细节。 它确实使编码更加简单。

最后一条建议。 Interop可能很棘手。 这很容易出错。 当你弄错了，代码编译，但在运行时死亡可怕。 带有神秘的错误消息。 导致头部刮伤。

所以，从最简单的接口开始。 接收标量参数的函数。 比如说，接收一个整数，并返回一个整数。 证明你可以做到这一点。 然后转到浮点标量。 然后是一维数组。 最后是二维数组。 沿途的每一步，都会增加复杂性。 当您遇到问题时，您会知道它已归结为最近添加的参数。

你没有采取这种方法。 你已经直接杀死并在你的第一次尝试中实现了一切。 当它失败时，你不知道在哪里看。 将问题分解成小块，并从那些较小的块中构建更复杂的问题。