Speicherleck in FileSize?

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • Speicherleck in FileSize?

      Könnte sein, dass das in aktuelen Versionen von XProfan schon gefixt ist.
      Bei mir (XProfan9) wird beim Aufruf von FileSize immer ein Handle auf den Ordner nicht wieder geschlossen, in dem sich die Datei befindet:

      Quellcode

      1. Def NtQueryInformationProcess(5) !"NTDLL","NtQueryInformationProcess"
      2. Declare File$, Edit&, Button&, Dir$, H_Count&, Read&
      4. Windowstyle 31
      5. WindowTitle "FileSize Test"
      6. Window 0,0-640,440
      7. Button&=Create("Button",%HWND,"Testen",20,20,500,30)
      8. Repeat
      9. Waitinput
      10. IF Clicked(Button&)
      11. CLS
      12. NtQueryInformationProcess(External("KERNEL32.dll","GetCurrentProcess"),20,ADDR(H_Count&),4,ADDR(Read&))
      13. Locate 10,0
      14. Print "Offene Kernelhandles vor dem Listing: "+Str$(H_Count&)
      15. ClearList
      16. Dir$=$SYSPATH
      17. File$=FindFirst$(Dir$+"\"+"*.*")
      18. While File$<>""
      19. Locate 20,0
      20. Print Dir$+"\"+File$+Space$(255)
      21. IF (FileExists(Dir$+"\"+File$)=1) or (DirExists(Dir$+"\"+File$)=1)
      22. Assign #1,Dir$+"\"+File$
      23. IF DirExists(Dir$+"\"+File$)=1
      24. Addstring File$+" "+GetFDate$(#1)+" "+GetFTime$(#1)
      25. elseif (FileExists(Dir$+"\"+File$)=1)
      26. CHDIR Dir$
      27. Addstring File$+" "+GetFDate$(#1)+" "+GetFTime$(#1)+" "+Str$(FileSize(Dir$+"\"+File$))
      28. endif
      29. endif
      30. NtQueryInformationProcess(External("KERNEL32.dll","GetCurrentProcess"),20,ADDR(H_Count&),4,ADDR(Read&))
      31. Locate 11,0
      32. Print "Offene Kernelhandles: "+Str$(H_Count&)+" "
      33. File$=FindNext$()
      34. EndWhile
      35. NtQueryInformationProcess(External("KERNEL32.dll","GetCurrentProcess"),20,ADDR(H_Count&),4,ADDR(Read&))
      36. Locate 11,0
      37. Print "Offene Kernelhandles nach dem Listing: "+Str$(H_Count&)+" "
      38. Editbox("Dateien in "+Dir$,1)
      39. endif
      40. until 0
      Alles anzeigen

      [Blockierte Grafik: http://s1.postimage.org/1t9XaJ.jpg]