JPEG-Kompressor

DGL-luke

Ja, ich will jetzt auch mal n bisschen OS rausbringen.
Den Kompressor hab ich gewählt, weil ich den schon mal geproggt hatte und mir jetzt nur ne vernünftige GUI überlegen musste und das einigermassen OOP-mäßig "zu File" bringen musste.

Screenshot

Was macht das Programm?
man kann ein vom Dateiformat her fast beliebiges Bild laden, dieses mit Vorschaufunktion als JPG komprimieren und dann als JPG abspeichern.

Wofür braucht man das Programm?
Wenn man so wie ich geringe Bandbreite hat, aber öfters mal n Bild ins World Wide Web bringen will, nimmt einem der ziemlich viel Arbeit ab. was bei einem Grafikprogramm so aussieht:

Importieren->Speichern unter->Komprimierung einstellen(oft ohne Vorschau!)->speichern

sieht bei mir so aus:

laden->ein bisschen am Regler schieben->speichern.

Ein typisches One Trick Tool also.

Wie sieht der Code aus?
- Kompos: JPEG(bei Delphi dabei), G32(

www.g32.org), GraphicEx(

www.lischke-online.de), PngUnit (Jack Goman)
- So sauber wie möglich, so dreckig wie nötig(nur die auflistung der nicht optimal gelösten probleme):

TTrackbar-Ableitung um WndProc zu überschreiben, damit ich auf LBUTTONUP und KEYUP reagieren kann - unsauber, aber effizient. code direkt in die wndproc geschrieben, nicht extra onmouseup implementiert -> wiederverwendungswert = 0
Konvertierungsakrobatik: TMemoryStream, TImage32, TJPEGImage, TBitMap32, TImage......
TMyTrackbar nicht direkt auf der Form - muss im FormCreate initialisiert werden, und ist eine globale Variable
Kommentare nur in der Deklaration ich denke aber nicht, dass man mehr wirklich braucht.

das wars erstmal - wer zu diesen oder zu weiteren gefundenen Fehlern/unsauberkeiten verbesserungsvorschläge hat, darf sie natürlich gerne posten!

Wer kein RAR hat:

Unrar for Windows - direkt von der winrar-HP.

Changelog
Version 1.4
- PNG-Unterstützung
Version 1.3
- Zusätzliche Buttons
- XP-Manifest hinzugefügt
- Lizenztext
Version 1.2.1
- Fehlende (nicht einkompilierte

) GIF-Unterstützung hinzugefügt
- About-Box hinzugefügt
- Code-Formatierung angefangen
Version 1.2
- "Konstantentabelle" mit Pointern - die direkte ausrichtung funktioniert jetzt per tag und pointer-array
- Source mehr kommentiert
- Vergrößerungsfaktor und Offset bleibt jetzt, wenn es der user nicht ändert.
Version 1.1
- Dateigrößenanzeige implementiert
- Fehler bei der Komprimierung entfernt ( Stream wurde nicht neu angelegt, sondern nur überschrieben. alte daten blieben evtl. am ende übrig)
Version 1.0
- erste veröffentlichte version

**Die Muhkuh**

Hi,

kannst du den Source bitte als Zip anhängen?

**Neotracer64**

- Bei mir zeigt er in der Statusleiste die Dateigrössen nicht an.
- Wenn man eingepasst hat, und die Qualität verändert, dann wird das Bild wieder original gross.

**Nicolai1234**

gutes programm würd ich mal sagen, aber 2 sachen sind mir noch aufgefallen:
1. Wenn man die Qualität ändert, ist das bild immer wieder in originalgröße und man muss wieder auf "Einpassen" drücken.
2. Ich fände es gut, wenn die Funktionen "laden" und "speichern" als extra Buttons auf dem Formular wären...

sonst gute sache

**DGL-luke**

sodele, hab den beitrag mal editiert.

Version 1.2 ist gerade heraussen.

ZIP wirds keins geben, aber ab jetzt nur noch WinRAR.

der Source sollte einigermaßen kompilierbar sein, wenn man die komponentne hat (siehe erster post).

und was mach ich jetzt, damit ihr seht, dass es ne neue version gibt?

**DGL-luke**

... ich mach einfach ein doppelpost.

Version 1.2 ist draussen! DL und Changelog siehe oben.

**idontwantaname**

Zitat von DGL-luke:

ZIP wirds keins geben, aber ab jetzt nur noch WinRAR.

was ist denn dran so schlimm ?? immerhin gibt es vllt leute die dein programm auf gerne testen wollen nur kein WinRAR haben .... naja, so eine Diskussion hatten wir hier schon

zum Programm:
Wenn man die GRöße des Fensters ändert, wäre es ganz praktisch wenn das Bild auch gleich angepasst wird. ( Also, wenn man auf Einpassen drückt

)

**alzaimar**

Dann saug dir doch die SW-Version von RAR. Ausserdem gibts UNRAR.EXE für lau überall.

**DGL-luke**

leute, nicht mehr streiten.

ich werd oben einen direktlink auf die UnRar.exe setzen, mehr bekommt ihr nicht! punkt!

(wäre dann auch schön wenn sich mal wieder jemand zum prog oder source äussern würde)

**Kidix**

gefällt mir gut das Prog!

Die Muhkuh Delphi 2009 Professional	#2 29. Mai 2005, 19:03 Hi, kannst du den Source bitte als Zip anhängen? Manuel
	Zitat

Neotracer64 Delphi 7 Professional	#3 29. Mai 2005, 19:07 - Bei mir zeigt er in der Statusleiste die Dateigrössen nicht an. - Wenn man eingepasst hat, und die Qualität verändert, dann wird das Bild wieder original gross.
	Zitat

Nicolai1234 Turbo Delphi für Win32	#4 29. Mai 2005, 19:09 gutes programm würd ich mal sagen, aber 2 sachen sind mir noch aufgefallen: 1. Wenn man die Qualität ändert, ist das bild immer wieder in originalgröße und man muss wieder auf "Einpassen" drücken. 2. Ich fände es gut, wenn die Funktionen "laden" und "speichern" als extra Buttons auf dem Formular wären... sonst gute sache
	Zitat

DGL-luke Delphi 2006 Professional	#5 29. Mai 2005, 20:04 sodele, hab den beitrag mal editiert. Version 1.2 ist gerade heraussen. ZIP wirds keins geben, aber ab jetzt nur noch WinRAR. der Source sollte einigermaßen kompilierbar sein, wenn man die komponentne hat (siehe erster post). und was mach ich jetzt, damit ihr seht, dass es ne neue version gibt? Lukas Erlacher
	Zitat

DGL-luke Delphi 2006 Professional	#6 31. Mai 2005, 17:19 ... ich mach einfach ein doppelpost. Version 1.2 ist draussen! DL und Changelog siehe oben. Lukas Erlacher
	Zitat

alzaimar Delphi 2007 Enterprise	#8 31. Mai 2005, 17:42 Dann saug dir doch die SW-Version von RAR. Ausserdem gibts UNRAR.EXE für lau überall.
	Zitat

DGL-luke Delphi 2006 Professional	#9 31. Mai 2005, 19:57 leute, nicht mehr streiten. ich werd oben einen direktlink auf die UnRar.exe setzen, mehr bekommt ihr nicht! punkt! (wäre dann auch schön wenn sich mal wieder jemand zum prog oder source äussern würde) Lukas Erlacher
	Zitat

Kidix Delphi 4 Standard	#10 31. Mai 2005, 20:43 gefällt mir gut das Prog!
	Zitat

JPEG-Kompressor

Forumregeln