StringToOleStr verursacht Memory Leak

[Bernhard Geyer]

Für alle die öfters mal StringToOleStr verwenden sollten:

Merkt euch den zurückgegebene Pointer, denn dieser muss wieder mittels SysFreeString freigegeben werden.
Dies ist nicht in der Hilfe vermerkt (D6). Auch kann man SysFreeString nicht in der Delphi-Hilfe finden da es ein direkter Win32-API-Call ist (was StringToOleStr nicht ist).

[marabu]

Hallo Bernhard,

danke für diese Info - gilt übrigens auch für D7. SysFreeString() wird in Unit ActiveX importiert.

Grüße vom marabu

[Union]

Man kann es auch so direkt einbinden:

Delphi-Quellcode:

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

Ich habe diese Verhalten auch bei SetString festgestellt. Und dieses wird durch die beliebte Explode Funktion aufgerufen. Deshalb verwende ich Explode jetzt z.B. immer so:

Delphi-Quellcode:

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

Mir lief nämlich irgendwann der Speicher bei einer Kundenanwendung, die pausenlos läuft zu.

[Flocke]

Welche Explode-Variante benutzt du denn?

[Union]

Diese Explode von jbg