terminatethreadVB/易语言中TerminateThread如何终止线程?

terminatethread  时间:2021-07-16  阅读:()

TerminateThread杀不了线程怎么回事

这个我试过,跟中止进程类似,用API: 1.取线程中止码:GetExitCodeThread((void *)thread->Handle,&ExitCode); 2.强行中止: TerminateThread((void *)thread->Handle,ExitCode); 如此而已 这是一个死循环线程: __fastcall MyThread::MyThread(bool CreateSuspended) : TThread(CreateSuspended) { } //--------------------------------------------------------------------------- extern int js; void __fastcall MyThread::Execute() { //---- Place thread code here ---- while (true) js++; // 死循环,不停地计数 } ====================================================== //下面是主程序: #include #pragma #include "Unit1.h" #include "Unit2.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; int js=0; // 全局变量 js MyThread *thread=NULL; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { Edit1->Text=js; // 时钟不断显示js值 } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) // 运行线程 { if (thread==NULL) { thread= new MyThread(true); thread->Priority =tpHigher; thread->Resume(); // 线程运行 } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) // 中止线程 { if (thread!=NULL) { unsigned long ExitCode; if (!GetExitCodeThread((void *)thread->Handle,&ExitCode)) ShowMessage("得不到退出码,中止失败!"); else { if (TerminateThread((void *)thread->Handle,ExitCode)) { delete thread; thread=NULL; } else ShowMessage("中止失败!"); } } } 中止线程后,Edit1的值就不再变化

delphi 里如何创建线程执行完线程后结束线程.

在Delphi中使用线程,当窗体关闭时,如果窗体中启用了线程,一般需要手动关闭,以释放资源。

常用来结束线程的代码为: PcmThrd.Terminate; PcmThrd.WaitFor; 即先触发Terminate方法,然后等待线程的结束。

这种方法要求线程不能使用 FreeOnTerminate := True; ,否则在WaitFor即将结束的时候会引发“无效句柄”的错误。

这种方法在窗体关闭的时候会等待一段事件(因为WaitFor)。

因此,如果不是在主窗体中结束线程时,其实我们可以不必使用WaitFor。

而是采用如下方法: 将FreeOnTerminate := True; 这样在窗体关闭的代码中直接调用 PcmThrd.Terminate; 即可。

注意: 如果设置了 PcmThrd.OnTerminate := SomeFunction; 那么在调用PcmThrd.Terminate;前尽量将PcmThrd.OnTerminate := nil,以免结束线程后SomeFunction中的变量出现空指针错误。

当然,这不是绝对的,需要根据具体程序而定 DELPHI 线程的终止和退出 1、自然退出 一个线程从execute()过程中退出,即意味着线程的终止,此时将调用windows的exitthread()函数来清除线程所占用的堆栈。

如果线程对象的 freeonterminate 属性设为true,则线程对象将自动删除,并释放线程所占用的资源。

2、terminate属性退出 利用线程对象的terminate属性,可以由进程或者由其他线程控制线程的退出。

只需要简单的调用该线程的terminate方法,并设直线程对象的terminate属性为true。

在线程中,应该不断监视terminate的值,一旦发现为true,则退出,例如在execute()过程中可以这样写: while not terminated do  begin   ....... end; 3、利用api 函数 线程退出的api 函数声明如下: function terminatethread(hthread:thandle;dwexitcode:dword); 这个函数会使代码立刻终止,不管程序中有没有   try....finally   机制,可能会导致错误,不到万不得已,最好不要使用。

4、挂起后释放 利用挂起线程的suspend方法,后面跟个free,也可以释放线程,例如:    thread1.suspend;  //挂起    thread1.free;     //释放 遇到的" Code:1400 无效窗口句柄 "的问题,关闭不了程序 最近写程序,遇到的" Code:1400 无效窗口句柄 "的问题,关闭不了程序?! 似乎是在线程里调用了主窗体的东西,使得释放的先后次序被打乱了,所以句柄有问题! 但是要找到问题的根源太麻烦了,这时有招必杀技! 大家要记好了,有类似的无法关闭程序的问题,一句搞定! ExitProcess(0); 简单的说就是终止自己的进程!虽然是暴力了一点,但是绝对有效! 但是这种方法不会触发onclose之类的事件,可以说是不触发任何事件,无痛无痒地结束了进程,干净利落,所以要记得在结束之前保存必要的数据,做必要的操作,最好是释放一下内存,在Win下结束进程是非常不干净的,会有内存残留。

获取线程状态 Function CheckThreadFreed(aThread: TThread): Byte; var i: DWord; IsQuit: Boolean; begin if Assigned(aThread) then begin IsQuit := GetExitCodeThread(aThread.Handle, i); if IsQuit then //If the function eeds, the return value is nonzero. //If the function fails, the return value is zero. begin if i = STILL_ACTIVE then //If the specified thread has not terminated, //the termination status returned is STILL_ACTIVE. Result := 1 else Result := 2; //aThread未Free,因为Tthread.Destroy中有执行语句 end else Result := 0; //可以用GetLastError取得错误代码 end else Result := 3; end; 快速关闭线程 //=========ThrdMain.pas================== Var hEventDead:Thandle; constructor ThrdMain.Create; begin hEventDead := CreateEvent(0,true,False,‘‘);//创建对象事件 inherited Create(False); end; //创建对象关闭事件 function ThrdMain.WaitEventDead: Boolean; begin //创建线程 var Thread_Main:ThrdMain ;(调用自我创建的线程对象) Thread_Main:=ThrdMain.Create ; //关闭线程 Thread_Main.WaitEventDead ; Thread_Main.WaitFor ; //=========ThrdMain.pas================== var hEventDead:Thandle; constructor ThrdMain.Create; begin hEventDead := CreateEvent(0,true,False,‘‘);//创建对象事件 inherited Create(False); end; //创建对象关闭事件 function ThrdMain.WaitEventDead: Boolean; begin Gbl_ReadSMS:=False; WaitForSingleObject(hEventDead,500);//表示在0.5秒内强制关闭 end; 多线程的检查,与关闭线程 procedure TDemoThread.Execute; begin inherited; if Assigned(FOnHintText) then FOnHintText(Self); end; procedure TForm1.ShowThreadDemo(Sender: TObject); var i: Integer; begin for i := 0 to 1000 do begin Memo1.Lines.Add(IntToStr(i)); end; end; procedure TForm1.Button2Click(Sender: TObject); var vI: DWord; IsQuit: Boolean; begin Demo := TDemoThread.Create(True); //True:创建时不启动线程 Demo.FreeOnTerminate := True; //设置程结束时自动释放 Demo.FOnHintText := ShowThreadDemo; //Demo.OnTerminate:= ShowThreadDemo; Demo.Resume; //启劫线程 end; procedure TForm1.FormDestroy(Sender: TObject); var vI: DWord; IsQuit: Boolean; begin if Demo <> nil then begin vi := CheckThreadFreed(Demo); //检查当前线程是否在执行 if (vi = 1) or (vi = 2) then TerminateThread(Demo.Handle, vi); //如果线程在执行则强行退出 Demo.Free; end; {if Demo<> nil then begin Demo.Terminate ; Demo.WaitFor ; end;} //等待线程结束,并终止它 end; procedure TForm1.Button1Click(Sender: TObject); begin Demo.Free; end; procedure TForm1.Button4Click(Sender: TObject); var vI: DWord; IsQuit: Boolean; begin //判断当前线程的状态 vI := CheckThreadFreed(Demo); ShowMessage(IntToStr(vI)); end;

Terminate是请求结束一个线程,那么如何真正结束一个线程呢?

推荐通过让线程运行结束返回的方法结束线程. 仅当你确切知道该线程的作用和该线程在结束时可能运行的代码的时候调用TerminateThread 来结束线程. 不然后果是它的初始化堆栈没有被释放, 占用的临界区没有释放,连接到该线程的 DLLs 没有知道该线程要结束, 而且如果目标线程管理着一个共享 DLL 的全局状态, 则该 DLL 的状态可能被毁坏, 影响到其他的 DLL 用户.

VB/易语言中TerminateThread如何终止线程?

VB6.0的。

代码如下。

单击窗体效果就显现。

================Option ExplicitPrivate Declare Function GetCurrentThread Lib "kernel32" () As LongPrivate Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As LongPrivate Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As LongPrivate Sub Form_Click()Dim hT As OLE_HANDLE, lEC As LonghT = GetCurrentThreadGetExitCodeThread hT, lECTerminateThread hT, lECEnd Sub

WebHorizon($10.56/年)256MB/5G SSD/200GB/日本VPS

WebHorizon是一家去年成立的国外VPS主机商,印度注册,提供虚拟主机和VPS产品,其中VPS包括OpenVZ和KVM架构,有独立IP也有共享IP,数据中心包括美国、波兰、日本、新加坡等(共享IP主机可选机房更多)。目前商家对日本VPS提供一个8折优惠码,优惠后最低款OpenVZ套餐年付10.56美元起。OpenVZCPU:1core内存:256MB硬盘:5G NVMe流量:200GB/1G...

乐凝网络支持24小时无理由退款,香港HKBN/美国CERA云服务器,低至9.88元/月起

乐凝网络怎么样?乐凝网络是一家新兴的云服务器商家,目前主要提供香港CN2 GIA、美国CUVIP、美国CERA、日本东京CN2等云服务器及云挂机宝等服务。乐凝网络提供比同行更多的售后服务,让您在使用过程中更加省心,使用零云服务器,可免费享受超过50项运维服务,1分钟内极速响应,平均20分钟内解决运维问题,助您无忧上云。目前,香港HKBN/美国cera云服务器,低至9.88元/月起,支持24小时无理...

美国服务器20G防御 50G防御 688元CN2回国

全球领先的IDC服务商华纳云“美国服务器”正式发售啦~~~~此次上线的美国服务器包含美国云服务器、美国服务器、美国高防服务器以及美国高防云服务器。针对此次美国服务器新品上线,华纳云也推出了史无前例的超低活动力度。美国云服务器低至3折,1核1G5M低至24元/月,20G DDos防御的美国服务器低至688元/月,年付再送2个月,两年送4个月,三年送6个月,且永久续费同价,更多款高性价比配置供您选择。...

terminatethread为你推荐
stackoverflowerrorjava.lang.StackOverflowError该如何解决元数据管理什么是元数据?(指数据中心建设而言)举个例子说明一下。食品商务网食品方面的网站那个最好!最开放的浏览器网页浏览器有哪些啊?mindmanager破解版求亿图mac破解版百度云!!!李昊天铠甲勇士2刑天的李昊天秘密是什么调度系统操作系统中为什么需要调度?索引超出了数组界限索引超出了数组界限是怎么回事啊?数秦科技数秦科技旗下有哪些区块链项目?jsindexofjavascript 中indexof 的用法
wordpress主机 堪萨斯服务器 韩国俄罗斯 美国php空间 ibrs 云鼎网络 服务器托管什么意思 网络空间租赁 爱奇艺vip免费领取 免费邮件服务器 网通服务器 smtp服务器地址 国外的代理服务器 qq金券 阿里云个人邮箱 乐视会员免费领取 汤博乐 新疆服务器 聚惠网 studentmain 更多