从 C# 调用 Delphi DLL 会产生意外结果

我有一个不是我编写的 Delphi DLL，但需要从 C# ASP.NET 3.5 应用程序调用。这是我从开发人员那里得到的函数定义：

function CreateCode(SerialID : String; 
    StartDateOfYear, YearOfStartDate, YearOfEndDate, DatePeriod : Word; 
    CodeType,RecordNumber,StartHour,EndHour : Byte) : PChar;
    external 'CreateCodeDLL.dll';

这是我的 C# 代码：

[DllImport( "CreateCodeDLL.dll", 
    CallingConvention = CallingConvention.StdCall, 
    CharSet=CharSet.Ansi)]
public static extern IntPtr CreateCode( string SerialID,
                                        UInt16 StartDateOfYear,
                                        UInt16 YearOfStartDate,
                                        UInt16 YearOfEndDate,
                                        UInt16 DatePeriod,
                                        Byte CodeType,
                                        Byte RecordNumber,
                                        Byte StartHour,
                                        Byte EndHour);

最后，我调用这个方法：

//The Inputs 
String serialID = "92F00000B4FBE";
UInt16 StartDateOfYear = 20;
UInt16 YearOfStartDate = 2009;
UInt16 YearOfEndDate = 2009;
UInt16 DatePeriod = 7;
Byte CodeType = 1;
Byte RecordNumber = 0;
Byte StartHour = 15;
Byte EndHour = 14;            

// The DLL call
IntPtr codePtr = CodeGenerator.CreateCode(serialID, StartDateOfYear, 
                YearOfStartDate, YearOfEndDate, DatePeriod, CodeType, 
                RecordNumber, StartHour, EndHour);

// Take the pointer and extract the code in a string
String code = Marshal.PtrToStringAnsi(codePtr);  

每次我重新编译这个确切的代码并运行它时，它都会返回不同的值。预期值是由数字组成的 10 位代码。返回值实际上是12位数字。

最后一条重要信息是我有一个测试 .EXE，它有一个 GUI，允许我测试 DLL。使用 .EXE 的每个测试都会返回相同的 10 位数字（预期结果）。

因此，我必须相信我错误地声明了对 DLL 的调用。想法？

Delphi 使用所谓的fastcall默认调用约定。这意味着编译器尝试将参数传递给 CPU 寄存器中的函数，并且仅在参数多于可用寄存器时才使用堆栈。例如，Delphi 使用（EAX、EDX、ECX）作为函数的前三个参数。
在您的 C# 代码中，您实际上使用的是stdcall调用约定，指示编译器通过堆栈传递参数（以相反的顺序，即最后一个参数首先被压入）并让被调用者清理堆栈。
相比之下，cdeclC/C++ 编译器使用的调用强制调用者清理堆栈。
只需确保双方使用相同的调用约定即可。 Stdcall 最常用，因为它几乎可以在任何地方使用，并且每个编译器都支持（Win32 API 也使用此约定）。
注意fastcall无论如何，.NET 不支持。