Transformer un bitmap

Version imprimable

14/08/2007, 23h26
dd_garion

Transformer un bitmap

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 :oops: ), 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 :aie:
15/08/2007, 00h28
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.
15/08/2007, 10h18
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.:)
15/08/2007, 10h25
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...

Voici un exemple de manipulation d'image sous delphi

Code:

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

15/08/2007, 10h49
Paul TOTH

3 pièce(s) jointe(s)

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
Pièce jointe 17967

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

XnView propose l'algorithme Floyd Steinberg qui donne ceci
Pièce jointe 17969

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) :D
15/08/2007, 11h29
PANORAMIC

Il y a aussi pour transformer une image en monochrome:

Code:

Image1.Picture.Bitmap.Monochrome := True;

avec:

Code:

Image1 : TImage;

et

Code:

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).
15/08/2007, 12h32
dd_garion

Merci pour toutes ces pistes, je les creuserai ce soir.

Une dernière sèries de questions (sorry, c'est la première fois que je dois jouer avec une image bitmap).

Je vais chercher une image quelconque (disons au format 600x480, 24 bits).

Si j'ai bien compris, cela veux dire que nous avons 600*480 Pixels et que chaques pixels contiendra des informations codés sur 24 Bits ???
La transfromation monochrome permettra de ne plus avoir que 2 bits par pixel ?

Autre choses, cette images je dois l'envoyer via le port série (c'est pour mon projet de TFE). Pour se faire j'utilise une mini classe que j'ai créé et qui permet les opérations d'ouverture, fermeture, écriture et lecture sur le port COM (les classiques quoi).

Quand je l'envoi, j'utilise la fonction writeFile(handle (pas de souci), buffer (petit soucis),...)

Je m'explique,

J'ai pour mon buffer qui est un tableau de byte...
J'aimerais que celui-ci contiennent :
1 charactère de début ok
1 numéro de fonction ok
Mon image --> pas ok, comment poser l'image byte par byte dans mon tableau de byte, mais à partir du troisième byte ???
1 charactère de fin ok
mon crc ok.

Merci à tous pour votre contribution :D
15/08/2007, 13h30
ALWEBER

Voila un exemple de traitement d'images en delphi. Regardes le parcours des lignes par scan.AnalyseImage.zip
15/08/2007, 15h16
PANORAMIC

Image monochrome = 1 bit/pixel
par exemple : 1=blanc, 0=noir