[R] Capture ecran et mémoire perdue.

[raoullevert]

Bonjour a tous,

Déjà un grand bravo au forum. Je découvre auto-it avec joie aux travers des scripts d'exemples et des astuces présentées. Je suis en train de faire un petit programme simple pour l'instant : un "loggeur" pour Entropia Universe. En gros je prends une capture d'écran toutes les secondes, a partir de la je cherche a analyser le Tchat du jeux pour extraire les données texte. C'est plus pour le fun qu'autre chose, car ce genre de logiciel existe apparement.

Bref. Quand je lance mon script, la mémoire augmente au fur et a mesure du temps. Il s'agit d'un simple problème de Release de donnée. Le problème est que quand j'essaye de faire un 'Release' sur l'image de capture, le script s'arrete.

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <Timers.au3>

Global const $Titre = "EU Logger";
Global Const $Ver   = "0.01a";
Global Const $Largeur = 400;
Global Const $Hauteur = 400;

Global const $TitreEU = "Entropia Universe";
Global $EntropiaHandle  = 0;
Global $EntropiaPosX    = 0;
Global $EntropiaPosY    = 0;
Global $EntropiaTailleX = 0;
Global $EntropiaTailleY = 0;

global $hGraphic;



$MainWindow = GUICreate($Titre & $Ver, $Largeur, $Hauteur);
$Console    = GUICtrlCreateEdit( $Titre & "V. " & $Ver, 0, 190, 400, 200);
GUISetState()
_GDIPlus_Startup ()





Console( "Demarrage .....");
Console( "Recherche de la fenetre : ");
RechercheFenetreEntropia()
_Timer_SetTimer($MainWindow,100,"ImageCapture")


while 1
    $nMSG = GUIGetMsg()
    Switch $nMSG
        Case $GUI_EVENT_CLOSE
            Fin()
        EndSwitch
WEnd
       
Func ImageCapture($a, $b, $c , $d)
    
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($Mainwindow)
    $hBMP = _ScreenCapture_Capture ("", $EntropiaPosX, $EntropiaPosY, $EntropiaTailleX, $EntropiaTailleY)
    $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP ($hBmp)
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 400, 200)
    _GDIPlus_ImageDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphic)
    _WinAPI_DeleteObject ($hBMP)
    
 
    
   
EndFunc


Func RechercheFenetreEntropia()
    $EntropiaSize = WinGetPos ($TitreEU)
    if @error = 1 Then
        Console ("Pas de fenetre trouvée")
        Fin()
    EndIf
    Console ( "Fenetre Trouvée ..." )
    $EntropiaPosX    = $EntropiaSize[0]
    $EntropiaPosY    = $EntropiaSize[1]
    $EntropiaTailleX = $EntropiaSize[2]
    $EntropiaTailleY = $EntropiaSize[3]
    Console (" Taille  : " & $EntropiaTailleX & "/" & $EntropiaTailleY )
    Console (" Pos     : " & $EntropiaPosX    & ":" & $EntropiaPosY)
EndFunc
       
Func Console($a_ecrire)
    GUICtrlSetData($Console, @CRLF & $a_ecrire, 1);
EndFunc

Func Fin()
    ; Procedure de fin de programme
    _GDIPlus_Shutdown()
    Exit
EndFunc
        
        
 

Désolé pour les maladresses de code, c'est mon premier script.

[Tlem]

Bonsoir. J'ai survolé extrêmement rapidement votre code et j'ai déjà remarqué deux grosses erreur dans votre code.

Toutes les lignes de commentaire doivent être précédées du symbole ';' (Elle doivent impérativement apparaitre en vert dans Scite).

Ensuite et surement un des problèmes du 'débordement mémoire', c'est que vous utilisez des fonctions _GDIPlus_xxxxx sans les fonctions :
- _GDIPlus_Startup ()
- _GDIPlus_ShutDown ()

Rajoutez les, et sans doute les choses fonctionneront mieux.

[raoullevert]

Merci pour la réponse rapide !

Pour les commentaires, je les ai rajouté a partir du forum, mais c'est toujours bon de le souligner.
Pour les fonction _GDIPlus_Startup et _GDIPlus_ShutDown, je ne les connaissaient simplement pas !
Je rajoute ça de suite.

EDIT :

En fait ca ne résouds pas le problème. J'ai ajoute les balises Startup et Shutdown autour de mes fonctions GDIPLus, pour la capture, et ca génère le même débordement. Il y a t il un moyen plus simple d'afficher une capture dans un Widget, sans passer par GDIPlus ?

[Tlem]

Vous avez ré-édité votre code, ce qui est une bonne chose, mais sur les 20 secondes pendent lesquelles j'ai regardé le code modifié, je note que les commentaire ne sont toujours pas modifiés ainsi l'absence de la fonction _GDIPlus_ShutDown.

Je ne sais pas si ça fonctionnera mieux, mais je vous conseille de placer la ligne :

Code : Tout sélectionner

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($Mainwindow)

au début de la fonction ImageCapture() et de rajouter _GDIPlus_ShutDown à la fin de celle-ci.

[raoullevert]

En fait j'ai placé

Code : Tout sélectionner

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($Mainwindow)

en début de fonction, et _GDIPlus_ShutDown en fin.
Le résultat est assez surprenant :
Avant le processus qui 'enflait' étais le gestionnaire de fenetres, ce qui est logique : je créais un widget sans le detruire.
Maintenant, l'utilisation de la RAM augmente, mais sans qu'aucune utilisation 'RAM' d'aucun processus n'augmente.
En gros le total augmente sans qu'aucun processus ne 'gonfle' ....

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <Timers.au3>

Global const $Titre = "EU Logger";
Global Const $Ver   = "0.01a";
Global Const $Largeur = 400;
Global Const $Hauteur = 400;

Global const $TitreEU = "Entropia Universe";
Global $EntropiaHandle  = 0;
Global $EntropiaPosX    = 0;
Global $EntropiaPosY    = 0;
Global $EntropiaTailleX = 0;
Global $EntropiaTailleY = 0;

global $hGraphic;



$MainWindow = GUICreate($Titre & $Ver, $Largeur, $Hauteur);
$Console    = GUICtrlCreateEdit( $Titre & "V. " & $Ver, 0, 190, 400, 200);
GUISetState()
_GDIPlus_Startup ()





Console( "Demarrage .....");
Console( "Recherche de la fenetre : ");
RechercheFenetreEntropia()
_Timer_SetTimer($MainWindow,100,"ImageCapture")


while 1
    $nMSG = GUIGetMsg()
    Switch $nMSG
        Case $GUI_EVENT_CLOSE
            Fin()
        EndSwitch
WEnd
       
Func ImageCapture($a, $b, $c , $d)
    _GDIPlus_Startup ()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($Mainwindow)
    $hBMP = _ScreenCapture_Capture ("", $EntropiaPosX, $EntropiaPosY, $EntropiaTailleX, $EntropiaTailleY)
    $hBitmap = _GDIPlus_BitmapCreateFromHBITMAP ($hBMP)
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 400, 200)
    _GDIPlus_ImageDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
   
EndFunc


Func RechercheFenetreEntropia()
    $EntropiaSize = WinGetPos ($TitreEU)
    if @error = 1 Then
        Console ("Pas de fenetre trouvée")
        Fin()
    EndIf
    Console ( "Fenetre Trouvée ..." )
    $EntropiaPosX    = $EntropiaSize[0]
    $EntropiaPosY    = $EntropiaSize[1]
    $EntropiaTailleX = $EntropiaSize[2]
    $EntropiaTailleY = $EntropiaSize[3]
    Console (" Taille  : " & $EntropiaTailleX & "/" & $EntropiaTailleY )
    Console (" Pos     : " & $EntropiaPosX    & ":" & $EntropiaPosY)
EndFunc
       
Func Console($a_ecrire)
    GUICtrlSetData($Console, @CRLF & $a_ecrire, 1);
EndFunc

Func Fin()
    ; Procedure de fin de programme
    Exit
EndFunc
        
        
        
 

Le problème viendrait de $hBMP. Quand je fais un _GDIPlus_BitmapDispose($hBMP), le script plante. De plus, quand je ne fais pas la conversion Bitmap -> hBitmap, il n'y a pas de fuite mémoire...

[Tlem]

Juste pour info :
La coloration syntaxique du code est réservée aux forums :

• - Exemples de script
  - Fonctions et UDF
  - Tutoriels

[raoullevert]

désolé, je le ferais plus

[raoullevert]

Au final j'ai résolu le problème :

_GDIPlus_Shutdown() a été mis dans la procédure fin().
_GDIPlus_Startup () à été mis au tout début du script.

L'erreur ne venait pas de la, mais de la "non-desalocation" de la variable $hBMP.
Pour dire a Windows de libérer la mémoire, il ne fallait pas faire un _GDIPlus_ImageDispose, mais un _WinAPI_DeleteObject ($hBMP).
Tout bêtement.

En tout cas merci du temps passé !