Page 1 sur 1
[R] Manipulation fichier image
Posté : mar. 23 juil. 2013 18:15
par Utilisateur 3309 supprimé
Bonjour,
je souhaiterais savoir s'il est possible avec autoit d'ouvrir un fichier jpeg et d'ajouter/supprimer des données à la fin de celui-ci.
un fichier jpeg "normal" se termine par les valeurs hexa: FF D9. je souhaiterai pouvoir ajouter des caracteres à la suite pour watermarker de manière invisible mes images, car tout ce qui suit est ignoré.
Autoit permet-il cela ? si oui comment ?
en fait peu importe qu'il s'agisse d'une image ou d'un autre type de fichier, il devrait probablement être possible d'ajouter des données à la suite sans altérer l'image ?
PS:
je ne veux pas de programmes de watermark sur le marché et je ne souhaite pas utiliser les données EXIF visualisables par tout le monde.
Re: [..] manipulation fichier image
Posté : mar. 23 juil. 2013 19:09
par Utilisateur 3309 supprimé
j'ai fait ça:
Code : Tout sélectionner
$file = FileOpen(@ScriptDir & "\mon_image.jpg",17)
FileWrite ($file, "watermarked by moi")
FileClose($file)
cela fonctionne mais est-ce correct ou il y a mieux, plus rapide ?
Autre question, comment Enlever mon watermark ?
j'ai fait ceci mais ca ne fonctionne pas:
Code : Tout sélectionner
$file = FileOpen(@ScriptDir & "\mon_image.jpg",17)
StringReplace ($file,"watermarked by moi","")
Local $numreplacements = @extended
FileWrite ($file, "")
MsgBox(0, "combien de remplacement", $numreplacements)
FileClose($file)
mon stringreplace ne fait rien
Re: [..] manipulation fichier image
Posté : mar. 23 juil. 2013 20:54
par alex1205
En fait le StringReplace donne le résultat par le return et il faut lire la valeur FileOpen:
Code : Tout sélectionner
$file = FileOpen(@ScriptDir & "\mon_image.jpg",17)
$sansWaterMark = StringReplace (FileRead($file),"watermarked by moi","")
Local $numreplacements = @extended
FileWrite (@ScriptDir & "\mon_image_sanswatermark.jpg", $sansWaterMark) ; enregistrer sur le fichier mon_image_sanswatermark.jpg
MsgBox(0, "combien de remplacement", $numreplacements)
FileClose($file)
Re: [..] manipulation fichier image
Posté : mar. 23 juil. 2013 21:06
par jguinch
Si tu ouvres le fichier en mode binaire, il faudra travailler en binaire.
De plus, il me semble (ne me criez pas dessus si je me trompe) qu'on ne peut pas lire un fichier si on l'a ouvert en écriture et inversement, il faut ouvrir le fichier une fois en lecture et une fois en écriture si on veut lire et écrire.
► Afficher le texte
Code : Tout sélectionner
$watermark = "watermarked by moi"
$sansWaterMark = StringRegExpReplace(Binary($watermark),"\A0x", "")
$fr = FileOpen(@ScriptDir & "\picture.jpg", 16)
$jpg = FileRead($fr)
FileClose($fr)
$content = StringReplace ($jpg, $sansWaterMark ,"")
$fw = FileOpen(@ScriptDir & "\picture2.jpg", 18)
FileWrite ($fw, $content)
FileClose($fw)
Re: [..] manipulation fichier image
Posté : mar. 23 juil. 2013 22:39
par alex1205
Bonjour jguinch,
en fait le mode lecture est par défaut (flag 0) donc pas besoin
Alex1205
Re: [..] manipulation fichier image
Posté : mar. 23 juil. 2013 23:01
par jguinch
@alex1205 :
► Afficher le texte
OK, j'avais ça en tête, c'était peut-être dans les anciennes versions ou alors j'ai rêvé...
Ceci dit, l'ouverture du fichier en écriture (mode 1 ou 17), positionnera le curseur à la fin de fichier et donc rien ne sera lu :
Code : Tout sélectionner
$f = FileOpen("fichier.txt", 1)
$content = FileRead($f)
FileClose($f)
MsgBox(0, "", $content)
Il faudra déplacer le curseur à la position voulue (au début du fichier) pour pouvoir lire le contenu :
Code : Tout sélectionner
#include <Constants.au3>
$f = FileOpen("fichier.txt", 1)
FileSetPos($f, 0, $FILE_BEGIN)
$content = FileRead($f)
FileClose($f)
MsgBox(0, "", $content)
Par contre, l'ouverture du fichier en mode 2 supprimera le contenu du fichier avant qu'on ait pu le lire...
Re: [..] manipulation fichier image
Posté : mar. 23 juil. 2013 23:20
par alex1205
Ah alors merci je savais pas ça. mais moi ca avait toujours marché mais bon... Merci de me l'avoir dit, Alex1205
Re: [..] manipulation fichier image
Posté : mer. 24 juil. 2013 08:25
par Utilisateur 3309 supprimé
Merci pour toutes ces infos, maintenant cela fonctionne.
Re: [..] manipulation fichier image
Posté : mer. 24 juil. 2013 09:26
par jguinch
N'oublie pas de passer le sujet en résolu si c'est OK
A+
Re: [R] Manipulation fichier image
Posté : jeu. 25 juil. 2013 15:48
par Utilisateur 3309 supprimé
ha ben quelqu'un l'a fait avant moi...
Merci