Question

我在DLL中有两个C函数，它们在定义文件中定义并导出以便在Inno Setup中使用。

char* __stdcall GetName()
{
        return "Kishore";
}
void __stdcall getName(char* strName)
{
     strcpy(strName, "Kishore");
}

Inno安装代码将加载自定义DLL并调用函数/过程以返回名称

{ Inno Setup script }
[Code]
procedure  getName(MacAddress: String);
external 'getName@files:MyDll.dll stdcall setuponly';

function  GetName():PAnsiChar;
external 'GetName@files:MyDll.dll stdcall setuponly';

function NextButtonClick(CurPage: Integer): Boolean;
var
  StrName: String;
begin
  SetLength(StrName,15);    
  getName(StrName); { displaying only single character }
  StrName := GetName(); { this call is crashing }
end

如何在Inno Setup脚本中检索名称而不会崩溃？

Answer 1

GetName应该返回一个const char *，但是如果写的那样则不然。但请注意，返回像这样的字符串只能用于文字字符串常量，如上所示。您不能使用此模式返回计算的字符串值（如果您尝试这样，它可能会崩溃或提供损坏的数据）;因此getName是错误的。

另请注意，虽然C区分大小写，但Pascal不区分，因此getName和GetName与Inno脚本中的功能相同。在上述情况下你可能正在逃避这个因为参数不同，但我不会依赖它 - 你应该给它们不同的名字。（也不要在C端使用相同的名称，因为DLL导出有时也会不区分大小写。）

要返回计算字符串，您应该使用如下模式：

DLL代码：

void __stdcall CalculateName(char *buffer, size_t size)
{
    strncpy(buffer, "whatever", size);
    buffer[size-1] = 0;
}

Inno代码：

procedure CalculateName(Buffer: AnsiString; Max: Cardinal);
external 'CalculateName@files:my.dll stdcall';

...
Max := 16;
Buffer := StringOfChar(#0, Max);
CalculateName(Buffer, Max);
SetLength(Buffer, Pos(#0, Buffer) - 1);
...

存在一些可接受的变体，例如，您可以使DLL函数返回实际写入缓冲区的字符数，并在随后的SetLength中使用它而不是调用Pos来查找空终止符。

但你必须：

确保双方使用相同的字符串类型，ANSI或Unicode。
- ANSI Inno Setup仅支持具有String类型的ANSI字符串。
- Unicode Inno Setup支持带有AnsiString的ANSI字符串或带有String的Unicode字符串。
使用Unicode字符串时，请确保双方同意是否以字符或字节指定Max和/或返回值（示例代码假定它以字符表示）。
在调用函数之前，使用SetLength或StringOfChar确保缓冲区的大小已达到所需的最大可能结果长度。
确保被调用函数不会尝试写入超过此最大长度（如果将其作为函数的参数提供，则更容易）。
确保如果您正在使用Pos，则被调用函数必须确保该值以空值终止（或者您需要比示例中所示更加小心）。
确保在调用之后将字符串截断为实际长度，方法是使用返回值或查找空终止符。

这里的一个限制是一方分配的内存必须由同一方释放。您无法安全地释放分配在＆＃34;错误＆＃34; DLL边界的一侧，在任一方向。

如何将DLL中的字符串返回到Inno Setup Pascal Script

1 个答案: