Überschreiben von TThread.Terminate

[himitsu]

Die Prozedur Terminate setzt nur .Terminated auf true.
Ob und wie der Thread das nun intern beachtet ist egal.

Terminate/Terminated beendet die Threadverarbeitung nicht.
Terminated sagt nur "Hallo lieber Thread, würdest du dich bitte mal beenden?"

Also eigentlich sehe ich demnach auch keinen Grund, warum dieses überschreibar sein soll, da man es ja Threadintern dennoch anders behandeln kann (z.B. einfach ignorieren oder mit was Anderem verknüpfen).

Es muß ja nicht sein, daß man alles virtuell macht und so die VMT unnütz vergrößert.



- bei WaitForSingleObject und Co. läßt sich auch noch eine weitere Abbruchbedingung einbauen.
- ReadFile ließe sich Asynchron verarbeiten
- usw.

[MatthiasR]

Zitat von sirius:

@MatthiasR
Menu - Projektoptionen -> Debug-DCUs verwenden

Bei mir unter D7 wäre das dann: Projekt -> Optionen -> Compiler -> Mit Debug-DCUs. Nur bringt das bei mir irgendwie nichts. Der Breakpoint innerhalb TThread.Terminate ist immernoch durchgestrichen und die Zeile grün, statt rot.

Zitat von himitsu:

Also eigentlich sehe ich demnach auch keinen Grund, warum dieses überschreibar sein soll, da man es ja Threadintern dennoch anders behandeln kann (z.B. einfach ignorieren oder mit was Anderem verknüpfen).

Innerhalb meines TMeinThread.Execute wird ein mitunter sehr lange dauernder Download getätigt, der beim Aufruf von Terminate abgebrochen werden soll, damit überhaupt die Chance besteht, das Terminated-Flag auszuwerten und den Thread zu beenden. Das liebste wäre mir gewesen, wenn ein Aufruf von Terminate von außen ausreicht und das Unterbrechen des Downloads intern automatisch durchgeführt wird. Aber ich kann aus dem einen Terminate-Aufruf auch zwei Aufrufe machen. Terminate und anschließend eine zweite Methode "BrecheLaufendeDownloadsAb" oder so ähnlich.

[sirius]

Zitat von MatthiasR:

Bei mir unter D7 wäre das dann: Projekt -> Optionen -> Compiler -> Mit Debug-DCUs. Nur bringt das bei mir irgendwie nichts. Der Breakpoint innerhalb TThread.Terminate ist immernoch durchgestrichen und die Zeile grün, statt rot.

HAst du das Projekt auch neu erzeugt oder nur gestartet (letzteres reicht nicht immer aus)?

Zitat:

Aber ich kann aus dem einen Terminate-Aufruf auch zwei Aufrufe machen. Terminate und anschließend eine zweite Methode "BrecheLaufendeDownloadsAb" oder so ähnlich.

Du kannst auch einfach Terminate verdecken (also ohne override), wenn du (wie ich jetzt begriffen habe) DeineKlasse.Terminate direkt von außen aufrufst. Und wenn du eh eine spezielle Methode einbauen musst, ist das ja auch gegeben.

[himitsu]

Zitat von sirius:

Du kannst auch einfach Terminate verdecken (also ohne override), wenn du (wie ich jetzt begriffen habe) DeineKlasse.Terminate direkt von außen aufrufst.

Aber nicht vergessen daß die Thread-Variable dann auch mit TMeinThread deklariert sein muß.
Bei einer TThread-Variable würde wieder das "Alte" aufgerufen.

Zitat von sirius:

Dann eben in die DMT.

Zitat von sirius:

Pipes gehen nicht asynchron (zumindest bis XP)

Kann mich nicht erinnern mal was davon irgendwo gelesen zu haben, daß es irgendwo nicht geht, aber hab mich auch noch nicht so mit Pipes beschäftigt und dieses bisher nur für "normale" Dateien verwendet.


Wie, womit wird denn die Datei runtergeladen?
Viele der Wege bieten es ja an, daß man wärend des Downloads Ereignisse bekommt oder wo man stückchenweise in einen Puffer lesen kann und dann dazwischen die Abbuchbedingung mit einbindet.

[MatthiasR]

Zitat von sirius:

Zitat von MatthiasR:

Bei mir unter D7 wäre das dann: Projekt -> Optionen -> Compiler -> Mit Debug-DCUs. Nur bringt das bei mir irgendwie nichts. Der Breakpoint innerhalb TThread.Terminate ist immernoch durchgestrichen und die Zeile grün, statt rot.

HAst du das Projekt auch neu erzeugt oder nur gestartet (letzteres reicht nicht immer aus)?

Ja, ich habe das Projekt komplett neu erzeugt, nicht nur compiliert!

Zitat von sirius:

Zitat:

Aber ich kann aus dem einen Terminate-Aufruf auch zwei Aufrufe machen. Terminate und anschließend eine zweite Methode "BrecheLaufendeDownloadsAb" oder so ähnlich.

Du kannst auch einfach Terminate verdecken (also ohne override), wenn du (wie ich jetzt begriffen habe) DeineKlasse.Terminate direkt von außen aufrufst. Und wenn du eh eine spezielle Methode einbauen musst, ist das ja auch gegeben.

Eben das ist doch das hüpfende Komma. Ich habe Terminate anfangs einfach nur verdeckt, sprich in meiner eigenen Thread-Klasse nochmals deklariert. Nur: wie kann ich dann in "meinem" Terminate zu Beginn noch das geerbte Terminated-Flag auf True setzen? TThread.Terminate kenn meine Klasse nicht mehr. Auf das Feld FTerminated hat es keinen Zugriff und die property Terminated ist nur lesbar . IMO darf Terminate also überhaupt nicht verdeckt werden, weil man sonst von außen überhaupt keine Möglichkeit mehr hat, das Terminated-Flag zu setzen. Was wieder zu der These führt, die Methode Terminate hätte als virtual deklariert werden müssen.

[sirius]

Du kannst nach wie vor die Vorgängermethode aufrufen. Mach ich ja, wie gesagt, auch ständig.

Du kannst dir ja mal bspw. mein DosCommand ansehen:
http://forum.delphi-treff.de/showthr...783#post201783

[MatthiasR]

Und wie geht das? Mit inherited?

[sirius]

Zitat von MatthiasR:

Und wie geht das? Mit inherited?

ja, ein Beispiel aus obiger verlinkter Unit:

Delphi-Quellcode:

constructor TReadPipe.Create(Aread_stdout,Awrite_stdout:THandle);
begin
  inherited Create(false);
  FEvent:=TEvent.Create(nil,false,false,'');
  FSyncString:=TSyncString.Create;
  Fread_stdout:=Aread_stdout;
  Fwrite_stdout:=Awrite_stdout;
  freeonterminate:=true;
end;

destructor TReadPipe.Destroy;
begin
  FEvent.Free;
  FSyncString.Free;
  inherited;
end;

procedure TReadPipe.Execute;
var Buf:array[0..1023] of byte;
    bread:Cardinal;
    s:string;
begin
  repeat
    ReadFile(Fread_stdout, Buf, length(buf), bread, nil);  //wait for input
    if terminated then exit;
    setlength(s,bread);
    move(buf[0],s[1],bread);
    FSyncstring.Add(s);
    FEvent.SetEvent;
  until terminated;
end;

procedure TReadPipe.Terminate;
const fin='fin';
var bwrite:Cardinal;
begin
  inherited;
  WriteFile(Fwrite_stdout,fin,length(fin),bwrite,nil);
end;

Es gibt da auch noch ein größeres Beispiel.

[himitsu]

Zitat von MatthiasR:

Der Breakpoint innerhalb TThread.Terminate ist immernoch durchgestrichen und die Zeile grün, statt rot.

dieses Terminate wird auch verwendet?
Was nicht einkompiliert ist (weil es z.B. nicht verwendet wird), das kann auch nicht im Debugger mit einem Haltepunkt versehn werden.

Sind denn in dieser Procedur die kleinen blauen Pünktchen zu sehn?
(oder überhaupt irgendwo in der ganzen Unit)

[Stevie]

Zitat von himitsu:

Die Prozedur Terminate setzt nur .Terminated auf true.
Ob und wie der Thread das nun intern beachtet ist egal.

Terminate/Terminated beendet die Threadverarbeitung nicht.
Terminated sagt nur "Hallo lieber Thread, würdest du dich bitte mal beenden?"

Also eigentlich sehe ich demnach auch keinen Grund, warum dieses überschreibar sein soll, da man es ja Threadintern dennoch anders behandeln kann (z.B. einfach ignorieren oder mit was Anderem verknüpfen).

Wie "gut", dass FTerminated private und die property Terminated, die gottseidank protected ist nur read only ist. /irony=off

Zum Glück hat ein Thread ein OnTerminate Event, wie schade nur, dass das erst aufgerufen wird, nachdem der Thread terminated wurde, und nicht zu dem Zeitpunkt, wo Terminate aufgerufen wurde.

Wie man es auch dreht und wendet, es ist schlecht, dass Terminate nicht virtual ist.