ShellTreeView Memory Leak

[Luckie]

Ach du meine Güte. Screenshots als PDF. Da sind wir wohl haarscharf an einem Word Dokument vorbei geschlittert.

[Klaus01]

Hallo,

vielleicht hilft der Thread hier weiter.

Zitat:

Hi, there is a missing "override" and a wrong ClearItems in TCustomShellTreeView.Destroy.
Hope this helps

Jürgen

----------------------
{ TCustomShellTreeView }
....

Delphi-Quellcode:

  TCustomShellTreeView = class(TCustomTreeView, IShellCommandVerb)
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override; //$$jp shellctrl.pas 26.08.2007: missing "override"
    procedure Refresh(Node: TTreeNode);

....

Delphi-Quellcode:

destructor TCustomShellTreeView.Destroy;
begin
  //$$jp: ClearItems;
  //$$jp: raises EInvalidOperation and access-violations (shellctrl.pas 26.08.2007)
  FRootFolder.Free;
  inherited;
end;

Grüße
Klaus

[Bjoerk]

Ob ich diesem Leben mal noch von Luckie eine gescheite Antwort bekomm? Ich fürchte nein..

BadenPower, ja, "ordentlich" entfernt (nicht nur das Häkchen weggemacht). Und Ide neu gestartet. Auch Windows.

Sir Rufo, falls du damit was anfangen kannst, bitte sehr:

Code:

[2166EA47]{delphicoreide100.bpl} PakList.TPackageList.AddPackage (Line 441, "PakList.pas" + 7) + $2F
[2167AA36]{delphicoreide100.bpl} BasePasProjOpts.TProjOptsManager.InstallPackage (Line 2271, "BasePasProjOpts.pas" + 8) + $5
[2167E777]{delphicoreide100.bpl} BasePasProjOpts.TProjectOptions.InstallPackage (Line 3287, "BasePasProjOpts.pas" + 0) + $3
[216A36E1]{delphicoreide100.bpl} PasMgr.TPascalPackageCodeUpdater.InstallPackage (Line 11185, "PasMgr.pas" + 17) + $19
[21669A25]{delphicoreide100.bpl} PkgContainers.TStdPackageProjectContainer.CommandHandler (Line 151, "PkgContainers.pas" + 5) + $5
[209F21D9]{coreide100.bpl} Containers.TStdContainer.CommandHandler (Line 3069, "Containers.pas" + 1) + $17
[201305E7]{vcl100.bpl  } Menus.TMenuItem.Click (Line 2283, "Menus.pas" + 14) + $8
[20131B0F]{vcl100.bpl  } Menus.TMenu.DispatchCommand (Line 3008, "Menus.pas" + 5) + $2
[20132C6E]{vcl100.bpl  } Menus.TPopupList.WndProc (Line 3798, "Menus.pas" + 4) + $E
[20132BBD]{vcl100.bpl  } Menus.TPopupList.MainWndProc (Line 3779, "Menus.pas" + 2) + $5
[20040E4C]{rtl100.bpl  } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0
[201625F0]{vcl100.bpl  } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
[2016262A]{vcl100.bpl  } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
[2016291F]{vcl100.bpl  } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
[0042297A]{bds.exe     } bds.bds (Line 195, "" + 7) + $7

[Bjoerk]

Klaus, genau so hab ich es gemacht

[Sir Rufo]

@Bjoerk

Falls du damit etwas anfangen kannst

Code:

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:

1 - 12 bytes: TObject x 1

---------------------------
OK   
---------------------------

[Bjoerk]

Von mir aus.. Ich wäre aber eher an der Lösung meines Problems interessiert?

[Bjoerk]

Delphi will das package vclshlctrls (vclshlctrls100.bpl) einfach nicht mehr? Ich hab jetzt ShellCtrls.pas nach uShellCtrls.pas kopiert, die Konstanten aus ShellConsts.pas unterhalb implementation eingefügt und ShellConsts aus der uses Klausel heraus genommen, procedure Register ergänzt, in ein anders Package aufgenommen und installiert. Das hat Delphi akzeptiert. Kann man das so machen oder ist das Harakiri (wegen der Namensgleichheit der Klassen und Komponenten, weil in der 100.bpl scheint es ja nach wie vor die Komponenten noch zu geben)?