createThread mit Methode als Parameter

[SebE]

Hallo,
ich hab ein rel. simples Problem:

Delphi-Quellcode:

createThread(nil, 0, MachWas, nil, 0, fMainThreadID);

und zwar ist MachWas eine Methode, also keine "normale" Prozedur, welche aber gewünscht ist.

Ich möchte MachWas nicht global deklarieren.
Wie kann ich dieses Problem lösen.

Danke

[Apollonius]

Du hast doch einen Parameter zur freien Verfügung. Da verwendest du dann einfach Pointer(Objekt) und castest in der Thread-Funktion zurück zum Objekttyp und rufst die Methode auf. Alternativ kannst du auch tricksen und die Methode als stdcall oder pascal deklarieren, dann brauchst du keine Helferroutine.

[sx2008]

Wieso leitest du nicht von der Klasse TThread ab?

[SebE]

@Apollonius: mit der "Helfer"-Routine mach ich es ja zur Zeit.
Die ist aber global deklariert - das gefällt mir nicht.
Ich hab schon mit Klassen-Methoden (class procedure MacWas()) gespielt, läuft aber auch nicht (obwohl ich dache, dass wären "normale" Prozeduren)

Wie bekomme ich denn die Addresse einer Methode heraus, mit Pointer(MachWas) kann ich leider nicht casten.

[jbg]

Statt CreateThread solltest du BeginThread benutzen, denn sonst bekommt der Speichermanager nicht mit, dass er jetzt von mehreren Threads aus angesprochen wird.

[Apollonius]

Damit Klassenmethoden sich wie globale Routinen verhalten, musst du ihnen bei der Deklaration noch ein 'static;' mitgeben. Die Bestandteile eines Methodenzeigers erhältst du, indem du nach TMethod castest. Wenn du auf Biegen und Brechen keine Helferfunktion willst, kannst du deine Threadmethode als stdcall oder pascal deklarieren und CreateThread so aufrufen:

Delphi-Quellcode:

CreateThread(nil, 0, TMethod(Methode).Code, TMethod(Methode).Data, 0, ID);

Lass dir nebenbei gesagt sein, dass unter Delphi besser BeginThread statt CreateThread genutzt werden sollte, da dies u.A. dem Speichermanager ermöglicht, sich auf Multithreadbetrieb einzustellen.

[sx2008]

Und wieso leitest du nicht von der Klasse TThread ab?
Warum möchtest du bei Threads auf objektorientierte Programmierung verzichten??

[Luckie]

Oder guck mal hier: http://www.michael-puff.de/Artikel/CallbackMethod.shtml

[Apollonius]

Ist es nicht ein bisschen verschwenderisch, eine ganze Speicherseite für 15 Bytes zu allozieren, wenn Windows schon einen Kontext-Parameter anbietet?

[Luckie]

Ich habe den Code lange nicht mehr angeguckt. Er ist eventuell verbesserungswürdig. Verbesserungsvorschläge nehme ich gerne entgegen.