需要帮助从 Delphi 正确调用 C 函数

Question

我在 Delphi 中静态导入一个动态库 (DLL) 并尝试访问其功能。

这是我试图访问的特定 C 函数减速：

int flann_radius_search_double (flann_index_t index_ptr, /* the index */
                                double* query, /* query point */
                                int* indices, /* array for storing the indices found (will be modified) */
                                double* dists, /* similar, but for storing distances */
                                int max_nn,  /* size of arrays indices and dists */
                                float radius, /* search radius (squared radius for euclidian metric) */
                                struct FLANNParameters* flann_params);

这是我在 Delphi 中的减速：

function flann_radius_search_double(index_ptr: flann_index_t;
  var query: double; var indices: longint; var dists: double;
  max_nn: longint; radius: single; var flann_params: FLANNParameters): longint;
  cdecl; external External_library Name 'flann_radius_search_double';   

我访问了这样的函数：

  type
  TDoubleArray = array[0..1000] of double;
  PDoubleArray = ^TDoubleArray;

  TIntArray = array[0..1000] of Integer;
  PIntArray = ^TIntArray;
  ...
  ... <other unrelated code>

  var      
    Indicies:TIntArray;
    PIndicies:PIntArray;
    Dists:TDoubleArray;
    PDists:PDoubleArray;
    ...
  begin
    ...
    PIndicies:=@Indicies;
    PDists   :=@Dists; 

   radius_s:=flann_radius_search_double(idx ,&PMyArray^[0,0],Pindicies^[0],&PDists^[0],1000,10,&DEFAULT_FLANN_PARAMETERS);

它不工作，看起来很遥远:*( 非常感谢您的帮助！

编辑：我修复了双/单错误，但是当我尝试使用 @Indicies[0] 而不是 Indicies[0] 时出现错误：

错误：通过 var 调用 arg 编号。 3 必须完全匹配：得到“指针” 预期为“LongInt”

Answer 1

免责声明：下面写的内容是指问题在完全更改之前的原始版本。在原始版本中，浮点参数都是浮点数。我会敦促 Mike 使用复制/粘贴的方式发布真实代码，以避免浪费人们的时间。

C float 等价于Delphi Single，4 字节浮点类型。这是你遇到的主要问题。

我个人会在导入声明中将数组声明为 PSingle 或 PInteger，而不是使用 var 参数。当通过引用传递单个值时，var 参数是合适的。

调用函数时，我不会使用固定维度的数组。我会使用动态数组和 SetLength。然后使用 PSingle(MyArray) 或 @MyArray[0] 传递数组，无论您喜欢哪个。

我更喜欢 Integer 而不是 Longint，因为我相信 Integer 最接近 C int。

您的数组大小为 1001 个元素，您只需要它们为 1000 个。

结构最好由 var 传递，就像您在导入声明中使用的那样，而不是像您在调用中那样传递。由于您问题中的代码不太匹配，我不想多说。

function flann_radius_search_double(
  index_ptr: flann_index_t;
  var query: Single;
  indices: PInteger;
  dists: PSingle;
  max_nn: Integer;
  radius: Single;
  var flann_params: FLANNParameters
): Integer; cdecl; external External_library Name 'flann_radius_search_double';   
...
var
  indices: array of Integer;
  dists: array of Single;
...
SetLength(indices, 1000);
SetLength(dists, 1000);    
radius_s := flann_radius_search_double(
  idx,
  MyArray[0,0],
  @indicies[0],
  @dists[0],
  1000,
  10.0,
  DEFAULT_FLANN_PARAMETERS
);

Answer 2

在 Delphi 中，float 映射到 Single，不是 Double。于是就变成了：

function flann_radius_search_double(index_ptr: flann_index_t; 
                                    var query: Single;
                                    indices: PInteger; // array, so NOT a var parameter
                                    dists: PSingle;    // array, so NOT a var parameter 
                                    max_nn: Integer;
                                    radius: Single;
                                    var flann_params: FLANNParameters): Integer; 
   cdecl; etc...

你这样称呼它：

 const
   CArraySize = 1000;

 ...

 var
   Indices: array[0..CArraySize - 1] of Integer;
   Dists: array[0..CArraySize - 1] of Single;
 begin
   ...
   x := flann_radius_search_double(idx, yourQuery, 
          @Indices[0], @Dists[0], Length(Dists), yourRadius, yourFlannParams);