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