[R] Manipulation fichier image

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

[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

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

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

[alex1205]

Bonjour jguinch,
en fait le mode lecture est par défaut (flag 0) donc pas besoin
Alex1205

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

[alex1205]

Ah alors merci je savais pas ça. mais moi ca avait toujours marché mais bon... Merci de me l'avoir dit, Alex1205

[Utilisateur 3309 supprimé]

Merci pour toutes ces infos, maintenant cela fonctionne.

[jguinch]

N'oublie pas de passer le sujet en résolu si c'est OK
A+

[Utilisateur 3309 supprimé]

ha ben quelqu'un l'a fait avant moi...
Merci