在 HostApp 和 DLL 之间预分配内存

Question

我有一个提供解码功能的DLL，如下：

function MyDecode (Source: PChar; SourceLen: Integer; var Dest: PChar; DestLen: Integer): Boolean; stdcall; 

HostApp调用“MyDecode”，并传入Source、SourceLen和Dest参数，DLL返回解码后的Dest和DestLen。 问题是：HostApp 无法知道解码后的 Dest 长度，因此不知道如何预先分配 Dest 的内存。

我知道可以将“MyDecode”拆分成两个函数：

function GetDecodeLen (Source: PChar; SourceLen: Integer): Integer; stdcall;  // Return the Dest's length
function MyDecodeLen (Source: PChar; SourceLen: Integer; var Dest: PChar): Boolean; stdcall; 

但是，我的解码过程非常复杂，如果拆分成两个函数会影响效率。

有没有更好的解决方案？

---

是的，Alexander，这可能是一个很好的解决方案。 HostApp 代码：

//... 
MyDecode(....) 
try 
  // Use or copy Dest data 
finally 
  FreeDecodeResult(...) 
end;

DLL 代码：

function MyDecode(...): Boolean;
begin
  // time-consuming calculate

  // Allocate memory
  GetMem(Dest, Size);   
  // or New()?
  // or HeapAlloc()?
end;

procedure FreeDecodeResult(Dest: PChar);
begin
  FreeMem(Dest);
  // or Dispose(Dest); ?
  // or HeapFree(Dest); ?
end;

也许我应该将 Dest 的类型更改为指针。

哪种分配内存更好？ GetMem/New 还是 HeapAlloc？

Answer 1

您可以通过其他方式将“MyDecode”拆分为两个例程：

function  MyDecode(Source: PChar; SourceLen: Integer; out Dest: PChar; out DestSize: Integer): Boolean; stdcall;
procedure FreeDecodeResult(Dest: PChar); stdcall;

即- 您在 MyDecode 中分配内存，而不是要求调用者这样做。

Answer 2

您可以使用大多数 Windows API 使用的相同技术，也就是说，如果您的缓冲区不够大，该函数会返回所需缓冲区的大小。这样，您可以从调用函数中分配正确大小的缓冲区。

function MyDecode (Source: PChar; SourceLen: Integer; Dest: PChar; var Len: Integer): Boolean; stdcall;

procedure SomeProc;
var iSourceLen, iLenNeeded : Integer;
    pSource, pDest : Pointer;
begin
  MyDecode(pSource, iSourceLen, nil, iLenNeeded);
  GetMem(pDest,iLenNeeded);
  try
    MyDecode(pSource, iSourceLen,pDest, iLenNeeded);
  finally
    FreeMem(pDest);
  end;
end;

编辑：正如mghie 所建议的那样。由于参数是 PCHAR，因此假定 MyDecode 返回的 iLenNeeded 将是 Windows API 所需的（大部分？）标准的 TCHAR 数。

function SomeProc(sEncode : String) : string;
var iLenNeeded : Integer;
begin
  MyDecode(PChar(sEncode), Length(sEncode), nil, iLenNeeded);
  SetLength(Result, iLenNeeded);  //if iLenNeeded include a null-terminating character, you can use (iLenNeeded - 1) instead
  if not MyDecode(PChar(sEncode), Length(sEncode), PChar(Result), iLenNeeded) then
    SetLength(Result, 0);
end;

Answer 3

另一种选择是将函数指针传递到 dll 中以分配内存。 dll 在需要内存时调用此函数，并且由于内存是使用应用程序的内存管理器分配的，因此应用程序可以直接释放它。

不幸的是，这并不能真正解决您的问题，而只是将其移动到 dll 中，然后必须弄清楚它需要多少内存。也许您可以使用存储在链表中的多个缓冲区，因此每次解码函数用完内存时，它只会分配另一个缓冲区。

Answer 4

我不确定这是否适合您，但（在这个特别示例中）您可以使用 WideString：

function MyDecode(Source: PChar; SourceLen: Integer; out Dest: WideString): Boolean; stdcall;

或者：

function MyDecode(Source: PChar; SourceLen: Integer): WideString; stdcall;

通过使用 WideString，您可以完全避免内存分配问题。

为什么这会起作用？因为 WideString 是系统类型 BSTR 的别名。而 BSTR 有一个特殊的规则：它的内存必须通过特定的系统内存管理器分配。 IE。当你使用 WideString 时，Delphi 调用这个系统内存管理器而不是它自己的。由于系统内存管理器可以从每个模块访问（并且每个模块都相同） - 这意味着调用者（exe）和被调用者（DLL）都将使用相同的内存管理器，从而允许它们毫无问题地传递数据。

因此，您可以使用 WideString 并只生成结果而无需担心内存。请注意，WideString 中的字符是 unicode - 即 2 个字节。如果您使用的是 D2007 及以下版本，转换 ANSIunicode 会产生一些开销。这（通常）不是问题，因为典型的应用程序会进行大量 WinAPI 调用 - 每个 WinAPI 调用都意味着相同的 ANSIunicode 转换（因为您正在调用 A 函数）。