String MemoryLeak

[dinosaur]

FastMM meldet mir einige Memorleaks (Ansistrings), aber ich verstehe nicht, weshalb diese auftreten

logfile:
This block was allocated by thread 0xFDC, and the stack trace (return addresses) at the time was:
4047E2 [System][System.@GetMem]
407788 [System][System.@NewAnsiString]
4077D7 [System][System.@LStrFromPCharLen]
D87FE4 [TwixApi.pas][Twixapi][Twixapi.TTwixapi.GetMainEntry][1070]
77773B97 [RtlNtStatusToDosError]
77773B9C [RtlNtStatusToDosError]
75946A96 [Unknown function at InterlockedCompareExchange]
7594CC66 [Unknown function at SizeofResource]
7594CA61 [FindResourceExW]
7594CA61 [FindResourceExW]
76EA2BB4 [Unknown function at GetSysColorBrush]

The block is currently used for an object of class: AnsiString

dies ist die entsprechende stelle im Code. Zeile 1070 ist die Zuweisung des Results.

Delphi-Quellcode:

function TTwixapi.GetMainEntry(ID_MainEntry: Integer): AnsiString;
var
   pTmpStr: Array[0..1023] of AnsiChar;
begin
   if TwixGetMainentry(ID_MainEntry, @pTmpStr[0], 1024) then
   begin
      result := AnsiString(pTmpStr);
   end;
end;

eine 2. Variante resultiert ebenfalls im selben memoryleak:

Delphi-Quellcode:

function TTwixapi.GetMainEntry(ID_MainEntry: Integer): AnsiString;
var
   pTmpStr: PAnsiChar;
begin
   result := '';
   pTmpStr := AnsiStrAlloc(1024);
   pTmpStr[0] := #0;
   try
      if TwixGetMainentry(Index, ID_FollowEntry, pTmpStr, 1024) then
      begin
         result := pTmpStr;
      end;
   finally
      StrDispose(pTmpStr);
   end;
end;

auf aufgerufenen Funktionen habe ich keinen einfluss, TwixGetMainentry stammt aus einer DLL.
Kann mich jemand auf den richtigen Weg lotsen?

[SirThornberry]

Und was passiert bei folgendem Konstrukt?

Delphi-Quellcode:

function TTwixapi.GetMainEntry(ID_MainEntry: Integer): AnsiString;
begin
  SetLength(Result, 1024);
  if not TwixGetMainentry(ID_MainEntry, @Result[1], 1024) then
    Result := '';
end;

[ele]

Schau dir mal an in welcher Variable du den Rückgabewert der Funktion speicherst. Ich vermute das ist eine Klassen-Variable und du gibst das entsprechende Objekt nicht frei.

[dinosaur]

vielen Dank, SirThornberry mit SetLength klappts, ich musste einfach noch zusätzlich den string bis vor #0 zusammenschneiden, sonst klappe es nachher nicht mehr mit der string concatenation..

Delphi-Quellcode:

if TwixGetMainentry(ID_MainEntry, @Result[1], 1024) then
   Result := Copy(Result, 1, Pos(#0, Result)-1)
else
   Result := '';

[himitsu]

Das Pos+Copy kannst du weglassen und die Automatik dafür nutzen:

Delphi-Quellcode:

function TTwixapi.GetMainEntry(ID_MainEntry: Integer): AnsiString;
begin
   SetLength(Result, 1023);
   //if TwixGetMainentry(ID_MainEntry, @pTmpStr[0], 1023+1) then
   if TwixGetMainentry(ID_MainEntry, @pTmpStr[0], Length(Result)+1) then
      Result := PAnsiChar(Result)
   else
      Result := '';
end;

(ein String hat noch eine #0 hinten dran, für die PChar-Kompatibilität)

Delphi-Quellcode:

function TTwixapi.GetMainEntry(ID_MainEntry: Integer): AnsiString;
var
   TmpStr: Array[0..1023] of AnsiChar;
begin
   //if TwixGetMainentry(ID_MainEntry, @TmpStr[0], 1024) then
   if TwixGetMainentry(ID_MainEntry, @TmpStr[0], Length(TmpStr)) then
      Result := @TmpStr;  // oder Result := PAnsiChar(@TmpStr)
   else
      Result := '';
end;

Nur kann ich mir nicht vorstellen, wie bei deiner 1. Variante (in Post #1) dieses Speicherleck entstehen soll.

[DeddyH]

Zitat:

Length(1023)+1

[himitsu]

Zitat von DeddyH:

Zitat:

Length(1023)+1

Ein Byte eingespart?
(falls man das Copy&Paste richtig betreibt )

[dinosaur]

Zitat von himitsu:

Nur kann ich mir nicht vorstellen, wie bei deiner 1. Variante (in Post #1) dieses Speicherleck entstehen soll.

Es ist mir bei beiden Varianten schleierhaft, warum ein memoryleak entsteht.. wohl irgendein problem beim referenzzähler. Aber mit setLength klappts ja