Hi,
habt ihr eine Idee wie ich mit Autoit ein bild vom BMP Format ins JPG Format kriege?
Also damits eben viel kleiner wird ![]()
Mich interessiert nur der eigentliche Vorgang wie ich das am besten mache,
habe keine Anhaltspunkte ![]()
Greetz
Hi,
habt ihr eine Idee wie ich mit Autoit ein bild vom BMP Format ins JPG Format kriege?
Also damits eben viel kleiner wird ![]()
Mich interessiert nur der eigentliche Vorgang wie ich das am besten mache,
habe keine Anhaltspunkte ![]()
Greetz
mit Hilfe von IrfanView ? :
[autoit]RunWait("i_view32.exe bild.bmp /convert=bildneu.jpg")
[/autoit]oder mit GDIplus, Pseudocode:
GDIplus start
Bild laden
Bild speichern als ...
GDIPlus Ende
Hab da was gefunden und es schnell noch ein bischen verbessert:
Func BmpToJpg($filename)
; GDI+ initialisieren.
_GDIPlus_Startup()
; falls mehrere Dateien mit FileOpenDialog ausgewählt wurden ...
If StringInStr($filename, '|') Then
$aFilenames = StringSplit($filename, '|')
For $i = 1 To $aFilenames[0]
; Handle zu Imageobjekt erhalten.
$hImg = _GDIPlus_ImageLoadFromFile($filename)
; Imageobjekt als Bitmapdatei abspeichern.
_GDIPlus_ImageSaveToFile($hImg,StringTrimRight($filename ,3)& "jpg")
; Imageobjekt auflösen.
_GDIPlus_ImageDispose($hImg)
Next
; ... falls nicht.
Else
; Handle zu Imageobjekt erhalten.
$hImg = _GDIPlus_ImageLoadFromFile($filename)
; Imageobjekt als Bitmapdatei abspeichern.
_GDIPlus_ImageSaveToFile($hImg,StringTrimRight($filename ,3)& "jpg")
; Imageobjekt auflösen.
_GDIPlus_ImageDispose($hImg)
EndIf
; GDI+ beenden.
_GDIPlus_Shutdown()
EndFunc
yoa ich hatte mit GDI etwas rumprobiert abers nicht hinbekokmmen ![]()
Jetzt habt ihr mir ja die Arbeit ja schon weggenommen ![]()
Danke an euch habt mir sehr geholfen!!
Genau so aus AutoItDir\Examples\GUI\Edvaned herauskopiert:
#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]; ===============================================================================================================================
; Description ...: Shows how to convert a BMP file to JPG
; Author ........: Paul Campbell (PaulIA)
; Notes .........:
; ===============================================================================================================================
; ===============================================================================================================================
; Global variables
; ===============================================================================================================================
Global $sImage, $hImage, $sCLSID
; Get BMP file to convert
$sImage = InputBox("BMP to JPG", "Enter File Name:", @MyDocumentsDir & "\Image.bmp", "", 200, 130)
if @Error or not FileExists($sImage) then Exit
; Initialize GDI+ library
_GDIPlus_StartUp()
; Load image
$hImage = _GDIPlus_ImageLoadFromFile($sImage)
; Get JPG encoder CLSID
$sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
; Save image as JPG
_GDIPlus_ImageSaveToFileEx($hImage, @MyDocumentsDir & "\AutoItImage.jpg", $sCLSID)
; Shut down GDI+ library
_GDIPlus_ShutDown()
da bringt er einen aber wirklich zum grinsen
man muss nur wissen wo es ist