在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;

delphi delphi-10.3-rio indy10 multithreading