Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Wie benutzt man MadExcept Memory Leak Detection? (https://www.delphipraxis.net/207065-wie-benutzt-man-madexcept-memory-leak-detection.html)

DieDolly 21. Feb 2021 23:28


Wie benutzt man MadExcept Memory Leak Detection?
 
Ich werde noch verrückt. Ich habe MadExcept installiert aber es wird mir nichts angezeigt wenn ich mein Testprogramm mit einem absichtlichem Memory Leak beende.
Ich habe in einer großen Komponente die nicht von mir ist einen Memory Leak den ich aber nicht finde. ReportMemoryLeaks möchte ich aber auch nicht abschalten, aber die Meldung nervt mich.

Wie mache ich mit madExcept ein Memory Leak ausfindig?

- ein Settings Window wie es in der Hilfe steht habe ich keins.
- ich soll "active error search" aktivieren, ohne Settings Window geht das aber nicht

Wenn ich das hier in die uses meiner dpr schreibe und dann speichere, verschwinden die Zeilen einfach wieder
Delphi-Quellcode:
madExcept,
 madLinkDisAsm,
 madListHardware,
 madListProcesses,
 madListModules,

Renate Schaaf 21. Feb 2021 23:56

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Versuch mal madExcept settings unter project.

hoika 22. Feb 2021 04:56

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Hallo,
nimm MadExcept wieder raus und binde FastMM4 ein.
Die weitere Benutzung siehe Google oder hier die Suche.

Daniel 22. Feb 2021 06:55

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
madExcept kann das schon, das setzt aber eine korrekte Installation voraus - die sich auch in die IDE integriert. Wie oben angemerkt im Menü "Projekt".
Danach hilft die Hilfe:

http://help.madshi.net/madExceptSettings1.htm
und
http://help.madshi.net/DebugMm.htm

DieDolly 22. Feb 2021 10:54

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Jetzt klappt es endlich! Aber ich glaube das ist zu kompliziert für mich. Ein 2x TNamespace zeigt mir die Delphi-IDE als Leak an. madExcept zeigt es hier an mit "TNamespace.Create".
Delphi-Quellcode:
constructor TNamespace.Create(PIDL: PItemIdList; AParent: TNamespace);
{ Pass the PIDL of a Namespace Object Folder to create along with its parent   }
{ to create a new TNamespace.                                                  }
begin
  inherited Create;

  FParent := AParent;
  FShellCache.Data.SmallIcon := -1;
  FShellCache.Data.SmallOpenIcon := -1;
  FShellCache.Data.OverlayIndex := -1;
  FShellCache.Data.OverlayIconIndex := -1;
  IconCache := -1;
  Include(FStates, nsShellDetailsSupported); // Be optomistic
  Include(FStates, nsShellFolder2Supported); // Be optomistic
  Include(FStates, nsShellOverlaySupported); // Be optomistic
  FreePIDLOnDestroy := True;
  FNamespaceID := SHELL_NAMESPACE_ID;
  { It is the Root Folder since it has no parent }
  if not Assigned(AParent) then
  begin
    { Either a nil for PID or if the PID is the Desktop PIDL means a full tree }
    if not Assigned(PIDL) or PIDLMgr.IsDesktopFolder(PIDL) then
    begin
      { If PID is already assigned then use it }
      if not Assigned(PIDL) then
        SHGetSpecialFolderLocation(ParentWnd, CSIDL_DESKTOP, FRelativePIDL)
      else
        FRelativePIDL := PIDL;
      FAbsolutePIDL := FRelativePIDL;
    end else
    { The PIDL is the Root PIDL but is NOT the Desktop namespace it is a }
    { FULLY QUALIFIED PIDL to a namespace that is to be the Root.        }
    begin
      FAbsolutePIDL := PIDL;
      FRelativePIDL := PIDLMgr.GetPointerToLastID(FAbsolutePIDL);
    end;
  end else
  { If the folder is a child of the desktop special conditions apply see above }
  if PIDLMgr.IsDesktopFolder(AParent.AbsolutePIDL) then
  begin
    FRelativePIDL := PIDL;
    FAbsolutePIDL := PIDL;
  end else
  { Normal building of the PIDLs and Shells }
  begin
    FAbsolutePIDL := PIDLMgr.AppendPIDL(AParent.FAbsolutePIDL, PIDL);
    FRelativePIDL := PIDLMgr.GetPointerToLastID(FAbsolutePIDL);
    PIDLMgr.FreePIDL(PIDL);
  end;
end;
Kann man die Delphi-eigene Memory-Leak-Funktion nicht für gewisse Units ausschalten, fürs restliche Projekt aber behalten?

himitsu 22. Feb 2021 11:52

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Zitat:

Zitat von DieDolly (Beitrag 1483497)
Kann man die Delphi-eigene Memory-Leak-Funktion nicht für gewisse Units ausschalten, fürs restliche Projekt aber behalten?

Nein,

aber man kann "bekannte" Leaks ignorieren lassen.
Delphi-Referenz durchsuchenRegisterExpectedMemoryLeak

DieDolly 22. Feb 2021 12:00

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Klingt kompliziert. Der obige Code sagt bei ReportMemoryLeaks "TNameSpace 2x".
Wie genau muss ich dann RegisterExpectedMemoryLeak nutzen?

Ich habe überall wo ein := TNameSpace.Create vorkommt einfach die neue Instanz eine Zeile danach in ein RegisterExpectedMemoryLeak() gepackt. Der Leak ist noch immer da.

Renate Schaaf 22. Feb 2021 14:31

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
In welchem Projekt kommen denn bei dir die Leaks? Ist es eine der Demos? Dann würde ich auch mal testen. Ich benutze VirtualShellTools schon eine ganze Weile, und diese TNamespace-Leaks sind bei mir auch immer mal vorgekommen. Wenn es bei 2 bleibt, kann man das wirklich getrost ignorieren. In letzter Zeit sind die Leaks bei mir aber nicht mehr aufgetreten. Allerdings benutze ich die Variante von PyScripter auf Git-Hub.

DieDolly 22. Feb 2021 14:48

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Der Leak ist in der Demo "Explorer CheckBoxes" sowie "CheckBoxes".
Ich benutze die neueste Version von TVirtualExplorerTreeView und TVirtualExplorerListView. Der Leak ist nur da, wenn letzteres auf dem Formular ist.
Der Download kommt von MustangpeakVirtualshellTools und der Leak selber ist in der Datei MPShellUtilitis. pyscripter hat soweit ich das sehen kann keinen eigenen Fork. https://github.com/TurboPack/Mustang...etwork/members

hoika 22. Feb 2021 15:03

AW: Wie benutzt man MadExcept Memory Leak Detection?
 
Hallo,
und zumindestens FastMM4 zeigt dir die beiden Stellen an,
wo das TNameSpace erzeugt wird.


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:49 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz