知识大全 DELPHI下的多线程程序设计

Posted 2022-07-21 知

篇首语：无志山压头，有志人搬山。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 DELPHI下的多线程程序设计相关的知识，希望对你有一定的参考价值。

DELPHI下的多线程程序设计 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

我们知道 win 或winNT都是多线程的操作系统在DELPHI ．中我们可以充分利用这一特性编写出多线程的应用程序　　对以往在DOS或位windows下写程序的人来说多线程仍然是陌生的但如同以前我们从DOS下的单任务过渡到windows ．下的多任务如今我们又必须过渡到多线程领域毕竟计算机时代是在不断发展的不过幸运的是在DELPHI ．下进行多线程程序设计并不需要我们去学习庞大的WIN API函数我们可以利用DELPHI下标准的多线程类TThread来完成我们的工作　　TThread是一个abstract（抽象）类也就是说并不需要根据TThread来声明变量（而且根据TThread声明的变量也是完全无用）我们要做的是把TThread作为基类用继承的形式来生成子类实际上根据TThread来写多线程应用程序是非常容易的　　下面就是一个基本的继承TThread生成的多线程类　　QuerThrd．Pas 　　unitQuerThrd 　　interface 　　uses 　　Classes DBTables 　　type 　　TQueryThreadΚclass（TThread）　　private 　　fQuery tQuery 　　protected 　　procedureExecute override 　　public 　　constructorCreate（Suspended Boolean Query TQuery）　　end 　　implementation 　　constructor 　　TQueryThread．Create（Suspended Boolean Query TQuery）　　begin 　　inheritedCreate（Suspended）　　fQuery ΚQuery 　　FreeOnTerminate ΚTrue 　　end 　　procedureTQueryThread．Execute 　　begin 　　fQuery．Open 　　end 　　end．　　在上面这个简单的例子中我们构造了一个TThread的子类TQueryThread 用于在后台执行数据库查询在该类的Create函数中传递了两个参数Suspended和Query 其中Suspended用于控制线程的运行如果Suspend为真 TQueryThread类的线程在建立后将立即被悬挂一直到运行了Resume方法该线程才会继续执行 Query参数用于接受一个已经存在的Query控件（在窗体中真正的Query控件）而使它在多线程的情况下运行 Execute是最重要的过程它是类TQueryThread的执行部分所有需要在这个多线程类中运行的语句都必须写在这个过程里　　实际上构造自己的多线程类时并不需要输入所有的这些代码选择DELPHI的File菜单下的new选项再选 TThreadObject 项目 DELPHI就会为你构造基本的程序模块然后我们可以根据需要再做相应的修改　　进程的执行　　假设我们已经建立了一个窗体FORM 窗体中有我们将要使用的查询控件Query 那么我们在该单元的USES部分加入上面写的QuerThrd单元　　procedureTForm ．Button Click（Sender TObject）　　begin 　　｛建立一个运行的进程｝　　TQueryThread．Create（False Query ）　　end 　　如果这个过程被执行那么窗体中的查询控件Query 就会自动在多线程的环境下运行查询注意TQueryThread类中只有Create而没有Free 动态建立类以后又忘记删除是我们常犯的错误之一不过在这里由于我们指定了FreeOnTerminate（运行完即删除）为真所以当Execute里的语句执行完后 TQueryThread类占据的内存控件将被自动释放　　然而还有一个问题值得我们注意由于同一时刻可以有多个线程同时运行那么我们还必须解决好同步的问题如果几个多线程程序之间没有任何关联那么它们之间也不会有任何冲突但实际上可能同时运行几个多线程的数据库应用程序由于需要共享相同的数据库资源我们还需要为Query 增加一个Tsession控件　　其实虽然我们也许没有亲自使用过Session控件但实际上在所有的数据库访问时DELPHI都会自动建立一个临时的Session控件使用完后又动态地删除掉它在平常的数据库编程时用不着我们亲自来操作但在数据库多线程执行的情况下为了不相互冲突我们必须为每个数据库访问都定制自己的Session控件这个步骤非常简单我们只需要在窗体中增加一个Session控件然后给它的属性 Sessionname 写一个任意的名字并再在Query 的 Sessionname 中写一个相同的名字这样我们的数据库程序就安全了　　另一类需要解决同步问题的是那些对VCL资源进行操作的程序这类的程序非常多好在解决的方法也非常简单　　我们可以看下面这样一个程序　　unitBncThrd 　　interface 　　uses 　　WinProcs Classes Graphics ExtCtrls 　　type 　　TBounceThreadΚclass（TThread）　　private 　　FShape TShape 　　FXSpeed Integer 　　FYSpeed Integer 　　procedureMoveShape 　　protected 　　procedureExecute override 　　public 　　constructorCreate（Suspended Boolean Shape TShape XSpeed YSpeed Integer）　　propertyShape TShapereadFShape 　　end 　　implementation 　　procedureTBouad．MoveShape 　　var 　　MaxHeight MaxWidth Integer 　　begin 　　withFShapedo 　　begin 　　Left ΚLeft＋FXSpeed 　　Top ΚTop＋FYSpeed 　　if（LeftΙ ）or 　　（Left＋WidthΛParent．Width）then 　　FXSpeed ΚFXSpeed＊－　　if（TopΙ ）or 　　（Top＋HeightΛParent．Height）then 　　FYSpeed ΚFYSpeed＊－ end 　　end 　　procedureTBounceThread．Execute 　　begin 　　WhilenotTerminateddo 　　begin 　　Synchronize（MoveShape）　　end 　　end 　　constructorTBounceThread．Create（Suspended Boolean Shape TShape XSpeed YSpeed Integer）　　begin 　　inheritedCreate（Suspended）　　FShape ΚShape 　　FXSpeed ΚXSpeed ｛X轴走向的速度｝　　FYSpeed ΚYSpeed ｛Y轴走向的速度｝　　FreeOnTerminate ΚTrue 　　end 　　end．　　这是一个多线程的碰碰球游戏你可以有多个不同的球它们分属不同的线程各自独立的在屏幕上碰撞显然由于多个球运行的显示会同时操作VCL资源为了安全我们在Execute过程中的执行部分加入了Synchronize（MoveShape）来调用MoveShape过程实际上在任何需要操作VCL资源的地方例如窗体位图都应加入Synchronize调用　　执行时我们可以新建一个程序然后在USES部分加入以上的BncThrd单元再在它的窗体FORM 上加入两个Shape控件Shape 和Shape Shape 可以是一个矩形而Shape 是一个圆加入以下的代码就可以让矩形和圆动起来　　procedureTForm ．Button Click（Sender TObject）　　begin 　　TBounceThread．Create（False Shape ）　　TBounceThread．Create（False Shape ）　　end cha138/Article/program/Delphi/201311/25059