c - TDataset --> 指向行列矩阵的指针？

Question

我正在用 Lazarus/FreePascal(如 Delphi)编写一个 Windows 应用程序。我有一个TDataset由 5000 行、2 列数值填充的对象。 我需要将此数据传递给从 .dll 库静态导入的 C 函数。

以下是库手册的摘录，解释了其参数应采用的格式:

flan_index_t flann_build_index(float* dataset,
    int rows,
    int cols,
    float* speedup,
    struct FLANNParameters* flann_params);

This function builds an index and return a reference to it. The arguments expected by this function are as follows: dataset, rows and cols - are used to specify the input dataset of points: dataset is a pointer to a rows cols matrix stored in row-major order (one feature on each row)

我可以简单地传递 TDataSet 对象吗？我是否必须先对其执行某些操作以使指针处于正确的形式？

Answer 1

显然你不能传递TDataSet对象。它是一个 FreePascal 对象，并且该函数似乎需要一个指向 float 的指针(在 FreePascal 中可能是指向 Single 的指针)。它可能需要一个 float 的二维数组。您还必须传递另一个指向 float 的指针和一个指向 FLANNParameters 结构的指针。

Move() 也不起作用。 TDataSet 不是数组。

我想你必须像 Uwe 所说的那样声明一个数组，使用你的数据集填充它并传递数组:

type
  PMyFloatArray = ^TFloatArray;
  TMyFloatArray = array[0..4999, 0..1] of Single;

var
  MyArray: PMyFloatArray;
  idx: flan_index_t;

begin
  New(MyArray);
  try

    // Fill array using your TDataSet...
    // set up other parameters... 

    idx := flann_build_index(MyArray, 5000, 2, &speedup, etc...);

    // ...

  finally
    Dispose(MyArray);
  end;
end;     

无耻插件

请阅读我的Pitfalls of Conversion关于将函数声明从 C 转换为 Delphi(可能还有 Win32 上的 FreePascal)的文章。现在我开始了，你可能想阅读我的文章 Addressing Pointers也是。