AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte JPG-Kompressor

JPG-Kompressor

Ein Thema von Sko · begonnen am 27. Okt 2006 · letzter Beitrag vom 18. Mär 2007
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von Sko
Sko
Registriert seit: 11. Sep 2005
Hallo zusammen,

ich hatte die Aufgabe ein Programm zu erstellen, mit dem einfach Bilder komprimiert werden können. Herausgekommen ist dabei JPG-Kompressor, derzeit in der Version 1.8. Wenn man einen Quellordner angibt, wird dieser nach allen Dateien mit den Endungen *.jpg, *.jpeg, *.tga, *.png und *.bmp durchsucht. Diese Dateien werden in einer Liste und in einer Thumbansicht angezeigt. Man muss nur noch ein Häkchen bei den zu komprimierenden Dateien setzen, gewünschte Auflösung angeben und auf Komprimieren klicken. Die Bilder werden dann im Zielordner gespeichert (wenn angegeben), ansonsten wird gefragt ob der Quellordner verwendet werden soll. Wenn eine Datei bereits existiert, wird natürlich gefragt ob diese überschrieben werden soll. Es kann auch eine Diashow angezeigt aller Bilder angezeigt werden.

Features:
  • Kompressorauswahl: IrfanView oder interner Kompressor
  • Kompressionseinstellungen: Größe, Dateiformat, Qualität (nur jpg)
  • automatische Dateinamen: Zusätze, Nummerierung
  • Text und Bilder als Wasserzeichen einfügen
  • Explorer-Kontextmenü-Erweiterung
  • Druckfunktion
Benutzte Komponenten/Units:
  • Graphics32
  • GraphicEx
  • JEDI´s
  • JPEGTools von negaH
  • PNGComponents
  • TPrintPreview
Bedanken möchte ich mich bei negaH für die JPEGTools, bei axelf98 für die Funktion SchnelleVorschauBilder und bei mimi, dafür das er hier nach Icons gefragt hat, weil ich dadurch auf die TPNGImageList aufmerksam geworden bin

Ich würde mich über Kritik und Verbesserungsvorschläge freuen.

Update 1.7 beta [17.11.2006]:
  • neues unterstütztes Bildformat: *.tga
  • alle Icons ersetzt
  • einige Bugs behoben
  • Diashow (wird noch erweitert)

Update 1.7 [18.11.2006]:
  • es können nun Bilder als Wasserzeichen eingefügt werden (bmp, jpg/jpeg, png)

Update 1.7.1 [26.11.2006]:
  • der Fehler beim Laden von Bitmaps mit bfOffBits wurde behoben (vielen Dank nochmal an Phantom1)

Update 1.7.4 beta [03.12.2006]:
  • es gibt jetzt eine Kopierfunktion
  • für WinXP kann eine Autostartoption für den XP-Autostartdialog (das was immer kommt wenn z. B. ein USB-Stick anschließt) aktiviert werden
  • es kann eingestellt werden ob Thumbnails erstellt werden sollen
  • die Größe der Thumbnails kann eingestellt werden (klein, mittel, groß)
  • das Programm kann jetzt auch beendet werden wenn die Thumbs noch geladen werden
  • viele Verbesserungen im Quellcode

Update 1.7.6 beta [20.12.2006]:
  • 1-bit-Bitmaps werden korrekt angezeigt
  • PNGs werden unterstützt
  • neue Funktion: in ausgewählte Größe einpassen: man gibt Höhe und Breite an und die Bilder werden beim Komprimieren in diese Größe eingepasst
  • auf Wunsch einiger Tester wurde der Komprimieren-Button in das Bearbeitungsfeld verschoben
  • Thumbs werden jetzt mit StretchBlt statt StretchDraw erstellt: bessere Qualität
  • viele Verbesserungen im Quellcode

Update 1.8 [13.02.2007]:
  • die Oberfläche wurde etwas umgestaltet
  • es gibt eine Druckfunktion
  • es kann ein Index der Bilder des Quellordners gedruckt werden
  • in den Hints mit den Vorschaubildern (Liste) werden jetzt auch lange Dateinamen komplett angezeigt
  • es kann ausgewählt werden, ob die Bilder überhaupt in der Größe verändert werden sollen (Checkbox vor "Größe")
  • wieder einige Verbesserungen im Quellcode
  • einige Bugs behoben
Miniaturansicht angehängter Grafiken
katze_767.jpg   jpg-kompressor_148.jpg  
Angehängte Dateien
Dateityp: zip jpg-kompressor_18_134.zip (861,5 KB, 45x aufgerufen)
MfG Sko
Zitat von Phoenix:
[OT]Phoenix guckt in die Glaskugel, zuckt mit den Flügelspitzen, krächzt etwas von wegen 'Boden' und 'Scherben' und schubbst die Kugel in Richtung Tischkante.[/OT]
Rockbox
 
Benutzerbild von Die Muhkuh
Die Muhkuh

 
Delphi 2009 Professional
 
#2
  Alt 27. Okt 2006, 10:43
Zitat von Sko:
Das Programm ist als Setup gepackt, aus folgenden Gründen:
  • die Einstellungen werden in den Anwendungsdaten des Nutzers gespeichert und sollen da natürlich nicht bleiben wenn das Programm gelöscht wird
  • für den Eintrag im Kontextmenü wird ein Registryschlüssel angelegt, auch der soll ja nicht übrig bleiben
  • der Installer legt KEINE Registryschlüssel an
Das widerspricht sich. Und außerdem legt der Installer Registryschlüssel an, da man es ja hinterher bei "Software" wieder entfernen kann.

Ich hätte trotzdem gerne eine Version ohne Setup.
Manuel
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

 
Delphi 7 Enterprise
 
#3
  Alt 27. Okt 2006, 10:45
Zitat von Spider:
Ich hätte trotzdem gerne eine Version ohne Setup.
entpacke das Setup doch einfach So habe ich es auch gemacht
André
  Mit Zitat antworten Zitat
Benutzerbild von Sko
Sko

 
Turbo Delphi für Win32
 
#4
  Alt 27. Okt 2006, 12:11
Zitat von Spider:
Zitat von Sko:
Das Programm ist als Setup gepackt, aus folgenden Gründen:
  • für den Eintrag im Kontextmenü wird ein Registryschlüssel angelegt, auch der soll ja nicht übrig bleiben
  • der Installer legt KEINE Registryschlüssel an
Das widerspricht sich. Und außerdem legt der Installer Registryschlüssel an, da man es ja hinterher bei "Software" wieder entfernen kann.

Ich hätte trotzdem gerne eine Version ohne Setup.
Dieser Registryschlüssel wird nicht vom Installer angelegt, sondern vom Programm selbst, wenn man das entsprechende Häkchen in den Optionen setzt (natürlich wird der Schlüssel auch wieder gelöscht wenn das Häkchen entfernt wird).

[Edit]: NSIS-Script entfernt, da das Programm jetzt nicht mehr als Setup hochgeladen ist[/Edit]
  Mit Zitat antworten Zitat
Benutzerbild von Sko
Sko

 
Turbo Delphi für Win32
 
#5
  Alt 27. Okt 2006, 18:58
Ich habe noch eine Version ohne Installer hochgeladen. Beim Löschen muss dann nur folgendes beachtet werden:
  • im Ordner ...\Dokumente und Einstellungen\<Benutzername>\Anwendungsdaten liegt der Ordner mit der Config-Datei
  • vor dem Löschen sollte - wenn gesetzt - in den Optionen das Häkchen "Eintrag für Ordner im Explorer-Kontextmeü anzeigen" entfernt werden
  Mit Zitat antworten Zitat
Benutzerbild von Sko
Sko

 
Turbo Delphi für Win32
 
#6
  Alt 17. Nov 2006, 16:55
Version 1.7 beta ist fertig, ich hab einiges geändert, im ersten Post stehen die Änderungen. Ich würde mich freuen wenn´s jemand testen würde und vielleicht sogar nützlich findet.
Ich bin für Verbesserungsvorschläge immer offen, als nächstes ist folgendes geplant:
  • Bilder als Wasserzeichen verwenden
  • mehr Dateiformate lesen und schreiben
  Mit Zitat antworten Zitat
Benutzerbild von Sko
Sko

 
Turbo Delphi für Win32
 
#7
  Alt 18. Nov 2006, 13:07
So, ich hab das mit den Bildern als Wasserzeichen jetzt hinbekommen. Es können Bitmaps, JPEGs und PNGs (auch mit Alphachannel) als Wasserzeichen verwendet werden. Da mir keine Fehler mehr aufgefallen sind, hab ich auch das 'beta' aus der Version entfernt. Die neue Version gibts im ersten Post.
  Mit Zitat antworten Zitat
Benutzerbild von Sko
Sko

 
Turbo Delphi für Win32
 
#8
  Alt 26. Nov 2006, 12:46
Version 1.7.1 ist fertig:
Bei bei einigen Bitmaps wurden die Farben falsch dargestellt (in meinem Fall Screenshots von Guild Wars), dieser Fehler ist jetzt behoben, außerdem hab ich noch einige Kleinigkeiten im Quellcode verändert. Die neue Version gibts wieder im ersten Post.
Was ist mit den Leuten die´s schonmal getestet haben? Ich würde mich über einige Meinungen freuen.
  Mit Zitat antworten Zitat
Benutzerbild von Sko
Sko

 
Turbo Delphi für Win32
 
#9
  Alt 3. Dez 2006, 10:18
Es gibt wieder ein Update, die Änderungen stehen im ersten Post. Beta ist es wieder aufgrund der Umfangreichen Änderungen einiger Funktionen und Prozeduren, mir ist zwar kein Fehler aufgefallen, allerdings kommt man als Programmierer ja eh nicht auf alles was die Nutzer dann mit dem Programm anstellen . Ich wäre über etwas Feedback erfreut und hoffe das jemand was damit anfangen kann, einige Bekannte von mir und ich selbst nutzen es gerne.
  Mit Zitat antworten Zitat
Benutzerbild von inherited
inherited

 
Turbo Delphi für Win32
 
#10
  Alt 3. Dez 2006, 10:23
Gefällt mir gut, aber wie immer hattest du recht:
Wenn man versucht die Diashow zu starten ohne dass Bilder vorhanden sind gibt es eine AV
Nikolai Wyderka
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf