zoukankan      html  css  js  c++  java
  • delphi 线程 TTask

    http://docwiki.embarcadero.com/Libraries/Seattle/en/System.Threading.TTask

    http://docwiki.embarcadero.com/Libraries/Seattle/en/System.Threading.TTaskStatus

    The Parallel Programming Library (PPL) provides a TTask class to run one task or multiple tasks in parallel. A Task is a unit of work you need to get done. The PPL does the association between the task and the thread that performs the task so you can run several tasks in parallel without having to create your own custom threads and managing them.

    TTask creates and manages interaction with instances of ITask. ITask is an interface that provides a range of methods and properties to Start, Wait, Cancel and also a property for Status (Created, WaitingToRun, Running, Completed, WaitingForChildren, Canceled, Exception).

    TTask provides WaitForAll and WaitForAny to wait for the completion of all or any tasks. WaitForAll returns when all of the tasks are completed, whereas WaitForAny tells you the first one that is completed. For example, if you have two tasks A and B which take 3 and 5 seconds respectively, the time for you to get a result is:

    The following example uses the WaitForAll method:

    Delphi:

    procedure TFormThreading.MyButtonClick(Sender: TObject);
    var 
     tasks: array of ITask; 
     value: Integer; 
    begin 
     Setlength (tasks ,2); 
     value := 0; 
     
     tasks[0] := TTask.Create (procedure () 
       begin 
       sleep (3000); // 3 seconds 
       TInterlocked.Add (value, 3000); 
      end); 
     tasks[0].Start; 
     
     tasks[1] := TTask.Create (procedure () 
       begin 
       sleep (5000); // 5 seconds 
       TInterlocked.Add (value, 5000);
     end); 
     tasks[1].Start; 
     
     TTask.WaitForAll(tasks); 
     ShowMessage ('All done: ' + value.ToString); 
    end;

    C++:

    void __fastcall TFormThreading::MyButtonClick(TObject *Sender)
    {
       _di_ITask tasks[2];
     
       tasks[0] = TTask::Create(_di_TProc(new TCppTask(lvalue, 3000, Label1)));
       tasks[0]->Start());
     
       tasks[1] = TTask::Create(_di_TProc(new TCppTask(lvalue, 5000, Label1)));
       tasks[1]->Start());
     
       TTask::WaitForAll(tasks,(sizeof(tasks)/sizeof(tasks[0])-1));
       ShowMessage("All done! "+IntToStr(lvalue));
    }

    Another functionality of TTask is to prevent the user interface locking up if you want to start something in the background. The following code example shows how to run a single task and start it:

    Delphi:

     
    procedure TFormThreading.Button1Click(Sender: TObject);
    var
     aTask: ITask;
    begin
     aTask := TTask.Create (procedure ()
       begin
         sleep (3000); // 3 seconds
         ShowMessage ('Hello');
       end);
     aTask.Start;
    end;

    C++:

    void __fastcall TFormThreading::Button1Click(TObject *Sender)
    {
      Label1->Caption = "--";
      lvalue = 0;
      _di_ITask aTask = TTask::Create(_di_TProc(new TCppTask(lvalue,3000,Label1)));
      aTask-> Start();
      Label1->Caption =InToStr(lvalue);
    }

    aITask.Status
    GetStatus


       TTaskStatus = (Created, WaitingToRun, Running, Completed, WaitingForChildren, Canceled, Exception);

    listTask: TList<ITask>;

    for
    i := listTask.Count - 1 downto 0 do begin if (listTask.Items[i].Status = TTaskStatus.Completed) then begin listTask.Delete(i); end; end; listTask.Add(TTask.Create(self.mythread)); listTask.Items[listTask.Count - 1].Start;
      for i := listTask.Count - 1 downto 0 do
      begin
        if listTask.Items[i].Status in [TTaskStatus.Running, TTaskStatus.Created, TTaskStatus.WaitingToRun] then
        begin
          while not(listTask.Items[i].Status in [TTaskStatus.Completed, TTaskStatus.Canceled, TTaskStatus.Exception]) do
          begin
            Sleep(500);
            Application.ProcessMessages;
          end;
        end;
      end;
      Label1.Text:='disConnect OK!!'
      for i := listTask.Count - 1 downto 0 do
      begin
         listTask.Items[i].wait(5000);
    
      end;
  • 相关阅读:
    读取手机硬件信息
    Android存储空间不足的解决办法
    Android实现系统重新启动
    使用PackageManager获得应用(包)信息
    获得屏幕尺寸
    Android获取ROOT权限
    Android调用系统自带的设置界面
    TabHost的使用
    ListActivity的使用
    Ubuntu密码错误的问题
  • 原文地址:https://www.cnblogs.com/cb168/p/5157386.html
Copyright © 2011-2022 走看看