Bilder konvertieren

wolkenloser

Hi,
ich ,möchte gerne ein Tool bauen mit dem ich Bilder (z.B JPG oder BMP) in eine komprimiertes JPF umwandeln kann.

So etwas ähnliches war damals in Sreenshottool eingebaut, aber ich will die Bilder nicht unbedingt sichtbar laden.
Weiß jemand wie man das anders machen kann:

Also:
-Bild auswählen (FileSecectFolder)
-kompressionsrate einstellen (oder per Vorgabe auf ein bestimmtes Qualitäts Level)
-Bild als JPG speichern (überschreiben)

**peethebee**

wohl über DLLs...
mal danach googlen. sporry, habe gerade wenig zeit.

peethebee

wolkenloser

Solche Antworte liebe ich ja.....

**peethebee**

Sorry, habe im Moment ein wenig Stress in der Schule...
Ich werde versuchen, mich darum zu kümmern.

Nicht dass du zur Konkurrenz gehst .

peethebee

wolkenloser

ich habe eine DLL Gefunden, aber das einbinden fällt mir extrem schwer.

Leider gibt das immer nur einen Fehler

grafikdll DL

Code

$s_File1 = "C:\ProfilCopy.jpg"
$s_File2 = "C:\ProfilCopy2.jpg"
$s_fixWidth = ""
$s_fixHeight = ""
$s_TransparentGif = "False"
$s_JpegQuality = 50


Func _Picture_save($s_File1, $s_File2, $s_fixWidth, $s_fixHeight,$s_TransparentGif,$s_JpegQuality)
    $dllcall = DllCall("janGraphics.dll", 'long',"convertEx", 'str', $s_File1 , 'str', $s_File2 , 'str', $s_fixWidth , 'long', $s_fixHeight , 'long', $s_TransparentGif , 'long', $s_JpegQuality , 'long')
    If @error Then
		MsgBox(12000,"FEHLER","Es ist ein Fehler aufgetreten")
        SetError(1)
        Return 0
    Else
        Return 1
    EndIf
EndFunc

Alles anzeigen

wolkenloser

Scheinbar muß man die DLL erst "registrieren".
Ich weiß aber nicht wie...

**peethebee**

Thema DLL registrieren:

regsvr32 "Pfad\Dateiname.dll"
Quelle: http://www.vb-hellfire.de/knowlib/easyreg.php

peethebee

**peethebee**

Hallo.

Habe es jetzt einmal getestet:
Er meldet bei registrierter DLL (siehe letzter Post): "Es ist ein Fehler aufgetreten. Außerdem ist der letzte Parameter beim DllCall zuviel ("long" ohne Wert).
Aber auch das entfernen dieses long reicht bei mir nicht. Vielleicht stimmen noch andere Typen nicht...

peethebee

wolkenloser

Hi Peethebee,

bitte guck hier nochmal.
Auf diesem Gebiet bin ich schlecht...

HolgerK

Hier mal ne Möglichkeit über COM (Beta-Version ist Voraussetzung):

Code

; Beta wird benötigt !!!


$sDll     = @ScriptDir & '\jangraphics.dll'
$sInFile  = @ScriptDir & '\test.bmp'
$sOutfile = @ScriptDir & '\test.jpg'


RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s ' & $sDll, '', @SW_HIDE)


$obj = ObjCreate('janGraphics.Compendium')


; Einfache Konvertierung
;$obj.convert($sInFile, $sOutfile)


; Komplexe Konvertierung
$nFixWidth       = 0
$nFixHeight      = 0
$bTransparentGif = FALSE
$nJpegQuality    = 100


$obj.convertEx($sInFile, $sOutfile, $nFixWidth, $nFixHeight, $bTransparentGif, $nJpegQuality)


$obj = 0


RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s /u ' & $sDll, '', @SW_HIDE)

Alles anzeigen

Gruß
Holger

wolkenloser

Hi Holger!
Dein erster Beitrag und sofort ein Volltreffer.

Ich bin dafür das Du sofort den Status "EXPERTENCODER" bekommst.

:)) :)) :)) :)) :))

Merci !

Kennst Du dich gut mit COM Objekten aus ?

Nun ja,
Für alle die das interessiert.
Hier meine Funktion für das Batch-Kovertieren von Grafikdateien.
Mann kann die Bilder entweder auf das EXE Script ziehen, oder machte es über das Explorer Kontextmenue (dazu das EXE File in den "SEND TO" Ordner des geladenen Benuterprofils kopieren.)

Zunächst bekommt man noch eine Abfrage nach der Qualitätseinstellung (25% ist voreingestellt) und ggf nach einem Suffix (Name der an die Datei angehängt wird.) Löscht man hier die Vorgabe werden die Original Dateien überschrieben.

Genau wie ich es mir vorgestellt hatte.

Code

opt("TrayIconDebug", 1); zeigt am trayicon welchen Befehl  das Script gerade Ausführt
FileInstall('C:\picture_convert\jangraphics.dll',@TempDir & "")
$sDll     = @TempDir & '\jangraphics.dll'


$nFixWidth       = 0
$nFixHeight      = 0
$bTransparentGif = FALSE
$nJpegQuality    = 25






$counter = $CMDLINE[0]
$nJpegQuality=InputBox("Qualitätseinstellung","Bitte die Qualitätseinstellung festlegen (1-100%)","25")
$suffix=InputBox("Dateibenennung","Bitte geben sie einen Text an der an den Dateinamen angehängt wird." & @CR &  "Ein leeres Feld überschreibt die Originaldateien","_small")


RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s ' & $sDll, '', @SW_HIDE)
For $i = 1 To $counter
	convert()
 Next
RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s /u ' & $sDll, '', @SW_HIDE)
FileDelete(@TempDir & "\jangraphics.dll")














Func convert()


$sInFile  =  $CMDLINE[$i]
$sOutfile =  StringTrimRight($CMDLINE[$i], 4) & $suffix & ".jpg"
;~ MsgBox(0,"aktuelles Bild",$CMDLINE[$i])






$obj = ObjCreate('janGraphics.Compendium')
; Einfache Konvertierung
;$obj.convert($sInFile, $sOutfile)


; Komplexe Konvertierung


$message= $obj.convertEx($sInFile, $sOutfile, $nFixWidth, $nFixHeight, $bTransparentGif, $nJpegQuality)
$obj = 0
ToolTip("Konvertierung im Gange - Bild" & $i & " von " & $CMDLINE[0] & @CR & "Speichere unter ->" & $sOutfile)






If Not $message = 0 Then MsgBox(0,$CMDLINE[$i],$message)


EndFunc

Alles anzeigen

Carsten8

wollts grad testen:
Error: Variable must be of type "Object".:
$obj.convertEx($sInFile, $sOutfile, $nFixWidth, $nFixHeight, $bTransparentGif, $nJpegQuality)
$obj^ ERROR

**BugFix**

DLL mit runtergeladen und registriert?

Carsten8

wird doch automatisch gemacht oder?
"RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s ' & $sDll, '', @SW_SHOW)"

Carsten8

Ok hat nun doch funktioniert. Das Problem war dass ich ein Leerzeichen im Pfad hatte. Ich habs nun so gemacht:
RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s ' & '"' & $sDll & '"', '', @SW_HIDE)

Gruß
Carsten