在线程中如何接收通过PostThreadMessage()发送的消息？

2002-02-22 09:41:59 500 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

dudo 墨衍会员 · AI 创作全网分发关注 + 加入社区

PostThreadMessage和SendMessage用法+结合CreateThread多线程讲解 PostThreadMessage和SendMessage用法+结合CreateThread多线程讲解阅读详情

最好有实例！

...全文

2024年C C++最全线程间通讯：PostThreadMessage，2024年最新C C++Apk安装过程在线程的消息循环中，我们通过GetMessage函数获取消息并进行处理。在本例中，我们判断接收到的消息是否为自定义消息WM_USER，并进行相应的处理。MFC 是微软提供的一套用于开发 Windows 应用程序的类库，它封装了许多常用的 Windows API 函数和功能，简化了 Windows 应用程序的开发过程。该函数通常用于线程间的通信，可以用来传递自定义消息或系统消息，从而实现线程之间的协作和信息交换。请注意，上述示例中的线程函数ThreadProc是一个简单的消息循环，用于处理线程收到的消息。阅读详情

dudo

非技术区 831 成员 53,568 内容

+ 关注 + 加入社区

切换为时间正序

dudo 2002-02-23

打赏
举报

我试过了，使用消息机制比不是用消息机制，速度差了很多，看来
想他法，感谢各位

torble 2002-02-22

打赏
举报

到处收集，呵呵～

stiwin 2002-02-22

打赏
举报

请问torble(阿裕)你在什么地下了这什么多的例子

torble 2002-02-22

打赏
举报

// 用 PeekMessage 接收

// 一个例子

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,MyThread;
const
WM_MyMessage=WM_USER+100;
type
TForm1 = class(TForm)
BtnQuitThread: TButton;
ListBox1: TListBox;
BtnPost: TButton;
BtnStart: TButton;
BtnExit: TButton;
procedure BtnQuitThreadClick(Sender: TObject);
procedure BtnStartClick(Sender: TObject);
procedure BtnPostClick(Sender: TObject);
procedure BtnExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
MyThread : MsgThread;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BtnQuitThreadClick(Sender: TObject);
begin
// MyThread.Terminate;
if MyThread = nil then exit;

if PostThreadMessage(MyThread.ThreadID,
WM_QUIT,0,0) then
Caption := 'Post Message Ok!'
else
Caption := 'Post Message Fail!';
end;

procedure TForm1.BtnStartClick(Sender: TObject);
begin
if (MyThread = nil) then
MyThread := MsgThread.Create(false);
end;

procedure TForm1.BtnPostClick(Sender: TObject);
begin
if MyThread = nil then exit;

if PostThreadMessage(MyThread.ThreadID,
WM_MyMessage,0,0) then
Caption := 'Post Message Ok!'
else
Caption := 'Post Message Fail!';
end;

procedure TForm1.BtnExitClick(Sender: TObject);
begin
MyThread.Free;
Close;
end;

end.

///////////// MyThread.pas/////////////////
unit MyThread;

interface

uses
Classes,windows, Messages;

const
WM_MyMessage=WM_USER+100;
type
MsgThread = class(TThread)
private
{ Private declarations }
FMyString : string;
protected
procedure Execute; override;
procedure ShowString;
end;

implementation

{ Important: Methods and properties of objects in VCL can only be used in a
method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure PMessage.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

{ PMessage }
uses Main;

procedure MsgThread.Execute;
var Msg : TMsg;
begin
{ Place thread code here }
FMyString := 'Thread Start!';
Synchronize(ShowString);

while (not Terminated) do
begin
if PeekMessage(Msg,0,0,0,PM_REMOVE) then
begin
if (Msg.message = WM_QUIT) then
begin
FMyString := 'Thread Quit';
Synchronize(ShowString);
Terminate;
end;
if (Msg.message = WM_MyMessage) then
begin
FMyString := 'Thread Get a USER Message!';
Synchronize(ShowString);
end;
end;
end;
end;

procedure MsgThread.ShowString;
begin
Form1.ListBox1.Items.Add(FMyString);
end;

end.

在线程中如何接收通过PostThreadMessage()发送的消息？

相关推荐