Discussion :

[ybruant]

Bonjour,

Disposant d'une série d'images jpg (disons de tailles 1500 x 1000), je souhaite les afficher sous forme de vignettes le plus rapidement possible. Une touche à répétition (flèche) faisant passer d'une image à l'autre.

L'affichage se fait actuellement dans un TImage de 128 x 128 avec les propriétés Stretch, Proportional et Center à True.
J'ai essayé :

Code :

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

Image.Picture.LoadFromFile('image.jpg')

ou

Code :

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

1
2
3
4
5
6
7
8
9
jpg := TJpegImage.Create;
try
  jpg.Performance := jpBestSpeed;
  jpg.Scale := jsEighth;
  jpg.LoadFromFile('image.jpg');
  Image.Picture.assign(jpg);
finally
  jpg.Free;
end;

Je n'ai pas noté d'amélioration de la vitesse d'affichage dans le second cas. Où est mon erreur ?

Merci d'avoir pris le temps de me lire...

[Nono40]

Pour NonoVisu j'ai aussi utilisé cette méthode
( http://nono40.developpez.com/nonovisu.html )
Voici la partie du code en question :

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
62
63
64
65
66
67
68
procedure TVignette.LectureVignette;
Var BitMap2 :TPicture;
    Rect    :TRect;
    Ecart   :Integer;
begin
  FBitMap.Width :=TailleBMP;
  FBitMap.Height:=TailleBMP;
  BitMap2:=TPicture.Create;
  Try
    FBitMap.Canvas.Pen  .Color:=clBtnFace;
    FBitMap.Canvas.Brush.Color:=clBtnFace;
    FBitMap.Canvas.Rectangle(0,0,TailleBMP,TailleBMP);
    Try
      BitMap2.LoadFromFile(FFichier);
      BitMapWidth  :=BitMap2.Width;
      BitMapHeight :=BitMap2.Height;
      // Optimisation de la lecture de la vignette en cas de JPEG
      If (BitMap2.Graphic Is TJpegImage) Then
      Begin
        If (Bitmap2.Width >= (TailleBMP*4)) Or (Bitmap2.Height >= (TailleBMP*4))
          Then TJpegImage(BitMap2.Graphic).Scale:=jsEighth
          Else If (Bitmap2.Width >= (TailleBMP*2)) Or (Bitmap2.Height >= (TailleBMP*2))
            Then TJpegImage(BitMap2.Graphic).Scale:=jsQuarter
            Else If (Bitmap2.Width >= (TailleBMP)) Or (Bitmap2.Height >= (TailleBMP))
              Then TJpegImage(BitMap2.Graphic).Scale:=jsHalf
              Else TJpegImage(BitMap2.Graphic).Scale:=jsFullSize;
      End;
 
      With Rect Do
      Begin
        If BitMap2.Width>BitMap2.Height
        Then Begin
          Top   :=0;
          Left  :=0;
          Bottom:=(TailleBMP*BitMap2.Height)Div BitMap2.Width;
          Right := TailleBMP;
          Ecart :=(TailleBMP-Bottom)Div 2;
          Inc(Top   ,Ecart);
          Inc(Bottom,Ecart);
        End
        Else Begin
          Top   :=0;
          Left  :=0;
          Bottom:= TailleBMP;
          Right :=(TailleBMP*BitMap2.Width)Div BitMap2.Height;
          Ecart :=(TailleBMP-Right)Div 2;
          Inc(Left ,Ecart);
          Inc(Right,Ecart);
        End;
      End;
      FBitMap.Canvas.StretchDraw(Rect,BitMap2.Graphic);
      FBitMapOK:=True;
    Except
      With Rect Do
      Begin
        Top   := 0;
        Left  := 0;
        Bottom:= TailleBMP;
        Right := TailleBMP;
        FBitMap.Canvas.StretchDraw(Rect,BMPErreur);
      End;
      FBitMapOK:=False;
    End;
  Finally
    BitMap2.Free;
  End;
  Invalidate;
end;

Deux remarques:
jpg.Performance n'est utilisé que pour la compression. A la lecture c'est inutile.
Le décodage n'est pas effectué sur le LoadFromFile mais sur la méthode privée "GetBitmap" implicitement appelée lors du Assign.
Il faut donc mettre Scale à jsEighth après le LoadFromFile.

Tu veras que cette la méthode que tu as prise sera effectivement beaucoup plus rapide qu'une lecture pleine échelle.

[ybruant]

Merci beaucoup pour cette réponse

J'ai donc modifié mon code comme suit :

Code :

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

1
2
3
4
5
6
7
8
jpg := TJpegImage.Create; 
try 
  jpg.LoadFromFile('image.jpg'); 
  jpg.Scale := jsEighth; 
  Image.Picture.assign(jpg); 
finally 
  jpg.Free; 
end;

mais il ne me semble pas que l'affichage soit plus rapide, qu'il y ait ou non la ligne jpg.Scale := jsEighth :

Enfin, je la laisse tout de même dans mon code final.

Amitiés.

Yves.

[Nono40]

Bizarre... Tu peux mettre l'image en ligne quelque part si ce n'est pas indiscret ?

[lil_jam63]

Je me permet de faire une ptite remarque à ce sujet, j'utilise moi aussi cette méthode de chargement mais je me suis aperçu que le chargement étais effectivement beaucoup plus rapide mais la qualité de la miniature est très décevante dans certains cas, je l'ai donc abandonnée. Et je suis resté sur le bon vieux loadFromFile() en stretch, ... Faudra choisir entre qualité et vitesse de chargement .

[Nono40]

lil_jam63
Regarde mon code de plus pret... Suivant la taille de l'image j'adapte l'échelle afin de ne pas perdre en qualité sur les petites images.

[lil_jam63]

J'ai remarqué cette adaptation mais malgré cela je me retrouve quand même avec une miniature pixélisée sur certaines images (pas toutes).