[R] while qui monte en charge mémoire en continu

[Fontainard]

Bonjour,
Je vous fais partager mon code non abouti, il regarde dans un fichier texte s'il existe des dédoublement de chaine de caractères, en parallèle il regarde dans un répertoires s'il y a plus de 20 fichiers.
Dans un des cas, ou des deux... il envoie un mail toutes les 20 minutes tant que les conditions sont remplies.
Sinon, il vérifie toutes les minutes si tout vas bien.

► Afficher le texte

Code : Tout sélectionner

$GUI = GUICreate("Surveillant de tâches IRIS", 310, 60, 5, 5, $WS_OVERLAPPEDWINDOW, $WS_EX_TOPMOST)
$Boutonstart = GUICtrlCreateButton("Surveiller", 5, 5, 150, 50)
$Boutonstop = GUICtrlCreateButton("Pause", 155, 5, 150, 50)
GUISetOnEvent($GUI_EVENT_CLOSE,"Quitter")

GUISetState()

While 1
   $Msg = GUIGetMsg()
   Switch $Msg
      Case $GUI_EVENT_CLOSE
             Exit
       Case $Boutonstart

          while  1
            $NomFichier = "nom.txt"
             $ChaineRecherchee = "rapportée"
             $i = 1
             $doublon = 0
             $nombrefichiers = 0

             $Fichier = FileOpen($NomFichier, 0)
             If $Fichier = -1 Then
                 MsgBox(0, "Erreur", "L'ouverture du fichier est impossible")
                 Exit
             EndIf
                     While 1.
                            $ligne = FileReadLine($Fichier)
                             If @error = -1 Then
                         ExitLoop
                     Else
                     If StringInStr($ligne, $ChaineRecherchee, 2) <> 0 Then
                         $doublon = $doublon + 1
                     EndIf
                        $i = $i + 1
                     EndIf
                 $nombrefichiers = DirGetSize("H:\Maintenancetest",1)
                 ;MsgBox(0,"information","le repertoire cible contient "&$nombrefichiers[1] & " fichiers",2)
                          WEnd

             Global $oMyRet[2]
             Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

            If $nombrefichiers[1] > 20 Then
                 Local $Body = "20 fichiers ce sont accumulés dans le répértoire"
                MsgBox(0, "Information", "20 fichiers ce sont accumulés dans le répértoire, envoi de la notification", 5);
                $ro = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                 If @error Then
                MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $ro)
                 EndIf
             Sleep(20*60000)
             EndIf

             If $doublon = 1 Then
                 ;MsgBox(0, "Information", "Une seule tâche se déroule", 1)

            ElseIf $doublon > 1 Then
                 Local $Body ="Deux tâches rapportées ont été détectés"
                 MsgBox(0, "Information", "Doublon détécté, envoi de la notification", 5);
                 $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                 If @error Then
                   MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
                 EndIf
                 Sleep(20*60000)

            Else
                 ;MsgBox(0, "Résultat", "Aucune tâche en cours d'éxécution", 1)
                Sleep(20*60000)
                EndIf

            If $nombrefichiers[1] > 20 and $doublon > 1 Then
                 Local $Body = "Deux tâches rapportées ont été détectés et 20 fichiers ce sont accumulés dans le répértoire"
                MsgBox(0, "Information", "20 fichiers ce sont accumulés dans le répértoire, envoi de la notification", 5);
                $ri = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                 If @error Then
                MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $ri)
                 EndIf
             Sleep(20*60000)
              EndIf

        ;60000 = 1 minute
             Sleep(6000)
         WEnd
      Case $Boutonstop
         $pause = 1
   EndSwitch
WEnd
 

Je débute sur Autoit, mon code peut s'avérer peu pertinent. Quoi qu'il en soit, tout fonctionne, sauf le bouton pause, et la croix rouge pour quitter lorsque la boucle est lancée avec la case "surveiller". Mais surtout, ce qui pose problème c'est que c'est un programme qui est sensé tourner en continu, et donc, dans mon gestionnaire de tâche il prend de plus en plus de mémoire à l'infini, chose assez problématique.

Je suis quoiqu'il en soit ravis de rejoindre votre communauté, en vous remerciant par avance pour votre aide !

[timmalos]

Très certainement vos FileOpen() non suivi d'un FileClose() et le fait que vous declariez moulte variables dans une boucle infinie au lieu de les déclarer avant.

Bref, un code plutôt moche que je n'ai pas le temps de reprendre entièrement mais je ne doute pas que des âmes aimables vous viendront en aide dans la soirée

[Fontainard]

Merci pour ta réponse camarade.

Première optimisation en rajoutant le fileclose et en mettant les variables avant mon while. éh ouais, ça va déjà beaucoup mieux it's a piece of cake (a), merci !

► Afficher le texte

Code : Tout sélectionner

$GUI = GUICreate("Surveillant de tâches IRIS", 310, 60, 5, 5, $WS_OVERLAPPEDWINDOW, $WS_EX_TOPMOST)
$Boutonstart = GUICtrlCreateButton("Surveiller", 5, 5, 150, 50)
$Boutonstop = GUICtrlCreateButton("Pause", 155, 5, 150, 50)
GUISetOnEvent($GUI_EVENT_CLOSE,"Quitter")

GUISetState()

While 1
   $Msg = GUIGetMsg()
   Switch $Msg
      Case $GUI_EVENT_CLOSE
             Exit
       Case $Boutonstart
     $NomFichier = "nom.txt"
             $ChaineRecherchee = "rapportée"
             $i = 1
             $doublon = 0
             $nombrefichiers = 0
          while  1

             $Fichier = FileOpen($NomFichier, 0)
             If $Fichier = -1 Then
                 MsgBox(0, "Erreur", "L'ouverture du fichier est impossible")
                 Exit
             EndIf
                     While 1.
                            $ligne = FileReadLine($Fichier)
                             If @error = -1 Then
                         ExitLoop
                     Else
                     If StringInStr($ligne, $ChaineRecherchee, 2) <> 0 Then
                         $doublon = $doublon + 1
                     EndIf
                        $i = $i + 1
                     EndIf
                 $nombrefichiers = DirGetSize("H:\Maintenancetest",1)
                 ;MsgBox(0,"information","le repertoire cible contient "&$nombrefichiers[1] & " fichiers",2)
                          WEnd
            If $nombrefichiers[1] > 20 Then
                 Local $Body = "20 fichiers ce sont accumulés dans le répértoire"
                MsgBox(0, "Information", "20 fichiers ce sont accumulés dans le répértoire, envoi de la notification", 5);
                $ro = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                 If @error Then
                MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $ro)
                 EndIf
             Sleep(20*60000)
             EndIf

             If $doublon = 1 Then
                 ;MsgBox(0, "Information", "Une seule tâche se déroule", 1)

            ElseIf $doublon > 1 Then
                 Local $Body ="Deux tâches rapportées ont été détectés"
                 MsgBox(0, "Information", "Doublon détécté, envoi de la notification", 5);
                 $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                 If @error Then
                   MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
                 EndIf
                 Sleep(20*60000)

            Else
                 ;MsgBox(0, "Résultat", "Aucune tâche en cours d'éxécution", 1)
                EndIf

            If $nombrefichiers[1] > 20 and $doublon > 1 Then
                 Local $Body = "Deux tâches rapportées ont été détectés et 20 fichiers ce sont accumulés dans le répértoire"
                MsgBox(0, "Information", "20 fichiers ce sont accumulés dans le répértoire, envoi de la notification", 5);
                $ri = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
                 If @error Then
                MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $ri)
                 EndIf
             Sleep(20*60000)
              EndIf

        ;60000 = 1 minute
             Sleep(6000)
         WEnd
      Case $Boutonstop
         $pause = 1
   EndSwitch
WEnd

Plus qu'a régler le problème des boutons du coup
N'hésitez pas si vous avez quelque chose à rajouter ^^

[TommyDDR]

Ce qui suit ne résoudra pas votre problème mais vous aidera à y voir plus clair.

Je vous conseille fortement de diminuer la complexité cyclomatique (ça c'est placé ^^) de votre script.
Cad : Essayez de découper votre long script en plusieurs fonctions et appels de fonctions.
Renseignez vous aussi sur le mode événementiel des GUI en Autoit -> Opt("GUIOnEventMode", 1)
Votre code sera plus clair, vous vous y retrouverez mieux et vous verrez plus facilement ce qui ne va pas.

[Fontainard]

Bonjour, désolé pour la latence au niveau de ma réponse.
En suivant vos conseils (dont je vous remercie), j'ai essayé de simplifier le code, mais le problème de monté de charge est récurrent. J'ai l'impression d'avoir tout retourné dans tous les sens, j'avais fait un if au lieu d'un while en rappelant une fonction, un sleep, un AdlibRegister un timer... bref tout avait fonctionné mais avec une montée en charge perpétuelle.

Pourquoi nous fait-il ça ?

J'ai rajouté des fonctionnalités une permet de visualiser une autre chaine de caractère, et une autre méthode que j'ai récupéré pour spécifier le contenu d'un répertoire.


EDIT: voilà mon code actuel.

► Afficher le texte

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
$GUI = GUICreate("Surveillant de tâches IRIS", 360, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "Quitter")
$btntache = GUICtrlCreateButton("Tâches en cours",5, 40, 110, 30)
GUICtrlSetOnEvent($btntache, "Nbtache")
$btnentre = GUICtrlCreateButton("Entrées en cours",120, 40, 110, 30)
GUICtrlSetOnEvent($btnentre, "Totalentre")
$idLabel = GUICtrlCreateLabel("ERREUR : Inspection non lancée, vérifiez si aucun problème persiste", 20, 10, 200, 20)
GUISetState(@SW_SHOW, $GUI)

while 1
  $entre = ""
  $tache= 0
  $doublon = 0
  $Fichier = FileOpen($NomFichier, 0)
  If $Fichier = -1 Then
      MsgBox(0, "Erreur", "L'ouverture du fichier est impossible")
  EndIf
  while 1
      $ligne = filereadline($fichier)
      if @error = -1 then
         exitloop
      else
          if stringinstr($ligne, $chainerecherchee, 2) <> 0 then
             $doublon = $doublon + 1
          endif
          if  stringinstr($ligne, $ChaineRechercheei,2) <> 0 Then
             $tache = $tache + 1
          endif
      endif
  wend
   fileclose($nomfichier)
   $inspec = dirgetsize("H:\", 1)
   if $inspec = -1 then
           msgbox(0, "erreur", "le répertoire recherché est obsolète", 5)
   else
    $entre &= " Documents en attente " & @CRLF
    $entre &= "Taille totale = " & Round($inspec[0]/1024/1024, 2) & " Mb" & @CRLF
    $entre &= "Dossiers = " & $inspec[2] & @CRLF
    $entre &= "Total fichiers = " & $inspec[1] & @CRLF
   endif
    If $inspec[2] > 20 And $doublon > 1 Then
        MsgBox(0, "Information", "Tâche(s) rapportée(s) détectée(s) et plus de 20 fichiers accumulés en entrée, envoi de la notification.", 5);
        GUICtrlSetData($idLabel, "Tâche(s) rapportée(s) détéctée(s) et plus de 20 fichiers accumulés répertoire entrée")
        _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body1, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
        If @error Then
            MsgBox(0, "Error sending message", "Error code:" & @error)
        EndIf
    ElseIf $inspec[2] > 20 And $doublon < 2 Then
        MsgBox(0, "Information", "Plus de 20 dossiers accumulés répertoire entrée, envoi de la notification.", 5);
        GUICtrlSetData($idLabel, "Plus de 20 dossiers accumulés répertoire entrée")
        _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body2, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
        If @error Then
            MsgBox(0, "Error sending message", "Error code:" & @error)
        EndIf

    ElseIf $doublon > 1 And $inspec[2] < 20 Then
        MsgBox(0, "Information", "Tâche(s) rapportée(s) détectés, envoi de la notification", 5);
        GUICtrlSetData($idLabel, "Tache(s) rapportée(s) détéctés ")
        _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body3, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
        If @error Then
            MsgBox(0, "Error sending message", "Error code:" & @error)
        EndIf
Else
        GUICtrlSetData($idLabel, "VERIFICATION EN COURS...")
       EndIf
     sleep(60000)
WEnd


Func Nbtache()

    MsgBox(0,"Tâches en cours", " La file d'attente est de "& $tache &" tâches")
EndFunc
Func Totalentre()
    msgbox(64, "Total entrées", $entre )
    $entre = "Patientez 60 secondes"
EndFunc
Func Quitter()

   Exit
EndFunc
 

Merci pour votre aide !

[Oversid3]

Ça ne résoudra pas tout les problèmes du code mais déjà :

Code : Tout sélectionner

Func _ReduceMemory()
    Local $aReturn = DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", -1)
    If @error = 1 Then
        Return SetError(1, 0, 0)
    EndIf
    Return $aReturn[0]
EndFunc   ;==>_ReduceMemory
 

A appeler a la fin de chaque boucle pour reduire la conso.

[orax]

FileClose est mal utilisé. Cette fonction attend un handle retourné par FileOpen mais pas un nom de fichier.

Code : Tout sélectionner

FileClose($Fichier)

[Fontainard]

C'était bien ça le problème, merci pour votre contribution !

[timmalos]

La fonction _ReduceMemory() n'est absolument pas à utiliser dans ce genre de problème, c'est vraiment idiot !
Corrigez votre code et laissez Windows gérer sa mémoire, au lieu de vouloir rajouter une fonction qui va faire office de ramasse miette alors qu'elle n'est pas concue pour ca !

C'est un peu comme si vous vouliez conduire une voiture, au lieu de passer le permis et savoir conduire correctement (Ou encore faire un code propre), vous prenez le volant, cassez tout sur votre passage, tuez 2/3 personnes pour la forme, et de temps en temps un coup d'essui-glace pour nettoyer le sang.