begin process at 2012 02 08 09:47:55
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Graphique

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

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


 Information sur la source

Note :
Aucune note
Catégorie :Graphique Classé sous :data exif, jpeg exif, tiff exif Niveau :Initié Date de création :13/10/2007 Vu / téléchargé :4 703 / 489

Auteur : ThWilliam

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

UN SELECTDIRECTORY QUI SE PLACE AU BON ENDROIT
Source avec Zip Source avec une capture COMPOSANT TZSIMAGE
Source avec Zip COMPOSANT TTHRESCOLLECTION
Source avec Zip Source avec une capture GRID AVEC PROPRIÉTÉS D'AFFICHAGE ET D'ÉDITION
Source avec Zip COMPOSANT LISTE DE STRINGS AVEC CHAMPS

 Sources de la même categorie

Source avec Zip Source avec une capture COMPARATIF ALGO CERCLES par barbichette
Source avec Zip Source avec une capture RAYTRACING EN DELPHI (PROGRESSIVE PATH TRACING) par Bacterius
Source avec Zip Source avec une capture TEXTE SUR COURBE DE BEZIER par pseudo3
Source avec Zip Source avec une capture YEUXROUGES par pseudo3
Source avec Zip Source avec une capture FIREMONKEY : PATHDATA ET FORMAT SVG par Christophe67

Commentaires et avis

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.

Commentaire de ThWilliam le 14/10/2007 08:21:40

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

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"...

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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,246 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales