Thumbnail dans les JPEG

Signaler
Messages postés
5
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
9 juin 2004
-
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
Les fichiers JPEG issus des appareils photos numériques incorporent des données "EXIF" concernant les conditions de prises de vue (date, focale, vitesse, etc...)
C'est OK pour récupérer ces données.
Mais comment faire pour récupérer (et afficher) le "Thumbnail" (vignette) JPEG qui est en général incorporé dans le fichier JPEG de l'image????
L'intérêt est que ça irait beaucoup plus vite pour afficher les miniatures d'un répertoire plutôt que de charger les images entières puis les réduire en vignette.
Je sais que c'est possible (j'ai vu un programme qui marche super) mais y'avait pas les sources...
Merci

1 réponse

Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

exemple donnant des nombres aléatoire de 1 à 49 inclus(loto par exemple):

procedure TForm1.Button1Click(Sender: TObject);
begin
     randomize;
     panel1.caption:=inttostr(1+Random(49));
end;


DrJerome