Thread startet execute nicht

[Murkas]

Hallo zusammen,

Ich befasse mich nun seit einiger Zeit mit Delphi und habe mich nun an Multithreading probiert. Das heist ich habe mir wie in diversen Anleitungen beschrieben eine neue TCheckThread Klasse von TThread abgeleitet und sie angepasst. Über das Hauptformular rufe ich nun meinen TCheckThread in 1 bis mehreren Instanzen mit verschiedenen Parametern über TCheckThread.Create auf. Genau dort kommt es zum Problem: Der Thread beginnt nicht zu arbeiten.

Hier ein paar Quellcode Ausschnitte

Code:

[...]
type
  TCheckThread = class(TThread)
  private
    Fstartcountarray:unit1.tcountarray;
    Fendstring:string;
    Freforgestringarray:unit1.treforgestringarray;
    Fthreaddone:boolean;
    Fresultstring:string;
    Fresultpoints:integer;
  protected
    function getstatname(statid:integer):string;
    function calcpoints(calcablestring:string):integer;
    procedure getbestreforgeid;
    procedure execute; override;
  public
    constructor Create(startcountarray:tcountarray; endstring:string; reforgestringarray:treforgestringarray);
    property threaddone:boolean read Fthreaddone write Fthreaddone;
    property resultstring:string read Fresultstring write Fresultstring;
    property resultpoints:integer read Fresultpoints write Fresultpoints;
  end;

implementation

constructor TCheckThread.Create(startcountarray:tcountarray; endstring:string; reforgestringarray:treforgestringarray);
var i:integer;
begin
  inherited Create(true);
  Fthreaddone:=false;
  for i:=0 to 15 do Fstartcountarray[i]:=startcountarray[i];
  Fendstring:=endstring;
  Fresultpoints:=0;
  freforgestringarray:=reforgestringarray;
  Freeonterminate:=false;
  self.Resume;
end;

[...]

procedure TCheckThread.execute;
begin
form1.Memo2.Lines.Add('getbestreforgeid starting');
getbestreforgeid; 
end;

[...]

(Hinweis: getbestreforgeid: in dieser Prozedur wird der beste Wert zwischen Start- und Endwert ermittelt und in Fresultstring geschrieben. Am Ende wird Fthreaddone auf true gesetzt, sodass die Werte über das Hauptformular ausgelesen werden.)

Aufgerufen wird der Thread dann in einer andren Unit:

Code:

calcthread[q]:=tcheckthread.Create(countarray,endstring,reforgestringarray);

Der gesamte TCheckThread.execute wird vom Compiler weg optimiert, Ich habe schon einiges versucht, dazu aber keine Lösung gefunden. Hat irgendjemand eine Idee dazu?

[Der schöne Günther]

Hallo und Herzlich Willkommen in den heiligen Hallen des Wissen und des Wahnsinns (oder so ähnlich).


Erst einmal Herzlichen Glückwunsch, direkt mit der TThread-Klasse zu arbeiten und nicht direkt die WinAPI-Aufrufe zu verwenden. Ich benutze mittlerweile nur noch TThreads und finde das viel komfortabler.

Jedoch:

1. Nutze bitte nicht
   Delphi-Quellcode:

   Resume()

   um den im 'suspended' erstellten Thread zu starten. Nimm
   Delphi-Quellcode:

   Start()

   .
2. Bitte packe den Code in (Delphi)(/Delphi)-Tags statt (Code)(/Code)
3. Greife um Himmels Willen nicht aus dem Thread auf dein Formular zu! (Beispiel:
   Delphi-Quellcode:

   form1.Memo2.Lines.Add

   . Eine Notlösung wäre die
   Delphi-Quellcode:

   Synchronize

   -Methode eines TThread-Objekts aber das finde ich ehrlich gesagt auch unsauber. Ein Thread sollte sich mit der grafischen Oberfläche nicht befassen.
   Falls du eine Möglichkeit gesucht hast um überhaupt festzustellen, ob der Thread läuft, setze doch einfach einen Haltepunkt irgendwo in die
   Delphi-Quellcode:

   Execute

   -Methode.

[DeddyH]

TThread.Start gibt es erst seit Delphi 2010 ;)

[Der schöne Günther]

Bitter, ich hätte es jetzt darauf geschoben.

Die Execute-Methode überschreibt die Methode aus TThread und erstellt wird auch ein TCheckThread-Objekt, da ist alles im Grünen.

Vielleicht fliegt die Methode nach dem VCL-Zugriff komplett raus? Aber dann sollte der Debugger wenigstens eine Exception anzeigen...

[mjustin]

Zitat:

Zitat von Murkas (Beitrag 1216084)

Code:

constructor TCheckThread.Create(startcountarray:tcountarray; endstring:string; reforgestringarray:treforgestringarray);
var i:integer;
begin
  inherited Create(true);
  ...
  Self.Resume;
end;

Einfacher und kürzer ist es den Thread von Anfang an nicht Suspended zu starten:

Code:

constructor TCheckThread.Create(startcountarray:tcountarray; endstring:string; reforgestringarray:treforgestringarray);
var i:integer;
begin
  inherited Create(False);
  ...
end;

p.s. möglicherweise ist damit das Problem auch bereits behoben...

(ab Delphi 6 wird der Thread erst gestartet nachdem der Konstruktor ausgeführt wurde)

[Ginko]

Ist das Self.Resume im Konstruktor so in Ordung ?

Hier gibt es auch noch ein Tutorial wo mit Synchronize auf die Oberfläche zugegriffen wird.
Sollte mit Delphi genauso laufen.
http://wiki.freepascal.org/Multithre...on_Tutorial/de

Mfg Ginko

[Murkas]

Zitat:

Zitat von Der schöne Günther (Beitrag 1216085)

Nutze bitte nicht

Delphi-Quellcode:

Resume()

um den im 'suspended' erstellten Thread zu starten. Nimm

Delphi-Quellcode:

Start()

.

Gibt es, wie schon erwähnt, in Delphi 7 noch nicht.

Zitat:

Zitat von Der schöne Günther (Beitrag 1216085)

Bitte packe den Code in (Delphi)(/Delphi)-Tags statt (Code)(/Code)

Ich werds mir merken, erschien mir in der Auswahl am passenden.

Zitat:

Zitat von Der schöne Günther (Beitrag 1216085)

Greife um Himmels Willen nicht aus dem Thread auf dein Formular zu! (Beispiel:

Delphi-Quellcode:

form1.Memo2.Lines.Add

. Eine Notlösung wäre die

Delphi-Quellcode:

Synchronize

-Methode eines TThread-Objekts aber das finde ich ehrlich gesagt auch unsauber. Ein Thread sollte sich mit der grafischen Oberfläche nicht befassen.
Falls du eine Möglichkeit gesucht hast um überhaupt festzustellen, ob der Thread läuft, setze doch einfach einen Haltepunkt irgendwo in die

Delphi-Quellcode:

Execute

-Methode.

Ja, dies ist tatsächlich nur dazu gewesen, dass ich sehe, was wirklich passiert und was nicht.

Die jetzt erwähnten Lösungsvorschläge führen aber auch alle nicht zum gewünschten Ergebnis. Es kommt nicht dazu, dass der Thread gestartet wird. Die gesammte TCheckThread.execute wird vom Compiler weg optimiert.

[mjustin]

Zitat:

Zitat von Murkas (Beitrag 1216097)

Die jetzt erwähnten Lösungsvorschläge führen aber auch alle nicht zum gewünschten Ergebnis. Es kommt nicht dazu, dass der Thread gestartet wird. Die gesammte TCheckThread.execute wird vom Compiler weg optimiert.

Wird

Delphi-Quellcode:

calcthread[q]:=tcheckthread.Create(countarray,endstring,reforgestringarray);

denn erreicht und ausgeführt, oder ist da auch kein blauer Punkt?

[Murkas]

ja, das wird definitiv erreicht und ausgeführt. Habe kurz davor einen Haltepunkt gesetzt und mir den Ablauf angeschaut. Auch die constructor-Prozedur wird komplett durchlaufen, blos die execute-Prozedur wird nicht gestartet.

[Blup]

Zitat:

Zitat von Murkas (Beitrag 1216084)

Der gesamte TCheckThread.execute wird vom Compiler weg optimiert, Ich habe schon einiges versucht, dazu aber keine Lösung gefunden.

Da es sich um eine virtuelle Methode handelt, kann der Compiler gar nicht wissen ob diese zur Laufzeit verwendet wird oder nicht.
Deshalb kann diese auch eigentlich nicht wegoptimiert werden.

Gründe die mir einfallen:
- Der gepostete Quelltext stimmt mit dem tatsächlichen nicht überein und das "override;" wurde bei der Deklaration von "Execute" vergessen.
- Die Unit gehört nicht zu dem Projekt und wird deshalb nicht mehr compiliert, statt dessen wird eine alte "*.dcu" eingebunden.

Unabhängig vom aktuellen Problem sind mir die Property aufgefallen.
Der Zugriff auf Variablen aus mehreren Threads muss auf jeden Fall synchronisiert werden (z.B. Get- und Setmethoden mit TCriticalSection).