[PB4] Mémoire disponible

[Flype]

Compatible avec des tailles en 64bits, merci les Quads de PB4:

Code : Tout sélectionner

; http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/memorystatusex_str.asp

Structure MEMORYSTATUSEX
  dwLength.l
  dwMemoryLoad.l
  ullTotalPhys.q
  ullAvailPhys.q
  ullTotalPageFile.q
  ullAvailPageFile.q
  ullTotalVirtual.q
  ullAvailVirtual.q
  ullAvailExtendedVirtual.q
EndStructure

Prototype.l GlobalMemoryStatusEx(*lpBuffer)

If OpenLibrary(0,"kernel32.dll")
  GlobalMemoryStatusEx.GlobalMemoryStatusEx = GetFunction(0,"GlobalMemoryStatusEx")
EndIf

memex.MEMORYSTATUSEX
memex\dwLength = SizeOf(MEMORYSTATUSEX)

If GlobalMemoryStatusEx(@memex)
  Debug memex\dwMemoryLoad
  Debug memex\ullTotalPhys
  Debug memex\ullAvailPhys
  Debug memex\ullTotalPageFile
  Debug memex\ullAvailPageFile
  Debug memex\ullTotalVirtual
  Debug memex\ullAvailVirtual
  Debug memex\ullAvailExtendedVirtual
EndIf

[popstatic]

Sympa

juste comme ça, la structure est apparement prédéfinie dans pb4 b5 donc plus simple!

[Flype]

oui c'est moi qui l'ai demandé à Fred

du coup:

Code : Tout sélectionner

memex.MEMORYSTATUSEX
memex\dwLength = SizeOf(MEMORYSTATUSEX)

If GlobalMemoryStatusEx_(@memex)
  Debug memex\dwMemoryLoad
  Debug memex\ullTotalPhys
  Debug memex\ullAvailPhys
  Debug memex\ullTotalPageFile
  Debug memex\ullAvailPageFile
  Debug memex\ullTotalVirtual
  Debug memex\ullAvailVirtual
  Debug memex\ullAvailExtendedVirtual
EndIf 

[comtois]

Suite à une discussion sur les limites des tableaux avec Leo.cd sur un autre forum (GCN) , j'ai testé ce code.
Mais concrètement qu'elle est la mémoire utilisée pour les tableaux ou par allocatememory ?

Admettons que je veuille créer un tableau avec le maximum de mémoire disponible que faut-il utiliser ?

memex\ullAvailPhys ?
à quoi correspond les autres données ?

[Flype]

si tu divises la valeur 'memex\ullAvailPhys' par la taille mémoire d'un élément d'un tableau, tu obtiendras le nombre d'éléments

en gros :

Code : Tout sélectionner

memex.MEMORYSTATUSEX
memex\dwLength = SizeOf(MEMORYSTATUSEX)

If GlobalMemoryStatusEx_(@memex)
  
  nElements = ( memex\ullAvailPhys / SizeOf(DIBSECTION) )
  
  Redim mon_tableau.DIBSECTION( nElements )
  
EndIf

les autres champs correspondent à la mémoire virtuelle, donc vaut mieux l'ignorer pour le coup, je pense.