将记录作为函数结果从Delphi DLL传递到c++

Passing record as a function result from Delphi DLL to C++

本文关键字：DLL c++ Delphi 记录 函数 结果      更新时间：2023-10-16

我现在正在经历一些非常奇怪的事情。当我从c++传递一个结构体到Delphi DLL作为参数时，一切都很好。然而，一旦我想要接收记录，结果我要么得到错误的值，要么得到异常。我取消了对记录的对齐，以便传递它们应该工作!这是代码!

Delphi DLL: 

TSimpleRecord = packed record
  Nr1 : Integer;
  Nr2 : Integer;
end;
//...
function TTest() : TSimpleRecord; cdecl;
begin
  Result.Nr1 := 1;
  Result.Nr2 := 201;
  ShowMessage(IntToStr(SizeOf(Result)));
end;

c++调用:

#pragma pack(1)
struct TSimpleRecord
{
    int Nr1;
    int Nr2;
};
//...
    typedef TSimpleRecord (__cdecl TestFunc)(void);
    TestFunc* Function;
    HINSTANCE hInstLibrary = LoadLibrary("Reactions.dll");
    if (hInstLibrary)
    {
        Function = (TestFunc*)GetProcAddress(hInstLibrary, "TTest");
        if (Function)
        {
            TSimpleRecord Result = {0};
            Result = Function();
            printf("%d - %d - %d", sizeof(Result), Result.Nr1, Result.Nr2);
            cin.get();
        }
    }

我不知道为什么传递这个记录作为一个参数工作，而不是作为一个函数的结果!

有人能帮我吗?'

感谢

PS:正如我所说的，c++和Delphi都显示记录是8字节大。

一些编译器会在寄存器中返回struct类型(可能取决于大小)，其他编译器会添加一个隐藏的额外参数来存储结果。不幸的是，看起来您正在处理两个编译器，它们不同意如何返回这些。

您应该能够通过显式地使用out参数来避免这个问题。

procedure TTest(out Result: TSimpleRecord); cdecl;
begin
  Result.Nr1 := 1;
  Result.Nr2 := 201;
end;

不要忘记相应地更新c++代码。

Rudy Velthuis写过:

这表明ABCVar结构体在寄存器EDX:EAX中返回(EDX具有顶部32位，EAX具有较低的位)。Delphi根本不是这样处理记录的，即使是这么大的记录。Delphi将这样的返回类型视为额外的var参数，并且不返回任何东西(因此函数实际上是一个过程)。

[…]

Delphi返回的唯一EDX:EAX组合类型是Int64。

表明避免这个问题的另一种方法是

function TTest() : Int64; cdecl;
begin
  TSimpleRecord(Result).Nr1 := 1;
  TSimpleRecord(Result).Nr2 := 201;
end;

请注意，即使在c++中没有定义的情况下，Delphi也允许这种类型双关语。

Delphi不遵循返回值的平台标准ABI。标准ABI按值将返回值传递给调用者。Delphi将返回值作为一个隐式的额外var参数，在所有其他参数之后传递。文档描述了这些规则。

你可以修改你的调用代码来匹配它。在c++函数中传递一个额外的struct参数引用

typedef void (__cdecl TestFunc)(TSimpleRecord&);

如果你打算在c++端这样做，为了清晰起见，你最好在Delphi端做同样的改变。

由于Delphi不遵循返回值的平台标准，我建议您将自己限制为与其他工具兼容的类型。这意味着最多32位的整型值，指针和浮点值。

作为一般的经验法则，不要打包记录。如果这样做，就会出现不对齐，从而影响性能。对于问题中的记录，无论如何都不会有填充，因为两个字段的大小相同。

相关文章：