Discussion :

[jambonstar]

Bonjour,

Je cherche comment obtenir la taille en mémoire de mon appli. Parce que tout ce que j'ai trouvé c'est de passer par le TMemoryStatus.
Sauf que cette commande me permet uniquement de connaitre l'état de la mémoire totale. Mais pas seulement de mon appli.

Quelqu'un connait un jeu d'instruction pour ca ?


Merci d'avance

[bjl]

il y a la fonction 'AllocMemCount' mais il faut la placer un peu partout et mémoriser les points hauts.

sinon, il y a des applications externes qui font çà. je crois que memproof le fait

[jambonstar]

Merci pour ta réponse.

AllocMemCount, ca semble interessant, mais comment je l'applique ?

Il n'existe pas une instruction qui donne directement la valeur, celle que l'on peut retrouver dans le Gestionnaire des taches ?

Pour les applis externe, le probleme c'est que si je veux bien analyser, il faut que je suis en pas à pas, hors mon appli converse avec un controle activeX semi-temps réel. Et ca fait rapidement tout planté.


Merci en tout cas, je vais essayer de voir ce AllocMemCount.

[jambonstar]

Re bonjour,

Apres quelque tests de AllocMemCount et AllocMemSize, je pense que ce n'est pas vraiement representatif de la mémoire qu'occupe mon appli.

Par exemple je crée un bitmap de 1024x1024x24b (soit environ 3Mo) et la difference entre 2 allocMemSize et de seulement 200o. J'y comprend pas grand chose. Mais en tout cas c'est pas exactement se que je cherche.

[jambonstar]

Je vois que tout le monde seche ?

Est-ce parce que personne ne comprend ma demande ?

Ou peut-etre c'est trop compliqué ?

Enfin si vous avez meme une once de réponse, j'en veux bien volontié.

Par précaution je vais être plus clair dans une 2° explication du probleme:


Ce que je voudrais c'est pouvoir obtenir depuis une procedure la taille de l'executable. C'est la valeur que l'on obtient dans le gestionnaire des taches en face de chaque processus.

La fonction AllocMemCount, ne va pas, a moins que je ne sache pas la faire fonctionner.

Une idée ? Please :

[bjl]

GetHeapStatus peut être....

[jambonstar]

je vais voir, je te remercie.

Pour l'instant, aucune des valeurs ne me donne la valeur affiché dans le gestionnaire des taches, mais je vais regarder ca de plus pres, il faut peut etre que je combine tout ca pour l'obtenir.

Merci .

[jambonstar]

Visiblement c'est pas bon.

J'ai réalisé le test suivant. Je crée un bitmap de 1024 par 1024.

Dans le gestionnaire des taches, ca augmente de 3,7Mo, logique.
Mais aucune valeur de GetHeapStatus ne bougent...

Je désespere un peu. Surtout que je ne trouve pas d'autres moyens de verifier ces valeurs...
Mon appli fait fonctionner du materiel qui n'accepte pas du tout le débugage.... il me faut une instruction à tout prix...

[zazaraignée]

Salut

J'ai trouvé ceci par hasart en cherchant autre chose:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormActivate(Sender: TObject);
var
    taille : longint;
begin
taille := application.InstanceSize;
showmessage (inttostr (taille) + ' octets');
end;

[Edit:] Mais apparemment, c'est pas ça. Peu importe ce que je mets sur la feuille principale, le nombre de feuille ou le nombre de conposants par feuille, c'est toujours 320 octets!

[jambonstar]

Salut zaza,

Je te remercie de ton aide.

Mais, oui j'en suis le premier désolé : il y a un mais, cette instruction forte interessante ne me donne que la taille de l'objet instancié. Ce qui doit differe de la réele taille de l'application.

Pour le coup, le showmessage me donne 320octets. Ce qui doit correspondre à la taille d'une instance de TApplication.

Je vais finir par peter un cable Mais en meme temps c'est interessant d'apprendre sur la memoire....


Pourquoi un simple Application.Size n'existe pas... ils pensaient à quoi les mecs quand ils ont fait cette classe.

[portu]

Testé et approuvé.
Il renvoie la valeur de la colonne "Utilisation mémoire"
http://www.swissdelphicenter.ch/en/showcode.php?id=2276

Ps : Sympa l'unité PsApi dont j'ignorais son existance.

[jambonstar]

MERCI MERCI MERCI MERCI MERCI


Merci à tous !

Tu viens de m'éviter l'achat d'une corde