[jbg]

Wer kennt das nicht. Wenn man mit Threads arbeitet und auf die VCL zugreifen möchte, muss man eine Hilf-Methode schreiben, die dann per Synchronize() aufgerufen wird. Dabei müssen die ganzen Parameter in Felder des Thread-Objekts geschrieben werden, damit sie in der synchronisierten Methoden zur Verfügung stehen.
Dies führt dazu, dass man den Programmfluss nicht ganz so einfach folgen.

Mit AsyncCalls kann man das ganze Problem anders angehen, da dort "inlined VCL synchronization" implementiert ist.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyThread.Execute;
var
  S: string;
  I: Integer;
begin
  for I := 0 to 100 do
  begin
    // ...

    { ProgressBar aktualisieren }
    S := IntToStr(I) + '%';
    EnterMainThread;
    try
      Label1.Caption := S;
      ProgressBar1.Position := I;
    finally
      LeaveMainThread;
    end;
  end;
end;

AsyncCalls ermöglicht aber noch mehr. So kann man eine Funktion in einem anderen Thread ablaufen lassen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure MyProc(S: string);

  procedure WorkerThread;
  var
    I: Integer;
  begin
    // Thread beschäftigen
    for I := 0 to 1000000 do
      S := S + ' '; // Zugriff auf S aus der umgebenden Funktion
  end;

var
  a: IAsyncCall;
begin
  a := LocalAsyncCall(@WorkerThread);
  DoSomethingTimeConsuming;
  a.Sync; // ab hier muss S fertig "berechnet" sein
  DoSomething(S);
end;

Homepage, Beschreibung, Download

Delphi Parallel Library

[OT]aber die Phishing-Library ist kein schlechter name. Damit hätte Delphi einen Zielmarkt den mitsicherheit kein normaler IDE/Frameworkhersteller bedienen will [/OT]

Ein paar Blogeinträge zur DPL (Delphi Parallel Library)
http://blogs.codegear.com/abauer/2008/01/17/38849
http://blogs.codegear.com/abauer/2008/01/18/38850
http://blogs.codegear.com/abauer/2008/02/06/38855
http://blogs.codegear.com/abauer/2008/02/19/38856
http://blogs.codegear.com/abauer/2008/02/22/38857

ok, dann wäre das auch geklärt ... mir waren ja nur die Buchstaben T<>P irgendwie nicht zusammenpassend genug

Zitat von stoxx:

1.Frage .. Was vermutest Du, wieviel Änderungen vorraussichtlich notwendig werden, wennn GodeGear mal auf 64 Bit umstellen sollte?

Der Assembler-Code müsste angepasst werden, da die Register dann 64 Bit breit sind. Das dürfte aber eine Arbeit von Minuten sein. Aber da es noch kein Delphi 64bit gibt, kann ich das ja schlecht schon programmieren.

Zitat:

2. Frage .. hast Du es ausgiebieg mit 3 oder 4 Thread getestet, dass sich da auch nix verhakt? falls EnterMainThread schon aufgerufen wurde, und nun von einem weiteren Thread nochmal aufgerufen werden soll?

Das ganze ist schon abgesichert durch Critical Sections. Zudem wird intern bei EnterMainThread/LeaveMainThread auch nur mit Wasser gekocht und TThread.Synchronize aufgerufen.

War auch nicht als 1:1 Abkürzung gedacht.

So hab das jetzt in meinem projekt eingebaut und ich muss sagen
Bin sehr zufrieden damit

Danke jbg

Sehr nette Sache! Eine Frage habe ich aber: Ist es möglich, Threads (oder die darin ausgeführten Prozeduren) "mit Gewalt" abzubrechen? Kann ja sein dass das Programm "unterwegs" feststellt, dass die asynchrone Berechnung nicht mehr gebraucht wird, weil sich irgendwas geändert hat und sie eh neu angeworfen werden muss. Dann würde ich gerne den Thread abwürgen und nochmal neu beginnen, ohne das überflüssige Resultat abwarten zu müssen. Könnte allerdings ressourcenfreigabetechnisch stressig werden...

Ich würde jetzt ab und an eine Flagabfrage z.B. in die Ausführungsschleife einbauen. Eleganter wäre es aber, wenn das der "Auftraggeber" der asynchronen Ausführung regeln könnte.

Funktioniert das ganze auch in mittels CreateThread oder BeginThread erzeugten Threads? Weil du geschrieben hattest, dass letztendlich doch nur die Synchronize Funktion des TThread Objektes aufgerufen wird.

Zitat von grefab:

Könnte allerdings ressourcenfreigabetechnisch stressig werden...

Nicht nur das. Wenn du den Thread innerhalb einer CriticalSection abwürgst, bekommst du beim nächsten Start des Threads einen Deadlock.

Zitat:

Ich würde jetzt ab und an eine Flagabfrage z.B. in die Ausführungsschleife einbauen. Eleganter wäre es aber, wenn das der "Auftraggeber" der asynchronen Ausführung regeln könnte.

Und genau das sollte man nie machen. Man kann nur beim Thread anfragen, dass dieser sich beenden soll, denn nur er weiß wann es sicher ist, sich zu beenden.

Zitat von Zacherl:

Funktioniert das ganze auch in mittels CreateThread oder BeginThread erzeugten Threads? Weil du geschrieben hattest, dass letztendlich doch nur die Synchronize Funktion des TThread Objektes aufgerufen wird.

Wie meinst du das? TThread.StaticSynchronize ist eine Klassenmethode, die man auch außerhalb eines TThread Objekts ausrufen kann.