Thumbnail dans les JPEG

cs_ricrak Messages postés 5 Date d'inscription mardi 10 juin 2003 Statut Membre Dernière intervention 9 juin 2004 - 2 juin 2004 à 17:32
DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015 - 2 juin 2004 à 21:24
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

DRJEROME Messages postés 436 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 5 février 2015
2 juin 2004 à 21:24
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
0