XE 7 - Parallel Programming Library

[Dejan Vu]

Bei C# kann man mit PLINQ einfach Schleifenoperationen parallel durchführen. Also: Gib mir mal aus der Liste alle Elemente mit X>3, sortiere nach Name.

Code:

var q = List.Where (l=>l.x>3).OrderBy(l=>l.Name);
foreach (var item in q) ...
// ==>
var q = List.AsParallel.Where (l=>l.x>3).OrderBy(l=>l.Name).Take(10).Sum(l=>l.z);
foreach (var item in q) ... <--- Abarbeitung in Threads und parallel

D.h. etwas aufzählbares wird so aufbereitet ('AsParallel'), das Threads damit parallel klarkommen.

Ich gehe mal davon aus, das die Parallel-Library von Emba auch so ähnlich funktioniert. Threads an sich kann man ja schon programmieren und hier wird es kaum einen Einsatz geben. Nur noch ohne LINQ, aber das ist hier zweitrangig.

Ergo wird sich der Mehrwert dadurch ergeben, das Du es bei Schleifen dem Framework überlässt, die Aufgaben an Threads zu verteilen. Windows wird dann die Verteilung auf die Kerne schon selbst übernehmen. An sich eine großartige Sache.

Jetzt noch LINQ für Delphi...

PS: @mkinzler - kein Code im Link.. noch nicht.

[mquadrat]

Gibts dann eigentlich auch ein "await" ? Hatte angefangen mir das selber zu schreiben, aber fertig wäre das natürlich schöner.

[mkinzler]

Zitat:

Gibts dann eigentlich auch ein "await" ?

Nicht Out-Of-The-Box aber leicht implementierbar:

Zitat von Chris Rolliston [url:

http://delphifoundations.com/author/[/url] ]

Delphi-Quellcode:

type
  TTaskHelper = class helper for TTask
    class function Run<T>(const Sender: TObject; const Func: TFunc<T>;
      const CallOnReturn: TProc<TObject, T>): ITask; overload; static;
  end;
 
class function TTaskHelper.Run<T>(const Sender: TObject; const Func: TFunc<T>;
  const CallOnReturn: TProc<TObject, T>): ITask;
begin
  Result := Run(
    procedure
    var
      Value: T;
    begin
      Value := Func();
      TThread.Synchronize(nil,
        procedure
        begin
          CallOnReturn(Sender, Value);
        end);
    end);
end;
 
procedure TFormMain.Button1Click(Sender: TObject);
begin
  TTask.Run<string>(Self, LongTimeComing, FeedbackFromThread);
end;

http://docwiki.embarcadero.com/Libra...stem.Threading

[mquadrat]

mhh das muss ich mir mal morgens anschauen, wenn das Hirn noch nicht im Ruhemodus ist. Meine Lösung sieht so ganz anders aus

EDIT: mhh ein wirklich await ist das aber nicht, oder?

[Stevie]

Zitat von mquadrat:

mhh das muss ich mir mal morgens anschauen, wenn das Hirn noch nicht im Ruhemodus ist. Meine Lösung sieht so ganz anders aus

EDIT: mhh ein wirklich await ist das aber nicht, oder?

Nö isses nich. Das ist ne asynchrone Aktion mit einer in den Hauptthread synchronisierten Aktion im Abschluss.
Async/await für Delphi hab ich hier mal gebastelt. Für XE7 kann ich das auch einfach umstellen, dass System.Threading dafür als Backend hergenommen wird.

[mquadrat]

Kommt halt drauf an, was deine Tasks noch so können. Hatte mir bei DSharp damals nur das DataBinding angeschaut.

[Stevie]

Zitat von mquadrat:

Kommt halt drauf an, was deine Tasks noch so können. Hatte mir bei DSharp damals nur das DataBinding angeschaut.

Die können nicht viel, ist nur nen kleiner Wrapper um nen TThread, ohne Threadpooling und den ganzen Zauber

[Der schöne Günther]

Zitat von Dejan Vu:

PS: @mkinzler - kein Code im Link.. noch nicht.

Nein, nicht mehr. Ist in den letzten Minuten wohl aus dem Branch in den Trunk gewandert:

svn://svn.code.sf.net/p/radstudiodemos/code/trunk/Object Pascal/RTL/Parallel Library

Schlau werde ich aus einem Haufen hunderter unkommentierter Zeilen aber spontan auch nicht.

[Dejan Vu]

Im Video hat man kurz gesehen, das aus einer 'Liste' eine parallel abarbeitbare (watn Wort) Enumeration wird. Ähnlich, wie ich das beschrieben habe: Die ForEach-Methode verteilt die Liste an Threads und jeder führt die Action für einzelne Elmente aus. Also irgendwie so jedenfalls. Das Relevante sind aber nur ein paar wenige Zeilen. Edit: Eigentlich nur eine:

TParallel.For (lowerBound, upperBound, Method);
Theoretisch und ginge das (fast so) auch mit Delphi 7, nur ohne anonyme Methoden. Und vielleicht nicht ganz so optimal.

[Sir Rufo]

Also im Code ist das doch sehr schön zu sehen

Delphi-Quellcode:

    if FParallel then
    begin

      // parallele Verarbeitung
      TParallel.For(Low(FOriginalBoard), High(FOriginalBoard),
        procedure (Value: Integer)
        begin
          ProcessCells(nil, Value);
        end);

    end else

      // sequentielle Verarbeitung
      for I := Low(FOriginalBoard) to High(FOriginalBoard) do
        ProcessCells(nil, I);