Hi Leuts,
habe nun schon etwas länger nach meinem Problem gesucht, aber leider keine "richtige" Lösung gefunden:

Ist es möglich einen Thread aus einem anderen heraus zu beenden.
Grund:
Mein Programm lädt ganz am Anfang in einem Thread ziemlich große Textdateien aus dem Internet herunter (ca. 14 MB). Das dauert natürlich etwas länger. Wenn man nun das Programm bald wieder beenden möchte. Schließt zwar das Programm, aber der Thread läuft noch weiter. Und genau das möchte ich nicht.
Gibt es dafür irgendeinen bestimmten Befehl?

mfg Looper

Hallo,

sollte das nicht mit TThread.Terminate gehen:

Zitat von DelphiHilfe:

Signals the thread to terminate by setting the Terminated property to True.

procedure Terminate;

Description

Terminate sets the thread’s Terminated property to True, signaling that the thread should be terminated as soon as possible. Unlike the Windows API TerminateThread, which forces the thread to terminate immediately, the Terminate method merely requests that the thread terminate. This allows the thread to perform any cleanup before it shuts down.

For Terminate to work, the thread's Execute method and any methods that Execute calls should check Terminated periodically and exit when it's True.

Grüße
Klaus

Hi Klaus01,
funktioniert das denn auch aus der Hauptunit aus. Habe keine Ahnung wie ich das realisieren soll


Schonmal Danke für alle Antworten

In welcher Unit läuft der Thread denn, bzw. Wo ist er deklariert? Wenn er in einer anderen Unit ist, diese bei Uses hinzufügen.

Zitat von Looper:

funktioniert das denn auch aus der Hauptunit aus.

Probiers aus

Mfg

Zitat von Looper:

Hi Klaus01,
funktioniert das denn auch aus der Hauptunit aus. Habe keine Ahnung wie ich das realisieren soll :roll:


Schonmal Danke für alle Antworten

Du startest doch den Thread auch in der HauptUnit.
Du solltest also die Instanz des TTHread Objects kennen.

Wenn Du in der Execute Routine
abfragst ob die terminated variable gesetzt wurde
dann sollte sich der Thread auch mit TTHread.terminate beenden lassen.

Ein kleins Beispiel findest Du hier
-> http://www.delphicorner.f9.co.uk/articles/op3.htm

Grüße
Klaus

Zitat von Klaus01:

Wenn Du in der Execute Routine
abfragst ob die terminated variable gesetzt wurde
dann sollte sich der Thread auch mit TTHread.terminate beenden lassen.

Sehe ich das richtig, dass der Thread auch wirklich nur beendet wird, wenn man das property abfragt und selber für das Beenden sorgt? Also wenn ich es nie Abfrage, läuft mein Thread einfach bis zum Ende? Habe ich das richtig verstanden?

richtig. Die Terminate-Methode setzt das Terminated-Property auf True. In der Execute-methode sollte man dieses property in regelmäßigen Abständen abfragen und entsprechend die Execute-Methode verlassen wenn es auf TRUE steht.

Zitat von SirThornberry:

richtig. Die Terminate-Methode setzt das Terminated-Property auf True. In der Execute-methode sollte man dieses property in regelmäßigen Abständen abfragen und entsprechend die Execute-Methode verlassen wenn es auf TRUE steht.

#

Ah okay, vielen Dank. Wenn man jetzt einen Thread hat, welcher viele Funtktionen/Prozeduren aufruft, kann es manchmal kompliziert werden in allen regelmäßig diese Property abzufragen, denke ich. Vor allem wenn die selbe Funktion von verschiedenen Threads benutzt werden kann.

Mit TerminateThread bekomme ich es problemlos hin, dass der Thread sofort beendet wird. Habe ich gerade ausprobiert... Spricht irgendetwas gegen TerminateThread und für die Methode mit dem Terminated Property?

Terminated hat den Vorteil das du den Thread "ordentlich" und "kontrolliert" beenden kannst, zB kannst du dann noch schnell den Fortschritt speichern usw.
Ich kenne TerminateThread zwar nicht, aber das wird die "Totschlagmethode" sein, bei der einfach der Thread abgewürgt wird. Du weißt also nicht was er grad gemacht hat.

TerminateThread sollte man grundsätzlich vermeiden! Unter anderem wird der Stack des Threads nicht freigegeben, er könnte in einer Critical Section stecken und so weiter.
In der klassischen Version verwendet man Overlapped I/O und wartet nach jeder Operation mit WaitForMultipleObjects auf das Overlapped Event und ein Stopp-Event. Der Rückgabewert wird geprüft und entsprechend reagiert. Leider unterstützen die meisten Komponenten kein Overlapped I/O, daher muss man es meistens selbst implementieren.