关于MsgWaitForMultipleObjects的应用。

[litangel]

clever internet suite套件。

里面的HTTP控件，在下载文件呀上传文件的时候，这时点窗口关闭，根本不起作用。
所以想改一下。

找到如下函数：

function WaitForEvent(AEvent: THandle; ATimeOutTicks, ATimeOut: Integer): Boolean;
var
res: DWORD;
Msg: TMsg;
events: array[0..0] of THandle;
begin
events[0] := AEvent;
res := MsgWaitForMultipleObjects(1, events, FALSE, DWORD(ATimeOut), QS_ALLEVENTS);
case res of
WAIT_FAILED:
begin
RaiseSocketError(WSAGetLastError());
end;
WAIT_TIMEOUT:
begin
RaiseSocketError(cTimeoutOccured, -1);
end;
WAIT_OBJECT_0 + 1:
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
//add start
if Msg.message in [WM_CLOSE] then
begin
Break;
end;
//add end

TranslateMessage(Msg);
DispatchMessage(Msg);
if Integer(GetTickCount()) - ATimeOutTicks > ATimeOut then
begin
RaiseSocketError(cTimeoutOccured, -1);
end;
end;
if Integer(GetTickCount()) - ATimeOutTicks > ATimeOut then
begin
RaiseSocketError(cTimeoutOccured, -1);
end;
end;
end;
Result := (res = WAIT_OBJECT_0);
end;


我加入如下代码：
//add start
if Msg.message in [WM_CLOSE] then
begin
Break;
end;
//add end

根本不起作用。


请问高手，能帮忙解决一下吗？

[litangel]

WaitForEvent是在主线程调用

[brightyang]

up一下

[ERR0RC0DE]

PeekMessage(Msg, 0, 0, 0, PM_REMOVE)
是会将所有的APP消息取出。
那有可能是处理一条消息耗时N久，那就有可能还未取WM_CLOSE消息时就超时了。

另：将if Msg.message in [WM_CLOSE] then改掉。in操作好像只限于0..255值之间

[hongqi162]

试试这样
if Msg.message = WM_CLOSE then
begin
  PostQuitMessage(Msg.wParam);
  Break;
end;

[ERR0RC0DE]

WaitForEvent是在次线程还是主线程调用？

[bee2518]

MsgWaitForMultipleObjects处理WM_CLOSE不会调到WAIT_OBJECT_0 + 1中，就肯定不会发生作用了