macht keinen Unterschied...

Kommando zurück:
Beitrag 14 ist Quatsch.
- in der Schleife stand to statt downto
- Das FThreadList.Delete[1] stand außerhalb der Schleife.
Fazit: Das war wirklich eine Endlosschleife.

mal ein Auszug aus dem Ereignisprotokoll:

zusammenfalten · markieren

Delphi-Quellcode:

Thread-Start: Thread-ID: 292. Prozess XWebDemo.exe (6096) // normaler Threadstart
Thread-Start: Thread-ID: 5992. Prozess XWebDemo.exe (6096)// normaler Threadstart
Thread-Start: Thread-ID: 2520. Prozess XWebDemo.exe (6096)// normaler Threadstart
Thread-Ende: Thread-ID: 292. Prozess XWebDemo.exe (6096)// normales Ende
Thread-Ende: Thread-ID: 5992. Prozess XWebDemo.exe (6096)// normales Ende
Thread-Ende: Thread-ID: 2520. Prozess XWebDemo.exe (6096)// normales Ende
Thread-Start: Thread-ID: 5596. Prozess XWebDemo.exe (6096)// normaler Start
Thread-Start: Thread-ID: 5072. Prozess XWebDemo.exe (6096)// normaler Start
Thread-Start: Thread-ID: 5056. Prozess XWebDemo.exe (6096)// normaler Start --> Beenden geklickt
Quelltexthaltepunkt bei $005DF477: D:\Projekte\Delphi Unicode\XWeb500\DemoThreadVersion_1\XWebBase.pas Zeile 115. Prozess XWebDemo.exe (6096)
// while not (FThreadList.Count = 0) do
// siehe TXWeb.Destroy
// Schleife wird durchlaufen bis Liste leer...
// die Threads stehen, sonst wären sie schon fertig
Modul entladen: Security.dll. Prozess XWebDemo.exe (6096)
Modul entladen: WSHTCPIP.dll. Prozess XWebDemo.exe (6096)
Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EIdSocketError mit Meldung
'Socket Error # 10093 // Indy Meldung
'.
Prozess XWebDemo.exe (6096)
Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EIdSocketError mit Meldung
'Socket Error # 10093 // Indy Meldung
'.
Prozess XWebDemo.exe (6096)
Modul entladen: HNetCfg.dll. Prozess XWebDemo.exe (6096)
Thread-Ende: Thread-ID: 5072. Prozess XWebDemo.exe (6096) // erst hier werden die Threads beendet
Thread-Ende: Thread-ID: 5596. Prozess XWebDemo.exe (6096)
Thread-Ende: Thread-ID: 5056. Prozess XWebDemo.exe (6096)

Kurze Rückmeldung...

mit Unterstützung von DeddyH sind wir auf folgendes Lösungsprinzip gekommen.

1. eine Liste für die Threads (hier als generische Liste unter XE)

zusammenfalten · markieren

Delphi-Quellcode:

TMyCustomThreadList = TList<TLoader>; // TLoader = class TThread

  TMyThreadList = class(TCustomThreadList)
  strict private
    FListHandle: HWND;
    FDestroying: Boolean;
    procedure TreadFinished(var Msg: TMessage); message PM_Finish_Thread; // Methode die die Message empfängt
  public
    constructor Create;
    destructor Destroy; override;
    procedure Clear;
    procedure Add(aThread: TLoader);
    procedure Remove(aThread: TLoader);
  end;

markieren

Delphi-Quellcode:

constructor TMyThreadList.Create;
begin
  inherited;
  // Fensterhandle erzeugen damit auch Messages enmpfangen werden können
  FListHandle := AllocateHWnd(TreadFinished);
end;

markieren

Delphi-Quellcode:

destructor TMyThreadList.Destroy;
begin
  Clear;
  DeAllocateHwnd(FListHandle);
  inherited;
end;

markieren

Delphi-Quellcode:

procedure TMyThreadList.Remove(aThread: TLoader);
begin
  aThread.Terminate;
  aThread.WaitFor;
  aThread.Free;
  inherited Remove(aThread);
end;

markieren

Delphi-Quellcode:

procedure TMyThreadList.Clear;
begin
  FDestroying:= True;
  while Count > 0 do
    Remove(Items[0]);
end;

markieren

Delphi-Quellcode:

procedure TMyThreadList.Add(aThread: TLoader);
begin
  inherited Add(aThread);
  aThread.ListHandle := FListHandle;
end;

2. Thread erzeugen und starten

markieren

Delphi-Quellcode:

  Loader:= TLoader.Create;
  // Zuweisung der Methode die nach der Arbeit des Threads ausgeführt wird (Methoden anpassen)
  Loader.OnFinish:= FinishLoad;
  FThreads.Add(Loader); // FThreads private Property von TMyThreadList
  Loader.Start; // Start gibts erst ab 2010 ? Ansonsten Resume;

3. Thread versendet User Message wenn fertig

markieren

Delphi-Quellcode:

const
  PM_Finish_Thread = WM_USER + 1;
.
.
// Methode die der TThread Methode OnTerminate zugewiesen ist
procedure TLoader.OnThreadTerminated(Sender: TObject);
begin
  PostMessage(FListHandle, PM_Finish_Thread, wParam(Self), 0);
end;

4. Message kommt an

markieren

Delphi-Quellcode:

procedure TXWebThreadList.TreadFinished(var Msg: TMessage);
begin
//FDestroying wird im destructor gesetzt, damit nicht 2 Mal entfernt wird. Wenn die Liste beim Beenden der
//Anwendung die Liste leer macht würde die Message ja auch ankommen.
  if (not FDestroying) and (Msg.Msg = PM_Finish_Thread) then
    Remove(TXWebLoader(Msg.wParam)); // Thread aus Liste entfernen und freigeben
end;

Fazit:
Der Unterschied besteht eigentlich nur darin, daß:
1. Der Thread über eine Message mitteilt daß er fertig ist. Nicht Ereignis. Ereignise werden sequentiell abgearbeitet und der Thread konnte sich nicht beenden solange die Ereignisse nicht abgearbeitet sind. Da war die Freigabe das Problem. Da kam die "Endlosschleife" her.
2. die Liste selbst die Threads entfernt und freigibt
3. dadurch daß jetzt WaitFor ordentlich funktioniert weil die Threads weiterlaufen (wegen Message) werden die Threads sauber beendet und freigegeben.

Hoffe, daß das Ganze anderen viel Nerven erspart...

Hallo,
super ansatz mit messages zu arbeiten der funktioniert !!

nur ein kleiner tipfehler ist hier :

Postmessage(flisthandle,PM_FINISHED_THREAD,wparam( self),0);

sollte eigentlich heissen

Postmessage(flisthandle,PM_FINISHED_THREAD,wparam( sender),0);

sonst killt man den mainprocess