При попытке написать собственный маршалер, связанный с этим вопросом (P/Invoke от C до С# без знания размера массива), я столкнулся с чем-то, что не могу Понимаю. Это первый в истории пользовательский маршалер, который я написал, поэтому, без сомнения, я пропустил что-то очевидное из-за моего невежества.
Здесь мой код С#:
using System;
using System.Runtime.InteropServices;
using System.Text;
namespace CustomMarshaler
{
public class MyCustomMarshaler : ICustomMarshaler
{
static MyCustomMarshaler static_instance;
public IntPtr MarshalManagedToNative(object managedObj)
{
if (managedObj == null)
return IntPtr.Zero;
if (!(managedObj is int[]))
throw new MarshalDirectiveException("VariableLengthArrayMarshaler must be used on an int array.");
int[] arr = (int[])managedObj;
int size = sizeof(int) + arr.Length * sizeof(int);
IntPtr pNativeData = Marshal.AllocHGlobal(size);
Marshal.WriteInt32(pNativeData, arr.Length);
Marshal.Copy(arr, 0, pNativeData + sizeof(int), arr.Length);
return pNativeData;
}
public object MarshalNativeToManaged(IntPtr pNativeData)
{
int len = Marshal.ReadInt32(pNativeData);
int[] arr = new int[len];
Marshal.Copy(pNativeData + sizeof(int), arr, 0, len);
return arr;
}
public void CleanUpNativeData(IntPtr pNativeData)
{
Marshal.FreeHGlobal(pNativeData);
}
public void CleanUpManagedData(object managedObj)
{
}
public int GetNativeDataSize()
{
return -1;
}
public static ICustomMarshaler GetInstance(string cookie)
{
if (static_instance == null)
{
return static_instance = new MyCustomMarshaler();
}
return static_instance;
}
}
class Program
{
[DllImport(@"MyLib.dll")]
private static extern void Foo(
[In, Out, MarshalAs(UnmanagedType.CustomMarshaler, MarshalTypeRef = typeof(MyCustomMarshaler))]
int[] arr
);
static void Main(string[] args)
{
int[] colorTable = new int[] { 1, 2, 3, 6, 12 };
Foo(colorTable);
foreach (int value in colorTable)
Console.WriteLine(value);
}
}
}
С другой стороны, это тривиальная встроенная DLL, написанная в Delphi, когда это происходит.
library MyLib;
procedure Foo(P: PInteger); stdcall;
var
i, len: Integer;
begin
len := P^;
Writeln(len);
for i := 1 to len do begin
inc(P);
Writeln(P^);
inc(P^);
end;
end;
exports
Foo;
begin
end.
Идея состоит в том, что массив передается в DLL, которая затем выводит поле длины и значения массива. Нативный код также увеличивает каждое значение массива на 1.
Итак, я ожидаю увидеть этот вывод:
5 1 2 3 6 12 2 3 4 7 13
Но, к сожалению, я вижу этот вывод:
5 1 2 3 6 12 1 2 3 6 12
В отладчике я вижу, что выполняется MarshalNativeToManaged
, и что возвращаемые значения увеличиваются. Но эти добавочные значения не возвращаются обратно в объект, который передается в Foo
.
Что мне нужно сделать, чтобы исправить это?