Discussion :

[Gilbert Geyer]

Bonjour,

J'utilise Delphi-5 sous Windows Premium 7, processeur 64 bits, et Ram DDR3 de 8 Go

Problème : avec l'application réduite à l'extrait de code suivant pour afficher les caractéristiques de la mémoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function fGoMoKo(mem : int64) : string;
//       Renvoie chaîne courte
var      e : integer; s : string; r : real;
begin    e:=0; r:=mem;
         if r>=0 then
         begin while r>1024 do begin r:=r/1024; inc(e); end;
               case e of
                    0 : s:='oct';
                    1 : s:='Ko';
                    2 : s:='Mo';
                    3 : s:='Go';
                    4 : s:='To';
               end;
               fGoMoKo:=FormatFloat('#.###',r)+' '+s;
          end;
end;
 
function  Memoire : string;
var       MS: TMemoryStatus; MemPhys,MemOccu,MemDisp,msg : string;
begin     GlobalMemoryStatus(MS);
          MemPhys:='- Totale : '+fGoMoKo(MS.dwTotalPhys);
          MemDisp:='- Disponible : '+fGoMoKo(MS.dwAvailPhys);
          MemOccu:='- Occupée : '+fGoMoKo(MS.dwMemoryLoad);
          msg:='Mémoire'+#13#10;
          msg:=msg+MemPhys+#13#10;
          msg:=msg+MemOccu+#13#10;
          msg:=msg+MemDisp;
 
          Result:=msg;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin     ....
          Memo1.text:=Memoire;
          ....
end;

.... cela m'affiche :

Mémoire
- Totale : 4 Go
- Occupée : 19 oct
- Disponible : 4 Go

visiblement il manque quelques Go .

Comment contourner ce problème ???

A+.

[Paul TOTH]

un process 32bits ne peut pas adresser plus de 4Go

[Nono40]

D'après la MSDN c'est normal
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Il faut utiliser GlobalMemoryStatusEx à la place de GlobalMemoryStatus. La version Ex n'existe pas dans Delphi 6 (donc dans le 5 non plus). Il faut la défniir explicitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Type
  TMEMORYSTATUSEX= Record
    dwLength                : DWord;
    dwMemoryLoad            : DWord;
    ullTotalPhys            : Int64;
    ullAvailPhys            : Int64;
    ullTotalPageFile        : Int64;
    ullAvailPageFile        : Int64;
    ullTotalVirtual         : Int64;
    ullAvailVirtual         : Int64;
    ullAvailExtendedVirtual : Int64;
  End;
 
procedure GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx); stdcall; external kernel32 name 'GlobalMemoryStatusEx';
 
procedure TForm1.Button1Click(Sender: TObject);
var Mem:TMEMORYSTATUSEX;
Begin
  // Recherche des informations sur la mémoire
  Mem.dwLength:=SizeOf(TMEMORYSTATUSEX);
  GlobalMemoryStatusEx(Mem);
 
 
  // Affichage des résultats
  lUtilisee .Caption := IntToStr(Mem.dwMemoryLoad)+' %';
  lPhysique .Caption := FloatToStrF(Mem.ullAvailPhys     /1024/1024,ffFixed,5,1)
                +' / '+ FloatToStrF(Mem.ullTotalPhys     /1024/1024,ffFixed,5,1)+' Mo';
  lPaginee  .Caption := FloatToStrF(Mem.ullAvailPageFile /1024/1024,ffFixed,5,1)
                +' / '+ FloatToStrF(Mem.ullTotalPageFile /1024/1024,ffFixed,5,1)+' Mo';
  lVirtuelle.Caption := FloatToStrF(Mem.ullAvailVirtual  /1024/1024,ffFixed,5,1)
                +' / '+ FloatToStrF(Mem.ullTotalVirtual  /1024/1024,ffFixed,5,1)+' Mo';
end;

Faut que je mette à jour cette page, quand je l'ai écrite je ne pensais pas que l'on aurait plus de 4Go sur un PC.
Je viens de tester sous Win 7 64Bits avec 8Go et ça fonctionne.

[Gilbert Geyer]

Re-bonjour,

Mille fois merci Nono40 : ça marche

Résultats :

Mémoire :
Utilisée : 22 %
Physique : 6308,9 / 8103,2 Mo
Paginee : 14222,0 / 16205,0 Mo
Virtuelle : 1980,0 / 2047,9 Mo

Non seulement ça marche, mais en même temps ça confirme qu'on m'a bien installé 8 Go.

Mille fois merci.

A+.

[Nono40]

mais en même temps ça confirme qu'on m'a bien installé 8 Go.

Dans Windows les propriétés de 'Ordinateur' te le donne aussi directement

[Gilbert Geyer]

Bonjour,

Nono40 : Dans Windows les propriétés de 'Ordinateur' te le donne aussi directement

... OK, merci, vu et ça confirme aussi que ton code est correct et me permettra de surveiller la mem-disponible à l'instant "t".

A+.

[Nono40]

Si c'est pour surveiller la mémoire dispo pour ton application note que Paul à raison. Une appli Win 32 ne peut pas utiliser plus de 4Go de mémoire.

[Gilbert Geyer]

Re-bonjour,

Une appli Win 32 ne peut pas utiliser plus de 4Go de mémoire

... OK, merci, je me contenterai des 4Go car j'ai vraiment pas envie de passer à XE2.

A+.

[ShaiLeTroll]

Une appli Win 32 ne peut pas utiliser plus de 4Go de mémoire.

Et encore, en réalité sur Win32, c'est 2Go que l'on peut passer à 3Go, voir Prise en charge de mémoire volumineuse disponible dans Windows Server 2003 et Windows 2000, article expliquant le commutateur /PAE et le commutateur /3GB
Avec un OS 64Bits, quelles sont les limites 2, 3 ou 4 pour un Win32 sur un PC équipé de 8Go ? On peut penser que Windows se conserve un 1Go rien qu'à lui ?

Je n'ai jamais pu dépasser 1960Mo alloué Mo par Mo pour ma part en D6 sous WinXP SP3 avec 4Go
Je viens de tester sur mon pauvre PC avec 1Go XP SP3, je suis monté à 1875, un beau Pic à 2,75 Mo alloué en total sur les 1Go + 3Go de SWAP (dont 2204 Mo utilisé)

si tu veux faire un petit essai, en changeant 2047 en 3072 ou même 4095 si tu veux tenter les 4Go !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
procedure MaxAllocMemory(WaitingDelay: Cardinal; Silent: Boolean = True);
type
  TByteMatrix1024By1024 = array [0..1023, 0..1023] of Byte;
  TByteMatrix1024By1024Array = array[0..2047] of ^TByteMatrix1024By1024;
var
  Tableau: TByteMatrix1024By1024Array;
  I, K: Integer;
begin
  for I := 0 to 2047 do
  begin
    try
      // GetMem(Tableau[I], 1024*1024);
      Tableau[I] := Pointer(GlobalAlloc(GMEM_FIXED, 1024*1024));
      if Tableau[I] = nil then
        Abort;
      K := I;
    except
      on E: Exception do
      begin
        OutputDebugString(PChar(Format('Last Alloc %d', [I])));
        Break;
      end;
    end;
  end;
 
  if Silent then
    Sleep(WaitingDelay)
  else
    ShowMessage(Format('Last Alloc %d', [I]));
 
 
  if K = 2047 then
    OutputDebugString('Alloc 2Go');
 
  for I := K downto 0 do
    try
      // FreeMem(Tableau[I]);
      if GlobalFree(Cardinal(Tableau[I])) <> 0 then
        Abort;
    except
      on E: Exception do
        OutputDebugString(PChar(Format('Free %d : %s', [K, E.Message])));
    end;
end;

[Nono40]

Je viens de tester, ton code compilé en D6 et exécuté sous Win7 64Bits avec 8GO de RAM.

Je plafonne à 1843...