Problem mit Speicherfreigabe bei dynamischen Array als function-Übergabe

[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"