XE 7 - Parallel Programming Library

[mkinzler]

Von allein geht es nicht. Kann ja auch nicht funktionieren. Der Programmierer muss natürlich festlegen, was parallel abgearbeitet werden kann bzw. was unbedingt sequentiell.

https://www.youtube.com/embed/Ni3JDx...de=transparent

[Der schöne Günther]

Darauf bin ich auch ziemlich gespannt, aber das DocWiki zum Thema ist noch leer. Mehr als dieses 38-sekündige Promovideo kenne ich auch nicht.

Aber dazu kommt bei Embarcaderos Skill Sprints hoffentlich bald was

[Alex_ITA01]

Ich frage mich folgendes:

Angenommen ich habe 50 Threads (einfach eine in den Raum gestellte Zahl die keiner weiteren Nachfrage und Sinnhaftigkeit bedarf), die alle unabhängig voneinander etwas tun und irgendwann fertig werden können bzw. immer irgendwelche Sachen abarbeiten.
Dies kann ich ja jetzt aktuell nicht wirklich beeinflussen, auf wie viele Kerne das ausgelagert wird, damit es parallel erfolgen kann.

Bringt mir für diesen Anwendungsfall das "Parallel Programming Library" auch etwas?

Viele Grüße

[mkinzler]

Der Code zum Demo:http://sourceforge.net/p/radstudiode...llel%20Library

Jein. Mit der Bibliothek legst Du fest, welcher Code parallel ausgeführt werden kann. Wenn genügend Ressourcen (Kerne) vorhanden sind, laufen dann alle "Threads" parallel. Sonst halt so viele wie gehen und die anderen nach Abschluss einer anderen Aufgabe.

[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?

[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.