TService a ProcessMessages
V případě čekání na výsledek (čehokoli, třeba jiného běžícího vlákna) jsme zvyklí u TApplication “v čekacím” cyklu použít Application.ProcessMessages (tedy pokud nechceme, aby aplikace takzvaně vytuhla). U TService taková procedura chybí, ale můžeme si ji bez problému a jednoduše napsat sami:
procedure TService1.ProcessMessages;
var Msg:TMsg;
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
Napsat komentář