[Delphi 10.4.2] limite des 2 Go

Bonjour,

Je compile un programme qui a besoin de créer un BITMAP qui fasse 32768 X 16384 pixels, pour un besoin trés trés spécifique.

Je compile en 64 bits sur une machine qui a 32 Go de RAM.

Si je regarde la valeur max autoriser, Delphi me renvoi 65535 (soit $FFFFF).

Hors mon image reste dans la limite maxi autoriser, sauf que dés que cela dépasse les 2 Go de mémoire, le .create, plante.

Si je redéfini mon image a 32767 X 16383, la pas de soucis, le bitmap ce crée et je peux le sauver dans un PNG.

Ma question, est: y'a t'il une option dans Delphi pour dépasser cette limite des 2 Go en mode 64 bits (qui, il me semblait n'était que pour la version 32 bits) ?

J'ajoute qu'avant le Application.Initialize, j'ai rajouté ceci a mon programme:

Code:

---

1 2 3

GlobalUseDX := False; GlobalUseDirect2D := False;

---

Bonjour,

dans d'autres langages que Delphi, j'irais voir du côté de gcAllowVeryLargeObjects. Est-ce que cela a cours en Delphi ? Je ne sais pas.
Cordialement. Gilles

Citation:

---

Envoyé par der§en

Bonjour,

Je compile un programme qui a besoin de créer un BITMAP qui fasse 32768 X 16384 pixels, pour un besoin trés trés spécifique.

Je compile en 64 bits sur une machine qui a 32 Go de RAM.

Si je regarde la valeur max autoriser, Delphi me renvoi 65535 (soit $FFFFF).

Hors mon image reste dans la limite maxi autoriser, sauf que dés que cela dépasse les 2 Go de mémoire, le .create, plante.

Si je redéfini mon image a 32767 X 16383, la pas de soucis, le bitmap ce crée et je peux le sauver dans un PNG.

Ma question, est: y'a t'il une option dans Delphi pour dépasser cette limite des 2 Go en mode 64 bits (qui, il me semblait n'était que pour la version 32 bits) ?

---

Après un rapide coup d'oeil sur internet c'est pas forcément du coté de Delphi que cela pose problème, il semble que la taille d'un format bitmap soit limité sous Windows à 2147483647 octets (2 Go)
Et la largeur (ou la hauteur) ne peut en aucun cas dépasser 30000 pixels
Il te faudra utiliser un autre format d'image

Il semble que le format PNG peut monter jusqu’à 4GO sans limite de hauteur ou de largeur (à condition de rester dans la limite de 4GO bien sur)

Sinon Paint 32767 X 16383, il passe mais 32768 X 16384 le fait planter ... bon je n'ai que 8Go de RAM dont 5 déjà occupé avant même de lancer Paint :aie:
EDIt: il peut le sauvegarder mais pas le recharger :ptdr:

alors il est possible d'étendre la mémoire avec {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE} mais il y a quelques restrictions
http://docwiki.embarcadero.com/RADSt...a_m%C3%A9moire
notamment ça ne permet à priori pas d'avoir un bloc mémoire de 2Go

après ça me rappelle l'époque de Delphi 1 limité à 64Kb, à l'époque j'avais fait un composant GIF qui travaillait sur plusieurs zones mémoires car j'arrivais très vite aux limites du système...j'ai supprimé mon composant à une époque où un brevet interdisait l'usage légale du format GIF...je ne sais pas si je l'ai encore quelque part :)

donc je ne connais pas ton besoin mais je doute que tu ne puisses pas t'en sortir avec une mémoire partitionnée en éléments de plus petite taille...même si au final tu stockes tout cela dans un bitmap sur disque.

Merci, j’ai entre-temps essayé le flag IMAGE_FILE_LARGE_ADDRESS_AWARE sans que cela résolve mon PB.

pour test, j’ai réussi à créer un TBitmap en 65535 X 8191 et sauvé dans un PNG, et je l’ai ouvert dans Paint.NET

Donc, tant que l’on reste dans la limite des 2 Go, on est bon.

cela n’arrange pas mon affaire, c’est étrange cette limite des 2Go en mode 64 bits.

impardonnable oubli, j’utilise FireMonkey sur ce projet.

pour info, je viens de tester sur un Windows 32Bits, MSPaint est incapable de créer un bitmap de 32768 X 16384 pixels ;)

MSPaint, tss, tss, tss...

Et ton éditeur c’est EDLIN ?

:mouarf:

Donc, cette limite des 2 Go, elle vient d’Embarcadero ou bien de Microsoft ?

Citation:

---

Envoyé par der§en

Merci, j’ai entre-temps essayé le flag IMAGE_FILE_LARGE_ADDRESS_AWARE sans que cela résolve mon PB.

pour test, j’ai réussi à créer un TBitmap en 65535 X 8191 et sauvé dans un PNG, et je l’ai ouvert dans Paint.NET

Donc, tant que l’on reste dans la limite des 2 Go, on est bon.

cela n’arrange pas mon affaire, c’est étrange cette limite des 2Go en mode 64 bits.

impardonnable oubli, j’utilise FireMonkey sur ce projet.

---

Oui je l'ai exprimé au dessus. La limite n'est pas liée au mode 32 bits ou 64 bits mais au format BITMAP en lui même, ça n'a rien à voir avec la plateforme.
Si tu vas voir ici : https://fr.wikipedia.org/wiki/Windows_bitmap

Tu verra que dans l'entête du fichier BITMAP, la taille du fichier est exprimé sur 4 octets, donc pas plus de 2GO

Edit : La version anglaise est beaucoup plus détaillée, ici : https://en.wikipedia.org/wiki/BMP_file_format

Lorsque tu passe un fichier BITMAP à Windows pour le dessiner, l'entête est passé aussi car on y trouve le nombre de bits/pixel, la hauteur, la largeur, etc... Bref tout ce qu'il faut savoir sur l'image
Et Windows s'attend à une taille de données sur 4 octets et pas 8 !

Je redis que le format PNG peut permettre de dépasser cette limite, il semble pouvoir supporter des fichiers jusqu’à 4GO et pas de limite en largeur ni en hauteur tant que tu reste dans la limite des 4GO

Citation:

---

Envoyé par der§en

MSPaint, tss, tss, tss...

Et ton éditeur c’est EDLIN ?

:mouarf:

Donc, cette limite des 2 Go, elle vient d’Embarcadero ou bien de Microsoft ?

---

Qu'est ce que tu reproche à EDLIN, c'est un éditeur parfaitement stable, il ne reste plus aucun bug connu... Depuis le temps... :ptdr:

Un pour éclaircir un peu plus, un BITMAP c'est pas seulement un tableau de pixels.

Pièce jointe 592250

Bonjour,

j'ai l'impression qu'il y a une lègère confusion entre fichier Bitmap (avec les contraintes indiquées) et TBitmap la classe.
Comme un fichier PNG peut être plus gros il me semble que TImage.Picture.Bitmap doit pouvoir dépasser les 2Go mais peut-être que je me fourvoie (je n'ai jamais eu à faire avec des gros fichiers)

Donc la question est plutôt : est-ce que la classe TBitmap de Delphi se limite à 2Go ou pas ?

Citation:

---

Envoyé par SergioMaster

Bonjour,

j'ai l'impression qu'il y a une lègère confusion entre fichier Bitmap (avec les contraintes indiquées) et TBitmap la classe.
Comme un fichier PNG peut être plus gros il me semble que TImage.Picture.Bitmap doit pouvoir dépasser les 2Go mais peut-être que je me fourvoie (je n'ai jamais eu à faire avec des gros fichiers)

Donc la question est plutôt : est-ce que la classe TBitmap de Delphi se limite à 2Go ou pas ?

---

Je parle bien de TBitmap, de plus mes savetofile se font uniquement en PNG sous Firemonkey.

Citation:

---

Envoyé par sergio_is_back

Qu'est ce que tu reproche à EDLIN, c'est un éditeur parfaitement stable, il ne reste plus aucun bug connu... Depuis le temps... :ptdr:

---

c’est de la gniogniote ton EDLIN comparé au seul véritable éditeur de texte : XEDIT sur VM/CMS.

Citation:

---

Envoyé par der§en

c’est de la gniogniote ton EDLIN comparé au seul véritable éditeur de texte : XEDIT sur VM/CMS.

---

Pas eu la chance de le connaitre celui-ci !!!!

Par contre il y en avait un sous BULL GCOS 8 (l'éditeur du TDS avec les terminaux QUESTAR) qui était pas piqué des vers !

Citation:

---

Envoyé par SergioMaster

Bonjour,

j'ai l'impression qu'il y a une lègère confusion entre fichier Bitmap (avec les contraintes indiquées) et TBitmap la classe.
Comme un fichier PNG peut être plus gros il me semble que TImage.Picture.Bitmap doit pouvoir dépasser les 2Go mais peut-être que je me fourvoie (je n'ai jamais eu à faire avec des gros fichiers)

Donc la question est plutôt : est-ce que la classe TBitmap de Delphi se limite à 2Go ou pas ?

---

Je pense que la classe TBITMAP se base sur la norme pour respecter l'interopérabilité, surtout pour charger un bitmap avec LoadFromFile et le sauvegarder avec SaveToFile
Quel serait l’intérêt de sauvegarder un bitmap de 4Go par exemple, si tu ne peux pas l'importer avec un autre outil ?

Quand on regarde dans la VCL (et suppose pareil pour FMX, du moins s'il parle de bitmap à la mode Windows), on s’aperçoit que la classe TBitmap s'appuie sur les structures définies dans la Winapi.Windows

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

PBitmapInfoHeader = ^TBitmapInfoHeader; {$EXTERNALSYM tagBITMAPINFOHEADER} tagBITMAPINFOHEADER = record biSize: DWORD; biWidth: Longint; biHeight: Longint; biPlanes: Word; biBitCount: Word; biCompression: DWORD; biSizeImage: DWORD; biXPelsPerMeter: Longint; biYPelsPerMeter: Longint; biClrUsed: DWORD; biClrImportant: DWORD; end; TBitmapInfoHeader = tagBITMAPINFOHEADER;

---

Toutes les structures, TBitmapInfoHeader, TBitmapInfo, etc... utilisés en interne dans la classe utilisent des DWORD, donc 32 bits, je suis désolé mais la classe TBitmap s'appuie sur la "norme" bitmap ni plus ni moins

Sous Paint.NET, j'ai crée un PNG en 32768 X 32768, la sauvegarde sur disque a parfaitement fonctionné.

Joueur, je refait un test en 65536 X 65536, toujours en PNG, l'image a bien été crée, la colorier aussi, par contre au moment de la sauvegarde, j'ai eu un manque de mémoire. :aie:

Pièce jointe 592283

salut


peut etre la methode readsteam qui donne une size avec un longint ?
a priori c'est bien le dépassement de capacité d'un longint qui fait planté

Citation:

---

procedure ReadStream(Stream: TStream; Size: Longint);

---

type LongInt = -2147483648..2147483647;

représentation des différente taille selon largeur et hauteur

Citation:

---

Largeur	Hauteur	PixelFormat	Octet	Size
65535	8191	32	4	2 147 188 740
32768	16383	32	4	2 147 352 576
32768	16384	32	4	2 147 483 648

---

PS : a priori la lecture du bitmap a changé depuis quelques année ;)
mais la limitation du longint me semble cohérentes .... reste a savoir ou chercher :D