Speicherleck bei StringToOleStr

[flomei]

Bernhard Geyer hat hier geschrieben das Funktionen wie StringToOleStr bei fehlender Freigabe des dadurch reservierten Speichers zu Speicherlecks führen können.
Deshalb ist es wichtig SysFreeString mit dem von StringToOleStr zurückgegebenen Pointer aufzurufen um den Speicher wieder freizugeben.
Union hat dieses Verhalten ebenfalls bei SetString (Aufruf durch Explode) festgestellt.
Er löst das Problem mit folgendem Code:

Delphi-Quellcode:

aParts := Explode('/', sName);
for iName := 0 to length(aParts) -1 do
begin
   ...
   SysFreeString(aParts[iName]);
end;

Eine Alternative (statt Einbinden der kompletten Unit ActiveX) ist das Folgende:

Delphi-Quellcode:

procedure SysFreeString(const S: WideString); stdcall;
  external oleaut name 'SysFreeString';

HTH!

MfG Florian