• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi线程教学第七节:在多个线程时空中,把各自的代码塞到一个指定的线程时空运行 ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
第七节:在多个线程时空中,把各自的代码塞到一个指定的线程时空运行
   
以 Ado 为例,常见的方法是拖一个 AdoConnection 在窗口上(或 DataModule 中),
再配合 AdoQuery ,DataSoure, DbGrid 等,就可以实现数据库的访问操作。
这种方式,可以理解为在主线程时空中访问数据库。
如果某一个查询或更新操作耗时较长,那么,界面将会假死。
 
1.在线程时空中访问数据库
 
其实,上文中提到的这个 AdoConnection 不单只能在主线程时空中访问,
亦可以在另一个多线程时空里访问。但有一个重要的前提:
即:任意时刻,只能是一个线程访问 AdoConnection !
可以是多线程时空访问,也可以是主线程时空访问,它们可以交替访问,但不能同时访问。
 
故此,我们可以定义一个 DataThread 线程时空,把其它线程时空中需要访问数据库的操作,
全部塞入到 DataThread 时空中。具体做法是在 DataThread 中设计一个接口,如下:
 
unit uJooThread;
interface
uses
  Classes, uFooThread;
type
 
  TJooThread = class(TFooThread)
  public
    procedure Synchronize(AProc: TThreadMethod);
  end;
 
implementation
 
{ TJooThread }
 
procedure TJooThread.Synchronize(AProc: TThreadMethod);
begin
  ExecProcInThread(AProc);
  // 再设计一个等待 AProc 执行结果功能。
end;
 
end.
 
这样既简化了其它线程访问数据库的操作,也避免了因为数据库操作耗时引起界面假死。
另外,如果访问数据库发生了异常,重新 Create AdoConnection 然后再连接的操作也在这一个线程中进行,
就不必考虑数据库操作的先后问题。如:不会出现需要访问数据库时, AoConnection 是损坏状态的情况。
也就是说,用这个线程,把访问数据库的操作进行了排队。
 
定义一个工作线程A, 先从数据库中取参数,再进行计算,然后把结果再更新到数据库。
如果有10个线程A实例,那么线程A访问数据库的时候,只需要把访问操作塞进 DataThread 中即可。
 
有朋友肯定会有疑问,为何不为每一个线程指定一个 AdoConnection 。这样编程将会变得简单。
一、数据库的连接是会消耗资源的,连接数是有上限的。
二、如果每个线程的 AdoConnection 产生的操作都是访问同一个表。
那么数据库自身会上锁,将它们变成串行执行,并不能提高效率。
 
2.多个客户端,同时从数据库取参数会如何?
 
假设每个客户端通过一个 AdoStoredProcduce (存储过程)来获取参数,我们可以在此存储过程中,
加入数据库的 sp_getapplock (以 MSSQL为例)来让客户端按顺序获取到参数。更新亦同理。
 
由此可见,学习了多线程的锁,亦能推而广之理解数据库的锁。
 
以下是详细代码,至此,本教程的任务基本完成。
本例的调用方法就不写了。如果你读懂了所有的教程,应该会写了。
如果没读懂,写了又有什么意义呢?请恶补面向对象的基础知识。
以后的其它教程,均以本多线程教程为基础。
 
unit uJooThread;
interface
uses
  Classes, SyncObjs, uFooThread, uFooList;
type
  PSyncRec = ^TSyncRec;
  TSyncRec = record
    Method: TThreadMethod; // 这是类的方法
    Proc: TThreadProcedure; // 这是匿名方法
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
数字信号处理matlab相关基础,个人一点小记录发布时间:2022-07-18
下一篇:
使用VS2010调用matlab的mat格式文件发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap