Re-déclaration de array of TBitmap avec SetLength

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous

Celà fait 2 jours que j'ai des plantages de toutes sortes, ca va du blocage complet à memoire insuffisante et relance de D6 pour deblocage.

Je traite des images en temps réel (webcam) dont la quantité (1 à 10) peut varier d'ou l'utilisation de Setlength pour ajuster le nombre de BMP du tableau TabBmpAdd.
A la 1ere déclation c'est OK.

Mais dès le redimentionement (utilisation de setlength) c'est a chaque fois 2 messages d'erreur different, (à l'execution de la ligne SetLength) avec , F9 et le soft reprend s'il ne se bloque pas.

voici le principe du code utilisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 var TabBmpAdd : array of Tbitmap ; ........ SetLength(TabBmpAdd,Nombre_image+1); for i:=1 to Nombre_image do begin TabBmpAdd[i]:= tbitmap.Create; TabBmpAdd[i].height := TailleMire; TabBmpAdd[i].width := TailleMire; TabBmpAdd[i].PixelFormat := Pf24bit; end ;
Le but est d'analyser une partie de chaque image (de dimention TailleMire) par scanline qui fonctionne bien.

Y a-t-il une maniere plus appropriée pour gerer des BMP ?

Merci pour votre aide.

Pierre de Nice

Je pense qu'il faudrait supprimer les images avant de redimensionner ton tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
  For i := 0 to Length(TabBmpAdd) -1 do
    TabBmpAdd[i].free;
 
  SetLength(TabBmpAdd,Nombre_image+1);
  for i:=1 to Nombre_image do
   begin
      TabBmpAdd[i]:= tbitmap.Create;
      TabBmpAdd[i].height      := TailleMire;
      TabBmpAdd[i].width       := TailleMire;
      TabBmpAdd[i].PixelFormat := Pf24bit;
   end ;

30/06/2008, 09h31
Jipété

Yep !

J'ai l'impression que tu fais un SetLength mais que tu ne connais pas la taille nécessaire pour l'allocation mémoire, ou alors tu ne nous as pas montré comment tu calcules cette taille.

Pour moi la taille du tableau ARRAY of Tbitmap est le nombre d'image ?

merci pour votre aide ...
voici le code qui fonctionne mieux mais pas très stable (genre memoire insuffisante si je touche le code pendant l"execution, mettre un point d'arret) !

Toute fois je ne comprends pas trop pourquoi il faut liberer les birmap pour pouvoir redimentionner le tableau.

Le code provisoire qui tourne :
CBoxBmp est un CheckBox
BmpAdd est un bmp qui me sert part la suite à copier une zone d'une image
A noter que dans ce cas il n'y a pas besoin de liberer par un BmpAdd.free, le
simple BmpAdd:=Tbitmap.Create; suffirait à redimentionner le Bitmap .
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 procedure TMain.CBoxBmpClick(Sender: TObject); Var i : byte; NombreImage: byte; begin if CBoxBmp.Checked then begin NombreImage:=Listbox2.ItemIndex+1; form3.MEMO1.Lines.Append('CBoxBmp=true affectation des BMP'); BmpAdd:=Tbitmap.Create; BmpAdd.PixelFormat:=Pf24bit; BmpAdd.Height:=TailleMire; BmpAdd.Width:=TailleMire; SetLength(TabBmpAdd,NombreImage+1); for i:=0 to NombreImage do begin TabBmpAdd[i]:= tbitmap.Create; TabBmpAdd[i].height := TailleMire; TabBmpAdd[i].width := TailleMire; TabBmpAdd[i].PixelFormat := Pf24bit; end ; // bmpADD.Canvas.CopyRect(fonctions_pierre.,Bmp.Canvas,rect(debutX,debutY,FinX,FinY)) end else begin if assigned(Tabbmpadd)then For i := 0 to Length(TabBmpAdd)-1 do TabBmpAdd[i].free; form3.MEMO1.Lines.Append( 'cbox=false suppression des BMP'); end; end;
Il y a certainement des moyens plus appropriés pour travailler avec des BMP mais j'ai pas du tout la culture, a suivre .....

Cordialement

Pierre de Nice

30/06/2008, 16h57
Gilbert Geyer

Bonjour,

Citation:

voici le code qui fonctionne mieux mais pas très stable (genre memoire insuffisante ...) !

Toute fois je ne comprends pas trop pourquoi il faut liberer les birmap pour pouvoir redimentionner le tableau.

... ben justement : pour éviter de saturer la mémoire car "anciens bitmap's + nouveaux bitmap's" peut dépasser la mem-vive-disponible.

A+ :D
30/06/2008, 19h40
Franck SORIANO

Citation:

Je traite des images en temps réel (webcam) dont la quantité (1 à 10) peut varier d'ou l'utilisation de Setlength pour ajuster le nombre de BMP du tableau TabBmpAdd.

Comment ce passe le temps réel ? L'appli est multi-threadée ? C'est un événement qui se déclenche pour dire que les photos sont dispos ?

Dans ce cas, il ce pourrait que le traitement des images soit aléatoirement interrompu pour traiter les nouvelles images qui arrivent... Si ca peut se produire, c'est à coup sur la cause de tout tes problèmes.

Citation:

Toute fois je ne comprends pas trop pourquoi il faut liberer les birmap pour pouvoir redimentionner le tableau.

En soit ce n'est pas nécessaire, seulement il faut bien détruire les TBitmap qui ont été créés à un moment où à un autre. De préférence, dès qu'on a fini de s'en servir... sinon c'est le Out Of memory qui arrive tôt ou tard (en général en commençant par un très fort ralentissement car Windows swap tout sur disque, jusqu'au crash...).
06/07/2008, 08h02
Pierre de Nice

Bonjour à tous

merci pour votre aide, il faut effectivement effacer une à une les images d'un tableau de Bitmap avant de refaire un "SetLength .

Remarques :
Je fais Ctrl alt sup pour avoir le gestionnaire de tache window et dans l'onglet "Processus" on voit très bien le comportement de la mémoire ... et quand ca grimpe plus c'est tout bon !:yaisse2:

Cordialement

Pierre de Nice