Problem mit Speicherfreigabe bei dynamischen Array als function-Übergabe

[himitsu]

Zitat:

Delphi-Quellcode:

        pAdapterAddresses := pAdapterAddresses.Next;
      end;

  finally
    FreeMem(pAdapterAddresses);

Ich sagte doch, daß du dem FreeMem den Wert/Variable von GetMem geben muß. (nicht das NIL, welches nach dem letzen .Next rauskommt)
Und bei pAdapterList isses das Selbe.

Aber überschlagen ist bei diesen 2 größere Speicherblöcken wohl etwas übertrieben.

[Helmi]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

        pAdapterAddresses := pAdapterAddresses.Next;
      end;

  finally
    FreeMem(pAdapterAddresses);

Ich sagte doch, daß du dem FreeMem den Wert/Variable von GetMem geben muß. (nicht das NIL, welches nach dem letzen .Next rauskommt)
Und bei pAdapterList isses das Selbe.

Aber überschlagen ist bei diesen 2 größere Speicherblöcken wohl etwas übertrieben.

Ich kann dir gerade nicht folgen sorry!

Der Speicher wird ja angefordert:

Delphi-Quellcode:

  //Speicher anfordern
  pAdapterList      := AllocMem(LenAdapter_List);
  pAdapterAddresses := AllocMem(LenAdapter_Address);

und der Wert wird über FreeMem wieder freigegeben:

Delphi-Quellcode:

  finally
    //
    FreeMem(pAdapterList);
    FreeMem(pAdapterAddresses);
  end;

Oder meinst du ich muss mir den Originalwert von pAdapterList und pAdapterAddresses speichern um diese dann dem FreeMem zu übergeben?
(was jetzt Sinn machen würde)

[edit]
Also wenn ich mir den Originalwert speichere und diesen dann freigebe, dann gibt FreeMem Ruhe! - Danke für den Tip!!

[Helmi]

[QUOTE=himitsu;1188770]

Zitat:

Aber überschlagen ist bei diesen 2 größere Speicherblöcken wohl etwas übertrieben.

Was meinst du genau damit?

Himitsu editiert seine Beiträge immer so langsam - da kann es schon mal passieren, dass man doppelpostet

[himitsu]

Rate mal, was in der Zwischenzeit mit dem Zeiger passiert, bei pAdapterAddresses := pAdapterAddresses.Next; ?
Er zeigt auf was Anderes und über die Schleife wird so lange weitergemacht, bis NIL im pAdapterAddresses drinsteht.
Schau dir einfach nochmal meinen Beispielcode im anderem Thread an und achte auf diese Variable(n).

Zitat:

dass sich FastMM am Ende vom Programm fast überschlägt weil Speicher nicht freigegeben worden ist.

Es sind doch nur 2 "kleine" Lecks

[Helmi]

also ich hab es jetzt so gemacht:

Delphi-Quellcode:

function NetzwerkInfos_auslesen(var Liste: TAdapter_Array; out ErrorCode: Integer): Boolean;
var
  pAdapterList            : PIP_ADAPTER_INFO;
  pAdapterAddresses       : PIP_ADAPTER_ADDRESSES;
  pAdapterList_store      : PIP_ADAPTER_INFO;
  pAdapterAddresses_store : PIP_ADAPTER_ADDRESSES;

begin
  {...}

  //Speicher anfordern
  pAdapterList      := AllocMem(LenAdapter_List);
  pAdapterAddresses := AllocMem(LenAdapter_Address);

  //Größe des angeforderten Speichers merken, notwendig für das FreeMem
  //(die normalen Variablen werden nil und dadurch bleibt Speicher übrig)
  pAdapterList_store      := pAdapterList;
  pAdapterAddresses_store := pAdapterAddresses;

  try
  {...}
  finally
    //
    FreeMem(pAdapterList_store);
    FreeMem(pAdapterAddresses_store);
  end;
end;

Zitat von himitsu:

Es sind doch nur 2 "kleine" Lecks

Ja - das stimmt schon! Aber ich ruf die Procedure ggf. über einen Timer auf und dann summieren sich die kleinen Lecks.
"Kleine Lecks machen auch Speichermist"