1,594
社区成员
发帖
与我相关
我的任务
分享紧急求救!关于线程,请看如下代码.
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;
_________________________________________________________________
请问资源释放方面有什么问题没.
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;
_________________________________________________________________
请问资源释放方面有什么问题没.
...全文
请发表友善的回复…
发表回复
karach 2003-11-06
- 打赏
- 举报
线程没结束
sundust 2003-11-06
- 打赏
- 举报
谢谢各位,我改一下再试试看?呵呵.
liunini 2003-11-04
- 打赏
- 举报
同意aiirii(ari) ,没能处理线程结束的部分
lk2000 2003-11-03
- 打赏
- 举报
自己测试48小时，最可靠
你的while do 好象资源多
你的while do 好象资源多
aiirii 2003-11-03
- 打赏
- 举报
資源释放估計沒有問題, 就是沒有處理退出的部分!!!
一般用:
while not Terminate do
...
一般用:
while not Terminate do
...
zengwj 2003-11-03
- 打赏
- 举报
小问题，100分，楼主真大方呀！给我也来几分吧
leapmars 2003-11-03
- 打赏
- 举报
这是个死循环，线程根本不会结束
