c++ - 指针和数组从 C++ 到 Delphi 的转换

Question

我正在尝试在我的 Delphi 代码中使用 ANN ( approximate nearest neighbor ) 库 (.dll)。该库是用 C++ 编写的，尽管数据类型相当简单，但我遇到了一些麻烦。

我用了h2pas尽可能地转换 C++ 头文件。我最终得到了以下数据类型(左边是 C++，右边是 Delphi):

enum ANNbool {ANNfalse = 0, ANNtrue = 1}; --> ANNbool = longint;                
typedef double  ANNcoord;                 --> ANNcoord = double;                
typedef double  ANNdist;                  --> ANNdist = double;                 
typedef int     ANNidx;                   --> ANNidx = longint;                 

typedef ANNcoord* ANNpoint;               --> ANNpoint = ^ANNcoord;             
typedef ANNpoint* ANNpointArray;          --> ANNpointArray = ^ANNpoint;        
typedef ANNdist*  ANNdistArray;           --> ANNdistArray = ^ANNdist;          
typedef ANNidx*   ANNidxArray;            --> ANNidxArray = ^ANNidx;

对于初学者，我想成功地移植包含在 ANN 库中的示例。此示例的 C++ 代码是 linked here without comments (如果你想要评论，只需从 ANN 的网页下载图书馆)。

更具体地说，这是我遇到问题的摘录(C++ 代码..):

...
while (nPts < maxPts && readPt(*dataIn, dataPts[nPts]))  nPts++;
...
bool readPt(istream &in, ANNpoint p)
{
 for (int i = 0; i < dim; i++) {
 if(!(in >> p[i])) return false;
 }
 return true;
}

stackoverflow 上的一位成员帮助我对 readPt 函数进行了部分转换 - 但我不确定它是否完全正确(Delphi 代码..):

function readPt(inStr: TStream; p: ANNpoint): boolean;
var
  Size: longint; // number of bytes to read
begin
  inStr.Size := SizeOf(ANNcoord) * dim;
  Result := inStr.Read(p^, Size) = Size;
end; 

这是我在 Delphi 中实现 while 循环的失败尝试(省略了不相关的代码):

var
  dataPts: AnnPointArray;
  BinStream: TMemoryStream;    
  dim,maxPts,nPts: LongInt;


begin
  dim := 2; 
  maxPts := 1000;  
  dataPts := annAllocPts(maxPts, dim);      

  //GENERATE TStream data
  ///////////////////////////
  BinStream := TMemoryStream.Create;
  BinStream.SetSize(1001);
  for nPts := 0 to 1000 do
  begin
    BinStream.Write(nPts, 1);
  end;                       
  BinStream.Position := 0
  ///////////////////////////                     

  nPts:=0;
  while nPts < maxPts do
  begin
    readPt(BinStream, dataPts[nPts]);
    nPts:=nPts+1;
  end;  
end;   

当我尝试运行它时，我在 readPt(BinStream, dataPts[nPts]);

处遇到了一个 段错误

如果有人愿意花时间帮助我，我将不胜感激!

编辑:如果 annAllocPts() 的 C++ 函数很重要.. 这里是:

ANNpointArray annAllocPts(int n, int dim)       // allocate n pts in dim
{
    ANNpointArray pa = new ANNpoint[n];         // allocate points
    ANNpoint      p  = new ANNcoord[n*dim];     // allocate space for coords
    for (int i = 0; i < n; i++) {
        pa[i] = &(p[i*dim]);
    }
    return pa;
}

我是这样实现的:

function annAllocPts(n: longint; dim: longint): ANNpointArray cdecl;
  external 'ANN.dll' index 33;     

编辑 2:我仍然无法正确填充输入流(我认为)...

var
 ThisDouble: Double;
begin
  binstream := TMemoryStream.Create;
  ThisDouble :=1.001;
  for nPts := 0 to maxPts*dim do
  begin
    binstream.Write(ThisDouble,SizeOf(ThisDouble));
  end;
  BinStream.Position := 0;

  nPts:=0;
  while nPts < maxPts do
  begin
   if not readPt(BinStream, dataPts[nPts]) then
    Break;
  nPts:=nPts+1;
end;                    

Answer 1

您的代码调用 DLL 函数来分配一个包含 1000 个 Double 二元数组的数组。然后用 1001 bytes 填充一个流。您试图用仅 1001 字节的数据填充 16000 字节的存储空间。

此外，您放入流中的数据无论如何都不会形成有意义的 Double 值。

此外，您的 readPt 版本是错误的。您正在分配 inStr.Size 而不是本地 Size 变量。编译器应该警告您 Size 没有被初始化就被使用了。您的代码会将输入流截断为一个数组段的长度，然后尝试从该流中读取未知数量的字节。使用 the version you got from your other question .