Jpg schrumpfen exif löschen.

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Guten Morgen,

ich bräuchte eine Konzept Idee..

Um jpg Dateien zu verkleinern, gibt es einige Tools, die auch im Kontextmenü funktionieren - soetwas wird genutzt um jpgs zu schrumpfen --> für Mailversand
Zum Löschen der Exif Daten gibt es ein anderes Tool - das man fallweise einsetzt die exif Daten der jpgs zu löschen.

Ich finde im Netz nichts was
1) Im Kontextmenü "sizt" die Jpgs verkleinert und
2) gleichzeit Exif löscht.

Nun denke ich daran mich via autoit daran zu "machen".

Hat jemand bitte eine Idee wie man jpgs via Autoit auf ein (vorgegegebene Standardgröße) schrumpfen kann?
Und die exif Daten löscht?

Danke für entsprechende Tips.

Gruß

Peter

**alpines**

GdiPlus bietet einfache Funktionen zum schrumpfen von Bildern an. _GDIPlus_ImageResize, _GDIPlus_ImageSaveToFile...

**Kanashius**

Wenn du die exif-daten wegbekommen willst wirst du vermutlich am besten arbeiten, wenn du das ganze binär verarbeitest. Hol dir mal Hex Edit, oder ähnliches und sieh dir eine jpg an. Und dann, was sich ändert, wenn du z.b. nen autor hinzufügst. Die Bildinfos stehen ja am Anfang der Datei. Dabei kann dir diese Seite helfen: http://swlab.et.fh-duesseldorf.de/pc_pool/lernmo…n/Kapitel23.htm
Wenn du nur mit einem exif-tool die daten löscht, bleibt der platz reserviert und wird nur leer gemacht. -> immernoch unnütze daten.
Was die größe angeht: Da musst du dir was überlegen. Es ist im Vorraus schwer zu sagen, wie groß ein Bild wird, da Kompressionsraten eine Rolle spielen und somit auch die anzahl gleicher/ähnlicher farben,... Ich denke da musst du im Vorraus berechnen, oder solange immer kleiner werden, bis die Größe erreicht ist.
Edit: Upps, du meintest mit größe die Pixel, nicht die Dateigröße, da halte dich einfach an das was @alpines geschrieben hat.

**AspirinJunkie**

Kenne mich zwar nicht wirklich mit EXIF & Co. aus aber folgendes wäre vielleicht ein Versuch (für den EXIF-Teil):

AutoIt

killEXIF("Test.jpg")




; deletes EXIF-Header from a image file
; hint: it get's really slow if no EXIF-Header exists
Func killEXIF(Const $s_JpgFile)
	; by AsprinJunkie
	Local $dExifStart = 0
	Local $h_JpgFile = FileOpen($s_JpgFile, 17)
	If $h_JpgFile = -1 Then Return SetError(1, @error, False)


	FileSetPos($h_JpgFile, 0, 0)


	Do
		If Binary("0xFFE1") = FileRead($h_JpgFile, 2) Then
			Local $dExifStart = FileGetPos($h_JpgFile) - 2

			FileSetPos($h_JpgFile, Dec(Hex(FileRead($h_JpgFile, 2))) - 2, 1) ; Exif-Teil überspringen
			Local $bRest = FileRead($h_JpgFile)
			FileSetPos($h_JpgFile, $dExifStart, 0)
			FileWrite($h_JpgFile, $bRest)
			FileSetEnd($h_JpgFile)
			Return True
		EndIf
	Until @error


	FileClose($h_JpgFile)
	Return True
EndFunc   ;==>killEXIF

Alles anzeigen

Für den Schrumpfungsteil wirst du wohl ein externes Tool benötigen welches das kann und dieses dann von Autoit aus steuern.

**UEZ**

Zu Exif: https://www.autoitscript.com/forum/topic/82…tting-meta-data / https://msdn.microsoft.com/en-us/library/…magedescription

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Erst mal vielen Dank an alle die bis dato geholfen haben.

Ich muss glaube ich den Begriff "Schrumpfen" besser beschreiben. Ich meine damit nicht komprimieren - jpgs sind ja per se schon komprimiert. Sondern schlicht und einfach das Pixel Maß reduzieren.

So hat ein Foto mit z.B. 3,2 MB 3264 x 2448 Pixel. Verkleinert auf z.B. 267 k nur noch 1440 x 1080 Pixel. Da die Verkleinerung eben auf ein Pixelmaß von z.B. 1920 x 1080 stattgefunden hat.

Ich meine also kein weiteres komprimieren oder auch keine Verschlechterung durch reduzieren der jpg Qualität - sondern wirklich Pixel raus. (Wie z.B. Resize Pictures)

Gruß

Peter

**Oscar**

Das ist doch mit GDI+ kein Problem. Es gibt "_GDIPlus_ImageResize" oder "_GDIPlus_ImageScale".
Beim ersten gibst Du die Zielgröße an und beim Zweiten den Skalierungsfaktor. Je nachdem, was Dir eher zusagt.

**Mars**

Wenn es dir ums Skalieren mit Beschränkungen geht hab ich kurz eine Funktion zusammengestrickt die die Bildgröße berechnen kann.
Als Beispiel wäre dein 3264x2448 Bild mit einer Beschränkung auf 1920x1080 -> 1440x1080.
Da jpg mit Blöcken arbeitet kann diese Funktion auch auf eine beliebige Blockgröße Runden. Dabei wird das Bild aber leicht verzerrt.

AutoIt

#include <Array.au3>


_ArrayDisplay(_Scale(3264, 2448, 1440, 768), 'Beispiel 1')
_ArrayDisplay(_Scale(3264, 2448, 2048, 2048), 'Beispiel 2')
_ArrayDisplay(_Scale(3264, 2448, 1920, 1080), 'Beispiel 3')


_ArrayDisplay(_Scale(3264, 2448, 1920, 800), 'Beispiel 4') ; Ungerundet
_ArrayDisplay(_Scale(3264, 2448, 1920, 800, 8), 'Beispiel 5') ; Auf 8 gerundet
_ArrayDisplay(_Scale(3264, 2448, 1920, 800, 16), 'Beispiel 6') ; Auf 16 gerundet


; $iWSrc - Breite des Originals
; $iHSrc - Höhe des Originals
; $iWScale - PixelMaß Breite
; $iHScale - PixelMaß Höhe
; $iCap - Runden der Werte auf eine bestimmte Blockgröße, z.B. 16px.
; Returnwert: Array[2] -> [Berechnete Breite, Berechnete Höhe]
; Beispiel: _Scale(3264, 2448, 1920, 1080) = [1440, 1080]
Func _Scale($iWSrc, $iHSrc, $iWScale, $iHScale, $iCap = 0)
	Local $nFactorW = $iWScale / $iWSrc, $nFactorH = $iHScale / $iHSrc, $nMulti = ($nFactorW > $nFactorH _
	Or $nFactorW = $nFactorH) ? $nFactorH : $nFactorW, $aRet = [($iCap ? Round($iWSrc * $nMulti / $iCap, _
	0) * $iCap : $iWSrc * $nMulti), ($iCap ? Round($iHSrc * $nMulti / $iCap, 0) * $iCap : $iHSrc * $nMulti)]
	Return $aRet
EndFunc

Alles anzeigen

lg
M

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

@ Mars,
hat nen Moment gedauert bis ich verstanden habe was Du da machst :).

Danke dafür, brauch ich schon nicht mehr selbst schreiben, hätte das auch erst nicht auf dem Schirm gehabt, obwohl ich oben ja selbst ein Beispiel dafür gegeben habe.

Ich wollte keinen Source schnorren -> freue mich aber über Deine Zeilen.

Mile grazie
Peter