gpt4 book ai didi

Delphi - 将记录作为窗口消息发送

转载 作者:行者123 更新时间:2023-12-03 15:46:05 26 4
gpt4 key购买 nike

Delphi Tokyo - 我想通过 Windows 消息在表单之间发送记录结构。具体来说,我有一个“显示运行状态”类型的窗口。当我的应用程序中的其他地方发生行为时,我需要发送“更新状态窗口”类型的消息。我找到了一个通过 Windows 消息传递记录的示例(但仅在同一进程内),但在使其工作时遇到问题。具体来说,在接收端,我在编译 Windows 消息处理程序代码时遇到了麻烦。我有一个“不兼容类型”错误,但我不知道如何进行类型转换以使其正常工作。以下是适用的代码片段。

在 globals.pas 单元中,所有表单都可以访问。

// Define my message
const WM_BATCHDISPLAY_MESSAGE = WM_USER + $0001;
...
// Define the record which is basically the message payload
type
TWMUCommand = record
Min: Integer;
Max: Integer;
Avg: Integer;
bOverBudget: Boolean;
Param1: Integer;
Param2: String;
end;

...
// define a global variable
PWMUCommand : ^TWMUCommand;

现在发送消息。目前这只是一个测试按钮。

procedure TMainForm.BitBtn1Click(Sender: TObject);
var
msg_prm: ^TWMUCommand;
begin
New(msg_prm);
msg_prm.Min := 5;
msg_prm.Max := 10;
msg_prm.Avg := 7;
msg_prm.bOverBudget := True;
msg_prm.Param1 := 0;
msg_prm.Param2 := 'some string';
PostMessage(Handle, WM_BATCHDISPLAY_MESSAGE, 0, Integer(msg_prm));
end;

在接收表单上,又名我的状态表单...声明我的消息监听器

procedure MessageHandler(var Msg: TMessage); message WM_BATCHDISPLAY_MESSAGE;

现在定义消息处理程序。

procedure TBatchForm.MessageHandler(var Msg: TMessage);
var
msg_prm: ^TWMUCommand;
begin
try

// Next line fails with Incompatible types
msg_prm := ^TWMUCommand(Msg.LParam);
ShowMessage(Format('min: %d; max: %d; avg: %d; ovrbdgt: %s; p1: %d; p2: %s',
[msg_prm.Min, msg_prm.Max, msg_prm.Avg, BoolToStr(msg_prm.bOverBudget, True),
msg_prm.Param1, msg_prm.Param2]));
finally
Dispose(msg_prm);
end;
end;

如何将 Msg.LParam 强制转换回记录结构?

最佳答案

首先,为记录声明指针类型更容易:

type
PWMUCommand = ^TWMUCommand;
TWMUCommand = record
...
end;

然后在发布消息的方法中,将指针声明为 PWMUCommand

您的Integer 转换假定为 32 位代码。最好转换为该参数的真实类型,即 LPARAM

PostMessage(..., LPARAM(msg_prm));

在接收消息的函数中,使用指针类型声明局部变量:

var
msg_prm: PWMUCommand;

像这样转换:

msg_prm := PWMUCommand(Msg.LParam);

请注意,当您调用PostMessage时,您应该检查返回值以防失败。如果失败,那么您需要处理内存。

if not PostMessage(..., LPARAM(msg_prm)) then
begin
Dispose(msg_prm);
// handle error
end;

最后,我想您也知道,这种方法只有在发送者和接收者位于同一进程中时才有效。

关于Delphi - 将记录作为窗口消息发送,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52152568/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com