从Delphi的DLL回调到C＃应用程序

Question

内部ac＃应用程序ac＃ - 参数的方法是从德尔福调用dll： C＃方法被调用，但int参数传输不正确：一些“随机”值到达。

C＃的 - 方法是通过寄存器方法传递给德尔福DLL：

[UnmanagedFunctionPointer(CallingConvention.ThisCall)] 
    public delegate void ProcDelegate(int value); 

    private static ProcDelegate procDelegate; 

    [DllImport("CallbackTest.dll", CallingConvention = CallingConvention.StdCall)] 
    public static extern void RegisterCallback(ProcDelegate callBackHandle, int value); 


    public Form1() 
    { 
     InitializeComponent(); 

     procDelegate = new ProcDelegate(CalledFromDelphi); 

     RegisterCallback(procDelegate, 10); // register in delphi dll 


    } 

    public static void CalledFromDelphi(int value) 
    { 
     MessageBox.Show("Value:" + value); // expect "10", but getting random value 

    } 

这里是德尔福代码：

type TCallback = procedure(val: integer); 
var callback : TCallback; 
procedure RegisterCallback(aCallback : TCallback; value: integer); stdcall; 
begin 
    callback:= aCallback; 
    ShowMessage('Inside Delphi:'+ IntToStr(value)); // successful ("10") 

    callback(value); // ...and test callback 
end; 

exports 
    RegisterCallback; 

什么也很有趣：回调方法获取称为两次（两次都是“随机”值），但在代码中仅调用一次。之后，应用程序崩溃退出代码（0xc0000005）。

任何想法？

Answer 1

尝试

type TCallback = procedure(val: integer); stdcall; 

Answer 2

发现错误：

忘记在Delphi “STDCALL”：

类型TCallback =过程（VAL：整数）; STDCALL;