French Sauvegarde d'exif datas

[JJM]

Bonjour,

En utilisant l'exemple de AGraham,jpegutilsdemo, j'essaie de mettre des données Exif dans une photo:

Je récupère les données d'une photos géolocalisée 's.jpg'
et je sauvegarde une nouvelle photo sous le nom 'new.jpg'

exif.Initialize (File.DirRootExternal ,"new.jpg")
exif.setAttribute (exif.TAG_GPS_LATITUDE ,lat)
exif.setAttribute (exif.TAG_GPS_LATITUDE_REF ,latr)
exif.setAttribute (exif.TAG_GPS_LONGITUDE ,lon)
exif.setAttribute (exif.TAG_GPS_LONGITUDE_REF ,lonr)
exif.saveAttributes

En fait la nouvelle photo n'a aucune donnée Exif.

J'ai posé cette même question sur le forum anglais et n'ai aucune réponse. Peut-être aurai-je plus de chance sur celui-ci
JJM







jpeguitlsModif.zip (331.2 KB, 2 views)

 

[klaus]

Je n'ai pas d'expérience dans ce domaine.
Mais sans informations complémentaires il est difficile de donner des réponses.
Êtes-vous sûr que les différents variables contiennent bien des données ?

Meilleures salutations.

 

[JJM]

Donner des coordonnées GPS à une photo

Bonjour,

J'ai trouvé la réponse à ma question:


Sub Globals
Dim BMP as Bitmap
Dim exif as ExifData (charger la lib jpgutils)
end sub

sub Sauver
Dim out As OutputStream

exif.setAttribute (exif.TAG_GPS_LATITUDE ,lat)
exif.setAttribute (exif.TAG_GPS_LATITUDE_REF ,latr)
exif.setAttribute (exif.TAG_GPS_LONGITUDE ,lon)
exif.setAttribute (exif.TAG_GPS_LONGITUDE_REF ,lonr)

out=File.OpenOutput (File.DirRootExternal ,"new.jpg" ,False)
bmp.WriteToStream(out,90,"JPEG")
exif.saveAttributes
out.Close
end sub


Salutations

JJM