德尔福到C的dll：传递阵列

Question

我使用Delphi来加载一个dll（我在Delphi XE-3中创建）用于与一些C代码接口的目的。我的问题是搞清楚为什么我的数组没有被传递给c函数 - 他们是唯一没有的。德尔福文件（简体）看起来是这样的：

program CallcCode 
uses 
    SysUtils, Windows, 
    DLLUnit in 'DLLUnit.pas'; // Header conversion 

var 
    DLLHandle: cardinal; 
    n: Integer; 
    A: TArray<Integer>; 
    result1: Integer; 

begin 
    // Initialize each Array 
    SetLength(A,n); 
    A[0] = ...; 

    // Load the DLL (and confirm its loaded) 
    DLLhandle := LoadLibrary('dllname.dll'); 
    if DLLhandle <> 0 then 
     begin 
     result1 := dll_func1(n,A); // A and B are not passed correctly 
    end 
    FreeLibrary(DLLHandle); 
end. 

我成功 “跟踪到” dll_func1首次进入DLLUnit，其中有：

const 
    nameofDLL = 'dllname'; 
function dll_func1(n: Integer; A: TArray<Integer>): Integer; cdecl; external nameofDLL; 

再次 “跟踪-成”，我到达在C文件，它仍然具有正确的n和DLLdefs值，但A（“本地变量”标题下）已经成为：

[-] A  :(Aplha-Numeric) 
    ..[0] 0 (0x00000000) 

我知道我至少访问该DLL（希望）正确的导致其他函数调用正常工作，并且我可以在没有问题的情况下跟踪到dll_func1.c文件。我试图改变功能

function dll_func1(n: Integer; A: PInteger): Integer; cdecl; external nameofDLL; 
... 
result1 := dll_func1(n,PInteger(A)) 

或

function dll_func1(n: Integer; A: PInteger): Integer; cdecl; external nameofDLL; 
... 
result1 := dll_func1(n,@A[0]) 

（同时使用在tarray和整数数组或A），但没有任何改变，这让我相信这是关系到一个问题，我没有看到。整个事情编译和运行，但由于TArray失败，result1不正确。有什么想法出错？

编辑 C语言中的功能：

int dll_func1(int n, int A []) 

Answer 1

你的问题包含外部函数的两个德尔福声明。其中之一使用TArray<T>作为参数。这是完全错误的。不要这样做。您不能使用Delphi动态数组作为互操作类型。原因是TArray<T>是一个复杂的托管类型，只能由Delphi代码创建和使用。

您需要按照下面的方法来做，正如我在回答您的上一个问题时所解释的，并将数组参数声明为指向元素类型的指针。例如，PInteger,PDouble等

这里有相当多的混淆和不必要的复杂性。你需要的是一个最简单的例子，它展示了如何将数组从Delphi代码传递到C代码。

这是。

C代码

//testarray.c 

void printDouble(double d); // linker will resolve this from the Delphi code 

void test(double *arr, int count) 
{ 
    int i; 
    for (i=0; i<count; i++) 
    { 
     printDouble(arr[i]); 
    } 
} 

Delphi代码

program DelphiToC; 

{$APPTYPE CONSOLE} 

uses 
    Crtl; 

procedure _printDouble(d: Double); cdecl; 
begin 
    Writeln(d); 
end; 

procedure test(arr: PDouble; count: Integer); cdecl; external name '_test'; 

{$L testarray.obj} 

var 
    arr: TArray<Double>; 

begin 
    arr := TArray<Double>.Create(1.0, 2.0, 3.0, 42.0, 666.0); 
    test(PDouble(arr), Length(arr)); 
    Readln; 
end. 

编译使用C代码，例如，所述的Borland C编译器是这样的：

 
bcc32 -c testarray.c 

而输出是：

 
1.00000000000000E+0000 
2.00000000000000E+0000 
3.00000000000000E+0000 
4.20000000000000E+0001 
6.66000000000000E+0002 

请注意，我静态链接到C代码，因为这对我来说更容易。如果将C代码放在DLL中，没有太大的改变。

结论是，我在回答您的上一个问题时给出的代码，我在这里重复一遍，是正确的。该方法成功地将Delphi代码中的数组传递给C.它看起来像您的诊断和调试错误。

您只在检查A[0]，因此您只能看到一个值并不奇怪。如果您只看到A[1]，A[2]，...，A[n-1]，您会看到所有值都正确传递。或者您的调试可能是错误地声明了使用TArray<T>作为参数的外部函数。