Mit GDI+ das Image beim Speichern überschreiben

Trubadour

Hallo zusammen,

folgender Code funzt nicht so, wie er soll:

AutoIt

#include <GDIPlus.au3>


_GDIPlus_Startup ()


$hFile = _GDIPlus_ImageLoadFromFile("C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Temp\test\Capture_00057.JPG")


_GDIPlus_ImageSaveToFile($hFile,"C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Temp\test\Capture_00057.JPG")
         If @error Then 	MsgBox(0, "error",@error)


_GDIPlus_ImageDispose($hFile)


_GDIPlus_Shutdown()

Alles anzeigen

Ich kann keine Änderungen in die gleiche Datei zurückspeichern. Im Beispiel verändere ich nichts, da das egal ist. Auch so erhalte ich den Fehlercode 10, der leider bei _GDIPlus_ImageSaveToFile in der Hilfe nicht erklärt ist. Speichere ich in eine(n) andere Datei(namen), funzt es. Ich nehme an, GDI+ sorgt mit dem Handle dafür, das die Datei gesperrt ist. Aber ich würde eben gerne die Datei überschreiben und nicht dauernd neue Dateien erzeugen müssen.

Gibt es einen Workaround?

VG, Jens

**alpines**

Ich nehme mal stark an, dass _GDIPlus_ImageLoadFromFile das Handle auf dem Dateisystem offen hält und du somit nicht in die Datei schreiben kannst.
Was du allerdings machen kannst, ist das Image zu manipulieren, das alte zu disposen und das neue zu saven.

Als Beispiel kannst du z.B. mit _ImageScale das Bild skalieren und den Returnwert mit _ImageSaveToFile nutzen (vorher aber das alte $hFile mit _ImageDispose disposen).

Trubadour

Hallo Alpines,

es funktioniert zwar, doch leider werden dabei die exif-Daten gelöscht. Kann man nicht irgendwie ein neues Handle basteln, ohne die Originaldaten (incl. exif) zu verändern?

**UEZ**

Du musst die Exif Daten auslesen und sie in das neue Bild zurück schreiben.

Vielleicht hilft dir dieser Link: https://www.autoitscript.com/forum/topic/82…ting-meta-data/

**Kanashius**

Kannst ja die zu öffnende Datei erst woanders hinkopieren, dann öffnen und unter dem alten namen speichern. Löschst am Ende die kopierte Datei und fertig.
Ansonsten würd ich mal _GDIPlus_BitmapCreateFromMemory probieren. Da kannst du selbst fileopen (als binary) und fileclose aufrufen. Dann dazwischen das fileread an die Funktion geben. Ich kann mir nur vorstellen, dass die exifdaten dabei auch verloren gehen.
ggf. mit einem exiftool die daten kopieren und später wieder einfügen.

Hab grad auch mal ne Funktion geschrieben, um den Exifheader aus der Datei zu lesen. Die sollte man dann vor die andere Datei packen können... Keine Ahnung, obs so funktioniert, sollte aber

AutoIt

#include <String.au3>
#include <array.au3>


$result=_FileGetExifData("")
if @error then MsgBox(16,"Error","Error: "&@error&@crlf&"Extended: "&@extended)


Func _FileGetExifData($sFile)
	local $file=FileOpen($sFile,16)
	if @error then return SetError(1,@error,-1)
	$data=FileRead($file)
	if @error then return SetError(2,@error,-1)
	FileClose($file)
	$sHex=String($data)
	$arResult=StringRegExp($sHex,"FFD8FFE1([0-9a-fA-F]{4})",1)
	if @error then return SetError(3,@error,-1)
	$iLen=Int("0x"&$arResult[0])
	$iStart=StringInStr($sHex,"FFD8FFE1")
	$data=StringMid($sHex,$iStart,($iLen+40))
	return Binary("0x"&$data)
EndFunc

Alles anzeigen

Trubadour

Vielen Dank an alle,

Ich habe es jetzt ähnlich wie

Zitat von Kanashius

Kannst ja die zu öffnende Datei erst woanders hinkopieren, dann öffnen und unter dem alten namen speichern. Löschst am Ende die kopierte Datei und fertig.

....gemacht. @Kanashius: Wie willst du die Exif-Daten deiner 2. Idee denn wieder mit der neuen Datei zusammenfügen?

UEZs Vorschlag wird auf alle Fälle nötig, wenn man noch mehr mit dem Image macht.

Auch Microsoft schreibt zu gdip_imagesavetofile : "GDI+ does not allow you to save an image to the same file that you used to construct the image."

Vor dem Problem dürften dann ja schon viele gestanden haben...

Falls es wen interessiert, hier der Workarround, der bei mir funzt:

AutoIt

#include <GDIPlus.au3>


_GDIPlus_Startup ()


$sPath="C:\Dokumente und Einstellungen\Ich\Eigene Dateien\Temp\test"
$sFilename="Capture_00068.JPG"
$sFile_reel=$sPath & "\" & $sFilename
$sFile_tmp=$sPath & "\tmp_" & $sFilename
$hFile = _GDIPlus_ImageLoadFromFile($sFile_reel)


;
;hier kann man was machen, exif verändern z.B.
;


_GDIPlus_ImageSaveToFile($hFile, $sFile_tmp)
	If @error Then 	MsgBox(0, "error",@error)


_GDIPlus_ImageDispose($hFile)


Filedelete($sFile_reel)
FileMove($sFile_tmp,$sFile_reel) ;rename to original Name
	If @error Then 	MsgBox(0, "Filerename error",@error)


_GDIPlus_Shutdown()

Alles anzeigen