Discussion :

[dd_garion]

Bonsoir,

Je dois transformer un bitmap quelconque en un bitmap "allegé", c'est à dire en monochrome et dont la taille ne peut dépasser 480*256 Pixels (sera envoyer sur un écran monochrome).

J'ai bien lu quelques infos sur le bitmap, mais je dois dire que j'ai du mal à tout saisir.

Si quelqu'un aurait des explications ou des exemples (simple ), ce serait bien.

Quelqu'un peut-il me confirmer qu'une variable de type HDC est juste un handle sur un objet quelconque ???

Merci à tous

[Paul TOTH]

Bonjour,

pour le bitmap monochrome, j'imagine qu'il faut trouver un algorithme qui ne se contente pas de passer chaque pixel en noir ou blanc, mais qui tient compte des pixels voisins pour faire un tramé...

sinon le HDC est matérialisé sous Delphi par le Canvas (son Handle est un HDC), et un Canvas c'est un ensemble de méthodes de dessin, sur "quelquechose".
si c'est un Canvas d'imprimante il envoie des ordres d'impression, si c'est celui d'un bitmap, le dessin sera réalisé dans le bitamp, si c'est celui d'une fiche ou plus généralement d'un "control", il le sera à l'écran.

[dd_garion]

Bonour Paul,

Effectivement, je dois convertir le bitmap en bitmap manochromer 2 bits. Un peu comme on ferait dans paint avec fichier/enregistrer sous --> type monochrome.

La mémoire externe du terminal, sur lequel j'enverrai l'image ne faisant que 64 Ko et son écran étant un un écran monochrome CGA (si je ne dis pas de bêtise), je ne peux me permettre de lui envoyer un logo trop gourmand.

De plus je dois également adapté sa taille pour qu'il ne dépasse pas les 480*256 pixels.

En parlant de paint, ne serais t'il pas possible de l'utilser pour sauver le bitmap sous ... ? et modifier sa taille.

Merci de votre réponse.

[Paul TOTH]

non paint c'est pas terrible

mais XnView possède un tas de filtre et tout ce qu'il faut pour transformer les images, et il me semble qu'il existe une API, mais je n'ai jamais creusé la question...

[ALWEBER]

Voici un exemple de manipulation d'image sous delphi

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
  if FileExists(st_src) then
  begin
    st2 := st_dest + Copy(st1, 1, pos('.', st1)-1) + 'a.jpg';
    st3 := st_dest + Copy(st1, 1, pos('.', st1)-1) + 'b.jpg';
    if not FileExists(st2) and (f1(st2) = 0) then
    begin
      JPEG1 := TJPEGImage.Create;
      BMP1 := TBitmap.Create;
      try
        JPEG1.LoadFromFile(st_src);
        BMP1.assign(JPEG1);
        BMP1.Dormant;             // Libère les ressources GDI
        BMP1.FreeImage;           // Libère la mémoire.
        JPEG1.PixelFormat := jf8Bit;
        JPEG1.Grayscale := True;
        JPEG1.CompressionQuality := 66;
        JPEG1.Scale := jsQuarter;
        JPEG1.assign(BMP1);
        //JPEG1.Compress;
        JPEG1.SaveToFile(st2);
      except
        on EInvalidGraphic do JPEG1 := nil;
      end;
      Application.ProcessMessages;
      jpeg1.Free;
      BMP1.Free;
      Application.Initialize
    end ;
    if FileExists(st2) and not FileExists(st3) and (f1(st2) <> 0) and (f1(st3) = 0) then
    begin
      JPEG1 := TJPEGImage.Create;
      BMP1 := TBitmap.Create;
      try
        JPEG1.LoadFromFile(st2);
        BMP1.assign(JPEG1);
        BMP1.Dormant;             // Libère les ressources GDI
        BMP1.FreeImage;           // Libère la mémoire.
        JPEG1.PixelFormat := jf8Bit;
        JPEG1.Grayscale := True;
        JPEG1.CompressionQuality := 66;
        JPEG1.Scale := jsQuarter;
        JPEG1.assign(BMP1);
        //JPEG1.Compress;
        JPEG1.SaveToFile(st3);
      except
        on EInvalidGraphic do JPEG1 := nil;
      end ;
      Application.ProcessMessages;
      jpeg1.Free;
      BMP1.Free;
    end ;
  end;

Pour ce qui te concerne utilise la fonction stretch du composant image qui chargera ton image au format voulu

[Paul TOTH]

il est question d'image monochrome et non d'image en niveau de gris

je viens de faire un test rapide avec XnView

prenons une image colorée de départ


si je l'enregistre en bitmap monochrome sous Paint c'est très moche


XnView propose l'algorithme Floyd Steinberg qui donne ceci


et quand on a un nom on trouve des solutions, des fois pas très loin d'ici (décidément t'es trop fort Eric)

[PANORAMIC]

Il y a aussi pour transformer une image en monochrome:

Code :

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

Image1.Picture.Bitmap.Monochrome := True;

avec:

Code :

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

Image1 : TImage;

et

Code :

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

Image1.Picture.LoadFromFile('monimage.bmp');

Mais dans ce cas, on ne peut maîtriser le seuil (valeur au dela de laquelle on a du noir et en deça, du blanc).