Discussion :

[colorid]

Bonjour,

Pour une application très spécifique j'ai besoin de convertir une image au format TIF 1 bit en image BMP RGB24. J'obtiendrai naturellement une image en noir et blanc en 24 bits mais c'est justement l'objet de la manoeuvre.

Quelqu'un peut-il m'aider ?

[ShaiLeTroll]

Méthode Moche,
Tu modifie largeur et hauteur de ton BitMap
Tu lit Bit par Bit ton Image TIF, et tu affecté 0000000 ou FFFFFFFF à Pixels du TBitmap ... si c'est ton image de 9milliars de Bit, tu vas juste exploser la mémoire !

Donc, tu es bon, pour te palucher toi même la gestion du format BMP directement sur le fichier ...

[colorid]

En fait je peux charger en mémoire un fichier bitmap au format du fo=ichier tif. Mais comment lire le fichier Tif bit par bit ?

[ShaiLeTroll]

Pour le Fichier TIF, je ne sais pas, j'ai cru que tu savais déjà le faire puisque tu voulais utiliser le TBits ...

[Dr.Who]

format TIF 1 bit en image BMP RGB24

TIF 1bpp -> Bitmap 1bpp!

tu affecté 0000000 ou FFFFFFFF à Pixels du TBitmap

methode moche -> Scanline!
en passant par Pixels, non seulement il vas exploser la memoire, mais il vas aussi attendre 3 siecles avec son image de 800mo !



donc on dit :

une lib TIF

et un Bitmap.Assign(TIFImage)


follow -> http://esibert.developpez.com/delphi/libtiff/

[colorid]

J'ai chargé la lib sur le lien "follow"

Dans le source décrit sur ce lien une varaible "density" est utilisée sans qu'elle soit définie.
Par ailleurs comment obtenir le TiffImage à partir de ce source pour l'assigner à un bitmap ?

[JJJJJ]

Bonjour,

ce n'est pas pour répondre précisément à la question posée. Mais je profite de ce topic pour faire état d'une difficulté fréquente :
Il s'agit d'afficher une image avec Delphi alors que cette image est dans un format non reconnu par Delphi, par exemple .TIF, .PNG, etc.
Bien sûr, on peut préalablement la convertir en .bmp grâce à un logiciel de traitement d'image.
Au lieu de le faire "à la main", on peut programmer dans l'application Delphi un appel au logiciel de traitement d'image et "automatiser" le processus avec les commandes nécessaires.
Par exemple l'application suivante fait appel à "mspaint" qui lit le fichier "Photo1.TIF", le converti en .bmp , le met dans le presse-papier, qui est finalement lu par l'application et affiché sur Form1.Image1.

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
53
54
55
56
57
58
59
60
61
 
var
   Form1: TForm1;
   monImage:PChar;
   ImgHandle : THandle;
Const
     maPhoto:PChar='Photo1.TIF';
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     timer1.enabled:=false;
     timer2.enabled:=false;
     timer1.interval:=2000;
     timer2.interval:=2000;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     ShellExecute(0,'OPEN','mspaint.exe',maphoto, Nil, SW_SHOW);
     timer1.enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
                {donne le temps à mspaint.exe de s'ouvrir et de lire le fichier}
begin
     timer1.enabled:=false;
 
     monImage:=PChar(maPhoto+' - Paint');
     ImgHandle := FindWindow(nil,monImage);
               {il faut que le focus soit sur l'image dans mspaint}
     BringWindowToTop(ImgHandle);
                             { ensuite, sélection de l'image : }
     keybd_event(17, 0, 0, 0);
     keybd_event(65, 0, 0, 0);
     keybd_event(17, 0, 2, 0);
     keybd_event(65, 0, 2, 0);
                             {conversion au format par défaut (.bmp)
                             et copie dans le presse-papier : }
     keybd_event(17, 0, 0, 0);
     keybd_event(67, 0, 0, 0);
     keybd_event(17, 0, 2, 0);
     keybd_event(67, 0, 2, 0);
 
     timer2.enabled:=true;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
              {donne le temps de convertir et copier l'image}
begin
     timer2.enabled:=false;
     image1.autoSize:=true;
     image1.picture.assign(clipboard);
     image1.visible:=true;
     SendMessage(ImgHandle,WM_CLOSE,0,0);  {mspaint est clos}
end;
 
{Finalement image1.picture.BitMap contient l'image initiale convertie}

( il faut ShellApi,clipbrd,ExtCtrls dans les uses )
Evidemment, comme cela, c'est trop rustique : il faudrait ajouter des tests d'existence, mettre des wait pour optimiser les délais d'exécution, etc. Mais ça marche quand même.
Les spécialistes vont surement se tirbouchonner en voyant une méthode aussi naïve, alors qu'il existe certainement des modules pour convertir en .bmp des tas de formats différents.
Malheureusement, on n'a pas toujours le bon module de conversion disponible pour l'incorporer à l'application. Avec cette méthode lourdingue, on peut quand même lire n'importe quel fichier dont le format est reconnu par mspaint.