Discussion :

[qfranck03]

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]

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

[qfranck03]

Cela ne fonctionne toujours pas meme avec loadfromstream

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

[Andnotor]

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

[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...

[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 ?

[qfranck03]

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