Hallo Zusammen,
vielen Dank für die Erklärungen. Ich bin das Projekt gerade mal überflogen und in dem meisten Fällen habe ich eine procedure verwendet, wo der Stream übergeben wurde und wo klar ist, wer freigeben muss. Aber leider habe ich auch solche Konstellationen:
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.
Delphi-Quellcode:
function TMxSQL.GetF_Report_Produkte_General(Kunde: string; Von, Bis: TDate): TMemoryStream;
var Logic: TLogic;
MsQuery: TFDQuery;
MyQuery: TFDQuery;
MyCols, MsCols: TCols;
MyRows, MsRows: TRows;
VArtikel: string;
I: integer;
LStream: TMemoryStream;
oConn_BM: TFDConnection;
oConn_MySQL: TFDConnection;
begin
Logic := TLogic.create;
LStream := TMemoryStream.Create;
try
Logic.Set_Query_FDMngr2(MyQuery, oConn_MySQL, 'BDHMySQL');
MyQuery.SQL.Clear;
MyQuery.sql.Add('select wert from hlp_properties '+
'where einstellung = :VArtikel');
MyQuery.ParamByName('VArtikel').asstring := 'VArtikel_' + Kunde;
ExecQuery(MyQuery, MyCols, MyRows, 0);
for I := 0 to Length(MyRows[0]) -1 do begin
if I = 0 then
VArtikel := MyRows[0,I]
else
VArtikel := VArtikel + ', ' + MyRows[0,I];
end;
Logic.Set_Query_FDMngr2(MsQuery, oConn_BM, 'BDHBM');
MsQuery.SQL.Clear;
MsQuery.sql.Add('SELECT format(bstlyn__.vrz__dat,' + QuotedStr('dd.MM.yyyy') + ') AS Lieferdatum, '+
'bstlyn__.bsbn_kla as Bestellnummer, '+
'concat(knp__vnm, ' + QuotedStr(' ') + ', knp__nam) AS Besteller, '+
'bstlyn__.zynrefkl as ArtNr, '+
'bstlyn__.afg_oms1 as Bezeichnung, '+
'bstlyn__.l_aantal as Liefermenge, '+
'bstlyn__.lbn__ref as Lieferschein, '+
'konper__.straat__ as Strasse, '+
'konper__.post_ref as PLZ, '+
'konper__.postnaam as Ort, '+
'konper__.land_ref as Land '+
'FROM bstlyn__ '+
'LEFT JOIN konper__ ON konper__.lok__ref = bstlyn__.lok__ref '+
' AND konper__.knp__ref = bstlyn__.knplkref '+
'LEFT JOIN bstext__ ON bstext__.lyn__ref = bstlyn__.lyn__ref '+
'LEFT JOIN wafgfl__ ON wafgfl__.lyn__ref = bstlyn__.lyn__ref '+
'where l_aantal > 0 '+
'and bstlyn__.kla__ref = :KundenNr '+
'and bstlyn__.afg__ref not IN ( '+ VArtikel + ') '+
'and vrz__dat >= :Von '+
'and vrz__dat <= :Bis ');
MsQuery.ParamByName('Von').AsDate := Von;
MsQuery.ParamByName('Bis').AsDate := Bis;
MsQuery.ParamByName('KundenNr').AsString := Kunde;
ExecQuery(MsQuery, MsCols, MsRows,1);
if Assigned(LStream) then begin
LStream := Logic.GridToStream(MsCols, MsRows);
end;
Result := LStream;
finally
MsQuery.Free;
MyQuery.Free;
Logic.Free;
oConn_BM.Free;
oConn_MySQL.Free;
end;
end;
Und hier wird ein weiterer Stream erzeugt.
Ich nehme an, der Pointer des Streams aus der aufrufenden procedure wird von dem Pointer aus der function überschrieben.
Dann würde am Ende der aufrufenden procedure der Stream aus der function beendet werden und der Stream, der in der Procedure erstellt wurde ist eines meiner Speicherleaks, oder?
Also entweder der aufgerufenen function den Stream mitgeben oder den Stream in der aufrufenden procedure nicht erstellen, aber freigeben...
Sehe ich das richtig? Hört sich ein bißchen verwirrt an...
Vielen Dank
Patrick
EDIT: Sehe gerade, dass die aufrufende procedure eine function ist, weil es sich um einen Service handelt, der das Ergebnis an den Client liefert...