Discussion :

[PHIL45]

Re bonjour,

Comme on ne doit poser qu'une seule question par discussion, ce qui est logique, voici un autre problème lié à ma précedente question.

Je souhaite faire un enregistrement des TImages créer dynamiquement sur mon ScrollBox. Voici donc ma procédure :

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
 
    ... 
    //Je lis tous les TImages du ScrllBox...
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TImage
      then begin
                if OptionBMP.Checked
                then begin
                          Try
                             TImage(Components[i]).Picture.SaveToFile(ChemFic 
                                        + '.bmp');
                          Except
                             //ShowMessage('Image BMP imcompatible');
                          end;
                      end;
                if OptionICO.Checked
                then begin
                          Try
                             TImage(Components[i]).Picture.SaveToFile(ChemFic 
                                        + '.ico');
                          Except
                             //ShowMessage('Image ICO imcompatible');
                          end;
                      end;
 
             end;
     end; //for i := 0 to ComponentCount - 1 do

Les fichiers sont bien enregistrés sur le disque dur mais la qualité pour l'enregistrement des ICO est médiocre : l'image est dégradée !

Pour les BMP, c'est meilleur.

Faut-il préciser un autre propriété au monent de l'enregistrement ?
Exite t-il aussi un moyen de tester un fichier pour savoir si le type de l'image est un ICO ou BMP.

Merci encore pour votre aide !
Cordialement

[mick605]

Salut

Je veux pas dire de betises, mais je crois qu'un fichier ico n'est composé que de 16 couleurs ... Donc quand tu l'enregistres, tu perds des couleurs .... Il n'y a aucun moyen de le contourner, puisque c'est le format qui veut ca !

C'est ca ton probleme ?

[PHIL45]

Oui, c'est bien ça la qualité est vraiment mauvaise. Pour les BMP, c'est meilleur sans être non plus excellent. A l'écran les images sont belles. Pourtant, je les récupère depusi le compsant de l'écran mais ça ne donne pas un bon résultat. Peut-on définir le nbre de couleur à l'enregistrement ?

Cordialement

[mick605]

Non, le nombre de couleurs est défini par le type de fichier. Si tu prends un Bmp 24 bits, tu peux avoir beaucoup de couleurs ... Normalement, ca devrait suffir !

[Archimède]

Non, le nombre de couleurs est défini par le type de fichier. Si tu prends un Bmp 24 bits, tu peux avoir beaucoup de couleurs ... Normalement, ca devrait suffir !

tu as en effet 16.7 millions de possibilités sur 24 bits...

[Dr.Who]

juste un truc a ajouter, pas important mais quand même, pourquoi tu indente aussi large ?

ça reste lisible certes, mais c'est pas trés agréable à lire.
deux espaces suffises pourtant (tab reglé à 2 pas à 4)

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
begin
  if ... then
  begin
    faire(unTruc);
    for I := l to h do
    begin
      case I of
        0 : 
          begin
          end;
        1 :
          begin
          end;
        else
          ...  
    end;
  end
  else
  begin
    faire(unAutreTruc);
  end;
end;

[PHIL45]

Bonjour Dr.Who,

Non normalement, j'indente toujours avec un pas de 2, d'ailleurs suite à ton message j'ai vérifié : c'est bien 2 dans tous mes programmes. Je ne m'en rappelle pas mais j'ai faire un copier coller avec word et cela a du modifier mon indentation.

Merci pour ta remarque mais j'aurai préféré que tu puisses me donner une infos pour le problème que j'en rencontre.

Je reviens sur ce code un peu plus tard...

[ILP]

Pour l'enregistrement de tes icônes, essaye plutôt :

Code Pascal :

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

TImage(Components[i]).Picture.Icon.SaveToFile(ChemFic + '.ico');