Hallo,
ich habe mehrere, unabhängige Berechnungen durchzuführen, die jeweils ca. 15 Sekunden dauern. Diese lasse ich in mehreren Threads berechnen und zu einer globalen Liste hinzufügen (gesichert über eine CriticalSection). Was mache ich nun, wenn der Anwender das Programm beendet? Muß ich da warten bis alle Berechnungen zu Ende sind, um dann erst die globale Liste und die CriticalSection-Variable freizugeben? Was würde passieren, wenn ich nicht warte? Bereinigt dann Windows/Delphi den Speicher (globale Liste, CriticalSection) und was passiert mit den Threads (und deren Stacks, belegten Speicher)? Gibt es überhaupt eine Möglichkeit, das Programm schnell und sauber zu beendet?
Anmerkung: Die 15s Berechnung kann ich nicht abbrechen, da ich am externen Code nichts ändern kann (also kein "if CancelThreads then exit;" einfügen).
Vielen Dank für Eure Hinweise!
Bernd
Delphi-Quellcode:
var List : TStringList;
LockList : TCriticalSection;
CancelThreads : boolean;
function WorkerThread(ThreadParam: integer): DWORD; stdcall;
var AName:string;
i:integer;
begin
for i:=0 to 10 do begin
if CancelThreads then break;
AName:=IntToStr(random(1000));
Sleep(15000); //die richtige Berechnung von AName dauert bei mir 15 Sekunden
EnterCriticalSection(LockList);
try
List.Add(AName);
finally
LeaveCriticalSection(LockList);
end;
end;
ExitThread(0);
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
hThread:THandle;
begin
List:=TStringList.Create;
CancelThreads:=false;
InitializeCriticalSectionAndSpinCount(LockList,$FF);
for i:=0 to 10 do begin
hThread := CreateThread(nil, 0, @WorkerThread, nil, 0, nil);
if hThread=0 then Beep else CloseHandle(hThread);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
CancelThreads:=true;
//muß hier "sleep(15000);" eingefügt werden, damit sich alle Threads beenden können??
List:=nil;
DeleteCriticalSection(LockList);
end;