【delphi】多线程与多线程同步

　　在 Delphi 中使用多线程有两种方法: 调用 API、使用 TThread 类;

　　使用 API 的代码更简单.

CreateThread

function CreateThread(
  lpThreadAttributes: Pointer;           {安全设置}
  dwStackSize: DWORD;                    {堆栈大小}
  lpStartAddress: TFNThreadStartRoutine; {入口函数}
  lpParameter: Pointer;                  {函数参数}
  dwCreationFlags: DWORD;                {启动选项}
  var lpThreadId: DWORD                  {输出线程 ID }
): THandle; stdcall;                     {返回线程句柄}  

　　CreateThread 第三个参数是函数指针, 新线程建立后将立即执行该函数, 函数执行完毕, 系统将销毁此线程从而结束多线程的故事.

　　CreateThread 要使用的函数是系统级别的, 不能是某个类(譬如: TForm1)的方法, 并且有严格的格式(参数、返回值)要求, 不管你暂时是不是需要都必须按格式来;

　　因为是系统级调用, 还要缀上 stdcall, stdcall 是协调参数顺序的, 虽然这里只有一个参数没有顺序可言, 但这是使用系统函数的惯例.

　　CreateThread 还需要一个 var 参数来接受新建线程的 ID, 尽管暂时没用, 但这也是格式;

代码注释:

1. 当前程序是一个进程, 进程只是一个工作环境, 线程是工作者;
2. 每个进程都会有一个启动线程(或叫主线程), 也就是说: 大量的编码都是写给这个主线程的;
3. ExitThread(0); 退出主线程;
4. 系统不允许一个没有线程的进程存在, 所以程序就退出了.
5. ExitThread 函数的参数是一个退出码, 这个退出码是给之后的其他函数用的, 这里随便给个无符号整数即可.

输出线程 ID

　　CreateThread 的最后一个参数是 "线程的 ID";

　　在主线程中 GetCurrentThreadId、MainThreadID、MainInstance 都可以获取主线程的ID.

启动选项

　　CreateThread 的倒数第二个参数 dwCreationFlags(启动选项) 有两个可选值:

1. 0: 线程建立后立即执行入口函数;
2. CREATE_SUSPENDED: 线程建立后会挂起等待.

　　可用 ResumeThread 函数是恢复线程的运行; 可用 SuspendThread 再次挂起线程.
　　这两个函数的参数都是线程句柄, 返回值是执行前的挂起计数.

挂起记数

　　SuspendThread 会给这个数 +1; ResumeThread 会给这个数 -1; 但这个数最小是 0.
　　当这个数 = 0 时, 线程会运行; > 0 时会挂起.
　　如果被 SuspendThread 多次, 同样需要 ResumeThread 多次才能恢复线程的运行.

多线程示例　　

　　

 //上面图片中演示的代码。
 unit Unit1; 

 interface 

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls; 

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
     Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   end; 

 var
   Form1: TForm1; 

 implementation 

 {$R *.dfm} 

 var
   hThread: THandle; {线程句柄}
   num: Integer;     {全局变量, 用于记录随机数} 

 {线程入口函数}
 function MyThreadFun(p: Pointer): Integer; stdcall;
 begin
   while True do {假如线程不挂起, 这个循环将一直循环下去}
   begin
     num := Random();
   end;
   Result := ;
 end; 

 {建立并挂起线程}
 procedure TForm1.Button1Click(Sender: TObject);
 var
   ID: DWORD;
 begin
   hThread := CreateThread(nil, , @MyThreadFun, nil, CREATE_SUSPENDED, ID);
   Button1.Enabled := False;
 end; 

 {唤醒并继续线程}
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   ResumeThread(hThread);
 end; 

 {挂起线程}
 procedure TForm1.Button3Click(Sender: TObject);
 begin
   SuspendThread(hThread);
 end; 

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Timer1.Interval := ;
 end; 

 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   Text := IntToStr(num);
 end; 

 end.

---

多线程同步

　　"临界区"(CriticalSection): 当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 让其他也要执行此代码的线程先等等;

　　使用格式如下:

var CS: TRTLCriticalSection;   {声明一个 TRTLCriticalSection 结构类型变量; 它应该是全局的}
InitializeCriticalSection(CS); {初始化}
EnterCriticalSection(CS);      {开始: 轮到我了其他线程走开}
LeaveCriticalSection(CS);      {结束: 其他线程可以来了}
DeleteCriticalSection(CS);     {删除: 注意不能过早删除} 

多线程同步示例

　　

 unit Unit1; 

 interface 

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls; 

 type
   TForm1 = class(TForm)
     ListBox1: TListBox;
     Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure Button1Click(Sender: TObject);
   end; 

 var
   Form1: TForm1; 

 implementation 

 {$R *.dfm} 

 var
   CS: TRTLCriticalSection; 

 function MyThreadFun(p: Pointer): DWORD; stdcall;
 var
   i: Integer;
 begin
   EnterCriticalSection(CS);
   for i :=  to  do Form1.ListBox1.Items.Add(IntToStr(i));
   LeaveCriticalSection(CS);
   Result := ;
 end; 

 procedure TForm1.Button1Click(Sender: TObject);
 var
   ID: DWORD;
 begin
   CreateThread(nil, , @MyThreadFun, nil, , ID);
   CreateThread(nil, , @MyThreadFun, nil, , ID);
   CreateThread(nil, , @MyThreadFun, nil, , ID);
 end; 

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   ListBox1.Align := alLeft;
   InitializeCriticalSection(CS);
 end; 

 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   DeleteCriticalSection(CS);
 end; 

 end.

---

参考文章

　　http://www.cnblogs.com/gzcszzx/articles/2110675.html