Forum: Multimedia
Delphi
by Schwedenbitter,
26. Okt 2017
Die hatte ich schon entdeckt. Mir fehlen im Grunde "nur" 3 Dinge:
Wie speichert man das Originalbild in einen Stream, ohne neu zu komprimieren (zur Ermittlung der Ausgangsgröße)?
Wie setzt man die Kompressionsrate? Das hat EWeiss schon sehr schön gezeigt. Auch wenn das recht kompliziert aussieht. Danke dafür!
Wie speichert man die Datei dieses Mal neu komprimiert testweise in einen Stream...
Forum: Multimedia
Delphi
by Schwedenbitter,
25. Okt 2017
Danke. Ich glaube, mensch72 und ich reden aneinander vorbei.
Mich interessiert nicht die Kompressionsrate der Datei(größe).
Forum: Multimedia
Delphi
by Schwedenbitter,
25. Okt 2017
Gibt es dazu eine Quelle?
Und ist gleichbedeutend mit CompressionQuality?
Wofür stehen die ? Also einfach 1 und damit die Dateigröße?
Forum: Multimedia
Delphi
by Schwedenbitter,
25. Okt 2017
Ich habe das - etwas unorthodox - für mich selbst jetzt so gelöst:
Function CalcCompressionQuality(Const JPG: TJPEGImage;
Const MustFit: Boolean = False): TJPEGQualityRange;
Var
aMS : TMemoryStream;
aBMP : TBitmap;
aJPG : TJPEGImage;
aSize : Int64;
lQ, hQ : Integer;
Piv, oldPiv : Integer; // Ausgangswert = 0
Forum: Multimedia
Delphi
by Schwedenbitter,
17. Okt 2017
Ich wollte mir gerade die Mühe machen, mal ein paar Bilder mit unterschiedlichen Raten zu packen und Dich die CompressionQuality auslesen zu lassen :twisted:
Das wird nicht ausgelesen, sondern beim Erstellen der Klasse in Create mittels FQuality := JPEGDefaults.CompressionQuality; gesetzt. Das wiederum ist eben 90. Wenn man mit der Suche nach FQuality forscht, stellt man schnell fest, dass diese...