如何marshall int从C＃到德尔福

问题描述：

我从Delphi2006用dll导出以下内容。如何marshall int从C＃到德尔福

procedure ScSetMRStatus(StatusType: TStatusType; active_mr_ids: TLongIntArray; id_dst: Integer; id_src_list: TLongIntArray; IsComplete: Boolean); stdcall; export;

其中TLongIntArray定义为：

TLongIntArray = array of LongInt;

和TStatusType只是一个枚举：

TStatusType = (stPhysical, stMaster);

现在我试图调用从C＃应用此方法。

[DllImport(DelphiDLLName, EntryPoint = "ScSetMRStatus", CallingConvention = CallingConvention.StdCall)] 
private static extern void ScSetMRStatus(
    Int32 statusType, 
    IntPtr activeMrIds, 
    Int32 IdDst, 
    IntPtr idSrcList, 
    [MarshalAs(UnmanagedType.U1)] bool isComplete);

从C＃中使用这种方式：

ScSetMRStatus((Int32) statusType, ConvertManagedArrayToDelphiDynIntArray(activeMrIds), idDst, ConvertManagedArrayToDelphiDynIntArray(idSrcList), isComplete);

ConvertManagedArrayToDelpiDynIntArray样子：

public static IntPtr ConvertManagedArrayToDelphiDynIntArray(int[] array) 
{ 
    if (array == null) return IntPtr.Zero; 

    int elementSize = sizeof(int); 
    int arrayLength = array.Length; 
    int allocatedMemSize = 8 + elementSize * arrayLength; 
    IntPtr delphiArrayPtr = Marshal.AllocHGlobal(allocatedMemSize); 
    Marshal.WriteInt32(delphiArrayPtr, 0, 1); 
    Marshal.WriteInt32(delphiArrayPtr, 4, arrayLength); 
    for (int k = 0; k < arrayLength; k++) { 
     Marshal.WriteInt32(delphiArrayPtr, 8 + k*elementSize, array[k]); 
    } 
    return delphiArrayPtr+8; 
}

但是，这并不工作！

如何发送c＃数组到delphi？

答

它终于工作了！

我们对调用进行了一些更改以释放分配的内存。

var activeMrIdsNative = ConvertManagedArrayToDelphiDynIntArray(activeMrIds); 
var idSrcListNative = ConvertManagedArrayToDelphiDynIntArray(idSrcList); 
ScSetMRStatus((Int32) statusType, activeMrIdsNative, idDst, idSrcListNative, isComplete); 
Marshal.FreeHGlobal(activeMrIdsNative-8); 
Marshal.FreeHGlobal(idSrcListNative-8);

我们只是认为它不会工作，因为我们没有看到德尔福方面用它做什么。所有的数据都进入了delphi dll，它运行良好。

也许存在内存问题，但我们会检查这一点。

如何marshall int从C＃到德尔福

相关推荐