Modifier le DPI d'une image

Version imprimable

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:

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;

01/06/2010, 13h40
Linkin

Tu fais un SaveToStream sur le Stream que tu as modifié, il ne faudrait pas faire un LoadFromStream?
01/06/2010, 19h31
qfranck03

DPI

Cela ne fonctionne toujours pas meme avec loadfromstream

Pas d'erreur mais la DPI de l'image ne change pas, ça m'énerve !!
01/06/2010, 20h53
Andnotor

Sans pouvoir te donner plus d'explication, je voudrais simplement savoir l'utilité de modifier le nombre de DPI du fichier :koi:.
01/06/2010, 21h21
Jipété

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...
02/06/2010, 12h49
tourlourou

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 ?
06/06/2010, 21h04
qfranck03

Utilité ?

Tout simplement que je dois transmettre des photos à mon boulot par une application interne et cela prend uniquement celles transmises en 300 DPI !!!
06/06/2010, 21h19
qfranck03

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!
08/06/2010, 13h40
qfranck03

Impossible

Est ce impossible avec DELPHI ???

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:

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;

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

Salut, Linkin

Citation:

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 ?

Citation:

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é :aie:

Citation:

Code:

index := POS('JFIF' + #$00, buffer);
08/06/2010, 16h11
Linkin

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).
09/06/2010, 11h28
tourlourou

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 !
09/06/2010, 20h05
qfranck03

JFIF

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 !
09/06/2010, 21h28
qfranck03

Pointer sur EXIF

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
09/06/2010, 21h39
Jipété

Bonsoir.

Citation:

Envoyé par qfranck03

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

:koi:

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, :mouarf:
Plus le lien de Tourlourou, bien sûr.

Bon courage,
09/06/2010, 21h43
Jipété

Citation:

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...
09/06/2010, 21h43
qfranck03

format jpeg exif

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