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

Delphi多线程编程之四线程安全和VCL

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
  1. ◆Delphi多线程编程之四 线程安全和VCL ◆（乌龙哈里2008-10-12）
  2. （调试环境：Delphi2007+WinXPsp3 例程：Tst_Thread4.dpr）
  3.     由于Delphi VCL在设计成大部分在主线程访问，因而，当多个线程同时访问VCL时，就非安全。
  4. 其实线程的安全性如上面那个读全局变量来说，那个全局变量是非线程安全的，因为当另外一个线程访问它的时候，它的数值还在被前一个线程改动中。这在非线程安全的对象中就会造成很严重的后果，比如一个对象的创立时的初始值被另一个线程改变了，后果相当地严重。
  5. VCL中，连很基础的Tlist都是非线程安全，要多个线程操纵List时，用TThreadList来替代。
  6. unit Tst_Thread4U;
  7. interface
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls;
  11. type
  12.   TForm1 = class(TForm)
  13.     Button1: TButton;
  14.     Memo1: TMemo;
  15. procedure Button1Click(Sender: TObject);
  16. procedure Button2Click(Sender: TObject);
  17. private
  18. { Private declarations }
  19. public
  20. { Public declarations }
  21. end;
  23.   TMyThread=class(TThread)
  24. protected
  25. procedure Execute;override;
  26. procedure ShowInMemo;
  27. end;
  28. var
  29.   Form1: TForm1;
  31. implementation
  33. {$R *.dfm}
  34. const
  35.   MaxSize=1000;
  36. var
  37.   NextNumber:Integer=0;
  38.   GlobalNum:Integer;
  40. function GetNextNumber:Integer;
  41. begin
  42.   Result:=NextNumber;
  43.   inc(NextNumber);
  44. end;
  46. { TMyThread }
  48. procedure TMyThread.Execute;
  49. var
  50.   i:Integer;
  51. begin
  52.   FreeOnTerminate:=True; //终止后自动free
  53. for i := 1 to MaxSize do
  54. begin
  55.     GlobalNum:=GetNextNumber;
  56.     Sleep(5);
  57.     Synchronize(ShowInMemo);
  58. //  ShowInMemo;
  59. end;
  60. end;
  62. procedure TMyThread.ShowInMemo;
  63. begin
  64.     Form1.Memo1.Lines.Add(inttostr(GlobalNum));
  65. end;
  67. procedure TForm1.Button1Click(Sender: TObject);
  68. begin
  69.   TMyThread.Create(False);
  70.   TMyThread.Create(False);
  71. end;
  73. end.
  75. 上面这个例程，把输出到Memo1放在线程里了，所以要在Execute()内用到Synchronize()函数，这样才是线程安全。
  77. 一、Synchronize()函数。
  78.     是个重载函数，有两种引用形式：
  79. class procedure Synchronize(AThread: TThread; AMethod: TThreadMethod); overload;
  80. procedure Synchronize(AMethod: TThreadMethod); overload;
  81. Amethod是线程的一个自定义不带参数过程（！！太烦了，不能带参数，好不方便）。
  82. Synchronize()调用了Windows的SendMessage()向主线程发一消息。主线程必须已建立消息队列，并且不断地从消息队类中检索消息。一旦主线程检索到消息，就执行Synchronize()所指定的代码。（ps:我查了Vcl源程序，发现也是调用临界区，这个太不方便了，还是使用临界区好）。

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Fastreport使用经验(转)在Delphi程序中访问报表对象发布时间：2022-07-18
下一篇：
delphi中LOWORD,HIWORD,LOBYTE,HIBYTE到底是干嘛用的。发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

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

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