Question

Delphi使用： 2007

大家好，

我有一个TListView，ViewStyle设置为vsReport。当我点击一个按钮时，我启动了大约50个线程。每个线程都有一个TListItem组件。每个TListItem都有一个SubItem，它是一个计时器。它从250开始并一直向下移动到0.用户能够看到TListView中的每个计时器都在减少。

我写了以下代码：

procedure TThreadWorker.DeleteTickets;
begin
 ListItem.Delete;
end;

procedure TThreadWorker.UpdateTimer;
begin
 ListItem.SubItems[1] := IntToStr(Timer);
end;

procedure TThreadWorker.TimerCounter;
begin
 Timer := 300;
 repeat
  Sleep(1000);
  Dec(Timer);
  Synchronize(UpdateTimer);
 until (Timer = 0);
 Synchronize(DeleteTickets);
end;

而且......它有效！但事情就是这样：所有这些同步似乎不必要地使CPU过载。显然，当我启动更多线程（100,200或300）或使用较弱的计算机时，这是一个更大的问题。起初，我不确定是同步;但如果我停用它们，CPU就不会再过载了。

坦率地说，这不是的大部分问题。但是，我觉得递减计时器不应该导致任何类型的CPU过载：我的代码可能不正确。我试着不经常调用UpdateTimer，虽然它软化了CPU过载，但它最终没有修复它。此外，我希望用户看到计时器更新每个秒。计时器也需要尽可能精确。

谢谢。

Answer 1

我认为你已经将这辆车放在马前了。让所有线程同步到主线程中，每个线程都有自己的定时器和消息队列，这将给系统带来沉重的负担。更重要的是，您通常不希望通过运行消息循环来增加线程负担。

在我看来，更好的方法是在主线程中放置一个计时器。当它勾选时，让它从每个需要报告的线程或任务中检索进度。您需要序列化对该进度的访问权限，但这并不昂贵。

Answer 2

我认为线程比你想象的更昂贵。根据我的记忆，CPU有交换每个线程进出缓存的开销。随着CPU交换出50个不同的线程，我对它的过载并不感到惊讶

一种解决方案可能是扩展TTimer组件，然后动态创建50个而不是50个线程。 TTimer使用windows api而不是线程。（下面的代码是未经测试的，但至少应该给你一个idead）

TMyTimer = class(TTimer)
begin
  public
    Timer: integer;
    ListItem: TListItem;
end;
...
procedure ButtonClick(Sender: TObject)
begin
  for i := 0 to 50 do
  begin
     ltimer = TMyTimer.Create;
     ltimer.Timer := 300;
     ltimer.ListItem := TListItem.Create;
     //initialize list item here
     ltimer.OnTimer := DecTimer;
  end;
end;

procedure DecTimer(Sender: TObject)
begin
  dec(TMytimer(Sender).Timer);
  TMyTimer(Sender).ListItem.SubItem[1] := StrToInt(TMytimer(Sender).Timer)
end;

如果线程全部同时启动，请尝试执行类似于一个线程控制最多25个计时器的操作。即对于50个计时器，你只有两个线程。然后，计时器事件将循环通过其25个计数器并递减它们。你仍然需要使用同步。

这个问题的答案可能有趣： How expensive are threads?

Answer 3

以下是使用TThread.Queue和TSimpleEvent来计算计数器而不是Sleep()的示例。

Type
  TThreadWorker = Class(TThread)
  private
    FTimer : Integer;
    FListItem : TListItem;
    procedure Execute; override;
    procedure UpdateTimer;
    procedure DeleteTicket;
  public
    constructor Create( aListItem : TListItem);
  End;

constructor TThreadWorker.Create(aListItem : TListItem);
begin
  Inherited Create(false);
  FListItem := aListItem;
  Self.FreeOnTerminate := true;
end;

procedure TThreadWorker.Execute;
var
  anEvent : TSimpleEvent;
begin
  anEvent := TSimpleEvent.Create(nil,true,false,'');
  try
    FTimer := 300;
    repeat
      anEvent.WaitFor(1000);
      Queue(UpdateTimer);
      Dec(FTimer);
    until (FTimer = 0);
    Self.Synchronize( DeleteTicket); // <-- Do not Queue this !
  finally
    anEvent.Free;
  end;
end;

procedure TThreadWorker.UpdateTimer;
begin
  FListItem.SubItems[1] := IntToStr(FTimer);
end;

procedure TThreadWorker.DeleteTicket;
begin
  FListItem.Delete;
end;

只需注意，DeleteTicket必须同步。执行完成后线程终止，队列中的任何内容都将悬空。

在没有CPU过载的情况下更新TListView中每个线程的计时器

3 个答案: