Seite 1 von 1
Bildverkleinerer
Verfasst: 01.04.2005 11:31
von 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ß
Verfasst: 01.04.2005 13:30
von 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
Verfasst: 01.04.2005 14:17
von 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...
Verfasst: 01.04.2005 15:46
von 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ß
Verfasst: 01.04.2005 19:54
von ZeHa
nicht schlecht!
Verfasst: 02.04.2005 00:39
von 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!
Verfasst: 02.04.2005 11:41
von 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??
Verfasst: 02.04.2005 16:06
von Kristel
Er packt eine exe und bindet sie in eine Entpack-exe mit ein.