WaitForSingleObject的困惑

2010-01-14 08:11:59 135 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

squirrel校园二手交易平台 squirrel校园二手交易平台（适合寻找SSM项目练手的你。）项目起源：　　期末的课程设计，三人一组，我和两个舍友，一时起兴，决定做一个校园二手交易平台，一开始兴致与激情满满，可是后期时间上的冲突，让我们三个人对于这个项目有点累。　　这个项目刚定题两天，BezosLee由于通过了360的网上在线笔试，收到了360公司的免费培训邀请，要去北京的360总部进行培训一周，值得庆... 阅读详情

如果有多个线程同时在
WaitForSingleObject
一个Event
当之前运行的一个线程SetEvent后
那么同时等待的其他线程将会同时收到这个信号而执行下面的代码，这样又会造成冲突
请问如何避免，或者如何使系统按照类似队列的方式先进先出的运行？

...全文

GhidrAssist：AI驱动的逆向工程助手实战指南逆向工程是分析软件内部工作原理、理解二进制代码逻辑的关键技术，广泛应用于软件安全、恶意代码分析和漏洞挖掘等领域。其核心原理在于通过反编译、控制流与数据流分析等手段，将机器码还原为可理解的高级语言表示。传统逆向分析高度依赖人工经验，面对海量代码时效率低下且易出错。随着大语言模型（LLM）技术的发展，其强大的代码理解与推理能力为自动化逆向分析提供了新的可能。通过将LLM与成熟的逆向工程框架（如Ghidra）相结合，可以构建智能辅助系统，实现代码意图的自动解释、变量/函数的智能重命名以及潜在漏洞模式的辅助识别，从阅读详情

IDWB

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

IDWB 2010-01-14

打赏
举报

测试代码：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

procedure ThreadExecutePoc(P:Pointer);

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
EventHandle:THandle;

procedure ThreadExecutePoc(P:Pointer);
begin
WaitForSingleObject(EventHandle,10000);
if boolean(p) then
Form1.Edit1.Text:='Event1'
else
Form1.Edit2.Text:='Event2';
EndThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
h:Thandle;
t:cardinal;
begin
h:=beginthread(nil,0,@ThreadExecutePoc,Pointer(true),0,t);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
h:Thandle;
t:cardinal;
begin
h:=beginthread(nil,0,@ThreadExecutePoc,Pointer(false),0,t);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
setevent(EventHandle);
end;

initialization
EventHandle:=CreateEvent(nil, FALSE, FALSE, nil)
finalization
CloseHandle(EventHandle);

end.

IDWB 2010-01-14

打赏
举报

刚才写了一段测试代码，试了一下应该是触发一次，问题可能处在
procedure WaitForTranEvent(FAdoconn:TAdoconnection);
begin
if FAdoConn.InTransaction then WaitForSingleObject(TranEventHandle,500);
end;

这个InTransaction不是用临界限制的，暂时不管了

dinoalex 2010-01-14

打赏
举报

排队的话,一般用临界就行了,不用临界的话,也可以用Semaphore

cnzdgs 2010-01-14

打赏
举报

如果这个参数给FALSE，不管有多少线程等待该事件，只会有一个线程得到信号。

dinoalex 2010-01-14

打赏
举报

如果想执行完一个线程再执行下一个,可以加临界进去吖

IDWB 2010-01-14

打赏
举报

[Quote=引用 1 楼 cnzdgs 的回复:]
CreateEvent时，第2参数给FALSE。
[/Quote]

第二个参数
bManualReset 创建的Event是自动复位还是人工复位 ,如果true,人工复位,
一旦该Event被设置为有信号,则它一直会等到ResetEvent()API被调用时才会恢复
为无信号. 如果为false,Event被设置为有信号,则当有一个wait到它的Thread时,
该Event就会自动复位,变成无信号.

这个好像和我的疑惑没什么关系

cnzdgs 2010-01-14

打赏
举报

CreateEvent时，第2参数给FALSE。

WaitForSingleObject的困惑

相关推荐