Guten Nachmittag liebe DP,

ich arbeite im Moment an einem Programm zur Wegfindung (zum späteren Bau eines simplen 2D-Spiels) und benutze hierfür den
AStar-Algorithmus. Das Funktioniert soweit auch schon ganz gut, allerdings habe ich bisher die Berechnung des Pfades in einen
Thread ausgelagert, den ich jetzt in eine eigene Klasse einbinden Möchte. Ich erzeuge den Thread mit folgendem Aufruf:

markieren

Delphi-Quellcode:

var
  ThreadParams: PThreadParams;
  ThreadID: Cardinal;
begin
  New(ThreadParams);
  ThreadParams.Handle := FormHnd;
  CloseHandle(BeginThread(nil, 0, @Thread, ThreadParams, 0, ThreadID));

Nun möchte ich meinen Thread (die Funktion Thread, die Hier verwendet wird und damit die Pfadfindung) in eine eigene Klasse einbinden.
Also dass ich etwas deklarieren kann vom Typ TPathFinder, um mehrere Pfadfindungen parallel laufen zu lassen. Soweit so gut, Problem dabei:
Sobald ich die Thread Funktion in meine eigene Klasse einbinde, meckert er dass er als Funktion eine Variable übergeben haben will.

Der Aufruf sieht dann wie folgt aus:

markieren

Delphi-Quellcode:

  New(ThreadParams);
  ThreadParams.Handle := FormHnd;
  CloseHandle(BeginThread(nil, 0, @MyPather.Thread, ThreadParams, 0, ThreadID));

Warum funktioniert dies nicht? Der Header der Funktion Thread sieht wie folgt aus:
function TPathFinder.Thread(p: PThreadParams): Integer; Danke im Vorraus, Edlmann.

Hi,

das ist ein Standardproblem. Funktionszeiger und Methodenzeiger sind nicht das Gleiche, weil eine Methode noch den impliziten Self-Parameter übergeben bekommt.

Damit du eine Methode in BeginThread verwenden kannst, muss diese entweder parameterlos sein
function TPathFinder.Thread(): Integer; und du musst an BeginThread statt ThreadParams self übergeben oder du musst eine Klassenmethode verwenden:
class function TPathFinder.Thread(p: PThreadParams): Integer; static;

auch mit einer Klassenfuntion funktioniert es nicht, er meint immernoch dass eine Variable erforderlich sei.
Und Ohne dass ich die Funktion in die Klasse integriert habe funktioniert es auch, dann kann ich jedoch nicht mehrere Threads parallel erstellen.

Danke trotzdem.

Wieso verwendest du direkt die Thread-Funktionen der Windows-API anstatt eine höhere Abstraktionsebene (Klasse TThread) zu wählen?

Eben um meinem Thread in eine eigene Klasse zu packen, die wiederum verschiedene Methoden beherrscht...Ich könnte das ganze umstrukturieren, wollte aber erst mal schauen, ob es nicht auch anders geht. Eigentlich finde ich es schöner, eine Funktion zu haben, die eben als Thread läuft, als dafür direkt eine Klasse zu schreiben. Naja, muss ich dann mal schauen.

Danke für deine Hilfe,
Edlmann

Du musst, um einen Zeiger auf eine Klassenmethode zu erhalten, den Klassennamen angeben, nicht den Namen einer Variablen, die das Objekt hält. Also @TPathFinder.Thread statt @MyPather.Thread.

Zitat von Edlmann:

Eigentlich finde ich es schöner, eine Funktion zu haben, die eben als Thread läuft, als dafür direkt eine Klasse zu schreiben

Ein Thread läuft immer in einem bestimmten Kontext.
Er braucht Eingabedaten und liefert oder befüllt Ausgabedaten.
Wenn man einen Thread nur als Funktion sieht, dann "belügt" man sich selbst, weil der Kontext irgendwo als globale Variablen vorhanden sein muss.

Ganz anderst ist das bei der Klasse TThread.
Wenn man von TThread ableitet, dann sollte man darauf achten alle Eingabe- und Ausgabedaten als Properties anzulegen.
Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

// Thread-Klasse zur Berechnung der Mandelbrot Menge
TMandelbrotThread = class(TThread)
public
  procedure Execute; override;
   // Eingabeparameter
   property Ziel : TRect; // Bildausschnitt
   property xmin, xmax, ymin, ymax : double; // für Brechnung des Apfelmänchens benötigt
   property ColorTable : TColorTable; // Einfärbeschema

   // Ausgabeobjekt
   property Bitmap:TBitmap;
end;

Bei der Threadklasse siehst du genau, was der Thread an Input braucht und wohin das Ergebnis geht.
Sauber und Objektorientiert!
Würde es die Thread-Klasse nicht schon geben, dann müsste man sie erfinden.