Delphi Firemonkey Android多线程

Question

我试图使用此多线程方法使用delphi firemonkey为Android平台制作多工作线程

它没有用，有没有办法创建这样的工作线程？

谢谢。

Answer 1

您可以使用并行编程库，此处使用创建线程的任务是一个简单的示例

uses: System.Threading
var
    Mythreadtask : ITask;

procedure createthreads;
begin
    if Assigned(Mythreadtask) then
    begin
        if Mythreadtask.Status = TTaskStatus.Running then
        begin
        //If it is already running don't start it again
            Exit;
        end;
    end;
    Mythreadtask := TTask.Create (procedure ()
    var s : String //Create Thread var here
    begin
    //Do all logic in here
    //If you need to do any UI related modifications
     TThread.Synchronize(TThread.CurrentThread,procedure()
        begin 
            //Remeber to wrap them inside a Syncronize
        end);
    end);
// Ensure that objects hold no references to other objects so that they can be freed, to avoid memory leaks. 
end;

加：

如果您想在注释中希望有5个工作线程，则可以使用一系列任务，这些内容摘自Parallel Programming Library文档

procedure createthreads;
var 
    tasks: array of ITask; //Declare your dynamic array of ITask 
    value: Integer; 
begin 
Setlength (tasks ,2); // Set the size of the Array (How many threads you want to use in your case this would be 5)
value := 0; 

//This the 1st thread because it is the thread located in position 1 of the array of tasks
tasks[0] := TTask.Create (procedure () 
begin 
    sleep (3000); // 3 seconds 
    TInterlocked.Add (value, 3000); 
 end); 
 tasks[0].Start;// until .Start is called your task is not executed
 // this starts the thread that is located in the position [0] of tasks 

 //And this is the 2nd thread 
 tasks[1] := TTask.Create (procedure () 
 begin 
     sleep (5000); // 5 seconds 
     TInterlocked.Add (value, 5000);
 end); 
 tasks[1].Start;// and the second thread is started 
 TTask.WaitForAll(tasks); {This will have the mainthread wait for all the 
                 {threads of tasks to finish before moving making sure that when the
                 showmessage All done is displayed all the threads are done} 
 ShowMessage ('All done: ' + value.ToString); 
 end;