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

[mimi]

verstehe ich nicht ganz, wo deiner meinung nach sollte ich es machen ???

[dizzy]

Wenn z.B. in der Methode "onE" eine Zeile: "Form1.Memo1.Lines.Clear;" vorkommt, dann schreib dir dafür eine eigene Methode - z.B.:

Delphi-Quellcode:

procedure TMyThread.ClearLines;
begin
  Form1.Memo1.Lines.Clear;
end;

und in der Methode "onE" dann aufrufen mit:

Delphi-Quellcode:

procedure TMyThread.onE;
begin
.
.
  Synchronized(ClearLines); // an Stelle von Form1.Memo1.Lines.Clear;
.
.
end;

Das Problem ist, dass du in deinem Thread ja NUR die Methode "onE" ausführst, und wenn diese dann komplett Synchronized ausgeführt wird, dann wird dein 2. Thread vollständig im Hauptthread ausgeführt, was man ja gerade mit Threads verhindern will. Also sollte an so wenig Stellen wie möglich Synchronized werden.

Zeig doch wenn es noch nicht klar ist die "onE" - evtl. kann man's am konkreten Bsp. besser erklären.

:cheers:
dizzy

\\edits: Schlechtschreibdinger...

[mimi]

ok:

Delphi-Quellcode:

{
  Fürht immer die funktion CheckPlay aus
  date    : 28.07.2004
  upDatet : 28.07.2004
}

procedure TSound.onE;
begin
  CheckPlay;
end;

Delphi-Quellcode:

{
  Schaut nach ob die musik zu ende ist oder nicht
  date    : 28.07.2004
  upDatet : 28.07.2004
}

procedure TSound.CheckPlay;
begin

  if (PlayMusikIndex > -1) and (isRandom = False)  then begin

    if (Musik[PlayMusikIndex].Module <> NIL) and (FMUSIC_IsFinished(Musik[PlayMusikIndex].Module) = True) then
      randomMusik;

    if (Musik[PlayMusikIndex].Stream <> NIL) and ( FSOUND_IsPlaying(Musik[PlayMusikIndex].Channel) = False) then
      randomMusik;
  end;

end;

[dizzy]

Delphi-Quellcode:

// etwas hübscher: ;)
procedure TSound.CheckPlay;
begin
  if (PlayMusikIndex > -1) and (isRandom = False) then
  begin
    if ((Musik[PlayMusikIndex].Module <> NIL) and (FMUSIC_IsFinished(Musik[PlayMusikIndex].Module) = True)) or
       ((Musik[PlayMusikIndex].Stream <> NIL) and (FSOUND_IsPlaying(Musik[PlayMusikIndex].Channel) = False)) then randomMusik;
  end;
end;

Hmmmm... Also wenn Musik, PlayMusikIndex, isRandom, FMUSIC_IsFinished, FSOUND_IsPlaying und randomMusik alles Felder und/oder Methoden von TSound sind, und randomMusik auch nur Zugriffe auf TSound-eigene Felder/Methoden macht, dann liegt das Problem wo anders - und ich wüsste auf Anhieb jetzt nicht wirklich wo :?.

Für den Fall, dass da z.B. eine DLL oder eine Kompo der VCL mit im Spiel ist (was ich hieraus nicht erkennen kann), dann wäre ein Synchronize hier und da angebracht.

Aber es ist doch lediglich eine Prüfung, ob noch etwas angespielt wird, oder? Wäre es da nicht einfacher einfach einen Timer zu nehmen, der alle paar Sekunden mal nachschaut?

[mimi]

das habe ich versucht mit einem Timer zu machen, doch leider ruckelt dann das Spiel, egal was ich für ein intervall nehme