MyThread:=TMyThread.Create(False);
如何判断线程MyThread已执行完毕?
因为程序中有个事件必须等某线程完成后才执行
说明中说可以用ReturnValue,但我感觉这个值一直是0,没有变化啊
----------------------
用MyThread.Waitfor或者WaitForSingleObject(MyThread.Handle, INFINITE)
----------------------
把你要執行的事件放到線程的Excute中
MyThread.Execute
....
FreeOnTerminate:=True;
Onterminate:=你要執行的事件;
----------------------
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
{ TMyThread }
procedure TMyThread.Execute;
begin
FreeOnTerminate := False;
Sleep(5000);
end;
procedure TForm3.Button1Click(Sender: TObject);
var
T : TMyThread;
begin
T := TMyThread.Create(False);
try
T.WaitFor;
ShowMessage('执行完了');
finally
T.Free;
end;
end;
procedure TForm3.Button2Click(Sender: TObject);
var
T : TMyThread;
begin
T := TMyThread.Create(False);
try
if WaitForSingleObject(T.Handle, INFINITE) = WAIT_OBJECT_0 then
begin
ShowMessage('执行完了');
end;
finally
T.Free;
end;
end;
//方法是可以的,但是有一个缺点,当执行线程的时候主程序也会停下来等待线程的结束,主程序会暂
停响应,这样调用多线程就没有意义了。
----------------------
用Onterminate事件当然可以,但是这时线程并没有结束,仅仅表示Execute方法调用
结束了,而用WaitforSingleObject就不同了
----------------------
使用Onterminate事件固然有它的局限性,因为触发Onterminate事件的时候线程还没有完全结束,用它的优点是线程执行的同时,主程序也可以继续执行,这也是多线程的优点之一。
要实现线程完全结束才触发主程序继续执行的话,主线程中执行WaitFor是比较好的实现方法,然而主线程调用WaitFor必须用 MsgWaitForMultipleObjects来等待线程,而不是WaitforSingleObject。因为在线程函数Execute中可能调用Synchronize处理同步方法,而同步方法是在主线程中执行的,如果用WaitForSingleObject等待的话,则主线程在这里被挂起,同步方法无法执行,导致线程也被挂起,于是发生死锁。
如果必须要用WaitForSingleObject,应该另开线程来调用WaitForSingleObject,而不是在主线程。