Discussion :

[[ZiP]]

Bonjour,

J'ai 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
19
20
21
22
23
24
25
 
     carte := TBitmap.Create;
     carte.Width := xmax*256;
     carte.Height := ymax*256;
     carte.PixelFormat := pf8bit;
 
     for i:=x1 to x2 do
     begin
          for j:=y1 to y2 do
          begin
               if FileExists(nom) then
               begin
                    png := TPNGObject.Create;
                    png.LoadFromFile(nom);
                    carte.Canvas.CopyRect(Rect(x*256,y*256,x*256)+png.Width,y*256)+png.Height),png.Canvas,Rect(0,0,png.Width,png.Height));
                    png.Free;
               end;
               Inc(y);
          end;
          y := 0;
          Inc(x);
     end;
 
     carte.SaveToFile(ExtractFilePath(Application.ExeName) + 'carte.bmp');
     carte.Free;

La carte est bien assemblée mais les couleurs sont horribles :



Voici les propriétés de mon PNG :



Savez-vous comment je peux corriger ce problème ?

Merci,
Mathieu

[Aka Guymelef]

Bonjour, pourquoi ne pas augmenter la valeur de PixelFormat ? Car là actuellement ton bitmap n'est configuré que pour utiliser une palette de 256 couleurs ce qui, forcement, limite les possibilités.

[[ZiP]]

Bonjour,

C'est vrai, je viens d'essayer avec :

Code :

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

1
2
 
carte.PixelFormat := pf32bit;

Le poids de mon image augmente mais le résultat reste identique.

Mathieu

[Aka Guymelef]

Et si tu essayes de faire la fusion des images dans une image de type TPNGObject puis que tu la sauvegarde au format BMP ?

[[ZiP]]

L'idée est très bonne surtout que le format BMP ne m'intéresse pas beaucoup de par sa taille, j'ai donc effectué les modifications nécessaires dont la majeure est la suivante :

Code :

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

1
2
 
carte := TPNGObject.CreateBlank(COLOR_RGB,16,xmax*256,ymax*256);

Mais mon image reste identique

Je ne comprends pas pourquoi...

Mathieu

[[ZiP]]

J'ai trouvé la solution, il faut passer par un TBitmap intermédiaire, du coup, je suis resté pour le moment sur une carte en TBitmap...

Par contre, lorsque je veux utiliser des valeurs plus grandes (xmax et ymax = 21), j'ai l'erreur :

Espace insuffisant pour traiter cette commande

Code :

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

1
2
3
4
 
     carte.Width := xmax*256;
     carte.Height := ymax*256;
     carte.PixelFormat := pf8bit;

Il me met l'erreur sur le carte.Height...

Savez-vous comment faire pour traiter une image de grande taille sans avoir ce type d'erreur ?

Merci,
Mathieu

[[ZiP]]

Le problème est résolu en passant par TPNGObject au lieu d'un TBitmap.

Mathieu