Konstruktor Thread - Frage

[pronny31]

Hallo,
habe folgendes Problem :
Ich möchte aus einem Formular heraus einen oder mehere Threads erzeugen !
Diesen Thread möchte ich Werte und Elemente aus meinem Formular übergeben und anschließend wieder
zuweisen !

Mein Ansatz war nun folgender :
Ich habe eine neue Klasse erzeugt welche von Thread abgeleitet ist

Delphi-Quellcode:

Thread_Auswertung  = class(TThread)
  Label1             : TLabel;
  IBDatabase_fenster : TIBDatabase;
  IBTransaction1     : TIBTransaction;
  IBQuery1           : TIBQuery;

  private
  { Private-Deklarationen }

  public
   
    constructor  Create(CreateSuspended: Boolean ;Label_uebegabe : TLabel;IBDatabase1: TIBDatabase);overload;

  protected
    procedure    Execute; override;
  end;

Jetzt wollte ich den Konstruktor implementieren :

Delphi-Quellcode:

constructor TThread.Create(CreateSuspended: Boolean ;Label_uebegabe : TLabel;IBDatabase1: TIBDatabase);
var
  Flags: DWORD;
begin
  inherited Create;
  AddThread;
  FSuspended := CreateSuspended;
  Flags := 0;
  if CreateSuspended then Flags := CREATE_SUSPENDED;
  FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), Flags, FThreadID);
end;

Mein Problem ist nun folgendes ... er kann die Prrozeduren addThread , FSuspended usw. nicht finden (Undefinierter Bezeichner) !

[Kroko1999]

wie sollte er, Du hast diese Variablen doch gar nicht definiert

[pronny31]

Die wurden doch vererbt !!!!!

[SirThornberry]

Da ich gerade Labels etc. sehe in dem Thread denke ich das es angebracht ist dich darauf hinzuweisen das du nicht vom Thread aus auf das Label zugreifen solltest. Die gilt für nahezu alle VCL objekte da diese nicht Threadsafe sind.

fSuspended sollte er auch nicht finden. Das f deutet ja darauf hinn das es sich um ein Feld handelt und das sollte doch nur durch die entsprechenden Methoden änderbar sein.

[Muetze1]

Zitat:

Zitat von pronny31

Die wurden doch vererbt !!!!!

Von TThread? Und wo sind diese definiert in TThread? Richtig, im private Abschnitt. Und was bedeuten diese Schlüsselwörter im OOP?

Du hast die Eigenschaft Suspended und wozu du AddThread brauchen solltest, ist mir ein Rätsel. Schon allein da das inherited den originalen Constructor mit dem Aufruf schon ausführt.

[pronny31]

Wie kann ich vom Thread aus Auf die Variablen zugreifen z.B. eine Anzeige im Fenster das der Thread läuft oder so .....

[DeddyH]

Such mal nach Synchronize.

[Muetze1]

Zitat:

Zitat von pronny31

Wie kann ich vom Thread aus Auf die Variablen zugreifen z.B. eine Anzeige im Fenster das der Thread läuft oder so .....

Bau dir eine Methode und rufe diese über Synchronize im Thread auf. Wenn du dies aber öfters machst, dann ist der ganze Vorteil von einem Thread dahin.

/EDIT: roter Kasten?

[pronny31]

Ich brauche aber die Daten einer Komponente aus dem Hauptthread ! Wie bekomme ich Daten vom HauptThread an den CHildThread ......

[shmia]

Delphi-Quellcode:

// FALSCH ! deine Klasse heisst Thread_Auswertung und nicht TThread 
constructor TThread.Create(CreateSuspended: Boolean ;Label_uebegabe : TLabel;IBDatabase1: TIBDatabase); 
            ^^^^^^^
...
begin 
  inherited Create; 

  // FALSCH ! Finger weg von Window-API Funktionen für Thread
  // das managed alles schon die Basis-Klasse TThread
  // du musst nur die Execute-Methode überschreiben

  // FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), Flags, FThreadID); 
end;