Speicherleck, ABER warum?

[Christian Seehase]

Moin bluethund,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

also einen Grund für ein Speicherleck kann ich direkt nicht erkennen.
Es kann eigentlich nur noch an den Indys liegen. Da müsstest Du mal schauen (speziell natürlich in den Destruktoren)

Mir ist aber etwas anderes aufgefallen, nämlich Deine Verwendung des Resourcenschutzblockes.

Der Resourcenschutzblock macht erst Sinn, nachdem man eine Resource erfolgreich belegt hat.
Es sollte also so aussehen:

Delphi-Quellcode:

variable := TKlasse.Create;
try
  // Mach was mit der Resource
finally
  variable.free; // oder FreeAndNil(variable);
end;

Wenn ein Create schon schiefgeht, ist ein Freigeben nicht möglich.
(gilt analog natürlich auch für andere Resourcen, wie, z.B., Handles.

Ausserdem finde ich es gefährlich, dass Du für Networking einen var-Parameter verwendest, da Du ja schon ein erzeugtes Objekt übergibst, und es nicht erst in Networking erzeugst.
Mit var läufst Du Gefahr in der Prozedur den Pointer im Parameter mit etwas anderem zu überschreiben, und so ein Speicherleck zu erzeugen.
Deklariere den mal lieber als const. Eigenschaften ändern usw. kannst Du trotzdem.

Zudem ist es bei Funktionen, die Erfolg und Misserfolg melden (z.B. CopyFile, DeleteFile) den Rückgabewert zu prüfen.
Du gibst OK zurück, weisst aber gar nicht, ob CopyFile erfolgreich war.