Delphi 并行程序设计.ppt

Delphi 并行程序设计 之TTask TTask 和 TThread TTask ITask Array of ITask Task.Future Delphi 并行程序设计 之TTask TTask 和 TThread TThread（线程） 是单核时代的产物， 多个Threads 按一定次序轮流占用CPU 时间，执行线程过程。 TTask （任务） 是多核时代的产物， 多个Tasks 占用各自的CPU，相对独立运行， 所以速度上，比TThread 快。 Delphi 并行程序设计 之TTask TTask（任务对象）和 ITask（任务实例） 执行一个任务的方式 一】直接运行一个任务，返回值为ITask型。 TTask.Run（…） 二】创建一个任务实例，需要的时候执行。 var aTask:ITask; //声明 aTask:=TTask.create(…); //创建 aTask.start; //执行 Delphi 并行程序设计 之TTask TTask.Run(…)和TTask.Create(…); 参数说明 Run(Sender: TObject; Event: TNotifyEvent): ITask; // 参数为一个对象及事件，返回一个任务实例 Run(const Func: TProc): ITask; //参数为一个过程名 或者是 一个匿名过程；返回一个任务实例 以下两种还没有尝试 Run(const Func: TProc; APool: TThreadPool): ITask; Run(Sender: TObject; Event: TNotifyEvent; APool: TThreadPool): ITask; Delphi 并行程序设计 之TTask Array of ITask 任务数组，或者程任务队列 Var aTList: Array of ITask;// 声明数组 setlength(aTlist,2);//设置长度 aTList[0]:=TTask.Run(…);//执行任务一 aTList[1]:=TTask.Run(…);//执行任务二 TTask.WaitForAll(aTList);//等待所有任务完成 TTask.WaitForAny(aTList);//等待任一任务完成 ContinueProcedure;//继续执行以下过程 Delphi 并行程序设计 之TTask TTask.Future Var aFutureValue:IFutureString;//声明 变量名：IFuture值类型 aFutureValue:=TTask.FutureString( // 创建Future任务 Function:string // 字符串型匿名函数 begin sleep(3000); result:=‘hello’; end); //当且只有当 Future 任务计算完成后才会执行以下过程，否则一直等待 Memo1.lines.add(aFutureValue.Value); Delphi 并行程序设计 之TTask Uses 语句中需包含 system.Threading; TParallel TParallel.For() TParallel.Join() TParallel TParallel.For() 【一】传统for Var i,total:integer For i:=1 to 90000 do Begin inc(total);//自加 End; 【二】TParallel.for Var total:integer; TParallel.for(1,90000,1,procedure(i:int64) Begin TInterLocked.Increment(total);//锁定自加 End; TParallel TParallel.Join() Join the procedures to run together. var aPL: array of TProc;//声明一过程数组 setlength(aPL,2);// 设置数组长度 aPL[0]:=WorkOne;//WorkOne 为一过程名 aPL[1]:=WorkTwo;// TParallel.Join(aPL);//将数组中的过程