Taille de la mémoire du PC

Version imprimable

29/08/2014, 20h30
leneant

Taille de la mémoire du PC

Bonjour,

Je souhaiterais connaitre la taille mémoire du PC 2Go, 3Go, 4Go ou plus.
J'ai essayé TMemoryInfo de delphi, mais ca ne semble pas implémenté sous lazarus et fpc.

Comment puis-faire, au démarrage de mon programme, pour connaitre la taille totale du PC ?

Bonjour !

J'ai trouvé la chose suivante. Si quelqu'un pouvait traduire le texte en français, ce serait bien. Pour ma part je ne sais pas ce que veut dire paging file. :roll:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 (* http://www.greatis.com/delphicb/tips/lib/systemifo-memorysysinfo.html *) program MemoryStatus; uses Windows, SysUtils; var s: TMemoryStatus; begin s.dwLength := SizeOf(s); GlobalMemoryStatus(s); WriteLn(s.dwMemoryLoad, '% memory in use'); WriteLn(s.dwTotalPhys / 1024:0:0, ' Kb of physical memory'); WriteLn(s.dwAvailPhys / 1024:0:0, ' Kb of available physical memory'); WriteLn(s.dwTotalPageFile / 1024:0:0, ' Kb that can be stored in the paging file'); WriteLn(s.dwAvailPageFile / 1024:0:0, ' Kb available in the paging file'); ReadLn; end.
Citation:

31% memory in use
3627272 Kb of physical memory
2499292 Kb of available physical memory
4194304 Kb that can be stored in the paging file
3067092 Kb available in the paging file

30/08/2014, 00h49
Roland Chastain

D'après ce que je viens de lire ici et là, sur les machines récentes il vaudrait mieux utiliser la fonction GlobalStatusMemoryEx. Il semble que la fonction ne soit pas disponible dans l'unité Windows de Free Pascal, et qu'il faille aller la chercher dans une DLL. J'ai trouvé un exemple Delphi qui fonctionne avec Free Pascal (l'exemple qui est au bas de la page).

Citation:

Calling GlobalMemoryStatusEx
============================
Memory Load: 40%
Total Physical: 3627272 Kb
Avail Physical: 2172196 Kb
Total Page File: 4282632 Kb
Avail Page File: 2577984 Kb
Total Virtual: 2097024 Kb
Avail Virtual: 2040052 Kb

P.-S. Je constate que dans mon cas les résultats des deux fonctions concordent.
30/08/2014, 12h21
tourlourou

Hello !

Si je ne me fourvoie pas, Windows réserve de l'espace disque pour y cacher de la mémoire paginée dans un fichier système, lui permettant de simuler une mémoire vive virtuelle plus grande que celle physique disponible.

Et la mémoire virtuelle (Total Virtual) correspond à celle adressable par le processus.
30/08/2014, 13h33
Roland Chastain

Bonjour Yves !

D'accord, je vois. Merci pour l'éclaircissement.
30/08/2014, 15h31
leneant

Windows est indispensable ?
Car dans mon cas ca doit fonctionner avec windows et avec linux.

Bonsoir,

2 Sections une fonction GetSystemMem.

Malheureusement, je n'ai pas de linux sous la main.
Mais de souvenir on trouve l'information dans /proc/meminfo.

Je composé un code vite fait. J'ai pas testé. :pingoin2:
Mais cela devrait vous aider.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 {$IFDEF LINUX} function GetSystemMem: string; var GetInfo : TStringlist; begin GetInfo := TStringlist.Create; GetInfo.LoadFromFile(' /proc/meminfo'); Result := GetInfo.Text; end; {$ELSE} function GetSystemMem: string; VAR MS_Ex : MemoryStatus; begin FillChar (MS_Ex, SizeOf(MemoryStatus), #0); MS_Ex.dwLength := SizeOf(MemoryStatus); GlobalMemoryStatus (MS_Ex); Result:= IntToStr(Round(MS_Ex.dwTotalPhys / 1073741824))+ ' GB'; end; {$ENDIF}
Cldt.
Iwoks

01/09/2014, 12h33
leneant

Super. Merci.
J'en conclu que je vais devoir faire du code adapté aux deux os.

L'idée c'est à l'ouverture d'une image, en fonction de la taille de l'image et de la mémoire du PC avertir l'utilisateur que ca va swapper dur et que les temps de traitements pourraient devenir pharaonique.
J'ai choisi l'option de verifier la memoire du pc.
Une autre option existerait en mettant d offie un warning expliquant les risques si le pc n'a que 4Go. Mais du coup meme si le pc a 8Go l avertissement apparaitrait.
Pensez vous que ce soit génant ?
01/09/2014, 13h46
Iwoks

Bonjour,

Je comprends, le problème est gênant si le PC n'a que 2Go Ram et qu'il faut alloué 8Go.
Le soucis, en faite c'est pas de savoir qu'elle RAM à la machine, mais plus tôt combien de Ram il reste.
Je ne sais comment vous allez chargé l'image en << mémoire >>.

A mon avis :
Une technique qui existe, est d'allouée le maximum de mémoire pour le programme. Et après Swapper.
Ou encore, il faut donc gérer des sections de mémoire de manière TThread.
Lorsque vous arrivez a certains nombre de bloque restant déclencher un événement.
<< Qui précise attention le niveau maximum d'exploitation de mémoire RAM est atteint Swap activé. >> Un truc du genre.

Il faut aussi gérer les exceptions en cas de << Out Of Memory >>.

Votre projet semble très intéressant. ;)

Cldt.
F.THERET
16/09/2014, 10h17
leneant

Merci IWorks.
Au lancement de Tim j'aloue la place mémoire nécessaire aux traitements interne des images sauf dans un cas où j'utilise une liste chaînée.
Je gère les erreurs d'allocation.
Mais je ne gère pas les TImages qui permettent d'afficher les images (par exemple avant traitement et après traitement).
Du coup pour les grosses images et les petites RAM le PC se met à swapper dur et semble se figer. C'est le cas avec 4Go de RAM pour des images de 175 Mega Pixels et plus.
Je ne souhaite pas non plus faire trop de code specifique windows/linux (il y en a deja pour l accès direct à la zone mémoire des TImages.

Du coup j'ai fais simple : Après le chargement de l'image source dans le premier TImage j'en récupère le nombre de pixels. Si celui-ci est supérieur ou égal à 150 Méga pixels, j'affiche une popup d'avertissement.

Une fois qu'il aura à nouveau la main l'utilisateur pourra abandonner ou tenter malgré tout de traiter son image. Avec 4Go de RAM il aura le temps d'aller se prendre un demi au café du coin. Mais il aura été prévenu. Avec la version 64bits j'ai fais des tests avec des images de 200 Mega pixels (on s'enquiquine dur, mais le soft fait le boulot).

En tout cas merci à tous pour votre aide.

Citation:

Envoyé par leneant

(...) Du coup j'ai fais simple : Après le chargement de l'image source dans le premier TImage j'en récupère le nombre de pixels. Si celui-ci est supérieur ou égal à 150 Méga pixels, j'affiche une popup d'avertissement.

Il me semble que certaines librairies permettent de récupérer les dimensions de l'image sans charger le fichier dans un TImage : parce que ce n'est plus la peine, àmha, d'informer l'utilisateur que ça va ramer une fois que ça a déjà commencé à ramer, :mouarf:

Pour connaître l'espace libre sous Linux, j'utilise ça (stb = StatusBar en mode simple texte simple panel) :
Code:

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 46 47 48 49 50 procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings); begin Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; procedure GetMemory(var st: TStringList); var s1, s2: string; stTmp: TStringList; begin st.Clear; st.LoadFromFile('/proc/meminfo'); if st.Count > 0 then begin stTmp:= TStringList.Create; Split(' ', st[0], stTmp); s1 := stTmp[1]; stTmp.Clear; Split(' ', st[1], stTmp); s2 := stTmp[1]; stTmp.Free; st.Clear; st.Add(s1); // total st.Add(s2); // free end; end; procedure TForm1.Button1Click(Sender: TObject); var infototal, infolibre : double; stList: TStringList; s1 : string = ' Mémoire physique disponible : '; s2 : string = ' octets sur '; s3 : string = ' octets totaux, soit '; s4 : string = ' % libre. '; begin stList:= TStringList.Create; GetMemory(stList); if stList.Count > 0 then begin infototal := StrToFloat(stList[0]); infolibre := StrToFloat(stList[1]); stb.SimpleText := s1 + Format('%.0n', [infolibre]) + s2 + Format('%.0n', [infototal]) + s3 + FloatToStrF(((100 * infolibre) / infototal), ffFixed, 3, 0) + s4; end; stList.Free; end;