Bildverkleinerer

[ZeHa]

http://www.christian-gleinser.de/prog/verkleinerer.exe

Meine Freundin wollte ein Programm, mit dem sie ihre Digicam-Bilder batchmäßig verkleinern kann. Ist eigentlich nix großartiges, aber falls ihr zu faul seid, um euch das selbst zu schreiben oder kein derartiges Programm auf eurem Rechner hat, wird's euch vielleicht auch was bringen

Es liest momentan nur JPGs und verkleinert sie einfach alle auf 640x480, aber ich werd wohl auch da noch etwas flexiblere Optionen einbauen. Momentan ist es halt wirklich extrem basic

Und ich versichere euch natürlich, daß es sich nicht um ein Aprilscherz-Programm oder so handelt

Viel Spaß

[Kristel]

Das gleiche hab ich hier auch schon gemacht.

Hier hasste einen ganz kleinen Code:

Code: Alles auswählen

; *************************************************************************************************************** 
; ***** Viele Bilder in eine neue Grösse umwandeln / Originalcode 2004 by Rayman1970 / www.menzer-software.de *** 
; *************************************************************************************************************** 

neu_x = 640 ; Neue Bild Grösse horizontal 
neu_y = 480 ; Neue Bild Grösse vertikal 

UseJPEGImageDecoder() ; Aktiviert den JPEG (Join Picture Expert Group) Bild Support 
UseJPEGImageEncoder() ; Aktiviert den JPEG (Join Picture Expert Group) Bild Support 
  
FileName$ = OpenFileRequester("Wählen Sie einige Bilder aus","","Bild (*.jpg)|*.jpg",1, #PB_Requester_MultiSelection) ; Bild Auswahl ! 

While FileName$ 
  LoadImage(1,FileName$ ) ; Bild laden 
  ResizeImage(1, neu_x, neu_y) ; Neue Grösse 
  SaveImage(1,FileName$ ,  #PB_ImagePlugin_JPEG , 10 ) ; Bild speichern 
  FileName$ = NextSelectedFileName() 
Wend 

End

[ZeHa]

Naja okay, auf sowas kann natürlich jeder kommen wußte nicht, daß es sowas hier schonmal gab.
Werd jetzt aber noch ein paar Verbesserungen reinbauen...

[ZeHa]

Okay, hier mal 'ne etwas anspruchsvollere Version (übrigens mein erstes Programm, das Gadgets verwendet )

http://www.christian-gleinser.de/prog/v ... erer12.exe

Viel Spaß

[ZeHa]

Und nochmal 'ne neue Version...

http://www.christian-gleinser.de/prog/v ... erer14.exe

[romartens]

solltest das jetzt noch n bischen kompriemieren
mit upx-tool von www. purearea.net hier ist mal der link http://www.purearea.net/pb/download/dev ... ol-ger.zip
dann werden aus 220kb -> 91 kb!

[ZeHa]

Hey das ist ja geil! Das kannte ich noch gar nicht. Wie funktioniert der? Komprimiert der einfach die Datei und baut 'nen Entpacker mit in die EXE, oder komprimiert der die EXE so, daß sie ohne entpacken läuft??

[Kristel]

Er packt eine exe und bindet sie in eine Entpack-exe mit ein.