Callback

[nailor]

Also, ich hab folgendes Problem: Meine schöne Anwendung zwingt notgedrungen jeden Rechner für eine Weile in die Knie. Es liegt an einer sehr rechenintensiven Procedure, die aber nicht zu ändern ist. Kann man die jetzt irgendwie abbrechen und einen Fortschrittsbalken einbauen?

Ich hab irgendwann mal was über Callback gehört, hab aber keine Ahnung davon. Also, wenn wer eine Intro dazu hat, nix wie her damit!

[sakura]

Ist diese rechenintensive Routine in der Klasse, in welcher auch das Form definiert ist, oder ist diese in einer anderen Klasse definiert? Diese Info macht den Rest u.U. viel leichter.

[nailor]

Die Routine an und für sich ja. Die "Unterroutine" die die Routine so lange brauchen lässt: nein.

[sakura]

Wird die Unterroutine mehrfach oder nur einmalig aufgerufen?

[nailor]

nur einmal, an sonsten hätt ich's wohl noch selber gepackt

[sakura]

Okay, deklariere ein neues Ereignis vor der Deklartion der Klasse mit Deiner Routine:

Delphi-Quellcode:

type
  TProgressInfo = procedure(Sender: TObject; Progress: Integer) of object;

Der Wert in Progress übergibt dann den Fortschritt in z.B. Prozent.
In der Klasse mit der Routine definiere foldende Eigenschaft/Variable

Delphi-Quellcode:

type
  TRoutineKlasse = class
  private
    FOnProgressInfo: TProgressInfo;
  public
    property OnProgressInfo: TOnProgressInfo read FOnProgressInfo write FOnProgressInfo;
  end;

In Deiner Unterroutine fügst Du folgenden Aufruf ein:

Delphi-Quellcode:

...
if Assigned(FOnProgressInfo) then
  FOnProgressInfo(Self, Fortschritt);
...

Wobei Fortschritt der darzustellende Wert ist. Nun zum Form, welches den Fortschritt darstellen soll. Definiere eine Funktion, welche aufgerufen wird, um den Fortschritt anzuzeigen

Delphi-Quellcode:

type
  TMyForm = class(TForm)
  private
    procedure OnProgressInfo(Sender: TObject; Progress: Integer);
  end;

Die Methode musst Du jetzt mit "Leben" füllen, z.B.

Delphi-Quellcode:

procedure TMyForm.OnProgressInfo(Sender: TObject; Progress: Integer);
begin
  prgBar.Position := Progress;
  Application.ProcessMessages;
end;

Jetzt noch die letzte Zeile. Diese musst Du einfügen, bevor Du die Unterroutine aufruft.

Delphi-Quellcode:

objRoutineKlasse.OnProgressInfo := OnProgressInfo;
objRoutineKlasse.DieUnterroutine;

......

[nailor]

Also, jetzt hab ich keine Zeit, morgen fahr ich zur Oma --> du musst eine Weile warten, bis ich was dazu sagen kann!

[sakura]

Hab ja geschrieben, dass die Lösung etwas länger ist.