Ich versuche, diverse Suchalgorithmen zu animieren, d.h. dem Nutzer soll in Form von Bildchen angezeigt werden, was ein Algorithmus so tut. Dafür habe ich in den Schleifen und if-Abfragen der Algorithmen entsprechende Animationssequenzen eingebaut. Prinzip ist so, dass zunächst in ein Bitmap gemalt wird, was dann in eine Paintbox kopiert wird. Da ich auch mehrere Algorithmen gleichzeitig animieren möchte, habe ich das ganze in eine Thread-Klasse ausgelagert. Diese sieht auszugsweise so aus:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TRepaintProc = procedure(Mode: Integer; aBitmap: TBitmap) of Object;

TPatternmatchAnimator = class(TThread)
  private
    OffscreenBmp: TBitmap;
    fMode: Integer;
    fRepaintProc: TRepaintProc;
    procedure RefreshAnimation;

//...

procedure TPatternmatchAnimator.Execute;
begin
  // das ist natürlich Pseudocode ;-)
  do "GanzOft"
     PaintSomethingOn_OffScreenBitmap.Canvas;
     Synchronize(RefreshAnimation);
     Sleep(aWhile);
end;

procedure TPatternMatchAnimator.RefreshAnimation;
begin
  fRepaintProc(fMode, Offscreenbmp);
end;

Erzeugt und gestartet wird der Thread so, bzw. die Threads. Es sind mehrere, je nach Mode wird intern ein anderer Algorithmus verwendet.

zusammenfalten · markieren

Delphi-Quellcode:

//globale var
var PatternmatchAnimators: Array[0..3] of TPatternmatchAnimator;
//...
procedure TForm1.BtnThreadedSearchClick(Sender: TObject);
begin
  for i := 0 to 3 do
  begin
      PatternmatchAnimators[i] := TPatternmatchAnimator.Create(True);
      PatternmatchAnimators[i].FreeOnTerminate := True;
      PatternmatchAnimators[i].RepaintProc := Form1.ReFreshPaintbox;
      PatternmatchAnimators[i].Mode := i;
      //...
  end;
  for i := 0 to 3 do
    PatternmatchAnimators[i].Resume;
end;
// Die Refresh-Prozedur sieht so aus:
procedure TForm1.ReFreshPaintbox(Mode: Integer; aBitmap: TBitmap);
begin
  case Mode of
      0: Paintbox0.Canvas.Draw(0,0,aBitmap);
      1: Paintbox1.Canvas.Draw(0,0,aBitmap);
      2: Paintbox2.Canvas.Draw(0,0,aBitmap);
      3: Paintbox3.Canvas.Draw(0,0,aBitmap);
    end;
end;

Dabei tritt folgendes Problem auf: Solange die Maus nicht auf meiner Form ist (und ich das ganze über "Enter" gestartet habe, wenn der Start-Button den Fokus hat), läuft das ganze munter durch, bei langen Beispielen auch mehrere Minuten. Bewege ich jedoch die Maus auf der Form, kommt die Animation ins Schleudern, d.h. das Bild sieht nicht so aus, wie es aussehen sollte und/oder wird gar nicht mehr aktualsiert. Ab und zu erzeugt dann auch der eine oder andere "Offscreenbmp.Canvas.MaleWas" einen Fehler "Leinwand erlaubt kein Zeichnen".

Da das Fehlverhalten leicht reproduzierbar ist, nehme ich an, dass die Threads (einer reicht dafür aber auch aus) sich nicht mit einer Abarbeitung der Nachrichtenschleife des VCL-Hauptthreads vertragen (denn das passiert ja, wenn man z.B. die Maus auf der Form bewegt, auch wenn diesem Event nichts zugewiesen ist). Jemand ne Idee, was ich falsch mache?

Hat das hier keiner gelesen, oder weiß einfach keiner ne Antwort?

Ich push hier mal, und füge das ganze Projekt bei - wie in der EE auch. Wäre nett, wenn mal einer drübergucken könnte, der sich etwas auf dem Gebiet "Threads" auskennt.

Zur Info: Da werden String-Matching-Algorithmen animiert. Oben der naive, darunter der von Knuth, Morris und Pratt, ganz unten Boyer-Moore. Der freie Platz ist für ne (schlechtere) Variante von KMP, die aber noch nicht implementiert ist.

Habe gerade einen kleinen Fehler gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

// Berechnung des Bad-Character-Shifts
procedure TPatternMatchAnimator.PreProcess_BM_BadCharacter;
var i, m: Integer;
begin
  m := Length(fPattern);
  FillMemory(fBM_BC, sizeof(fBM_BC), 0); // find ich schneller und einfacher -.-^^

  { // Fehler bei Bereichsüberprüfung //
  for i := 0 to m do
    fBM_BC[Ord(fPattern[i])] := i;  // Strings (fPattern) beginnen mit 1                             
  }

  for i := 1 to m do
    fBM_BC[Ord(fPattern[i])] := i;
end;

Schalte mal in deinen Compilereinstellungen Range checking, I/O checking und Overflow checking mit ein.

Danke schonmal. Das war tatsächlich ein Fehler. Aber das Problem wird dadurch leider nicht gelöst.

Compilersettings hab ich mal umgesetzt, und das schien ja die einzige Stelle mit dieser Art Fehler zu sein. Ist denn das Verfahren, wie ich das Zeichnen in den Threads erledige so richtig, oder stolpert der da über irgendein nicht-Thread-sicheres Ding? Aber wenn ich ein tBitmap in dem Thread erstelle, dann sollte man doch auch frei auf dessen Canvas zugreifen können, oder?
Und wenn ich dieses Bitmap dann in einer Synchronisierungs-Prozedur nach außen hin weitergebe, sollte das doch eigentlich auch glatt durchgehen, oder?

Äh ja, wollt ich ja noch dazuschreiben. Sorry.

Ja, Canvasopperationen bzw. GDI Sachen sind nicht Threadsicher.

Was ich dir vorschlagen würde ist die Berechnung im/in den Thread(s) durchzuführen.
Die graphische Ausgabe allerdings im Hauptthread also der Anwendung zB. über einen Timer erledigen lassen.

Jupp, die Antwort kam im DF auch eben. Und das scheint auch die Lösung zu sein. Danke auch hier für die Mühe .

Nen Timer nehme ich aber nicht, sondern übergebe der VCL-Mal-Routine vom Thread aus die nötigen Parameter, die zum Zeichnen benötigt werden. Das Zeichnen wird dann nicht in einem bestimmten Intervall erledigt, sondern immer dann, wenn der Thread meint, man sollte was zeichnen.