Threads + CriticalSection bei FormClose schnell freigeben

**gore**

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

zusammenfalten · markieren

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;

Threads + CriticalSection bei FormClose schnell freigeben

Threads + CriticalSection bei FormClose schnell freigeben

Forumregeln