EFFET D'EAU AVEC GETDIBITS ET SETDIBITS

Commentaire de cirec le 25/04/2007 18:50:51 administrateur CS

Salut,

chez moi j'ai pas le problème que cite Florenth ???

Et le bouton Tsunami fonctionne ???

Par contre au niveau perte de mémoire ... Aïe aïe aïe ;)

Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:



21 - 28 bytes: TBrush x 1, TPen x 1

29 - 36 bytes: TFont x 1, Unknown x 2

53 - 60 bytes: TBitmap x 2

61 - 68 bytes: Unknown x 1

93 - 100 bytes: TBitmapCanvas x 1

109 - 116 bytes: TBitmapImage x 2


---------------------------
OK  
---------------------------

Il faut penser à liberer les objets :)

Sinon l'effet est joli ... Bravo
Je regarderai le code de plus près dès que possible.

@+
Cirec

Commentaire de Ali_usto le 25/04/2007 19:57:21

SALUT , bravo l'effet est vraiment tres joli et ça marche tres bien chez moi
  bonne continuation...

Commentaire de barbichette le 25/04/2007 20:49:42

je vais donc regarder les problèmse d'allocation, même si au finale, il ne prend en gros que 6Mo en mémoire, mais pour une programmation propre, no problemo.

Pour la forme de la pierre, je vais me pencher aussi sur le problème.
A l'origine, je pensais que la pierre restait sous l'eau lors du déplacement, mais avec un effet de bord, ça serai surement plus joli...

Je poste tout ça d'ici peu...

Sinon, pour les 75% de CPU, c'est souvent le cas pour les effets visuelles comme ceux là... ça paraît rien comme ça mais ça bouf pas mal de cpu.
On peut d'ailleurs optimiser le tout en assembleur mais pour la lecture des néofites, bof bof...

Bon, merci a tous, même si, il faut bien le dire, cet effet n'a rien de révolutionnaire...

Commentaire de Forman le 26/04/2007 16:17:47

Salut,

ton code fonctionne avec les images fournies, mais je pense que
1/Tu as de la chance.
2/Ce ne serait pas le cas avec des images de taille différente (en particulier plus grande).

Je m'explique: les fonctions GetDIBits et SetDIBits travaillent avec des pointeurs vers un tableau de pixels. Bien que ce ne soit précisé nulle part sur MSDN, et pour des raisons connues de Microsoft seules (à supposer qu'il y en ait vraiment, d'ailleurs) le tableau qu'on leur passe en paramètre doit être situé sur une seule page de la mémoire virtuelle (il ne doit pas chevaucher 2 pages par exemple).

La fonction native de Delphi que tu utilises ici, GetMem à la ligne 175:
getmem(cailloux,bit.Width*bit.Height*4);
ne garantit absolument pas ce comportement-là. Pour être sûr que ça fonctionne, il existe une méthode:

procedure WinGetMem(var p:Pointer;Size:Cardinal);
begin
  p:=VirtualAlloc(nil,Size,MEM_COMMIT or MEM_RESERVE,PAGE_READWRITE);
  if not Assigned(p) then
    RaiseLastOSError;
end;

procedure WinFreeMem(p:Pointer);
begin
  if Assigned(p) and not VirtualFree(p,0,MEM_RELEASE) then
    RaiseLastOSError;
end;

En utilisant respectivement WinGetMem et WinFreeMem à la place de GetMem et FreeMem ça fonctionnera de la même façon et ça rendra ton code plus sûr. Essaie avec des images de taille plus grande, pas exemple 800x600 et tu verras que tu auras sûrement un problème (je le sais pour avoir passé des heures à m'arracher les cheveux pour essayer de comprendre pkoi ça marchait pas avec l'un de mes codes). Ce problème est pas exemple mentionné implicitement ici:
http://lists.ibiblio.org/pipermail/sm-spell-submit/2006-April/003307.html

En plus de corriger un éventuel bug, ça pourrait même accélérer ton code.

Commentaire de barbichette le 05/05/2007 01:03:44

Alors,
Mauricio, je vais voir pour faire un exemple plus simple,
Forman, j'ai essayé de mettre tes fonctions wingetmem et winfreemem à la place de getmem et freemem.
Malheureusement, j'ai maintenant un bug à la fermeture. Soit, j'écris en dehors d'un tableau, soit il y a un autre bug.
Je vais chercher le problème avant de poster la modif.
Merci pour l'info, c'est sûr que je n'aurai jamais cherché ici un bug pour des images plus grande...

a+

Commentaire de jpt le 25/08/2007 18:39:56

Hi !

@Barbichette : [quote]Malheureusement, j'ai maintenant un bug à la fermeture[/quote]
M'en suis sorti avec SetLength(vagues, wi*he*2*2); plutôt que le GetMem d'origine.
Et il y a un truc qui sert à rien :
//??  image1.Picture.Bitmap := tbitmap.Create;
Et Memcheck est pas content du tout si je décommente, ;-)

Dommage qu'il n'y ait pas plus de commentaires, difficile de démonter pour comprendre (et régler ce problème de "dépassement des limites" qui apparaît dans le timer si l'option est activée -- et si elle ne l'est pas, qu'est-ce que ça cache ?)
Bravo pour l'effet visuel, en tout cas !
--
jpt

PS : le lien cité par forman le 26/04 à 16:17 pointe sur un truc qui n'a rien à voir...

Commentaire de Forman le 25/08/2007 19:17:46

Ah oui: l'équivalent du malloc du C en Delphi c'est GetMem (peut être que le rapport est plus clair comme ça).

Commentaire de barbichette le 30/07/2008 09:32:11

dans les options de delphi, il doit y avoir un truc pour corriger ça.
Je ne sais plus où...
essaie déjà :
getmem(pointer(vagues),wi*he*2*2);