我想在后台运行一个线程，它会检查与给定时间间隔的某个服务器的连接。例如每 5 秒一次。
我不知道这是否有一个好的“设计模式”？如果我没记错的话，我在某个地方读到过它的执行方法中的休眠线程并不好。但我可能错了。
另外，我可以使用普通的 TThread 类或 OTL 线程库。
有什么想法吗？
谢谢。
【问题讨论】：
标签： multithreading delphi delphi-2009 tthread omnithreadlibrary
在OmniThreadLibrary，你会这样做：
uses
OtlTask,
OtlTaskControl;
type
TTimedTask = class(TOmniWorker)
public
procedure Timer1;
end;
var
FTask: IOmniTaskControl;
procedure StartTaskClick;
begin
FTask := CreateTask(TTimedTask.Create())
.SetTimer(1, 5*1000, @TTimedTask.Timer1)
.Run;
end;
procedure StopTaskClick;
begin
FTask.Terminate;
FTask := nil;
end;
procedure TTimedTask.Timer1;
begin
// this is triggered every 5 seconds
end;
至于在 Execute 中休眠 - 这取决于您的操作方式。如果您使用睡眠，那么这可能不是很明智（例如，因为它会阻止线程在睡眠期间停止）。用 WaitForSingleObject 睡觉很好。
TThread 和 WaitForSingleObject 的一个例子：
type
TTimedThread = class(TThread)
public
procedure Execute; override;
end;
var
FStopThread: THandle;
FThread: TTimedThread;
procedure StartTaskClick(Sender: TObject);
begin
FStopThread := CreateEvent(nil, false, false, nil);
FThread := TTimedThread.Create;
end;
procedure StopTaskClick(Sender: TObject);
begin
SetEvent(FStopThread);
FThread.Terminate;
FThread.Free;
CloseHandle(FStopThread);
end;
{ TTimedThread }
procedure TTimedThread.Execute;
begin
while WaitForSingleObject(Form71.FStopThread, 5*1000) = WAIT_TIMEOUT do begin
// this is triggered every 5 seconds
end;
end;
OTL 定时器的实现类似于上面的 TThread 代码。 OTL 计时器保存在优先级列表中（基本上计时器按“下一次发生”时间排序），TOmniWorker 中的内部 MsgWaitForMultipleObjects 调度程序为最高优先级计时器指定适当的超时值。
【讨论】：
您可以使用事件并通过循环实现TThread 后代的Execute 方法，其中WaitForSingleObject 等待事件，指定超时。这样您就可以在需要时立即唤醒线程，例如终止时。
【讨论】：
如果线程在应用程序的生命周期内运行，可以在应用程序关闭时由操作系统简单地终止并且不需要准确的计时，为什么还要使用需要比 sleep(5000) 更多输入的解决方案？
【讨论】：
要添加另一种实现 5 秒事件的方法，可以使用类似于 TTimer 但不依赖于您的应用程序的多媒体定时器。配置后（您可以设置一次性或重复），它会在另一个线程中调用您。就其性质而言，它非常准确（在 1ms 以内）。见一些sample Delphi code here。
调用定时器的代码很简单，所有Windows平台都支持。
【讨论】：
【讨论】：