TTask parametrisieren

[ISMIRSCHLECHT]

Guten Tag,

meine Frage ist sehr einfach:
Wenn ich ein Objekt
  meinTask:ITask instantiiere, habe ich nur eine anonyme Prozedur, die ich auch noch als Quelltext übergebe. Wie kriege ich Daten beim Aufruf in den Task ?
Oder braucht man das nicht ? Schwer vorstellbar.
Oder muß ich etwa die Variablen aus dem aufrufenden Thread benutzen ?
Mit großer Spannung
ism

[Uwe Raabe]

Ein Code-Beispiel würde die Frage klarer machen und eine konkrete Antwort erlauben.

[Der schöne Günther]

Bis dahin: Das "Binden" von Variablen ist kein einfaches Thema.

Es ist viel zu lesen, aber diese zwei Links kann ich schon einmal vorab empfehlen:

1. http://docwiki.embarcadero.com/RADSt...oden_in_Delphi
2. https://de.wikipedia.org/wiki/Closure_(Funktion)

[ISMIRSCHLECHT]

Guten Morgen,

zum Quelltext :

Delphi-Quellcode:

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

Dieses Beispiel wird gern kreuz und quer durch die Foren kopiert und ist natürlich voll nutzlos.

Aber nehmen wir mal an, ich möchte mehrere Select - Anfragen losjagen, mit (einfacher Fall)
EINEM Suchparameter, den würde ich gern in den TTask reinbringen.
Die Seitenempfehlung mit dem Closure existiert übrigens nicht.
Die Hilfe, die Embarcadero anbietet, ist unter aller Kanone.
Was ist eigentlich der Vorteil von TTask ggü TThread ?
Nebenbei, ich kann die Prozedur auch "weiter hinten" benannt definieren und dann beim Constructor einbinden:

Delphi-Quellcode:

aTask := TTask.Create (meineprozedur);
// weiter hinten
procedure meineprozedure
  begin
  WasTun;
  end;

Wenn ich ein Objekt definiere, welches die übliche Variablenausstattung hat und in sich den TTask startet, könnte ich also äußere Variablen reinbringen.
Gute Idee ?

ism

[Schokohase]

Ich möchte einen Task erzeugen und dabei einen Parameter übergeben - kein Problem

Delphi-Quellcode:

function DoSomethingInTask(Argument: Integer): ITask;
begin
  Result := TTask.Run(
    procedure
    var
      I: Integer;
    begin
      for I := 1 to Argument do
      begin
        // do whatever
        TThread.Sleep(10);
      end;
    end);
end;

procedure foo;
var
  t: ITask;
begin
  t := DoSomethingInTask(20);
  ...
end;

[peterbelow]

Zitat von ISMIRSCHLECHT:

Aber nehmen wir mal an, ich möchte mehrere Select - Anfragen losjagen, mit (einfacher Fall)
EINEM Suchparameter, den würde ich gern in den TTask reinbringen.
Die Seitenempfehlung mit dem Closure existiert übrigens nicht.
Die Hilfe, die Embarcadero anbietet, ist unter aller Kanone.
Was ist eigentlich der Vorteil von TTask ggü TThread ?
Nebenbei, ich kann die Prozedur auch "weiter hinten" benannt definieren und dann beim Constructor einbinden:

Delphi-Quellcode:

aTask := TTask.Create (meineprozedur);
// weiter hinten
procedure meineprozedure
  begin
  WasTun;
  end;

Wenn ich ein Objekt definiere, welches die übliche Variablenausstattung hat und in sich den TTask startet, könnte ich also äußere Variablen reinbringen.
Gute Idee ?

Wenn man etwas komplexeres in einem Hintergrundtask erledigen lassen will ist es durchaus eine gute Idee, alle notwendigen Daten in ein Objekt zu packen und dann eine Methode dieses Objektes an TTask.Create zu übergeben. Dadurch sind alle Felder etc. des Objektes für die im Task laufende Methode zugänglich und man kann z. B. auch die Ergebnisse im Objekt ablegen. Man muss nur darauf achten, dass das Objekt auch am Leben bleibt bis der Task damit durch ist.

TTask vs TThread:
Der Vorteil bei einem TTask ist halt, dass man sich um den ausführenden Thread keine Gedanken machen muss, der kommt aus einem Threadpool innerhalb der RTL. Leider ist das auch der größte Nachteil: man hat keine Kontrolle darüber, welcher Thread den Task ausführt, und das kann durchaus ein Problem sein, insbesondere bei Interaktionen mit einer Datenbank. Eine DB Connection/Session ist meist an den Thread gebunden, der sie erzeugt hat. Das kann man durchaus handeln, wenn man sich selbst einen TThread-Abkömmling baut, aber mit TTasks funktioniert das kaum.

[Uwe Raabe]

Do kannst die Task-Procedure auch als Function-Result zurückgeben:

Delphi-Quellcode:

procedure TForm432.Button1Click(Sender: TObject);
begin
  TTask.Create(MakeTaskProc(3000, 'Hallo')).Start;
end;

function TForm432.MakeTaskProc(ADelay: Integer; const AMsg: string): TProc;
begin
  Result :=
    procedure
    begin
      sleep (ADelay);
      ShowMessage(AMsg);
    end;
end;

BTW, das ShowMessage sollte besser mit dem VCL-Thread synchronisiert werden, aber das ist ja auch nur ein sinnloses Beispiel.