AsyncCalls 2.21 - Inlined VCL/Main Thread Synchronisierung

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

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.

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

[mkinzler]

Du machst einem ja Angst :zwinker: in welchem Tempo du Fehler/Beschränkungen von Delphi aus dem Weg räumst

[jbg]

Zitat:

Zitat von mkinzler

Du machst einem ja Angst :zwinker: in welchem Tempo du Fehler/Beschränkungen von Delphi aus dem Weg räumst

Naja, der Code für "inlined VCL/main thread synchronization" lag schon lange herum. Nur hatte ich noch Probleme mit dem Exception-Handling, die ich aber nun beheben konnte.

[Bernhard Geyer]

Zitat:

Delphi 5 and 6 aren't supported anymore

:-( Im moment haben wir noch D6 im einsatz (hoffen in den nächsten monaten nach D2007 welcheln zu können). Kannst du mir einen Tipp geben ob ich es doch noch für D6 zum laufen bringen könnte?

Ansonsten :thumb:

[jbg]

Du müsstest dafür einen Ersatz für TThread.StaticSynchronize finden und dann mit Hilfe des "WakeMainThread: TNotifyEvent" event handlers das "SyncEvent: TEvent" nachbauen.
Delphi 5 ist schon wegen seiner Thread-Architektur nicht zu gebrauchen.

[jbg]

Ich habe mir jetzt doch die Mühe gemacht und die fehlende Delphi 6 Funktionalität weitgehends nach implementiert. Aber Delphi 5 werde ich nicht mehr unterstützen können. Das Synchronize von Delphi 5 ist nun mal ganz anders aufgebaut.

[mkinzler]

Das ist ein Service :thumb:

[jbg]

Zitat:

Zitat von mkinzler

Das ist ein Service :thumb:

Nein. Mir ist heute nur langweilig.

[Bernhard Geyer]

Zitat:

Zitat von jbg

Ich habe mir jetzt doch die Mühe gemacht und die fehlende Delphi 6 Funktionalität weitgehends nach implementiert.

Many Thanks :thumb:

[jbg]

Da war ich gestern einfach zu euphorisch nachdem ich das Exception-Handling Problem gelöst hatte und habe ganz übersehen, dass der Compiler das Self so gerne in das EBX Register legt. Dieses wird natürlich beim Thread-Switch durch einen anderen Wert ersetzt und Crash.

Die neue Version 2.01 rettet das EBX, EDI und ESI Register nun in den synchronisierten Code herüber.

Homepage, Beschreibung, Download