终止线程vb.net 终止线程的方法

vb.net 中的异步委托机制，最好有相关的详细资料讲解，我是新手

所谓的委托（Delegate）实际上就是和C/C++里面的函数指针差不多，只是增强了类型检查等其它健壮性方面的内容。异步调用的回调函数有格式要求，所谓格式要求就是参数数量及类型顺序的要求，具体是什么样的你要看文档了。一般.NET Framework里面都是AsyncCallBack。

所谓异步编程，就是说你要求做某样事情，但是在完成这件事之前，我能接着做下一件事，而当这件事情完成之后，能够有一种机制通知我完成了。相反，在完成之前一直等待，直到完成了才能进行下一步操作，叫做同步。一般来说，我们平常写的程序都是“同步”，或者成为“顺序执行”更加贴切，而“异步”则可以说是“乱序执行”的。

可以看到，同步的代码非常好写，因为我们可以预测执行的顺序和情况。而异步就不是很好写了，因为无法得知完成的时候我正在做什么、做到什么程度。过去写这些代码是比较麻烦的，实现的办法就是自己建立一个处理异步事物的线程，然后在这个线程和主线程之间建立联系。而现在这个过程大部分已经被系统封装起来了，你只要调用BeginXXX，系统就会为你自动建立一个新的线程处理这个事情，当前线程不阻塞，可以马上进行下一项操作，于是就实现了“异步”了。但是从前面我讲道的你就应该知道，开始异步操作并没有完事，还需要能够得知操作完成，并能够进行相应的处理。于是你在调用BeginXXX的时候就需要传递一个回调函数，在.NET里是以委托的方式传递的。回调函数的意思就是“回过头来调用你”，或者说A调用B并且传递函数C的地址，于是B在指定的情况下调用A指定的函数C。现在就应该明白这个回调函数在BeginXXX中的作用就是，当你指定的事情做完之后将会调用这个回调函数。

在这个回调函数里面，我们就可以进行一些后续的工作，例如接着进行性质相同的工作，或者相应的处理。在这里，我们也许向知道刚才那件事情执行的情况和结果，这个时候我们就可以通过EndXXX来获得这些东西。说到这里，结合上面说到的AsyncCallBack以及随便哪个BeginXXX，我们可能会对下列两个东西感到困惑：

IAsyncResult

stateObject

首先说IAsyncResult，这个是一个接口，你在回调函数中通过参数获得的对象具体是什么类型的一般我们不需要关心，我们只需要依照这个接口的定义进行访问就可以了。简单点说，这个接口规定了顺利完成异步操作所需信息的最小集合。一般来说，我们需要通过这个参数（ar）来识别异步操作。比如说，你在一瞬间发起一百个“从不同的网络连接获取数据”的异步请求，当某一个请求被完成的时候，如何判断是那个请求被完成呢？就是依靠回调函数的参数ar。实际上你一般是不需要参与判断的，你只要将这个ar传递给EndXXX就可以了，EndXXX会根据这个ar自行判断的。需要注意的是，这个ar就是你调用BeginXXX的时候的返回值，可以说是一个存根，如果你需要在完成操作前终止他，也可以通过将这个存根传递给EndXXX，EndXXX就会根据情况终止操作。（IAsyncResult里面的IsCompleted提供了是否已经完成的判断，EndXXX就是根据这个值决定是否有必要终止。当然，你不需要关心他。）

接下来我们看看stateObject，这个东西被称为状态对象。于是大家就可能奇怪了：那个ar不也是状态吗？实际上stateObject是一个留给用户使用的东西，BeginXXX/EndXXX根本就不使用。这个stateObject会被装到ar的AsyncState里面，也就是说这个stateObject可以随时通过访问存根（BeginXXX的返回值）或者回调函数里的ar得到，你完全没必要额外的保存到什么地方，更不需要费神的去考虑如何和你的某个异步操作对应起来。说了半天，这个东西有什么用呢？你想怎么用就怎么用呗，发挥一下你的想象力。比如说，你可以保存这是第几次操作，或者在多个异步操作之间要同步的时候可以作为信号旗，再或者直接是操作这个异步操作的对象（x.BeginXXX的时候将x传递到stateObject参数上）。

第一种用法有点多余，第二种用法有点复杂，第三种我用得最多。因为你很可能在协一个服务端，而服务段必须能够响应多个客户端，这决定了必须用异步。同时，对于多个客户端必然有多个对象，例如网络连接的时候可能是Socket。而实际上处理的方法或者协议是和具体哪个客户端没有关联的，因此我们只需要一套处理程序就够了。这个时候第三种用法就很有用处，我们完全可以把代码写成这样：

Sub DataReceived(ByVal ar As IAsyncResult)

ar.AsyncState.EndReceive(ar)

ar.AsyncState.BeginReceive(... , ar.AsyncState)

End Sub

这样就不需要额外的数据结构去记录有那些正在活动的对象了。

相关问答

Q1: vb.net 如何强制终止子线程？

使用api

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

Q2: 求大神指导VB.net 线程 ThreadState 的使用方法 怎么获取线程状态,是否被挂起堵塞停止等等

用time控件啊，获取threadstate后，按指定时间间隔规定向界面刷新，线程必须是全局变量

用一个有退出条件的无限循环的sub也行。

线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。

不过用法要正确，否则会出问题。

Q3: delphi程序运行时别的功能无法使用

因为你写的程序是独占模式，而不是应用线程。瑞星杀毒时，点击别的菜单仍然有反应，是因是杀毒过程是另一个线程，WIN 98/NT/2000/XP 是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU 运行时间和资源，或者说，把CPU时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。

下面是自己找的一些资料，你参考一下：

多线程带来如下好处：（自己阅读）

1）避免瓶颈；

2）并行操作；

3）提高效率；

在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了

任务管理的灵活性。

另一方面，在多CPU 系统中，可以把不同的线程在不同的CPU 中执行，

真正做到同时处理多任务（Win 98 只是模拟的，而Win/NT/2000是真正的

多CPU同时操作）。

多线程的两个概念：

1） 进程：也称任务，程序载入内存，并分配资源，称为“一个进程

”。注意：进程本身并不一定要正在执行。进程由以下几部分组成：

a一个私有的地址空间，它是进程可以使用的一组虚拟内存地址空间；

b程序的相关代码、数据源；

c系统资源，比如操作系统同步对象等；

d至少包含一个线程（主线程）；

2） 线程：是程序的执行单位（线程本身并不包括程序代码，真正拥

有代码的是进程），每个进程至少包括一个线程，称为主线程，一个进程

如果有多个线程，就可以共享同一进程的资源，并可以并发执行。

线程是进程的一个执行单元，是操作系统分配CPU 时间的基本实体，

线程主要由如下两部分组成：

a数据结构；

bCPU 寄存器和堆栈；

一个进程中的线程，可以独立运行，也可以控制另一个线程的运行。

请注意：

多线程不能滥用，书上提到了多线程的几个缺点（自阅）。

2-2 Tthread 对象

虽然Windows 提供了比较多的多线程设计的API 函数，但是直接使用

API 函数一方面极其不方便，而且使用不当还容易出错。为解决这个问题，

Borland 公司率先推出了一种Tthread 对象，来解决多线程设计上的困难，

简化了多线程问题的处理。

应该注意，Tthread 对象是没有实例的，它和界面的交流，主要依靠

主窗体（主VCL线程），这和其他对象使用上有些区别。

一、Tthread 对象的主要方法

构造线程：

constructor Create(CreateSuspended:boolean)

其中：CreateSuspended=true 构造但不唤醒

false 构造的同时即唤醒

也可以用如下方法

inheried Create(CreateSuspended:boolean)

挂起线程：

suspend

（把线程挂起的次数加一）

唤醒线程：

resume

（注意：注意这个属性是把线程挂起的次数减一，当次数为0 时，

即唤醒。也就是说，线程挂起多少次，唤醒也需要多少次。同时挂起

的时候将保持线程的地址指针不变，所以线程挂起后再唤醒，将从挂

起的地方开始运行）

析构（清除线程所占用的内存）：

destroy

终止线程（后面会具体讨论）:

Terminate

二、线程应用的简单例子：

下面通过一个例子说明上述方法的应用。我们知道，循环是独占

性最强的运行方式之一，现在希望建立两个线程对象，实现循环的并

行运行。具体方法如下：

File---New---Thread Object

这就自动在主Form中建立了一个线程单元（在对话框里写上线程名

字），默认的名字是Unit2。同样方法建立第二个线程单元Unit3。

要注意的是：Unit2和Unit3中有一个给定的过程：

procedure Object.Execute;

begin

end;

其中的程序是线程唤醒后自动执行的程序，也可以在里面调用其

他自定义的过程和函数。这个过程的结束，意味着线程程序的结束。

为了构造线程，在interface的Type区，定义一个构造过程：

type

Object = class(TThread) //自动给出的，也可以直接改

private

protected

procedure Execute; override;

public

constructor create; //自己写的

并且在implementation区域写上：

constructor Object.create;

begin

inherited create(true);

end

其中Object 为线程对象的名字。所以这么写，是希望在主Form中

调用这个构造过程。

Create()的参数用True，表明构造出的线程为挂起状态。

注意一下，在同一个线程对象里，如果两次构造，将产生两个独立

的线程，不但运行是独立的，而且使用线程的局部变量也是独立的。但

这里为了简化问题，还是建立了两个独立的线程对象，而且两个循环数

是不同的，在并行运算时容易判断出是两个不同的程序在运行。

假定我们给两个线程对象起的名字是：

mymath1

mymath2

这样在Unit1，应该作如下声明：

implementation

{$R *.DFM}

uses unit2,unit3;

var thread1:mymath1;

thread2:mymath2;

这样在主线程，将可以通过这两个线程变量调用对应的线程方法。

在主线程区构造线程的方法是：

thread1:=mymath1.create;

thread2:=mymath2.create;

挂起：

thread1.suspend;

thread2.suspend;

唤醒：

thread1.resume;

thread2.resume;

析构：

thread1.destroy;

thread2.destroy;

这里需要说明的是，由于线程单元需要调用Form的Edit控件（对象），

可以采用两种方法：

1） 在线程单元定义一个TEdit对象，例如

edit4:Tedit;

在Execute过程内直接引用

但在Unit1中一定要在FormCreate过程里作一个赋值：

procedure TForm1.FormCreate(Sender: TObject);

begin

thread1.edit4:=edit1;

end;

这样，就把第一线程的edit4与Form上的edit1联系来。

2）在第二个线程中首先声明调用Unti1，也就是要加上

Uses Unit1;

这样就可以在该线程单元直接调用主Form的控件了，比如在Unit3中

可以写：

form1.edit2.text:=inttostr(i)

了解了这些基本规则，就可以写出比较复杂的多线程程序了。

还有一点要说明的，默认生成的线程单元，调用的单元只有一个：

Uses Classes;

这样，往往很多函数和对象在线程单元里不能使用，所以在必要时，

应该根据需要User相应的单元，这个例程为了简单，把大部分常用的单

元都拷过去了，这并不是推荐的办法，因为这样一来会使程序的垃圾过

多，所以，一般要用什么拷什么。

三、常用的API 函数

在处理多线程问题的时候,也经常用到Windows提供的API 函数，需

要说明的是，Tthread 对象内部封装的方法，其实主要也是调用API 函

数，但是，考虑更全面，更安全。而直接调用API 函数，往往会因为运

用不当，出现一些不应有的错误。所以，我个人以为，只要用Tthread

对象的方法能解决的，就不要直接调用API 函数，API 函数只应该在用

在Tthread 对象方法解决不了的时候。

例如Tthread 对象方法内部调用API 函数的时候，一般使用推荐的

默认值，但需要更精细的控制时，就可以直接使用API 函数。

其实，Tthread 对象方法已经受到了大多数程序设计者的认可，比

如，原来VB是不具备直接处理多线程的能力的，但是，现在VB.Net就宣

称，它具备了简单处理多线程问题的能力，这就很说明问题。

下面简单介绍几种API 函数，为了清晰方便，这里着重在于说明，

函数正确的描述可以自己阅读书上的例子和手册：

构建线程：

CreateThread(参数1，--安全属性（一般=Nil，默认安全属性）

参数2，--线程堆栈尺寸（一般=0，与主线程相同长

度，而且可以根据需要自动变化）

参数3，--指向函数名指针，@函数名，这个参数十

分重要，不正确将无法调用成功。

参数4，--用户需要向线程传递的参数，是一个指向

结构的指针，不需传递参数时，为Nil。

参数5）--传入与线程有关的一些参数，例如：

CREATE_SUSPENDED 创建一个挂起的线程；

0 创建后立即激活。

书上有这个函数应用的十分清晰的例子，可以自己阅读。

一般并不推荐使用 CreateTheard函数，而推荐使用RTL 库里的

System单元中定义的 BeginTheard函数，因为这除了能创建一个线程

和一个入口函数以外，还增加了几项保护措施，具体的请参阅书上的

第10页说明。

对应suspend（挂起）和resume（唤醒）的两个API 函数为：

Function SuspendThread(hThread:Thandle):DWORD;

Function ResumeThread（hThread:Thandle):DWORD;

其中，Thandle被要求控制线程的句柄，函数调用成功，返回挂

起的次数，调用不成功。则返回0xFFFFFFFF。

四、线程的终止和退出：

1)自动退出：

一个线程从Execute()过程中退出，即意味着线程的终止，此时

将调用Windows的ExitThread()函数来清除线程所占用的堆栈。

如果线程对象的 FreeOnTerminate 属性设为True，则线程对象

将自动删除，并释放线程所占用的资源。

这是消除线程对象最简单的办法。

2)受控退出：

利用线程对象的Terminate属性，可以由进程或者由其他线程控

制线程的退出。只需要简单的调用该线程的Terminate方法，并设直

线程对象的Terminate属性为True。

在线程中，应该不断监视Terminate的值，一旦发现为True，则

退出，例如在Execute()过程中可以这样写：

While not Terminate do

begin

........

end;

3)退出的API 函数：

关于线程退出的API 函数声明如下：code

Function TerminateThread(hThread:Thandle;dwExitCode:DWORD);

不过，这个函数会使代码立刻终止，而不管程序中有没有

try....finally

机制，可能会导致错误，不到万不得已，最好不要使用。

4) 利用挂起线程的方法（suspend）

利用挂起线程的suspend方法，后面跟个Free，也可以释放线程，

例如：

thread1.suspend; //挂起

thread2.free; //释放

书上有相应的例子。

五、 线程的优先级：

在多线程的情况下，一般要根据线程执行任务的重要性，给线程

适当的优先级，一般如果量的线程同时申请CPU 时间，优先级高的线

程优先。

在Windows下，给线程的优先级分为30级，而Delphi中Tthread

对象相对简单的把优先级分为七级。也就是在Tthread中声明了一个

枚举类型TTthreadPriority:

type

TTthreadPriority(tpidle,tpLowest,tpLower,tpNormal,

tpHight,tpHighest,tpTimecrital)

分别对应的是最低（系统空闲时有效，-15），较低（-2），低

（-1），正常（普通0），高（1），较高（2），最高（15）。

其中tpidle和tpTimecrital有些特殊，具体情况请阅读书上有

关内容。

设置优先级可使用thread对象的priority属性：

threadObject.priority:=Tthreadpriority(级别);

这里给出了一个演示多线程优先级的实例：

2-3 在数据库中使用多线程

一）使用ADO模式

由于Delphi 6.0的ADO 数据源控件内置了多线程能力，所以，在

ADO模式下，使用多线程不需要做更多的工作。用两个ADOTable控件，

分别连到两个数据库，并且分别通过DataSource控件，与数据帮定控

件联系就可以了，这样就可以实现前后台处理数据库问题。

二）使用BDE模式和Tseeion对象

如果需要使用BDE 模式，那么多线程使用数据库，就要考虑Session

的问题。在单线程时，每个数据源的建立就自动生成一个Session，

这是这个数据源私有的关于数据库信息的文件。但多线程时，必须统

一管理，所以在BDE 中专门提供了一个Tsession对象，它可以同时管理

不同的Databas数据源对象。

Databas数据源可以接受来自不同数据平台的数据库。

数据库1---databas(2)----table(Qurey)(3)---datasource

| |

| |

|--------- Tsession(1)

| |

| |

数据库2---databas(2)----table(Qurey)(3)---datasource

方法：

1）Tsession

属性：SessionName=名（自起）

Active=true （激活）

2）Database（可以有多个）

属性：SessionName=Tsession名

Dataname=名（自起，作为Table的标识）

AliasName=数据库别名

Connected=True （激活）

3）Table或Qurey

属性：SessionName=Tsession名（不要用默认值）

DatabaseName=如果前面起了名，这里就会出现Database

的名字。

Tablename=表名

Active=true （激活）

以后比如加入Datasoucre和其他一样，这样就可以构造两个前后

台处理的数据库管理系统了。

2-4 多线程的同步机制

同步机制，实际上是事件驱动机制，意思是让线程平时处于“休

眠”状态，除非发生某个事件才触发。

例如一个拷贝文件，拷贝线程完成一个程序块后，再唤醒进程条

线程做一个格的填充。

研究多线程的同步机制的必要性在于，多线程同步工作时，如果

同时调用相同的资源，就可能会出现问题，一般读出是不会有问题的，

但是，如果写入（全局变量、数据库），就会发生冲突，甚至产生死

锁和竞争问题。

一、使用Synchronize方法

这个方法用于访问VCL 主线程所管理的资源，其方法的应用是：

第一步：把访问主窗口（或主窗口控件资源）的代码放到线程的

一个方法中；

第二步：是在线程对象的Execute方法中，通过Synchronize方法

使用该方法。

实例：

procedure Theater.Execute;

begin

Synchronize(update);

end;

procedure Theater.update;

begin

.........

end;

这里通过 Synchronize使线程方法update同步。

二、使用VCL类的Look方法

在Delphi的IDE提供的构件中，有一些对象内部提供了线程的同

步机制，工作线程可以直接使用这些控件，比如：Tfont，Tpen，

TBitmap，TMetafile，Ticon等。另外，一个很重要的控件对象叫

TCanvas，提供了一个Lock方法用于线程的同步，当一个线程使用此

控件对象的时候，首先调用这个对象的Lock方法，然后对这个控件

进行操作，完毕后再调用Unlock方法，释放对控间的控制权。

例如：

CanversObject.look;

try

画图

finally

CanversObject.unlock;

end;

{使用这个保护机制,保证不论有没有异常，unlock都会被执行

否则很可能会发生死锁。在多线程设计的时候，应该很注意发生死

锁的问题}

三、Waitfor方法

当一个线程应该等待另一个线程结束时，可以调用Waitfor方法。

这个方法属于等待线程对象，Waitfor方法的原型如下:

Function Waitfor(Const Astring:string):string;

比如在前面最基本的线程的例子中，唤醒线程的语句中加上

thread1.resume;

thread1.waitfor;

thread2.resume;

那么所有的线程都必须等待thread1运行完毕后才能运行，其中

包括主线程，可以预想，由于thread1调用了主窗体的Edit控件，那

么，在thread1运行中间，Edie1也不会显示。

这就告诉我们，这样的代码是不能作为主线程的一部分的，如果

与主窗体连接的线程内等待另一个线程结束，而另一个线程又要等待

访问用户界面，就可能是程序陷于死锁。

这点在应用的时候要谨慎。

Q4: vb.net，等待一个线程结束的问题

如果需要等待T2线程结束，那又何必开启这个线程！！

直接：

Label1.Visible = True

setB()

MsgBox("d")

这不就是执行完setB()，再执行MsgBox("d")，多线程是多余的。

多线程的作用大多数也就用来同时执行多任务而不用等待的。

Q5: vb.net中如何结束一个线程

vb.net中如何结束一个线程

一般而言,如果您想终止一个线程,您可以使用System.Threading.Thread类终止线程vb.net的Abort方法. 例如:

Dim worker As ThreadStart = New ThreadStart(AddressOf workerthreadmethod)

Dim t As Thread = New Thread(worker)

t.Start()

MessageBox.Show("Wait for a while for the thread to start.")

MessageBox.Show(t.ThreadState.ToString())

t.Abort()

MessageBox.Show(t.ThreadState.ToString())

t.Join()

MessageBox.Show(t.ThreadState.ToString())

当然,在调用Abort方法后,线程并不是立刻终止,要等线程的所有finally快中的代码完成后才会完全终止. 所以在主线程中可以用Join方法来同步,当线程还未完全终止时,t.Join()将处于等待,直到t线程完全结束后再继续执行后面的语句。

Abort方法是会导致线程跳出一个异常错误的终止线程vb.net，你需要在代码中捕获该异常。下面是一个比较完整的VB.NET线程例子：

Imports System

Imports System.Threading

Public Class MyTestApp

Public Shared Sub Main()

Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

'Start the thread

t.Start()

MsgBox("Are you ready to kill the thread?")

'Kill the child thread and this will cause the thread raise an exception

t.Abort()

' Wait for the thread to exit

t.Join()

MsgBox("The secondary thread has terminated.")

End Sub

Shared Sub MyThreadMethod()

Dim i As Integer

Try

Do While True

Thread.CurrentThread.Sleep(1000)

Console.WriteLine("This is the secondary thread running.")

Loop

Catch e As ThreadAbortException

MsgBox("This thread is going to be terminated by the Abort method in the Main function")

End Try

End Sub

End Class

Thread.Abort()方法用来永久销毁一个线程，而且将抛出ThreadAbortException异常。使终结的线程可以捕获到异常但是很难控制恢复，仅有的办法是调用Thread.ResetAbort()来取消刚才的调用，而且只有当这个异常是由于被调用线程引起的异常。因此，A线程可以正确的使用Thread.Abort()方法作用于B线程，但是B线程却不能调用Thread.ResetAbort()来取消Thread.Abort()操作。

关于终止线程vb.net和终止线程的方法的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。