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

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源程序，发现也是调用临界区，这个太不方便了，还是使用临界区好）。