在使用delphi做开发时,使用线程可以从TThread继续,然后覆盖execute方法,这样我们的线程类就OK了,在execute写上要处理的代码就可以。当线程的执行从execute退出时线程也就结束了,这能正确的释放建立tthread时的一些资源,如果加while not terminated do...end中执行,调用terminate其实也是一个道理。delphi中线程结束代码如下:
try
if not Thread.Terminated then
try
Thread.Execute;
except
Thread.FFatalException := AcquireExceptionObject;
end;
finally
FreeThread := Thread.FFreeOnTerminate;
Result := Thread.FReturnValue;
Thread.DoTerminate;
Thread.FFinished := True;
SignalSyncEvent;
if FreeThread then Thread.Free;
EndThread(Result);
end;
EndThread时线程即被结束。通过代码看到如果execute发生异常也是能正常释放资源的,因为外层有个更大的tryf。假如我们通过terminatethread结束线程那么是不会执行finally中代码的,资源便不会释放。进程中加载的dll也不会收到线程结束的通知。如果长期这样结束,会导致创建线程时报"thread creation error. 系统内存不足,无法处理此命令"。