Discussion :

[der§en]

Le code suivant:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmap;
begin
  fBmp := TBZBitmap.Create(32767, 16383);
  try
    fBmp.Clear(clrBlue);
 
 
    fBmp.SaveToFile('IMG.jpg');
 
 
    ShowMessage('Sauvegarde terminé');
  finally
    fBmp.free;
  end;
end;

Donne ceci a l'exécution:

[der§en]

Si je rajoute dans les uses BZImageFileJPEG, c'est bon, le JPG est bien crée, et il se charge sans PB aussi bien sous PAINT.NET que sous AFFINITY PHOTO

[der§en]

Ouverture dans PAINT.NET et Affinity Photo d'une image en 43200 X 43200 pixels :

[BeanzMaster]

Si je rajoute dans les uses BZImageFileJPEG, c'est bon, le JPG est bien crée, et il se charge sans PB aussi bien sous PAINT.NET que sous AFFINITY PHOTO

Hello tu peux directement inclure l'unité BZBitmapIO qui est une unité de convenance, qui recense tous les formats pris en charge, en lieu et place des BZImageFileXXX ça évite de se prendre la tête, à se souvenir des différents nom d'unité et de les inclures un à un.

Note : Pour la prochaine mise à jour, l'enregistrement aux formats BMP et TGA fonctionne

A+

[der§en]

Ceci fonctionne pour la création de l'image, mais pas pour la sauvegarde dans un JPEG :

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmap;
begin
  DoubleBuffered := False;
 
 
  fBmp := TBZBitmap.Create(86400, 43200); 
  try
    fBmp.Clear(clrLime);
 
 
    ShowMessage('Création terminé');
 
 
    fBmp.SaveToFile('IMG.jpg');
 
 
    ShowMessage('Sauvegarde terminé');
  finally
    fBmp.free;
  end;
end;

La création du TBZBitmap + les progs résidents, me consomme 18 GO de RAM m'en laissant 14 de dispose (non compressé).

Mais au moment du SaveToFile: CRASH mémoire, il me dis que je n'ai pas assez, bizarre !

Il n'y a pas dédoublement en mémoire de l'image pour effectuer la sauvegarde , dés fois ?

[BeanzMaster]

Peux tu me dire l'erreur qui s'affiche exactement, dans quelle unité est-elle levée ? Ne disposant que 16go de ram, ça ne passera surement pas chez moi pour tester une image de cette taille. Je vais regarder jusque ou je peux aller.

[BeanzMaster]

... Je vais regarder si je peux passer le bitmap en référence ou les données, plutôt que le copier.

C'est fait, encore un problème de résolu ! c'est dans la fournée de la prochaine mise à jour mineur


A+

Jérôme

[der§en]

Du coup, je suis dans l'attente de cette MERVEILLEUSE mise a jour mineur

Sinon, ce code la plante aussi a la sauvegarde:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmapJPEGImage;
begin
  DoubleBuffered := False;
 
 
  fBmp := TBZBitmapJPEGImage.Create(86400, 43200);
  try
    fBmp.Clear(clrLime);
 
 
    ShowMessage('Création terminé');
 
 
    fBmp.SaveToFile('IMG86400X43200.jpg');
 
 
    ShowMessage('Sauvegarde terminé');
  finally
    fBmp.free;
  end;
end;

Voici l'erreur :

[BeanzMaster]

"Fichier non ouvert" !, alors celle-la elle est bien bonne

[der§en]

C'est fait, encore un problème de résolu ! c'est dans la fournée de la prochaine mise à jour mineur

A+

Jérôme

Tu peux confirmer si ce PB, est résolue avec la publication de ta nouvelle MAJ ?

[BeanzMaster]

Tu peux confirmer si ce PB, est résolue avec la publication de ta nouvelle MAJ ?

Salut

Pour le TGA et le BMP j'ai réglé le problème.Ca devrait être bon.
Pour le JPEG je n'arrive pas à reproduire ton erreur. J'aurais besoin de savoir ou le code plante, si c'est dans mon code ou dans les unités de prise en charge du format Jpeg (unités provenant de FPC : JPEGLib, JdAPImin, JcAPImin, JDataSrc, JDataDst, JdAPIstd, JcAPIstd, JcParam, JError)

A+

[der§en]

Je pense qu'il y a encore des soucis:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmap;
begin
  DoubleBuffered := False;
 
  fBmp := TBZBitmap.Create(32768, 16384);
  try
    fBmp.Clear(clrLime);
 
    ShowMessage('Création terminé');
 
    fBmp.SaveToFile('IMG32768X16384.tga');
 
    ShowMessage('Sauvegarde terminé');
  finally
    fBmp.free;
  end;
end;

Résultat:


Sur la ligne:


Même erreur pour BMP, JPG, par contre en PNG, pas d'erreur mais le fichier ne fait qu'1 kilo, au lieu d'être vide comme pour les autre formats.

Et, plus précisément:

[BeanzMaster]

Je pense qu'il y a encore des soucis:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmap;
begin
  DoubleBuffered := False;
 
  fBmp := TBZBitmap.Create(32768, 16384);
  try
    fBmp.Clear(clrLime);
 
    ShowMessage('Création terminé');
 
    fBmp.SaveToFile('IMG32768X16384.tga');
 
    ShowMessage('Sauvegarde terminé');
  finally
    fBmp.free;
  end;
end;

Salut, pour le PNG, c'est normal, je n'ai pas encore finalisé l'enregistrement dans ce format.
Pour l'erreur, ci-dessus, je vais regarder de plus près (je crois savoir d'ou cela viens, quand j'ai testé, mon unité n'a certainement pas du être re-compilées).

Merci

A+ Jérôme

[BeanzMaster]

Pour que l'enregistrement des images re-fonctionne,

Dans BZBitmap.pas à la ligne 10360 dans la méthode TBZBitmap.SaveToFile

Code :

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

1
2
3
4
5
  Try
    tempImage.Assign(Self); //----> De-Commentes cette ligne
    //tempImage.AssignBitmapAsRef(Self); //----> Commente cette ligne
    tempImage.SaveToFile(FileName);
  Finally

Par contre avec ton image de 84 milles pixels et des poussières cela risque de ne plus fonctionner suivant ta mémoire libre

Sinon autre solution utiliser directement la classe qui gère le format TGA

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
Uses
   BZImageFileTGA;     
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmapTGAImage;//TBZBitmap;
begin
  DoubleBuffered := False;
 
  fBmp := TBZBitmapTGAImage.Create(32768, 16384);   //TBZBitmap.Create(32768, 16384);
  try
    fBmp.Clear(clrLime);
 
    ShowMessage('Création terminé');
 
    // On a alors accès aux options de sauvegarde
    fBmp.SavingOptions.AutoFormat := True;
    fBmp.SavingOptions.Commpressed := True;  // Attention la compression prend du temps !
 
    fBmp.SaveToFile('IMG32768X16384.tga');
 
    ShowMessage('Sauvegarde terminé');
  finally
    fBmp.free;
  end;
end;

[der§en]

En utilisant directement "TBZBitmapTGAImage", la sauvegarde du test fonctionne mais ne s'ouvre que sous Paint.NET, sous Affinity Photo, cela plante le logiciel.

Je suis parti pour faire un test de 65536 X 32768, pour voir .

[der§en]

Pour que l'enregistrement des images re-fonctionne,

Dans BZBitmap.pas à la ligne 10360 dans la méthode TBZBitmap.SaveToFile

Code :

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

1
2
3
4
5
  Try
    tempImage.Assign(Self); //----> De-Commentes cette ligne
    //tempImage.AssignBitmapAsRef(Self); //----> Commente cette ligne
    tempImage.SaveToFile(FileName);
  Finally

Je peux attendre que la routine soit fiabilisé, j'ai trop besoin de créer mes images extrêmes...

[BeanzMaster]

En utilisant directement "TBZBitmapTGAImage", la sauvegarde du test fonctionne mais ne s'ouvre que sous Paint.NET, sous Affinity Photo, cela plante le logiciel.

Je suis parti pour faire un test de 65536 X 32768, pour voir .

Oui je crois que mon en-tête n'est pas tout à fait bonne, c'est pareil chez moi avec FastOneImageViewer l'image ne s'ouvre pas, mais ok avec IrfanView

[der§en]

A ce jour, il y a un format d’image dans BZScene qui fonctionne dans une résolution supérieur à 32768 pixels ?

[BeanzMaster]

A ce jour, il y a un format d’image dans BZScene qui fonctionne dans une résolution supérieur à 32768 pixels ?

Salut, avant de répondre plus précisément, faisons un petit tour par les spécifications valides des différents format de fichier :

BMP : les dimensions maximum d'un fichier BMP valide sont de 32K x 32K (ou taille des données max 4Go en 64bit et 2Go en 32bit)
TGA : les dimensions maximum d'un fichier TGA valide sont de 32K x 32K
JPEG : les dimensions maximum d'un fichier JPEG valide sont de 64K x 64K
PNG : les dimensions maximum d'un fichier PNG valide sont de 2G x 2G
TIFF : les dimensions maximum d'un fichier TIFF valide sont de 4G x 4G

En théorie, les fichiers :

BMP : peuvent supportés des dimensions jusqu'à 2G x 2G
TGA : peuvent supportés des dimensions jusqu'à 64K x 64K
JPEG : peuvent supportés des dimensions jusqu'à 2G x 2G (mais je doute que la majorité des encodeurs/décodeurs supportent des dimensions au delà de 64K x 64K )


J'ai donc fait un petit test pour mettre tout ça en évidence. J'ai poussé ma machine au fond dans ces retranchements.
A l'aide de BZScene, j'ai créé une image aux dimensions de 45K x 45K ( soit presque 6Go en mémoire) et l'ai sauvegardé au format BMP, TGA et JPEG

J'ai ensuite tenté d'ouvrir ces images dans différents logiciels.

Note : Au début de ces tests, il me reste presque 12Go de libre en RAM sur 16Go. Je n'ai que l'explorateur de fichier et le gestionnaire de tâches ouvert, à ce moment.

	FastOne Image Viewer	IrfanView	XN-View	Gimp	Paint.net	Affinity photo	BZScene
BMP*	NOK (fichier invalide)	OK	NOK (pas assez de mémoire)	NOK (fichier invalide)	NOK (fichier invalide)	OK	OK
TGA	NOK (fichier invalide)	NOK (fichier invalide)	NOK (pas assez de mémoire)	OK	OK	NOK (plantage)	OK
JPEG	OK	OK	NOK (pas assez de mémoire)	OK	OK	OK	OK

*Note : pour BZScene et le format BMP, j'ai du désactiver la vérification des dimensions dans le code (sinon retourne une erreur : Dimensions invalides).

Comme on peut le voir l'ouverture de ces fichiers générés, dépendent de comment les formats sont gérés, pris en charge, et de la gestion de la mémoire par les différents logiciels.
Le chargement, dépend donc, surtout, de la quantité d'espace de mémoire RAM libre par rapport aux dimensions de l'image.

Le format de fichier qui répondra le plus à tes attentes, avec BZScene sera le PNG dès que j'aurai fini de coder la prise en charge de l'enregistrement de celui-ci.

Voilà, j'espère avoir répondu à ta question en attendant le support du format PNG en écriture par BZScene.

A+

Jérôme

[der§en]

Je suis donc partie pour l’instant sur un test en JPG.

Mais cela plante a la sauvegarde, il me semble, car le fichier JPG est a zéro, j'ai une levé de classe d'exception "RunError(103).

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fBmp: TBZBitmapJPEGImage;
begin
  DoubleBuffered := False;
 
  fBmp := TBZBitmapJPEGImage.Create(65536, 32768);
  try
    fBmp.Clear(clrBlue);
 
    // On a alors accès aux options de sauvegarde.
    fBmp.CompressionQuality := 85;
 
    fBmp.SaveToFile('IMG65536X32768.jpg');
 
    fBmp.free;
 
    ShowMessage('Sauvegarde terminé.');
  Except
    ShowMessage('Erreur de sauvegarde.');
  end;
end;