Speicherleaks TMemoryStream in einem Objekt

[Ykcim]

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...