为啥我的线程不能结束!郁闷中.....(100分)

C

chinanbzxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #1

我在线程中明明用了 freeOnTerminata:=true;
但是就是结束不了!我靠
我是这样调用的
qt:=TqueryThread.create(self);
with qtdo

begin
onTerminate:=Terminateit;
resume;
end;

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #2

//qt:=TqueryThread.create(self);
?????????????

 

小

小笨苯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #3

>>qt:=TqueryThread.create(self);
9494 ？？？？？？？？？？？
qt:=TqueryThread.create(Boolean值);

 

C

chinanbzxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #4

不好意思我写错了
qt:=TqueryThread.create(false);
线程放在单独一个单元!
就是不能结束!在主程序运行一下某个事件时就可以结束了,我考,郁闷!!

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #5

//qt:=TqueryThread.create(false);
qt:=TqueryThread.create(True);

 

小

小笨苯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #6

chinanbzxx；
你将你的完整代码贴一下吧

 

C

chinanbzxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #7

小笨苯 你的MSN???我的MSN:NBZXX@CNNB.NET

 

C

c96301

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #8

qt:=TqueryThread.create(True);
传True 表示线程创建的时候被挂起，然后调用resume 唤醒线程

 

W

wang_junfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-10

• #9

多线程要在线程内部结束,一般多线程的EXECUTE都是死循环,在循环体内加
IF TERMINATED then
EXIT

 

S

simon5430

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #10

线程内部好像不能结束自己把
调用线程对象的destory

 

太

太阳火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-16

• #11

qt:=TqueryThread.create(true);
//create suspended, 否则下面的代码无效
with qtdo

begin
onTerminate:=Terminateit;
resume;
end;

 

C

c96301

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #12

Terminateit这个是什么变量？哪里定义的。

 

S

songbo_pp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #13

强行杀死线程：
TqueryThread.Execute;
begin
while not terminateddo
begin
//do
end;
end;
如果停止运行，在控制端执行：
qt.suspended := false;
qt.terminate;
安全结束：
private
FStopRunning: boolean;
procedure TqueryThread.StopRunning;
begin
FStopRunning := true;
end;

TqueryThread.Execute;
begin
while not FStopRunning do
begin
//do
end;
end;
在控制端调用
qt.StopRunning;

 

X

xjxjjx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-08

• #14

qt:=TqueryThread.create(true);
with qtdo

begin
onTerminate:=true;
resume;
end;
其次在TqueryThread.Excute过程中不能有无限循环或资源死锁！

 

M

mistjin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #15

最同意楼上的说法!

 

Y

yubing8

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #16

用api强制结束线程，但有可能会出错

 

M

moonbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-02

• #17

TqueryThread.Excute过程中不能有无限循环或资源死锁的情况下，
我觉得可以这样写：
qt:=TqueryThread.create(true);
with qtdo

begin
FreeOnTerminate:=true;
onTerminate:=Terminateit;
resume;
end;
或者
在实现线程的Execute方法时这样写：
procedure TqueryThread.Execute;
begin
FreeOnTerminate:=true;
onTerminate:=Terminateit;
......
end;
调用时：qt:=TqueryThread.create(false);