TThread Verständnisfrage

[youuu]

Hu,

ich habe 1 HauptThread, 1 Nebenthread und 1 Klasse die im Hauptthread erstellt wird.

Nur wie kann ich meinem Nebenthread die im Hauptthread erstellte klasse mit verwenden?

Hauptthread

Delphi-Quellcode:

type
  TMainThread = class(TThread)
  private
    NebenThread: TNebenthread;
  protected
    procedure Execute; override;
  public
    Klasse : TKlasse;
    constructor Create;
  end;

Nebenthread

Delphi-Quellcode:

type
  TNebenthread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

Klasse

Delphi-Quellcode:

type
  TKlasse = class
    private
      Fsl: TStringList;     
    public
      property sl: TStringList read Fsl;
      
      procedure Test;

      destructor Free;
      constructor Create;
    end;

Hauptthread

Delphi-Quellcode:

   Adressennet := TAdressennet.Create;

   Nebenthread := TNebenthread.Create;
   Nebenthread.Start;

NebenThread --> Delphi Tag gesetzt aber nimmt er wohl nicht
   MainThread.Klasse.Test;

Klasse Procedure Test --> Delphi Tag gesetzt aber nimmt er wohl nicht
   Fsl[0] := '132'; <<< Exception Zugriffsverletzung

Ich hoffe man kann die Struktur erkennen?

Mir geht es darum, das ich viele kleine Nebenthreads produzieren möchte die eine Aufgabe verarbeiten im Hauptthread.

Oder sollte man das doch lieber komplett splitten und lieber Mehrere Hauptthreads erstellen?

[Sir Rufo]

1. der Destructor sollte auf keinen Fall Free heißen (Free ist schon automatisch da und ruft den Destructor Destroy auf)!
2. Wird FSL in der Klasse instanziert? FSL := TStringList.Create; 3. Einem Thread eine public Klassen-Variable mitzugeben ist ganz schlecht ... der Zugriff darauf sollte mit Property gelöst werden
4. Der Zugriff auf eine Property muss per CriticalSection gesichert werden, wenn mehrere Threads darauf zugrifen

[youuu]

Ok

1: behoben
2: Ja
3: ist auch per property gelöst, wollte es hier nur schnell hinschreiben und habs dabei einfach weggelassen.
4: Muss ich noch hinzufügen --> Das hat den Fehler hervorgerufen?

[Sir Rufo]

Die Klasse selber mußt du auch noch ThreadSafe machen (CriticalSection).

Jeder Zugriff auf eine Variable der potentiell von unterschiedlichen Threads benutzt wird muss mit einer CriticalSection gesichert werden.

Die CS für die Property Klasse aus dem MainThread ist nur für die Ermittlung der Klasse zuständig.
beim Benutzen der Klasse ist diese CS nicht mehr aktiv und daher muss die Klasse in sich auch ThreadSafe werden.

[youuu]

Zitat von Sir Rufo:

beim Benutzen der Klasse ist diese CS nicht mehr aktiv und daher muss die Klasse in sich auch ThreadSafe werden.

Wie mach ich das?

Delphi-Quellcode:

  FKlasseCritSect.Create;
  FKlasseCritSect.Enter;

wirft mir einen Zugriffverletzung raus.

[Sir Rufo]

Was mich nicht wundert

Werden Klassen nicht so instanziert?
MyClassVar := TMyClass.Create; Ergo, eine CriticalSection
FKlasseCritSect := TCriticalSection.Create; Und dann

Delphi-Quellcode:

FKlasseCritSect.Enter;
try
  // irgendwas machen
finally
  FKlasseCritSect.Leave;
end;

[youuu]

Oh man, dann noch solche mist Fehler, danke.