AVATARS IN MADNESS

Commentaire de cirec le 01/04/2009 13:00:37 administrateur CS

Salut,

il y a de grosses fuites de mémoire !!

voici la correction des fuites et du problème de chargement des Avatars depuis l'ImageList :

procedure TFMadness.InitAvatar;
var
  i: integer;
begin
  Randomize;
  DoubleBuffered := true;
  SetLength(Avatar, AvatarList.count);

  for i := 0 to AvatarList.count - 1 do
  begin
    Avatar[i] := TAvatar.Create(PBScreen.Canvas, PBScreen.ClientRect);  {on crée les objets }

    with Avatar[i] do
    begin
      Avatarlist.GetBitmap(i, AvatarBitmap);  // ne marche pas à la place du load dommage...???
      width := AvatarBitmap.width;
      height := AvatarBitmap.height;
    end;
  end;
end;

procedure TFMadness.FormCreate(Sender: TObject);
begin
//////////////////// MODIFICATION /////////////////////////////////////////////////
  InitAvatar;
end;


// ******** Ajouter l'évènement OnDestroy ************
procedure TFMadness.FormDestroy(Sender: TObject);
var I: Integer;
begin
  for I := low(Avatar) to High(Avatar) do
    Avatar[I].Free;
end;

les déplacements sont hypnotiques ^^

Commentaire de cirec le 01/04/2009 14:33:21 administrateur CS

Alors en ce qui concerne les fuites ... je te garanti qu'elles sont bien réelles et importantes.

Et non tous les objets ne sont pas libérés !!!
Les TAvatar ne sont jamais libérés .... il y a bien un destructeur d'implémenté mais il n'est appelé par personne.
d'ou la dernière modification pour faire appel au destructeur.
Si tu veux automatiser la chose il faut passer un TObjectList ou Dériver TAvatar de TComponent et lui donner un Owner qui se chargera de tout libérer à la fin.

Voici le détail des fuites avec le code d'origine.
---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:



21 - 28 bytes: TBrush x 14

29 - 36 bytes: TPen x 14, Unknown x 2

37 - 44 bytes: TFont x 14

61 - 68 bytes: TAvatar x 14, TBitmap x 28

101 - 108 bytes: TBitmapCanvas x 14

117 - 124 bytes: TBitmapImage x 28

149 - 156 bytes: Unknown x 1

et pour les images j'ai exactement le même résultat avec l'ImageList qu'avec les Bitmaps chargés depuis le disque ... la seule différence se trouve dans la taille des images .... celles de l'ImageList sont plus petites mais aucune différence dans l'affichage ou la transparence !!!
Testé sous D7 et D2009

Commentaire de cirec le 01/04/2009 15:50:09 administrateur CS

ah .. problème de version de Delphi ?
quelle version utilises-tu ?

Commentaire de cirec le 01/04/2009 16:36:16 administrateur CS

ouais ben y a un truc qui est pas claire ... j'ai modifier et compilé le code sous D7 également et ça fonctionne très bien !!!
j'ai pas fond blanc derrière !!

et pour tester les fuites je l'ai compilé sous Delphi 2009
en ajoutant cette ligne:
ReportMemoryLeaksOnShutdown := True;

disponible depuis TurboDelphi !!!

Commentaire de Bacterius le 01/04/2009 21:17:29

Oh je suis dedans :}
L'effet est effectivement hypnotique, ça va tellement vite que j'en ai la tête qui tourne ...

Cordialement, Bacterius !

PS : pourquoi tu m'as pas mis dans le bitmap 7 ? ^^ mais le 1 est bien aussi ça signifie plein de choses ... et puis je suis né le 1er aout après tout :p

Commentaire de Bacterius le 02/04/2009 17:03:29

Ben chez moi quand je décommentai la ligne GetBitmap (l. 72), un morceau du bitmap était découpé.
J'ai donc supprimé la ImageList, j'en ai créé une nouvelle, j'ai changé la taille à 80x80 et j'ai mis dedans tous les bitmaps des avatars. Ensuite, ça a marché sans problème avec la transparence (j'ai laissé clWhite comme couleur de transparence dans l'ajout des bitmaps d'avatars).

Cordialement, Bacterius !

Commentaire de Bacterius le 02/04/2009 17:33:31

C'est normal, un admin va te l'activer dans la journée :)
Petit bug passager de CS ...

Cordialement, Bacterius !

Commentaire de Nicolas___ le 02/04/2009 18:14:56

Salut Cantador , tu m'avais demandé des conseils , donc je parle ^^

je ne comprends pas pourquoi tu n'utilise pas mon TSpriteEngine , tu aurais la même chose plus facilement , plus rapidement et de plus , tu n'aurais même pas du utiliser de TImageList et co ...

En plus on peut pas dire que je n'ai pas poster des exemples pour l'utiliser :  
http://www.delphifr.com/codes/SPRITE-ENGINE-2D-FACILEMENT_49176.aspx
http://www.delphifr.com/codes/JEU-SHOOT-CANARD_49362.aspx

je ne veux pas "imposer" ma source mais tu aurais tout de même eu plus facile
(de plus tu aurais même pu t'amuser avec le facteur alpha ^^ ) ,
je vais bientôt poster une MAJ de celle-ci (
Possibilité de changer la taille des Sprites ,  
Grosse amélioration pour la partie sonore ...
)


Sinon je trouve le mouvement des avatars des plus ... chaotique ... 10 secondes de plus et mes yeux ne tenaient pas le coup ^^

Commentaire de cantador le 02/04/2009 21:56:15 administrateur CS

@MAURICIO: merci pour le comeback
@Nicolas___: oui, mais ce n'était pas pour faire un poisson d'avril, mais quelque chose de plus sérieux dont on reparlera (peut-être à plusieurs..)
Bacterius: faire le mouvement d'une abeille ?
ouais heu bon ok mais moi je fais la reine !

Commentaire de MAURICIO le 06/04/2009 23:23:51 administrateur CS

Bonsoir à tous,

voilà, j' ai testé et regardé la source.
Pour info, je suis sur delphi2009 et je regrette mon PentiumII: c' est TROP rapide!

Même si cette source ne sert pas à grand chose, elle a le mérite d' être instructive pour la création de class.

A+