Hallo Zusammen,
Delphi-Quellcode:
function TDBService.Get_ProduktReport_General (Kunde: string; Von, Bis: TDate): TStream;
var MxSQL: TMxSQL;
LStream: TMemoryStream;
begin
MxSQL := TMxSQL.Create(false);
LStream := TMemoryStream.Create;
Try
LStream := MxSQL.GetF_Report_Produkte_General(Kunde, Von, Bis);
Logic_Main.FehlerProzedure := 'Get_ProduktReport_General 2';
Result:= LStream;
Finally
MxSQL.Free;
End;
end;
Hier wird ein Stream erstellt, der aber nicht übergeben wird...
Der erzeugte LStream ist schon ein leak, da die Referenz überschrieben wird un somit nie wieder frei gegeben wird.
Wenn Du im Constructor eine bedingte Erzeugung von Objekten hast, solltest Du im Else-Fall die lokale Instance mit NIL belegen, da Objekte nicht managed sind und daher auch nicht mit NIL initialisiert werden. Ein .free kann dann ggf. crashes da eine zufällige Adresse in der instance steht.
Wenn Du viel mit Streams “spielst” solltest Du Dir einen IStream wrapper schreiben.
Mavarik
PS: Zu Deinem handgeklöppeltem
SQL-String sag ich jetzt mal nix - obwohl das sicherlich auch zu Problemen führen kann. Hier solltest Du Dir mal die Verwendung vom Params ansehen.