EXIF laisse moi tranquil

[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

[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

Code : Tout sélectionner

exiftool -all= mon fichier.jpg

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 !

[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)