ZIP File names memory leak

[tumo]

@Uwe Raabe
Jetzt wird es abenteuerlich. Aber ja, hier ein Beispielcode:

Project1:

Delphi-Quellcode:

ReportMemoryLeaksOnShutdown := true;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

Unit1 implementation:

Delphi-Quellcode:

uses zip;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  zip.Open('C:\Users\[...]\Desktop\ActuallyAdditions-1.12.2-r151-2.zip', zmRead);
  zip.FileNames;
  zip.Free;
end;

[tumo]

Mal ne ganz andere Frage:
Wie sieht Dein class destructor vom TZipFile aus? bei mir freet er dort jedenfalls micht direkt das FCP437Encoding...

[Uwe Raabe]

Zitat von tumo:

Wie sieht Dein class destructor vom TZipFile aus? bei mir freet er dort jedenfalls micht direkt das FCP437Encoding...

Dies ist Delphi 10.3.3:

Delphi-Quellcode:

class destructor TZipFile.Destroy;
begin
  FCompressionHandler.Free;
  FCP437Encoding.Free;
end;

Bis 10.3.2 wird das noch nicht gemacht! Deswegen auch mein Hinweis auf die genaue Version, mit der ich das getestet habe.

[dataspider]

Delphi-Quellcode:

uses zip;
...
var
  zip: TZipFile;
...

Das sollte man vermeiden - Variablen gleich benennen wie eine Unit...

Frank

[Moombas]

Zitat von tumo:

Delphi-Quellcode:

uses zip;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  zip.Open('C:\Users\[...]\Desktop\ActuallyAdditions-1.12.2-r151-2.zip', zmRead);
  zip.FileNames;
  zip.Free;
end;

Was ist denn wenn du das in einen try...finally block packst:

Delphi-Quellcode:

uses zip;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  try
    zip.Open('C:\Users\[...]\Desktop\ActuallyAdditions-1.12.2-r151-2.zip', zmRead);
    zip.FileNames;
  finally
    zip.Free;
  end;
end;

[Uwe Raabe]

Ich vermute, es liegt an der Delphi-Version. 10.3 ist eben nicht immer gleich 10.3.