如何在Delphi中正确填充并向C++函数传递动态数组？

我来帮你梳理清楚这里的问题——核心是Delphi的开放数组参数和C++的原始指针参数不兼容，咱们一步步修正：

首先先明确C++函数的参数本质：

• float* vertices：只需要数组首元素的内存地址，没有额外的数组长度信息（推测函数是通过model或FVF参数来推断数组元素数量的）
• __int32* indices：同理，仅接收int数组首元素的指针

而你之前用var array of ...的开放数组定义，Delphi会在调用时传递额外的数组上下界信息，这和C++函数的预期完全不符，必然会出问题。

第一步：修正Delphi的函数类型定义 #

你需要把函数参数改成直接接收指针类型，和C++的参数一一对应：

type
  TFloat = Single; // 和C++的float完全匹配
  // 用Int32对应C++的__int32（固定32位，比NativeInt更准确）
  TFinalizeModelling = function(AModel: Int32; AVertices: PFloat; AIndices: PInteger; AFVF: Int32): Int32; stdcall;

这里PFloat是指向TFloat的指针，PInteger是指向Integer的指针，完美对应C++的float*和__int32*。

第二步：正确传递动态数组的指针 #

当你有Delphi动态数组时，要获取它的首元素地址传递给函数，同时注意空数组的边界情况：

示例调用代码 #

var
  Vertices: array of TFloat;
  Indices: array of Integer;
  Model, FVF, ResultCode: Int32;
  FinalizeModellingFunc: TFinalizeModelling;
  VerticesPtr: PFloat;
  IndicesPtr: PInteger;
begin
  // 先确保已经加载DLL并获取到函数地址
  @FinalizeModellingFunc := GetProcAddress(HDLLHandle, 'finalizeModelling');
  if not Assigned(FinalizeModellingFunc) then Exit;

  // 填充动态数组（这里是示例，你按实际需求填充）
  SetLength(Vertices, 3);
  Vertices[0] := 0.0;
  Vertices[1] := 1.0;
  Vertices[2] := 0.0;

  SetLength(Indices, 3);
  Indices[0] := 0;
  Indices[1] := 1;
  Indices[2] := 2;

  // 处理空数组情况：如果数组长度为0，传递nil
  VerticesPtr := nil;
  if Length(Vertices) > 0 then
    VerticesPtr := PFloat(@Vertices[0]);

  IndicesPtr := nil;
  if Length(Indices) > 0 then
    IndicesPtr := PInteger(@Indices[0]);

  // 调用C++函数
  ResultCode := FinalizeModellingFunc(Model, VerticesPtr, IndicesPtr, FVF);
end;

关键注意事项 #

• 数组长度一致性：必须保证你Delphi中动态数组的元素数量，和C函数期望的数量完全一致，否则会触发内存越界错误。如果C函数需要显式接收数组长度，但原参数里没有，你得确认是不是漏了参数（比如C++函数可能有隐藏的约定，或者文档没写全）。
• 数据类型严格匹配：用Int32对应C++的__int32，Single对应float，不要用平台相关的NativeInt，避免64位平台下的类型不匹配。
• 空数组不能取首地址：如果动态数组长度为0，直接传递nil，不要尝试获取@Vertices[0]，否则会触发访问违规异常。

为什么原来的定义行不通？ #

你之前用的var array of TFloat是Delphi的开放数组参数，编译后Delphi会把它转换成三个参数：数组首指针、数组下界、数组上界。而C函数只期望一个指针，这就导致参数错位——C函数接收到的不是数组地址，而是数组的下界值，自然会出现内存错误或逻辑异常。

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