TThread-Execute wird nicht ausgefürhrt warum ?

[mimi]

Hallo,
ich habe ein problem beim erzeugen von einem TThread Object.
so erzeuge ich ihn:

Delphi-Quellcode:

procedure TSound.TInit;
var
  t:TSoundWihle;
begin

  t:=TSoundWihle.Create(True);
  t.onE:=onE;
  t.Priority := tpLower;
  t.Resume;

end;

mein unit für das TThread-object:

Delphi-Quellcode:

unit wihle;

interface

uses
  Classes;

type
  TE = procedure of Object;
  TSoundWihle = class(TThread)
  private
    { Private-Deklarationen }
  protected

  public
    onE: TE;
    procedure Execute; override;
  end;

implementation


{ TSoundWihle }

procedure TSoundWihle.Execute;
begin
  while Terminated = True do begin
    onE; 
  end; 

end;

end.

problem ist:
ich muss ein ereignis immer ausführen damit in diesem ereignis checkPlay meiner sound unit ausgeführt werden kann.... warum wird jetzt Execute nicht ausgeführt?
TInit wird aufgerufen, nachdem die sound klass komplet geladen ist !!!

[sakura]

Wie wäre es mit :?:

Code:

procedure TSoundWihle.Execute;
begin
  [color=#ff0000]while not Terminated do begin[/color]
    onE; 
  end; 

end;

...:cat:...

[mimi]

keine änderung habe ich bekomme jetzt dafür beim beenden eine fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt BreakOut.exe ist eine Exception der Klasse EOSError aufgetreten. Meldung: 'Systemfehler. Code: 5.
Zugriff verweigert'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

das problem ist excute wird noch nicht mal ausgeüfhrt !!!

[Tyrael Y.]

Mal ne kleine Nebenfrage:

Muss man die property FreeOnTerminate nicht noch setzen?

Delphi-Quellcode:

procedure TSound.TInit;
var
  t:TSoundWihle;
begin

  t:=TSoundWihle.Create(True);
  t.onE:=onE;
  t.Priority := tpLower;
  t.OnTerminate := DoMyTerminate()       // <---
  t.FreeOnTerminate :=  True bzw. False; // <---
  t.Resume;

end;

ist ist sie standardmäßig false?

[mimi]

jetzt bekomme ich beim beenden:

Code:

---------------------------
Anwendungsfehler
---------------------------
Exception EAccessViolation in Modul BreakOut.exe bei 00000000.

Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000.


---------------------------
OK   
---------------------------

diesen fehler !!!

[sakura]

Zitat:

Zitat von mimi

keine änderung habe ich bekomme jetzt dafür beim beenden eine fehlermeldung:

Was Du so keine Änderung nennst ;)

Dein Problem ist, daß Du den Thread mit Deiner Anwendung syncronieseren musst. Suche dazu mal nach Synchronize

...:cat:...

[mimi]

kein beitrag konnte mir weiter helfen :(
kannst du mir ein beispiel schreiben, was mit Synchronize arbeitet ???
weil das habe ich auch aus Luckis tutor nicht richtig verstanden !!!!

[dizzy]

Wenn du aus deinem Thread heraus auf Properties und Variablen eines anderen Threads (z.B. Controls auf dem Formular) zugreifst, so müssen diese Zugriffe synchronisiert werden. Die Zeilen die den Zugriff machen musst du in eine eigene Methode deiner Threadklasse packen, und mit Synchronize(MethodenName); aufrufen. Sonst kann es knallen.

gruss,
dizzy

[mimi]

ich habs jetzt so gemacht:

Delphi-Quellcode:

procedure TSoundWihle.Execute;
begin
  while not Terminated  do begin
    Synchronize(onE); 
  end; 

end;

nur jetzt hängt sich das progamm auf, und spielt die musik einfach weiter ab, macht aber sonnst nichts mehr :(

[dizzy]

Ist auch logisch ;). Das Synchronized veranlasst, dass die Methode im Hauptthread der Anwendung ausgeführt wird! Deshalb kann man sich, so wie du es einsetzt, so alle Vorteile von einem Thread mit einem Schlag zu Nichte machen.
Du solltest INNERHALB deiner Methode alle Zugriffe die auf andere Threads passieren EINZELN Synchronized machen, nicht die ganze Methode!

Solche Synchronized-Aufrufe sollte man so sparsam wie möglich einsetzen, und im Zweifelsfall das Vorgehen im Thread überdenken, da er dir sonst nichts bringt.

:cheers:,
dizzy