如何解决在TidHTTPServer.OnCommandGet内创建对象使用计时器失败
在TidHTTPServer.OnCommandGet
内,我创建了一个新对象。该对象有一个计时器,应立即启动但不应启动。 TimerEVent永不触发!
当我在其他地方创建对象时,它会起作用...
某些代码
TVolumeFader=Class(TObject)
...
constructor TVolumeFader.Create(...);
begin
inherited Create;
...
VolTimer:=TTimer.Create(NIL);
VolTimer.Enabled:=FALSE;
VolTimer.Interval:=100;
VolTimer.OnTimer:=DoTimerTick;
end;
procedure TVolumeFader.DoTimerTick(Sender:TObject);
begin
LogWrite('TimerTick in VolumeFader',Debug);
If Assigned(VolTimer)then Begin;
VolTimer.Enabled:=FALSE;
End;
try
LogWrite('Executing VolumeFade in VolumeFader',Debug);
VolumeFade;
finally
If Assigned(VolTimer)then
VolTimer.Enabled:=TRUE;
end;
end;
procedure TMain.OnCommandGet;
Begin;
TVolumeFader.Create(...);
End;
解决方法
在对象的构造函数中,您正在创建一个TTimer
,但是您将其Enabled
属性设置为False
。因此,请确保在构造函数退出后立即激活计时器。否则在构造函数中将False
更改为True
。
话虽如此,您的代码仍无法如所示那样工作。这是因为TIdHTTPServer
是一个多线程组件,其OnCommand...
事件在客户端连接到服务器时TIdHTTPServer
为自己创建的辅助线程的上下文中触发。但是TTimer
是基于消息的计时器,它为自己创建一个内部HWND
,该内部TTimer
与其创建的线程绑定在一起,并且该线程必须具有消息循环才能进行{{1 }}处理WM_TIMER
条消息。您在其中创建TTimer
的工作线程没有消息循环,因此TTimer
将无法触发其OnTimer
事件。
因此,您将必须:
- 创建对象后,在
OnCommand...
事件处理程序中运行您自己的消息循环,然后在事件处理程序退出之前释放该对象。无法保证一旦OnCommand...
事件处理程序退出后,调用线程将继续运行。请注意,在计时器运行时,客户端将被阻止向服务器发送任何其他HTTP命令:
procedure TMain.OnCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
fader: TVolumeFader;
msg: tagMSG;
begin
...
fader := TVolumeFader.Create(...);
try
while (timer should keep running) do
begin
//Application.ProcessMessages;
if PeekMessage(@msg,PM_REMOVE) then
begin
TranslateMessage(@msg);
DispatchMessage(@msg);
end else
Sleep(100);
end;
finally
fader.Free;
end;
...
end;
- 将创建对象及其
TTimer
委托给主UI线程,以便将OnTimer
事件处理程序在该线程的上下文中而不是在服务器的工作线程。如果需要访问与服务器共享的任何内容,只需确保您的OnTimer
代码是线程安全的:
procedure TMain.OnCommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
...
TThread.Synchronize(nil,// or TThread.Queue()
procedure
begin
TVolumeFader.Create(...); // when do you destroy this object?
end
);
...
end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。