德尔福的指针字节列表

Question

我在vb.net中有这个示例我需要在德尔福相同的输出。它基本上是一个指针列表，每个指针应该指向一个字节数组（一个图像）。

 Dim pPointerArray As IntPtr() = New IntPtr(count) {} 
     Dim i = 0 
     For Each r In ImageList 
      pPointerArray(i) = Marshal.AllocHGlobal(r.Images.Length) 
      Marshal.Copy(r.Images, 0, pPointerArray(i), r.Images.Length - 1) 
      i += 1 
     Next 

我尝试了许多不同的方法来转换它，没有这似乎工作。

Answer 1

我不确定ImageList是什么。它似乎不是该名称的WinForms控件。假设你知道该怎么做了Marshal.Copy部分，那么你想是这样的：

var 
    PointerArray: array of Pointer; 
..... 
SetLength(PointerArray, ImageList.Count); 
for i := 0 to ImageList.Count-1 do 
begin 
    PointerArray[i] := GetMem(ImageList[i].Size); 
    // copy contents of i-th image to PointerArray[i] 
end;