本文由 发布，转载请注明出处，如有问题请联系我们！ 发布时间: 2021-08-01delphi开发安卓步骤-web开发桌面应用程序

如果你有两个或2个60的进程一起运作，而且他们一起实际操作同一条数据信息时，大家务必对其开展维护，不然時间分块或别的一些缘故导致的延长会使你的程序流程造成不正确的数值。即便是像2个进程访问共享整数金额自变量那样简易的事儿，也会造成彻底的灾祸。

进程范围内共享资源哪些数据信息

最先，准确了解每一个过程和每一个进程的存储状态是非常值得的。每一个进程都是有自身的程序计数器和CPU情况。这代表着进程根据编码单独工作中。每一个进程也是有自身的栈，因此静态变量自身便是每一个进程的静态变量，与这种自变量不会有同歩难题。

程序流程中的全局性数据信息能够在进程间随意共享资源，因而这种自变量很有可能存有同歩难题。自然，假如自变量是全局性可浏览的，但只有一个进程应用它，也没有问题。

Delphi给予了threadvar关键词。这容许您申明局部变量，在其中为每一个进程建立一个自变量团本。这一涵数非常少应用，由于将这个自变量放到TThread类中一般更便捷，因此为每一个建立的TThread子孙后代建立一个自变量案例。

共享资源数据信息的原子性

为了更好地了解怎么让进程协调工作，必须了解原子性的定义。

原子性就是指某一组姿势是一个总体，是密不可分的，要不一起成功，要不一起不成功。如同银行转帐一样，转帐分二步取下和存进。仅有两者都成功了，才算取得成功。半取得成功半不成功是不允许的。

当一个进程实行原子操作时，这代表着全部别的进程都觉得该实际操作并未逐渐或进行。一个进程不太可能在“个人行为”上捕捉另一个进程。假如进程中间不实行同歩，基本上全部实际操作都是是非非分子的。使我们举一个简洁的事例。考虑一下这一段编码。

var a: integer;begin a := a 1;end;

假如2个独立的进程应用它来提升共享资源自变量a，即便是这类鸡毛蒜皮的编码也会造成难题。

从储存器载入A到CPU存储器。将1加上到CPU存储器。将CPU存储器的內容载入运行内存中的A.

即便在单CPU设备上，好几个进程实行该编码也很有可能造成难题。这是由于生产调度实际操作。当只有一个CPU时，事实上只有一个进程实行一次，可是Win32生产调度程序流程以大概每秒钟18次的速率在他们中间转换。

生产调度程序流程能够随时随地终止一个进程并运行另一个进程。排班表是先发制人游戏的。在挂起来一个进程并运行另一个进程以前，电脑操作系统不容易等候管理权限转换随时随地产生。因为转换能够产生在随意两根CPU命令中间，因而它很有可能产生在涵数正中间的零界点，乃至是特殊程序流程句子实行的一半。

使我们假定2个进程已经单CPU设备(x和y)上实行实例编码。在一个好的情形下，程序流程很有可能已经运作，生产调度实际操作将会会错过了这一零界点，得出预估的結果:A提升2。殊不知，这并不是一个确保，反而是一个草率的机遇。假如共享资源自变量碰巧是表针，結果很有可能会造成大家奔溃。

讲了许多基础理论，再一起来看看上述所说情况是不是会以编码的方式发生。为了更好地便捷观查，我并没有应用视頻中的实例，反而是选用了控制面板运用。

uses System.SysUtils, System.Classes;type TWorkThread = class(TThread) protected procedure Execute; override; end;var // 界定局部变量，当做共享资源数据信息 Num: Integer = 0; { TWorkThread }procedure TWorkThread.Execute;begin // 循环系统的方法自增Num while True do begin //为了更好地实际效果更加显著添加了延迟 TThread.Sleep(100); // 当Num的值超过10则停止进程 if (Num > 10) then Exit; Writeln(Num); Inc(Num); end;end;begin //运行3个进程 TWorkThread.Create(False); TWorkThread.Create(False); TWorkThread.Create(False); Readln;end.

执行結果如下所示。

由于篇数的关联，我提取了在其中一个結果，但可以表明难题。

解决方法

大家处理起來好像确实很不便，可是咱们的老前辈早已给予了解决方法。假如你永远不知道，你学习培训的过程中会很吃惊。Delphi为线程安全难题带来了不仅一个解决方法。

临界区

临界区是最立即的线程同步方式之一。说白了临界区，简易来讲便是有一个地区，这一地区的编码只有由一个进程实行。在Delphi中应用EnterCriticalSection()和LeaveCriticalSection() API函数有俩种方法，另一种方法是应用TCriticalSection类。我本人强烈推荐TCriticalSection，由于这一类封裝了API，应用起來更便捷。的企业是“SyncObjs”。

在确立了临界区的原则以后，大家再次机构了上边的编码。

program Project1;{$APPTYPE CONSOLE}{$R *.res}uses SyncObjs, System.SysUtils, System.Classes;type TWorkThread = class(TThread) protected procedure Execute; override; public end;var // 界定局部变量，当做共享资源数据信息 Num: Integer = 0;var { 申明临界值 } CS: TCriticalSection; { TWorkThread }procedure TWorkThread.Execute;begin // 循环系统的方法自增Num while True do begin TThread.Sleep(100); // 临界区逐渐 CS.Enter; // 当Num的值超过10则停止进程 if (Num > 10) then Exit; Writeln(TThread.CurrentThread.ThreadID.ToString '：' Num.ToString); Inc(Num); // 临界区完毕 CS.Leave; end;end;begin //复位临界区 CS := TCriticalSection.Create; TWorkThread.Create(False); TWorkThread.Create(False); TWorkThread.Create(False); Readln;end.

相互独立目标

应用SyncObjs应用TMutex类的方式(实行次序能够根据将release句子放进循环系统內外来明确)。

实例:从0到2000的三个数据在不一样部位相互独立輸出到表格。

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyThread = class(TThread) private { Private declarations } protected procedure Execute; override; {实行} procedure Run; {运作} end; TForm1 = class(TForm) btn1: TButton; procedure FormDestroy(Sender: TObject); procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}uses SyncObjs;var MyThread:TMyThread; {申明进程} Mutex:TMutex; {申明相互独立体} f:integer;procedure TMyThread.Execute;begin { Place thread code here } FreeOnTerminate:=True; {再加上这一句进程用完后会全自动注解} Run; {运作}end;procedure TMyThread.Run;var i,y:integer;begin Inc(f); y:=20*f; for i := 0 to 2000 do begin if Mutex.WaitFor(INFINITE)=wrSignaled then {分辨涵数，可用时就用} begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10,y,IntToStr(i)); Form1.Canvas.Unlock; Sleep(1); Mutex.Release; {释放出来，由谁来接下来用} end; end;end;procedure TForm1.btn1Click(Sender: TObject);begin f:=0; Repaint; Mutex:=TMutex.Create(False); {主要参数为是不是让创始人有着该相互独立体，一般为False} MyThread:=TMyThread.Create(False); MyThread:=TMyThread.Create(False); MyThread:=TMyThread.Create(False);end;procedure TForm1.FormDestroy(Sender: TObject);begin Mutex.Free;{释放出来相互独立体}end;end.

Semaphore(数据信号或叫信号量)

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); end;var Form1: TForm1;implementation{$R *.dfm}uses SyncObjs;var f: Integer; MySemaphore: TSemaphore;function MyThreadFun(p: Pointer): DWORD; stdcall;var i,y: Integer;begin Inc(f); y := 20 * f; if MySemaphore.WaitFor(INFINITE) = wrSignaled then begin for i := 0 to 1000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(20, y, IntToStr(i)); Form1.Canvas.Unlock; Sleep(1); end; end; MySemaphore.Release; Result := 0;end;procedure TForm1.Button1Click(Sender: TObject);var ThreadID: DWORD;begin if Assigned(MySemaphore) then MySemaphore.Free; MySemaphore := TSemaphore.Create(nil, StrToInt(Edit1.Text), 5, ''); {建立，主要参数一为安全性默认设置为nil，主要参数2能够填好运作是多少进程，主要参数3是运作数量，主要参数4可取名用以多进程} Self.Repaint; f := 0; CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID);end;{让 Edit 只接纳 1 2 3 4 5 五个数}procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not CharInSet(Key, ['1'..'5']) then Key := #0;end;procedure TForm1.FormCreate(Sender: TObject);begin Edit1.Text := '1';end;procedure TForm1.FormDestroy(Sender: TObject);begin if Assigned(MySemaphore) then MySemaphore.Free;end;end.

Event (事情目标)

留意:与API解决工艺对比，这一类沒有一次运行断点调试实行随后中止的方式。

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyThread = class(TThread) private { Private declarations } protected procedure Execute; override; procedure Run; end; TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; procedure btn1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}uses SyncObjs;var f:integer; MyEvent:TEvent; MyThread:TMyThread;{ TMyThread }procedure TMyThread.Execute;begin inherited; FreeOnTerminate:=True; {进程应用完自身销户} Run;end;procedure TMyThread.Run;var i,y:integer;begin Inc(f); y:=20*f; for i := 0 to 20000 do begin if MyEvent.WaitFor(INFINITE)=wrSignaled then {分辨事情在使用没，相互配合事情的运行和中止，对事情有关进程起统一操纵} begin Form1.Canvas.lock; Form1.Canvas.TextOut(10,y,IntToStr(i)); Form1.Canvas.Unlock; Sleep(1); end; end;end;procedure TForm1.btn1Click(Sender: TObject);begin Repaint; f:=0; if Assigned(MyEvent) then MyEvent.Free; {如果有，就先消毁} {主要参数1安全策略，一般为空；主要参数2为True时可手动式操纵中止，为Flase时目标操纵一次后马上中止 主要参数3为True时目标创建后可以运作，为false时目标创建后操纵为脱机工作，主要参数4为目标名字，用以跨过程，无需时默认设置''} MyEvent:=TEvent.Create(nil,True,True,''); {建立事情}end;procedure TForm1.btn2Click(Sender: TObject);var ID:DWORD;begin MyThread:=TMyThread.Create(False); {建立进程}end;procedure TForm1.btn3Click(Sender: TObject);begin MyEvent.SetEvent; {运行} {事情类沒有PulseEvent运行一次后轻描谈写}end;procedure TForm1.btn4Click(Sender: TObject);begin MyEvent.ResetEvent; {中止}end;procedure TForm1.FormCreate(Sender: TObject);begin btn1.Caption:='建立事情'; btn2.Caption:='建立进程'; btn3.Caption:='运行'; btn4.Caption:='中止';end;procedure TForm1.FormDestroy(Sender: TObject);begin MyEvent.Free; {释放出来}end;end.

Synchronize

最终，使我们谈一谈这一同歩作用。对于缘故，把这个进程的编码放进主线任务程中运作，事实上并并不是线程同步。《RAD工作室VCL参考》中也有叙述。

在主线任务程中实行一个方式启用，Synchronize会造成应用主线任务程实行由method()特定的启用，进而防止线程同步矛盾。

当在主线任务程中实行方式启用时，同歩会造成特定启用可用以应用主线任务程实行的频次，进而防止线程同步矛盾。

还有一个因素便是感觉不足灵便。例如我只必须同歩关键实际操作一部分的编码，别的一部分不用同歩，因此不强烈推荐。很有可能就是我姿态不对，不可以在控制面板运用下应用，只有回VCL。

//打开控制面板的命令{$APPTYPE CONSOLE}interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;type TSyncThread = class(TTHread) procedure Execute; override; public procedure Work(); end;var Num: Integer = 0;var Form1: TForm1;implementation{$R *.dfm}{ TSyncThread }procedure TSyncThread.Execute;begin inherited; Synchronize(Work);end;procedure TSyncThread.Work;begin // 循环系统的方法自增Num while True do begin TTHread.Sleep(100); // 当Num的值超过10则停止进程 if (Num > 10) then Exit; Writeln(TTHread.CurrentThread.ThreadID.ToString '：' Num.ToString); Inc(Num); end;end;procedure TForm1.Button1Click(Sender: TObject);begin TSyncThread.Create(false);end;end.

到此，已经知道的Delphi多线程同步计划方案完毕。一般德尔福会给予2种计划方案，一种是原生态API方式，另一种是德尔福自身封裝的。

文中也是德尔福文图版的另外一篇文章，第一季的相关内容所有升级结束。