CurrentThread in Delphi

[Funky-Sepp]

Hi,

vielleicht weiß von euch jemand ob es ein Äquivalent zu System.Threading.Thread.CurrentThread von .Net in Delphi32 gibt.
Habe bis jetzt leider nichts brauchbares mit Google und anderen Suchmaschinen gefunden,
brauche diese Funktion aber sehr dringend.

Hoffe ihr könnt mir da weiterhelfen.

Danke.

[sirius]

getcurrentthread aus der WINApi vielleicht?
(oder getcurrentthreadid)

Ich weis allerdings nicht, was das in .Net ist.

[Funky-Sepp]

Ja GetCurrentThread ist gar nicht mal so schlecht,
jetzt müsste ich damit nur noch das dazu passende TThread Objekt in Delphi finden.

System.Threading.Thread.CurrentThread gibt dir in .Net das im Moment laufenden Thread als Objekt zurück.

[Muetze1]

Deine eigenen Threads in eine Objektliste packen und entsprechend auch wieder herausnehmen wennd er Thread ausläuft. Danach kannst du nach GetCurrentThread() die Objektliste durchlaufen und auf TThread.Handle vergleichen. Damit hättest du dann deine Instanz.

[Funky-Sepp]

Das geht leider nicht, da ich die Threads nicht erstelle sondern eine Fremdkomponente,
und diese auch keine Liste mit Threads anbietet.

Aber trotzdem danke.

[Muetze1]

Dann ist die Frage, warum du denn die Instanzen brauchst? Durch das Thread-Handle von GetCurrentThread kannst du alle Steuerungsaufgaben auch durch die entsprechende WinAPI durchführen...

[SirThornberry]

das ThreadHandle ist das einzige worauf du bauen kannst. Denn wenn der Thread per Api erstellt wurde gibt es kein ThreadObject.

[Funky-Sepp]

Schade das habe ich schon fast befürchtet,
aber trotzdem Danke an alle für die schnelle Unterstützung.

[Funky-Sepp]

@Muetze1

Eigentlich wollte ich das Synchronize vom TThread ausführen,
habe aber dann bemerkt dass das Synchronize im Prinzip nichts anderes macht als EnterCriticalSection und LeaveCriticalSection.

Daher hilft mir das auch nicht wirklich weiter.

Mein Problem ist dass das EnterCriticalSection und LeaveCriticalSection alles viel langsamer laufen lässt, auch wenn ich nur einen Thread habe der darauf zugreiffen kann, dauert dies mehr als doppelt so lang.

[OregonGhost]

Wie oft rufst du die Enter/Leave-Pärchen denn auf?