Modifier le DPI d'une image

**qfranck03** · 01/06/2010, 13h22

bonjour
je souhaite choisir une image JPEG, qu'elle s'affiche dans un Timage, modifier le DPI de cette image en 300 DPI.

Je n'ai pas d'erreurs mais l'image ne prends pas en compte la resolution 300 DPI

Je deviens fou !!!

Si quelqu'un peut m'aider , grand MERCI !

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
procedure TForm1.Button2Click(Sender: TObject);
const
  BufferSize = 50;
  DPI = 1; //inch
  DPC = 2; //cm
var
  Buffer: string;
  index: INTEGER;
  FileStream: TFileStream;
  xResolution: WORD;
  yResolution: WORD;
  JpegImage: TJpegImage;
  _type: Byte;
  StrNomFichier:string;
 
begin
  If OpenDialog1.Execute
  then
   begin
    StrNomFichier:=(OpenDialog1.FileName);
    JpegImage := TJpegImage.Create;
 
    face.Picture.LoadFromFile(StrNomFichier);
 
    FileStream:= TFileStream.Create (OpenDialog1.FileName, fmOpenReadWrite);
 
 
    SetLength(Buffer, BufferSize);
    FileStream.Read(buffer[1], BufferSize);
    index := POS('JFIF' + #$00, buffer);
 
 
      FileStream.Seek(index + 6, soFromBeginning);
      _type := DPI;
      FileStream.write(_type, 1);
      xresolution := swap(300);
      FileStream.write(xresolution, 2);
      yresolution := swap(300);
      FileStream.write(yresolution, 2);
 
 
      JpegImage.SaveToStream(FileStream);
     // face.Picture.SaveToFile(imei.Text+'face.JPG');
 
 
    FileStream.Free;
    JpegImage.Free;
    //DeleteFile(StrNomFichier); }
  end;
 
 
end;

**Linkin** · 01/06/2010, 13h40

Tu fais un SaveToStream sur le Stream que tu as modifié, il ne faudrait pas faire un LoadFromStream?

**qfranck03** · 01/06/2010, 19h31

Cela ne fonctionne toujours pas meme avec loadfromstream

Pas d'erreur mais la DPI de l'image ne change pas, ça m'énerve !!

**Andnotor** · 01/06/2010, 20h53

Sans pouvoir te donner plus d'explication, je voudrais simplement savoir l'utilité de modifier le nombre de DPI du fichier

.

**Jipété** · 01/06/2010, 21h21

Salut.

Ton bout de code fonctionne, mais à UNE condition : qu'il y ait bien la chaine JFIF au début du fichier !
Je viens de tester avec une image qui était en 96 DPI, et elle se retrouve bien en 300.
Mais ça ne fonctionne pas pour un fichier qui commence par EXIF ! Et il y en a, surtout en provenance d'APN.

À voir avec un éditeur hexadécimal...

**tourlourou** · 02/06/2010, 12h49

Cette extension JFIF a été conçue pour ajouter des données manquantes dans les JPEG.
La norme EXIF définit d'autres moyens d'inclure ces données.
Le code de qfranck03 devrait éliminer les non-JFIF.

Second point : tous les viewers JPEG ne respectent pas les résolutions, prenant alors celle standard de l'écran. C'est pê le cas du TImage, au moins dans certaines versions de Delphi ?

**qfranck03** · 06/06/2010, 21h04

Tout simplement que je dois transmettre des photos à mon boulot par une application interne et cela prend uniquement celles transmises en 300 DPI !!!

**qfranck03** · 06/06/2010, 21h19

J'ai regardé l'image avec GIMP et toujours rien, les DPI inchangés, suis je à coté de la plaque ? ou est le schmilblic ? HELP!

**qfranck03** · 08/06/2010, 13h40

Est ce impossible avec DELPHI ???

**Linkin** · 08/06/2010, 14h15

Ton code fonctionne bien (en enlevant la partie en rouge évidemment, sinon on écrase le fichier modifié par l'original). (Test effectué avec un JPEG de 72 dpi passé en 300 dpi)

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
rocedure TForm1.Button2Click(Sender: TObject);
const
  BufferSize = 50;
  DPI = 1; //inch
  DPC = 2; //cm
var
  Buffer: string;
  index: INTEGER;
  FileStream: TFileStream;
  xResolution: WORD;
  yResolution: WORD;
  JpegImage: TJpegImage;
  _type: Byte;
  StrNomFichier:string;
 
begin
  If OpenDialog1.Execute
  then
   begin
    StrNomFichier:=(OpenDialog1.FileName);
    JpegImage := TJpegImage.Create;
 
    face.Picture.LoadFromFile(StrNomFichier);
 
    FileStream:= TFileStream.Create (OpenDialog1.FileName, fmOpenReadWrite);
 
 
    SetLength(Buffer, BufferSize);
    FileStream.Read(buffer[1], BufferSize);
    index := POS('JFIF' + #$00, buffer);
 
 
      FileStream.Seek(index + 6, soFromBeginning);
      _type := DPI;
      FileStream.write(_type, 1);
      xresolution := swap(300);
      FileStream.write(xresolution, 2);
      yresolution := swap(300);
      FileStream.write(yresolution, 2);
 

      //JpegImage.SaveToStream(FileStream);
 
     // face.Picture.SaveToFile(imei.Text+'face.JPG');
 
 
    FileStream.Free;
    JpegImage.Free;
    //DeleteFile(StrNomFichier); }
  end;
end;

**Jipété** · 08/06/2010, 15h48

Salut, Linkin

Envoyé par Linkin

Ton code fonctionne bien (en enlevant la partie en rouge évidemment, sinon on écrase le fichier modifié par l'original). (Test effectué avec un JPEG de 72 dpi passé en 300 dpi)

As-tu pris en compte mes remarques du 1er juin dans ton test ?

Ton bout de code fonctionne, mais à UNE condition : qu'il y ait bien la chaine JFIF au début du fichier !
Je viens de tester avec une image qui était en 96 DPI, et elle se retrouve bien en 300.
Mais ça ne fonctionne pas pour un fichier qui commence par EXIF ! Et il y en a, surtout en provenance d'APN.

À voir avec un éditeur hexadécimal...

Car l'auteur du post cherche la string JFIF dans le fichier, et si elle n'y est pas, pâté

Code :

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

index := POS('JFIF' + #$00, buffer);

**Linkin** · 08/06/2010, 16h11

Houlà, je suis fatigué, j'avais cru comprendre que ses fichiers contenaient aussi JFIF.

Désolé.

Edit: Pour les EXIF, peut-être regarder du côté de CCR Exif (sur Torry).

**tourlourou** · 09/06/2010, 11h28

le format JFIF est assez simple (http://www.phidels.com/php/tutoriaux/zip/exif.zip) s'il suffit de transmettre des images JPEG sans vignette : grâce au TJpegImage, on peut charger le JPEG et l'enregistrer au format JPEG seul -> image "pure" qui commence par $FFD8 et finit par $FFD9.

on colle une en-tête JFIF :

$FFD8 = Start Of Image
$FFE0 = Application 0
$0100 = 16 octets de la section APP0 suivent son marqueur
$4A46494600 = 'JFIF'#0
$0102 = version 1.02
$01 = résolution en DPI
$012C = 300 Horizontal
$012C = 300 Vertical
$00 = pas de vignette ...
$00 = ... BitMap24 à la suite

et l'image JPEG à sa suite

$FFD8 ... $FFD9

et hop !

**qfranck03** · 09/06/2010, 20h05

Bonjour
merci de m'éclairer, je commence à mieux comprendre !
Y a t-il une procédure pour ajouter une structure JFIF à un jpeg n'en contenant pas ?
encore merci à tous !

**qfranck03** · 09/06/2010, 21h28

Peut on de la meme maniere :
index := POS('JFIF' + #$00, buffer);

Faire
index := POS('EXIF' + #$00, buffer);

mais je ne suis pas sur que #$00 soit la bonne adresse ?

merci

**Jipété** · 09/06/2010, 21h39

Bonsoir.

Envoyé par qfranck03

Y a t-il une procédure pour ajouter une structure JFIF à un jpeg n'en contenant pas ?

Perso, je chercherais plutôt à comprendre le format d'une image JPEG-EXIF, pour aller y chercher les infos qui m'intéressent, et les modifier ensuite. Surement plus facile !

Et comme google est notre ami à tous, si tu tapes simplement "format jpeg exif", ça va te faire environ 39 500 000 pages à lire,

Plus le lien de Tourlourou, bien sûr.

Bon courage,

**Jipété** · 09/06/2010, 21h43

Envoyé par qfranck03

mais je ne suis pas sur que #$00 soit la bonne adresse ?

Mais bien sûr que non !

As-tu bien lu ma première réponse ? Sais-tu te servir d'un éditeur hexa pour voir comment est structuré ton fichier ?
Tout passe par là : démonter, regarder et comprendre, avec la doc qui va bien...

**qfranck03** · 09/06/2010, 21h43

J'ai plus ou moins compris mais c'est ensuite ecrire le code pour modifier la résolution que je tourne en rond depuis pas mal de temps

Modifier le DPI d'une image

Langage Delphi

Discussions similaires

Partager

Partager