自己对DELPHI学习的一点体会

源代码在线查看: delphi32下的多线程程序设计 (2000年11月13日).txt

软件大小: 771 K
上传用户: pipinooad
关键词: DELPHI
下载地址: 免注册下载 普通下载 VIP

相关代码

				DELPHI32下的多线程程序设计 (2000年11月13日) 
				
				本站更新  分类:   作者:梁毅 李韬  推荐:   阅读次数:560  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				我们知道,win95或winNT都是“多线程”的操作系统,在DELPHI2.0中,我们可以充分利用这一特性,编写
				出“多线程”的应用程序。
				
				1 对以往在DOS或16位windows下写程序的人来说,“多线程”仍然是陌生的,但如同以前我们从DOS下的单
				任务过渡到windows3.1下的多任务,如今我们又必须过渡到“多线程”领域,毕竟计算机时代是在不断发展
				的。不过,幸运的是,在DELPHI2.0下进行多线程程序设计并不需要我们去学习庞大的WIN32API函数,我们
				可以利用DELPHI下标准的多线程类TThread来完成我们的工作。 
				
				  TThread是一个abstract(抽象)类,也就是说,并不需要根据TThread来声明变量(而且根据TThread声
				明的变量也是完全无用),我们要做的是把TThread作为基类,用继承的形式来生成子类。实际上,根据
				TThread来写多线程应用程序是非常容易的。
				
				
				下面就是一个基本的继承TThread生成的多线程类。
				
				  QuerThrd.Pas
				  unit QuerThrd;
				  interface
				  uses
				   Classes,DBTables;
				  type
				  TQueryThread=class(TThread)
				  private
				  fQuery:tQuery;
				  protected
				  procedure Execute;override;
				  public
				   constructor Create(Suspended:Boolean;Query:TQuery);
				  end;
				
				  implementation
				  constructor
				   TQueryThread.Create(Suspended:Boolean;Query:TQuery);
				  begin
				   inheritedCreate(Suspended);
				   fQuery:=Query;
				   FreeOnTerminate:=True;
				  end;
				
				  procedure TQueryThread.Execute;
				  begin
				   fQuery.Open;
				  end;
				  end.
				
				  在上面这个简单的例子中,我们构造了一个TThread的子类TQuery			

相关资源