Discussion :

[Pierre de Nice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rayek]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ;

[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.

[Pierre de Nice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gilbert Geyer]

Bonjour,

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+

[Franck SORIANO]

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.

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...).

[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 !

Cordialement

Pierre de Nice