[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

cool das kann ich in meinem aktuellen Projekt sicher gut gebrauchen ... Danke

jupp, nettes Teil

zum ASM: laut Microsofts/Intels Definition dürfen ESP EBP EDI ESI EBX nicht verändert werden, bzw. müssen wiederhergestellt werden (also nicht nur Delphi vereinnahmt das EBX)

Zitat von himitsu:

zum ASM: laut Intels Definition

Du meinst wohl laut "Microsofts Definition". Denn das OS gibt die Register-Reservierung vor und nicht der Prozessor.


Ich werde heute Abend übrigens die Version 2.1 herausbringen, die noch weniger Einschränkungen bzgl. der im MainThread-Block verwendeten Anweisungen hat (man sollte im Moment kein "Exit;" einbauen) und bei der auch das Exception-Handling für Delphi 6, 7, und 2005 funktioniert.

Ich habe soeben die Version 2.2 herausgegeben. Dieser behebt alle mir bekannten Bugs und unterstützt auch wieder Delphi 5 und 6.

Download siehe erste Seite (erster Eintrag)

Da war doch glatt noch ein Bug in der AsyncMultiSync() Funktion enthalten. Es gibt nun die Version 2.21.

eine richtig schicke Idee!

2 Fragen ...

1.Frage .. Was vermutest Du, wieviel Änderungen vorraussichtlich notwendig werden, wennn GodeGear mal auf 64 Bit umstellen sollte?
Oder könnte es auch so einfach weiterhin funktionieren. Wahrscheinlich nicht, oder?

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?

vielen Dank nochmal!
So kann man sehr flexibel ab und an mal was sichtbares anzeigen. Und muss nicht ständig alle ThreadEvents mit Synchronize aufrufen.

Vielleicht ist es die Delphi Threading Library ( DPL) bis dahin ja fertig

ja also, dann will ich och ma was sagen ... nett

ok, hab zwarauch schon dieses ganze Synchronize- und zeugs Mithilfe 'nem kleinen Locked-Byte umgangen, aber hiermit könnte man Einiges hübscher lösen



PS: Delphi Threading Library ( DPL ) ?

[OT] Vielleicht meint er Delphi Phishing Library [/OT]