Indy TCP Server und Threads

[Vjay]

Hallo,

ich habe irgendwo in einem Programmteil von mir ein Memoryleak und ich finde es einfach nicht. Dazu habe ich mal eine Frage und zwar verwende ich einen TIdTCPServer um bestimmt Prozesse zu überwachen.

Das ganze läuft so ab, zuerst wird ein Request gesendet:

Delphi-Quellcode:

procedure TMainForm.CommandServerinitPDSWatchCommand(ASender: TIdCommand);
begin
 syncAddLog('initpdswatch von ' + ASender.Thread.Connection.Socket.Binding.PeerIP + ' empfangen');
 if ASender.Params.Count > 1 then
  PDS.addWatcher(ASender.Thread, strToIntDef(ASender.Params[0], pds_WatchAll), boolean(strToIntDef(ASender.Params[1], 0)));
end;

Danach werden die ASender.Threads korrekt synchronisiert an einen Thread übergeben, welcher parallel zur Anwendung läuft, Daten sammelt und an die connecteten Clients übergibt.

Das ganze sieht ungefähr so aus:

Delphi-Quellcode:

   // TOSend(Pointerliste) enthält nun alle connections und Daten die versendet werden müssen
   for wdh:= ToSend.count-1 downto 0 do
   begin
    SI:= ToSend[wdh];
    if not terminated then
    begin
     try
      SI.PeerThread.Connection.OpenWriteBuffer;
      SI.Daten.sendOverIndyPeerThread( Si.PeerThread, Si.komprimiert, SI.abZeit);
      SI.PeerThread.Connection.CloseWriteBuffer;
     except
      syncAddLog('watchThread Exception 4');
      try
       SI.PeerThread.Connection.CancelWriteBuffer;
      except
       syncAddLog('watchThread Exception 4.5');
      end;
     end;
    end;
    dispose( SI);
   end;

Nun wie gesagt wird das Programm immer grösser und ich suche bereits seit 2 Wochen nach dem Leak, der Code ist ansonsten 100%ig korrekt und irgendwelche MemCheck - Hilfsunits haben ebenfalls nichts gefunden. Das Einzige was mir noch einfällt ist, dass es irgendwie ein Problem mit dem Indyserver in Bezug auf synchronisierung(?) geben könnte.

Ansonsten verwende ich noch exzessiv TBitmap in dem Thread, könnte es sein dass dieses ein Memoryleak hat? Kann mir da jemand was zu sagen, darf man so auf die PeerConnections zugreifen?

Danke,
Volker