Hi!
Ich benutze einen Thread, der im Prinzip simpel aussieht und folgendes macht:
Delphi-Quellcode:
procedure TMyThread.Execute;
begin
CoInitialize;
while ... do
if Terminated then
begin
CoUninitialize;
Exit;
end;
Arbeite(...);
// Hier wird gearbeitet, u.a. Websites abgerufen mit IXMLHTTPRequest bzw. CoXMLHTTP (muss zugeben, dass ich den Code zusammengesucht habe und nicht wirklich was davon verstehe)
end;
CoUninitialize;
end;
Nun möchte ich - falls der Benutzer das Hauptfenster schließt - gerne den Thread ohne Rücksicht auf Verluste abbrechen und das Programm ohne Verzögerung schließen.
Das war bisher so gelöst:
Delphi-Quellcode:
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
...
MyThread.Terminate; //***
MyThread.WaitFor; //***
FreeAndNil(MyThread);
end;
Mit der obigen Lösung kommt es aber vor, dass das Hauptfenster dann für einige Zeit (bis zu ~30s) einfriert, bevor es geschlossen wird.
Wenn ich die beiden mit //*** gekennzeichenten Zeilen weglasse, dann wird das Programm ohne Fehlermeldung wie gewünscht sofort geschlossen. Allerdings wird dabei dann nicht mehr CoUninitialize aufgerufen. Spielt das denn überhaupt noch eine Rolle? Schließlich wird mein Prozess ja ohnehin gekillt...
Schonmal Danke für eure Hilfe!
Robert