紧急求救!关于线程,请看如下代码.

Question

procedure TIPListening.Execute;
var
  NMHTTPPostIP: TNMHTTP;
begin
  while True do
  begin
    try
      NMHTTPPostIP := TNMHTTP.Create(nil);
      NMHTTPPostIP.TimeOut := 4000;
      NMHTTPPostIP.Get('http://www.test.com/test.php');
    finally
      NMHTTPPostIP.Free;
      NMHTTPPostIP := nil;
    end;
    Sleep(5000);
  end;
end;_________________________________________________________________
请问资源释放方面有什么问题没.

Answer 1

資源释放估計沒有問題, 就是沒有處理退出的部分!!!一般用:
  while not Terminate do
  ...

Answer 2

自己测试48小时，最可靠
你的while do 好象资源多

Answer 3

同意aiirii(ari) ,没能处理线程结束的部分