IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Usage CPU des Threads à un instant T ?


Sujet :

Delphi

  1. #1
    Membre éprouvé Avatar de der§en
    Homme Profil pro
    Chambord
    Inscrit en
    Septembre 2005
    Messages
    767
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Chambord
    Secteur : Transports

    Informations forums :
    Inscription : Septembre 2005
    Messages : 767
    Points : 960
    Points
    960
    Par défaut Usage CPU des Threads à un instant T ?
    Bonjour,

    je cherche une idée d’implémentation/code pour connaître la consommation CPU de chaque Threads (une douzaines) de mon programme à un instant T car il y en au moins un qui mets le processus à genoux de façon aléatoire !

    A moins qu’il existe un outil tout fait qui permet de le visualiser simplement.

    Auriez-vous des suggestions/idées ?

    Merci d’avance de vos réponses.

  2. #2
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 710
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 710
    Points : 13 174
    Points
    13 174
    Par défaut
    Connaitre l'utilisation CPU d'une tâche n'est pas pertinent. Une tâche de travail peut tourner plein pot sans que ça affecte le processus en général (la fluidité de l'application), c'est la base du multithreading.

    Si tu remarques un manque de réactivité (à genoux ?), ce serait plutôt parce qu'elle se synchronise trop souvent avec la tâche principale ou que la principale attend régulièrement la libération d'un verrou.
    Ca pourrait aussi être dû à plusieurs tâches tournant avec une priorité supérieure, mais pas une seule, et ça ne semble pas être ton cas.

  3. #3
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 468
    Points : 24 896
    Points
    24 896
    Par défaut
    Monitorer de l'intérieur, tu risques de créer encore plus de saturation
    Tu as TThread.GetCPUUsage

    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
    var
      LSystemTimes: TThread.TSystemTimes;
      LCPUUsageAvailable: Boolean;
      LTickReference, LTickFreq: Int64;
     
      procedure CPUUsageInit();
      begin
        LCPUUsageAvailable := TThread.GetSystemTimes(LSystemTimes);
        QueryPerformanceFrequency(LTickFreq);
        QueryPerformanceCounter(LTickReference);
      end;
     
      procedure CPUUsage(const ATag: string);
      var
        Pourcent: Integer;
        Tick: Int64;
      begin
        if LCPUUsageAvailable then
        begin
          QueryPerformanceCounter(Tick);
          Pourcent := TThread.GetCPUUsage(LSystemTimes);
          CPUUsages.Add(ATag, LSystemTimes, Pourcent, Round((Tick - LTickReference) / LTickFreq * 1000));
        end;
      end;
    SysInternals Process Explorer affiche des choses sympa



    EDIT :
    Citation Envoyé par Andnotor Voir le message
    Cattend régulièrement la libération d'un verrou.

    Et c'est de loin le pire car on peut commettre des erreurs lors de mauvaise utilisation de Section Critique (parfois masquée)
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  4. #4
    Membre éprouvé Avatar de der§en
    Homme Profil pro
    Chambord
    Inscrit en
    Septembre 2005
    Messages
    767
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Chambord
    Secteur : Transports

    Informations forums :
    Inscription : Septembre 2005
    Messages : 767
    Points : 960
    Points
    960
    Par défaut
    Merci de vos retours, c’est quand mes threads devraient être en pause (avec TEvent.Waitfor) que la consommation de CPU ne baissent pas, donc je cherche quel est le Thread qui n’entre pas en pause (sûrement une erreur de logique) je vais regarder du côté de processeur explorer !

  5. #5
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 468
    Points : 24 896
    Points
    24 896
    Par défaut
    Tu n'as pas de log d'activité dans tes threafs

    un Event qui n'est pas en auto reset ?
    une boucle mal fichue qui ne s'arrête sinon

    et surtout pas de application.processmessages dans les threads !
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

Discussions similaires

  1. Lancer des Thread en des instants bien déterminés
    Par oumay dans le forum Débuter avec Java
    Réponses: 2
    Dernier message: 30/03/2015, 10h51
  2. Une question à propos des thread
    Par tscoops dans le forum C++Builder
    Réponses: 4
    Dernier message: 07/11/2003, 14h03
  3. Variable globale / Propriété des threads
    Par rgarnier dans le forum XMLRAD
    Réponses: 4
    Dernier message: 03/10/2003, 10h49
  4. [reseaux] Gestion des threads en perl
    Par totox17 dans le forum Programmation et administration système
    Réponses: 2
    Dernier message: 28/11/2002, 09h40
  5. Programmer des threads
    Par haypo dans le forum C
    Réponses: 6
    Dernier message: 02/07/2002, 13h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo