Discussion :

[directs]

Bonjour à tous,
J'ai fait un soft de lecture de photos avec affichage en vignette puis envoi possible par ftp...
Le tout fonctionne mais pas tel que je le voudrais ...
Un de mes soucis est que la lecture des images jpg d'un répertoire avec affichage en vignette est loooooonnng
Jpg > bitmap > redimensionnement...

Ma dernière recherche tourne autour de Graphics32 qui me semble aller plus vite mais franchement je manque un peu de code exemple. Quelqu'un aurait-il un bout de code pour faire de la lecture directement en vignette avec cette librairie ? Les exemples donnés ne sont pas concluants (pour moi )

D'avance merci bcp !

[tourlourou]

tu peux utiliser IJpeg.pas, une unité qui utilise une dll Intel et accélère le chargement des jpeg (# 4 x plus vite). tu la trouveras sur http://www.Phidels.com

pour extraire la vignette, pê du côté de LibTiff ???

[sovitec]

Graphics32 n'est qu'une library de dessin, elle n'apporte rien pour le chargement des images. Pire même elle charge l'image sous forme d'un TBitmap standard puis converti à son format interne.

Il n'y a que pour la partie redimensionnement qu'elle doit apporter un avantage. Mais il y a de grandes chance que la majeur partie du temps soit consacrée au chargement de l'image.

Certains JPEG possède une vignette (très) basse résolution qui permet d'avoir un aperçu de l'image en ne chargeant qu'un petit morceau du fichier (j'utilise leadtools pour faire cela mais c'est très cher, probablement existe-il d'autres library qui peuvent le faire aussi).

[Eric 90]

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
 
 vignette:=TJpegImage.Create;
 
 with vignette do
  begin
// Scale est le paramètre clé à régler en fonction de la taille de la photo à ouvrir
//  Chez moi, si la photo est de taille wxh, mon écran étant en 1280x960
 
        If (w>1280) or (h>1280) then Scale:=jsEighth
            else
         If (w>256) or (h>256) then Scale:=jsQuarter
             else
          If (w>64) or (h>64) then Scale:=jsHalf
             else
           Scale:=jsFullSize;
 
// donne de très bons et rapides résultats
 
  Performance:=jpBestSpeed;
  LoadFromFile(...)
   ...
   free;
 end;

Et puis, si tu affiches tes vignettes dans un bitmap (un fond blanc ou noir, par exemple), bitmap.PixelFormat:=pf16bit suffit largement.
Par exemple, je peux afficher 500 vignettes (mettons 8 par ligne et 6 lignes par écran) de photos d'environ 1 Mo en à peu près 40 secondes

[directs]

Je viens de voir vos réponses (absent hier) et je vais essayer tout cela !
Les pistes donnés sont très motivantes
merci et je vous tiens au courant !

[directs]

Donc j'ai laissé Graphics32...
J'ai essayé IJpeg mais qd je compile Delphi (2005) me rajoute automatiquement dans les uses 'jpeg' ... J'ai contourné en renommant mais Tjpegimage en Tijpeg mais pas concluant...
Par contre le scale et la perfomance sur le jepgimage que je n'utilisais pas , me font réduire de trois fois le temps de chargement sur mon jeu d'essais !!!

Je mets donc
Merci pour toutes vos réponses,
J'ai deux autres soucis sur ce soft mais je vais en faire un autre post...