Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SAUVEGARDER UN BITMAP EN JPEG AVEC DONNÉES EXIF ET VIGNETTE


Information sur la source

Description

La classe TImageMetaData permet de sauvegarder un bitmap en format Jpeg avec incorporation de données Exif et d'une vignette.
Les données Exif peuvent être créées de toutes pièces (ex : ajout d'une description, d'une date...) ou reprises du fichier original (Jpeg ou Tiff).
Dans la démo, seuls des fichiers jpeg peuvent être ouverts.
Les données Exif ne sont pas complètes, je n'ai repris que celles que je trouvais intéressantes pour un photographe. Il est cependant très facile d'en ajouter d'autres.

Merci d'avance pour vos commentaires(constructifs) ou vos demandes d'information.
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de f0xi le 14/10/2007 06:05:31 administrateur CS

juste a titre d'exemple on peu ameliorer les fonctions "swap" par une seule ligne de code pour les entiers 16 et 32bits, 4 lignes pour les entiers 64bits :

function BSwap16(const a: word): word;
asm
  xchg al, ah;
end;

function BSwap32(const a: integer): integer;
asm
  bswap eax;
end;

function BSwap64(const a: int64): int64;
asm
  mov edx, [ebp+$08];
  mov eax, [ebp+$0C];
  bswap eax;
  bswap edx;
end;

bien que ça ne jouera pas trop sur les performances, ça reste toujours interressants de savoir profiter des instructions "rapide" pour ce genre de manip.

signaler à un administrateur
Commentaire de ThWilliam le 14/10/2007 08:21:40

Salut F0XI et merci pour ces fonctions en assembleur.
A +

signaler à un administrateur
Commentaire de ni69 le 13/08/2008 03:17:33

A savoir que Windows utilise un emplacement différent pour le stockage de son champ "Commentaires"...

signaler à un administrateur
Commentaire de Ricquet le 30/12/2008 13:42:04

Merci pour la clarté du prog favorisant l'utilisation de l'unité ImageMetaData.
Pour info, j'ai ajouté la ligne suivante à la procédure SaveToJpeg afin d'éviter plantage avec grosses images :
JpegImage.CompressionQuality:= 80; SaveOK := false;
with JpegImage do
While not saveOK and (CompressionQuality > 30) do
try SaveToStream(ImageStream);
    SaveOK := true;
Except CompressionQuality := CompressionQuality -20 end;

Je me lance dans activité diaporamas, si intérréssé / partenariat, me retrouver sur site : http://pagesperso-orange.fr/Edialbum/index.htm

Eric

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,562 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.