1:
2:
3:
4:
5:
6:
7:

  THttpThreadInfo = class
    private
      fCreateTime : TDateTime;
    protected
    public
      property CreateTime : TDateTime read fCreateTime write fCreateTime;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TfrmMain.IdHTTPSvrConnect(AThread: TIdPeerThread);
Var  ThdInf  : THttpThreadInfo;
begin
  ThdInf := THttpThreadInfo.Create;
  ThdInf.CreateTime := now;
  AThread.Data := ThdInf;
         // Eintrag in meinem Logfile erzeugen ; Level 2
  logf.log('OnConnect Thread: '+inttostr(AThread.ThreadID),2);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TfrmMain.Tim_ThreadsTimer(Sender: TObject);
var i : Longint;
    tmpList : TList;
    tmpThd  : TIdPeerThread;
    ThdInf  : THttpThreadInfo;
begin
  lb_Threads.items.BeginUpdate;
  lb_Threads.items.Clear;
  tmpList := IdThreadMgrDefHttp.ActiveThreads.LockList;
  try
    for i:= 0 to tmpList.Count - 1 do begin
      if tmpList[i] <> nil then begin
        tmpThd := TIdPeerThread(tmplist[i]);
        if tmpThd.Data <> Nil then begin
          try
            ThdInf := THttpThreadInfo(tmpThd.Data);
            // läuft der Thread schon lange als 4 Sek. ?
            if ThdInf.CreateTime < (now - 4/24/60/60) then begin
              logf.log('Thread: '+inttostr(tmpThd.ThreadID)+' ist im Nirvana...',1);
              lb_Threads.items.Add('Thread Nr:'+inttostr(tmpThd.ThreadID)+'Status: Nirvana... auf Index: '+inttostr(i));
              //IdThreadMgrDefHttp.ReleaseThread(tmpThd);
              tmpThd.Connection.DisconnectSocket;
              //Wichtig, hier nicht terminate aufrufen geht sonst nicht !!
            end
            else
              lb_Threads.items.Add('Thread Nr:'+inttostr(tmpThd.ThreadID)+'Status: running auf Index: '+inttostr(i));
          except
            logf.log('Konnte Thread-Info nicht auslesen',1);
            //tmpThd.Terminate;
          end;
        end;
        //else
          //tmpThd.Terminate;
      end
      else
        lb_Threads.Items.Add('Nil Thread auf Index: '+inttostr(i));
    end;
  finally
    IdThreadMgrDefHttp.ActiveThreads.UnlockList;
    lb_Threads.items.EndUpdate;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TfrmMain.IdHTTPSvrDisconnect(AThread: TIdPeerThread);
Var ThdInf  : THttpThreadInfo;
begin
  logf.log('OnDisconnect Thread: '+inttostr(AThread.ThreadID),2);
  if AThread.Data <> Nil then begin
    try
      ThdInf := THttpThreadInfo(AThread.Data);
    except
      ThdInf := Nil;
    end;
    if ThdInf <> Nil then begin
      ThdInf.free;
                           // !!! Wichtig, das Data-Objekt des Threads auf Nil setzen, sonst will der Thread den Speicher selber mit FreeAndNil freigeben, weil da ja noch ein Zeiger drin steht
      AThread.Data := nil;
    end;
  end;
end;                    

1:
2:
3:
4:

procedure TIdThread.Cleanup;
begin
  FreeAndNil(FData);
end;