string - 在 Delphi 中将 PChar 与字符串连接起来

Question

我需要构造一个字符串并通过 PostMessage 发送它，即。

FileName := String_1 + String_2 + String_3;
PostMessage(FWndHandle, WM_BLA_BLA, NotifyData^.Action, LParam(FileName));

但是有些东西不起作用。另外，FileName 是一个 PChar。代码如下所示:

var
   FileName : PChar;
   Directory_Str : String;
   AnotherString : String;
begin
    // Get memory for filename and fill it with data
    GetMem(FileName, NotifyData^.FileNameLength + SizeOf(WideChar));
    Move(NotifyData^.FileName, Pointer(FileName)^, NotifyData^.FileNameLength);
    PWord(Cardinal(FileName) + NotifyData^.FileNameLength)^ := 0;

    // TODO: Contact string before sending message
    // FileName := AnotherString + Directory_Str + FileName;

    PostMessage(FWndHandle, WM_BLA_BLA, NotifyData^.Action, LParam(FileName));

    ...
end;

现在我需要在调用 PostMessage 之前将另一个字符串与变量 FileName 联系起来，即。

FileName := AnotherString + Directory_Str + FileName;
PostMessage(FWndHandle, WM_BLA_BLA, NotifyData^.Action, LParam(FileName));

如果 FileName 是一个字符串，这将起作用，但这里的情况并非如此。

有人知道如何使用 PChar 做到这一点吗？我尝试了这些方法，有时有效，但最后总是会出现问题:

StrPCopy(FileName, FDirectory + String(FileName));

或者

FileName := PChar(AnotherString + Directory_Str + FileName);

Answer 1

您无法轻松地将 PostMessage 与通过引用传递的数据一起使用。原因是 PostMessage 异步执行，您需要保持正在传递的内存，直到消息被接收者处理为止。我猜这就是您的 GetMem 代码背后的内容。

显然这仅适用于同一进程。而且您还会发现 Windows 不允许您将 PostMessage 用于任何接收指针的消息。例如，带有 WM_SETTEXT 的 PostMessage 总是失败。您只能希望使用用户定义的消息来做到这一点。当然，您需要在接收消息的代码中释放内存。

我假设您使用的是用户定义的消息，该消息允许使用 PostMessage 发送字符串。在这种情况下，您已经有了解决方案。使用字符串变量进行串联，然后使用答案中的第一个代码块。

虽然你可以像这样使它更干净:

function HeapAllocatedPChar(const Value: string): PChar;
var
  bufferSize: Integer;
begin
  bufferSize := (Length(Value)+1)*SizeOf(Char);
  GetMem(Result, bufferSize);
  Move(PChar(Value)^, Result^, bufferSize);
end;

procedure PostString(Window: HWND; Msg: UINT; wParam: WPARAM; 
  const Value: string);
var
  P: PChar;
begin
  P := HeapAllocatedPChar(Value);
  if not PostMessage(Window, Msg, wParam, LPARAM(P)) then
    FreeMem(P);
end;

您可以像这样调用该过程:

PostString(FWndHandle, WM_BLA_BLA, NotifyData^.Action, FDirectory + FileName);

您当前的代码失败，因为:

1. 当您调用 StrPCopy 时，您不会为较长的字符串分配任何内存。
2. 当您编写 PChar(AnotherString + Directory_Str + FileName) 时，您就会陷入使用 GetMem 试图避免的陷阱。这是一个本地字符串，在处理消息时已被释放。

如果您能找到一种无需使用 PostMessage 传递字符串即可解决问题的方法，那么这可能比所有这些复杂性更好。