Question

I have this sample in vb.net I need the same output in Delphi. its basically a list of pointers each pointer should point to an array of bytes (a image).

        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

I tried many different ways to convert it, none of that seem to work.

Answer 1

I’m not sure what ImageList is. It doesn’t appear to be the WinForms control of that name. Assuming you know how to do the Marshal.Copy part then you want something like this:

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;