Thread stoppt nicht?

[Zerolith]

Tag!

ich hab mir heut ein kleines Threadobjekt erstellt. Joa.. funktioniert soweit auch bloß bekomm ich kein OnTerminate Ereignis:

Delphi-Quellcode:

unit uSyncThread;

interface

uses
  Classes, ZMySQLProxyUnit, uConsole;

type
  TZSyncThread = class(TThread)
  private
    FResult : TZResult;
    procedure WriteDone();
    procedure WriteError;
  public
    SQL : TZMySQLProxy;
    Console : TZConsole;
    Constructor Create(ASQL : TZMySQLProxy; AConsole : TZConsole);
  protected
    procedure Execute; override;
  end;

implementation

{ ZSyncThread }

constructor TZSyncThread.Create(ASQL : TZMySQLProxy; AConsole : TZConsole);
begin
  Console := AConsole;
  SQL := ASQL;
  inherited Create(False);
end;

procedure TZSyncThread.Execute;
begin
  SQL.SQL := 'SELECT * FROM z_wct_configs';
  FResult :=  SQL.Execute;
  if FResult.ZMessageType = zError then
    Synchronize(WriteError)
  else
    Synchronize(WriteDone)  // Normalerweiße wird hier "gestoppt" die WriteDone wird nicht aufgerufen
                            
end;

procedure TZSyncThread.WriteDone;
begin
  Console.WritelnEx('[ DONE ]');
end;

procedure TZSyncThread.WriteError;
begin
  Console.WritelnEx('[ ERROR ]');
  Console.WritelnEx(FResult.ZMessage);
end;

end.

Es gibts auch keine Fehler meldung - nur im Hauptprogramm - in einer Schleife wo geprüft wird ob der Thread fertig ist läuft alles weiter.

bitte um hilfe!!!
danke,
Daniel

[Zerolith]

Sorry dass ich pushe - Aber der Topic is schon so weit zurück gerutscht und es ist (für mich) ziemlich wichtig!

kann mir keiner helfen?

[Luckie]

Auch wenn es für dich wichtig ist, ist es unerwünscht Beiträge innerhalb von 24 Stunden zu "pushen". Stell deine Frage das nächste mal eben früher.

[sniper_w]

Zitat:

funktioniert soweit auch bloß bekomm ich kein OnTerminate Ereignis:

Du hast ja kein implementiert.

[Zerolith]

ja sorry - eh hab ich in ner anderen unit - die die den Thread erstellt.

Hab grad festgestellt dass die Unit "funktionier" sobald sie in ner VCL Anwendung ist - bei mir is es jetzt z.Zt eine Konsolenanwendung (sollte doch eigtl keinen Unterschied machen?) die später zum SystemService ausgebaut wird.

Edit: Ach und eh: wenn ich Syncronize aufrufe stoppt er sofort. (alles ausser dem Thread läuft weiter)

cya

[m.wollert]

Zitat:

Du hast ja kein implementiert.

Kommt drauf an. Wenn er "extern" etwas handeln möchte, dann benötigt er nur einen entsprechenden Event-Handler. Kann ja sein, daß er den nicht überschreiben möchte. Es wäre jetzt noch interessant, wie die Instanz des Threads erstellt wird.

Michael:)

[Zerolith]

Delphi-Quellcode:

...
procedure ThreadIsDone(Sender : TObject);
...
With TSyncThread.Create(Console, DB) do OnTerminate := ThreadIsDone;

is grad ausm Kopf muss nicht 100% korrekt sein

[m.wollert]

Innerhalb Deines Creates wird der Thread direkt ausgeführt -- kann sein, daß der Event-Handler hier schon garnicht mehr gesetzt wird, weil der Thread bereits durch ist... Kann mich aber auch täuschen.

Versuche es mal mit dem abgeleiteten Create:

Delphi-Quellcode:

inherited Create(TRUE);

und in Deinem With-Block so:

Delphi-Quellcode:

With TSyncThread.Create(Console, DB) do
begin
  OnTerminate := ThreadIsDone;
  Resume;
end;

[edit] Vor allem sollte FreeOnTerminate noch gesetzt werden, weil sonst der Speicher nicht mehr freigegeben wird! ;) [/edit]


Fehlt in der Abfrage nicht ein abschliessendes Semikolon? (*Nur mal so frag*)

Delphi-Quellcode:

SQL.SQL := 'SELECT * FROM z_wct_configs[b];[/b]';

[Zerolith]

Zitat:

Zitat von m.wollert

Innerhalb Deines Creates wird der Thread direkt ausgeführt -- kann sein, daß der Event-Handler hier schon garnicht mehr gesetzt wird, weil der Thread bereits durch ist... Kann mich aber auch täuschen.

Versuche es mal mit dem abgeleiteten Create: // HAB ICH SCHONMAL

Delphi-Quellcode:

inherited Create(TRUE);

und in Deinem With-Block so: // DITO

Delphi-Quellcode:

With TSyncThread.Create(Console, DB) do
begin
  OnTerminate := ThreadIsDone;
  Resume;
end;

[edit] Vor allem sollte FreeOnTerminate noch gesetzt werden, weil sonst der Speicher nicht mehr freigegeben wird! ;) [/edit]


Fehlt in der Abfrage nicht ein abschliessendes Semikolon? (*Nur mal so frag*) // Eigtl nur wenn mehr als eine SQL Anweißung sonst kann man das imho weglassen

Delphi-Quellcode:

SQL.SQL := 'SELECT * FROM z_wct_configs[b];[/b]';

Aber Danke

[xman]

Zitat:

Zitat von Luckie

Auch wenn es für dich wichtig ist, ist es unerwünscht Beiträge innerhalb von 24 Stunden zu "pushen". Stell deine Frage das nächste mal eben früher.

sag mal, ich bin zwar noch nicht lange hier aber dein angekotze von irgendwelchen Leuten in verschiedenen Threads fällt mir auch schon negativ in der ersten Woche auf. Schade das es so Leute gibt.