eine eigene Thread-Klasse 2x starten

[Nogge]

Hallo Community,
Ich habe mir eine Klasse erstellt, die die recv-Funktion von WinSock enthält. Die Klasse ist mit CriticalObjects synchroniert, wofür ich eine globale nicht-Klassen-Variable des Typs RTL_CRITICAL_SECTION benötige. Diese Klasse brauche ich allerdings 2x, d.h. ich brauche auch zwei globale Variablen des Typs RTL_CRITICAL_SECTION. Ich könnte jetzt zwei fast identische Units erstellen, die sich nur von der globalen Variable unterscheiden.
Diese Lösung ist jedoch sehr speicherlastig...Gibt es eine Möglichkeit oder einen besseren Vorschlag, für jede erstellte Klasse solch eine globale Variable zu erstellen?

mfg Nogge

[ste_ett]

Eine Möglichkeit wäre, den Threads (z.B. im Konstruktor) eine Referenz auf das Objekt mit zu übergeben.
Die eigentlichen Objekte kannst du dann wo anders, evtl. lokal, erstellen. :)

[Nogge]

Danke für den Tipp, ste_ett!
Ich habe einen Pointer auf den Typ deklariert und diesen als Parameter übergeben:

Delphi-Quellcode:

function TClient.RecvThread_Open(g_cs: PRTL_CRITICAL_SECTION): Boolean;
var
  ThreadID : Cardinal;
  Parameter : PParameter;
begin
  New(Parameter);
    Parameter^.Client := self;
    Parameter^.g_cs := g_cs;

  InitializeCriticalSection(g_cs^);

  FClientThread := BeginThread(nil, 0, @Client_RecvThread, Parameter, 0, ThreadID);
  FTerminated := (FClientThread = 0);
  Result := not FTerminated;
end;

Natürlich musste ich für meine RecvThread_Close()-func ebenfalls solch einen Parameter deklarieren, damit die CriticalSection mittels DeleteCriticalSection() freigegeben werden kann.

Nochmals Danke :-D