multithreading - 消息后 LParam 截断

Question

我的应用程序有一个工作线程，我使用 PostMessage 将字符串发送到主线程。对于 1 条消息，当字符串到达​​主线程中的消息处理程序时，该字符串将被截断。

该字符串是在工作线程中根据如下所示的原始数据字符串构造的。它在最后一个“20”结束。

'01010000000030000102000008850008855343414E20454447452000000000000000000'

解码成我想要发送的字符串，如下所示，这是正确的:

'0100 0.50000 LSB0288.588.5扫描边缘'

创建“SCAN EDGE”部分并发布它的代码是:tmp 和 s_out 是字符串

x := 35;
for i := 1 to 10 do
begin
  tmp := '$' + copy(s,x,2);
  TryStrToInt(tmp,dec);
  s_out := s_out + chr(dec);
  x := x + 2;
end;
PostMessage(MainHandle,UM_CLONE, UM_756, Integer(PChar(s_out)));

主线程中的消息处理程序是:我是一个字符串

i := pChar(msg.LParam);

当它到达主线程时，我在调试器中看起来像这样:

'0100 0.50000 LSB0288.588.5SCAN EDG'#0

我该如何纠正这个问题？

Answer 1

您正在发布 String 变量的内容，该变量是调用 PostMessage() 的线程过程的本地变量。如果String超出范围并在主线程处理发布的消息之前被释放，那么内存将是垃圾。

您需要:

1) 使用 SendMessage() 而不是 PostMessage()，以便 String 保留在作用域内，直到消息处理程序退出:

SendMessage(MainHandle, UM_CLONE, UM_756, LPARAM(PChar(s_out)));

2) 在内存中动态分配一个String，根据需要填充它，发布它，然后让主消息处理程序在复制完成后释放它:

var
  s_out: PString;

New(s_out);
...
s_out^ := s_out^ + chr(dec);
...
if not PostMessage(MainHandle, UM_CLONE, UM_756, LPARAM(s_out)) then
  Dispose(s_out);

.

var
  ps: PString;
  i: String;

ps := PString(msg.LParam);
i := ps^;
Dispose(ps);

PS:请注意，我还将您的 Integer() 转换为 LPARAM()。如果您升级到 Delphi XE2 或更高版本，这一点非常重要。 PostMessage() 和 SendMessage() 使用 LPARAM，而不是 Integer。您可以在 Delphi 7 中摆脱它，因为在该版本中 LPARAM 是 Integer 的别名，但在现代 Delphi 版本中不再是这种情况。 LPARAM 现在是 NativeUInt 的别名。 LPARAM 一直是 Win32 API 中的未签名类型，Delphi 在早期版本中只是犯了错误，但 Embarcadero 自从添加了对 64 位的支持以来，一直在努力插入 RTL/VCL 中的类型正确性。位和跨平台开发。如果您没有正确匹配正确的数据类型，则可能会在运行时导致范围检查错误等。