TBitmap taille maximale

Version imprimable

02/12/2015, 16h20
Papy214

TBitmap taille maximale

Hello les gens,

Quelqu'un saurait-il me dire la taille maximale d'un TBitmap en FMX ?
Si j'essaye d'en faire un de 512 * 512 , je me ramasse une stack overflow.
En 408 * 408 , aucun problème.

Il doit y avoir une limite max mais impossible de trouver une info sur le sujet.

Après, pourquoi cette limite ???? La question reste posée :)

Bonjour,

Comment tu crées ce bitmap ?

je viens de faire l'essai (XE10) suivant sans soucis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm6.Button1Click(Sender: TObject);
var
 c: tbitmap;
 ARect : TRectF;  // donc rectangle FMX 
begin
 c:=TBitmap.Create(1000,1000);
 try
//  Showmessage('bitmap créé');
  ARect.Top:=0;
  ARect.Left:=0;
  ARect.Bottom:=800;
  ARect.Right:=600;
  c.ClearRect(ARect,TAlphaColors.Blue);
  c.SaveToFile('f:\test2.jpg');
 finally
  c.Free;
 end;

02/12/2015, 17h49
Papy214

autant pour moi, c'est pas le bitmap !

En fait, je le crée dans une fonction dans laquelle j'ai une variable

Pixs: array[0..1000, 0..1000] of Single;

C'est ça qui fait planter sauvagement à l'appel de la fonction 8O

Il y a une limite à la taille des tableaux maintenant ???
02/12/2015, 17h58
SergioMaster

Citation:

Envoyé par Papy214

autant pour moi, c'est pas le bitmap !

:fessee: :mouarf: au temps pour nous

Citation:

En fait, je le crée dans une fonction dans laquelle j'ai une variable
Pixs: array[0..1000, 0..1000] of Single;
C'est ça qui fait planter sauvagement à l'appel de la fonction 8O

montre la déclaration

Citation:

Il y a une limite à la taille des tableaux maintenant ???

comme pour le bitmap est-ce la cause de la taille ou plutôt de la déclaration dans la fonction ?
ne serait-il pas plus simple de passer un pointeur sur le tableau ?
02/12/2015, 18h07
Papy214

il est déclaré dans la fonction parce qau'il sert à différents calculs pour générer le bitmap final.

Mais pour voir, crée une fonction qui déclare un tableau comme celui-là, fait un appel au tableau dans le code de la fonction pour qu'il ne soit pas éliminé par l'optimiseur, et appelle la fonction depuis la form principale. Précision, je suis sur un "seattle"
02/12/2015, 22h46
Papy214

http://www.langue-fr.net/Au-temps-ou-autant-pour-moi

:P

Je ferai un effort pour faire le distingo ;)
03/12/2015, 08h26
SergioMaster
Bonjour

Citation:

Envoyé par Papy214

Je ferai un effort pour faire le distingo ;)

la fessée était pour l'erreur sur le Bitmap pas pour le langage ;)

pour en revenir donc au débordement de pile (j'ai testé moi aussi avec Seattle et sais donc de quel planton il s'agit)
quelques recherches dont celle-ci taille max d'un tableau dynamique ou dans les sources de l'unité système donne une idée des tailles maxi possibles (hélas généralement pour des tableau à une dimension)

suggestion passer par un tableau dynamique : multiArray : Array of Array of Single; // Multi-dimension array
et lui donner ensuite sa taille
Code:

1 2 3 SetLength(multiArray, 1000); for i:=0 to 1000 SetLength(multiArray[i], 1000);
j’émets cependant un doute sur le type d'array , sur ce que j'ai compris (entre les lignes) il semblerait que tu veuilles traiter les bits (je dvrais peut être plutôt dire pixels) d'une image ? Je ne suis pas très doué pour ce genre d'exercice mais AMHA Single n'est pas le bon type
suggestion de lecture dans le cas où j'aurais bien subodoré le besoin http://www.adug.org.au/technical/fmx...in-delphi-xe3/ bien que cela soit pour XE3 la philo reste la même

En fait, c'est du à la taille maximum pour les variables à l'intérieur d'une procédure.
Voir dans les options du projet, liaison , taille maximale de la pile, qui indique par défaut 1 048 576.

Le code suivant montre le dépassement et indique effectivement que le tableau dynamique est la solution.
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 procedure Test1; var T: array of array of single; begin SetLength(T, 572, 572); ShowMessage(IntToStr( Length(T[0]) * Length(T) * sizeof(Single) )); end; procedure Test2; var T: array[0..571, 0..571] of Single; begin ShowMessage(IntToStr( Length(T[0]) * Length(T) * sizeof(Single) )); end; procedure TForm3.FormCreate(Sender: TObject); begin // La taille maxi de la pile réservée aux variables dans une procédure est 1 048 576 et la déclaration du tableau (1 308 736) dépasse le maximum try Test1; Test2; except on E:Exception do ShowMessage(E.Message); end; end;
Pour le type de données, j'utilise ensuite TBitmapdata pour remplir l'image en fonction des valeurs du tableau selon une échelle de couleurs.
Il était donc plus simple de passer par un tableau pour définir des "hauteurs" indiquant au final quelle couleur utiliser pour chaque pixel.

03/12/2015, 10h39
exoseven

sinon pour répondre à la question il faut utiliser

Code:

TCanvasManager.DefaultCanvas.GetAttribute(TCanvasAttribute.MaxBitmapSize))
03/12/2015, 11h09
Papy214

Je ne connaissais pas cette façon de récupérer l'info.

Merci
03/12/2015, 12h21
tourlourou

Pendant qu'on y est, un Single est codé sur 4 octets, et un Bitmap voit ses pixels codés sur 4 octets, s'il est en pf32Bit.

Il doit donc être possible de se servir du BitMap pour lui attribuer d'abord des valeurs représentant celles nécessaires à tes calculs, en transtypant les pixels en Single, puis réattribuer les couleurs selon les valeurs => besoin d'un seul tableau i.e. le BitMap
03/12/2015, 14h31
Papy214

Citation:

Envoyé par tourlourou

Pendant qu'on y est, un Single est codé sur 4 octets, et un Bitmap voit ses pixels codés sur 4 octets, s'il est en pf32Bit.

Il doit donc être possible de se servir du BitMap pour lui attribuer d'abord des valeurs représentant celles nécessaires à tes calculs, en transtypant les pixels en Single, puis réattribuer les couleurs selon les valeurs => besoin d'un seul tableau i.e. le BitMap

J'avoue que je suis tenté de faire le test.
Un peu trop charette pour le faire d'ici demain soir mais ce w-e sera idéal pour l'expérience.