Wie wäre es ohne sleep aber mit Triggerung durch einen Timer?
oder so:

markieren

Delphi-Quellcode:

while aMYThread.InProgress do
begin
  aMyThread.InProgres:=false; {ich hab das read gesehen.....}
  MeinInfoFenster.Action;
  Sleep(1000);
end;

Gruß
K-H

Warum kann Sleep nicht endlich aus der RTL rausgeworfen werden?

Deutlich besser ist WaitForSingleObject, dann lässt sich die "Wartepause" auch abbrechen (sonst z.B. nervig wenn bei Programmende einige Threads noch die eine oder andere Sekunde schlafen, beim System runterfahren, wenn man einfach nur abbrechen will...). Zum Beispiel mit einem Event (auf den man damit wartet).

Wird das Query wirklich im Thread ausgeführt. Denn wenn die Komponente in TThread.create erstellt wird, gehört sie zumindest noch dem Mainthread (müsste man überprüfen, wie die Komponente arbeitet.

Ansonsten: sleep vermeiden, steht ja schon da.


Edit:

Zitat von NickelM:

Ich persönlich find es blöd, da die Hauptanwendung im Endeffekt wieder einfriert.

Sieht ja so aus, als ob das notwendig ist. Stichwort Splashscreen und Vorarbeiten beim Start.

Hi ibp,

also so wie ich das sehe, würde ich im Thread auf jedenfall eine eigene Connection aufbauen. Außerdem sei beachtet, dass der Constructor des Threads im Kontext des aufrufenden Threads - also nach Deinem Beispiel wahrscheinlich des Hauptthreads - ausgeführt wird. Ich würde daher alle Speichersachen erst am Anfang von Execute erzeugen/anlegen und auch am ende von Execute freigeben.
[EDIT]Wurde ja schon so von sirius geschrieben [/EDIT]

Dann der Aufruf. Es gibt da eben zwei Möglichkeiten - die eine ist nach meiner Ansicht der lineare Ansatz mit warten auf Beendigung wie du es gemacht hast. Sleep ist dafür nach meiner Meinung schlecht ich würde eher aktives Warten machen -> mit z.B. sowas.

Der andere ist der Ereignisgesteuerte. D.h. zerteilen von start und ende. Es gibt eine Methode die den Start steuert und nach dem Start der Threads die Oberfläche in einen "Bitte warten Zustand" bringt und damit endet. Dem Thread wird noch eine Methode übergeben für Beenden - vielleicht mit einer Aussage wie erfolgreich das war was er tun soll. In dieser Methode wird dann die Bedienung der Oberfläche wieder frei gegeben z.B. Statusbar wird wieder geschlossen - und alles andere was noch so gemacht werden muss, nachdem die Aufgabe des Threads erledigt ist.

Gruß, Chris

[EDIT]
Endlosschleife würde ich über das OnTerminate-Event des Threads verhindern mit einer lokalen Variable in der Anwendung. Diese Variable wird bei OnTerminate gesetzt und neben InProgress mit abgefragt while MyThread.InProgress and l_IsRunning do [/EDIT]

also das Sleep war nur für das Infofenster, weil das so gerannt ist, das würde entsprechend noch angepasst werden und damit fliegt das Sleep wieder raus.

MeinInfoFenster.Action; aktualisiert eigentlich nur nach einer bestimmten Anzahl von Aufrufen das Info-Fenster.

Showmessage steht da nur zu Testzwecken!

Brauche ich den ein Synchronize wenn Thread.Exceute abgearbeitet wurde?

Zitat von ibp:

Brauche ich den ein Synchronize wenn Thread.Exceute abgearbeitet wurde?

Wie meinst du das? Wenn du im Execute des Threads etwas ausführst, dass etwas "verändert" was z.B. dem Hauptthread gehört, sollte das mit Syncronized aufgerufen werden - ja. Oder hab ich das jetzt falsch verstanden?

Gruß, Chris

ja das tut der Thread aber nicht, das einzige was ich brauche ist der Zugriff auf den Status von fInProgress.