Page 1 sur 1
EXIF laisse moi tranquil
Publié : sam. 02/févr./2019 21:53
par Ekim
Bonsoir à tous
Comme vous l’aurez bien compris, j'ai un petit soucis avec les "métas donnés", les tags, Exif, etc.......
moi qui à pris goût à la liberté, j'aimerais me débarrasser une fois pour toute des ces donnés que Photoshop
inclut dans les sauvegardes de chaque créations
La question est donc la suivante,..
Il y aurait il une astuce à la manière BASIC de supprimer, écraser ou modifier ces fameuses donnés?
Je vous remercie, et je suis persuader que ce topic intéressera beaucoup de monde
Re: EXIF laisse moi tranquil
Publié : lun. 04/févr./2019 13:26
par Thyphoon
tu ne peux pas faire ça simplement avec Purebasic
tu as un outil très sympa et très puissant en ligne de commande qui s'appelle Exiftool
https://www.sno.phy.queensu.ca/~phil/exiftool/
j'ai écrit un Module pour Purebasic qui permet de l'utiliser simplement
https://www.purebasic.fr/french/viewtop ... =6&t=17554
Pour effacer toutes les métadonnées ...
En ligne de Commande
Avec mon module
Code : Tout sélectionner
FileName="C:\Monimage.jpg"
Exiftool::Command("-all=")
;TODO This Toow Line are very Important to Support Path With Special Character Or You Will Have "File Not Found" Error.
Exiftool::Command("-charset")
Exiftool::Command("FILENAME=utf8")
Exiftool::Command(FileName.s)
Ei.i=Exiftool::Execute()
If Exiftool::WaitExecute(Ei,-1)=#True
If Exiftool::GetResultStdErr(Ei)<>""
Debug "You Have an Error:"+Exiftool::GetResultStdErr(Ei)
Else
Debug Exiftool::GetResultStdOut(Ei)
Endif
Endif
Exiftool::FreeResult(Ei) ;TODO After take data clean used memory
pour retirer les tafs photoshop et garder les autres Iptc
Code : Tout sélectionner
exiftool -photoshop:all= -tagsfromfile @ -iptc:all monfichier.jpg
avec mon module et en purebasic
Code : Tout sélectionner
FileName="C:\Monimage.jpg"
Exiftool::Command("-photoshop:all=")
Exiftool::Command("-tagsfromfile @")
Exiftool::Command("-iptc:all")
;TODO This Toow Line are very Important to Support Path With Special Character Or You Will Have "File Not Found" Error.
Exiftool::Command("-charset")
Exiftool::Command("FILENAME=utf8")
Exiftool::Command(FileName.s)
Ei.i=Exiftool::Execute()
If Exiftool::WaitExecute(Ei,-1)=#True
If Exiftool::GetResultStdErr(Ei)<>""
Debug "You Have an Error:"+Exiftool::GetResultStdErr(Ei)
Else
Debug Exiftool::GetResultStdOut(Ei)
Endif
Endif
Exiftool::FreeResult(Ei) ;TODO After take data clean used memory
J'ai tapé les codes sans pouvoir les vérifier... mais dans le principe c'est ça !
Re: EXIF laisse moi tranquil
Publié : dim. 10/févr./2019 3:07
par Ekim
Merci infiniment @Thyphoon
je vais examiner ça
ton idée est géniale, tu as en quelques sortes crée un paramettreur
le concepte est simple et classe
encore merci)